diff options
| author | krasimir <krasimir@chalmers.se> | 2008-11-27 14:08:50 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-11-27 14:08:50 +0000 |
| commit | 4af8cf36171af49882009f1f15d2ce7cd6a1c220 (patch) | |
| tree | c33f1d3701eb81b9c26b97b2d0c9a911cbda8300 /next-lib/src/slavic | |
| parent | 7f81aa43af09d37f857361096d3b2c4f27dceef6 (diff) | |
further refactoring in Russian
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
+ } ;
+
}
|