diff options
Diffstat (limited to 'old-lib/resource/finnish/LexiconFin.gf')
| -rw-r--r-- | old-lib/resource/finnish/LexiconFin.gf | 387 |
1 files changed, 387 insertions, 0 deletions
diff --git a/old-lib/resource/finnish/LexiconFin.gf b/old-lib/resource/finnish/LexiconFin.gf new file mode 100644 index 000000000..e15538b4f --- /dev/null +++ b/old-lib/resource/finnish/LexiconFin.gf @@ -0,0 +1,387 @@ +--# -path=.:prelude + +concrete LexiconFin of Lexicon = CatFin ** open MorphoFin, ParadigmsFin in { + +flags + optimize=values ; + + +lin + airplane_N = mkN "lentokone" ; + answer_V2S = mkV2 (mkV "vastata") (casePrep allative) ; + apartment_N = mkN "asunto" ; + apple_N = mkN "omena" ; --- omenia, not omenoita + art_N = mkN "taide" ; + ask_V2Q = mkV2 (mkV "kysyä") (casePrep ablative) ; + baby_N = mkN "vauva" ; + bad_A = mkA (mkN "paha") "pahempi" "pahin" ; + bank_N = mkN "pankki" ; + beautiful_A = mkA (mkN "kaunis") "kauniimpi" "kaunein" ; + become_VA = mkVA (mkV "tulla") (casePrep translative) ; + beer_N = mkN "olut" "oluita" ; + beg_V2V = mkV2V (mk2V "pyytää" "pyysi") (casePrep partitive) ; + big_A = mkA (mkN "suuri" "suuria") "suurempi" "suurin" ; + bike_N = mkN "polkupyörä" ; --- for correct vowel harmony + bird_N = mkN "lintu" ; + black_A = mkA (mkN "musta") "mustempi" "mustin" ; + blue_A = mkA (mkN "sininen") "sinisempi" "sinisin" ; + boat_N = mkN "vene" ; + book_N = mkN "kirja" ; + boot_N = mkN "saapas" ; + boss_N = mkN "pomo" ; + boy_N = mkN "poika" "pojan" "poikia" ; + bread_N = mkN "leipä" ; + break_V2 = mkV2 (mkV "rikkoa") ; + broad_A = mkA (mkN "leveä") "leveämpi" "levein" ; + brother_N2 = mkN2 ( + mkN "veli" "veljen" "veljenä" "veljeä" "veljeen" + "veljinä" "veljissä" "veljien" "veljiä" "veljiin") ; + brown_A = mkA (mkN "ruskea") "ruskeampi" "ruskein" ; + butter_N = mk3N "voi" "voin" "voita" ; ---- errors in Part + buy_V2 = mkV2 (mkV "ostaa") ; + camera_N = mkN "kamera" ; + cap_N = mkN "lakki" ; + car_N = mkN "auto" "auton" "autoja" ; -- mkN: audon + carpet_N = mkN "matto" ; + cat_N = mkN "kissa" ; + ceiling_N = mkN "katto" ; + chair_N = mkN "tuoli" ; + cheese_N = mkN "juusto" ; + child_N = mkN "lapsi" "lapsen" "lasta" "lapsena" "lapseen" + "lasten" "lapsia" "lapsina" "lapsissa" "lapsiin" ; + church_N = mkN "kirkko" ; + city_N = mkN "kaupunki" ; + clean_A = mkA (mkN "puhdas") ; + clever_A = mkA (mkN "viisas") ; + close_V2 = mkV2 (mkV "sulkea") ; + coat_N = mkN "takki" ; + cold_A = mkA (mkN "kylmä") "kylmempi" "kylmin" ; + come_V = mkV "tulla" ; + computer_N = mkN "tietokone" ; + country_N = mkN "maa" ; + cousin_N = mkN "serkku" ; + cow_N = mkN "lehmä" ; + die_V = mkV "kuolla" ; + dirty_A = mkA (mkN "likainen") "likaisempi" "likaisin" ; + distance_N3 = mkN3 (mkN "etäisyys") (casePrep elative) (casePrep illative) ; + doctor_N = mk2N "tohtori" "tohtoreita" ; + dog_N = mkN "koira" ; + door_N = mkN "ovi" "ovia" ; + drink_V2 = mkV2 (mkV "juoda") ; + easy_A2V = mkA2 (mkA (mkN "helppo") "helpompi" "helpoin") + (casePrep allative) ; + eat_V2 = mkV2 (mkV "syödä") ; + empty_A = mkA (mkN "tyhjä") "tyhjempi" "tyhjin" ; + enemy_N = mkN "vihollinen" ; + factory_N = mkN "tehdas" ; + father_N2 = mkN2 (mkN "isä") ; + fear_VS = mkVS (mk2V "pelätä" "pelkäsi") ; + find_V2 = mkV2 (mk2V "löytää" "löysi") ; + fish_N = mkN "kala" ; + floor_N = mk2N "lattia" "lattioita" ; + forget_V2 = mkV2 (mkV "unohtaa") ; + fridge_N = mkN "jääkaappi" ; + friend_N = mkN "ystävä" ; + fruit_N = mkN "hedelmä" ; + fun_AV = mkAV (mkA (mkN "hauska") "hauskempi" "hauskin") ; + garden_N = mkN "puutarha" "puutarhan" "puutarhoja" ; + girl_N = mkN "tyttö" ; + glove_N = mkN "käsine" ; + gold_N = mkN "kulta" ; + good_A = mkA (mkN "hyvä") "parempi" "parhain" ; --- paras + go_V = mkV "mennä" ; + green_A = mkA (mkN "vihreä") "vihreämpi" "vihrein" ; + harbour_N = mkN "satama" "sataman" "satamia" ; + hate_V2 = mkV2 (mkV "vihata") cpartitive ; + hat_N = mkN "hattu" ; + have_V2 = mkV2 (caseV adessive vOlla) ; + hear_V2 = mkV2 (mkV "kuulla") ; + hill_N = mkN "kukkula" ; + hope_VS = mkVS (mkV "toivoa") ; + horse_N = mkN "hevonen" ; + hot_A = mkA (mkN "kuuma") "kuumempi" "kuumin" ; + house_N = mkN "talo" ; + important_A = mkA (mkN "tärkeä") "tärkeämpi" "tärkein" ; + industry_N = mkN "teollisuus" ; + iron_N = mkN "rauta" ; + king_N = mkN "kuningas" ; + know_V2 = mkV2 (mk2V "tietää" "tiesi") ; --- tuntea; gives tietänyt + lake_N = mkN "järvi" "järviä" ; + lamp_N = mkN "lamppu" ; + learn_V2 = + mkV2 (mk12V "oppia" "opin" "oppii" "oppivat" "oppikaa" "opitaan" + "opin" "oppi" "oppisi" "oppinut" "opittu" "opitun") ; + leather_N = mkN "nahka" ; --- nahan + leave_V2 = mkV2 (mkV "jättää") ; + like_V2 = mkV2 (mkV "pitää") elative ; + listen_V2 = mkV2 (mkV "kuunnella" "kuunteli") partitive ; + live_V = mkV "elää" ; + long_A = mkA (mkN "pitkä") "pitempi" "pisin" ; + lose_V2 = mkV2 (mkV "hävitä" "hävisi") ; --- hukata + love_N = mk3N "rakkaus" "rakkauden" "rakkauksia" ; + love_V2 = mkV2 (mkV "rakastaa") partitive ; + man_N = mkN "mies" "miehen" "miestä" "miehenä" "mieheen" + "miesten" "miehiä" "miehinä" "miehissä" "miehiin" ; + married_A2 = mkA2 (mkA "avioitunut") (postPrep genitive "kanssa") ; ---- infl + meat_N = mkN "liha" ; + milk_N = mkN "maito" ; + moon_N = mkN "kuu" ; + mother_N2 = mkN2 (mkN "äiti") ; + mountain_N = mkN "vuori" "vuoria" ; + music_N = mkN "musiikki" ; + narrow_A = mkA (mkN "kapea") "kapeampi" "kapein" ; + new_A = mkA (mk3N "uusi" "uuden" "uusia") "uudempi" "uusin" ; + newspaper_N = mkN "sanoma" (mkN "lehti" "lehtiä") ; --- for correct vowel harmony + oil_N = mkN "öljy" ; + old_A = mkA (mkN "vanha") "vanhempi" "vanhin" ; + open_V2 = mkV2 (mkV "avata" "avasi") ; + paint_V2A = mkV2A (mkV "maalata") accPrep (casePrep translative) ; + paper_N = mk2N "paperi" "papereita" ; + paris_PN = mkPN (mkN "Pariisi") ; + peace_N = mkN "rauha" ; + pen_N = mkN "kynä" ; + planet_N = mkN "planeetta" ; + plastic_N = mkN "muovi" ; + play_V2 = mkV2 (mkV "pelata") cpartitive ; --- leikkiä, soittaa + policeman_N = mkN "poliisi" ; + priest_N = mkN "pappi" ; + probable_AS = mkAS --- for vowel harmony + (mkA (mkN "todennäköinen") "tonennäköisempi" "todennälöisin") ; ---- sta + queen_N = mkN "kuningatar" ; + radio_N = mk2N "radio" "radioita" ; + rain_V0 = mkV0 (mk2V "sataa" "satoi") ; + read_V2 = mkV2 (mkV "lukea") ; + red_A = mkA "punainen" ; + religion_N = mkN "uskonto" ; + restaurant_N = mkN "ravintola" ; + river_N = mkN "joki" "jokia" ; + rock_N = mk2N "kallio" "kallioita" ; + roof_N = mkN "katto" ; + rubber_N = mkN "kumi" ; + run_V = mk2V "juosta" "juoksi" ; + say_VS = mkVS (mkV "sanoa") ; + school_N = mkN "koulu" ; + science_N = mkN "tiede" ; + sea_N = mkN "meri" "meren" "meriä" "merta" ; + seek_V2 = mkV2 (mkV "etsiä") cpartitive ; + see_V2 = mkV2 ( + mk12V "nähdä" "näen" "näkee" "näkevät" "nähkää" "nähdään" + "näin" "näki" "näkisi" "nähnyt" "nähty" "nähdyn") ; + sell_V3 = mkV3 (mkV "myydä") accPrep (casePrep allative) ; + send_V3 = mkV3 (mkV "lähettää") accPrep (casePrep allative) ; + sheep_N = mkN "lammas" ; + ship_N = mkN "laiva" ; + shirt_N = mkN "paita" ; + shoe_N = mkN "kenkä" ; + shop_N = mkN "kauppa" ; + short_A = mkA (mkN "lyhyt" "lyhyitä") ; + silver_N = mkN "hopea" ; + sister_N = mkN "sisko" ; + sleep_V = mkV "nukkua" ; + small_A = mkA (mk2N "pieni" "pieniä") "pienempi" "pienin" ; + snake_N = mkN "käärme" ; + sock_N = mkN "sukka" ; + speak_V2 = mkV2 (mkV "puhua") cpartitive ; + star_N = mkN "tähti" "tähtiä" ; + steel_N = mkN "teräs" ; + stone_N = mkN "kivi" "kiviä" ; + stove_N = mk3N "liesi" "lieden" "liesiä" ; + student_N = mk2N "opiskelija" "opiskelijoita" ; + stupid_A = mkA "tyhmä" ; + sun_N = mkN "aurinko" ; + switch8off_V2 = mkV2 (mkV "sammuttaa") ; --- + switch8on_V2 = mkV2 (mkV "sytyttää") ; --- + table_N = mkN "pöytä" ; + talk_V3 = mkV3 (mkV "puhua") (casePrep allative) (casePrep elative) ; + teacher_N = mkN "opettaja" ; + teach_V2 = mkV2 (mkV "opettaa") ; + television_N = mk2N "televisio" "televisioita" ; + thick_A = mkA "paksu" ; + thin_A = mkA (mkN "ohut" "ohuita") ; + train_N = mkN "juna" ; + travel_V = mkV "matkustaa" ; + tree_N = mkN "puu" ; + ---- trousers_N = mkN "trousers" ; + ugly_A = mkA (mkN "ruma") "rumempi" "rumin" ; + understand_V2 = mkV2 (mkV "ymmärtää" "ymmärrän" "ymmärsi") ; + university_N = mkN "yliopisto" ; + village_N = mkN "kylä" ; + wait_V2 = mkV2 (mkV "odottaa") partitive ; + walk_V = mkV "kävellä" "käveli" ; + warm_A = mkA + (mkN "lämmin" "lämpimän" "lämpimänä" "lämmintä" "lämpimään" + "lämpiminä" "lämpimissä" "lämpimien" "lämpimiä" "lämpimiin" + ) + "lämpimämpi" "lämpimin" ; + war_N = mkN "sota" ; + watch_V2 = mkV2 (mkV "katsella") cpartitive ; + water_N = mk3N "vesi" "veden" "vesiä" ; + white_A = mkA "valkoinen" ; + window_N = mk2N "ikkuna" "ikkunoita" ; + wine_N = mkN "viini" ; + win_V2 = mkV2 (mkV "voittaa") ; + woman_N = mkN "nainen" ; + wonder_VQ = mkVQ (mkV "ihmetellä") ; + wood_N = mkN "puu" ; + write_V2 = mkV2 (mkV "kirjoittaa") ; + yellow_A = mkA "keltainen" ; + young_A = mkA (mkN "nuori" "nuoria") "nuorempi" "nuorin" ; + + do_V2 = mkV2 ( + mkV "tehdä" "teen" "tekee" "tekevät" "tehkää" "tehdään" + "tein" "teki" "tekisi" "tehnyt" "tehty" "tehdyn") ; + + now_Adv = mkAdv "nyt" ; + already_Adv = mkAdv "jo" ; + song_N = mkN "laulu" ; + add_V3 = mkV3 (mkV "lisätä") accPrep (casePrep illative) ; + number_N = mk2N "numero" "numeroita" ; + put_V2 = mkV2 (mkV "panna") ; + stop_V = mkV "pysähtyä" ; + jump_V = mkV "hypätä" ; + left_Ord = mkOrd (mkN "vasen") ; + right_Ord = mkOrd (mkN "oikea") ; + far_Adv = mkAdv "kaukana" ; + correct_A = mkA "oikea" ; + dry_A = mkA (mkN "kuiva") "kuivempi" "kuivin" ; + dull_A = mkA (mkN "tylsä") "tylsempi" "tylsin" ; + full_A = mkA (mk3N "täysi" "täyden" "täysiä") "täydempi" "täysin" ; + heavy_A = mkA "raskas" ; + near_A = mkA (mkN "läheinen") ; + rotten_A = mkA "mätä" ; + round_A = mkA "pyöreä" ; + sharp_A = mkA "terävä" ; + smooth_A = mkA "sileä" ; + straight_A = mkA (mkN "suora") "suorempi" "suorin" ; + wet_A = mkA (mkN "märkä") "märempi" "märin" ; + wide_A = mkA "leveä" ; + animal_N = mk3N "eläin" "eläimen" "eläimiä" ; + ashes_N = mkN "tuhka" ; + back_N = mkN "selkä" ; + bark_N = mkN "kaarna" ; + belly_N = mkN "vatsa" ; + blood_N = mkN "veri" "veren" "veriä" "verta" ; + bone_N = mkN "luu" ; + breast_N = mkN "rinta" ; + cloud_N = mk2N "pilvi" "pilviä" ; + day_N = mkN "päivä" ; + dust_N = mkN "pöly" ; + ear_N = mkN "korva" ; + earth_N = mkN "maa" ; + egg_N = mkN "muna" ; + eye_N = mkN "silmä" ; + fat_N = mkN "rasva" ; + feather_N = mk3N "höyhen" "höyhenen" "höyheniä" ; + fingernail_N = mk3N "kynsi" "kynnen" "kynsiä" ; + fire_N = mk2N "tuli" "tulia" ; + flower_N = mkN "kukka" ; + fog_N = mkN "sumu" ; + foot_N = mkN "jalka" ; + forest_N = mkN "metsä" ; + grass_N = mkN "ruoho" ; + guts_N = mkN "sisälmys" ; --- suoli + hair_N = mkN "hius" ; + hand_N = mk3N "käsi" "käden" "käsiä" ; + head_N = mkN "pää" ; + heart_N = mkN "sydän" "sydämen" "sydäntä" "sydämenä" "sydämeen" + "sydänten" "sydämiä" "sydäminä" "sydämissä" "sydämiin" ; + horn_N = mk2N "sarvi" "sarvia" ; + husband_N = mkN "mies" "miehen" "miestä" "miehenä" "mieheen" + "miesten" "miehiä" "miehinä" "miehissä" "miehiin" ; + ice_N = mkN "jää" ; + knee_N = mk2N "polvi" "polvia" ; + leaf_N = mk2N "lehti" "lehtiä" ; + leg_N = mkN "jalka" ; --- sääri + liver_N = mkN "maksa" ; + louse_N = mkN "lude" ; + mouth_N = mkN "suu" ; + name_N = mk2N "nimi" "nimiä" ; + neck_N = mkN "niska" ; + night_N = mkN "yö" ; + nose_N = mkN "nenä" ; + person_N = mkN "henkilö" ; + rain_N = mkN "sade" ; + road_N = mkN "tie" ; + root_N = mk2N "juuri" "juuria" ; + rope_N = mk3N "köysi" "köyden" "köysiä" ; + salt_N = mkN "suola" ; + sand_N = mkN "hiekka" ; + seed_N = mkN "siemen" ; + skin_N = mkN "nahka" ; + sky_N = mk3N "taivas" "taivaan" "taivaita" ; + smoke_N = mkN "savu" ; + snow_N = mkN "lumi" "lumen" "lumia" "lunta" ; + stick_N = mkN "keppi" ; + tail_N = mkN "häntä" ; + tongue_N = mk2N "kieli" "kieliä" ; + tooth_N = mkN "hammas" ; + wife_N = mkN "vaimo" ; + wind_N = mk2N "tuuli" "tuulia" ; + wing_N = mk2N "siipi" "siipiä" ; + worm_N = mkN "mato" ; + year_N = mk3N "vuosi" "vuoden" "vuosia" ; + bite_V2 = mkV2 (mkV "purra") ; + blow_V = mkV "puhaltaa" ; + burn_V = mkV "palaa" ; + count_V2 = mkV2 (mkV "laskea") ; + cut_V2 = mkV2 (mk2V "leikata" "leikkasi") ; + dig_V = mkV "kaivaa" ; + fall_V = mkV "pudota" "putoan" "putosi" ; + fear_V2 = mkV2 (mkV "pelätä" "pelkään" "pelkäsi") cpartitive ; + fight_V2 = mkV2 (mkV "taistella") (postPrep partitive "vastaan") ; + float_V = mkV "kellua" ; + flow_V = mkV "virrata" "virtaan" "virtasi" ; + fly_V = mkV "lentää" ; + freeze_V = mkV "jäätyä" ; + give_V3 = mkV3 (mkV "antaa" "annan" "antoi") accPrep (casePrep allative) ; + hit_V2 = mkV2 (mkV "lyödä") cpartitive ; + hold_V2 = mkV2 (mkV "pitää") cpartitive ; + hunt_V2 = mkV2 (mkV "metsästää") cpartitive ; + kill_V2 = mkV2 (mkV "tappaa") ; + laugh_V = mkV "nauraa" "nauroi" ; + lie_V = mkV "maata" "makasi" ; + play_V = mkV "pelata" ; + pull_V2 = mkV2 (mkV "vetää") ; + push_V2 = mkV2 (mkV "työntää") ; + rub_V2 = mkV2 (mkV "hieroa") cpartitive ; + scratch_V2 = mkV2 (mkV "raapia") cpartitive ; + sew_V = mkV "kylvää" ; + sing_V = mkV "laulaa" ; + sit_V = mkV "istua" ; + smell_V = mk2V "haistaa" "haistoi" ; + spit_V = mkV "sylkeä" ; + split_V2 = mkV2 (mk2V "halkaista" "halkaisi") ; + squeeze_V2 = mkV2 (mkV "puristaa") cpartitive ; + stab_V2 = mkV2 (mkV "pistää") cpartitive ; + stand_V = mk12V "seistä" "seison" "seisoo" "seisovat" "seiskää" "seistään" + "seisoin" "seisoi" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoivät + suck_V2 = mkV2 (mkV "imeä") cpartitive ; + swell_V = mkV "turvota" "turposi" ; + swim_V = mkV "uida" "uin" "ui" ; + think_V = mkV "ajatella" "ajattelen" "ajatteli" ; + throw_V2 = mkV2 (mkV "heittää") ; + tie_V2 = mkV2 (mkV "sitoa") ; + turn_V = mkV "kääntyä" ; + vomit_V = mkV "oksentaa" ; + wash_V2 = mkV2 (mkV "pestä") ; + wipe_V2 = mkV2 (mkV "pyyhkiä") ; + + breathe_V = mkV "hengittää" ; + + grammar_N = mkN "kielioppi" ; + language_N = mk2N "kieli" "kieliä" ; + rule_N = mkN "sääntö" ; + + john_PN = mkPN "Jussi" ; + question_N = mkN "kysymys" ; + ready_A = mkA (mkN "valmis") ; + reason_N = mkN "syy" ; + today_Adv = mkAdv "tänään" ; + uncertain_A = mkA "epävarma" ; + + oper + mkOrd : N -> Ord ; + mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ; + cpartitive = casePrep partitive ; + +} ; |