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

added PassVPSlash and PassVPSlashAgent in Swe, Bul

Browse Source
This commit is contained in:
Krasimir Angelov
2018-06-07 14:26:06 +02:00
parent 4cb024fdb8
commit bf37eb06a9
2 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/bulgarian/ExtendBul.gf
View File

@@ -83,6 +83,15 @@ lin
youPolPl_Pron = youPol_Pron ; youPolPl_Pron = youPol_Pron ;
youPolPlFem_Pron = youPol_Pron ; youPolPlFem_Pron = youPol_Pron ;
lin
PassVPSlash vp = insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe) ;
PassAgentVPSlash vp np =
insertObj (\\_ => "чрез" ++ np.s ! RObj Acc) Pos
(insertObj (\\a => vp.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc)) ++
vp.compl1 ! a ++ vp.compl2 ! a) Pos (predV verbBe)) ;
lincat lincat
VPS = {s : Agr => Str} ; VPS = {s : Agr => Str} ;
[VPS] = {s : Bool => Ints 2 => Agr => Str} ; [VPS] = {s : Bool => Ints 2 => Agr => Str} ;

6
src/swedish/ExtendSwe.gf
View File

@@ -4,6 +4,7 @@ concrete ExtendSwe of Extend = CatSwe **
[ [
GenNP, GenModNP, ComplBareVS, CompBareCN, GenNP, GenModNP, ComplBareVS, CompBareCN,
StrandRelSlash, EmptyRelSlash, StrandQuestSlash, StrandRelSlash, EmptyRelSlash, StrandQuestSlash,
PassVPSlash, PassAgentVPSlash,
MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
ICompAP, ICompAP,
@@ -58,6 +59,11 @@ concrete ExtendSwe of Extend = CatSwe **
} }
} ; } ;
lin
PassVPSlash vps =
insertObj (\\a => vps.c2.s ++ vps.n3 ! a) (passiveVP vps) ;
PassAgentVPSlash vps np =
insertObjPost (\\a => vps.c2.s ++ vps.n3 ! a) (insertObj (\\_ => (PrepNP by8agent_Prep np).s) (passiveVP vps)) ;
lincat lincat
VPI = {s : VPIForm => Agr => Str} ; VPI = {s : VPIForm => Agr => Str} ;