1
0
forked from GitHub/gf-core

mp3 example

This commit is contained in:
aarne
2005-12-14 16:28:57 +00:00
parent b1543ab8bd
commit a470831560
19 changed files with 126 additions and 8 deletions

View File

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

View File

@@ -2,7 +2,7 @@
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

View File

@@ -492,7 +492,7 @@ oper
-- Modal auxiliary verbs
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
table {
VInd Sg P1 => kann ;

View File

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

View File

@@ -3,7 +3,7 @@
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