started Finnish (Param, Morpho, Cat, Param appr. OK)

lib/resource-1.0/finnish/LexiconFin.gf

@@ -0,0 +1,248 @@
+--# -path=.:prelude
+
+concrete LexiconFin of Lexicon = CatFin ** open ParadigmsFin in {
+
+flags 
+  optimize=values ;
+
+
+lin
+  airplane_N = regN "lentokone" ;
+----  answer_V2S = mkV2S (caseV2 (regV "vastata") allative) ;
+  apartment_N = regN "asunto" ;
+  apple_N = nLukko "omena" ; --- omenia, not omenoita
+  art_N = regN "taide" ;
+----  ask_V2Q = mkV2Q (caseV2 (regV "kysyä") ablative) ;
+  baby_N = nLukko "vauva" ;
+  bad_A = mkADeg (nLukko "paha") "pahempi" "pahin" ;
+  bank_N = regN "pankki" ;
+  beautiful_A = mkADeg (regN "kaunis") "kauniimpi" "kaunein" ;
+----  become_VA = mkVA (regV "tulla") translative ;
+  beer_N = regN "olut" ;
+----  beg_V2V = mkV2V (caseV2 (reg2V "pyytää" "pyysi") partitive) ;
+  big_A = mkADeg (sgpartN (nArpi "suuri") "suurta") "suurempi" "suurin" ;
+  bike_N = nLukko "polkupyörä" ; --- for correct vowel harmony
+  bird_N = nLukko "lintu" ;
+  black_A = mkADeg (nLukko "musta") "mustempi" "mustin" ;
+  blue_A = mkADeg (regN "sininen") "sinisempi" "sinisin" ;
+  boat_N = regN "vene" ;
+  book_N = nLukko "kirja" ;
+  boot_N = regN "saapas" ;
+  boss_N = nLukko "pomo" ;
+  boy_N = nKukko "poika" "pojan" "poikia" ;
+  bread_N = nLukko "leipä" ;
+  break_V2 = dirV2 (regV "rikkoa") ;
+  broad_A = mkADeg (regN "leveä") "leveämpi" "levein" ;
+  brother_N2 = genN2 (
+    mkN "veli" "veljen" "veljenä" "veljeä" "veljeen" 
+        "veljinä" "veljissä" "veljien" "veljiä" "veljiin") ;
+  brown_A = mkADeg (regN "ruskea") "ruskeampi" "ruskein" ;
+  butter_N = reg3N "voi" "voin" "voita" ;  ---- errors in Part
+  buy_V2 = dirV2 (regV "ostaa") ;
+  camera_N = nLukko "kamera" ;
+  cap_N = regN "lakki" ;
+  car_N = reg3N "auto" "auton" "autoja" ; -- regN: audon
+  carpet_N = nLukko "matto" ;
+  cat_N = nLukko "kissa" ;
+  ceiling_N = nLukko "katto" ;
+  chair_N = regN "tuoli" ;
+  cheese_N = nLukko "juusto" ;
+  child_N = mkN "lapsi" "lapsen" "lapsena" "lasta" "lapseen" 
+            "lapsina" "lapsissa" "lasten" "lapsia" "lapsiin" ;
+  church_N = nLukko "kirkko" ;
+  city_N = regN "kaupunki" ;
+  clean_A = regADeg "puhdas" ;
+  clever_A = regADeg "viisas" ;
+  close_V2 = dirV2 (regV "sulkea") ;
+  coat_N = regN "takki" ;
+  cold_A = mkADeg (nLukko "kylmä") "kylmempi" "kylmin" ;
+  come_V = regV "tulla" ;
+  computer_N = regN "tietokone" ;
+  country_N = regN "maa" ;
+  cousin_N = nLukko "serkku" ;
+  cow_N = nLukko "lehmä" ;
+  die_V = regV "kuolla" ;
+  dirty_A = mkADeg (regN "likainen") "likaisempi" "likaisin" ;
+  distance_N3 = mkN3 (regN "etäisyys") elative illative ;
+  doctor_N = reg2N "tohtori" "tohtoreita" ;
+  dog_N = nLukko "koira" ;
+  door_N = nArpi "ovi" ;
+  drink_V2 = dirV2 (regV "juoda") ;
+----  easy_A2V = mkA2V (mkA2 (mkA (nLukko "helppo")) (caseP allative)) ;
+  eat_V2 = dirV2 (regV "syödä") ;
+  empty_A = mkADeg (nLukko "tyhjä") "tyhjempi" "tyhjin" ;
+  enemy_N = regN "vihollinen" ;
+  factory_N = regN "tehdas" ;
+  father_N2 = genN2 (nLukko "isä") ;
+  fear_VS = mkVS (reg2V "pelätä" "pelkäsi") ;
+  find_V2 = dirV2 (reg2V "löytää" "löysi") ;
+  fish_N = nLukko "kala" ;
+  floor_N = reg2N "lattia" "lattioita" ;
+  forget_V2 = dirV2 (regV "unohtaa") ;
+  fridge_N = regN "jääkaappi" ;
+  friend_N = nLukko "ystävä" ;
+  fruit_N = nLukko "hedelmä" ;
+----  fun_AV = mkAV (mkA (nLukko "hauska")) ;
+  garden_N = nKukko "puutarha" "puutarhan" "puutarhoja" ;
+  girl_N = nLukko "tyttö" ;
+  glove_N = regN "käsine" ;
+  gold_N = nLukko "kulta" ;
+  good_A = mkADeg (nLukko "hyvä") "parempi" "parhain" ; --- paras
+  go_V = regV "mennä" ;
+  green_A = mkADeg (regN "vihreä") "vihreämpi" "vihrein" ;
+  harbour_N = nKukko "satama" "sataman" "satamia" ;
+  hate_V2 = dirV2 (regV "vihata") ;
+  hat_N = nLukko "hattu" ;
+  have_V2 = caseV2 (caseV adessive vOlla) nominative ;
+  hear_V2 = dirV2 (regV "kuulla") ;
+  hill_N = nLukko "kukkula" ;
+  hope_VS = mkVS (regV "toivoa") ;
+  horse_N = regN "hevonen" ;
+  hot_A = mkADeg (nLukko "kuuma") "kuumempi" "kuumin" ;
+  house_N = nLukko "talo" ;
+  important_A = mkADeg (regN "tärkeä") "tärkeämpi" "tärkein" ;
+  industry_N = regN "teollisuus" ;
+  iron_N = nLukko "rauta" ;
+  king_N = regN "kuningas" ;
+  know_V2 = dirV2 (reg2V "tietää" "tiesi") ; --- tuntea; gives tietänyt
+  lake_N = nSylki "järvi" ;
+  lamp_N = nLukko "lamppu" ;
+  learn_V2 = 
+    dirV2 (mkV "oppia" "oppii" "opin" "oppivat" "oppikaa" "opitaan"
+      "oppi" "opin" "oppisi" "oppinut" "opittu" "opitun") ;
+  leather_N = nLukko "nahka" ; --- nahan
+  leave_V2 = dirV2 (regV "jättää") ;
+  like_V2 = caseV2 (regV "pitää") elative ;
+  listen_V2 = caseV2 (reg3V "kuunnella" "kuuntelen" "kuunteli") partitive ;
+  live_V = regV "elää" ;
+  long_A = mkADeg (nLukko "pitkä") "pitempi" "pisin" ;
+  lose_V2 = dirV2 (regV "hävitä") ; --- hukata
+  love_N = reg3N "rakkaus" "rakkauden" "rakkauksia" ;
+  love_V2 = caseV2 (regV "rakastaa") partitive ;
+  man_N = mkN "mies" "miehen" "miehenä" "miestä" "mieheen" 
+            "miehinä" "miehissä" "miesten" "miehiä" "miehiin" ;
+  married_A2 = mkA2 (mkA (nRae "avioitunut" "avioituneena")) (postpP genitive "kanssa") ;
+  meat_N = nLukko "liha" ;
+  milk_N = nLukko "maito" ;
+  moon_N = regN "kuu" ;
+  mother_N2 = genN2 (regN "äiti") ;
+  mountain_N = nArpi "vuori" ;
+  music_N = regN "musiikki" ;
+  narrow_A = mkADeg (regN "kapea") "kapeampi" "kapein" ;
+  new_A = mkADeg (reg3N "uusi" "uuden" "uusia") "uudempi" "uusin" ;
+  newspaper_N = nSylki "sanomalehti" ; --- for correct vowel harmony
+  oil_N = nLukko "öljy" ;
+  old_A = mkADeg (nLukko "vanha") "vanhempi" "vanhin" ;
+  open_V2 = dirV2 (regV "avata") ;
+----  paint_V2A = mkV2A (dirV2 (regV "maalata")) translative ;
+  paper_N = reg2N "paperi" "papereita" ;
+  peace_N = nLukko "rauha" ;
+  pen_N = nLukko "kynä" ;
+  planet_N = nLukko "planeetta" ;
+  plastic_N = regN "muovi" ;
+  play_V2 = dirV2 (regV "pelata") ; --- leikkiä, soittaa
+  policeman_N = regN "poliisi" ;
+  priest_N = regN "pappi" ;
+----  probable_AS = mkAS (mkA (nNainen "todennäköistä")) ; --- for vowel harmony
+  queen_N = regN "kuningatar" ;
+  radio_N = reg2N "radio" "radioita" ;
+----  rain_V = mkV0 (reg2V "sataa" "satoi") ;
+  read_V2 = dirV2 (regV "lukea") ;
+  red_A = regADeg "punainen" ;
+  religion_N = nLukko "uskonto" ;
+  restaurant_N = nLukko "ravintola" ;
+  river_N = nArpi "joki" ;
+  rock_N = reg2N "kallio" "kallioita" ;
+  roof_N = nLukko "katto" ;
+  rubber_N = regN "kumi" ;
+  run_V = reg2V "juosta" "juoksi" ;
+  say_VS = mkVS (regV "sanoa") ;
+  school_N = nLukko "koulu" ;
+  science_N = regN "tiede" ;
+  sea_N = nMeri "meri" ;
+  seek_V2 = dirV2 (regV "etsiä") ;
+  see_V2 = dirV2 (
+    mkV "nähdä" "näkee" "näen" "näkevät" "nähkää" "nähdään"
+      "näki" "näin" "näkisi" "nähnyt" "nähty" "nähdyn") ; 
+  sell_V3 = dirV3 (regV "myydä") allative ;
+  send_V3 = dirV3 (regV "lähettää") allative ;
+  sheep_N = regN "lammas" ;
+  ship_N = nLukko "laiva" ;
+  shirt_N = nLukko "paita" ;
+  shoe_N = nLukko "kenkä" ;
+  shop_N = nLukko "kauppa" ;
+  short_A = regADeg "lyhyt" ;
+  silver_N = regN "hopea" ;
+  sister_N = nLukko "sisko" ;
+  sleep_V = regV "nukkua" ;
+  small_A = mkADeg (reg2N "pieni" "pieniä") "pienempi" "pienin" ;
+  snake_N = regN "käärme" ;
+  sock_N = nLukko "sukka" ;
+  speak_V2 = dirV2 (regV "puhua") ;
+  star_N = nSylki "tähti" ;
+  steel_N = regN "teräs" ;
+  stone_N = nSylki "kivi" ;
+  stove_N = reg3N "liesi" "lieden" "liesiä" ;
+  student_N = reg2N "opiskelija" "opiskelijoita" ;
+  stupid_A = regADeg "tyhmä" ;
+  sun_N = nLukko "aurinko" ;
+  switch8off_V2 = dirV2 (regV "sammuttaa") ; ---
+  switch8on_V2 = dirV2 (regV "sytyttää") ; ---
+  table_N = nLukko "pöytä" ;
+  talk_V3 = mkV3 (regV "puhua") (caseP allative) (caseP elative) ;
+  teacher_N = nLukko "opettaja" ;
+  teach_V2 = dirV2 (regV "opettaa") ;
+  television_N = reg2N "televisio" "televisioita" ;
+  thick_A = regADeg "paksu" ;
+  thin_A = regADeg "ohut" ;
+  train_N = nLukko "juna" ;
+  travel_V = regV "matkustaa" ;
+  tree_N = regN "puu" ;
+ ---- trousers_N = regN "trousers" ;
+  ugly_A = mkADeg (nLukko "ruma") "rumempi" "rumin" ;
+  understand_V2 = dirV2 (reg3V "ymmärtää" "ymmärrän" "ymmärsi") ;
+  university_N = nLukko "yliopisto" ;
+  village_N = nLukko "kylä" ;
+  wait_V2 = caseV2 (regV "odottaa") partitive ;
+  walk_V = regV "kävellä" ;
+  warm_A = mkADeg 
+    (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 = nLukko "sota" ;
+  watch_V2 = dirV2 (regV "katsella") ;
+  water_N = reg3N "vesi" "veden" "vesiä" ;
+  white_A = regADeg "valkoinen" ;
+  window_N = reg2N "ikkuna" "ikkunoita" ;
+  wine_N = regN "viini" ;
+  win_V2 = dirV2 (regV "voittaa") ;
+  woman_N = regN "nainen" ;
+  wonder_VQ = mkVQ (regV "ihmetellä") ;
+  wood_N = regN "puu" ;
+  write_V2 = dirV2 (regV "kirjoittaa") ;
+  yellow_A = regADeg "keltainen" ;
+  young_A = mkADeg (nArpi "nuori") "nuorempi" "nuorin" ;
+
+  do_V2 = dirV2 (
+    mkV "tehdä" "tekee" "teen" "tekevät" "tehkää" "tehdään"
+      "teki" "tein" "tekisi" "tehnyt" "tehty" "tehdyn") ; 
+
+  now_Adv = mkAdv "nyt" ;
+  already_Adv = mkAdv "jo" ;
+  song_N = nLukko "laulu" ;
+  add_V3 = dirV3 (regV "lisätä") illative ;
+  number_N = reg2N "numero" "numeroita" ;
+  put_V2 = dirV2 (regV "panna") ;
+  stop_V = regV "pysähtyä" ;
+  jump_V = regV "hypätä" ;
+{-
+  here_Adv = mkAdv "täällä" ;
+  here7to_Adv = mkAdv "tänne" ;
+  here7from_Adv = mkAdv "täältä" ;
+  there_Adv = mkAdv "siellä" ; --- tuolla
+  there7to_Adv = mkAdv "sinne" ;
+  there7from_Adv = mkAdv "sieltä" ;
+-}
+
+} ;