GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 02:02:51 -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

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

@@ -117,6 +117,19 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
lin
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
UncNegCl t p cl = {
@@ -140,5 +153,7 @@ lin
CNeg _ => CNeg False ;
_ => x
} ;
-------
}