mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
188 lines
7.5 KiB
Plaintext
188 lines
7.5 KiB
Plaintext
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 = <>} ;
|
|
} |