Danish lexicon improved (but still unfinished)

lib/resource-1.0/Makefile

@@ -28,7 +28,7 @@ mathematical:
 
 multimodal:
 	$(GF) -make -nocf multimodal/Multi???.gf
-	mv multimodal/*.gfc multimodal/*.gfr ../multimodal
+	mv multimodal/*.gfc ../multimodal
 
 compiled:
 	cd .. ; tar cvfz compiled.tgz alltenses/ mathematical/ multimodal/ present/ prelude/*.gf?

lib/resource-1.0/danish/IrregDan.gf

@@ -8,31 +8,28 @@ concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in {
 
   lin
 
-  bære_V = irregV "bære" "bar" "båret" ;--
-  bede_V = mkV "bede" "beder" "bedes" "bad" "bedt" "bed" ;--
-  bide_V = irregV "bite" "bed" "bitt" ;--
+  bære_V = irregV "bære" "bar" "båret" ;
+  bede_V = mkV "bede" "beder" "bedes" "bad" "bedt" "bed" ;
+  bide_V = irregV "bite" "bed" "bidt" ;
+  binde_V = irregV "binde" "bandt" "bundet" ;
   blive_V = irregV "blive" "blev" "blevet" ;
-  brænde_V = irregV "brænde" "brant" "brænt" ;--
-  bringe_V = irregV "bringe" "bragte" "bragt" ;--
+  brænde_V = irregV "brænde" "brandt" "brændt" ;--
+  bringe_V = irregV "bringe" "bragte" "bragt" ;
   burde_V = irregV "burde" "burde" "burdet" ;--
   dø_V = irregV "dø" "døde" "død" ;
---  dra_V = mkV "dra" "drar" "dras" "drog" (variants {"dradd" ;-- "dratt"}) "dra" ;--
+  drage_V = irregV "drage" "drog" "draget" ;
   drikke_V = irregV "drikke" "drak" "drukket" ;
---  drive_V = irregV "drive" (variants {"drev" ;-- "dreiv"}) "drevet" ;--
---  eie_V = irregV "eie" (variants {"eide" ;-- "åtte"}) (variants {"eid" ;-- "ått"}) ;--
-  falle_V = irregV "falle" "falt" "falt" ;--
+  drive_V = irregV "drive" "drev" "drevet" ;
+  falde_V = irregV "falde" "faldt" "faldet" ;----er
   få_V = irregV "få" "fik" "fået" ;
-  finde_V = irregV "finde" "fand" "fundet" ;--
-  flyde_V = irregV "flyde" "flød" "flytt" ;--
-  flyve_V = irregV "flyve" "fløg" "flydd" ;--
-  foretrekke_V = irregV "foretrekke" "foretrakk" "foretrukket" ;--
+  finde_V = irregV "finde" "fandt" "fundet" ;
+  flyde_V = irregV "flyde" "flød" "flydt" ;
+  flyve_V = irregV "flyve" "fløj" "fløjet" ;
   forlade_V = irregV "forlade" "forlod" "forladet" ;
-  forstå_V = irregV "forstå" "forstod" "forstått" ;--
-  fortælle_V = irregV "fortælle" "fortalte" "fortalt" ;--
-  fryse_V = irregV "fryse" "frøs" "frosset" ;--
-  gå_V = irregV "gå" "gik" "gået" ;
+  forstå_V = irregV "forstå" "forstod" "forstået" ;
+  fryse_V = irregV "fryse" "frøs" "frosset" ;
+  gå_V = irregV "gå" "gik" "gået" ;----er
   give_V = irregV "give" "gav" "givet" ;
---  gjelde_V = irregV "gjelde" (variants {"gjaldt" ;-- "galdt"}) "gjeldt" ;--
   gnide_V = irregV "gnide" "gned" "gnidd" ;--
   gøre_V = irregV "gøre" "gjorde" "gjort" ;
   have_V =  mkV "have" "har" "havde" "haft" nonExist "hav" ;
@@ -67,6 +64,7 @@ concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in {
   tage_V = irregV "tage" "tog" "taget" ;
 --  treffe_V = irregV "treffe" "traff" "truffet" ;--
 --  trives_V = irregV "trives" "trivdes" (variants {"trives" ;-- "trivs"}) ;--
+  tælle_V = irregV "tælle" "talte" "talt" ;
   vide_V = irregV "vide" "vidste" "vidst" ;
 
 }

lib/resource-1.0/danish/IrregDanAbs.gf

@@ -5,24 +5,22 @@ abstract IrregDanAbs = Cat ** {
   bćre_V : V ; 
   bede_V : V ; 
   bide_V : V ; 
+  binde_V : V ; 
   blive_V : V ; 
   brćnde_V : V ; 
   bringe_V : V ; 
   burde_V : V ; 
   dř_V : V ; 
---  dra_V : V ; 
+  drage_V : V ; 
   drikke_V : V ; 
---  drive_V : V ; 
---  eie_V : V ; 
-  falle_V : V ; 
+  drive_V : V ; 
+  falde_V : V ; 
   fĺ_V : V ; 
   finde_V : V ; 
   flyde_V : V ; 
   flyve_V : V ; 
-  foretrekke_V : V ; 
   forlade_V : V ; 
   forstĺ_V : V ; 
-  fortćlle_V : V ; 
   fryse_V : V ; 
   gĺ_V : V ; 
   give_V : V ; 
@@ -59,6 +57,7 @@ abstract IrregDanAbs = Cat ** {
   stikke_V : V ; 
   synge_V : V ; 
   tage_V : V ; 
+  tćlle_V : V ; 
 --  treffe_V : V ; 
 --  trives_V : V ; 
   vide_V : V ;

lib/resource-1.0/danish/LexiconDan.gf

@@ -1,5 +1,7 @@
 --# -path=.:../scandinavian:../common:../abstract:../../prelude
 
+
+
 concrete LexiconDan of Lexicon = CatDan **
   open Prelude, ParadigmsDan, IrregDan in {
 
@@ -18,141 +20,141 @@ lin
   bank_N = mk2N "bank" "banken" ;
   beautiful_A = mk3ADeg "smuk" "smukt" "smukke" ; ----
   become_VA = mkVA blive_V ;
-  beer_N = regGenN "øl" neutrum ;
-  beg_V2V = mkV2V bede_V [] "att" ;
+  beer_N = mk2N "øl" "ølet" ;
+  beg_V2V = mkV2V bede_V [] "at" ;
   big_A = irregADeg "stor" "større" "størst";
-  bike_N = mkN "cykel" "cykeln" "cykler" "cyklene" ; ----
+  bike_N = mkN "cykel" "cykeln" "cykler" "cyklerne" ; ----
   bird_N = mk2N "fugl" "fuglen" ;
   black_A = mk2ADeg "sort" "sort" ;
   blue_A = mk2ADeg "blå" "blått";
-  boat_N = regGenN "båd" utrum ;
+  boat_N = mk3N "båd" "båden" "både" ;
   book_N = mkN "bog" "bogen" "bøger" "bøgene" ;
-  boot_N = mkN "støvle" "støvlen" "støvler" "støvlene" ;
+  boot_N = mkN "støvle" "støvlen" "støvler" "støvlerne" ;
   boss_N = mk2N "chef" "chefen" ;
-  boy_N = regGenN "dreng" utrum ;
-  bread_N = regGenN "brød" neutrum ;
+  boy_N = mk2N "dreng" "drengen" ;
+  bread_N = mk2N "brød" "brødet" ;
   break_V2 = dirV2 (mk2V "knuse" "knuste") ;
   broad_A = regADeg "bred" ;
-  brother_N2 = mkN2 ( (mkN "broder" "broderen" "brødre" "brødrene")) "til" ; ----
+  brother_N2 = mkN2 (mk3N "broder" "brodren" "brødre") "til" ; ----
   brown_A = regADeg "brun" ;
-  butter_N = regGenN "smør" neutrum ;
+  butter_N = mk2N "smør" "smøret" ;
   buy_V2 = dirV2 (mk2V "købe" "købte") ; ----
   camera_N = mk2N "kamera" "kameraen" ; ----
   cap_N = mk2N "hue" "huen" ;
-  car_N = regGenN "bil" utrum ;
-  carpet_N = regGenN "tæppe" utrum ;
-  cat_N = mk2N "kat" "katen" ;
-  ceiling_N = regGenN "loft" neutrum ; ----
-  chair_N = regGenN "stol" utrum ;
-  cheese_N = regGenN "ost" utrum ;
-  child_N = mkN "barn" "barnet" "børn" "børnen" ; ----
-  church_N = regGenN "kirke" utrum ;
+  car_N = mk2N "bil" "bilen" ;
+  carpet_N = mk2N "tæppe" "tæppen" ;
+  cat_N = mk3N "kat" "katten" "katte" ;
+  ceiling_N = mk2N "loft" "loftet" ;
+  chair_N = mk3N "stol" "stolen" "stole" ;
+  cheese_N = mk2N "ost" "osten" ;
+  child_N = mk3N "barn" "barnet" "børn" ; ----
+  church_N = mk2N "kirke" "kirken" ;
   city_N = mk2N "by" "byen" ;
   clean_A = regADeg "ren" ;
   clever_A = regADeg "flink" ;
-  close_V2 = dirV2 (mk2V "lukke" "lukket") ;
-  coat_N = regGenN "frakke" utrum ;
+  close_V2 = dirV2 (mk2V "lukke" "lukkede") ;
+  coat_N = mk2N "frakke" "frakken" ;
   cold_A = regADeg "kold" ;
   come_V = komme_V ;
   computer_N = mk2N "datamaskine" "datamaskinen" ;
   country_N = mk2N "land" "landet" ;
-  cousin_N = mk2N "fætter" "fætteren" ; ----
-  cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ----
+  cousin_N = mk3N "fætter" "fættren" "fættre" ; ----
+  cow_N = mk2N "ku" "kuen" ; ----
   die_V = dø_V ;
   dirty_A = regADeg "smudsig" ; ----
   distance_N3 = mkN3 (regGenN "afstand" utrum) "fra" "til" ;
   doctor_N = mk2N "læge" "lægen" ;
-  dog_N = regGenN "hund" utrum ;
-  door_N = regGenN "dør" utrum ;
+  dog_N = mk2N "hund" "hunden" ;
+  door_N = mk2N "dør" "døren" ;
   drink_V2 = dirV2 drikke_V ;
   easy_A2V = mkA2V (regA "nem") "for" ; ----
   eat_V2 = dirV2 (mk2V "spise" "spiste") ;
   empty_A = mkADeg "tøm" "tømt" "tømme" "tømmere" "tømmest" ; ----
-  enemy_N = regGenN "fjende" utrum ;
+  enemy_N = mk2N "fjende" "fjenden" ;
   factory_N = mk2N "fabrik" "fabriken" ;
-  father_N2 = mkN2 ( (mkN "far" "faderen" "fædre" "fædrene")) "til" ; ----
+  father_N2 = mkN2 ( (mk3N "far" "fadren" "fædre")) "til" ; ----
   fear_VS = mkVS (regV "frygte") ;
   find_V2 = dirV2 (irregV "finde" "fand" "fundet") ; ----
   fish_N = mk2N "fisk" "fisken" ;
-  floor_N = regGenN "gulv" neutrum ;
+  floor_N = mk2N "gulv" "gulvet" ;
   forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ; ----
-  fridge_N = regGenN "køleskab" neutrum ;
-  friend_N = mkN "ven" "vennen" "venner" "vennene" ; ----
+  fridge_N = mk2N "køleskab"  "køleskabet" ;
+  friend_N = mk3N "ven" "vennen" "venner" ; ----
   fruit_N = mk2N "frugt" "frugten" ;
   fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ; ----
-  garden_N = regGenN "have" utrum ;
-  girl_N = regGenN "pige" utrum ;
-  glove_N = regGenN "handske" utrum ;
-  gold_N = regGenN "guld" neutrum ;
+  garden_N = mk2N "have" "haven" ;
+  girl_N = mk2N "pige" "pigen" ;
+  glove_N = mk2N "handske" "handsken" ;
+  gold_N = mk2N "guld" "guldet" ;
   good_A = mkADeg "god" "godt" "gode" "bedre" "bedst" ; ----
   go_V = gå_V ;
-  green_A = mk2ADeg "grøn" "grønt" ;
-  harbour_N = regGenN "havn" utrum;
+  green_A = mk3ADeg "grøn" "grønt" "grønne" ;
+  harbour_N = mk2N "havn" "havnen" ;
   hate_V2 = dirV2 (regV "hade") ;
-  hat_N = regGenN "hat" utrum ;
+  hat_N = mk3N "hat" "hatten" "hatte" ;
   have_V2 = dirV2 have_V ;
   hear_V2 = dirV2 (mk2V "høre" "hørte") ;
-  hill_N = regGenN "høj" utrum ;
+  hill_N = mk2N "høj" "højen" ;
   hope_VS = mkVS (regV "håbe") ;
-  horse_N = regGenN "hest" utrum ;
+  horse_N = mk3N "hest" "hesten" "heste" ;
   hot_A = regADeg "hed" ;
-  house_N = regGenN "hus" neutrum ;
+  house_N = mk3N "hus" "huset" "huse" ;
   important_A = regADeg "vigtig" ;
   industry_N = mk2N "industri" "industrien" ;
-  iron_N = regGenN "jern" neutrum ;
-  king_N = regGenN "konge" utrum ;
+  iron_N = mk2N "jern" "jernet" ;
+  king_N = mk2N "konge" "kongen" ;
   know_V2 = dirV2 vide_V ;
-  lake_N = regGenN "sø" utrum ;
-  lamp_N = regGenN "lampe" utrum ;
+  lake_N = mk2N "sø" "søen" ;
+  lamp_N = mk2N "lampe" "lampen" ;
   learn_V2 = dirV2 (mk2V "lære" "lærte") ;
-  leather_N = regGenN "læder" neutrum ;
+  leather_N = mk2N "læder" "læderet" ;
   leave_V2 = dirV2 forlade_V ;
   like_V2 = mkV2 holde_V "af" ;
   listen_V2 = dirV2 (regV "lytte") ;
   live_V = mk2V "leve" "levde" ;
   long_A = irregADeg "lang" "længer" "længst" ; ----
   lose_V2 = dirV2 (regV "tabe") ;
-  love_N = regGenN "kærlighed" utrum ;
+  love_N = mk2N "kærlighed" "kærligheden" ;
   love_V2 = dirV2 (regV "elske") ;
   man_N =  (mkN "mand" "manden" "mænd" "mænden") ; ----
   married_A2 = mkA2 (mk2A "gift" "gift") "med" ;
-  meat_N = regGenN "kød" neutrum ;
-  milk_N = regGenN "mælk" utrum ;
-  moon_N = regGenN "måne" utrum ;
+  meat_N = mk2N "kød" "kødet" ;
+  milk_N = mk2N "mælk" "mælken" ;
+  moon_N = mk2N "måne" "månen" ;
   mother_N2 = mkN2 (mkN "moder" "moderen" "mødre" "mødrene") "til" ; ----
-  mountain_N = regGenN "bjerg" neutrum ;
+  mountain_N = mk2N "bjerg" "bjerget" ;
   music_N = mk2N "musik" "musiken" ;
   narrow_A = regADeg "smal" ;
   new_A = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ;
-  newspaper_N = regGenN "avis" utrum ;
-  oil_N = regGenN "olie" utrum ;
+  newspaper_N = mk2N "avis" "avisen" ;
+  oil_N = mk2N "olie" "olien" ;
   old_A = mkADeg "gammel" "gammelt" "gamle" "ældre" "ældst" ; ----
   open_V2 = dirV2 (regV "åbne") ;
   paint_V2A = mkV2A (regV "male") [] ;
-  paper_N = regGenN "papir" neutrum ; ----
+  paper_N = mk2N "papir" "papiret" ;
   paris_PN = regPN "Paris" neutrum ;
-  peace_N = regGenN "fred" utrum ;
-  pen_N = regGenN "pen" utrum ;
+  peace_N = mk2N "fred" "freden" ;
+  pen_N = mk2N "pen" "penen" ;
   planet_N = mk2N "planet" "planeten" ;
   plastic_N = mk2N "plast" "plasten" ;
   play_V2 = dirV2 (mk2V "spille" "spilte") ;
   policeman_N = mk2N "politibetjent" "politibetjenten" ; ----
   priest_N = mk2N "præst" "præsten" ;
   probable_AS = mkAS (regA "sandsynlig") ;
-  queen_N = regGenN "dronning" utrum ;
-  radio_N = regGenN "radio" utrum ;
+  queen_N = mk2N "dronning" "dronningen" ;
+  radio_N = mk2N "radio" "radioen" ;
   rain_V0 = mkV0 (regV "regne") ;
   read_V2 = dirV2 (mk2V "læse" "læste") ;
   red_A = regADeg "rød" ;
   religion_N = mk2N "religion" "religionen" ;
   restaurant_N = mk2N "restaurant" "restauranten" ;
   river_N = mk2N "flod" "floden" ;
-  rock_N = regGenN "sten" utrum ;
-  roof_N = regGenN "tag" neutrum ;
+  rock_N = mk2N "sten" "stenen" ;
+  roof_N = mk2N "tag" "taget" ;
   rubber_N = mk2N "gummi" "gummien" ;
   run_V = regV "løbe" ;
   say_VS = mkVS sige_V ;
-  school_N = regGenN "skole" utrum;
+  school_N = mk2N "skole" "skolen" ;
   science_N = mk2N "videnskab" "videnskaben" ;
   sea_N = mk2N "hav" "havet" ;
   see_V2 = dirV2 se_V ;
@@ -160,53 +162,53 @@ lin
   sell_V3 = dirV3 sælge_V "til" ;
   send_V3 = dirV3 (mk2V "sende" "sendte") "til" ;
   sheep_N = mk2N "får" "fåret" ;
-  ship_N = regGenN "skib" neutrum ;
-  shirt_N = regGenN "skjorte" utrum ;
-  shoe_N = regGenN "sko" utrum ;
+  ship_N = mk2N "skib" "skibet" ;
+  shirt_N = mk2N "skjorte" "skjorten" ;
+  shoe_N = mk2N "sko" "skoen" ;
   shop_N = mk2N "butik" "butiken" ;
   short_A = regADeg "kort" ;
   silver_N = mk2N "sølv" "sølvet";
   sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ; ----
   sleep_V = irregV "sove" "sov" "sovet" ;
   small_A = mkADeg "lille" "lille" "små" "mindre" "mindst" ; ----
-  snake_N = regGenN "slange" utrum ;
-  sock_N = regGenN "sok" utrum ;
+  snake_N = mk2N "slange" "slangen" ;
+  sock_N = mk2N "sok" "soken" ;
   speak_V2 = dirV2 (regV "tale") ; ----
-  star_N = regGenN "stjerne" utrum ;
-  steel_N = regGenN "stål" neutrum ;
-  stone_N = regGenN "sten" utrum ;
-  stove_N = regGenN "komfur" utrum ;
+  star_N = mk2N "stjerne" "stjernen" ;
+  steel_N = mk2N "stål" "stålet" ;
+  stone_N = mk2N "sten" "stenen" ;
+  stove_N = mk2N "komfur" "komfuren" ;
   student_N = mk2N "student" "studenten" ;
   stupid_A = mk3ADeg "dum" "dumt" "dumme" ;
-  sun_N = regGenN "sol" utrum ;
+  sun_N = mk2N "sol" "solen" ;
   switch8off_V2 = dirV2 (partV (regV "lukke") "for") ;
   switch8on_V2 = dirV2 (partV (regV "lukke") "op") ;
-  table_N = regGenN "bord" neutrum ;
+  table_N = mk2N "bord" "bordet" ;
   talk_V3 = mkV3 (regV "tale") "til" "om" ;
   teacher_N = mkN "lærer" "læreren" "lærere" "lærerne" ;
   teach_V2 = dirV2 (mk2V "undervise" "underviste") ;
   television_N = mk2N "fjernsyn" "fjernsynet" ;
   thick_A = mk2ADeg "tyk" "tykt" ;
   thin_A = mk2ADeg "tynd" "tyndt" ; ----
-  train_N = regGenN "tog" neutrum ;
+  train_N = mk2N "tog" "toget" ;
   travel_V = mk2V "rejse" "rejste" ;
   tree_N = mkN "træ" "træet" "trær" "træne" ; ----
   ----  trousers_N = regGenN "trousers" ; ---- pl t !
   ugly_A = regADeg "grim" ;
   understand_V2 = dirV2 (irregV "forstå" "forstod" "forstått") ;
-  university_N = regGenN "universitet" neutrum ;
+  university_N = mk2N "universitet" "universitetet" ;
   village_N = mk2N "landsby" "landsbyen" ;
   wait_V2 = mkV2 (regV "vente") "på" ;
   walk_V = (irregV "gå" "gikk" "gått") ;
   warm_A = regADeg "varm" ;
-  war_N = regGenN "krig" utrum ;
+  war_N = mk2N "krig" "krigen" ;
   watch_V2 = mkV2 se_V "på" ;
   water_N = mk2N "vand" "vandet" ;
   white_A = regADeg "hvid" ;
   window_N = mkN "vindue" "vinduet" "vinduer" "vinduene" ; ---- er?
   wine_N = mk2N "vin" "vinen" ;
   win_V2 = dirV2 (irregV "vinde" "vand" "vundet") ;
-  woman_N = regGenN "kvinde" utrum ;
+  woman_N = mk2N "kvinde" "kvinden" ;
   wonder_VQ = mkVQ (depV (regV "undre")) ;
   wood_N = mkN "træ" "træet" "trær" "træne" ; ----
   write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ;
@@ -305,10 +307,10 @@ lin
   bite_V2 = dirV2 bide_V ;
   blow_V = mk2V "blæse" "blæste" ;
   burn_V = brænde_V ;
---  count_V2 = dirV2 tælle_V ;
+  count_V2 = dirV2 tælle_V ;
   cut_V2 = dirV2 (skære_V) ;
   dig_V = mk2V "grave" "gravde" ;
-  fall_V = falle_V ;
+  fall_V = falde_V ;
   fear_V2 = dirV2 (regV "frygte") ;
   fight_V2 = dirV2 (regV "kæmpe") ;
   float_V = flyde_V ;
@@ -341,7 +343,7 @@ lin
   swim_V = regV "svømme" ;
   think_V = mk2V "tænke" "tænkte" ; ----
   throw_V2 = dirV2 (regV "kaste") ;
---  tie_V2 = dirV2 binde_V ;
+  tie_V2 = dirV2 binde_V ;
   turn_V = regV "dreje" ;
   vomit_V = partV (regV "kaste") "op" ;
   wash_V2 = dirV2 (regV "vaske") ;

lib/resource-1.0/danish/ParadigmsDan.gf

@@ -86,6 +86,11 @@ oper
 
   mk2N : (bil,bilen : Str) -> N ;
 
+-- This function takes the singular indefinite and definite and the plural
+-- indefinite
+
+  mk3N : (bil,bilen,biler : Str) -> N ;
+
 
 --3 Compound nouns 
 --
@@ -304,17 +309,19 @@ oper
        Neutr      => mkN x (x      + "t") (x + "r") (init x + "ene")
        } ;
     _ => case g of {
-       Utr        => mkN x (x      + "en") (x + "er") (x + "rene") ;
+       Utr        => mkN x (x      + "en") (x + "er") (x + "erne") ;
        Neutr      => mkN x (x      + "et") (x + "")   (x + "ene")
        }
     } ;
 
 
    mk2N x y = case last y of {
-     "n" => regGenN x utrum ;
-     _   => regGenN x neutrum
+     "n" => mk3N x y (init y + "r") ;
+     _   => mk3N x y x
      } ;
 
+   mk3N x y z = let u = ifTok Str x z "ene" "ne" in mkN x y z (z + u) ;
+
   mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ;
   regN2 n g = mkN2 (regGenN n g) (mkPreposition "av") ;
   mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ;
@@ -325,7 +332,7 @@ oper
     {s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ;
      lock_NP = <>} ;
 
-  mkA a b c = (mkAdject a b c [] []) ** {lock_A = <>} ;
+  mkA = mk3ADeg ;
   mk2A a b = mkA a b (a + "e") ;
   regA a = (regADeg a) **  {lock_A = <>} ;
 
@@ -341,7 +348,7 @@ oper
     }}  ** {lock_A = <>} ;
 
   irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** {lock_A = <>} ;
-  mk3ADeg a b c = mkAdject a b c (a + "ere") (a + "est") ** {lock_A = <>} ;
+  mk3ADeg a b c = mkAdject a b c (c + "re") (c + "st") ** {lock_A = <>} ;
   mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** {lock_A = <>} ;
 
   mkAdv x = ss x ** {lock_Adv = <>} ;

lib/resource-1.0/english/ResEng.gf

@@ -174,10 +174,10 @@ resource ResEng = ParamX ** open Prelude in {
 
   VP : Type = {
     s   : VerbForms ;
-    prp : Str ; -- present participle 
-    inf : Str ; -- infinitive
-    ad  : Str ;
-    s2  : Agr => Str
+    prp : Str ;   -- present participle 
+    inf : Str ;   -- the infinitive form ; VerbForms would be the logical place
+    ad  : Str ;   -- sentential adverb
+    s2  : Agr => Str -- complement
     } ;