generalize DAP

This commit is contained in:
krangelov
2021-04-27 13:23:27 +02:00
parent adb1cffb75
commit 156e193d47
3 changed files with 4 additions and 4 deletions

View File

@@ -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

View File

@@ -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
} ;

View File

@@ -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 } ;
}