mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-13 00:50:11 -06:00
26 lines
907 B
Plaintext
26 lines
907 B
Plaintext
--# -path=.:../abstract:../common
|
|
|
|
concrete CompatibilityBul of Compatibility = CatBul ** open Prelude, ResBul in {
|
|
|
|
-- from Noun 19/4/2008
|
|
flags
|
|
coding = utf8 ;
|
|
|
|
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 => "тите"
|
|
}
|
|
} ;
|
|
|
|
}
|