From 4af8cf36171af49882009f1f15d2ce7cd6a1c220 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 27 Nov 2008 14:08:50 +0000
Subject: further refactoring in Russian

---
 next-lib/src/slavic/CommonSlavic.gf | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'next-lib/src/slavic')

diff --git a/next-lib/src/slavic/CommonSlavic.gf b/next-lib/src/slavic/CommonSlavic.gf
index d65c3d090..fc38ca990 100644
--- a/next-lib/src/slavic/CommonSlavic.gf
+++ b/next-lib/src/slavic/CommonSlavic.gf
@@ -3,4 +3,20 @@ resource CommonSlavic = ParamX ** open Prelude in {
 param
   Gender = Masc | Fem | Neut ;
   Animacy = Animate | Inanimate ;
+
+  GenNum = GSg Gender | GPl ;
+
+oper
+  gennum : Gender -> Number -> GenNum = \g,n ->
+    case n of {
+      Sg => GSg g ;
+      Pl => GPl
+      } ;
+
+  numGenNum : GenNum -> Number = \gn -> 
+    case gn of {
+      GSg _  => Sg ;
+      GPl    => Pl
+    } ;
+
 }
-- 
cgit v1.2.3