diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/bulgarian/ExtraBul.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/bulgarian/ExtraBul.gf')
| -rw-r--r-- | next-lib/src/bulgarian/ExtraBul.gf | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/next-lib/src/bulgarian/ExtraBul.gf b/next-lib/src/bulgarian/ExtraBul.gf deleted file mode 100644 index 3b2fef62c..000000000 --- a/next-lib/src/bulgarian/ExtraBul.gf +++ /dev/null @@ -1,71 +0,0 @@ -concrete ExtraBul of ExtraBulAbs = CatBul ** - open ResBul, Coordination, Prelude in { - flags coding=cp1251 ; - - - lin - PossIndefPron p = { - s = \\_,aform => p.gen ! (indefAForm ! aform) ; - nonEmpty = True; - spec = Indef - } ; - - ReflQuant = { - s = \\_,aform => reflPron ! aform ; - nonEmpty = True; - spec = Indef - } ; - - ReflIndefQuant = { - s = \\_,aform => reflPron ! (indefAForm ! aform) ; - nonEmpty = True; - spec = Indef - } ; - - i8fem_Pron = mkPron "аз" "мен" "ми" "мой" "моя" "моят" "моя" "моята" "мое" "моето" "мои" "моите" (GSg Fem) P1 ; - i8neut_Pron = mkPron "аз" "мен" "ми" "мой" "моя" "моят" "моя" "моята" "мое" "моето" "мои" "моите" (GSg Neut) P1 ; - - whatSg8fem_IP = mkIP "каква" "каква" (GSg Fem) ; - whatSg8neut_IP = mkIP "какво" "какво" (GSg Neut) ; - - whoSg8fem_IP = mkIP "коя" "кого" (GSg Fem) ; - whoSg8neut_IP = mkIP "кое" "кого" (GSg Neut) ; - - youSg8fem_Pron = mkPron "ти" "теб" "ти" "твой" "твоя" "твоят" "твоя" "твоята" "твое" "твоето" "твои" "твоите" (GSg Fem) P2 ; - youSg8neut_Pron = mkPron "ти" "теб" "ти" "твой" "твоя" "твоят" "твоя" "твоята" "твое" "твоето" "твои" "твоите" (GSg Neut) P2 ; - - youPol8fem_Pron = mkPron "вие" "вас" "ви" "ваш" "вашия" "вашият" "ваша" "вашата" "ваше" "вашето" "ваши" "вашите" (GSg Fem) P2 ; - youPol8neut_Pron = mkPron "вие" "вас" "ви" "ваш" "вашия" "вашият" "ваша" "вашата" "ваше" "вашето" "ваши" "вашите" (GSg Neut) P2 ; - - onePl_Num = {s = table { - DMascIndef | DMascPersonalIndef | DFemIndef | DNeutIndef => "едни" ; - DMascDef | DMascDefNom | DMascPersonalDef | DMascPersonalDefNom | DFemDef | DNeutDef => "едните" - } ; - n = Pl; - nonEmpty = True - } ; - - UttImpSg8fem pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Fem} ; - UttImpSg8neut pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Fem} ; - - oper - reflPron : AForm => Str = - table { - ASg Masc Indef => "свой" ; - ASg Masc Def => "своя" ; - ASgMascDefNom => "своят" ; - ASg Fem Indef => "своя" ; - ASg Fem Def => "своята" ; - ASg Neut Indef => "свое" ; - ASg Neut Def => "своето" ; - APl Indef => "свои" ; - APl Def => "своите" - } ; - - indefAForm : AForm => AForm = - table { - ASg g _ => ASg g Indef ; - ASgMascDefNom => ASg Masc Indef ; - APl _ => APl Indef - } ; -} |
