mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 22:39:31 -06:00
Reorganize the ParadigmsBul & co modules. Now ParadigmsBul is auto-generated and contains all BG paradigms. The Lexicon is also largely extended
This commit is contained in:
krasimir
@@ -1,188 +0,0 @@
|
||||
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 = <>} ;
|
||||
}
|
||||
@@ -1,110 +1,276 @@
|
||||
--# -path=.:prelude
|
||||
|
||||
concrete LexiconBul of Lexicon = CatBul **
|
||||
open ParadigmsBul, Prelude in {
|
||||
open ParadigmsBul, ResBul, Prelude in {
|
||||
|
||||
flags
|
||||
optimize=values ;
|
||||
|
||||
lin
|
||||
bad_A = mkA76 "ëîř" ;
|
||||
beautiful_A = mkA76 "ęđŕńčâ" ;
|
||||
airplane_N = mkN007 "ñàìîëåò" ;
|
||||
apartment_N = mkN007 "àïàðòàìåíò" ;
|
||||
apple_N = mkN041 "ÿáúëêà" ;
|
||||
art_N = mkN054 "èçêóñòâî" ;
|
||||
baby_N = mkN065 "áåáå" ;
|
||||
bad_A = mkA076 "ëîø" ;
|
||||
bank_N = mkN041 "áàíêà" ;
|
||||
beautiful_A = mkA076 "êðàñèâ" ;
|
||||
become_VA = mkVA (mkV186 "ñòàâàì") ;
|
||||
big_A = mkA81 "ăîë˙ě" ;
|
||||
black_A = mkA79 "÷ĺđĺí" ;
|
||||
blue_A = mkA86 "ńčí" ;
|
||||
beer_N = mkN041 "áèðà" ;
|
||||
big_A = mkA081 "ãîëÿì" ;
|
||||
bike_N = mkN061 "êîëåëî" ;
|
||||
bird_N = mkN041 "ïòèöà" ;
|
||||
black_A = mkA079 "÷åðåí" ;
|
||||
blue_A = mkA086 "ñèí" ;
|
||||
boat_N = mkN007 "êîðàá" ;
|
||||
book_N = mkN041 "êíèãà" ;
|
||||
boot_N = mkN041 "îáóâêà" ;
|
||||
boss_N = mkN001 "øåô" ;
|
||||
boy_N = mkN065 "ìîì÷å" ;
|
||||
bread_N = mkN001 "õëÿá" ;
|
||||
break_V2 = dirV2 (mkV173 "÷óïÿ") ;
|
||||
brown_A = mkA76 "ęŕô˙â" ;
|
||||
brother_N2 = {s = table {
|
||||
NF Sg Indef => "áðàò" ;
|
||||
NF Sg Def => "áðàòà" ;
|
||||
NFSgDefNom => "áðàòúò" ;
|
||||
NF Pl Indef => "áðàòÿ" ;
|
||||
NF Pl Def => "áðàòÿòà" ;
|
||||
NFPlCount => "áðàòÿ" ;
|
||||
NFVocative => "áðàòå"
|
||||
};
|
||||
g = DMascPersonal;
|
||||
c2 = "íà"} ;
|
||||
brown_A = mkA076 "êàôÿâ" ;
|
||||
butter_N = mkN054 "ìàñëî" ;
|
||||
buy_V2 = dirV2 (mkV173 "êóïÿ") ;
|
||||
clean_A = mkA76 "÷čńň" ;
|
||||
clever_A = mkA79 "óěĺí" ;
|
||||
camera_N = mkN041 "êàìåðà" ;
|
||||
cap_N = mkN041 "øàïêà" ;
|
||||
car_N = mkN041 "êîëà" ;
|
||||
carpet_N = mkN007 "êèëèì" ;
|
||||
cat_N = mkN041 "êîòêà" ;
|
||||
cheese_N = mkN066 "ñèðåíå" ;
|
||||
child_N = mkN067 "äåòå" ;
|
||||
church_N = mkN041 "öúðêâà" ;
|
||||
city_N = mkN001 "ãðàä" ;
|
||||
clean_A = mkA076 "÷èñò" ;
|
||||
clever_A = mkA079 "óìåí" ;
|
||||
close_V2 = dirV2 (mkV173 "çàòâîðÿ") ;
|
||||
cold_A = mkA76 "ńňóäĺí" ;
|
||||
cold_A = mkA076 "ñòóäåí" ;
|
||||
come_V = mkV146a "äîéäà" ;
|
||||
computer_N = mkN009 "êîìïþòúð" ;
|
||||
country_N = mkN041 "äúðæàâà" ;
|
||||
cousin_N = mkN007a "áðàòîâ÷åä" ;
|
||||
cow_N = mkN041 "êðàâà" ;
|
||||
die_V = mkV150a "óìðà" ;
|
||||
dirty_A = mkA79 "ěđúńĺí" ;
|
||||
dirty_A = mkA079 "ìðúñåí" ;
|
||||
doctor_N = mkN007a "äîêòîð" ;
|
||||
dog_N = mkN065 "êó÷å" ;
|
||||
door_N = mkN041 "âðàòà" ;
|
||||
drink_V2 = dirV2 (mkV163 "ïèÿ") ;
|
||||
eat_V2 = dirV2 (mkV169 "ÿì") ;
|
||||
empty_A = mkA79 "ďđŕçĺí" ;
|
||||
empty_A = mkA079 "ïðàçåí" ;
|
||||
enemy_N = mkN001 "âðàã" ;
|
||||
factory_N = mkN041 "ôàáðèêà" ;
|
||||
fear_VS = mkVS (mkV186 "ñòðàõóâàì") ;
|
||||
find_V2 = dirV2 (mkV173 "íàìåðÿ") ;
|
||||
fish_N = mkN041 "ðèáà" ;
|
||||
floor_N = mkN007 "åòàæ" ;
|
||||
fridge_N = mkN007 "ôðèçåð" ;
|
||||
friend_N = mkN031a "ïðèÿòåë" ;
|
||||
fruit_N = mkN001 "ïëîä" ;
|
||||
forget_V2 = dirV2 (mkV173 "çàáðàâÿ") ;
|
||||
good_A = mkA80 "äîáúđ" ;
|
||||
garden_N = mkN041 "ãðàäèíà" ;
|
||||
girl_N = mkN065 "ìîìè÷å" ;
|
||||
-- glove_N = regN "glove" ;
|
||||
gold_N = mkN054 "çëàòî" ;
|
||||
good_A = mkA080 "äîáúð" ;
|
||||
go_V = mkV186 "îòèâàì" ;
|
||||
green_A = mkA76 "çĺëĺí" ;
|
||||
green_A = mkA076 "çåëåí" ;
|
||||
hate_V2 = dirV2 (mkV173 "ìðàçÿ") ;
|
||||
hat_N = mkN041 "øàïêà" ;
|
||||
have_V2 = dirV2 (mkV186 "èìàì") ;
|
||||
hear_V2 = dirV2 (mkV186 "÷óâàì") ;
|
||||
hope_VS = mkVS (mkV186 "íŕä˙âŕě") ;
|
||||
hot_A = mkA76 "ăîđĺů" ;
|
||||
important_A = mkA79 "âŕćĺí" ;
|
||||
hill_N = mkN001 "õúëì" ;
|
||||
hope_VS = mkVS (reflV (mkV186 "íàäÿâàì") Acc) ;
|
||||
horse_N = mkN035 "êîí" ;
|
||||
hot_A = mkA076 "ãîðåù" ;
|
||||
house_N = mkN041 "êúùà" ;
|
||||
important_A = mkA079 "âàæåí" ;
|
||||
industry_N = mkN047 "èíäóñòðèÿ" ;
|
||||
iron_N = mkN057 "æåëÿçî" ;
|
||||
king_N = mkN035a "öàð" ;
|
||||
know_V2 = dirV2 (mkV162 "çíàÿ") ;
|
||||
lake_N = mkN054 "åçåðî" ;
|
||||
lamp_N = mkN041 "ëàìïà" ;
|
||||
learn_V2 = dirV2 (mkV176 "ó÷à") ;
|
||||
leave_V2 = dirV2 (mkV173 "îñòàâÿ") ;
|
||||
like_V2 = dirV2 (mkV186 "õàðåñâàì") ;
|
||||
listen_V2 = dirV2 (mkV186 "ñëóøàì") ;
|
||||
live_V = mkV160 "æèâåÿ" ;
|
||||
long_A = mkA80 "äúëúă" ;
|
||||
long_A = mkA080 "äúëúã" ;
|
||||
lose_V2 = dirV2 (mkV173 "ãóáÿ") ;
|
||||
love_N = mkN049 "ëþáîâ" ;
|
||||
love_V2 = dirV2 (mkV186 "îáè÷àì") ;
|
||||
married_A2 = mkA2 (mkA76 "ćĺíĺí") zaP ;
|
||||
narrow_A = mkA84 "ňĺńĺí" ;
|
||||
new_A = mkA76 "íîâ" ;
|
||||
old_A = mkA76 "ńňŕđ" ;
|
||||
man_N = mkN024 "ìúæ" ;
|
||||
married_A2 = mkA2 (mkA076 "æåíåí") zaP ;
|
||||
meat_N = mkN054 "ìåñî" ;
|
||||
milk_N = mkN057 "ìëÿêî" ;
|
||||
moon_N = mkN041 "ëóíà" ;
|
||||
mountain_N = mkN041 "ïëàíèíà" ;
|
||||
music_N = mkN041 "ìóçèêà" ;
|
||||
narrow_A = mkA084 "òåñåí" ;
|
||||
new_A = mkA076 "íîâ" ;
|
||||
newspaper_N = mkN014 "âåñòíèê" ;
|
||||
oil_N = mkN065 "îëèî" ;
|
||||
old_A = mkA076 "ñòàð" ;
|
||||
open_V2 = dirV2 (mkV187 "îòâàðÿì") ;
|
||||
paper_N = mkN047 "õàðòèÿ" ;
|
||||
paris_PN = mkPN "Ïàðèæ" Masc ;
|
||||
planet_N = mkN041 "ïëàíåòà" ;
|
||||
play_V2 = dirV2 (mkV161 "èãðàÿ") ;
|
||||
queen_N = mkN041 "êðàëèöà" ;
|
||||
radio_N = mkN054 "ðàäèî" ;
|
||||
read_V2 = dirV2 (mkV145 "÷åòà") ;
|
||||
red_A = mkA76 "÷ĺđâĺí" ;
|
||||
red_A = mkA076 "÷åðâåí" ;
|
||||
religion_N = mkN047 "ðåëèãèÿ" ;
|
||||
restaurant_N = mkN007 "ðåñòîðàíò" ;
|
||||
river_N = mkN041 "ðåêà" ;
|
||||
rock_N = mkN041 "ñêàëà" ;
|
||||
roof_N = mkN007 "ïîêðèâ" ;
|
||||
-- rubber_N = regN "rubber" ;
|
||||
run_V = (mkV186 "áÿãàì") ;
|
||||
say_VS = mkVS (mkV186 "êàçâàì") ;
|
||||
school_N = mkN066 "ó÷èëèùå" ;
|
||||
science_N = mkN041 "íàóêà" ;
|
||||
sea_N = mkN065 "ìîðå" ;
|
||||
seek_V2 = dirV2 (mkV173 "òúðñÿ") ;
|
||||
see_V2 = dirV2 (mkV186 "âèæäàì") ;
|
||||
sell_V3 = dirV3 (mkV186 "ïðîäàâàì") naP ;
|
||||
send_V3 = dirV3 (mkV186 "ïðàùàì") doP ;
|
||||
short_A = mkA76 "ęúń" ;
|
||||
sheep_N = mkN044 "îâöà" ;
|
||||
ship_N = mkN007 "êîðàá" ;
|
||||
shop_N = mkN007 "ìàãàçèí" ;
|
||||
short_A = mkA076 "êúñ" ;
|
||||
silver_N = mkN054 "ñðåáðî" ;
|
||||
sister_N = mkN041a "ñåñòðà" ;
|
||||
sleep_V = mkV182 "ñïÿ" ;
|
||||
small_A = mkA80 "ěŕëúę" ;
|
||||
small_A = mkA080 "ìàëúê" ;
|
||||
snake_N = mkN047 "çìèÿ" ;
|
||||
sock_N = mkN007 "÷îðàï" ;
|
||||
speak_V2 = dirV2 (mkV173 "ãîâîðÿ") ;
|
||||
stupid_A = mkA76 "ăëóďŕâ" ;
|
||||
star_N = mkN041 "çâåçäà" ;
|
||||
-- steel_N = regN "steel" ;
|
||||
stone_N = mkN017 "êàìúê" ;
|
||||
-- stove_N = regN "stove" ;
|
||||
student_N = mkN007a "ñòóäåíò" ;
|
||||
stupid_A = mkA076 "ãëóïàâ" ;
|
||||
sun_N = mkN066 "ñëúíöå" ;
|
||||
switch8off_V2 = dirV2 (mkV186 "èçêëþ÷âàì") ;
|
||||
switch8on_V2 = dirV2 (mkV186 "âêëþ÷âàì") ;
|
||||
table_N = mkN041 "ìàñà" ;
|
||||
teacher_N = mkN031a "ó÷èòåë" ;
|
||||
teach_V2 = dirV2 (mkV186 "ïðåïîäàâàì") ;
|
||||
thick_A = mkA76 "äĺáĺë" ;
|
||||
thin_A = mkA80 "ňúíúę" ;
|
||||
television_N = mkN047 "òåëåâèçèÿ" ;
|
||||
thick_A = mkA076 "äåáåë" ;
|
||||
thin_A = mkA080 "òúíúê" ;
|
||||
train_N = mkN001 "âëàê" ;
|
||||
travel_V = mkV186 "ïúòóâàì" ;
|
||||
ugly_A = mkA76 "ăëóďŕâ" ;
|
||||
tree_N = mkN061 "äúðâî" ;
|
||||
ugly_A = mkA076 "ãëóïàâ" ;
|
||||
understand_V2 = dirV2 (mkV186 "ðàçáèðàì") ;
|
||||
university_N = mkN007 "óíèâåðñèòåò" ;
|
||||
village_N = mkN054 "ñåëî" ;
|
||||
wait_V2 = prepV2 (mkV186 "÷àêàì") zaP ;
|
||||
walk_V = mkV173 "õîäÿ" ;
|
||||
warm_A = mkA80 "ňîďúë" ;
|
||||
warm_A = mkA080 "òîïúë" ;
|
||||
war_N = mkN041 "âîéíà" ;
|
||||
watch_V2 = dirV2 (mkV186 "ãëåäàì") ;
|
||||
white_A = mkA81 "á˙ë" ;
|
||||
water_N = mkN041 "âîäà" ;
|
||||
white_A = mkA081 "áÿë" ;
|
||||
window_N = mkN008 "ïðîçîðåö" ;
|
||||
wine_N = mkN054 "âèíî" ;
|
||||
win_V2 = dirV2 (mkV174 "ïîáåäÿ") ;
|
||||
|
||||
woman_N = mkN041a "æåíà" ;
|
||||
write_V2 = dirV2 (mkV159 "ïèøà") ;
|
||||
yellow_A = mkA76 "ćúëň" ;
|
||||
young_A = mkA76 "ěëŕä" ;
|
||||
yellow_A = mkA076 "æúëò" ;
|
||||
young_A = mkA076 "ìëàä" ;
|
||||
-- do_V2 = dirV2 (mk5V "do" "does" "did" "done" "doing") ;
|
||||
now_Adv = mkAdv "ñåãà" ;
|
||||
already_Adv = mkAdv "âå÷å" ;
|
||||
song_N = mkN050 "ïåñåí" ;
|
||||
number_N = mkN054 "÷èñëî" ;
|
||||
-- put_V2 = prepV2 (irregDuplV "put" "put" "put") noPrep ;
|
||||
stop_V = mkV150 "ñïðà" ;
|
||||
jump_V = mkV176 "ñêî÷à" ;
|
||||
far_Adv = mkAdv "äàëå÷å" ;
|
||||
correct_A = mkA79 "ďđŕâčëĺí" ;
|
||||
dry_A = mkA76 "ńóő" ;
|
||||
correct_A = mkA079 "ïðàâèëåí" ;
|
||||
dry_A = mkA076 "ñóõ" ;
|
||||
-- dull_A = regA "dull" ;
|
||||
full_A = mkA79 "ďúëĺí" ;
|
||||
heavy_A = mkA80 "ňĺćúę" ;
|
||||
near_A = mkA80 "áëčçúę" ;
|
||||
full_A = mkA079 "ïúëåí" ;
|
||||
heavy_A = mkA080 "òåæúê" ;
|
||||
near_A = mkA080 "áëèçúê" ;
|
||||
-- rotten_A = (regA "rotten") ;
|
||||
round_A = mkA80 "ęđúăúë" ;
|
||||
sharp_A = mkA80 "îńňúđ" ;
|
||||
round_A = mkA080 "êðúãúë" ;
|
||||
sharp_A = mkA080 "îñòúð" ;
|
||||
-- smooth_A = regA "smooth" ;
|
||||
-- straight_A = regA "straight" ;
|
||||
wet_A = mkA80 "ěîęúđ" ; ----
|
||||
wide_A = mkA76 "řčđîę" ;
|
||||
wet_A = mkA080 "ìîêúð" ; ----
|
||||
wide_A = mkA076 "øèðîê" ;
|
||||
animal_N = mkN062 "æèâîòíî" ;
|
||||
belly_N = mkN007 "êîðåì" ;
|
||||
blood_N = mkN053 "êðúâ" ;
|
||||
bone_N = mkN049 "êîñò" ;
|
||||
cloud_N = mkN014 "îáëàê" ;
|
||||
day_N = mkN033 "äåí" ;
|
||||
earth_N = mkN047 "çåìÿ" ;
|
||||
egg_N = mkN066 "ÿéöå" ;
|
||||
eye_N = mkN063 "îêî" ;
|
||||
fat_N = mkN041 "fat" ;
|
||||
feather_N = mkN038 "áàùà" ;
|
||||
fire_N = mkN030 "îãúí" ;
|
||||
flower_N = mkN068 "öâåòå" ;
|
||||
fog_N = mkN041 "ìúãëà" ;
|
||||
foot_N = mkN041 "ñòúïêà" ;
|
||||
forest_N = mkN041 "ãîðà" ;
|
||||
grass_N = mkN041 "òðåâà" ;
|
||||
hair_N = mkN041 "êîñà" ;
|
||||
hand_N = mkN045 "ðúêà" ;
|
||||
head_N = mkN041 "ãëàâà" ;
|
||||
heart_N = mkN066 "ñúðöå" ;
|
||||
horn_N = mkN001 "ðîã" ;
|
||||
husband_N = mkN015 "ñúïðóã" ; -- personal
|
||||
ice_N = mkN001 "ëåä" ;
|
||||
-- knee_N = mkN "knee" ;
|
||||
leaf_N = mkN054 "ëèñòî" ;
|
||||
leg_N = mkN022 "êðàê" ;
|
||||
-- liver_N = mkN "liver" ;
|
||||
-- louse_N = mk2N "louse" "lice" ;
|
||||
-- mouth_N = mkN "mouth" ;
|
||||
name_N = mkN069 "èìå" ;
|
||||
neck_N = mkN003 "ãðúá" ;
|
||||
night_N = mkN049 "íîù" ;
|
||||
-- nose_N = mkN "nose" ;
|
||||
person_N = mkN014 "÷îâåê" ;
|
||||
rain_N = mkN001 "äúæä" ;
|
||||
road_N = mkN037 "ïúò" ;
|
||||
root_N = mkN007 "êîðåí" ;
|
||||
rope_N = mkN065 "âúæå" ;
|
||||
salt_N = mkN049 "ñîë" ;
|
||||
sand_N = mkN014 "ïÿñúê" ;
|
||||
seed_N = mkN069 "ñåìå" ;
|
||||
skin_N = mkN041 "êîæà" ;
|
||||
sky_N = mkN070 "íåáå" ;
|
||||
smoke_N = mkN014 "ïóøåê" ;
|
||||
snow_N = mkN002 "ñíÿã" ;
|
||||
-- stick_N = mkN "stick" ;
|
||||
tail_N = mkN041 "îïàøêà" ;
|
||||
tongue_N = mkN014 "åçèê" ;
|
||||
tooth_N = mkN007 "çúá" ;
|
||||
wife_N = mkN041 "ñúïðóãà" ;
|
||||
wind_N = mkN004 "âÿòúð" ;
|
||||
wing_N = mkN056 "êðèëî" ;
|
||||
worm_N = mkN032 "÷åðâåé" ;
|
||||
year_N = mkN041 "ãîäèíà" ;
|
||||
-- blow_V = IrregEng.blow_V ;
|
||||
-- breathe_V = dirV2 (regV "breathe") ;
|
||||
burn_V = mkV187 "èçãàðÿì" ;
|
||||
@@ -151,10 +317,15 @@ lin
|
||||
wash_V2 = dirV2 (mkV163 "ìèÿ") ;
|
||||
-- wipe_V2 = dirV2 (regV "wipe") ;
|
||||
|
||||
grammar_N = mkN041 "ãðàìàòèêà" ;
|
||||
language_N = mkN014 "åçèê" ;
|
||||
rule_N = mkN054 "ïðàâèëî" ;
|
||||
|
||||
john_PN = mkPN "Äæîí" Masc ;
|
||||
ready_A = mkA76 "ăîňîâ" ;
|
||||
question_N = mkN007 "âúïðîñ" ;
|
||||
ready_A = mkA076 "ãîòîâ" ;
|
||||
today_Adv = mkAdv "äíåñ" ;
|
||||
uncertain_A = mkA79 "íĺ˙ńĺí" ;
|
||||
uncertain_A = mkA079 "íåÿñåí" ;
|
||||
|
||||
oper
|
||||
zaP = mkPrep "çà" Acc ;
|
||||
|
||||
@@ -8,7 +8,11 @@
|
||||
-- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which
|
||||
-- gives a higher-level access to this module.
|
||||
|
||||
resource MorphoBul = ResBul ** open Prelude, (Predef=Predef) in {
|
||||
resource MorphoBul = ResBul ** open
|
||||
Predef,
|
||||
Prelude,
|
||||
CatBul
|
||||
in {
|
||||
|
||||
flags optimize=all ;
|
||||
|
||||
@@ -31,4 +35,145 @@ oper
|
||||
spec = Indef
|
||||
} ;
|
||||
|
||||
|
||||
--2 Verbs
|
||||
|
||||
mkVerb : (_,_,_,_,_,_,_,_,_:Str) -> V =
|
||||
\cheta,chete,chetoh,chetqh,chel,chetql,cheten,chetqst,cheti -> {
|
||||
s = table {
|
||||
VPres Sg P1 => cheta;
|
||||
VPres Sg P2 => chete + "ø";
|
||||
VPres Sg P3 => chete;
|
||||
VPres Pl P1 => case chete of {
|
||||
_ + ("à"|"ÿ") => chete + "ìå";
|
||||
_ => chete + "ì"
|
||||
};
|
||||
VPres Pl P2 => chete + "òå";
|
||||
VPres Pl P3 => case cheta of {
|
||||
vika + "ì" => case chete of {
|
||||
dad + "å" => dad + "àò";
|
||||
vika => vika + "ò"
|
||||
};
|
||||
_ => cheta + "ò"
|
||||
};
|
||||
VAorist Sg P1 => chetoh;
|
||||
VAorist Sg _ => case chetoh of {
|
||||
chet+"îõ" => chete;
|
||||
zova+ "õ" => zova
|
||||
};
|
||||
VAorist Pl P1 => chetoh + "ìå";
|
||||
VAorist Pl P2 => chetoh + "òå";
|
||||
VAorist Pl P3 => chetoh + "à";
|
||||
VImperfect Sg P1 => chetqh;
|
||||
VImperfect Sg _ => case chete of {
|
||||
rabot + "è" => rabot + "eøå";
|
||||
_ => chete + "øå"
|
||||
};
|
||||
VImperfect Pl P1 => chetqh + "ìå";
|
||||
VImperfect Pl P2 => chetqh + "òå";
|
||||
VImperfect Pl P3 => chetqh + "à";
|
||||
VPerfect aform =>let chel1 : Str =
|
||||
case chel of {
|
||||
pas+"úë" => pas+"ë";
|
||||
_ => chel
|
||||
}
|
||||
in (mkAdjective chel
|
||||
(chel+"èÿ")
|
||||
(chel+"èÿò")
|
||||
(chel1+"a")
|
||||
(chel1+"àòà")
|
||||
(chel1+"î")
|
||||
(chel1+"îòî")
|
||||
(ia2e chel1+"è")
|
||||
(ia2e chel1+"èòå")).s ! aform ;
|
||||
VPluPerfect aform => regAdjective chetql ! aform ;
|
||||
VPassive aform => regAdjective cheten ! aform ;
|
||||
VPresPart aform => regAdjective chetqst ! aform ;
|
||||
VImperative Sg => cheti;
|
||||
VImperative Pl => case cheti of {
|
||||
chet + "è" => chet + "åòå";
|
||||
ela => ela + "òå"
|
||||
};
|
||||
VGerund => case chete of {
|
||||
rabot + "è" => rabot + "åéêè";
|
||||
_ => chete + "éêè"
|
||||
}
|
||||
} ;
|
||||
vtype = VNormal ;
|
||||
lock_V = <>
|
||||
} ;
|
||||
|
||||
|
||||
--2 Nouns
|
||||
|
||||
mkNoun : Str -> Str -> Str -> Str -> DGender -> N = \sg,pl,count,voc,g -> {
|
||||
s = table {
|
||||
NF Sg Indef => sg ;
|
||||
NF Sg Def => case sg of {
|
||||
_+"à"=>sg+"òà" ;
|
||||
_+"ÿ"=>sg+"òà" ;
|
||||
_+"î"=>sg+"òî" ;
|
||||
_+"å"=>sg+"òî" ;
|
||||
_+"è"=>sg+"òî" ;
|
||||
s+"é"=>s +"ÿ" ;
|
||||
_+("òåë"|"àð"|"ÿð"|"äåí"
|
||||
|"ïúò"|"îãúí"|"ñúí"
|
||||
|"êîí"|"êðàë"|"öàð"
|
||||
|"çåò"|"ëàêúò"|"íîêúò")
|
||||
=>sg +"ÿ" ;
|
||||
_ =>case g of {
|
||||
DFem => sg+"òà" ;
|
||||
_ => sg+"à"
|
||||
}
|
||||
} ;
|
||||
NF Pl Indef => pl ;
|
||||
NF Pl Def => case pl of {
|
||||
_+"à"=>pl+"òà" ;
|
||||
_+"å"=>pl+"òå" ;
|
||||
_+"è"=>pl+"òå" ;
|
||||
s+"ÿ"=>s +"òà" ;
|
||||
s =>s +"òå"
|
||||
} ;
|
||||
NFSgDefNom => case sg of {
|
||||
_+"à"=>sg+"òà" ;
|
||||
_+"ÿ"=>sg+"òà" ;
|
||||
_+"î"=>sg+"òî" ;
|
||||
_+"å"=>sg+"òî" ;
|
||||
_+"è"=>sg+"òî" ;
|
||||
s+"é"=>s +"ÿò" ;
|
||||
_+("òåë"|"àð"|"ÿð"|"äåí"
|
||||
|"ïúò"|"îãúí"|"ñúí"
|
||||
|"êîí"|"êðàë"|"öàð"
|
||||
|"çåò"|"ëàêúò"|"íîêúò")
|
||||
=>sg+"ÿò" ;
|
||||
_ =>case g of {
|
||||
DFem => sg+"òà" ;
|
||||
_ => sg+"úò"
|
||||
}
|
||||
} ;
|
||||
NFPlCount => count ;
|
||||
NFVocative => voc
|
||||
} ;
|
||||
g = g ;
|
||||
lock_N = <>
|
||||
} ;
|
||||
|
||||
|
||||
--2 Adjectives
|
||||
|
||||
mkAdjective : (_,_,_,_,_,_,_,_,_ : Str) -> A =
|
||||
\dobyr,dobria,dobriat,dobra,dobrata,dobro,dobroto,dobri,dobrite -> {
|
||||
s = table {
|
||||
ASg Masc Indef => dobyr ;
|
||||
ASg Masc Def => dobria ;
|
||||
ASgMascDefNom => dobriat ;
|
||||
ASg Fem Indef => dobra ;
|
||||
ASg Fem Def => dobrata ;
|
||||
ASg Neut Indef => dobro ;
|
||||
ASg Neut Def => dobroto ;
|
||||
APl Indef => dobri ;
|
||||
APl Def => dobrite
|
||||
} ;
|
||||
lock_A = <>
|
||||
} ;
|
||||
}
|
||||
99
lib/resource/bulgarian/MorphoFunsBul.gf
Normal file
99
lib/resource/bulgarian/MorphoFunsBul.gf
Normal file
@@ -0,0 +1,99 @@
|
||||
--# -path=.:../abstract:../../prelude:../common
|
||||
|
||||
resource MorphoFunsBul = open
|
||||
Prelude,
|
||||
CatBul,
|
||||
MorphoBul
|
||||
in {
|
||||
|
||||
oper
|
||||
--2 Adverbs
|
||||
|
||||
-- Adverbs are not inflected. Most lexical ones have position
|
||||
-- after the verb. Some can be preverbal (e.g. "always").
|
||||
|
||||
mkAdv : Str -> Adv = \x -> ss x ** {lock_Adv = <>} ;
|
||||
mkAdV : Str -> AdV = \x -> ss x ** {lock_AdV = <>} ;
|
||||
|
||||
-- Adverbs modifying adjectives and sentences can also be formed.
|
||||
|
||||
mkAdA : Str -> AdA = \x -> ss x ** {lock_AdA = <>} ;
|
||||
|
||||
|
||||
--2 Two-place adjectives
|
||||
--
|
||||
-- Two-place adjectives need a preposition for their second argument.
|
||||
|
||||
mkA2 : A -> Prep -> A2 ;
|
||||
mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ;
|
||||
|
||||
|
||||
--2 Verbs
|
||||
--
|
||||
|
||||
reflV : V -> Case -> V ;
|
||||
reflV v c = {s = v.s; vtype = VMedial c; lock_V=<>} ;
|
||||
|
||||
phrasalV : V -> Case -> V ;
|
||||
phrasalV v c = {s = v.s; vtype = VPhrasal c; lock_V=<>} ;
|
||||
|
||||
|
||||
--3 Two-place verbs
|
||||
--
|
||||
|
||||
prepV2 : V -> Prep -> V2 ;
|
||||
prepV2 v p = {s = v.s; c2 = p; vtype = v.vtype; lock_V2 = <>} ;
|
||||
|
||||
dirV2 : V -> V2 ;
|
||||
dirV2 v = prepV2 v noPrep ;
|
||||
|
||||
|
||||
--3 Three-place verbs
|
||||
--
|
||||
-- Three-place (ditransitive) verbs need two prepositions, of which
|
||||
-- the first one or both can be absent.
|
||||
|
||||
mkV3 : V -> Prep -> Prep -> V3 ; -- speak, with, about
|
||||
mkV3 v p q = {s = v.s; s1 = v.s1; c2 = p; c3 = q; vtype = v.vtype; lock_V3 = <>} ;
|
||||
|
||||
dirV3 : V -> Prep -> V3 ; -- give,_,to
|
||||
dirV3 v p = mkV3 v noPrep p ;
|
||||
|
||||
dirdirV3 : V -> V3 ; -- give,_,_
|
||||
dirdirV3 v = dirV3 v noPrep ;
|
||||
|
||||
|
||||
--3 Other verbs
|
||||
--
|
||||
|
||||
mkVS : V -> VS ;
|
||||
mkVS v = v ** {lock_VS = <>} ;
|
||||
|
||||
mkVV : V -> VV ;
|
||||
mkVV v = v ** {lock_VV = <>} ;
|
||||
|
||||
mkVA : V -> VA ;
|
||||
mkVA v = v ** {lock_VA = <>} ;
|
||||
|
||||
|
||||
--2 Prepositions
|
||||
--
|
||||
-- A preposition as used for rection in the lexicon, as well as to
|
||||
-- build $PP$s in the resource API, just requires a string.
|
||||
|
||||
mkPrep : Str -> Case -> Prep = \p,c -> {s = p; c = c; lock_Prep = <>} ;
|
||||
noPrep : Prep = mkPrep [] Acc ;
|
||||
|
||||
|
||||
--2 Proper Names
|
||||
--
|
||||
mkPN : Str -> Gender -> PN ;
|
||||
mkPN s g = {s = s; g = g ; lock_PN = <>} ;
|
||||
|
||||
|
||||
--2 IAdv
|
||||
--
|
||||
|
||||
mkIAdv : Str -> IAdv ;
|
||||
mkIAdv s = {s1 = s; s2 = s + "òî"; lock_IAdv = <>} ;
|
||||
}
|
||||
@@ -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
|
||||
} ;
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -281,10 +281,10 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
VImperfect Pl P1 => "áÿõìå" ++ se ;
|
||||
VImperfect Pl P2 => "áÿõòå" ++ se ;
|
||||
VImperfect Pl P3 => "áÿõà" ++ se ;
|
||||
VPerfect aform => (regAdjective "áèë").s ! aform ++ se ;
|
||||
VPluPerfect aform => (regAdjective "áèë").s ! aform ++ se ;
|
||||
VPassive aform => (regAdjective "áúäåí").s ! aform ++ se ;
|
||||
VPresPart aform => (regAdjective "áúäåù").s ! aform ++ se ;
|
||||
VPerfect aform => regAdjective "áèë" ! aform ++ se ;
|
||||
VPluPerfect aform => regAdjective "áèë" ! aform ++ se ;
|
||||
VPassive aform => regAdjective "áúäåí" ! aform ++ se ;
|
||||
VPresPart aform => regAdjective "áúäåù" ! aform ++ se ;
|
||||
VImperative Sg => "áúäè" ++ se ;
|
||||
VImperative Pl => "áúäåòå" ++ se ;
|
||||
VGerund => "áèäåéêè" ++ se
|
||||
@@ -308,10 +308,10 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
VImperfect Pl P1 => "áúäåõìå" ++ se ;
|
||||
VImperfect Pl P2 => "áúäåõòå" ++ se ;
|
||||
VImperfect Pl P3 => "áúäåõà" ++ se ;
|
||||
VPerfect aform => (regAdjective "áèë").s ! aform ++ se ;
|
||||
VPluPerfect aform => (regAdjective "áúäåë").s ! aform ++ se ;
|
||||
VPassive aform => (regAdjective "áúäåí").s ! aform ++ se ;
|
||||
VPresPart aform => (regAdjective "áúäåù").s ! aform ++ se ;
|
||||
VPerfect aform => regAdjective "áèë" ! aform ++ se ;
|
||||
VPluPerfect aform => regAdjective "áúäåë" ! aform ++ se ;
|
||||
VPassive aform => regAdjective "áúäåí" ! aform ++ se ;
|
||||
VPresPart aform => regAdjective "áúäåù" ! aform ++ se ;
|
||||
VImperative Sg => "áúäè" ++ se ;
|
||||
VImperative Pl => "áúäåòå" ++ se ;
|
||||
VGerund => "áúäåéêè" ++ se
|
||||
@@ -364,95 +364,18 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
_ => s
|
||||
};
|
||||
|
||||
mkAdjective : (_,_,_,_,_,_,_,_,_ : Str) -> {s : AForm => Str} =
|
||||
\dobyr,dobria,dobriat,dobra,dobrata,dobro,dobroto,dobri,dobrite -> {
|
||||
s = table {
|
||||
ASg Masc Indef => dobyr ;
|
||||
ASg Masc Def => dobria ;
|
||||
ASgMascDefNom => dobriat ;
|
||||
ASg Fem Indef => dobra ;
|
||||
ASg Fem Def => dobrata ;
|
||||
ASg Neut Indef => dobro ;
|
||||
ASg Neut Def => dobroto ;
|
||||
APl Indef => dobri ;
|
||||
APl Def => dobrite
|
||||
}
|
||||
} ;
|
||||
|
||||
regAdjective : Str -> {s : AForm => Str} =
|
||||
\base -> mkAdjective base
|
||||
(base+"èÿ")
|
||||
(base+"èÿò")
|
||||
(base+"a")
|
||||
(base+"àòà")
|
||||
(base+"î")
|
||||
(base+"îòî")
|
||||
(ia2e base+"è")
|
||||
(ia2e base+"èòå") ;
|
||||
|
||||
mkVerb : (_,_,_,_,_,_,_,_,_:Str) -> Verb =
|
||||
\cheta,chete,chetoh,chetqh,chel,chetql,cheten,chetqst,cheti -> {
|
||||
s = table {
|
||||
VPres Sg P1 => cheta;
|
||||
VPres Sg P2 => chete + "ø";
|
||||
VPres Sg P3 => chete;
|
||||
VPres Pl P1 => case chete of {
|
||||
_ + ("à"|"ÿ") => chete + "ìå";
|
||||
_ => chete + "ì"
|
||||
};
|
||||
VPres Pl P2 => chete + "òå";
|
||||
VPres Pl P3 => case cheta of {
|
||||
vika + "ì" => case chete of {
|
||||
dad + "å" => dad + "àò";
|
||||
vika => vika + "ò"
|
||||
};
|
||||
_ => cheta + "ò"
|
||||
};
|
||||
VAorist Sg P1 => chetoh;
|
||||
VAorist Sg _ => case chetoh of {
|
||||
chet+"îõ" => chete;
|
||||
zova+ "õ" => zova
|
||||
};
|
||||
VAorist Pl P1 => chetoh + "ìå";
|
||||
VAorist Pl P2 => chetoh + "òå";
|
||||
VAorist Pl P3 => chetoh + "à";
|
||||
VImperfect Sg P1 => chetqh;
|
||||
VImperfect Sg _ => case chete of {
|
||||
rabot + "è" => rabot + "eøå";
|
||||
_ => chete + "øå"
|
||||
};
|
||||
VImperfect Pl P1 => chetqh + "ìå";
|
||||
VImperfect Pl P2 => chetqh + "òå";
|
||||
VImperfect Pl P3 => chetqh + "à";
|
||||
VPerfect aform =>let chel1 : Str =
|
||||
case chel of {
|
||||
pas+"úë" => pas+"ë";
|
||||
_ => chel
|
||||
}
|
||||
in (mkAdjective chel
|
||||
(chel+"èÿ")
|
||||
(chel+"èÿò")
|
||||
(chel1+"a")
|
||||
(chel1+"àòà")
|
||||
(chel1+"î")
|
||||
(chel1+"îòî")
|
||||
(ia2e chel1+"è")
|
||||
(ia2e chel1+"èòå")).s ! aform ;
|
||||
VPluPerfect aform => (regAdjective chetql ).s ! aform ;
|
||||
VPassive aform => (regAdjective cheten ).s ! aform ;
|
||||
VPresPart aform => (regAdjective chetqst).s ! aform ;
|
||||
VImperative Sg => cheti;
|
||||
VImperative Pl => case cheti of {
|
||||
chet + "è" => chet + "åòå";
|
||||
ela => ela + "òå"
|
||||
};
|
||||
VGerund => case chete of {
|
||||
rabot + "è" => rabot + "åéêè";
|
||||
_ => chete + "éêè"
|
||||
}
|
||||
} ;
|
||||
vtype = VNormal
|
||||
} ;
|
||||
regAdjective : Str -> AForm => Str =
|
||||
\base -> table {
|
||||
ASg Masc Indef => base ;
|
||||
ASg Masc Def => (base+"èÿ") ;
|
||||
ASgMascDefNom => (base+"èÿò") ;
|
||||
ASg Fem Indef => (base+"a") ;
|
||||
ASg Fem Def => (base+"àòà") ;
|
||||
ASg Neut Indef => (base+"î") ;
|
||||
ASg Neut Def => (base+"îòî") ;
|
||||
APl Indef => (ia2e base+"è") ;
|
||||
APl Def => (ia2e base+"èòå")
|
||||
};
|
||||
|
||||
-- For $Sentence$.
|
||||
|
||||
@@ -497,15 +420,17 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
NCard dg => digitGenderSpecies dva dvama dve ! dg ;
|
||||
NOrd aform => let vtora = init vtori + "à" ;
|
||||
vtoro = init vtori + "î"
|
||||
in (mkAdjective vtori
|
||||
(vtori+"ÿ")
|
||||
(vtori+"ÿò")
|
||||
vtora
|
||||
(vtora+"òà")
|
||||
vtoro
|
||||
(vtoro+"òî")
|
||||
vtori
|
||||
(vtori+"òå")).s ! aform
|
||||
in case aform of {
|
||||
ASg Masc Indef => vtori ;
|
||||
ASg Masc Def => vtori+"ÿ" ;
|
||||
ASgMascDefNom => vtori+"ÿò" ;
|
||||
ASg Fem Indef => vtora ;
|
||||
ASg Fem Def => vtora+"òà" ;
|
||||
ASg Neut Indef => vtoro ;
|
||||
ASg Neut Def => vtoro+"òî" ;
|
||||
APl Indef => vtori ;
|
||||
APl Def => vtori+"òå"
|
||||
}
|
||||
} ;
|
||||
|
||||
digitGenderSpecies : Str -> Str -> Str -> DGenderSpecies => Str =
|
||||
@@ -548,7 +473,17 @@ resource ResBul = ParamX ** open Prelude in {
|
||||
RObj Dat => mi ;
|
||||
RVoc => az
|
||||
} ;
|
||||
gen = (mkAdjective moj moia moiat moia_ moiata moe moeto moi moite).s ;
|
||||
gen = table {
|
||||
ASg Masc Indef => moj ;
|
||||
ASg Masc Def => moia ;
|
||||
ASgMascDefNom => moiat ;
|
||||
ASg Fem Indef => moia_ ;
|
||||
ASg Fem Def => moiata ;
|
||||
ASg Neut Indef => moe ;
|
||||
ASg Neut Def => moeto ;
|
||||
APl Indef => moi ;
|
||||
APl Def => moite
|
||||
} ;
|
||||
a = {
|
||||
gn = gn ;
|
||||
p = p
|
||||
|
||||
@@ -1,644 +0,0 @@
|
||||
resource VerbParadigmsBul = open
|
||||
(Predef=Predef),
|
||||
Prelude,
|
||||
MorphoBul,
|
||||
CatBul
|
||||
in {
|
||||
oper
|
||||
mkV142 : Str -> V ;
|
||||
mkV142 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"ńúě")
|
||||
(stem+"ĺ")
|
||||
(stem+"á˙ő")
|
||||
(stem+"á˙ő")
|
||||
(stem+"áčë")
|
||||
(stem+"áčë")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
(stem+"áúäč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV143 : Str -> V ;
|
||||
mkV143 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"úäŕ")
|
||||
(stem+"úäĺ")
|
||||
(stem+"čő, čäîő")
|
||||
(stem+"úäĺő, ˙ő")
|
||||
(stem+"čë")
|
||||
(stem+"úäĺë")
|
||||
(stem+"-")
|
||||
(stem+"úäĺů")
|
||||
(stem+"úäč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV144 : Str -> V ;
|
||||
mkV144 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV145 : Str -> V ;
|
||||
mkV145 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"îő")
|
||||
(stem+"˙ő")
|
||||
(init stem+"ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"ĺí")
|
||||
(stem+"˙ů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV145a : Str -> V ;
|
||||
mkV145a base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ńŕ")
|
||||
(stem+"ńĺ")
|
||||
(stem+"ńîő")
|
||||
(stem+"ń˙ő")
|
||||
(stem+"ńúë")
|
||||
(stem+"ń˙ë")
|
||||
(stem+"ńĺí")
|
||||
(stem+"ń˙ů")
|
||||
(stem+"ńč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV145b : Str -> V ;
|
||||
mkV145b base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ňŕ")
|
||||
(stem+"ňĺ")
|
||||
(stem+"ňîő")
|
||||
(stem+"ň˙ő")
|
||||
(stem+"úë")
|
||||
(stem+"ň˙ë")
|
||||
(stem+"-")
|
||||
(stem+"ň˙ů")
|
||||
(stem+"ňč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV146 : Str -> V ;
|
||||
mkV146 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"äŕ")
|
||||
(stem+"äĺ")
|
||||
(stem+"äîő")
|
||||
(stem+"äĺő")
|
||||
(stem+"řúë")
|
||||
(stem+"äĺë")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
(stem+"äč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV146a : Str -> V ;
|
||||
mkV146a base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"éäŕ")
|
||||
(stem+"éäĺ")
|
||||
(stem+"éäîő")
|
||||
(stem+"éäĺő")
|
||||
(stem+"řúë")
|
||||
(stem+"éäĺë")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
(stem+"éäč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV147 : Str -> V ;
|
||||
mkV147 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"˙çŕ")
|
||||
(stem+"ĺçĺ")
|
||||
(stem+"˙çîő")
|
||||
(stem+"ĺçĺő")
|
||||
(stem+"˙çúë")
|
||||
(stem+"ĺçĺë")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
(stem+"ĺç")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV148 : Str -> V ;
|
||||
mkV148 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ęŕ")
|
||||
(stem+"÷ĺ")
|
||||
(stem+"ęîő")
|
||||
(stem+"÷ĺő")
|
||||
(stem+"ęúë")
|
||||
(stem+"÷ĺë")
|
||||
(stem+"÷ĺí")
|
||||
(stem+"÷ŕů")
|
||||
(stem+"÷č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV149 : Str -> V ;
|
||||
mkV149 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"ĺęŕ")
|
||||
(stem+"ĺ÷ĺ")
|
||||
(stem+"˙ęîő")
|
||||
(stem+"ĺ÷ĺő")
|
||||
(stem+"˙ęúë")
|
||||
(stem+"ĺ÷ĺë")
|
||||
(stem+"ĺ÷ĺí")
|
||||
(stem+"-")
|
||||
(stem+"ĺ÷č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV150 : Str -> V ;
|
||||
mkV150 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙í")
|
||||
(stem+"-")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV150a : Str -> V ;
|
||||
mkV150a base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"-")
|
||||
(stem+"-")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV151 : Str -> V ;
|
||||
mkV151 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"ŕő")
|
||||
(stem+"˙ő")
|
||||
(stem+"ŕë")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ů")
|
||||
(stem+"ŕí")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV152 : Str -> V ;
|
||||
mkV152 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"ŕő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ŕë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ŕň")
|
||||
(stem+"-")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV152a : Str -> V ;
|
||||
mkV152a base = let stem = (init (init (init (init base))))
|
||||
in mkVerb (stem+"˙ăíŕ")
|
||||
(stem+"ĺăíĺ")
|
||||
(stem+"˙ăíŕő")
|
||||
(stem+"˙ăíĺő")
|
||||
(stem+"˙ăíŕë")
|
||||
(stem+"˙ăíĺë")
|
||||
(stem+"˙ăíŕň")
|
||||
(stem+"-")
|
||||
(stem+"ĺăíč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV153 : Str -> V ;
|
||||
mkV153 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"˙íŕ")
|
||||
(stem+"ĺíĺ")
|
||||
(stem+"˙íŕő")
|
||||
(stem+"ĺíĺő")
|
||||
(stem+"˙íŕë")
|
||||
(stem+"ĺíĺë")
|
||||
(stem+"˙íŕň")
|
||||
(stem+"-")
|
||||
(stem+"ĺíč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV154 : Str -> V ;
|
||||
mkV154 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"ĺ")
|
||||
(stem+"ŕő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ŕë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ŕí")
|
||||
(stem+"ĺů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV155 : Str -> V ;
|
||||
mkV155 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"÷ŕ")
|
||||
(stem+"÷ĺ")
|
||||
(stem+"ęŕő")
|
||||
(stem+"÷ĺő")
|
||||
(stem+"ęŕë")
|
||||
(stem+"÷ĺë")
|
||||
(stem+"-")
|
||||
(stem+"÷ĺů")
|
||||
(stem+"÷č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV156 : Str -> V ;
|
||||
mkV156 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ćŕ")
|
||||
(stem+"ćĺ")
|
||||
(stem+"çŕő")
|
||||
(stem+"ćĺő")
|
||||
(stem+"çŕë")
|
||||
(stem+"ćĺë")
|
||||
(stem+"çŕí")
|
||||
(stem+"-")
|
||||
(stem+"ćč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV157 : Str -> V ;
|
||||
mkV157 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"ĺćŕ")
|
||||
(stem+"ĺćĺ")
|
||||
(stem+"˙çŕő")
|
||||
(stem+"ĺćĺő")
|
||||
(stem+"˙çŕë")
|
||||
(stem+"ĺćĺë")
|
||||
(stem+"˙çŕí")
|
||||
(stem+"ĺćĺů")
|
||||
(stem+"ĺćč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV158 : Str -> V ;
|
||||
mkV158 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ćŕ")
|
||||
(stem+"ćĺ")
|
||||
(stem+"ăŕő")
|
||||
(stem+"ćĺő")
|
||||
(stem+"ăŕë")
|
||||
(stem+"ćĺë")
|
||||
(stem+"ăŕí")
|
||||
(stem+"ćĺů")
|
||||
(stem+"ćč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV159 : Str -> V ;
|
||||
mkV159 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"řŕ")
|
||||
(stem+"řĺ")
|
||||
(stem+"ńŕő")
|
||||
(stem+"řĺő")
|
||||
(stem+"ńŕë")
|
||||
(stem+"řĺë")
|
||||
(stem+"ńŕí")
|
||||
(stem+"řĺů")
|
||||
(stem+"řč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV160 : Str -> V ;
|
||||
mkV160 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ĺ˙")
|
||||
(stem+"ĺĺ")
|
||||
(stem+"˙ő")
|
||||
(stem+"ĺĺő")
|
||||
(stem+"˙ë")
|
||||
(stem+"ĺĺë")
|
||||
(stem+"˙í")
|
||||
(stem+"ĺĺů")
|
||||
(stem+"ĺé")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV160a : Str -> V ;
|
||||
mkV160a base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ĺ˙")
|
||||
(stem+"ĺĺ")
|
||||
(stem+"ŕő")
|
||||
(stem+"ĺĺő")
|
||||
(stem+"ŕë")
|
||||
(stem+"ĺĺë")
|
||||
(stem+"ŕí")
|
||||
(stem+"ĺĺů")
|
||||
(stem+"ĺé")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV161 : Str -> V ;
|
||||
mkV161 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"ĺ")
|
||||
(stem+"ő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ë")
|
||||
(stem+"ĺë")
|
||||
(stem+"í")
|
||||
(stem+"ĺů")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV161a : Str -> V ;
|
||||
mkV161a base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"ĺ")
|
||||
(stem+"ő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ň")
|
||||
(stem+"ĺů")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV162 : Str -> V ;
|
||||
mkV162 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"ĺ")
|
||||
(stem+"˙ő")
|
||||
(stem+"ĺő")
|
||||
(stem+"˙ë")
|
||||
(stem+"ĺë")
|
||||
(stem+"-")
|
||||
(stem+"ĺů")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV163 : Str -> V ;
|
||||
mkV163 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"ĺ")
|
||||
(stem+"ő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ň")
|
||||
(stem+"ĺů")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV164 : Str -> V ;
|
||||
mkV164 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ĺ˙")
|
||||
(stem+"ĺĺ")
|
||||
(stem+"˙ő")
|
||||
(stem+"ĺĺő")
|
||||
(stem+"˙ë")
|
||||
(stem+"ĺĺë")
|
||||
(stem+"˙ň")
|
||||
(stem+"ĺĺů")
|
||||
(stem+"ĺé")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV165 : Str -> V ;
|
||||
mkV165 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"ĺ")
|
||||
(stem+"ĺő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ĺë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ĺů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV166 : Str -> V ;
|
||||
mkV166 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ăŕ")
|
||||
(stem+"ćĺ")
|
||||
(stem+"ćŕő")
|
||||
(stem+"ćĺő")
|
||||
(stem+"ăúë")
|
||||
(stem+"ćĺë")
|
||||
(stem+"-")
|
||||
(stem+"ćĺů")
|
||||
(stem+"-")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV167 : Str -> V ;
|
||||
mkV167 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ęŕ")
|
||||
(stem+"÷ĺ")
|
||||
(stem+"ęŕő")
|
||||
(stem+"÷ĺő")
|
||||
(stem+"ęŕë")
|
||||
(stem+"÷ĺë")
|
||||
(stem+"ęŕí")
|
||||
(stem+"÷ĺů")
|
||||
(stem+"÷č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV168 : Str -> V ;
|
||||
mkV168 base = let stem = (init base)
|
||||
in mkVerb (stem+"ě")
|
||||
(stem+"äĺ")
|
||||
(stem+"äîő")
|
||||
(stem+"ä˙ő")
|
||||
(stem+"ë")
|
||||
(stem+"ä˙ë")
|
||||
(stem+"äĺí")
|
||||
(stem+"-")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV169 : Str -> V ;
|
||||
mkV169 base = let stem = (init base)
|
||||
in mkVerb (stem+"ě")
|
||||
(stem+"äĺ")
|
||||
(stem+"äîő")
|
||||
(stem+"ä˙ő")
|
||||
(stem+"ë")
|
||||
(stem+"ä˙ë")
|
||||
(stem+"äĺí")
|
||||
(stem+"äĺů")
|
||||
(stem+"ć")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV170 : Str -> V ;
|
||||
mkV170 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"ĺđŕ")
|
||||
(stem+"ĺđĺ")
|
||||
(stem+"đŕő")
|
||||
(stem+"ĺđ˙ő")
|
||||
(stem+"đŕë")
|
||||
(stem+"ĺđ˙ë")
|
||||
(stem+"đŕí")
|
||||
(stem+"ĺđ˙ů")
|
||||
(stem+"ĺđč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV171 : Str -> V ;
|
||||
mkV171 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ěŕ")
|
||||
(stem+"ěĺ")
|
||||
(stem+"ő")
|
||||
(stem+"ěĺő")
|
||||
(stem+"ë")
|
||||
(stem+"ěĺë")
|
||||
(stem+"ň")
|
||||
(stem+"-")
|
||||
(stem+"ěč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV172 : Str -> V ;
|
||||
mkV172 base = let stem = (init (init (init (init base))))
|
||||
in mkVerb (stem+"úëíŕ")
|
||||
(stem+"úëíĺ")
|
||||
(stem+"ëĺő")
|
||||
(stem+"úëíĺő")
|
||||
(stem+"ëĺë")
|
||||
(stem+"úëíĺë")
|
||||
(stem+"úëíŕň")
|
||||
(stem+"úëíĺů")
|
||||
(stem+"úëíč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV173 : Str -> V ;
|
||||
mkV173 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"č")
|
||||
(stem+"čő")
|
||||
(stem+"ĺő")
|
||||
(stem+"čë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ĺí")
|
||||
(stem+"ĺů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV174 : Str -> V ;
|
||||
mkV174 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"č")
|
||||
(stem+"čő")
|
||||
(stem+"˙ő")
|
||||
(stem+"čë")
|
||||
(stem+"˙ë")
|
||||
(stem+"ĺí")
|
||||
(stem+"˙ů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV175 : Str -> V ;
|
||||
mkV175 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"č")
|
||||
(stem+"čő")
|
||||
(stem+"˙ő")
|
||||
(stem+"čë")
|
||||
(stem+"˙ë")
|
||||
(stem+"ĺí")
|
||||
(stem+"˙ů")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV176 : Str -> V ;
|
||||
mkV176 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"č")
|
||||
(stem+"čő")
|
||||
(stem+"ĺő")
|
||||
(stem+"čë")
|
||||
(stem+"ĺë")
|
||||
(stem+"ĺí")
|
||||
(stem+"ĺů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV177 : Str -> V ;
|
||||
mkV177 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"č")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙í")
|
||||
(stem+"˙ů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV178 : Str -> V ;
|
||||
mkV178 base = let stem = (init base)
|
||||
in mkVerb (stem+"ŕ")
|
||||
(stem+"č")
|
||||
(stem+"ŕő")
|
||||
(stem+"ĺő")
|
||||
(stem+"ŕë")
|
||||
(stem+"ĺë")
|
||||
(stem+"-")
|
||||
(stem+"ŕů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV179 : Str -> V ;
|
||||
mkV179 base = let stem = (init (init (init (init base))))
|
||||
in mkVerb (stem+"úđćŕ")
|
||||
(stem+"úđćč")
|
||||
(stem+"úđćŕő")
|
||||
(stem+"úđćĺő")
|
||||
(stem+"úđćŕë")
|
||||
(stem+"úđćĺë")
|
||||
(stem+"úđćŕí")
|
||||
(stem+"úđćŕů")
|
||||
(stem+"đúć")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV180 : Str -> V ;
|
||||
mkV180 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"č")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"-")
|
||||
(stem+"˙ů")
|
||||
(stem+"é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV181 : Str -> V ;
|
||||
mkV181 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ä˙")
|
||||
(stem+"äč")
|
||||
(stem+"ä˙ő")
|
||||
(stem+"äĺő")
|
||||
(stem+"ä˙ë")
|
||||
(stem+"äĺë")
|
||||
(stem+"ä˙í")
|
||||
(stem+"-")
|
||||
(stem+"ć")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV182 : Str -> V ;
|
||||
mkV182 base = let stem = (init base)
|
||||
in mkVerb (stem+"˙")
|
||||
(stem+"č")
|
||||
(stem+"ŕő")
|
||||
(stem+"˙ő")
|
||||
(stem+"ŕë")
|
||||
(stem+"˙ë")
|
||||
(stem+"-")
|
||||
(stem+"˙ů")
|
||||
(stem+"č")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV183 : Str -> V ;
|
||||
mkV183 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"ĺćŕ")
|
||||
(stem+"ĺćč")
|
||||
(stem+"˙çŕő")
|
||||
(stem+"ĺćĺő")
|
||||
(stem+"˙çŕë")
|
||||
(stem+"ĺćĺë")
|
||||
(stem+"˙çŕí")
|
||||
(stem+"ĺćĺů")
|
||||
(stem+"ĺćč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV184 : Str -> V ;
|
||||
mkV184 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"ĺë˙")
|
||||
(stem+"ĺëč")
|
||||
(stem+"ë˙ő")
|
||||
(stem+"ĺëĺő")
|
||||
(stem+"ë˙ë")
|
||||
(stem+"ĺëĺë")
|
||||
(stem+"ë˙í, ë˙ň")
|
||||
(stem+"ĺëĺů")
|
||||
(stem+"ĺëč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV185 : Str -> V ;
|
||||
mkV185 base = let stem = (init (init (init base)))
|
||||
in mkVerb (stem+"îë˙")
|
||||
(stem+"îëč")
|
||||
(stem+"ëŕő")
|
||||
(stem+"îëĺő")
|
||||
(stem+"ëŕë")
|
||||
(stem+"îëĺë")
|
||||
(stem+"ëŕí")
|
||||
(stem+"îëĺů")
|
||||
(stem+"îëč")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV186 : Str -> V ;
|
||||
mkV186 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"ŕě")
|
||||
(stem+"ŕ")
|
||||
(stem+"ŕő")
|
||||
(stem+"ŕő")
|
||||
(stem+"ŕë")
|
||||
(stem+"ŕë")
|
||||
(stem+"ŕí")
|
||||
(stem+"ŕů")
|
||||
(stem+"ŕé")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
mkV187 : Str -> V ;
|
||||
mkV187 base = let stem = (init (init base))
|
||||
in mkVerb (stem+"˙ě")
|
||||
(stem+"˙")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ő")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙ë")
|
||||
(stem+"˙í")
|
||||
(stem+"˙ů")
|
||||
(stem+"˙é")
|
||||
** {s1 = [] ; lock_V = <>} ;
|
||||
}
|
||||
Reference in New Issue
Block a user