From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 9 Dec 2009 09:47:16 +0000
Subject: moving a few things to deprecated

---
 .../old-lib/resource/bulgarian/RelativeBul.gf      | 34 ++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 deprecated/old-lib/resource/bulgarian/RelativeBul.gf

(limited to 'deprecated/old-lib/resource/bulgarian/RelativeBul.gf')

diff --git a/deprecated/old-lib/resource/bulgarian/RelativeBul.gf b/deprecated/old-lib/resource/bulgarian/RelativeBul.gf
new file mode 100644
index 000000000..19e4f4af3
--- /dev/null
+++ b/deprecated/old-lib/resource/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 ;
+      } ;
+}
-- 
cgit v1.2.3