little fixes in Dan

This commit is contained in:
aarne
2006-05-14 18:04:12 +00:00
parent 9a74e68cf5
commit 00c5e4560b
2 changed files with 43 additions and 47 deletions

View File

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

View File

@@ -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 ;
carpet_N = regGenN "matte" feminine ;
car_N = regGenN "bil" utrum ;
carpet_N = regGenN "matte" utrum ;
cat_N = mk2N "katt" "katten" ;
ceiling_N = regGenN "tak" neutrum ;
chair_N = regGenN "stol" masculine ;
cheese_N = regGenN "ost" masculine ;
chair_N = regGenN "stol" utrum ;
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 ;
door_N = regGenN "dør" feminine ;
dog_N = regGenN "hund" utrum ;
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 ;
girl_N = regGenN "jente" feminine ;
glove_N = regGenN "hanske" masculine ;
garden_N = regGenN "hage" utrum ;
girl_N = regGenN "jente" utrum ;
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 ;
moon_N = regGenN "måne" masculine ;
milk_N = regGenN "melk" utrum ;
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 ;
oil_N = regGenN "olje" masculine ;
newspaper_N = regGenN "avis" utrum ;
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 ;
pen_N = regGenN "penn" masculine ;
peace_N = regGenN "fred" utrum ;
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 ;
radio_N = regGenN "radio" masculine ;
queen_N = regGenN "dronning" utrum ;
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 ;
shoe_N = regGenN "sko" masculine ;
shirt_N = regGenN "skjorte" utrum ;
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 ;
sock_N = regGenN "strømpe" masculine ;
snake_N = regGenN "orm" utrum ;
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 ;
stove_N = regGenN "komfyr" masculine ;
stone_N = regGenN "stein" utrum ;
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