Estonian - the 29th complete RGL language. Copied from Kaarel Kaljurand's and Inari Listenmaa's repository in https://github.com/GF-Estonian/GF-Estonian, where later developments will continue to take place.

src/estonian/LexiconEst.gf

@@ -0,0 +1,378 @@
+concrete LexiconEst of Lexicon = CatEst ** open MorphoEst, ParadigmsEst, Prelude in {
+
+flags 
+  optimize=values ; coding=utf8;
+
+
+lin
+  airplane_N = mkN "lennuk" ;
+  alas_Interj = ss "paraku" ;
+  answer_V2S = mkV2 (mkV "vastama" "vastata") callative ;
+  apartment_N = mkN "korter" ;
+  apple_N = mkN "õun" ;
+  art_N = mkN "kunst" ;
+  ask_V2Q = mkV2 (mkV "küsima") (casePrep ablative) ;
+  baby_N = mkN "beebi" ;
+  bad_A = mkA (mkN "halb" "halva" "halba" "halba" "halbade" "halbu") "halvem" "halvim" ;
+  bank_N = mkN "pank" ;
+  beautiful_A = mkA (mkN "kaunis" "kauni" "kaunist" "kaunisse" "kaunite" "kauneid") ;
+  become_VA = mkVA (mkV "saama") ctranslative ; -- tema saab vanaks
+  beer_N = mkN "õlu" ;
+  beg_V2V = mkV2V (mkV "paluma") cpartitive ;
+  big_A = mkA (mkN "suur" "suure" "suurt" "suurde" "suurte" "suuri");
+  bike_N = mkN "ratas" ;
+  bird_N = mkN "lind" ;
+  black_A = mkA (mkN "must" "musta" "musta") ;
+  blue_A = mkA "sinine" ;
+  boat_N = mkN "paat" ;
+  book_N = mkN "raamat" "raamatu" "raamatut" "raamatusse" "raamatute" "raamatuid" ;
+  boot_N = mkN "saabas" ;
+  boss_N = mkN "boss" ;
+  boy_N = mkN "poiss" ;
+  bread_N = mkN "leib" ;
+  break_V2 = mkV2 (mkV "katki" (mkV "tegema" "teha")) ;
+  broad_A = mkA (mkN "lai" "laia" "laia" "laia" "laiade" "laiu") "laiem" "TODO" ;
+  brother_N2 = mkN2 (mkN "vend" "venna" "venda" "venda" "vendade" "vendi") ;
+  brown_A = mkA "pruun" ;
+  butter_N = mkN "või" ;
+  buy_V2 = mkV2 (mkV "ostma") ;
+  camera_N = mkN "kaamera" ;
+  cap_N = mkN "müts" ;
+  car_N = mkN "auto" ;
+  carpet_N = mkN "vaip" ;
+  cat_N = mkN "kass" ;
+  ceiling_N = mkN "lagi" ;
+  chair_N = mkN "tool" ;
+  cheese_N = mkN "juust" ;
+  child_N = mkN "laps" "lapse" "last" "lapsesse" "laste" "lapsi" ;
+  church_N = mkN "kirik" ;
+  city_N = mkN "linn" "linna" "linna" "linna" "linnade" "linnu" ;
+  clean_A = mkA (mkN "puhas" "puhta" "puhast" "puhtasse" "puhaste" "puhtaid");
+  clever_A = mkA "tark" ;
+  close_V2 = mkV2 (mkV "sulgema") ;
+  coat_N = mkN "mantel" ;
+  cold_A = mkA "külm" ;
+  come_V = mkV "tulema" ;
+  computer_N = mkN "arvuti" ;
+  country_N = mkN "maa" ;
+  cousin_N = mkN "nõbu" ;
+  cow_N = mkN "lehm" ;
+  die_V = mkV "surema" ;
+  dirty_A = mkA "räpane" ;
+  -- Using 'terminative' for the destination works better with nouns.
+  -- And also with placenames, as one does not need to decide between
+  -- illative (Tartusse) and allative (Põltsamaale).
+  -- Unfortunately, we cannot use a similar trick for the source (*Põltsamaast vs Põltsamaalt).
+  distance_N3 = mkN3 (mkN "kaugus") celative (casePrep terminative) ;
+  doctor_N = mkN "arst" ;
+  dog_N = mkN "koer" ;
+  door_N = mkN "uks" ;
+  drink_V2 = mkV2 (mkV "jooma") cpartitive ;
+  easy_A2V = mkA2 (mkA (mkN "lihtne")) callative ;
+  eat_V2 = mkV2 (mkV "sööma") cpartitive ;
+  empty_A = mkA "tühi" ;
+  enemy_N = mkN "vaenlane" ;
+  factory_N = mkN "tehas" ;
+  father_N2 = mkN2 (mkN "isa") ;
+  fear_VS = mkVS (mk2V "kartma" "karta") ;
+  find_V2 = mkV2 (mk2V "leidma" "leida") ;
+  fish_N = mkN "kala" ;
+  floor_N = mkN "põrand" ;
+  forget_V2 = mkV2 (mkV "unustama") ;
+  fridge_N = mkN "külm" (mkN "kapp") ;
+  friend_N = mkN "sõber" ;
+  fruit_N = mkN "puu" (mkN "vili") ;
+  fun_AV = mkAV (mkA (mkN "lõbus")) ;
+  garden_N = mkN "aed" ;
+  girl_N = mkN "tüdruk" ;
+  glove_N = mkN "kinnas" ;
+  gold_N = mkN "kuld" ;
+  good_A = mkA (mkN "hea") "parem" "parim" ;
+  go_V = mkV "minema" "minna" "läheb" "minnakse"
+      "minge" "läks" "läinud" "mindud" ;
+  green_A = mkA "roheline" ;
+  harbour_N = mkN "sadam" ;
+  hate_V2 = mkV2 (mkV "vihkama") cpartitive ;
+  hat_N = mkN "müts" ;
+  hear_V2 = mkV2 (mkV "kuulma") ;
+  hill_N = mkN "küngas" "künka" "küngast" "künkasse" "küngaste" "künkaid" ;
+  hope_VS = mkVS (mkV "lootma") ;
+  horse_N = mkN "hobune" ;
+  hot_A = mkA "kuum" ;
+  house_N = mkN "maja" ;
+  important_A = mkA "tähtis" ;
+  industry_N = mkN "tööstus" ;
+  iron_N = mkN "raud" ;
+  king_N = mkN "kuningas" ;
+  know_VS = mkVS know_V ;
+  know_VQ = mkVQ know_V ;
+  know_V2 = mkV2 (mkV "tundma") ;
+  lake_N = mkN "järv" ;
+  lamp_N = mkN "lamp" ;
+  learn_V2 = mkV2 (mkV "õppima") ;
+  leather_N = mkN "nahk" ;
+  leave_V2 = mkV2 (mkV "jätma") ;
+  like_V2 = mkV2 (mkV "lugu" (mkV "pidama" "pidada" "peab" "peetakse")) celative ;
+  listen_V2 = mkV2 (mkV "kuulama") partitive ;
+  live_V = mkV "elama" ;
+  long_A = mkA "pikk" ;
+  lose_V2 = mkV2 (mkV "kaotama") ;
+  love_N = mkN "armastus" ;
+  love_V2 = mkV2 (mkV "armastama") partitive ;
+  man_N = mkN "mees" "mehe" "meest" "mehesse" "meeste" "mehi" ;
+  married_A2 = mkA2 (mkA "abielus") (casePrep comitative) ;
+  meat_N = mkN "liha" ;
+  milk_N = mkN "piim" ;
+  moon_N = mkN "kuu" ;
+  mother_N2 = mkN2 (mkN "ema") ;
+  mountain_N = mkN "mägi" "mäe" "mäge" "mäkke" "mägede" "mägesid" ;
+  music_N = mkN "muusika" ;
+  narrow_A = mkA "kitsas" ;
+  new_A = mkA (mkN "uus" "uue" "uut" "uude" "uute" "uusi") "uuem" "uusim" ;
+  newspaper_N = mkN "aja" (mkN "leht") ;
+  oil_N = mkN "õli" ;
+  old_A = mkA (mkN "vana" "vana" "vana" "vanasse" "vanade" "vanasid") "vanem" "vanim" ;
+  open_V2 = mkV2 (mkV "avama") ;
+  paint_V2A = mkV2A (mkV "maalima") accPrep ctranslative ;
+  paper_N = mkN "paber" ;
+  paris_PN = mkPN (mkN "Pariis") ;
+  peace_N = mkN "rahu" ;
+  pen_N = mkN "pastakas" ;
+  planet_N = mkN "planeet" ;
+  plastic_N = mkN "kile" ;
+  play_V2 = mkV2 (mkV "mängima") cpartitive ;
+  policeman_N = mkN "politseinik" ;
+  priest_N = mkN "preester" ;
+  probable_AS = mkAS (mkA (mkN "tõenäoline")) ;
+  queen_N = mkN "kuninganna" ;
+  radio_N = mkN "raadio" ;
+  rain_V0 = mkV0 (mkV "sadama" "sadada" "sajab") ;
+  read_V2 = mkV2 (mkV "lugema" "lugeda" "loeb") ;
+  red_A = mkA "punane" ;
+  religion_N = mkN "usk" ;
+  restaurant_N = mkN "restoran" ;
+  river_N = mkN "jõgi" ;
+  rock_N = mkN "kalju" ;
+  roof_N = mkN "katus" ;
+  rubber_N = mkN "kumm" ;
+  run_V = mkV "jooksma" "joosta" ;
+  say_VS = mkVS (mkV "ütlema") ;
+  school_N = mkN "kool" ;
+  science_N = mkN "teadus" ;
+  sea_N = mkN "meri" ;
+  seek_V2 = mkV2 (mkV "otsima") cpartitive ;
+  see_V2 = mkV2 (mkV "nägema" "näha") ;
+  sell_V3 = mkV3 (mkV "müüma") accPrep callative ;
+  send_V3 = mkV3 (mkV "saatma") accPrep callative ;
+  sheep_N = mkN "lammas" ;
+  ship_N = mkN "laev" ;
+  shirt_N = mkN "särk" ;
+  shoe_N = mkN "king" ;
+  shop_N = mkN "kauplus" ;
+  short_A = mkA "lühike" ;
+  silver_N = mkN "hõbe" ;
+  sister_N = mkN "õde" "õe" "õde" "õesse" "õdede" "õdesid" ;
+  sleep_V = mkV "magama" ;
+  small_A = mkA (mkN "väike" "väikse" "väikest" "väiksesse" "väikeste" "väikseid") ;
+  snake_N = mkN "uss" ;
+  sock_N = mkN "sukk" ;
+  speak_V2 = mkV2 talk_V cpartitive ;
+  star_N = mkN "täht" ;
+  steel_N = mkN "teras" ;
+  stone_N = mkN "kivi" ;
+  stove_N = mkN "ahi" ;
+  student_N = mkN "tudeng" ;
+  stupid_A = mkA "loll" ;
+  sun_N = mkN "päike" ;
+  switch8off_V2 = mkV2 (mkV "välja" (mkV "lülitama")) ;
+  switch8on_V2 = mkV2 (mkV "sisse" (mkV "lülitama")) ;
+  table_N = mkN "laud" ;
+  talk_V3 = mkV3 talk_V callative celative ;
+  teacher_N = mkN "õpetaja" ;
+  teach_V2 = mkV2 (mkV "õpetama") ;
+  television_N = mkN "televisioon" ;
+  thick_A = mkA "paks" ;
+  thin_A = mkA "õhuke" ;
+  train_N = mkN "rong" ;
+  travel_V = mkV "reisima" ;
+  tree_N = mkN "puu" ;
+  ugly_A = mkA "kole" ;
+  understand_V2 = mkV2 (mkV "aru" (mkV "saama")) celative ;
+  university_N = mkN "ülikool" ;
+  village_N = mkN "küla" ;
+  wait_V2 = mkV2 (mkV "ootama") partitive ;
+  walk_V = mkV "kõndima" ;
+  warm_A = mkA (mkN "soe" "sooja" "sooja" "sooja" "soojade" "soojasid") "soojem" "soojim" ;
+  war_N = mkN "sõda" ;
+  watch_V2 = mkV2 (mkV "vaatama") cpartitive ;
+  water_N = mkN "vesi" ;
+  white_A = mkA "valge" ;
+  window_N = mkN "aken" ;
+  wine_N = mkN "vein" ;
+  win_V2 = mkV2 (mkV "võitma") ;
+  woman_N = mkN "naine" "naise" "naist" "naisesse" "naiste" "naisi" ;
+  wonder_VQ = mkVQ (mkV "arutlema" "arutleda") ; -- TODO
+  wood_N = mkN "puu" ;
+  write_V2 = mkV2 (mkV "kirjutama") ;
+  yellow_A = mkA "kollane" ;
+  young_A = mkA "noor" ;
+
+  do_V2 = mkV2 (mkV "tegema" "teha") ; 
+
+  now_Adv = mkAdv "nüüd" ;
+  already_Adv = mkAdv "juba" ;
+  song_N = mkN "laul" ;
+  add_V3 = mkV3 (mkV "lisama") accPrep callative ;
+  number_N = mkN "number" ;
+  put_V2 = mkV2 (mkV "panema") ;
+  stop_V = mkV "peatuma" ;
+  jump_V = mkV "hüppama" ;
+  left_Ord = mkOrd1 (mkN "vasak") ;
+  right_Ord = mkOrd1 (mkN "parem") ;
+  far_Adv = mkAdv "kaugel" ;
+  correct_A = mkA "õige" ;
+  dry_A = mkA "kuiv" ;
+  dull_A = mkA "igav" ;
+  full_A = mkA (mkN "täis") "täiem" "täiim" Invariable ; -- 'täis' is one of the non-inflecting adjectives
+  heavy_A = mkA "raske" ;
+  near_A = mkA "lähedane" ;
+  rotten_A = mkA "mäda" ;
+  round_A = mkA "ümmargune" ;
+  sharp_A = mkA "terav" ;
+  smooth_A = mkA "sile" ;
+  straight_A = mkA "sirge" ;
+  wet_A = mkA "märg" ;
+  wide_A = mkA "lai" ;
+  animal_N = mkN "loom" ;
+  ashes_N = mkN "tuhk" ;
+  back_N = mkN "selg" ;
+  bark_N = mkN "koor" ;
+  belly_N = mkN "kõht" ;
+  blood_N = mkN "veri" ;
+  bone_N = mkN "luu" ;
+  breast_N = mkN "rind" ;
+  cloud_N = mkN "pilv" ;
+  day_N = mkN "päev" ;
+  dust_N = mkN "tolm" ;
+  ear_N = mkN "kõrv" ;
+  earth_N = mkN "maa" ;
+  egg_N = mkN "muna" ;
+  eye_N = mkN "silm" ;
+  fat_N = mkN "rasv" ;
+  feather_N = mkN "sulg" ;
+  fingernail_N = mkN "küüs" ;
+  fire_N = mkN "tuli" ;
+  flower_N = mkN "lill" ;
+  fog_N = mkN "udu" ;
+  foot_N = mkN "jalg" ;
+  forest_N = mkN "mets" ;
+  grass_N = mkN "rohi" ;
+  guts_N = mkN "soolestik" ;
+  hair_N = mkN "juuksed" ; -- TODO: plural
+  hand_N = mkN "käsi" ;
+  head_N = mkN "pea" ;
+  heart_N = mkN "süda" ;
+  horn_N = mkN "sarv" ;
+  husband_N = man_N ;
+  ice_N = mkN "jää" ;
+  knee_N = mkN "põlv" ;
+  leaf_N = mkN "leht" ;
+  leg_N = mkN "jalg" ;
+  liver_N = mkN "maks" ;
+  louse_N = mkN "täi" ;
+  mouth_N = mkN "suu" ;
+  name_N = mkN "nimi" ;
+  neck_N = mkN "kael" ;
+  night_N = mkN "öö" ;
+  nose_N = mkN "nina" ;
+  person_N = mkN "inimene" ;
+  rain_N = mkN "vihm" ;
+  road_N = mkN "tee" ;
+  root_N = mkN "juur" ;
+  rope_N = mkN "köis" ;
+  salt_N = mkN "sool" ;
+  sand_N = mkN "liiv" ;
+  seed_N = mkN "seeme" ;
+  skin_N = mkN "nahk" ;
+  sky_N = mkN "taevas" ;
+  smoke_N = mkN "suits" ;
+  snow_N = mkN "lumi" ;
+  stick_N = mkN "kepp" ;
+  tail_N = mkN "saba" ;
+  tongue_N = mkN "keel" ;
+  tooth_N = mkN "hammas" ;
+  wife_N = mkN "naine" ;
+  wind_N = mkN "tuul" ;
+  wing_N = mkN "tiib" ;
+  worm_N = mkN "uss" ;
+  year_N = mkN "aasta" ;
+  bite_V2 = mkV2 (mkV "purema") ;
+  blow_V = mkV "puhuma" ;
+  burn_V = mkV "põlema" ;
+  count_V2 = mkV2 (mkV "loendama") ;
+  cut_V2 = mkV2 (mk2V "lõikama" "lõigata") ;
+  dig_V = mkV "kaevama" ;
+  fall_V = mkV "kukkuma" ;
+  fear_V2 = mkV2 (mkV "kartma") cpartitive ;
+  fight_V2 = mkV2 (mkV "võitlema") (postPrep partitive "vastu") ;
+  float_V = mkV "liuglema" ;
+  flow_V = mkV "voolama" ;
+  fly_V = mkV "lendama" ;
+  freeze_V = mkV "jäätuma" ;
+  give_V3 = mkV3 (mkV "andma") accPrep callative ;
+  hit_V2 = mkV2 (mkV "lööma") cpartitive ;
+  hold_V2 = mkV2 (mkV "hoidma") cpartitive ;
+  hunt_V2 = mkV2 (mkV "jahti" (mkV "pidama")) cpartitive ;
+  kill_V2 = mkV2 (mkV "tapma") ;
+  laugh_V = mkV "naerma" ;
+  lie_V = mkV "lamama" ; -- TODO: maybe: valetama
+  play_V = mkV "mängima" ;
+  pull_V2 = mkV2 (mkV "tõmbama") ;
+  push_V2 = mkV2 (mkV "suruma") ;
+  rub_V2 = mkV2 (mkV "hõõruma") cpartitive ;
+  scratch_V2 = mkV2 (mkV "kraapima") cpartitive ;
+  sew_V = mkV "külvama" ;
+  sing_V = mkV "laulma" "laulda" "laulab" "lauldakse" ;
+  sit_V = mkV "istuma" ;
+  smell_V = mk2V "haistma" "haista";
+  spit_V = mkV "sülitama" ;
+  split_V2 = mkV2 (mkV "poolitama") ;
+  squeeze_V2 = mkV2 (mkV "pigistama") cpartitive ;
+  stab_V2 = mkV2 (mkV "pussitama") cpartitive ;
+  stand_V = mkV "seisma" "seista" "seisab" "seistakse" ;
+  suck_V2 = mkV2 (mkV "imema") cpartitive ;
+  swell_V = mkV "paistetama" ; -- TODO: üles paistetama
+  swim_V = mkV "ujuma" ;
+  think_V = mkV "mõtlema" "mõtelda" "mõtleb" "mõeldakse";
+  throw_V2 = mkV2 (mkV "viskama") ;
+  tie_V2 = mkV2 (mkV "siduma" "siduda" "seob") ;
+  turn_V = mkV "pöörama" ;
+  vomit_V = mkV "oksendama" ;
+  wash_V2 = mkV2 (mkV "pesema") ;
+  wipe_V2 = mkV2 (mkV "pühkima") ;
+
+  breathe_V = mkV "hingama" ;
+
+  grammar_N = mkN "grammatika" ;
+  language_N = mkN "keel" ;
+  rule_N = mkN "reegel" ;
+
+  john_PN = mkPN "Juhan" ;
+  question_N = mkN "küsimus" ;
+  ready_A = mkA (mkN "valmis" "valmi" "valmit" "valmisse" "valmite" "valmeid") "valmim" "valmeim" Invariable ; -- 'valmis' is one of the non-inflecting adjectives
+  reason_N = mkN "põhjus" ;
+  today_Adv = mkAdv "täna" ;
+  uncertain_A = mkA "ebakindel" ;
+
+
+ oper
+    mkOrd1 : N -> Ord ;
+    mkOrd1 x = {s = x.s ; lock_Ord = <> } ;
+    cpartitive = casePrep partitive ;
+    ctranslative = casePrep translative ;
+    celative = casePrep elative ;
+    callative = casePrep allative ;
+    know_V = (mkV "teadma" "teada" "teab") ;
+    talk_V = mkV "rääkima" "rääkida" "räägib" ;
+
+} ;