msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

generalize DAP

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
src/romance/CatRomance.gf
View File

@@ -75,7 +75,7 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
sp : Number => Gender => Case => Str ; sp : Number => Gender => Case => Str ;
isNeg : Bool -- negative element, e.g. aucun isNeg : Bool -- negative element, e.g. aucun
} ; } ;
DAP = {s : Gender => Str ; n : Number} ; DAP = {s : Gender => Case => Str ; n : Number} ;
Predet = { Predet = {
s : AAgr => Case => Str ; s : AAgr => Case => Str ;
c : Case ; -- c : la plupart de c : Case ; -- c : la plupart de

2
src/romance/ExtendRomanceFunctor.gf
View File

@@ -223,7 +223,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
--TODO: actually use ant --TODO: actually use ant
CompVP ant p vp = { 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 cop = serCopula
} ; } ;

4
src/romance/NounRomance.gf
View File

@@ -190,10 +190,10 @@ incomplete concrete NounRomance of Noun =
a = np.a ** {n = det.n} } ; a = np.a ** {n = det.n} } ;
AdjDAP det ap = { 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 ; 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 } ;
} }