added ExtAdvNP and ExtAdvVP in the resource grammar

This commit is contained in:
kr.angelov
2013-09-03 08:59:47 +00:00
parent fd17023eeb
commit d3d4400c0e
5 changed files with 13 additions and 0 deletions
+1
View File
@@ -37,6 +37,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng, Prelude in {
UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
ExtAdvVP vp adv = insertObj (\\_ => "," ++ adv.s ++ finalComma) vp ;
AdVVP adv vp = insertAdV adv.s vp ;
AdvVPSlash vp adv = insertObj (\\_ => adv.s) vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle} ;