next-lib/src/bulgarian/CompatibilityBul.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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        => "òèòå"
                             }
                } ;

}