summaryrefslogtreecommitdiff
path: root/next-lib/src/russian/ConjunctionRus.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/russian/ConjunctionRus.gf')
-rw-r--r--next-lib/src/russian/ConjunctionRus.gf9
1 files changed, 8 insertions, 1 deletions
diff --git a/next-lib/src/russian/ConjunctionRus.gf b/next-lib/src/russian/ConjunctionRus.gf
index 0377fe36c..9810b5d22 100644
--- a/next-lib/src/russian/ConjunctionRus.gf
+++ b/next-lib/src/russian/ConjunctionRus.gf
@@ -21,6 +21,9 @@ concrete ConjunctionRus of Conjunction =
ConjAP c xs = conjunctDistrTable AdjForm c xs ** {p = xs.p} ;
+ ---- AR 17/12/2008
+ ConjRS c xs = conjunctDistrTable3 GenNum Case Animacy c xs ** {p = xs.p} ;
+
-- These fun's are generated from the list cat's.
BaseS = twoSS ;
@@ -50,6 +53,9 @@ concrete ConjunctionRus of Conjunction =
anim = conjAnim x.anim y.anim
} ;
+ ---- AR 17/12/2008
+ BaseRS x y = twoTable3 GenNum Case Animacy x y ** {c = y.c} ;
+ ConsRS xs x = consrTable3 GenNum Case Animacy comma xs x ** {c = xs.c} ;
@@ -63,7 +69,8 @@ concrete ConjunctionRus of Conjunction =
-- if and only if all elements are prefix.
[AP] = {s1,s2 : AdjForm => Str ; p : Bool} ;
-
+ ---- AR 17/12/2008
+ [RS] = {s1,s2 : GenNum => Case => Animacy => Str} ;
oper