first compilable LangDut

lib/src/dutch/LexiconDut.gf

@@ -0,0 +1,368 @@
+--# -path=.:../common:../abstract:../../prelude
+
+-- work by Aarne Ranta, Andreas Priesnitz, and Henning Thielemann.
+
+concrete LexiconDut of Lexicon = CatDut ** 
+  open Prelude, ParadigmsDut in {
+
+flags 
+  optimize=all_subs ;
+
+lin
+--  add_V3 = dirV3 (prefixV "hinzu" (regV "fügen")) zu_Prep ;
+--  airplane_N = mkN "Flugzeug"  ;
+--  already_Adv = mkAdv "schon" ;
+--  answer_V2S = mkV2S (regV "antworten") datPrep ;
+--  apartment_N = mkN "Wohnung" ;
+--  apple_N = reg2N "Apfel" "Äpfel" masculine  ;
+--  art_N = reg2N "Kunst" "Künste" feminine ;
+--  ask_V2Q = mkV2Q (regV "fragen") accPrep ;
+--  baby_N = reg2N "Baby" "Babies" neuter ; ----
+  bad_A = mkA "boos" ;
+--  bank_N = reg2N "Bank" "Banken" feminine ;
+--  beautiful_A = regA "schön" ;
+--  become_VA = mkVA IrregDut.werden_V ;
+--  beer_N = reg2N "Bier" "Biere" neuter ;
+--  beg_V2V = mkV2V (mk6V "bitten" "bittet" "bitte" "bat" "bäte" "gebeten") accPrep ;
+--  big_A = mk3A "groß" "größer" "größte" ;
+--  bike_N = reg2N "Fahrrad" "Fahrräder" neuter ;
+--  bird_N = reg2N "Vogel" "Vögel" masculine ;
+--  black_A = regA "schwarz" ;
+--  blue_A = regA "blau";
+--  boat_N = reg2N "Boot" "Boote" neuter ;
+--  book_N = reg2N "Buch" "Bücher" neuter ;
+--  boot_N = reg2N "Stiefel" "Stiefel" masculine ;
+--  boss_N = reg2N "Chef" "Chefs" masculine ; ----
+--  boy_N = reg2N "Junge" "Jungen" masculine ;
+--  bread_N = reg2N "Brot" "Brote" neuter ;
+--  break_V2 = dirV2 
+--    (irregV "zerschlagen" "zerschlägt" "zerschlug" "zerschlüge" "zerschlagen") ;
+--  broad_A = regA "breit" ;
+--  brother_N2 = mkN2 (reg2N "Bruder" "Brüder" masculine)  von_Prep ;
+--  brown_A = regA "braun" ;
+--  butter_N = reg2N "Butter" "Butter" feminine ; ---- infl
+--  buy_V2 = dirV2 (regV "kaufen") ;
+--  camera_N = reg2N "Kamera" "Kameras" feminine ;
+--  cap_N = mkN "Mütze" ;
+--  car_N = mkN "Wagen" ;
+--  carpet_N = mkN "Teppich" ;
+--  cat_N = mkN "Katze" ;
+--  ceiling_N = reg2N "Dach" "Dächer" neuter ;
+--  chair_N = reg2N "Stuhl" "Stühle" masculine ;
+--  cheese_N = mkN "Käse" "Käse" masculine ;
+--  child_N = reg2N "Kind" "Kinder" neuter ;
+--  church_N = mkN "Kirche" ;
+--  city_N = reg2N "Stadt" "Städte" feminine ;
+--  clean_A = regA "rein" ;
+--  clever_A = mk3A "klug" "klüger" "klügste" ;
+--  close_V2 = dirV2 (irregV "schließen" "schließt" "schloß" "schlösse" "geschlossen") ;
+--  coat_N = mkN "Jacke" ;
+--  cold_A = regA "kalt" ;
+--  come_V = seinV (mk6V "kommen" "kommt" "komm" "kam" "käme" "gekommen") ;
+--  computer_N = reg2N "Rechner" "Rechner" masculine ;
+--  country_N = reg2N "Land" "Länder" neuter ;
+--  cousin_N = reg2N "Vetter" "Vetter" masculine ; --- Kusine
+--  cow_N = reg2N "Kuh" "Kühe" feminine ;
+--  die_V = seinV (irregV "sterben" "stirbt" "starb" "stürbe" "gestorben") ;
+--  distance_N3 = mkN3 (mkN "Entfernung") von_Prep zu_Prep ;
+--  dirty_A = regA "schmutzig" ;
+--  do_V2 = dirV2 (irregV "tun" "tut" "tat" "täte" "getan") ;
+--  doctor_N = reg2N "Arzt" "Ärzte" masculine ;
+--  dog_N = mkN "Hund" ;
+--  door_N = reg2N "Tür" "Türen" feminine ;
+--  drink_V2 = dirV2 (irregV "trinken" "trinkt" "trank" "tränke" "getrunken") ;
+--  easy_A2V = mkA2V (regA "leicht") (mkPrep "für" accusative) ;
+--  eat_V2 = dirV2 (irregV "essen" "ißt" "aß" "äße" "gegessen") ;
+--  empty_A = regA "leer" ; ---- check infl
+--  enemy_N = mkN "Feind" ; 
+--  factory_N = mkN "Fabrik" "Fabriken" feminine ;
+--  father_N2 = mkN2 (reg2N "Vater" "Väter" masculine) von_Prep ;
+--  fear_VS = mkVS (regV "fürchten") ;
+--  find_V2 = dirV2 (irregV "finden" "findet" "fand" "fände" "gefunden") ;
+--  fish_N = mkN "Fisch" ;
+--  floor_N = reg2N "Fußboden" "Fußböden" masculine ;
+--  forget_V2 = dirV2 (irregV "vergessen" "vergißt" "vergaß" "vergäße" "vergessen") ;
+--  fridge_N = reg2N "Kühlschrank" "Kühlschränke" masculine ;
+--  friend_N = mkN "Freund" ;
+--  fruit_N = reg2N "Frucht" "Früchte" feminine ;
+--  fun_AV = mkAV (regA "toll") ;
+--  garden_N = reg2N "Garten" "Gärten" masculine ;
+--  girl_N = reg2N "Mädchen" "Mädchen" neuter ;
+--  glove_N = mkN "Handschuh" ;
+--  gold_N = reg2N "Gold" "Golde" neuter ; ---- infl
+--  good_A = mk3A "gut" "besser" "beste" ;
+--  go_V = seinV (irregV "gehen" "geht" "ging" "ginge" "gegangen") ;
+--  green_A = regA "grün" ;
+--  harbour_N = reg2N "Hafen" "Häfen" masculine ;
+--  hate_V2 = dirV2 (regV "hassen") ;
+--  hat_N = reg2N "Hut" "Hüte" masculine ;
+--  hear_V2 = dirV2 (regV "hören") ;
+--  hill_N = mkN "Hügel" ;
+--  hope_VS = mkVS (regV "hoffen") ;
+--  horse_N = reg2N "Pferd" "Pferde" neuter ;
+--  hot_A = regA "heiß" ;
+--  house_N = reg2N "Haus" "Häuser" neuter ;
+--  important_A = regA "wichtig" ;
+--  industry_N = mkN "Industrie" ;
+--  iron_N = reg2N "Eisen" "Eisen" neuter ;
+--  jump_V = seinV (irregV "springen" "springt" "sprang" "spränge" "gesprungen") ;
+--  king_N = mkN "König" ;
+--  know_V2 = dirV2 (irregV "kennen" "kennt" "kannte" "kännte" "gekannt") ; ---- infl
+--  know_VS = mkVS (irregV "wissen" "weiß" "wußte" "wüßte" "gewußt") ; ---- infl
+--  lake_N = reg2N "See" "Seen" masculine ; --- infl
+--  lamp_N = mkN "Lampe";
+--  learn_V2 = dirV2 (regV "lernen") ;
+--  leather_N = reg2N "Leder" "Leder" neuter ;
+--  leave_V2 = dirV2 (irregV "verlassen" "verläßt" "verließ" "verließe" "verlassen") ;
+--  like_V2 = dirV2 (irregV "mögen" "mag" "mochte" "möchte" "gemocht") ;
+--  listen_V2 = prepV2 (prefixV "zu" (regV "hören")) datPrep ; ---- dat
+--  live_V = regV "leben" ;
+--  long_A = mk3A "lang" "länger" "längste" ;
+--  lose_V2 = dirV2 (irregV "verlieren" "verliert" "verlor" "verlöre" "verloren") ;
+--  love_N = mkN "Liebe" ;
+--  love_V2 = dirV2 (regV "lieben") ;
+--  man_N = reg2N "Mann" "Männer" masculine ;
+--  married_A2 = mkA2 (regA "verheiratet") (mkPrep "mit" dative) ;
+--  meat_N = reg2N "Fleisch" "Fleische" neuter ; ---- infl
+--  milk_N = reg2N "Milch" "Milche" feminine ; ---- infl
+--  moon_N = mkN "Mond" ;
+--  mother_N2 = mkN2 (reg2N "Mutter" "Mütter" feminine) von_Prep ;
+--  mountain_N = mkN "Berg" ;
+--  music_N = reg2N "Musik" "Musiken" feminine ;
+--  narrow_A = regA "schmal" ;
+--  new_A = regA "neu" ;
+--  newspaper_N = mkN "Zeitung" ;
+--  now_Adv = mkAdv "jetzt" ;
+--  number_N = reg2N "Zahl" "Zahlen" feminine ;
+--  oil_N = reg2N "Öl" "Öle" neuter ;
+--  old_A = mk3A "alt" "älter" "älteste" ;
+--  open_V2 = dirV2 (regV "öffnen") ;
+--  paint_V2A = mkV2A (regV "malen") accPrep ;
+--  paper_N = reg2N "Papier" "Papiere" neuter ;
+--  paris_PN = mkPN "Paris" "Paris" ;
+--  peace_N = mk6N "Friede" "Frieden" "Frieden" "Friedens" "Frieden" "Frieden" masculine ;
+--  pen_N = mkN "Bleistift" ; ----
+--  planet_N = reg2N "Planet" "Planeten" masculine ;
+--  plastic_N = reg2N "Plastik" "Plastiken" feminine ; ----
+--  play_V2 = dirV2 (regV "spielen") ;
+--  policeman_N = reg2N "Polizist" "Polizisten" masculine ;
+--  priest_N = mkN "Priester" ;
+--  probable_AS = mkAS (regA "wahrscheinlich") ;
+--  put_V2 = dirV2 (regV "setzen") ;
+--  queen_N = reg2N "Königin" "Königinnen" feminine ;
+--  radio_N = reg2N "Radio" "Radios" neuter ; ----
+--  rain_V0 = mkV0 (regV "regnen") ;
+--  read_V2 = dirV2 (irregV "lesen" "liest" "las" "läse" "gelesen") ;
+--  red_A = regA "rot" ;
+--  religion_N = mkN "Religion" ;
+--  restaurant_N = reg2N "Restaurant" "Restaurants" neuter ;
+--  river_N = reg2N "Fluß" "Flüsse" masculine ;
+--  rock_N = mkN "Stein" ;
+--  roof_N = reg2N "Dach" "Dächer" neuter ;
+--  rubber_N = reg2N "Gummi" "Gummis" neuter ;
+--  run_V = seinV (irregV "laufen" "läuft" "lief" "liefe" "gelaufen") ;
+--  say_VS = mkVS (regV "sagen") ;
+--  school_N = mkN "Schule";
+--  science_N = reg2N "Wissenschaft" "Wissenschaften" feminine ;
+--  sea_N = reg2N "Meer" "Meere" neuter ;
+--  seek_V2 = dirV2 (regV "suchen") ;
+  see_V2 = mkV2 (mkV "zien" "zag" "gezien") ;
+--  sell_V3 = accdatV3 (no_geV (regV "verkaufen")) ;
+--  send_V3 = accdatV3 (regV "schicken") ;
+--  sheep_N = reg2N "Schaf" "Schafe" neuter ;
+--  ship_N = reg2N "Schiff" "Schiffe" neuter ;
+--  shirt_N = reg2N "Hemd" "Hemden" neuter ; ---- infl
+--  shoe_N = mkN "Schuh" ;
+--  shop_N = reg2N "Laden" "Läden" masculine ;
+--  short_A =  mk3A "kurz" "kürzer" "kürzeste" ;
+--  silver_N = reg2N "Silber" "Silber" neuter ; ---- infl
+--  sister_N = reg2N "Schwester" "Schwestern" feminine ;
+  sleep_V = mkV "slapen" "sliep" "geslapen" ;
+--  small_A = regA "klein" ;
+--  snake_N = mkN "Schlange" ;
+--  sock_N = reg2N "Strumpf" "Strümpfe" masculine ;
+--  song_N = reg2N "Lied" "Lieder" neuter ;
+--  speak_V2 = dirV2 (irregV "sprechen" "spricht" "sprach" "spräche" "gesprochen") ;
+--  star_N = mkN "Sterne" ;
+--  steel_N = mkN "Stahl" ;
+--  stone_N = mkN "Stein" ;
+--  stop_V = seinV (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
+--  stove_N = mkN "Herd" ;
+--  student_N = reg2N "Student" "Studenten" masculine ;
+--  stupid_A = mk3A "dumm" "dümmer" "dümmste" ; ----
+--  sun_N = mkN "Sonne" ;
+--  switch8off_V2 = dirV2 (prefixV "aus" (regV "schalten")) ;
+--  switch8on_V2 = dirV2 (prefixV "ein" (regV "schalten")) ;
+--  table_N = mkN "Tisch"  ;
+--  talk_V3 = mkV3 (regV "reden") datPrep von_Prep ;
+--  teacher_N = reg2N "Lehrer" "Lehrer" masculine ;
+--  teach_V2 = dirV2 (no_geV (regV "unterrichten")) ;
+--  television_N = reg2N "Fernsehen" "Fernsehen" neuter;
+--  thick_A = regA "dick" ;
+--  thin_A = regA "dünn" ;
+--  train_N = reg2N "Zug" "Züge" masculine  ;
+--  travel_V = regV "reisen" ;
+--  tree_N = reg2N "Baum" "Bäume" masculine ;
+--  ----  trousers_N = mkN "trousers" ; ---- pl t !
+--  ugly_A = regA "häßlich" ;
+--  understand_V2 = 
+--    dirV2 (irregV "verstehen" "versteht" "verstand" "verstände" "verstanden") ;
+--  university_N = reg2N "Universität" "Universitäten" feminine  ;
+--  village_N = reg2N "Dorf" "Dörfer" neuter ;
+--  wait_V2 = prepV2 (regV "warten") (mkPrep "auf" accusative) ;
+--  walk_V = seinV (irregV "gehen" "geht" "ging" "ginge" "gegangen") ;
+--  warm_A = mk3A "warm" "wärmer" "wärmste" ;
+--  war_N = mkN "Krieg" ;
+--  watch_V2 = prepV2 (regV "schauen") (mkPrep "an" accusative) ;
+--  water_N = reg2N "Wasser" "Wasser" neuter ;
+--  white_A = regA "weiß" ;
+--  window_N = reg2N "Fenster" "Fenster" neuter ;
+--  wine_N = mkN "Wein" ;
+--  win_V2 = dirV2 (irregV "gewinnen" "gewinnt" "gewann" "gewänne" "gewonnen") ;
+--  woman_N = reg2N "Frau" "Frauen" feminine ;
+--  wonder_VQ = mkVQ (reflV (regV "wundern") accusative) ;
+--  wood_N = reg2N "Holz" "Hölzer" neuter ;
+--  write_V2 = dirV2 (irregV "schreiben" "schreibt" "schrieb" "schriebe" "geschrieben") ;
+--  yellow_A = regA "gelb" ;
+--  young_A = mk3A "jung" "jünger" "jüngste" ;
+--  left_Ord = Mo.mkOrd (regA "link") ;
+--  right_Ord = Mo.mkOrd (regA "recht") ;
+--  far_Adv = mkAdv "weit" ;
+--  correct_A = regA "richtig" ;
+--  dry_A = regA "trocken" ;
+--  dull_A = regA "stumpf" ;
+--  full_A = regA "voll" ;
+--  heavy_A = mkA "schwer" "schwere" "schwerer" "schwerste" ;
+--  near_A = mk3A "nahe" "näher" "nächste" ;
+--  rotten_A = regA "verdorben" ;
+--  round_A = regA "rund" ;
+--  sharp_A = mk3A "scharf" "schärfer" "schärfste" ;
+--  smooth_A = regA "glatt" ;
+--  straight_A = regA "gerade" ;
+--  wet_A = regA "naß" ;
+--  wide_A = regA "breit" ;
+--  animal_N = reg2N "Tier" "Tiere" neuter ;
+--  ashes_N = mkN "Asche" ;
+--  back_N = reg2N "Rücken" "Rücken" masculine ;
+--  bark_N = mkN "Rinde" ;
+--  belly_N = reg2N "Bauch" "Bäuche" masculine ;
+--  blood_N = mkN "Blut" "Blute" neuter ;
+--  bone_N = reg2N "Knochen" "Knochen" masculine ;
+--  breast_N = reg2N "Brust" "Brüste" feminine ;
+--  cloud_N = mkN "Wolke" ;
+--  day_N = mkN "Tag" ;
+--  dust_N = reg2N "Staub" "Stäube" masculine ;
+--  ear_N = mkN "Ohr" "Ohren" neuter ;
+--  earth_N = mkN "Erde" ;
+--  egg_N = mkN "Ei" "Eier" neuter ;
+--  eye_N = mkN "Auge" "Augen" neuter;
+--  fat_N = mkN "Fett" "Fetter" neuter ;
+--  feather_N = mkN "Feder" "Federn" feminine ;
+--  fingernail_N = reg2N "Fingernagel" "Fingernägel" masculine ;
+--  fire_N = mkN "Feuer" "Feuer" neuter ;
+--  flower_N = mkN "Blume" ;
+--  fog_N = mkN "Nebel" "Nebel" masculine ;
+--  foot_N = reg2N "Fuß" "Füße" masculine ;
+--  forest_N = reg2N "Wald" "Wälder" masculine ;
+--  grass_N = mkN "Gras" "Gräser" neuter ;
+--  guts_N = mkN "Eingeweide" ;
+--  hair_N = mkN "Haar" "Haare" neuter ;
+--  hand_N = mkN "Hand" "Hände" feminine ;
+--  head_N = mkN "Kopf" "Köpfe" masculine ;
+--  heart_N = mkN "Herz" "Herzen" neuter ;
+--  horn_N = mkN "Horn" "Hörner" neuter ;
+--  husband_N = mkN "Ehemann" "Ehemänner" masculine ;
+--  ice_N = mkN "Eis" "Eise" neuter ;
+--  knee_N = mkN "Knie" "Knien" neuter ;
+--  leaf_N = reg2N "Blatt" "Blätter" neuter ;
+--  leg_N = mkN "Bein" "Beine" neuter ;
+--  liver_N = mkN "Leber" "Lebern" feminine ;
+--  louse_N = reg2N "Laus" "Läuse" feminine ;
+--  mouth_N = mkN "Mund" "Münder" masculine ;
+--  name_N = mkN "Name" "Namen" "Namen" "Namens" "Namen" "Namen" masculine ;
+--  neck_N = mkN "Nacken" "Nacken" masculine ;
+--  night_N = reg2N "Nacht" "Nächte" feminine ;
+--  nose_N = mkN "Nase" ;
+--  person_N = mkN "Person" "Personen" feminine ;
+--  rain_N = mkN "Regen" ;
+--  road_N = mkN "Straße" ;
+--  root_N = mkN "Wurzel" "Wurzeln" feminine ;
+--  rope_N = mkN "Seil" "Seile" neuter ;
+--  salt_N = mkN "Salz" "Salze" neuter ;
+--  sand_N = mkN "Sand" ;
+--  seed_N = mkN "Same" ;
+--  skin_N = mkN "Haut" "Häute" feminine ;
+--  sky_N = mkN "Himmel" ;  ---- pl
+--  smoke_N = mkN "Rauch" ;
+--  snow_N = mkN "Schnee" "Schneen" masculine ; ---- pl
+--  stick_N = mkN "Stock" "Stöcke" masculine ;
+--  tail_N = mkN "Schwanz" "Schwänze" masculine ;
+--  tongue_N = mkN "Zunge" ;
+--  tooth_N = mkN "Zahn" "Zähne" masculine ;
+--  wife_N = mkN "Ehefrau" "Ehefrauen" feminine ;
+--  wind_N = mkN "Wind" ;
+--  wing_N = reg2N "Flügel" "Flügel" masculine ;
+--  worm_N = mkN "Wurm" "Würmer" masculine ;
+--  year_N = mkN "Jahr" "Jahre" neuter ;
+--  blow_V = regV "blasen" ;
+--  breathe_V = regV "atmen" ;
+--  burn_V = regV "brennen" ;
+--  dig_V = regV "graben" ;
+--  fall_V = regV "fallen" ;
+--  float_V = regV "treiben" ;
+--  flow_V = regV "fließen" ;
+--  fly_V = regV "fliegen" ;
+--  freeze_V = regV "frieren" ;
+--  give_V3 = accdatV3 (irregV "geben" "gibt" "gab" "gäbe" "gegeben") ;
+--  laugh_V = regV "lachen" ;
+--  lie_V = regV "lügen" ;
+--  play_V = regV "spielen" ;
+--  sew_V = regV "nähen" ;
+--  sing_V = regV "singen" ;
+--  sit_V = irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
+--  smell_V = regV "riechen" ;
+--  spit_V = regV "spucken" ;
+--  stand_V = regV "stehen" ;
+--  swell_V = prefixV "an" (regV "schwellen") ;
+--  swim_V = regV "schwimmen" ;
+--  think_V = regV "denken" ;
+--  turn_V = regV "drehen" ;
+--  vomit_V = regV "kotzen" ;
+--
+--  bite_V2 = dirV2 (irregV "beißen" "beißt" "biss" "bisse" "gebissen") ;
+--  count_V2 = dirV2 (regV "zählen") ;
+--  cut_V2 = dirV2 (irregV "schneiden" "schneidet" "schnitt" "schnitte" "geschnitten") ;
+--  fear_V2 = dirV2 (regV "fürchten") ;
+--  fight_V2 = dirV2 (regV "bekämpfen") ;
+--  hit_V2 = dirV2 (irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen") ;
+--  hold_V2 = dirV2 (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
+--  hunt_V2 = dirV2 (regV "jagen") ;
+--  kill_V2 = dirV2 (regV "töten") ;
+--  pull_V2 = dirV2 (irregV "ziehen" "zieht" "zog" "zöge" "gezogen") ;
+--  push_V2 = dirV2 (irregV "schieben" "schiebt" "schub" "schübe" "geschoben") ;
+--  rub_V2 = dirV2 (irregV "reiben" "reibt" "rieb" "riebe" "gerieben") ;
+--  scratch_V2 = dirV2 (regV "kratzen") ;
+--  split_V2 = dirV2 (prefixV "auf" (regV "teilen")) ;
+--  squeeze_V2 = dirV2 (regV "pressen") ;
+--  stab_V2 = dirV2 (irregV "stechen" "sticht" "stach" "stäche" "gestochen") ;
+--  suck_V2 = dirV2 (regV "saugen") ;
+--  throw_V2 = dirV2 (irregV "werfen" "wirft" "warf" "würfe" "geworfen") ;
+--  tie_V2 = dirV2 (irregV "binden" "bindet" "band" "bände" "gebunden") ;
+--  wash_V2 = dirV2 (irregV "waschen" "wäscht" "wusch" "wüsche" "gewaschen") ;
+--  wipe_V2 = dirV2 (regV "wischen") ;
+--
+--  grammar_N = reg2N "Grammatik" "Grammatiken" feminine ;
+--  language_N = mkN "Sprache" ;
+--  rule_N = reg2N "Regel" "Regeln" feminine ;
+--
+--    john_PN = regPN "Johann" ;
+--    question_N = mkN "Frage" ;
+--    ready_A = regA "fertig" ;
+--    reason_N = reg2N "Grund" "Gründe" masculine ;
+--    today_Adv = mkAdv "heute" ;
+--    uncertain_A = regA "unsicher" ;
+--
+--
+--} ;
+
+}