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

Add linref to VPS and VPS2

Browse Source
This commit is contained in:
Inari Listenmaa
2021-04-23 14:54:53 +08:00
parent 8acb3331d1
commit cb8cc63528
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/english/ExtendEng.gf
View File

@@ -181,6 +181,8 @@ concrete ExtendEng of Extend =
inf = verb.adv ++ vp.ad ! a ++ verb.fin ++ verb.inf ++ vp.p ++ compl} ; inf = verb.adv ++ vp.ad ! a ++ verb.fin ++ verb.inf ++ vp.p ++ compl} ;
} ; } ;
linVPS : Agr -> {s : Order => Agr => {fin,inf : Str}} -> Str = \agr,vps -> let vpss = vps.s ! ODir True ! agr in vpss.fin ++ vpss.inf ;
mkVPI : VP -> VPI = \vp -> lin VPI { mkVPI : VP -> VPI = \vp -> lin VPI {
s = table { s = table {
VVAux => \\a => vp.ad ! a ++ vp.inf ++ vp.p ++ vp.s2 ! a ; VVAux => \\a => vp.ad ! a ++ vp.inf ++ vp.p ++ vp.s2 ! a ;
@@ -189,6 +191,10 @@ concrete ExtendEng of Extend =
} }
} ; } ;
linref
VPS = linVPS (agrP3 Sg) ;
VPS2 = \vps -> linVPS (agrP3 Sg) vps ++ vps.c2 ;
-- Conjunction of copula complements -- Conjunction of copula complements
lincat [Comp] = {s1,s2 : Agr => Str} ; lincat [Comp] = {s1,s2 : Agr => Str} ;
@@ -441,7 +447,4 @@ lin BaseImp = twoTable2 CPolarity ImpForm ;
UncontractedNeg = {s = [] ; p = CNeg False} ; UncontractedNeg = {s = [] ; p = CNeg False} ;
UttVPShort vp = {s = infVP VVAux vp False Simul CPos (agrP3 Sg)} ; UttVPShort vp = {s = infVP VVAux vp False Simul CPos (agrP3 Sg)} ;
} }