From e89fdae2fa1626348d8025824a7469252fa85e42 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Jun 2009 15:39:08 +0000 Subject: next-lib renamed to lib, lib to old-lib --- next-lib/src/bulgarian/RelativeBul.gf | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 next-lib/src/bulgarian/RelativeBul.gf (limited to 'next-lib/src/bulgarian/RelativeBul.gf') 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 ; - } ; -} -- cgit v1.2.3