From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne 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 deletions(-) delete mode 100644 old-lib/resource/bulgarian/RelativeBul.gf (limited to 'old-lib/resource/bulgarian/RelativeBul.gf') diff --git a/old-lib/resource/bulgarian/RelativeBul.gf b/old-lib/resource/bulgarian/RelativeBul.gf deleted file mode 100644 index 19e4f4af3..000000000 --- a/old-lib/resource/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