add SymbolBul, SymbolicBul, CompatibilityBul

This commit is contained in:
krasimir
2008-11-07 09:41:04 +00:00
parent e9dc470dcc
commit 96b12c621e
3 changed files with 84 additions and 0 deletions

View File

@@ -0,0 +1,25 @@
--# -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 => "òèòå"
}
} ;
}