From 6ae9123f87b488964d361c175a4f1b42955eca7b Mon Sep 17 00:00:00 2001
From: EkaterinaVoloshina <vokat@mail.ru>
Date: Fri, 15 Mar 2024 17:16:52 +0100
Subject: [PATCH] fixed passive voice

---
 src/russian/ExtendRus.gf | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/src/russian/ExtendRus.gf b/src/russian/ExtendRus.gf
index 35929b063..03812a9d4 100644
--- a/src/russian/ExtendRus.gf
+++ b/src/russian/ExtendRus.gf
@@ -175,19 +175,30 @@ lin
     } ;
 
   -- : VPSlash -> VP ; -- be forced to sleep
-  PassVPSlash vps = vps ** {
+  PassVPSlash vps = case vps.verb.asp of {
+  Perfective => vps ** {
     verb=copulaEll ;
     compl=\\p,a => vps.compl ! p ! a ++ shortPastPassPart vps.verb (agrGenNum a) ++ vps.c.s
     } ;
+  Imperfective => vps ** {
+    verb=(passivate vps.verb);
+  }
+     };
+
   -- PresPartAP    : VP -> AP ;   -- (the man) looking at Mary
   -- use PlP2 + "ый"
 
   -- : VPSlash -> VP
-  PassAgentVPSlash vps np =
-     vps ** {
-       verb=copulaEll ;
-        compl=\\p,a => vps.compl ! p ! a ++ shortPastPassPart vps.verb (agrGenNum a) ++ vps.c.s ++ np.s ! Ins
+  PassAgentVPSlash vps np = case vps.verb.asp of {
+      Perfective => vps ** {
+        verb=copulaEll ;
+        compl=\\p,a => shortPastPassPart vps.verb (agrGenNum a) ++ vps.c.s ++ vps.compl ! p ! a ++ np.s ! Ins
         } ;
+      Imperfective => vps ** {
+        verb=(passivate vps.verb);
+        compl=\\p,a => vps.compl ! p ! a ++ np.s ! Ins
+      }
+     };
 
 
   -- : Pron -> Pron ;  -- unstressed subject pronoun becomes empty: "am tired"