mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
generalize DAP
This commit is contained in:
@@ -75,7 +75,7 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
|
||||
sp : Number => Gender => Case => Str ;
|
||||
isNeg : Bool -- negative element, e.g. aucun
|
||||
} ;
|
||||
DAP = {s : Gender => Str ; n : Number} ;
|
||||
DAP = {s : Gender => Case => Str ; n : Number} ;
|
||||
Predet = {
|
||||
s : AAgr => Case => Str ;
|
||||
c : Case ; -- c : la plupart de
|
||||
|
||||
@@ -223,7 +223,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
|
||||
|
||||
--TODO: actually use ant
|
||||
CompVP ant p vp = {
|
||||
s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp p.p agr ;
|
||||
s = \\agr => ant.s ++ p.s ++ "de" ++ infVP vp p.p agr ;
|
||||
cop = serCopula
|
||||
} ;
|
||||
|
||||
|
||||
@@ -190,10 +190,10 @@ incomplete concrete NounRomance of Noun =
|
||||
a = np.a ** {n = det.n} } ;
|
||||
|
||||
AdjDAP det ap = {
|
||||
s = \\g => det.s ! g ++ ap.s ! genNum2Aform g det.n ;
|
||||
s = \\g,c => det.s ! g ! c ++ ap.s ! genNum2Aform g det.n ;
|
||||
n = det.n ;
|
||||
} ;
|
||||
|
||||
DetDAP det = {s = \\g => det.s ! g ! Nom ; n = det.n } ;
|
||||
DetDAP det = {s = \\g,c => det.s ! g ! c ; n = det.n } ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user