forked from GitHub/gf-core
26 lines
882 B
Plaintext
26 lines
882 B
Plaintext
--# -path=.:../abstract:../common
|
|
|
|
concrete CompatibilityBul of Compatibility = CatBul ** open Prelude, ResBul in {
|
|
|
|
-- from Noun 19/4/2008
|
|
flags
|
|
coding = cp1251 ;
|
|
|
|
lin
|
|
NumInt n = {s = \\_ => n.s; n = Pl; nonEmpty = True} ;
|
|
OrdInt n = {s = \\aform => n.s ++ "-" ++
|
|
case aform of {
|
|
ASg Masc Indef => "òè" ;
|
|
ASg Fem Indef => "òà" ;
|
|
ASg Neut Indef => "òî" ;
|
|
ASg Masc Def => "òèÿ" ;
|
|
ASg Fem Def => "òàòà" ;
|
|
ASg Neut Def => "òîòî" ;
|
|
ASgMascDefNom => "òèÿò" ;
|
|
APl Indef => "òè" ;
|
|
APl Def => "òèòå"
|
|
}
|
|
} ;
|
|
|
|
}
|