GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-27 03:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

PassVPSlash in Extra and ExtraEng; should generalize PassV2 in the future

Browse Source
This commit is contained in:
aarne
2011-07-21 09:13:26 +00:00
parent 9023382c31
commit 61c9bdf94e
2 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/abstract/Extra.gf
View File

@@ -69,4 +69,8 @@ abstract Extra = Cat ** {
PartVP : VP -> AP ; -- (the man) looking at Mary PartVP : VP -> AP ; -- (the man) looking at Mary
EmbedPresPart : VP -> SC ; -- looking at Mary (is fun) EmbedPresPart : VP -> SC ; -- looking at Mary (is fun)
-- this is a generalization of Verb.PassV2 and should replace it in the future.
PassVPSlash : VPSlash -> VP ; -- be forced to sleep
} }

15
lib/src/english/ExtraEng.gf
View File

@@ -117,6 +117,19 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
lin lin
UncNeg = {s = [] ; p = CNeg False} ; UncNeg = {s = [] ; p = CNeg False} ;
PassVPSlash vps =
let
be = predAux auxBe ;
ppt = (vps.s ! Pres ! Anter ! CPos ! ODir ! agrP3 Pl).inf
in {
s = be.s ;
prp = be.prp ++ ppt ;
inf = be.inf ++ ppt ;
ad = vps.ad ;
s2 = \\a => ppt ++ vps.s2 ! a ---- order
} ;
------------
--- obsolete: use UncNeg : Pol --- obsolete: use UncNeg : Pol
UncNegCl t p cl = { UncNegCl t p cl = {
@@ -140,5 +153,7 @@ lin
CNeg _ => CNeg False ; CNeg _ => CNeg False ;
_ => x _ => x
} ; } ;
-------
} }