summaryrefslogtreecommitdiff
path: root/next-lib/src/bulgarian/SymbolBul.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
committeraarne <aarne@chalmers.se>2009-06-22 15:39:08 +0000
commite89fdae2fa1626348d8025824a7469252fa85e42 (patch)
treec7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/bulgarian/SymbolBul.gf
parent3049b59b35b25381a7c6787444165c200d66e08b (diff)
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/bulgarian/SymbolBul.gf')
-rw-r--r--next-lib/src/bulgarian/SymbolBul.gf54
1 files changed, 0 insertions, 54 deletions
diff --git a/next-lib/src/bulgarian/SymbolBul.gf b/next-lib/src/bulgarian/SymbolBul.gf
deleted file mode 100644
index 814cbbf71..000000000
--- a/next-lib/src/bulgarian/SymbolBul.gf
+++ /dev/null
@@ -1,54 +0,0 @@
---# -path=.:abstract:common
-
-concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in {
-
-flags
- coding = cp1251 ;
-
-lin
- SymbPN i = {s = i.s ; g = Neut} ;
- IntPN i = {s = i.s ; g = Neut} ;
- FloatPN i = {s = i.s ; g = Neut} ;
- NumPN i = {s = i.s ! DNeutIndef ; g = Neut} ;
- CNIntNP cn i = {
- s = \\c => cn.s ! NF Sg Indef ++ i.s ;
- a = agrP3 (gennum cn.g Sg)
- } ;
- CNSymbNP det cn xs = {
- s = \\c => det.s ! False ! cn.g ! RSubj ++ cn.s ! NF det.n Indef ++ xs.s ;
- a = agrP3 (gennum cn.g det.n)
- } ;
- CNNumNP cn i = {
- s = \\c => (cn.s ! NF Sg Indef ++ i.s ! DNeutIndef) ;
- a = agrP3 (gennum cn.g Sg)
- } ;
-
- SymbS sy = sy ;
-
- SymbNum sy = {s = \\_ => sy.s; n = Pl; nonEmpty = True} ;
- SymbOrd sy = {s = \\aform => sy.s ++ "-" ++
- case aform of {
- ASg Masc Indef => "ти" ;
- ASg Fem Indef => "та" ;
- ASg Neut Indef => "то" ;
- ASg Masc Def => "тия" ;
- ASg Fem Def => "тата" ;
- ASg Neut Def => "тото" ;
- ASgMascDefNom => "тият" ;
- APl Indef => "ти" ;
- APl Def => "тите"
- }
- } ;
-
-lincat
-
- Symb, [Symb] = SS ;
-
-lin
-
- MkSymb s = s ;
-
- BaseSymb = infixSS "и" ;
- ConsSymb = infixSS "," ;
-
-}