1
0
forked from GitHub/gf-rgl

mp3 example

This commit is contained in:
aarne
2005-12-14 16:28:57 +00:00
parent c87d4bc231
commit 1d0c409e32
5 changed files with 6 additions and 6 deletions

View File

@@ -634,10 +634,10 @@ s ; s2 = [] ; isAux = False} ;
(try.s ! InfImp ++ try.s1) ; -- ... try (try.s ! InfImp ++ try.s1) ; -- ... try
in in
{s = \\b,v => if_then_Str b {s = \\b,v => if_then_Str b
(try.s ! v ++ try.s1 ++ to ++ run.s ! True ! InfImp) (try.s ! v ++ try.s1)
(dont ! v) ; (dont ! v) ;
s2 = \\b,v => if_then_Str b s2 = \\b,v => if_then_Str b
(run.s2 ! True ! v) (to ++ run.s ! True ! InfImp ++ run.s2 ! True ! v)
(trnot ++ run.s ! True ! InfImp ++ run.s2 ! True ! v) ; (trnot ++ run.s ! True ! InfImp ++ run.s2 ! True ! v) ;
isAuxT = taux ; isAuxT = taux ;
isAuxF = True isAuxF = True

View File

@@ -2,7 +2,7 @@
concrete TestResourceEng of TestResource = StructuralEng ** open SyntaxEng, ParadigmsEng in { concrete TestResourceEng of TestResource = StructuralEng ** open SyntaxEng, ParadigmsEng in {
flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ; flags startcat=Phr ; lexer=textlit ; unlexer=text ;
-- a random sample from the lexicon -- a random sample from the lexicon

View File

@@ -492,7 +492,7 @@ oper
-- Modal auxiliary verbs -- Modal auxiliary verbs
verbumAux : (_,_,_,_,_ : Str) -> Verbum = \können,kann,konnte,könnte,gekonnt -> verbumAux : (_,_,_,_,_ : Str) -> Verbum = \können,kann,konnte,könnte,gekonnt ->
let k = (verbumStrongLaufen können kann konnte könnte gekonnt) let k = mkVerbum können kann kann konnte könnte gekonnt ;--- (verbumStrongLaufen können kann konnte könnte gekonnt)
in in
table { table {
VInd Sg P1 => kann ; VInd Sg P1 => kann ;

View File

@@ -605,7 +605,7 @@ oper
complVerbVerb : VerbVerb -> VerbGroup -> VerbGroup = \will, essen -> complVerbVerb : VerbVerb -> VerbGroup -> VerbGroup = \will, essen ->
will ** { will ** {
s3 = \\b,_ => negation b ++ s3 = \\b,n => essen.s3 ! True ! n ++ negation b ++
essen.s2 ++ zuInfinitive will.isAux ++ essen.s ! VInf ; essen.s2 ++ zuInfinitive will.isAux ++ essen.s ! VInf ;
s4 = essen.s4 s4 = essen.s4
} ; } ;

View File

@@ -3,7 +3,7 @@
concrete TestResourceGer of TestResource = StructuralGer ** open SyntaxGer in { concrete TestResourceGer of TestResource = StructuralGer ** open SyntaxGer in {
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ; flags startcat=Phr ; lexer=text ; unlexer=text ;
-- a random sample from the lexicon -- a random sample from the lexicon