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

fix some paradigms in Bulgarian

Browse Source
This commit is contained in:
krasimir
2010-05-21 12:52:03 +00:00
parent 76ee1a9f67
commit 8f80d27102
3 changed files with 292 additions and 275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

506
lib/src/bulgarian/DictBul.gf
View File

File diff suppressed because it is too large Load Diff

5
lib/src/bulgarian/DictBulAbs.gf
View File

@@ -13197,7 +13197,7 @@ fun aba_N : N ;
zna_ch_itelen_A : A ;
zna_ch_itelnost_N : N ;
zna_ch_ka_N : N ;
zna_ja__V : V ;
znam_V : V ;
znoen_A : A ;
znoj_N : N ;
zob_N : N ;
@@ -50620,7 +50620,6 @@ fun aba_N : N ;
hardueren_A : A ;
harem_N : N ;
haren_A : A ;
haresam_V : V ;
haresvam_V : V ;
haresvane_N : N ;
harizvam_V : V ;
@@ -53192,4 +53191,4 @@ fun aba_N : N ;
_ja_hyr_N : N ;
_ja__sh_mak_N : N ;
_ja__sht_en_A : A ;
}
}

56
lib/src/bulgarian/ParadigmsBul.gf
View File

@@ -10,12 +10,18 @@ resource ParadigmsBul = MorphoFunsBul ** open
oper
mkN001 : Str -> N ;
mkN001 base = let v0 = base
in mkNoun (v0)
(v0+"îâĺ")
(v0+"ŕ")
(v0)
(AMasc NonHuman) ;
mkN001 base = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"ŕ" ;
NF Pl Indef => base+"îâĺ" ;
NF Pl Def => base+"îâĺňĺ" ;
NFSgDefNom => base+"úň" ;
NFPlCount => base+"ŕ" ;
NFVocative => base+"ĺ"
} ;
g = AMasc NonHuman ;
lock_N = <>
} ;
mkN002 : Str -> N ;
mkN002 base = let v0 = tk 2 base;
v1 = last (base)
@@ -62,12 +68,18 @@ oper
(v0)
(AMasc NonHuman) ;
mkN007 : Str -> N ;
mkN007 base = let v0 = base
in mkNoun (v0)
(v0+"č")
(v0+"ŕ")
(v0+"ĺ")
(AMasc NonHuman) ;
mkN007 base = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"ŕ" ;
NF Pl Indef => base+"č" ;
NF Pl Def => base+"čňĺ" ;
NFSgDefNom => base+"úň" ;
NFPlCount => base+"ŕ" ;
NFVocative => base+"ĺ"
} ;
g = AMasc NonHuman ;
lock_N = <>
} ;
mkN007b : Str -> N ;
mkN007b base = let v0 = base
in mkNoun (v0)
@@ -76,12 +88,18 @@ oper
(v0+"î")
(AMasc NonHuman) ;
mkN007a : Str -> N ;
mkN007a base = let v0 = base
in mkNoun (v0)
(v0+"č")
(v0+"ŕ")
(v0+"ĺ")
(AMasc Human) ;
mkN007a base = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"ŕ" ;
NF Pl Indef => base+"č" ;
NF Pl Def => base+"čňĺ" ;
NFSgDefNom => base+"úň" ;
NFPlCount => base+"č" ;
NFVocative => base+"ĺ"
} ;
g = AMasc Human ;
lock_N = <>
} ;
mkN008 : Str -> N ;
mkN008 base = let v0 = tk 2 base;
v1 = last (base)
@@ -1491,4 +1509,4 @@ oper
adjAdv : A -> Str -> A =
\a,adv -> {s = a.s; adv = adv; lock_A=<>} ;
}
}