add Adverbs

lib/resource/bulgarian/AdverbBul.gf

@@ -0,0 +1,19 @@
+concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
+  lin
+    PositAdvAdj a = {s = a.s ! ASg Neut Indef} ;
+    ComparAdvAdj cadv a np = {
+      s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! Acc
+      } ;
+    ComparAdvAdjS cadv a s = {
+      s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ s.s
+      } ;
+
+    PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
+
+    AdAdv = cc2 ;
+
+    SubjS = cc2 ;
+    AdvSC s = s ; --- this rule give stack overflow in ordinary parsing
+
+    AdnCAdv cadv = {s = cadv.s ++ "îò"} ;
+}

lib/resource/bulgarian/GrammarBul.gf

@@ -4,6 +4,7 @@ concrete GrammarBul of Grammar =
   NounBul,
   VerbBul,
   AdjectiveBul,
+  AdverbBul,
   NumeralBul,
   SentenceBul,
   QuestionBul,

lib/resource/bulgarian/StructuralBul.gf

@@ -63,9 +63,9 @@ concrete StructuralBul of Structural = CatBul **
                       "âúâ" / strs {"â" ; "ô" ; "Â" ; "Ô"}
                     }) ;
   it_Pron  = mkNP "òî" "íåãî" "íåãîâ" "íåãîâèÿ" "íåãîâèÿò" "íåãîâà" "íåãîâàòà" "íåãîâî" "íåãîâîòî" "íåãîâè" "íåãîâèòå" (GSg Neut) P3 ;
-  less_CAdv = ss ["ïî-ìàëêî"] ;
+  less_CAdv = ss "íå" ;
   many_Det = mkDeterminerPl "ìíîãî" ;
-  more_CAdv = ss "îùå" ;
+  more_CAdv = ss [] ;
   most_Predet = {s = \\_ => "ïîâå÷åòî"} ;
   much_Det = mkDeterminerSg "ìíîãî" "ìíîãî" "ìíîãî";
 {-