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

documenting and reorganizing Verb

Browse Source
This commit is contained in:
aarne
2006-01-13 14:48:53 +00:00
parent 17449e42ba
commit eb9c4bdcae
9 changed files with 77 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/resource-1.0/english/VerbEng.gf
View File

@@ -23,16 +23,13 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ;
PassV2 v = {s = \\_ => v.s ! VPPart} ;
PassV2 v = insertObj (\\_ => v.s ! VPPart) (predAux auxBe) ;
UseVV, UseVS, UseVQ = \vv -> {s = vv.s ; c2 = []} ; -- no "to"
UseVS, UseVQ = \vv -> {s = vv.s ; c2 = []} ; -- no "to"
CompAP ap = ap ;
CompNP np = {s = \\_ => np.s ! Acc} ;
CompAdv a = {s = \\_ => a.s} ;
EmbedS s = {s = conjThat ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = infVP vp (agrP3 Sg)} ; --- agr
}