msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Reorganize the ParadigmsBul & co modules. Now ParadigmsBul is auto-generated and contains all BG paradigms. The Lexicon is also largely extended

Browse Source
This commit is contained in:
krasimir
2008-03-13 08:28:30 +00:00
parent 418f841625
commit f056583f37
8 changed files with 1965 additions and 1110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/resource/bulgarian/NumeralBul.gf
View File

@@ -30,15 +30,17 @@ lin pot01 =
NCard DFemDef => "åäíàòà" ;
NCard DNeutIndef => "åäíî" ;
NCard DNeutDef => "åäíîòî" ;
NOrd aform => (mkAdjective "ïúðâè"
"ïúðâèÿ"
"ïúðâèÿò"
"ïúðâà"
"ïúðâàòà"
"ïúðâî"
"ïúðâîòî"
"ïúðâè"
"ïúðâèòå").s ! aform
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 "äåñåò" "äåñåòèìà" "äåñåò" "äåñåòè" ;
@@ -119,7 +121,7 @@ lin pot3plus n m = {
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "òè") ;
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
s = table {NCard _ => c ; NOrd aform => (regAdjective o).s ! aform} ;
s = table {NCard _ => c ; NOrd aform => regAdjective o ! aform} ;
n = n
} ;