GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-24 10:41:15 -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

18
src/romance/ExtendRomanceFunctor.gf
View File

@@ -104,7 +104,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
EmbedPresPart = variants {} ; -- VP -> SC ; -- looking at Mary (is fun)
PresPartAP vp = {
s = \\af => gerVP vp (aform2aagr af ** {p = P3}) ;
s = \\af => gerVP vp RPos (aform2aagr af ** {p = P3}) ;
isPre = False ;
copTyp = serCopula
} ;
@@ -172,12 +172,12 @@ incomplete concrete ExtendRomanceFunctor of Extend =
GerundNP vp = let
neutrAgr = Ag Masc Sg P3
in heavyNP {
s = \\_ => gerVP vp neutrAgr ;
s = \\_ => gerVP vp RPos neutrAgr ;
a = neutrAgr
} ;
GerundCN vp = {
s = \\n => gerVP vp {g = Masc ; n = n ; p = P3} ;
s = \\n => gerVP vp RPos {g = Masc ; n = n ; p = P3} ;
g = Masc
} ;
@@ -187,7 +187,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
lin
PurposeVP vp = {
s = infVP vp (Ag Masc Sg P3)
s = infVP vp RPos (Ag Masc Sg P3)
} ;
WithoutVP = variants {} ; -- VP -> Adv ; -- without publishing the document
@@ -222,10 +222,8 @@ incomplete concrete ExtendRomanceFunctor of Extend =
CompQS = variants {} ; -- QS -> Comp ; -- (the question is) who sleeps
--TODO: actually use ant
CompVP ant p vp = let
neg = negation ! p.p
in {
s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp agr ;
CompVP ant p vp = {
s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp p.p agr ;
cop = serCopula
} ;
@@ -265,10 +263,10 @@ incomplete concrete ExtendRomanceFunctor of Extend =
oper
gerundStr : VP -> Str ;
gerundStr vp = gerVP vp (Ag Masc Sg P3) ;
gerundStr vp = gerVP vp RPos (Ag Masc Sg P3) ;
infStr : VP -> Str ;
infStr vp = infVP vp (Ag Masc Sg P3) ;
infStr vp = infVP vp RPos (Ag Masc Sg P3) ;
pastPartAP : VPSlash -> Str -> AP ;
pastPartAP vps agent = lin AP {