mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
mp3 example
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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
|
||||
} ;
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user