diff options
Diffstat (limited to 'next-lib/src/bulgarian/RelativeBul.gf')
| -rw-r--r-- | next-lib/src/bulgarian/RelativeBul.gf | 34 |
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 ; - } ; -} |
