add SymbolBul, SymbolicBul, CompatibilityBul

next-lib/src/api/SymbolicBul.gf

@@ -0,0 +1,5 @@
+--# -path=.:present:mathematical:prelude
+
+resource SymbolicBul = Symbolic with 
+  (Symbol = SymbolBul),
+  (Grammar = GrammarBul) ;

next-lib/src/bulgarian/CompatibilityBul.gf

@@ -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        => "òèòå"
+                             }
+                } ;
+
+}

next-lib/src/bulgarian/SymbolBul.gf

@@ -0,0 +1,54 @@
+--# -path=.:abstract:common
+
+concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in {
+
+flags
+  coding = cp1251 ;
+
+lin
+  SymbPN i = {s = i.s ; g = Neut} ;
+  IntPN i  = {s = i.s ; g = Neut} ;
+  FloatPN i = {s = i.s ; g = Neut} ;
+  NumPN i = {s = i.s ! DNeutIndef ; g = Neut} ;
+  CNIntNP cn i = {
+    s = \\c => cn.s ! NF Sg Indef ++ i.s ;
+    a = agrP3 (gennum cn.g Sg)
+    } ;
+  CNSymbNP det cn xs = {
+    s = \\c => det.s ! False ! cn.g ! RSubj ++ cn.s ! NF det.n Indef ++ xs.s ; 
+    a = agrP3 (gennum cn.g det.n)
+    } ;
+  CNNumNP cn i = {
+    s = \\c => (cn.s ! NF Sg Indef ++ i.s ! DNeutIndef) ;
+    a = agrP3 (gennum cn.g Sg)
+    } ;
+
+  SymbS sy = sy ; 
+
+  SymbNum sy = {s = \\_ => sy.s; n = Pl; nonEmpty = True} ;
+  SymbOrd sy = {s = \\aform => sy.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        => "òèòå"
+                               }
+                } ;
+
+lincat 
+
+  Symb, [Symb] = SS ;
+
+lin
+
+  MkSymb s = s ;
+
+  BaseSymb = infixSS "è" ;
+  ConsSymb = infixSS "," ;
+
+}