From d0116c395839cd53dd24cfe1cb26b3f64ddc9430 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 26 Nov 2008 14:43:05 +0000
Subject: add Russian in next-lib

---
 next-lib/src/russian/ConjunctionRus.gf | 100 +++++++++++++++++++++++++++++++++
 1 file changed, 100 insertions(+)
 create mode 100644 next-lib/src/russian/ConjunctionRus.gf

(limited to 'next-lib/src/russian/ConjunctionRus.gf')

diff --git a/next-lib/src/russian/ConjunctionRus.gf b/next-lib/src/russian/ConjunctionRus.gf
new file mode 100644
index 000000000..25423b2bb
--- /dev/null
+++ b/next-lib/src/russian/ConjunctionRus.gf
@@ -0,0 +1,100 @@
+--# -path=.:../abstract:../common:../../prelude
+
+concrete ConjunctionRus of Conjunction = 
+  CatRus ** open ResRus, Coordination, Prelude in {
+
+  flags optimize=all_subs ;  coding=utf8 ;
+
+  lin
+
+    ConjS = conjunctDistrSS ;
+
+    ConjAdv = conjunctDistrSS ;
+                                                    
+    ConjNP c xs =
+    conjunctDistrTable PronForm c xs ** {n = conjNumber c.n xs.n ; 
+      p = xs.p ; pron = xs.pron ; anim = xs.anim ; 
+       g = xs.g } ;
+
+
+    ConjAP c xs = conjunctDistrTable AdjForm c xs ** {p = xs.p} ;
+
+-- These fun's are generated from the list cat's.
+
+    BaseS = twoSS ;
+    ConsS = consrSS comma ;
+    BaseAdv = twoSS ;
+    ConsAdv = consrSS comma ;
+
+
+    ConsNP  x xs =
+    consTable PronForm comma xs x ** 
+       {n = conjNumber xs.n x.n ; g = conjPGender x.g xs.g ;
+          anim = conjAnim x.anim xs.anim ;
+          p = conjPerson xs.p x.p; pron = conjPron xs.pron x.pron} ;
+      
+    ConsAP x xs = consTable AdjForm comma xs x ** {p = andB xs.p x.p} ;
+
+
+    BaseAP x y = twoTable AdjForm x y ** {p = andB x.p y.p} ;
+
+    BaseNP x y = twoTable PronForm x y ** {n = conjNumber x.n y.n ; 
+       g = conjPGender x.g y.g ; p = conjPerson x.p y.p ;
+       pron = conjPron x.pron y.pron ; anim = conjAnim x.anim y.anim } ;
+
+
+
+
+  lincat
+    [S] = {s1,s2 : Str} ;
+    [Adv] = {s1,s2 : Str} ;
+ -- The structure is the same as for sentences. The result is either always plural
+ -- or plural if any of the components is, depending on the conjunction.
+    [NP] = { s1,s2 : PronForm => Str ; g: PronGen ; 
+             anim : Animacy ; n : Number ; p : Person ;  pron : Bool } ;
+ -- The structure is the same as for sentences. The result is a prefix adjective
+ -- if and only if all elements are prefix.
+    [AP] =  {s1,s2 : AdjForm => Str ; p : Bool} ;
+
+
+
+oper
+
+-- We have to define a calculus of numbers of persons. For numbers,
+-- it is like the conjunction with $Pl$ corresponding to $False$.
+--
+-- The following are given in $ParamX$.
+--
+--  conjNumber : Number -> Number -> Number = \m,n -> case <m,n> of {
+--    <Sg,Sg> => Sg ;
+--    _ => Pl 
+--    } ;
+
+-- For persons, we let the latter argument win ("либо ты, либо я пойду"
+-- but "либо я, либо ты пойдешь"). This is not quite clear.
+
+--  conjPerson : Person -> Person -> Person = \_,p -> 
+--    p ;
+
+-- For pron, we let the latter argument win - "Маша или моя мама" (Nominative case)
+-- but - "моей или Машина мама" (Genetive case) both corresponds to 
+-- "Masha's or my mother"), which is actually not exactly correct, since
+-- different cases should be used - "Машина или моя мама".
+
+  conjPron : Bool -> Bool -> Bool = \_,p -> 
+    p ;
+
+-- For gender in a similar manner as for person:
+-- Needed for adjective predicates like:
+-- "Маша или Оля - красивая", "Антон или Олег - красивый",
+-- "Маша или Олег - красивый".
+-- The later is not totally correct, but there is no correct way to say that.
+
+  conjGender : Gender -> Gender -> Gender = \_,m -> m ; 
+ conjPGender : PronGen -> PronGen -> PronGen = \_,m -> m ; 
+
+  conjAnim : Animacy -> Animacy -> Animacy = \_,m -> m ; 
+
+
+}
+
-- 
cgit v1.2.3