resource = resource-1.0

lib/resource/danish/StructuralDan.gf

@@ -1,107 +1,126 @@
---# -path=.:../scandinavian:../abstract:../../prelude
+concrete StructuralDan of Structural = CatDan ** 
+  open MorphoDan, ParadigmsDan, Prelude in {
 
---1 The Top-Level Swedish Resource Grammar: Structural Words
---
--- Aarne Ranta 2002 -- 2004
---
-concrete StructuralDan of Structural = 
-  CategoriesDan, NumeralsDan ** open Prelude, MorphoDan, SyntaxDan in {
-
-  flags optimize=values ;
+  flags optimize=all ;
 
   lin
-
-  UseNumeral i = {
-    s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ;  ---
-    n = i.n
-    } ;
-
   above_Prep = ss "ovenfor" ;
   after_Prep = ss "efter" ;
   by8agent_Prep = ss "af" ;
-  all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ;
-  all_NDet = mkDeterminerPl "alle" IndefP ;
-  almost_Adv = ss "næsten" ;
+  all_Predet = {s = gennumForms "all" "alt" "alle"} ;
+  almost_AdA, almost_AdN = ss "næsten" ;
   although_Subj = ss ["selv om"] ;
+  always_AdV = ss "altid" ;
   and_Conj = ss "og" ** {n = Pl} ;
-  because_Subj = ss ["fordi"] ;
+  because_Subj = ss "fordi" ;
   before_Prep = ss "før" ;
   behind_Prep = ss "bag" ;
   between_Prep = ss "mellem" ;
-  both_AndConjD = sd2 "både" "og" ** {n = Pl} ;
+  both7and_DConj = sd2 "både" "og" ** {n = Pl} ;
+  but_PConj = ss "men" ;
   by8means_Prep = ss "med" ;
-  can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
-    {s1 = [] ; isAux = True} ;
-  can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
-    {s1 = [] ; isAux = True} ;
+  can8know_VV, can_VV = 
+    mkV "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
+    {c2 = [] ; lock_VV = <>} ;
   during_Prep = ss "under" ;
-  either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ;
-  everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in
-                 {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ;
-  every_Det = varjeDet ;
-  everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ;
-  everywhere_Adv = advPost "overalt" ;
+  either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ;
+  everybody_NP = regNP "alle" "alles" Plg ;
+  every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ;
+  everything_NP = regNP "alt" "alts" SgNeutr ;
+  everywhere_Adv = ss "overalt" ;
+  few_Det  = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
+  first_Ord = {s = "første" ; isDet = True} ;
   from_Prep = ss "fra" ;
-  he_NP = pronNounPhrase han_34 ;
+  he_Pron = MorphoDan.mkNP "han"  "ham"  "hans" "hans" "hans"  SgUtr P3 ;
+  here_Adv = ss "her" ;
+  here7to_Adv = ss "hit" ;
+  here7from_Adv = ss "herfra" ;
   how_IAdv = ss "hvor" ;
-  how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ;
+  how8many_IDet = {s = \\_ => ["hur mange"] ; n = Pl ; det = DDef Indef} ;
   if_Subj = ss "hvis" ;
-  in8front_Prep = ss "fremfor" ; ---- ?
-  i_NP = pronNounPhrase jag_32 ;
+  in8front_Prep = ss "foran" ;
+  i_Pron = 
+    MorphoDan.mkNP "jeg" "mig" "min" "mit" "mine"  SgUtr P1 ;
   in_Prep = ss "i" ;
-  it_NP = pronNounPhrase det_40 ; ----
-  many_Det = mkDeterminerPl "mange" IndefP ;
-  most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
-  most8many_Det = flestaDet ;
-  much_Det = mkDeterminerSg (detSgInvar "meget") IndefP ;
-  must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" **
-    {s1 = [] ; isAux = True} ; ---- ?
+  it_Pron = MorphoDan.regNP "det" "dets" SgNeutr ;
+  less_CAdv = ss "mindre" ;
+  many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ;
+  more_CAdv = ss "mer" ;
+  most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ;
+  much_Det = {s = \\_,_ => "meget" ; n = Pl ; det = DDef Indef} ;
+  must_VV = 
+    mkV "måtte" "må" "må" "måtte" "måttet" "mått" ** {c2 = [] ; lock_VV = <>} ;
+  no_Phr = ss ["Nej"] ;
   on_Prep = ss "på" ;
+  one_Quant = {s = \\_ => genderForms ["en"] ["et"] ; n = Sg ; det = DIndef} ; --- ei
+  only_Predet = {s = \\_ => "kun"} ;
   or_Conj = ss "eller" ** {n = Sg} ;
-  otherwise_Adv = ss "anderledes" ; ---- ?
+  otherwise_PConj = ss "anderledes" ;
   part_Prep = ss "af" ;
-  no_Phr = ss ["Nej ."] ;
-  yes_Phr = ss ["Ja ."] ;
+  please_Voc = ss "tak" ; ---
   possess_Prep = ss "af" ;
   quite_Adv = ss "temmelig" ;
-  she_NP = pronNounPhrase hon_35 ;
-  so_Adv = ss "så" ;
-  somebody_NP = nameNounPhrase (mkProperName "nogen" NUtr) ;
-  some_Det = mkDeterminerSgGender2 "nogen" "noget" IndefP ;
-  some_NDet = mkDeterminerPlNum "nogle" IndefP ;
-  something_NP = nameNounPhrase (mkProperName "noget" NNeutr) ;
-  somewhere_Adv = advPost ["et eller andet sted"] ; ---- ?
-  that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Indef) ;
-  that_NP = regNameNounPhrase ["det der"] NNeutr ;
-  therefore_Adv = ss "derfor" ;
-  these_NDet = mkDeterminerPlNum ["de her"] (DefP Indef) ;
-  they8fem_NP = pronNounPhrase de_38 ;
-  they_NP = pronNounPhrase de_38 ;
-  this_Det = mkDeterminerSgGender2 ["den her"] ["det her"] (DefP Indef) ;
-  this_NP = regNameNounPhrase ["det her"] NNeutr ;
-  those_NDet = mkDeterminerPlNum ["de der"] (DefP Indef) ;
-  thou_NP = pronNounPhrase du_33 ;
-  through_Prep = ss "igennem" ;
-  too_Adv = ss "for" ; ---- ?
+  she_Pron = MorphoDan.mkNP "hun" "hende" "hendes" "hendes" "hendes"  SgUtr P3 ;
+  so_AdA = ss "så" ;
+  someSg_Det = {s = \\_ => genderForms "nogen" "noget" ; n = Sg ; det = DIndef} ;
+  somePl_Det = {s = \\_,_ => "nogle" ; n = Pl ; det = DIndef} ;
+  somebody_NP = regNP "nogen" "nogens" SgUtr ;
+  something_NP = regNP "noget" "nogets" SgNeutr ;
+  somewhere_Adv = ss ["et eller annet sted"] ; ---- ?
+  that_Quant = 
+    {s = table {
+       Sg => \\_ => genderForms ["den der"] ["det der"] ; 
+       Pl => \\_,_ => ["de der"]
+       } ;
+     det = DDef Indef
+    } ;
+  that_NP = regNP ["det der"] ["det ders"] SgNeutr ;
+  there_Adv = ss "der" ;
+  there7to_Adv = ss "dit" ;
+  there7from_Adv = ss "derfra" ;
+  therefore_PConj = ss "derfor" ;
+  these_NP = regNP ["disse"] ["disses"] Plg ;
+  they_Pron = MorphoDan.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ;
+  this_Quant = 
+    {s = table {
+       Sg => \\_ => genderForms ["denne"] ["dette"] ; 
+       Pl => \\_,_ => ["disse"]
+       } ;
+     det = DDef Indef
+    } ;
+  this_NP = regNP ["dette"] ["dettes"] SgNeutr ;
+  those_NP = regNP ["de der"] ["de ders"] Plg ;
+  through_Prep = ss "gennem" ;
+  too_AdA = ss "for" ;
   to_Prep = ss "til" ;
   under_Prep = ss "under" ;
-  very_Adv = ss "meget" ;
-  want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist **
-    {s1 = [] ; isAux = True} ; ---
-  we_NP = pronNounPhrase (vi_36) ;
-  what8many_IP = intPronWhat plural ;
-  what8one_IP = intPronWhat singular ;
+  very_AdA = ss "meget" ;
+  want_VV = 
+    mkV "ville" "vil" nonExist "ville" "villet" "villed" ** 
+    {c2 = [] ; lock_VV = <>} ;
+  we_Pron = MorphoDan.mkNP "vi"  "os"  "vores" "vores" "vores"  Plg P1 ;
+  whatSg_IP = {s = \\_ => "hvad" ; gn = SgUtr} ; ---- infl
+  whatPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; ---- infl
   when_IAdv = ss "hvornår" ;
   when_Subj = ss "når" ;
   where_IAdv = ss "hver" ;
-  which8one_IDet = vilkenDet ;
-  which8many_IDet = mkDeterminerPl "hvilke" IndefP ;
-  who8many_IP = intPronWho plural ;
-  who8one_IP = intPronWho singular ;
+  whichPl_IDet = {s = \\_ => "hvilke" ; n = Pl ; det = DIndef} ;
+  whichSg_IDet = {s = genderForms "hvilken" "hvilket" ; n = Sg ; det = DIndef} ;
+  whoSg_IP = {s = vem.s ; gn = SgUtr} ;
+  whoPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ;
   why_IAdv = ss "hvorfor" ;
   without_Prep = ss "uden" ;
   with_Prep = ss "med" ;
-  ye_NP = pronNounPhrase (ni_37) ;
-  you_NP = pronNounPhrase De_38 ;
+  yes_Phr = ss ["ja"] ;
+  youSg_Pron = 
+    MorphoDan.mkNP "du" "dig" "din" "dit" "dine" SgUtr P2 ; ----
+  youPl_Pron = MorphoDan.mkNP "i" "jer" "jeres" "jeres" "jeres"  Plg P2 ;
+  youPol_Pron = MorphoDan.mkNP "Dere" "Dere" "Deres" "Deres" "Deres"  SgUtr P2 ; --- wrong in refl
+
+-- Auxiliaries that are used repeatedly.
+
+  oper
+    vem = MorphoDan.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ;
 
 }
+