more words and rules in Dutch

lib/src/dutch/StructuralDut.gf

@@ -1,6 +1,6 @@
 concrete StructuralDut of Structural = CatDut, Prelude ** 
 
-  open ResDut in
+  open ParadigmsDut, ResDut in
 {
 
 
@@ -8,21 +8,21 @@ concrete StructuralDut of Structural = CatDut, Prelude **
 
   lin
 
---  above_Prep = mkPrep "über" Dat ;
---  after_Prep = mkPrep "nach" Dat ;
+  above_Prep = mkPrep "boven" ;
+  after_Prep = mkPrep "na" ;
 --  all_Predet = {s = appAdj (regA "all") ; c = NoCase} ;
 --  almost_AdA, almost_AdN = ss "fast" ;
 --  although_Subj = ss "obwohl" ;
---  always_AdV = ss "immer" ;
---  and_Conj = {s1 = [] ; s2 = "und" ; n = Pl} ;
---  because_Subj = ss "weil" ;
---  before_Prep = mkPrep "vor" Dat ;
---  behind_Prep = mkPrep "hinter" Dat ;
---  between_Prep = mkPrep "zwischen" Dat ;
+  always_AdV = ss "altijd" ;
+  and_Conj = {s1 = [] ; s2 = "en" ; n = Pl} ;
+  because_Subj = ss "omdat" ; ---- doordat
+  before_Prep = mkPrep "voor" ;
+  behind_Prep = mkPrep "achter" ;
+  between_Prep = mkPrep "tussen" ;
 --  both7and_DConj = sd2 "sowohl" ["als auch"] ** {n = Pl} ;
---  but_PConj = ss "aber" ;
---  by8agent_Prep = mkPrep "durch" Acc ;
---  by8means_Prep = mkPrep "mit" Dat ;
+  but_PConj = ss "maar" ;
+  by8agent_Prep = mkPrep "door" ;
+  by8means_Prep = mkPrep "met" ;
 --  can8know_VV, can_VV = auxVV 
 --      (mkV 
 --        "können" "kann" "kannst" "kann" "könnt" "könn" 
@@ -34,22 +34,23 @@ concrete StructuralDut of Structural = CatDut, Prelude **
 --  everybody_NP = nameNounPhrase {s = caselist "jeder" "jeden" "jedem" "jedes"} ;
 --  every_Det = detLikeAdj Sg "jed" ;
 --  everything_NP = nameNounPhrase {s = caselist "alles" "alles" "allem" "alles"} ;
---  everywhere_Adv = ss "überall" ;
+  everywhere_Adv = ss "overal" ;
 --  few_Det = detLikeAdj Pl "wenig" ;
 ------  first_Ord = {s = (regA "erst").s ! Posit} ;
 --  for_Prep = mkPrep "für" Acc ;
---  from_Prep = mkPrep "aus" Dat ;
---  he_Pron = mkPronPers "er" "ihn" "ihm" "seiner" "sein"  Utr Sg P3 ;
---  here7to_Adv = ss ["hierher"] ;
---  here7from_Adv = ss ["hieraus"] ;
---  here_Adv = ss "hier" ;
---  how_IAdv = ss "wie" ;
---  how8many_IDet = detLikeAdj Pl "wieviel" ;
+  from_Prep = mkPrep "uit" ;
+  he_Pron = mkPronoun "hij" "hem" "zijn" "hij" "hem" "zijn" "zijne" Utr Sg P3 ;
+  here7to_Adv = ss ["hier"] ;
+  here7from_Adv = ss ["van hier"] ; ----
+  here_Adv = ss "hier" ;
+  how_IAdv = ss "hoe" ;
+--  how8many_IDet = detLikeAdj Pl "hoeveel" ;
   if_Subj = ss "als" ;
---  in8front_Prep = mkPrep "vor" Dat ;
+  in8front_Prep = mkPrep "voor" ;
   i_Pron = mkPronoun "ik" "me" "m'n" "ik" "mij" "mijn" "mijne" Utr Sg P1 ;
---  in_Prep = mkPrep "in" Dat ;
---  it_Pron = mkPronPers "es" "es" "ihm" "seiner" "sein"  Neutr Sg P3 ;
+  in_Prep = ss "in" ;
+  it_Pron = mkPronoun "het" "het" "zijn" "het" "het" "zijn" "zijne" Neutr Sg P3 ;
+
 --  less_CAdv = X.mkCAdv "weniger" "als" ;
 --  many_Det = detLikeAdj Pl "viel" ;
 --  more_CAdv = X.mkCAdv "mehr" "als" ;
@@ -65,14 +66,15 @@ concrete StructuralDut of Structural = CatDut, Prelude **
 --  only_Predet = {s = \\_,_,_ => "nur" ; c = NoCase} ;
 --  no_Utt = ss "nein" ;
 -----b  no_Phr = ss "nein" ;
---  on_Prep = mkPrep "auf" Dat ;
---  or_Conj = {s1 = [] ; s2 = "oder" ; n = Sg} ;
+  on_Prep = mkPrep "op" ;
+  or_Conj = {s1 = [] ; s2 = "of" ; n = Sg} ;
 --  otherwise_PConj = ss "sonst" ;
---  part_Prep = mkPrep "von" Dat ;
+  part_Prep = mkPrep "van" ;
 --  please_Voc = ss "bitte" ;
---  possess_Prep = mkPrep "von" Dat ;
+  possess_Prep = mkPrep "van" ;
 --  quite_Adv = ss "ziemlich" ;
---  she_Pron = mkPronPers "sie" "sie" "ihr" "ihrer" "ihr" Fem Sg P3 ;
+  she_Pron = mkPronoun "ze" "haar" "haar" "zij" "haar" "haar" "haare" Utr Sg P3 ;
+
 --  so_AdA = ss "so" ;
 --  somebody_NP = nameNounPhrase {s = caselist "jemand" "jemanden" "jemandem" "jemands"} ;
 --  somePl_Det = detLikeAdj Pl "einig" ;
@@ -83,40 +85,33 @@ concrete StructuralDut of Structural = CatDut, Prelude **
 --      } ;
 --  something_NP = nameNounPhrase {s = \\_ => "etwas"} ;
 --  somewhere_Adv = ss "irgendwo" ;
---  that_Quant = let 
+  that_Quant = mkQuant "die" "dat" ;
 --     jener : Number => Gender => Case => Str = \\n => (detLikeAdj n "jen").s in 
 --     {s = \\_ => jener ; sp = jener ; a = Weak} ;
------b  that_NP = nameNounPhrase {s = caselist "das" "das" "denem" "dessen"} ; ----
+
 --  there_Adv = ss "da" ;
 --  there7to_Adv = ss "dahin" ;
 --  there7from_Adv = ss ["daher"] ;
 --  therefore_PConj = ss "deshalb" ;
------b  these_NP = {s = caselist "diese" "diese" "diesen" "dieser" ; a = agrP3 Pl} ;
---  they_Pron = mkPronPers "sie" "sie" "ihnen" "ihrer" "ihr" Fem Pl P3 ;
---  this_Quant = let 
---     dieser : Number => Gender => Case => Str = \\n => (detLikeAdj n "dies").s in 
---     {s = \\_ => dieser ; sp = dieser ; a = Weak} ;
------b  this_NP = nameNounPhrase {s = caselist "dies" "dies" "diesem" "dieses"} ; ----
------b  those_NP = {s = caselist "jene" "jene" "jenen" "jener" ; a = agrP3 Pl} ;
---  through_Prep = mkPrep "durch" Acc ;
+
+  they_Pron = mkPronoun "ze" "ze" "hun" "zij" "hen" "hun" "hunne" Utr Pl P3 ; ----
+
+  this_Quant = mkQuant "deze" "dit" ;
+  through_Prep = mkPrep "door" ;
 --  too_AdA = ss "zu" ;
---  to_Prep = mkPrep "nach" Dat ;
---  under_Prep = mkPrep "unter" Dat ;
---  very_AdA = ss "sehr" ;
---  want_VV = auxVV 
---      (mkV 
---        "wollen" "will" "willst" "will" "wollt" "woll" 
---        "wollte" "wolltest" "wollten" "wolltet"
---        "wollte" "gewollt" [] 
---        VHaben) ;
---  we_Pron = mkPronPers "wir" "uns"  "uns"   "unser"  "unser" Fem Pl P1 ;
+  to_Prep = mkPrep "te" ;
+  under_Prep = mkPrep "onder" ;
+  very_AdA = ss "erg" ;
+  want_VV = auxVV (mkV "wil" "wil" "willen" "wou" "wouden" "gewild") ;
+
+  we_Pron = mkPronoun "we" "ons" "ons" "wij" "ons" "onze" "onze" Utr Sg P3 ; ----
 --
 --  whatSg_IP = {s = caselist "was" "was" "was" "wessen" ; n = Sg} ; ----
 --  whatPl_IP = {s = caselist "was" "was" "was" "wessen" ; n = Pl} ; ----
 --
---  when_IAdv = ss "wann" ;
+  when_IAdv = ss "wanneer" ;
 --  when_Subj = ss "wenn" ;
---  where_IAdv = ss "wo" ;
+  where_IAdv = ss "waar" ;
 --  which_IQuant = {s = \\n => (detLikeAdj n "welch").s} ;
 --
 --  whoSg_IP = {s = caselist "wer" "wen" "wem" "wessen" ; n = Sg} ;