added PassVPSlash and PassVPSlashAgent in Swe, Bul

src/bulgarian/ExtendBul.gf

@@ -83,6 +83,15 @@ lin
   youPolPl_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
   VPS   = {s : Agr => Str} ;
   [VPS] = {s : Bool => Ints 2 => Agr => Str} ;

src/swedish/ExtendSwe.gf

@@ -4,6 +4,7 @@ concrete ExtendSwe of Extend = CatSwe **
   [
     GenNP, GenModNP, ComplBareVS, CompBareCN,
     StrandRelSlash, EmptyRelSlash, StrandQuestSlash,
+    PassVPSlash, PassAgentVPSlash,
     MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
     MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
     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
     VPI   = {s : VPIForm => Agr => Str} ;