msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

discourse devices for English

Browse Source
This commit is contained in:
aarne
2011-02-09 22:57:27 +00:00
parent 78741bd973
commit 3b713801ad
5 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/english/VerbEng.gf
View File

@@ -34,9 +34,11 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
AdVVP adv vp = insertAdV adv.s vp ;
AdvVPSlash vp adv = insertObj (\\_ => adv.s) vp ** {c2 = vp.c2} ;
AdVVPSlash adv vp = insertAdV adv.s vp ** {c2 = vp.c2} ;
ReflVP v = insertObjPre (\\a => v.c2 ++ reflPron ! a) v ;
PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;