forked from GitHub/gf-core
23 lines
403 B
Plaintext
23 lines
403 B
Plaintext
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
|
|
} ;
|
|
|
|
}
|