russian

lib/resource-1.0/russian/IdiomRus.gf

@@ -1,15 +1,37 @@
---# -path=.:../abstract:../common:../../prelude
-
-concrete IdiomRus of Idiom = CatRus ** open Prelude, ResRus in {
---
---  flags optimize=all_subs ;
---
---  lin
---    ExistNP np = 
---      mkClause "there" (agrP3 np.a.n) (insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
---    ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
---    GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
---
---    ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
---
-}
+--# -path=.:../abstract:../common:../../prelude
+
+concrete IdiomRus of Idiom = CatRus ** open Prelude, ResRus, MorphoRus in {
+
+  flags optimize=all_subs ;  coding=utf8 ;
+
+  lin
+    ExistNP = \bar ->
+    {s =\\b,clf => case b of 
+        {Pos =>  verbByut.s ! (getActVerbForm clf (pgen2gen bar.g) Sg P3) 
+           ++ bar.s ! PF Nom No NonPoss;
+        Neg => "не" ++ verbByut.s ! (getActVerbForm clf (pgen2gen bar.g) Sg P3) 
+           ++ bar.s ! PF Nom No NonPoss
+       }
+} ;
+
+
+    ImpersCl vp = {s= \\ b, clf =>  let ne= case b of {Pos =>[]; Neg =>""}
+      in 
+      ne ++ vp.s! clf! (ASg Neut) ! P3  }; 
+
+-- No direct correspondance in Russian. Usually expressed by infinitive:
+-- "Если очень захотеть, можно в космос улететь" 
+-- (If one really wants one can fly into the space).
+-- Note that the modal verb "can" is trasferred into adverb 
+-- "можно" (it is possible) in Russian
+-- The closest subject is "ты" (you), which is omitted in the final sentence:
+-- "Если очень захочешь, можешь в космос улететь"
+
+    GenericCl vp = {s= \\ b, clf =>  let ne= case b of {Pos =>[]; Neg =>""}
+      in 
+      ne ++ vp.s! clf! (ASg Masc) ! P3  }; 
+
+    ProgrVP vp = vp ;
+
+}
+