mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
389 lines
14 KiB
Plaintext
389 lines
14 KiB
Plaintext
--# -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_VS = mkVS (mkV "tietää" "tiesi") ;
|
|
know_V2 = mkV2 (mkV "tuntea" "tunsi") ;
|
|
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 "haista" "haisi" ;
|
|
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 = x.s ; lock_Ord = <> } ;
|
|
cpartitive = casePrep partitive ;
|
|
|
|
} ;
|