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_itelen_A : A ;
zna_ch_itelnost_N : N ; zna_ch_itelnost_N : N ;
zna_ch_ka_N : N ; zna_ch_ka_N : N ;
zna_ja__V : V ; znam_V : V ;
znoen_A : A ; znoen_A : A ;
znoj_N : N ; znoj_N : N ;
zob_N : N ; zob_N : N ;
@@ -50620,7 +50620,6 @@ fun aba_N : N ;
hardueren_A : A ; hardueren_A : A ;
harem_N : N ; harem_N : N ;
haren_A : A ; haren_A : A ;
haresam_V : V ;
haresvam_V : V ; haresvam_V : V ;
haresvane_N : N ; haresvane_N : N ;
harizvam_V : V ; harizvam_V : V ;
@@ -53192,4 +53191,4 @@ fun aba_N : N ;
_ja_hyr_N : N ; _ja_hyr_N : N ;
_ja__sh_mak_N : N ; _ja__sh_mak_N : N ;
_ja__sht_en_A : A ; _ja__sht_en_A : A ;
} }

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

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