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

questions and transfer in shell state

Browse Source
This commit is contained in:
aarne
2005-11-25 17:40:51 +00:00
parent a2ef232f2f
commit 9e8de44fa9
14 changed files with 110 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
resource-1.0/gf/VerbEng.gf
View File

@@ -10,7 +10,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
insertObj (\\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc) (predV v) ;
ComplVV v vp = insertObj (\\a => v.c2 ++ infVP vp a) (predV v) ;
ComplVS v s = insertObj (\\_ => conjThat ++ s.s) (predV v) ;
ComplVQ v q = insertObj (\\_ => q.s) (predV v) ;
ComplVQ v q = insertObj (\\_ => q.s ! QIndir) (predV v) ;
UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;