mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 09:02:50 -06:00
added PassVPSlash to ExtraRomance; it is a generalization of PassV2 already implemented for some languages. As a variant in Spa and Cat, added PassVPSlash_ser with another copula.
This commit is contained in:
@@ -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
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -27,4 +27,7 @@ abstract ExtraSpaAbs = ExtraRomanceAbs ** {
|
||||
|
||||
|
||||
ImpNeg : NP -> VP -> Utt ; --IL 2012-10-12
|
||||
|
||||
PassVPSlash_ser : VPSlash -> VP ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user