From bf37eb06a95eab0ddbbfcd436b296993d61c4f77 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Thu, 7 Jun 2018 14:26:06 +0200
Subject: [PATCH] added PassVPSlash and PassVPSlashAgent in Swe, Bul

---
 src/bulgarian/ExtendBul.gf | 9 +++++++++
 src/swedish/ExtendSwe.gf   | 6 ++++++
 2 files changed, 15 insertions(+)

diff --git a/src/bulgarian/ExtendBul.gf b/src/bulgarian/ExtendBul.gf
index 3ad373e3..81d75307 100644
--- a/src/bulgarian/ExtendBul.gf
+++ b/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} ;
diff --git a/src/swedish/ExtendSwe.gf b/src/swedish/ExtendSwe.gf
index 86554dcb..045a674b 100644
--- a/src/swedish/ExtendSwe.gf
+++ b/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} ;