participle agreement with RP and IP in romance

This commit is contained in:
aarne
2006-06-13 13:23:58 +00:00
parent 784a1db90a
commit 161924b0e6
5 changed files with 44 additions and 14 deletions

View File

@@ -134,6 +134,20 @@ oper
ext = vp.ext ;
} ;
-- Agreement with preceding relative or interrogative:
-- "les femmes que j'ai aimées"
insertAgr : AAgr -> VP -> VP = \ag,vp -> {
s = vp.s ;
agr = vpAgrClit (agrP3 ag.g ag.n) ;
clAcc = vp.clAcc ;
clDat = vp.clDat ;
clit2 = vp.clit2 ;
neg = vp.neg ;
comp = vp.comp ;
ext = vp.ext ;
} ;
insertAdv : Str -> VP -> VP = \co,vp -> {
s = vp.s ;
agr = vp.agr ;