little fixes in Dan

lib/resource-1.0/danish/DiffDan.gf

@@ -16,7 +16,7 @@ instance DiffDan of DiffScand = open CommonScand, Prelude in {
         _  => Plg
         } ;
 
-    detDef : Species = Def ;
+    detDef : Species = Indef ;
 
 -- Strings.
 

lib/resource-1.0/danish/LexiconDan.gf

@@ -25,11 +25,11 @@ lin
   bird_N = mk2N "fugl" "fuglen" ;
   black_A = mk2ADeg "svart" "svart" ;
   blue_A = mk2ADeg "blå" "blått";
-  boat_N = regGenN "båt" masculine ;
+  boat_N = regGenN "båt" utrum ;
   book_N = mkN "bok" "boka" "bøker" "bøkene" ;
   boot_N = mkN "støvel" "støvelen" "støvler" "støvlene" ;
   boss_N = mk2N "sjef" "sjefen" ;
-  boy_N = regGenN "gutt" masculine ;
+  boy_N = regGenN "gutt" utrum ;
   bread_N = regGenN "brød" neutrum ;
   break_V2 = dirV2 (mk2V "knuse" "knuste") ;
   broad_A = regADeg "bred" ;
@@ -39,19 +39,19 @@ lin
   buy_V2 = dirV2 (mk2V "kjøpe" "kjøpte") ;
   camera_N = mk2N "kamera" "kameraen" ; ----
   cap_N = mk2N "lue" "lua" ;
-  car_N = regGenN "bil" masculine ;
+  car_N = regGenN "bil" utrum ;
-  carpet_N = regGenN "matte" feminine ;
+  carpet_N = regGenN "matte" utrum ;
   cat_N = mk2N "katt" "katten" ;
   ceiling_N = regGenN "tak" neutrum ;
-  chair_N = regGenN "stol" masculine ;
+  chair_N = regGenN "stol" utrum ;
-  cheese_N = regGenN "ost" masculine ;
+  cheese_N = regGenN "ost" utrum ;
   child_N = regGenN "barn" neutrum ;
-  church_N = regGenN "kirke" feminine ;
+  church_N = regGenN "kirke" utrum ;
   city_N = mk2N "by" "byen" ;
   clean_A = regADeg "rein" ;
   clever_A = regADeg "klok" ;
   close_V2 = dirV2 (mk2V "lukke" "lukket") ;
-  coat_N = regGenN "frakk" masculine ;
+  coat_N = regGenN "frakk" utrum ;
   cold_A = regADeg "kald" ;
   come_V = komme_V ;
   computer_N = mk2N "datamaskin" "datamaskinen" ;
@@ -60,15 +60,15 @@ lin
   cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ----
   die_V = dø_V ;
   dirty_A = mk3ADeg "skitten" "skittent" "skitne" ; ----
-  distance_N3 = mkN3 (regGenN "avstand" masculine) "fra" "til" ;
+  distance_N3 = mkN3 (regGenN "avstand" utrum) "fra" "til" ;
   doctor_N = mk2N "lege" "legen" ;
-  dog_N = regGenN "hund" masculine ;
+  dog_N = regGenN "hund" utrum ;
-  door_N = regGenN "dør" feminine ;
+  door_N = regGenN "dør" utrum ;
   drink_V2 = dirV2 drikke_V ;
   easy_A2V = mkA2V (regA "grei") "før" ;
   eat_V2 = dirV2 (mk2V "spise" "spiste") ;
   empty_A = mkADeg "tom" "tomt" "tomme" "tommere" "tommest" ;
-  enemy_N = regGenN "fiende" masculine ;
+  enemy_N = regGenN "fiende" utrum ;
   factory_N = mk2N "fabrikk" "fabrikken" ;
   father_N2 = mkN2 ( (mkN "far" "faren" "fedre" "fedrene")) "til" ;
   fear_VS = mkVS (regV "frykte") ;
@@ -80,30 +80,30 @@ lin
   friend_N = mkN "venn" "vennen" "venner" "vennene" ;
   fruit_N = mk2N "frukt" "frukten" ;
   fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ;
-  garden_N = regGenN "hage" masculine ;
+  garden_N = regGenN "hage" utrum ;
-  girl_N = regGenN "jente" feminine ;
+  girl_N = regGenN "jente" utrum ;
-  glove_N = regGenN "hanske" masculine ;
+  glove_N = regGenN "hanske" utrum ;
   gold_N = regGenN "gull" neutrum ;
   good_A = mkADeg "god" "godt" "gode" "bedre" "best" ;
   go_V = gå_V ;
   green_A = mk2ADeg "grønn" "grønt" ;
-  harbour_N = regGenN "havn" feminine;
+  harbour_N = regGenN "havn" utrum;
   hate_V2 = dirV2 (regV "hate") ;
-  hat_N = regGenN "hatt" masculine ;
+  hat_N = regGenN "hatt" utrum ;
   have_V2 = dirV2 ha_V ;
   hear_V2 = dirV2 (mk2V "høre" "hørte") ;
-  hill_N = regGenN "haug" masculine ;
+  hill_N = regGenN "haug" utrum ;
   hope_VS = mkVS (regV "håpe") ;
-  horse_N = regGenN "hest" masculine ;
+  horse_N = regGenN "hest" utrum ;
   hot_A = regADeg "heit" ;
   house_N = regGenN "hus" neutrum ;
   important_A = regADeg "viktig" ;
   industry_N = mk2N "industri" "industrien" ;
   iron_N = regGenN "jern" neutrum ;
-  king_N = regGenN "konge" masculine ;
+  king_N = regGenN "konge" utrum ;
   know_V2 = dirV2 vite_V ;
   lake_N = regGenN "vann" neutrum ;
-  lamp_N = regGenN "lampe" feminine ;
+  lamp_N = regGenN "lampe" utrum ;
   learn_V2 = dirV2 (mk2V "lære" "lærte") ; 
   leather_N = regGenN "lær" neutrum ;
   leave_V2 = dirV2 forlate_V ;
@@ -112,47 +112,47 @@ lin
   live_V = mk2V "leve" "levde" ;
   long_A = irregADeg "lang" "lengre" "lengst" ;
   lose_V2 = dirV2 (mk2V "tape" "tapte") ;
-  love_N = regGenN "kjærlighet" masculine ;
+  love_N = regGenN "kjærlighet" utrum ;
   love_V2 = dirV2 (regV "elske") ;
   man_N =  (mkN "mann" "mannen" "menn" "mennen") ;
   married_A2 = mkA2 (mk2A "gift" "gift") "med" ;
   meat_N = regGenN "kjøtt" neutrum ;
-  milk_N = regGenN "melk" masculine ;
+  milk_N = regGenN "melk" utrum ;
-  moon_N = regGenN "måne" masculine ;
+  moon_N = regGenN "måne" utrum ;
   mother_N2 = mkN2 (mkN "mor" "moren" "mødre" "mødrene") "til" ; ---- fem
   mountain_N = regGenN "berg" neutrum ;
   music_N = mk2N "musikk" "musikken" ;
   narrow_A = regADeg "smal" ;
   new_A = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ;
-  newspaper_N = regGenN "avis" feminine ;
+  newspaper_N = regGenN "avis" utrum ;
-  oil_N = regGenN "olje" masculine ;
+  oil_N = regGenN "olje" utrum ;
   old_A = mkADeg "gammel" "gammelt" "gamle" "eldre" "eldst" ;
   open_V2 = dirV2 (regV "åpne") ;
   paint_V2A = mkV2A (regV "male") [] ;
   paper_N = regGenN "papir" neutrum ; ----
   paris_PN = regPN "Paris" neutrum ;
-  peace_N = regGenN "fred" masculine ;
+  peace_N = regGenN "fred" utrum ;
-  pen_N = regGenN "penn" masculine ;
+  pen_N = regGenN "penn" utrum ;
   planet_N = mk2N "planet" "planeten" ;
   plastic_N = mk2N "plast" "plasten" ;
   play_V2 = dirV2 (mk2V "spille" "spilte") ;
   policeman_N = mk2N "politi" "politien" ;
   priest_N = mk2N "prest" "presten" ;
   probable_AS = mkAS (regA "sannsynlig") ;
-  queen_N = regGenN "dronning" feminine ;
+  queen_N = regGenN "dronning" utrum ;
-  radio_N = regGenN "radio" masculine ;
+  radio_N = regGenN "radio" utrum ;
   rain_V0 = mkV0 (regV "regne") ;
   read_V2 = dirV2 (mk2V "lese" "leste") ;
   red_A = regADeg "rød" ;
   religion_N = mk2N "religion" "religionen" ;
   restaurant_N = mk2N "restaurant" "restauranten" ;
   river_N = mk2N "elv" "elva" ;
-  rock_N = regGenN "stein" masculine ;
+  rock_N = regGenN "stein" utrum ;
   roof_N = regGenN "tak" neutrum ;
   rubber_N = mk2N "gummi" "gummien" ;
   run_V = springe_V ;
   say_VS = mkVS si_V ;
-  school_N = regGenN "skole" feminine;
+  school_N = regGenN "skole" utrum;
   science_N = mk2N "vitenskap" "vitenskapen" ;
   sea_N = mk2N "sjø" "sjøen" ;
   seek_V2 = mkV2 (mk2V "lete" "lette") "etter" ;
@@ -161,24 +161,24 @@ lin
   send_V3 = dirV3 (mk2V "sende" "sendte") "til" ;
   sheep_N = mk2N "får" "fåret" ;
   ship_N = regGenN "skip" neutrum ;
-  shirt_N = regGenN "skjorte" feminine ;
+  shirt_N = regGenN "skjorte" utrum ;
-  shoe_N = regGenN "sko" masculine ;
+  shoe_N = regGenN "sko" utrum ;
   shop_N = mk2N "butikk" "butikken" ;
   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 "liten" "lite" "små" "mindre" "minst" ; ---- lille
-  snake_N = regGenN "orm" masculine ;
+  snake_N = regGenN "orm" utrum ;
-  sock_N = regGenN "strømpe" masculine ;
+  sock_N = regGenN "strømpe" utrum ;
   speak_V2 = dirV2 (regV "snakke") ;
-  star_N = regGenN "stjerne" feminine ;
+  star_N = regGenN "stjerne" utrum ;
   steel_N = regGenN "stål" neutrum ;
-  stone_N = regGenN "stein" masculine ;
+  stone_N = regGenN "stein" utrum ;
-  stove_N = regGenN "komfyr" masculine ;
+  stove_N = regGenN "komfyr" utrum ;
   student_N = mk2N "student" "studenten" ;
   stupid_A = mk3ADeg "dum" "dumt" "dumme" ;
-  sun_N = regGenN "sol" feminine ;
+  sun_N = regGenN "sol" utrum ;
   switch8off_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "av") ;
   switch8on_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "på") ;
   table_N = regGenN "bord" neutrum ;
@@ -199,14 +199,14 @@ lin
   wait_V2 = mkV2 (regV "vente") "på" ;
   walk_V = (irregV "gå" "gikk" "gått") ;
   warm_A = regADeg "varm" ;
-  war_N = regGenN "krig" masculine ;
+  war_N = regGenN "krig" utrum ;
   watch_V2 = mkV2 se_V "på" ;
   water_N = mk2N "vatn" "vatnet" ;
   white_A = regADeg "hvit" ;
   window_N = mkN "vindu" "vinduet" "vinduer" "vinduene" ; ---- er?
   wine_N = mk2N "vin" "vinen" ;
   win_V2 = dirV2 (irregV "vinne" "vant" "vunnet") ;
-  woman_N = regGenN "kvinne" feminine ; ---- kvinnen
+  woman_N = regGenN "kvinne" utrum ; ---- kvinnen
   wonder_VQ = mkVQ (regV "undre") ; ---- seg
   wood_N = mkN "tre" "treet" "trær" "træne" ;
   write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ;
@@ -351,7 +351,3 @@ lin
 
 } ;
 
--- a" -> e"   86
--- ö  -> ø    66
--- ck -> kk   20
--- ä  -> e    44