Polish resource grammar

This commit is contained in:
aarne
2009-10-23 12:44:58 +00:00
parent 604c6e44f2
commit 2c57206b75
27 changed files with 8319 additions and 0 deletions

View File

@@ -0,0 +1,386 @@
--# -path=.:../abstract:../common:../prelude
-- Ilona Nowak, Wintersemester 2007/08
-- Adam Slaski, 2009 <adam.slaski@gmail.com>
concrete LexiconPol of Lexicon = CatPol **
open ParadigmsPol, Prelude, StructuralPol, MorphoPol in {
flags
optimize =values ; coding =utf8 ;
lin
-- jury_N = mkIndeclinableNoun "jury" neuter ; -- for undeclinable noun
-- cocoa_N = mkIndeclinableNoun "kakao" neuter ; -- for undeclinable noun
-- menu_N = mkIndeclinableNoun "menu" neuter ; -- for undeclinable noun
art_N = nApteka "sztuka";
airplane_N = nSad "samolot";
apartment_N = nDanie "mieszkanie";
apple_N = nJablko "jabłko";
baby_N = nCiele "niemowlę";
bad_A = mkRegAdj "zły" "gorszy" "źle" "gorzej";
bank_N = nBrzeg "bank";
beautiful_A = mkRegAdj "piękny" "piękniejszy" "pięknie" "piękniej";
beer_N = nPiwo "piwo";
big_A = mkRegAdj "duży" "większy" "dużo" "więcej";
bike_N = nWal "rower";
bird_N = nPtak "ptak";
black_A = mkRegAdj "czarny" "czarniejszy" "czarno" "czarniej";
blue_A = mkCompAdj "niebieski" "niebiesko";
boat_N = nLodz "łódź";
book_N = nMatka "książka";
boot_N = nBat "but";
boss_N = nArab "szef";
boy_N = nChlopiec "chłopiec";
bread_N = nChleb "chleb";
broad_A = mkRegAdj "szeroki" "szerszy" "szeroko" "szerzej";
brother_N2 = mkN2 (nBrat "brat");
brown_A = mkCompAdj "brązowy" "brązowo";
butter_N = nTlo "masło";
camera_N = nSila "kamera";
cap_N = nMatka "czapka";
car_N = nOgrod "samochód";
carpet_N = nDym "dywan";
cat_N = nKot "kot";
ceiling_N = nSad "sufit";
chair_N = nTlo "krzesło";
cheese_N = nSer "ser";
child_N = nDziecko "dziecko";
correct_A = mkCompAdj "poprawny" "poprawnie";
church_N = nKosciol "kościół";
city_N = nGniazdo "miasto";
clean_A = mkRegAdj "czysty" "czystszy" "czysto" "czyściej";
clever_A = mkRegAdj "mądry" "mądrzejszy" "mądrze" "mądrzej";
coat_N = nWiersz "płaszcz";
cold_A = mkRegAdj "zimny" "zimniejszy" "zimno" "zimniej";
computer_N = nSer "komputer";
country_N = nGaj "kraj";
cousin_N = nFacet "kuzyn";
cow_N = nDoba "krowa";
dirty_A = mkRegAdj "brudny" "brudniejszy" "brudno" "brudniej";
doctor_N = nLekarz "lekarz";
dog_N = nPies "pies";
door_N = nDrzwi "drzwi";
dry_A = mkRegAdj "suchy" "suchszy" "sucho" "suszej";
dull_A = mkRegAdj "tępy" "tępszy" "tępo" "tępiej";
enemy_N = nWrog "wróg";
factory_N = nApteka "fabryka";
far_Adv = ss "daleko";
father_N2 = mkN2 (nOjciec "ojciec");
fish_N = nLiczba "ryba";
floor_N = nDroga "podłoga";
fridge_N = nMatka "lodówka";
friend_N = nPrzyjaciel "przyjaciel";
fruit_N = nGaj "owoc";
full_A = mkRegAdj "pełny" "pełniejszy" "pełno" "pełniej";
garden_N = nOgrod "ogród";
girl_N = nLiczba "dziewczyna";
glove_N = nUlica "rękawica";
gold_N = nUdo "złoto";
good_A = mkRegAdj "dobry" "lepszy" "dobrze" "lepiej";
grammar_N = nApteka "gramatyka";
green_A = mkRegAdj "zielony" "zieleńszy" "zielono" "zieleniej";
harbour_N = nSad "port";
hat_N = nWiersz "kapelusz";
hill_N = nSerce "wzgórze";
horse_N = nKon "koń";
hot_A = mkRegAdj "gorący" "gorętszy" "gorąco" "goręcej";
house_N = nDom "dom";
important_A = mkRegAdj "ważny" "ważniejszy" "ważnie" "ważniej";
industry_N = nWal "przemysł";
iron_N = nPiwo "żelazo";
king_N = nKrol "król";
lake_N = nZero "jezioro";
lamp_N = nLiczba "lampa";
language_N = nKajak "język";
leather_N = nDoba "wątroba";
long_A = mkRegAdj "długi" "dłuższy" "długo" "dłużej";
love_N = nSiec "miłość";
man_N = nMezczyzna "mężczyzna";
meat_N = nPiwo "mięso";
milk_N = nWojsko "mleko";
moon_N = nWiersz "księżyc";
mother_N2 = mkN2 (nMatka "matka");
mountain_N = nSila "góra";
music_N = nApteka "muzyka";
narrow_A = mkRegAdj "wąski" "węższy" "wąsko" "węziej";
new_A = mkRegAdj "nowy" "nowszy" "nowo" "nowiej";
newspaper_N = nKobieta "gazeta";
oil_N = nGaj "olej";
old_A = mkRegAdj "stary" "starszy" "staro" "starzej";
paper_N = nWal "papier";
peace_N = nPokoj "pokój";
pen_N = nMlotek "ołówek";
planet_N = nKobieta "planeta";
-- paris_PN = mkPN (nKoc "Paryż");
plastic_N = nBrzeg "plastyk";
policeman_N = nFacet "policjant";
priest_N = nKsiadz "ksiądz";
queen_N = nKrolowa "królowa";
radio_N = nStudio "radio";
red_A = mkRegAdj "czerwony" "czerwieńszy" "czerwono" "czerwieniej";
religion_N = nLilia "religia";
restaurant_N = nLilia "restauracja";
river_N = nApteka "rzeka";
rock_N = nSila "skała";
roof_N = nDom "dach";
rubber_N = nMatka "gumka";
rule_N = nSila "reguła";
school_N = nSzkola "szkoła";
science_N = nApteka "nauka";
sea_N = nMorze "morze";
sheep_N = nOwca "owca";
ship_N = nStatek "statek";
shirt_N = nFala "koszula";
shoe_N = nBat "but";
shop_N = nDym "sklep";
short_A = mkRegAdj "krótki" "krótszy" "krótko" "krócej";
silver_N = nZebro "srebro";
sister_N = nSzkola "siostra";
small_A = mkRegAdj "mały" "mniejszy" "mało" "mniej";
snake_N = nWaz "wąż";
sock_N = nMatka "skarpetka";
star_N = nGwiazda "gwiazda";
steel_N = nKapiel "stal";
stone_N = nCien "kamień";
stove_N = nKoc "piec";
student_N = nFacet "student";
stupid_A = mkRegAdj "głupi" "głupszy" "głupio" "głupiej";
sun_N = nSerce "słońce";
table_N = nDol "stół";
teacher_N = nKowal "nauczyciel";
television_N = nLilia "telewizja";
thick_A = mkRegAdj "gruby" "grubszy" "grubo" "grubiej";
thin_A = mkRegAdj "cienki" "cieńszy" "cienko" "cieniej";
today_Adv = ss "dziś";
train_N = nBrzeg "pociąg";
tree_N = nPiwo "drzewo";
ugly_A = mkRegAdj "brzydki" "brzydszy" "brzydko" "brzydziej";
university_N = nSad "uniwersytet";
village_N = nWies "wieś";
warm_A = mkRegAdj "ciepły" "cieplejszy" "ciepło" "cieplej";
war_N = nWojna "wojna";
water_N = nWoda "woda";
white_A = mkRegAdj "biały" "bielszy" "biało" "bielej";
window_N = nOkno "okno";
wine_N = nPiwo "wino";
woman_N = nKobieta "kobieta";
wood_N = nOkno "drewno";
yellow_A = mkRegAdj "żółty" "żółtszy" "żółto" "żółciej";
young_A = mkRegAdj "młody" "młodszy" "młodo" "młodziej";
now_Adv = ss "teraz";
already_Adv = ss "właśnie";
song_N = nMatka "piosenka";
number_N = nLiczba "liczba";
distance_N3 = mkN3 (nSiec "odległość") from_Prep to_Prep ;
-- fun_AV = mkRegAdj "wesoły";
-- easy_A2V = mkRegAdj2 (mkRegAdj "łatwy") "dla" genitive ;
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";
animal_N = nCiele "zwierzę";
ashes_N = nPopiol "popiół";
back_N = nDrzwi "plecy";
bark_N = nSila "kora";
belly_N = nMiech "brzuch";
bird_N = nPtak "ptak";
blood_N = nKonew "krew";
bone_N = nKosc "kość";
breast_N = nSiec "pierś";
cloud_N = nSila "chmura";
day_N = nDzien "dzień";
dust_N = nGaj "kurz";
ear_N = nUcho "ucho";
earth_N = nZiemia "ziemia";
egg_N = nJablko "jajko";
eye_N = nOko "oko";
fat_N = nKoc "tłuszsz";
feather_N = nLiczba "sprężyna";
fingernail_N = nPien "paznokieć";
fire_N = nPien "ogień";
fish_N = nLiczba "ryba";
flower_N = nKwiat "kwiat";
fog_N = nMgla "mgła";
foot_N = nDoba "stopa";
forest_N = nLas "las";
fruit_N = nGaj "owoc";
grass_N = nLiczba "trawa";
guts_N = nDrzwi "wnętrzności";
hair_N = nChleb "włos";
hand_N = nReka "ręka";
head_N = nDoba "głowa";
heart_N = nSerce "serce";
horn_N = nProg "róg";
husband_N = nMaz "mąż";
ice_N = nOgrod "lód";
knee_N = nPiwo "kolano";
lake_N = nZero "jezioro";
leaf_N = nLisc "liść";
leg_N = nDroga "noga";
liver_N = nDoba "wątroba";
louse_N = nWesz "wesz";
meat_N = nPiwo "mięso";
mountain_N = nSila "góra";
mouth_N = nDrzwi "usta";
name_N = nImie "imię";
neck_N = nLilia "szyja";
-- neck_N = nBrzeg "kark";
night_N = nNoc "noc";
nose_N = nChleb "nos";
person_N = nDoba "osoba";
question_N = nDanie "pytanie";
rain_N = nGaj "deszcz";
ready_A = mkCompAdj "gotowy";
reason_N = nOgrod "powód";
road_N = nDroga "droga";
root_N = nCien "korzeń";
rope_N = nLiczba "lina";
salt_N = nSul "sól";
sand_N = nStatek "piasek";
sea_N = nMorze "morze";
seed_N = nNasienie "nasienie";
skin_N = nSila "skóra";
sky_N = nNiebo "niebo";
smoke_N = nDym "dym";
snow_N = nBrzeg "śnieg";
star_N = nGwiazda "gwiazda";
stick_N = nKajak "patyk";
tail_N = nChleb "ogon";
tongue_N = nKajak "język";
tooth_N = nZab "ząb";
uncertain_A = mkCompAdj "niepewny" "niepewnie";
water_N = nWoda "woda";
wife_N = nLiczba "żona";
wind_N = nWiatr "wiatr";
wing_N = nTlo "skrzydło";
worm_N = nPtak "robak";
year_N = nRok "rok" "lata";
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";
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_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) "" dative;
ask_V2Q = dirV2 (mkV "pytać" conj98 "spytać" conj98);
-- beg_V2V = mkV2 (mkV "prosić" conj83 Imperfective) "" "o" accusative accusative; -- 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" accusative genitive;
sell_V3 = dirV3 (mkV "sprzedawać" conj57 "sprzedać" conj99);
send_V3 = mkV3 (mkV "wysyłać" conj98 "wysłać" conj67 ) "" "do" accusative genitive ;
talk_V3 = mkV3 (mkV "rozmawiać" conj98 "porozmawiać" conj98) "z" "о" instrumental locative;
give_V3 = mkV3 (mkV "dawać" conj57 "dać" conj99) "" "" Dat Acc ;
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" accusative;
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" accusative;
-- mkV2 (mkItVerb (mkV "grać" conj98 "zagrać" conj98)) "na" locative } ;
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" accusative;
do_V2 = dirV2 (mkV "robić" conj77 "zrobić" conj77);
speak_V2 = mkV2 (mkMonoVerb "rozmawiać" conj98 Imperfective) "z" instrumental;
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);
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" instrumental;
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;
john_PN = { nom = "Jan"; voc="Janie"; dep=table{GenPrep|GenNoPrep|AccPrep|AccNoPrep=>"Jana"; DatPrep|DatNoPrep=>"Janowi";
InstrNoPrep|InstrPrep=>"Janem"; LocPrep=>"Janie"};
gn=MascPersSg; p=P3};
paris_PN = { nom = "Paryż"; voc="Paryżu"; dep=table{GenPrep|GenNoPrep=>"Paryża"; AccPrep|AccNoPrep=>"Paryż";
DatPrep|DatNoPrep=>"Paryżowi"; InstrNoPrep|InstrPrep=>"Paryżem"; LocPrep=>"Paryżu"};
gn=MascPersSg; p=P3};
} ;