bulgarian in next-lib

1 files changed, 34 insertions, 0 deletions

diff --git a/next-lib/src/bulgarian/RelativeBul.gf b/next-lib/src/bulgarian/RelativeBul.gf
new file mode 100644
index 000000000..19e4f4af3
--- /dev/null
+++ b/next-lib/src/bulgarian/RelativeBul.gf
@@ -0,0 +1,34 @@
+concrete RelativeBul of Relative = CatBul ** open ResBul in {
+  flags coding=cp1251 ;
+
+
+  flags optimize=all_subs ;
+
+  lin
+    RelCl cl = {
+      s = \\t,a,p,agr => suchRP ! agr.gn ++ "че" ++ cl.s ! t ! a ! p ! Main ; 
+      role = RSubj
+      } ;
+
+    RelVP rp vp = {
+      s = \\t,a,p,agr => 
+        let 
+          cl = mkClause (rp.s ! agr.gn) agr vp
+        in
+        cl.s ! t ! a ! p ! Main ;
+      role = RSubj
+      } ;
+
+    RelSlash rp slash = {
+      s = \\t,a,p,agr => slash.c2.s ++ rp.s ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
+      role = RObj Acc
+      } ;
+
+    FunRP p np rp = {
+      s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "на"}) ++ rp.s ! gn ;
+      } ;
+
+    IdRP = {
+      s = whichRP ;
+      } ;
+}