GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-29 04:46:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

put RelVPS into RomanceFunctor and also inherited other VPS functions from there

Browse Source
This commit is contained in:
Aarne Ranta
2024-07-26 17:22:17 +02:00
parent 78fc625174
commit 7d631fafa2
6 changed files with 32 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/romance/ExtendRomanceFunctor.gf
+7
View File
@@ -68,6 +68,13 @@ incomplete concrete ExtendRomanceFunctor of Extend =
} ;
ConjVPS = conjunctDistrTable3 Mood Agr Bool ;
RelVPS rp vpi = {
s = \\m, agr => rp.s ! False ! complAgr agr ! Nom ++ vpi
.s ! m ! (Ag rp.a.g rp.a.n P3) ! False ;
c = Nom
} ;
MkVPI vp = variants {} ; -- Temp -> Pol -> VP -> VPI ; -- to sleep / hasn't slept
ConjVPI = variants {} ; -- Conj -> [VPI] -> VPI ; -- has walked and won't sleep
ComplVPIVV = variants {} ; -- VV -> VPI -> VP ; -- want to sleep and to walk