GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 15:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

added some VP constructions to Pred: without/after/before/when doing, in order to do

Browse Source
This commit is contained in:
aarne
2014-02-15 20:17:48 +00:00
parent 3e1d19b043
commit 7831a3d8c3
9 changed files with 102 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/src/experimental/PredEng.gf
View File

@@ -4,7 +4,7 @@ concrete PredEng of Pred =
with
(PredInterface = PredInstanceEng)
** open PredInstanceEng in {
** open PredInstanceEng, (R = ResEng) in {
lin
QuestIComp a t p icomp np =
@@ -17,4 +17,17 @@ lin
qforms = qformsCopula (a.s ++ t.s ++ p.s) t.t a.a p.p vagr ;
} ;
NomVPNP vpi = {
s = \\c => vpi.s ! R.VVPresPart ! defaultAgr ;
a = defaultAgr
} ;
ByVP x vp vpi = vp ** {adv = "by" ++ vpi.s ! R.VVPresPart ! defaultAgr} ; ---- agr
WhenVP x vp vpi = vp ** {adv = "when" ++ vpi.s ! R.VVPresPart ! defaultAgr} ; ---- agr
BeforeVP x vp vpi = vp ** {adv = "before" ++ vpi.s ! R.VVPresPart ! defaultAgr} ; ---- agr
AfterVP x vp vpi = vp ** {adv = "after" ++ vpi.s ! R.VVPresPart ! defaultAgr} ; ---- agr
InOrderVP x vp vpi = vp ** {adv = "in order" ++ vpi.s ! R.VVInf ! defaultAgr} ; ---- agr
WithoutVP x vp vpi = vp ** {adv = "without" ++ vpi.s ! R.VVPresPart ! defaultAgr} ; ---- agr
}