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

generalize infVP to support negative VP in Romance

Browse Source
This commit is contained in:
krangelov
2021-04-27 13:18:27 +02:00
parent 617cb25f1e
commit adb1cffb75
10 changed files with 31 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/romance/VerbRomance.gf
+5 -5
View File
@@ -7,7 +7,7 @@ incomplete concrete VerbRomance of Verb =
UseV = predV ;
ComplVV v vp =
insertComplement (\\a => prepCase v.c2.c ++ infVP vp a) (predV v) ;
insertComplement (\\a => prepCase v.c2.c ++ infVP vp RPos a) (predV v) ;
ComplVS v s = insertExtrapos (\\b => conjThat ++ s.s ! (v.m ! b)) (predV v) ;
ComplVQ v q = insertExtrapos (\\_ => q.s ! QIndir) (predV v) ;
ComplVA v ap =
@@ -21,7 +21,7 @@ incomplete concrete VerbRomance of Verb =
SlashV2V v vp =
mkVPSlash v.c2
(insertComplement
(\\a => v.c3.s ++ prepCase v.c3.c ++ infVP vp a)
(\\a => v.c3.s ++ prepCase v.c3.c ++ infVP vp RPos a)
(predV v)) ;
SlashV2S v s =
@@ -63,7 +63,7 @@ incomplete concrete VerbRomance of Verb =
SlashVV v vp =
mkVPSlash vp.c2
(insertComplement (\\a => prepCase v.c2.c ++ infVP vp a) (predV v)) ;
(insertComplement (\\a => prepCase v.c2.c ++ infVP vp RPos a) (predV v)) ;
SlashV2VNP v np vps = let obj = np.s ! v.c2.c in {
s = v ;
@@ -73,7 +73,7 @@ incomplete concrete VerbRomance of Verb =
clit3 = {s,imp = [] ; hasClit = False} ; ---- shortcut from insertObject, to check AR 20/11/2013
isNeg = False ;
neg = negation ;
comp = \\a => v.c2.s ++ obj.comp ++ prepCase v.c3.c ++ infVP vps a ;
comp = \\a => v.c2.s ++ obj.comp ++ prepCase v.c3.c ++ infVP vps RPos a ;
ext = \\p => [] ;
c2 = vps.c2
} ;
@@ -82,7 +82,7 @@ incomplete concrete VerbRomance of Verb =
SlashV2VNP v np vp =
mkVPSlash vp.c2
(insertComplement
(\\a => prepCase v.c3.c ++ infVP vp a)
(\\a => prepCase v.c3.c ++ infVP vp RPos a)
(insertObject v.c2 np (predV v))) ;
-}