forked from GitHub/gf-core
add bulgarian language (still incomplete)
This commit is contained in:
krasimir
188
lib/resource/bulgarian/AdjParadigmsBul.gf
Normal file
188
lib/resource/bulgarian/AdjParadigmsBul.gf
Normal file
@@ -0,0 +1,188 @@
|
||||
resource AdjParadigmsBul = open
|
||||
(Predef=Predef),
|
||||
Prelude,
|
||||
MorphoBul,
|
||||
CatBul
|
||||
in {
|
||||
oper
|
||||
mkA76 : Str -> A =
|
||||
\nov -> mkAdjective nov
|
||||
(nov+"č˙")
|
||||
(nov+"č˙ň")
|
||||
(nov+"ŕ")
|
||||
(nov+"ŕňŕ")
|
||||
(nov+"î")
|
||||
(nov+"îňî")
|
||||
(nov+"č")
|
||||
(nov+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA77 : Str -> A =
|
||||
\vish -> mkAdjective vish
|
||||
(vish+"č˙")
|
||||
(vish+"č˙ň")
|
||||
(vish+"ŕ")
|
||||
(vish+"ŕňŕ")
|
||||
(vish+"ĺ")
|
||||
(vish+"ĺňî")
|
||||
(vish+"č")
|
||||
(vish+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA78 : Str -> A =
|
||||
\bylgarski ->
|
||||
let bylgarsk = init bylgarski
|
||||
in mkAdjective bylgarski
|
||||
(bylgarsk+"č˙")
|
||||
(bylgarsk+"č˙ň")
|
||||
(bylgarsk+"ŕ")
|
||||
(bylgarsk+"ŕňŕ")
|
||||
(bylgarsk+"î")
|
||||
(bylgarsk+"îňî")
|
||||
(bylgarsk+"č")
|
||||
(bylgarsk+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA79 : Str -> A =
|
||||
\silen -> let siln : Str = case silen of { sil+"ĺí" => sil+"í" }
|
||||
in mkAdjective silen
|
||||
(siln+"č˙")
|
||||
(siln+"č˙ň")
|
||||
(siln+"ŕ")
|
||||
(siln+"ŕňŕ")
|
||||
(siln+"î")
|
||||
(siln+"îňî")
|
||||
(siln+"č")
|
||||
(siln+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA80 : Str -> A =
|
||||
\dobyr -> let dobr : Str = case dobyr of { dob+"ú"+r@("ř"|"đ"|"ë"|"ę"|"ă"|"â") => dob+r }
|
||||
in mkAdjective dobyr
|
||||
(dobr+"č˙")
|
||||
(dobr+"č˙ň")
|
||||
(dobr+"ŕ")
|
||||
(dobr+"ŕňŕ")
|
||||
(dobr+"î")
|
||||
(dobr+"îňî")
|
||||
(dobr+"č")
|
||||
(dobr+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA81 : Str -> A =
|
||||
\bial -> let bel : Str = ia2e bial
|
||||
in mkAdjective bial
|
||||
(bel+"č˙")
|
||||
(bel+"č˙ň")
|
||||
(bial+"ŕ")
|
||||
(bial+"ŕňŕ")
|
||||
(bial+"î")
|
||||
(bial+"îňî")
|
||||
(bel+"č")
|
||||
(bel+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA82 : Str -> A =
|
||||
\ostrowryh -> let ostrowyrh : Str = case ostrowryh of { ostrow+"đú"+h@("ç"|"ő"|"á") => ostrow+"úđ"+h }
|
||||
in mkAdjective ostrowryh
|
||||
(ostrowyrh+"č˙")
|
||||
(ostrowyrh+"č˙ň")
|
||||
(ostrowyrh+"ŕ")
|
||||
(ostrowyrh+"ŕňŕ")
|
||||
(ostrowyrh+"î")
|
||||
(ostrowyrh+"îňî")
|
||||
(ostrowyrh+"č")
|
||||
(ostrowyrh+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA82ŕ : Str -> A =
|
||||
\dyrzyk -> let dryzk : Str = case dyrzyk of { d+"úđçúę" => d+"đúçę" }
|
||||
in mkAdjective dyrzyk
|
||||
(dryzk+"č˙")
|
||||
(dryzk+"č˙ň")
|
||||
(dryzk+"ŕ")
|
||||
(dryzk+"ŕňŕ")
|
||||
(dryzk+"î")
|
||||
(dryzk+"îňî")
|
||||
(dryzk+"č")
|
||||
(dryzk+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA83 : Str -> A =
|
||||
\riadyk ->let riadk : Str = case riadyk of { riad+"úę" => riad+"ę"}
|
||||
in mkAdjective riadyk
|
||||
(ia2e riadk+"č˙")
|
||||
(ia2e riadk+"č˙ň")
|
||||
(riadk+"ŕ")
|
||||
(riadk+"ŕňŕ")
|
||||
(riadk+"î")
|
||||
(riadk+"îňî")
|
||||
(ia2e riadk+"č")
|
||||
(ia2e riadk+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA84 : Str -> A =
|
||||
\veren -> let viarn : Str = case veren of { v + "ĺ" + r@("ä"|"ç"|"í"|"đ"|"ń"|"ň")+"ĺí" => v+"˙"+r+"í" }
|
||||
in mkAdjective veren
|
||||
(ia2e viarn+"č˙")
|
||||
(ia2e viarn+"č˙ň")
|
||||
(viarn+"ŕ")
|
||||
(viarn+"ŕňŕ")
|
||||
(viarn+"î")
|
||||
(viarn+"îňî")
|
||||
(ia2e viarn+"č")
|
||||
(ia2e viarn+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA84ŕ : Str -> A =
|
||||
\svesten ->
|
||||
let sviastn : Str = case svesten of { sv + "ĺńňĺí" => sv+"˙ńňí" }
|
||||
in mkAdjective svesten
|
||||
(ia2e sviastn+"č˙")
|
||||
(ia2e sviastn+"č˙ň")
|
||||
(sviastn+"ŕ")
|
||||
(sviastn+"ŕňŕ")
|
||||
(sviastn+"î")
|
||||
(sviastn+"îňî")
|
||||
(ia2e sviastn+"č")
|
||||
(ia2e sviastn+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA85 : Str -> A =
|
||||
\stroen ->
|
||||
let stroin : Str = case stroen of { stro + "ĺí" => stro+"éí" }
|
||||
in mkAdjective stroen
|
||||
(stroin+"č˙")
|
||||
(stroin+"č˙ň")
|
||||
(stroin+"ŕ")
|
||||
(stroin+"ŕňŕ")
|
||||
(stroin+"î")
|
||||
(stroin+"îňî")
|
||||
(stroin+"č")
|
||||
(stroin+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA86 : Str -> A =
|
||||
\sin -> mkAdjective sin
|
||||
(sin+"č˙")
|
||||
(sin+"č˙ň")
|
||||
(sin+"˙")
|
||||
(sin+"˙ňŕ")
|
||||
(sin+"üî")
|
||||
(sin+"üîňî")
|
||||
(sin+"č")
|
||||
(sin+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA87 : Str -> A =
|
||||
\ovchi -> let ovch : Str = case ovchi of { ovch+"č" => ovch }
|
||||
in mkAdjective ovchi
|
||||
(ovch+"č˙")
|
||||
(ovch+"č˙ň")
|
||||
(ovch+"ŕ")
|
||||
(ovch+"ŕňŕ")
|
||||
(ovch+"ĺ")
|
||||
(ovch+"ĺňî")
|
||||
(ovch+"č")
|
||||
(ovch+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
mkA88 : Str -> A =
|
||||
\kozi -> let koz : Str = case kozi of { koz+"č" => koz }
|
||||
in mkAdjective kozi
|
||||
(koz+"č˙")
|
||||
(koz+"č˙ň")
|
||||
(koz+"˙")
|
||||
(koz+"˙ňŕ")
|
||||
(koz+"ĺ")
|
||||
(koz+"ĺňî")
|
||||
(koz+"č")
|
||||
(koz+"čňĺ")
|
||||
** {lock_A = <>} ;
|
||||
}
|
||||
Reference in New Issue
Block a user