GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
aarne
2013-03-13 17:07:57 +00:00
parent 6045ddae19
commit 54324d5de3
6 changed files with 54 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/src/catalan/ExtraCat.gf
View File

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

2
lib/src/catalan/ExtraCatAbs.gf
View File

@@ -26,4 +26,6 @@ fun
youPolPl8fem_Pron : Pron ;
ImpNeg : NP -> VP -> Utt ; --IL 2012-10-12
PassVPSlash_ser : VPSlash -> VP ;
}

15
lib/src/romance/ExtraRomance.gf
View File

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

3
lib/src/romance/ExtraRomanceAbs.gf
View File

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

17
lib/src/spanish/ExtraSpa.gf
View File

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

3
lib/src/spanish/ExtraSpaAbs.gf
View File

@@ -27,4 +27,7 @@ abstract ExtraSpaAbs = ExtraRomanceAbs ** {
ImpNeg : NP -> VP -> Utt ; --IL 2012-10-12
PassVPSlash_ser : VPSlash -> VP ;
}