--# -path=.:../abstract:../common:../prelude -- Ilona Nowak, Wintersemester 2007/08 -- Adam Slaski, 2009, 2010 concrete LexiconPol of Lexicon = CatPol, LexiconNounPol ** open Prelude, MorphoPol, (PP = ParadigmsPol) in { flags optimize =values ; coding =utf8 ; lin bad_A = mkRegAdj "zły" "gorszy" "źle" "gorzej"; beautiful_A = mkRegAdj "piękny" "piękniejszy" "pięknie" "piękniej"; big_A = mkRegAdj "duży" "większy" "dużo" "więcej"; black_A = mkRegAdj "czarny" "czarniejszy" "czarno" "czarniej"; blue_A = mkCompAdj "niebieski" "niebiesko"; broad_A = mkRegAdj "szeroki" "szerszy" "szeroko" "szerzej"; brown_A = mkCompAdj "brązowy" "brązowo"; correct_A = mkCompAdj "poprawny" "poprawnie"; clean_A = mkRegAdj "czysty" "czystszy" "czysto" "czyściej"; clever_A = mkRegAdj "mądry" "mądrzejszy" "mądrze" "mądrzej"; cold_A = mkRegAdj "zimny" "zimniejszy" "zimno" "zimniej"; dirty_A = mkRegAdj "brudny" "brudniejszy" "brudno" "brudniej"; dry_A = mkRegAdj "suchy" "suchszy" "sucho" "suszej"; dull_A = mkRegAdj "tępy" "tępszy" "tępo" "tępiej"; far_Adv = mkAdv "daleko"; full_A = mkRegAdj "pełny" "pełniejszy" "pełno" "pełniej"; good_A = mkRegAdj "dobry" "lepszy" "dobrze" "lepiej"; green_A = mkRegAdj "zielony" "zieleńszy" "zielono" "zieleniej"; hot_A = mkRegAdj "gorący" "gorętszy" "gorąco" "goręcej"; important_A = mkRegAdj "ważny" "ważniejszy" "ważnie" "ważniej"; long_A = mkRegAdj "długi" "dłuższy" "długo" "dłużej"; narrow_A = mkRegAdj "wąski" "węższy" "wąsko" "węziej"; new_A = mkRegAdj "nowy" "nowszy" "nowo" "nowiej"; old_A = mkRegAdj "stary" "starszy" "staro" "starzej"; red_A = mkRegAdj "czerwony" "czerwieńszy" "czerwono" "czerwieniej"; short_A = mkRegAdj "krótki" "krótszy" "krótko" "krócej"; small_A = mkRegAdj "mały" "mniejszy" "mało" "mniej"; stupid_A = mkRegAdj "głupi" "głupszy" "głupio" "głupiej"; thick_A = mkRegAdj "gruby" "grubszy" "grubo" "grubiej"; thin_A = mkRegAdj "cienki" "cieńszy" "cienko" "cieniej"; today_Adv = mkAdv "dziś"; ugly_A = mkRegAdj "brzydki" "brzydszy" "brzydko" "brzydziej"; warm_A = mkRegAdj "ciepły" "cieplejszy" "ciepło" "cieplej"; white_A = mkRegAdj "biały" "bielszy" "biało" "bielej"; yellow_A = mkRegAdj "żółty" "żółtszy" "żółto" "żółciej"; young_A = mkRegAdj "młody" "młodszy" "młodo" "młodziej"; now_Adv = mkAdv "teraz"; already_Adv = mkAdv "właśnie"; -- fun_AV = mkRegAdj "wesoły"; -- -- easy_A2V = mkRegAdj2 (mkRegAdj "łatwy") "dla" Gen ; empty_A = mkRegAdj "pusty" "puściejszy" "pusto" "puściej"; married_A2 = addComplToAdj ( mkCompAdj "zaślubiony" ) "" Dat; probable_AS = mkRegAdj "możliwy" "możliwszy" "możliwie" "możliwiej"; ready_A = mkCompAdj "gotowy"; uncertain_A = mkCompAdj "niepewny" "niepewnie"; heavy_A = mkRegAdj "ciężki" "cięższy" "ciężko" "ciężej"; near_A = mkRegAdj "bliski" "bliższy" "blisko" "bliżej"; rotten_A = mkCompAdj "zepsuty"; round_A = mkRegAdj "okrągły" "okrąglejszy" "okrągło" "okręglej"; sharp_A = mkRegAdj "ostry" "ostrzejszy" "ostro" "ostrzej"; smooth_A = mkRegAdj "gładki" "gładszy" "gładko" "gładziej"; straight_A = mkRegAdj "prosty" "prostszy" "prosto" "prościej"; wet_A = mkCompAdj "mokry" "mokro"; wide_A = mkRegAdj "szeroki" "szerszy" "szeroko" "szerzej"; distance_N3 = mkN3 distance_N zGenPrep doPrep ; mother_N2 = mkN2 mother_N; brother_N2 = mkN2 brother_N; father_N2 = mkN2 father_N; right_Ord = { s = mkAtable (guess_model "prawy") }; left_Ord = { s = mkAtable (guess_model "lewy") }; rain_V0 = mkItVerb (mkMonoVerb "padać" conj98 Imperfective); wonder_VQ = mkItVerb (mkReflVerb (mkV "zastanawiać" conj98 "zastanowić" conj77a)); fear_VS = mkReflVerb (mkMonoVerb "bać" conjbac Imperfective); hope_VS = mkItVerb (mkComplicatedVerb (mkMonoVerb "mieć" conj100 Imperfective) "nadzieję"); know_VQ = mkMonoVerb "wiedzieć" conj103 Imperfective; know_VS = mkMonoVerb "wiedzieć" conj103 Imperfective; say_VS = mkV "mówić" conj72 "powiedzieć" conj103; become_VA = (mkReflVerb (mkV "stawać" conj57 "stać" conj3)) ** {c={c=Nom;s="";adv=False}}; answer_V2S = mkV2 (mkV "odpowiadać" conj98 "odpowiedzieć" conj103) "" Dat; ask_V2Q = dirV2 (mkV "pytać" conj98 "spytać" conj98); -- beg_V2V = mkV2 (mkV "prosić" conj83 Imperfective) "" "o" Acc Acc; -- no such verb in Polish; beg is V2S paint_V2A = (mkV1 "malować" conj53 "pomalować" conj53) ** ({c={c=Nom;s="na";adv=True}; c2={c=AccNoPrep;s=""}}); add_V3 = mkV3 (mkV "dodawać" conj57 "dodać" conj99) "" "do" Acc Gen; sell_V3 = dirV3 (mkV "sprzedawać" conj57 "sprzedać" conj99); send_V3 = mkV3 (mkV "wysyłać" conj98 "wysłać" conj67 ) "" "do" Acc Gen ; talk_V3 = mkV3 (mkV "rozmawiać" conj98 "porozmawiać" conj98) "z" "о" Instr Loc; give_V3 = mkV3 (mkV "dawać" conj57 "dać" conj99) "" "" Acc Dat; fear_V2 = mkV2 (mkReflVerb (mkMonoVerb "bać" conjbac Imperfective)) "" Gen; hit_V2 = dirV2 (mkV "bić" conj51 "pobić" conj51); cut_V2 = dirV2 (mkV "ciąć" conj23 "pociąć" conj23); pull_V2 = dirV2 (mkV "ciągnąć" conj5 "pociągnąć" conj5); wait_V2 = mkV2 (mkItVerb (mkV "czekać" conj98 "poczekać" conj98)) "na" Acc; read_V2 = dirV2 (mkV "czytać" conj98 "przeczytać" conj98); scratch_V2 = dirV2 (mkV "drapać" conj70 "podrapać" conj70); split_V2 = dirV2 (mkV "dzielić" conj75 "podzielić" conj75); stab_V2 = dirV2 (mkV "dźgać" conj98 "dźgnąć" conj5); play_V2 = {-variants {-} mkV2 (mkItVerb (mkV "grać" conj98 "zagrać" conj98)) "w" Acc; -- mkV2 (mkItVerb (mkV "grać" conj98 "zagrać" conj98)) "na" Loc } ; bite_V2 = dirV2 (mkV "gryźć" conj26a "ugryźć" conj26a); lose_V2 = dirV2 (mkV "gubić" conj72 "zgubić" conj72); eat_V2 = dirV2 (mkV "jeść" conj102 "zjeść" conj102); put_V2 = dirV2 (mkV "kłaść" conj25 "położyć" conj88a); love_V2 = dirV2 (mkMonoVerb "kochać" conj98 Imperfective); buy_V2 = dirV2 (mkV "kupić" conj72 "kupować" conj53); count_V2 = dirV2 (mkV "liczyć" conj87 "policzyć" conj87); like_V2 = dirV2 (mkV "lubić" conj72em "polubić" conj72); break_V2 = dirV2 (mkV "łamać" conj70 "złamać" conj70); wash_V2 = dirV2 (mkV "myć" conj51 "umyć" conj51); hate_V2 = dirV2 (mkV "nienawidzić" conj80 "znienwidzić" conj80); watch_V2 = dirV2 (mkV "oglądać" conj98 "obejrzeć" conj94a); leave_V2 = dirV2 (mkV "opuszczać" conj98 "opuścić" conj84); open_V2 = dirV2 (mkV "otwierać" conj98 "otworzyć" conj88); push_V2 = dirV2 (mkV "pchać" conj98 "pchnąć" conj5); drink_V2 = dirV2 (mkV "pić" conj51 "wypić" conj51); write_V2 = dirV2 (mkV "pisać" conj60 "napisać" conj60); hunt_V2 = mkV2 (mkItVerb (mkMonoVerb "polować" conj53 Imperfective)) "na" Acc; do_V2 = dirV2 (mkV "robić" conj77 "zrobić" conj77); speak_V2 = mkV2 (mkMonoVerb "rozmawiać" conj98 Imperfective) "z" Instr; understand_V2 = dirV2 (mkV "rozumieć" conj101 "zrozumieć" conj101); throw_V2 = dirV2 (mkV "rzucać" conj98 "rzucić" conj81); listen_V2 = dirV2 (mkV "słuchać" conj98 "posłuchać" conj98); hear_V2 = dirV2 (mkV "słyszeć" conj94 "usłyszeć" conj94); suck_V2 = dirV2 (mkMonoVerb "ssać" conj65 Imperfective); seek_V2 = dirV2 (mkMonoVerb "szukać" conj98 Imperfective); wipe_V2 = dirV2 (mkV "wycierać" conj98 "trzeć" conj43); -- strange?!?! squeeze_V2 = dirV2 (mkV "ściskać" conj98 "ścisnąć" conj6); rub_V2 = dirV2 (mkMonoVerb "trzeć" conj43 Imperfective); hold_V2 = dirV2 (mkMonoVerb "trzymać" conj98 Imperfective); learn_V2 = dirV2 (mkReflVerb (mkV "uczyć" conj87 "nauczyć" conj87)); teach_V2 = dirV2 (mkV "uczyć" conj87 "nauczyć" conj87); fight_V2 = mkV2 (mkItVerb (mkMonoVerb "walczyć" conj87 Imperfective)) "z" Instr; tie_V2 = dirV2 (mkMonoVerb "wiązać" conj59 Imperfective); see_V2 = dirV2 (mkV "widzieć" conj92 "zobaczyć" conj87); know_V2 = dirV2 (mkMonoVerb "wiedzieć" conj103 Imperfective); switch8on_V2 = dirV2 (mkV "włączać" conj98 "włączyć" conj87); win_V2 = dirV2 (mkV "wygrywać" conj98 "wygrać" conj98); switch8off_V2 = dirV2 (mkV "wyłączać" conj98 "wyłączyć" conj87); kill_V2 = dirV2 (mkV "zabijać" conj98 "zabić" conj51); close_V2 = dirV2 (mkV "zamknąć" conj5 "zamykać" conj98); forget_V2 = dirV2 (mkV "zapominać" conj98 "zapomnieć" conj91); find_V2 = dirV2 (mkV "znaleźć" conj40 "znajdywać" conj54); run_V = mkV1 "biec" conj15 "pobiec" conj15; smell_V = mkV1 "czuć" conj51 "poczuć" conj51; blow_V = mkV1 "dmuchać" conj98 "dmuchnąć" conj5; float_V = mkV1 "dryfować" conj53 "zdryfować" conj53; play_V = mkV1 "grać" conj98 "zagrać" conj98; go_V = mkV1 "iść" conj41a "pójść" conj42; lie_V = mkV1 "kłamać" conj70 "skłamać" conj70; dig_V = mkV1 "wykopywać" conj54 "wykopać" conj70; -- fly_V = mkMonoVerb "latać" conj98 Imperfective; think_V = mkV1 "myśleć" conj90 "pomyśleć" conj90; turn_V = mkReflVerb (mkV1 "obracać" conj98 "obrócić" conj81); breathe_V = mkV1 "oddychać" conj98 "odetchnąć" conj5; burn_V = mkMonoVerb "palić" conj75 Imperfective; spit_V = mkV1 "pluć" conj51 "plunąć" conj4; flow_V = mkMonoVerb "płynąć" conj4 Imperfective; swim_V = mkMonoVerb "pływać" conj98 Imperfective; travel_V = mkMonoVerb "podróżować" conj53 Imperfective; come_V = mkV1 "przyjść" conj41 "przychodzić" conj80; swell_V = mkV1 "puchnąć" conj7 "spuchnąć" conj7; vomit_V = mkV1 "rzygać" conj98 "rzygnąć" conj5; sit_V = mkMonoVerb "siedzieć" conj92 Imperfective; jump_V = mkV1 "skakać" conj61 "skoczyć" conj87; walk_V = mkV1 "spacerować" conj53 "pospacerować" conj53; sleep_V = mkMonoVerb "spać" conj96 Imperfective; fall_V = mkV1 "spaść" conj17 "spadać" conj98; laugh_V = mkReflVerb (mkV1 "śmiać" conj52 "roześmiać" conj52); sing_V = mkV1 "śpiewać" conj98 "zaśpiewać" conj98; stand_V = mkMonoVerb "stać" conj95 Imperfective; sew_V = mkV1 "szyć" conj51 "uszyć" conj51; die_V = mkV1 "umierać" conj98 "umrzeć" conj43; freeze_V = mkV1 "zamarzać" conj98 "zamarznąć" conj7; stop_V = mkV1 "zatrzymywać" conj54 "zatrzymać" conj98; live_V = mkV1 "żyć" conj51 "pożyć" conj51; } ;