diff --git a/lib/src/catalan/ExtraCat.gf b/lib/src/catalan/ExtraCat.gf index 383187163..675ae0eea 100644 --- a/lib/src/catalan/ExtraCat.gf +++ b/lib/src/catalan/ExtraCat.gf @@ -54,5 +54,20 @@ lin youPolPl_Pron = vostePl Masc; youPolPl8fem_Pron = vostePl Fem; + -- ExtraRomance.PassVPSlash uses estar + PassVPSlash_ser vps = + let auxvp = predV copula + in + insertComplement (\\a => let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) { + s = auxvp.s ; + agr = auxvp.agr ; + neg = vps.neg ; + clit1 = vps.clit1 ; + clit2 = vps.clit2 ; + clit3 = vps.clit3 ; + isNeg = vps.isNeg ; + comp = vps.comp ; + ext = vps.ext + } ; } \ No newline at end of file diff --git a/lib/src/catalan/ExtraCatAbs.gf b/lib/src/catalan/ExtraCatAbs.gf index 8c1a1f836..01fc5d80b 100644 --- a/lib/src/catalan/ExtraCatAbs.gf +++ b/lib/src/catalan/ExtraCatAbs.gf @@ -26,4 +26,6 @@ fun youPolPl8fem_Pron : Pron ; ImpNeg : NP -> VP -> Utt ; --IL 2012-10-12 + + PassVPSlash_ser : VPSlash -> VP ; } diff --git a/lib/src/romance/ExtraRomance.gf b/lib/src/romance/ExtraRomance.gf index 9b79479d0..575e433b6 100644 --- a/lib/src/romance/ExtraRomance.gf +++ b/lib/src/romance/ExtraRomance.gf @@ -75,4 +75,19 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance ** hasClit = False } ; + PassVPSlash vps = + let auxvp = predV auxPassive + in + insertComplement (\\a => let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) { + s = auxvp.s ; + agr = auxvp.agr ; + neg = vps.neg ; + clit1 = vps.clit1 ; + clit2 = vps.clit2 ; + clit3 = vps.clit3 ; + isNeg = vps.isNeg ; + comp = vps.comp ; + ext = vps.ext + } ; + } diff --git a/lib/src/romance/ExtraRomanceAbs.gf b/lib/src/romance/ExtraRomanceAbs.gf index a9dc3b46a..da7553b9b 100644 --- a/lib/src/romance/ExtraRomanceAbs.gf +++ b/lib/src/romance/ExtraRomanceAbs.gf @@ -1,7 +1,8 @@ abstract ExtraRomanceAbs = Cat, Extra[ VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI, VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS, - Temp,Pol,S,NP, + PassVPSlash, + Temp,Pol,S,NP,VPSlash, VV,VP,Conj,Pron,ProDrop,CompIQuant,IQuant,IComp,PrepCN,CN,Prep,Adv] ** { fun diff --git a/lib/src/spanish/ExtraSpa.gf b/lib/src/spanish/ExtraSpa.gf index 5a6a9647e..a784121e1 100644 --- a/lib/src/spanish/ExtraSpa.gf +++ b/lib/src/spanish/ExtraSpa.gf @@ -49,4 +49,21 @@ concrete ExtraSpa of ExtraSpaAbs = ExtraRomanceSpa ** s = (mkClause (np.s ! Nom).comp np.hasClit False np.a vp).s ! DInv ! RPres ! Simul ! RNeg False ! Conjunct } ; + + -- ExtraRomance.PassVPSlash uses estar + PassVPSlash_ser vps = + let auxvp = predV copula + in + insertComplement (\\a => let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) { + s = auxvp.s ; + agr = auxvp.agr ; + neg = vps.neg ; + clit1 = vps.clit1 ; + clit2 = vps.clit2 ; + clit3 = vps.clit3 ; + isNeg = vps.isNeg ; + comp = vps.comp ; + ext = vps.ext + } ; + } diff --git a/lib/src/spanish/ExtraSpaAbs.gf b/lib/src/spanish/ExtraSpaAbs.gf index 43f081dba..784a68849 100644 --- a/lib/src/spanish/ExtraSpaAbs.gf +++ b/lib/src/spanish/ExtraSpaAbs.gf @@ -27,4 +27,7 @@ abstract ExtraSpaAbs = ExtraRomanceAbs ** { ImpNeg : NP -> VP -> Utt ; --IL 2012-10-12 + + PassVPSlash_ser : VPSlash -> VP ; + }