diff options
Diffstat (limited to 'next-lib/src/slavic')
| -rw-r--r-- | next-lib/src/slavic/CommonSlavic.gf | 16 |
1 files changed, 16 insertions, 0 deletions
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
+ } ;
+
}
|