CompCN added to Ger Fin Dut Rus Pol

lib/src/russian/VerbRus.gf

@@ -82,6 +82,51 @@ concrete VerbRus of Verb = CatRus ** open ResRus, Prelude in {
       s3 = \\g,n=> ""
     } ;
 
+-- AR 7/12/2010 --- hmmm
+  CompCN zloj ={
+ s= \\clf,gn,p => 
+   let num = numGenNum gn ;
+       zlojsg = zloj.s ! NF Sg Nom ;
+       zlojpl = zloj.s ! NF Pl Nom
+   in
+   case clf of { 
+-- person is ignored !
+       ClInfinit => "быть" ++ zloj.s ! NF Sg Inst ; 
+        ClImper => case gn of 
+          {  (GSg _) => "будь" ++ zloj.s ! NF Sg Inst ;
+             GPl => "будьте" ++ zloj.s ! NF Pl Inst  
+          };  
+-- infinitive does not save GenNum, 
+-- but indicative does for the sake of adjectival predication !
+        ClIndic Present _ =>  zloj.s ! NF num Nom ;
+        ClIndic PastRus _ => case gn of
+       { (GSg Fem)   => "была" ++ zlojsg ;
+          (GSg Masc)  => "был" ++ zlojsg ;
+          (GSg Neut)   => "был" ++ zlojsg ;
+           GPl => "были" ++ zlojpl
+       };
+       ClIndic Future _ => case gn of 
+       { GPl => case p of 
+          { P3 => "будут" ++ zlojpl ;
+            P2 => "будете" ++ zlojpl ;
+            P1 => "будем" ++ zlojpl
+          } ;
+         (GSg _) => case p of 
+         {P3 => "будет" ++ zlojsg  ;
+          P2 => "будешь"++ zlojsg ;
+          P1=> "буду" ++ zlojsg 
+        }
+      };
+       ClCondit => ""
+      } ;        
+
+      asp = Imperfective ;      
+      w = Act;
+      negBefore = True;
+      s2 = "";
+      s3 = \\g,n=> ""
+    } ;
+
 
 -- Verb phrases can also be formed from adjectives (" молод"),
 -- common nouns (" человек"), and noun phrases (" самый молодой").