Files
gf-core/lib/src/polish/LexiconPol.gf
adam.slaski ad1a116dfc polish demo
2010-05-26 22:34:20 +00:00

387 lines
17 KiB
Plaintext
Raw Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
--# -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) "" "" 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" 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); -- 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" 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";
InstrC=>"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"; InstrC=>"Paryżem"; LocPrep=>"Paryżu"};
gn=MascPersSg; p=P3};
} ;