diff options
Diffstat (limited to 'next-lib/src/bulgarian/NumeralBul.gf')
| -rw-r--r-- | next-lib/src/bulgarian/NumeralBul.gf | 134 |
1 files changed, 134 insertions, 0 deletions
diff --git a/next-lib/src/bulgarian/NumeralBul.gf b/next-lib/src/bulgarian/NumeralBul.gf new file mode 100644 index 000000000..bf89fbe21 --- /dev/null +++ b/next-lib/src/bulgarian/NumeralBul.gf @@ -0,0 +1,134 @@ +concrete NumeralBul of Numeral = CatBul ** open Prelude, ResBul in { + flags coding=cp1251 ; + + +lincat + Digit = {s : DForm => CardOrd => Str} ; + Sub10 = {s : DForm => CardOrd => Str; n : Number} ; + Sub100 = {s : CardOrd => Str; n : Number; i : Bool} ; + Sub1000 = {s : CardOrd => Str; n : Number; i : Bool} ; + Sub1000000 = {s : CardOrd => Str; n : Number} ; + +lin num x = x ; +lin n2 = mkDigit "два" "двама" "две" "втори" "двеста" ; +lin n3 = mkDigit "три" "трима" "три" "трети" "триста" ; +lin n4 = mkDigit "четири" "четирима" "четири" "четвърти" "четиристотин" ; +lin n5 = mkDigit "пет" "петима" "пет" "пети" "петстотин" ; +lin n6 = mkDigit "шест" "шестима" "шест" "шести" "шестстотин" ; +lin n7 = mkDigit "седем" "седмина" "седем" "седми" "седемстотин" ; +lin n8 = mkDigit "осем" "осмина" "осем" "осми" "осемстотин" ; +lin n9 = mkDigit "девет" "деветима" "девет" "девети" "деветстотин" ; + +lin pot01 = + {s = table { + unit => table { + NCard DMascIndef => "един" ; + NCard DMascDef => "единия" ; + NCard DMascDefNom => "единият" ; + NCard DMascPersonalIndef => "един" ; + NCard DMascPersonalDef => "единия" ; + NCard DMascPersonalDefNom => "единият" ; + NCard DFemIndef => "една" ; + NCard DFemDef => "едната" ; + NCard DNeutIndef => "едно" ; + NCard DNeutDef => "едното" ; + NOrd aform => case aform of { + ASg Masc Indef => "първи" ; + ASg Masc Def => "първия" ; + ASgMascDefNom => "първият" ; + ASg Fem Indef => "първа" ; + ASg Fem Def => "първата" ; + ASg Neut Indef => "първо" ; + ASg Neut Def => "първото" ; + APl Indef => "първи" ; + APl Def => "първите" + } + } ; + teen => mkCardOrd "единадесет" "единадесетима" "единадесет" "единадесети" ; + ten => mkCardOrd "десет" "десетима" "десет" "десети" ; + hundred => mkCardOrd "сто" "стотина" "сто" "стотен" + } + ;n = Sg + } ; +lin pot0 d = d ** {n = Pl} ; + +lin pot110 = {s=pot01.s ! ten; n = Pl; i = True} ; +lin pot111 = {s=pot01.s ! teen; n = Pl; i = True} ; +lin pot1to19 d = {s = d.s ! teen; n = Pl; i = True} ; +lin pot0as1 n = {s = n.s ! unit; n = n.n; i = True} ; +lin pot1 d = {s = d.s ! ten; n = Pl; i = True} ; +lin pot1plus d e = { + s = \\c => d.s ! ten ! NCard DMascIndef ++ "и" ++ e.s ! unit ! c ; n = Pl; i = False} ; + +lin pot1as2 n = n ; +lin pot2 n = {s = \\c => n.s ! hundred ! c; n = Pl; i = True} ; +lin pot2plus d e = { + s = \\c => d.s ! hundred ! NCard DMascIndef ++ case e.i of {False => []; True => "и"} ++ e.s ! c ; + n = Pl ; + i = False + } ; + +lin pot2as3 n = n ; +lin pot3 n = { + s = \\c => case n.n of { + Sg => mkCardOrd "хиляда" "хиляда" "хиляда" "хиляден" ! c ; + Pl => n.s ! NCard DFemIndef ++ mkCardOrd "хиляди" "хиляди" "хиляди" "хиляден" ! c + } ; + n = Pl + } ; +lin pot3plus n m = { + s = \\c => (pot3 (n ** {lock_Sub1000=<>})).s ! NCard DMascIndef ++ case m.i of {False => []; True => "и"} ++ m.s ! c ; + n = Pl + } ; + + +-- numerals as sequences of digits + + lincat + Dig = TDigit ; + + lin + IDig d = d ** {tail = T1} ; + + IIDig d i = { + s = \\o => d.s ! NCard DMascIndef ++ commaIf i.tail ++ i.s ! o ; + n = Pl ; + tail = inc i.tail + } ; + + D_0 = mk2Dig "0" "0в" ; + D_1 = mk3Dig "1" "1ви" Sg ; + D_2 = mk2Dig "2" "2ри" ; + D_3 = mkDig "3" ; + D_4 = mkDig "4" ; + D_5 = mkDig "5" ; + D_6 = mkDig "6" ; + D_7 = mk2Dig "7" "7ми" ; + D_8 = mk2Dig "8" "8ми" ; + D_9 = mkDig "9" ; + + oper + commaIf : DTail -> Str = \t -> case t of { + T3 => "," ; + _ => [] + } ; + + inc : DTail -> DTail = \t -> case t of { + T1 => T2 ; + T2 => T3 ; + T3 => T1 + } ; + + mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ; + mkDig : Str -> TDigit = \c -> mk2Dig c (c + "ти") ; + + mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> { + s = table {NCard _ => c ; NOrd aform => regAdjective o ! aform} ; + n = n + } ; + + TDigit = { + n : Number ; + s : CardOrd => Str + } ; +} |