summaryrefslogtreecommitdiff
path: root/next-lib/src/bulgarian/RelativeBul.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/bulgarian/RelativeBul.gf')
-rw-r--r--next-lib/src/bulgarian/RelativeBul.gf34
1 files changed, 0 insertions, 34 deletions
diff --git a/next-lib/src/bulgarian/RelativeBul.gf b/next-lib/src/bulgarian/RelativeBul.gf
deleted file mode 100644
index 19e4f4af3..000000000
--- a/next-lib/src/bulgarian/RelativeBul.gf
+++ /dev/null
@@ -1,34 +0,0 @@
-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 ;
- } ;
-}