further refactoring in Russian

2008-11-27 14:08:50 +00:00
parent 7f81aa43af
commit 4af8cf3617
15 changed files with 512 additions and 574 deletions
--- 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
+    } ;
+
 }