tuning resource API

lib/resource/danish/StructuralDan.gf

@@ -6,8 +6,99 @@
 --
 concrete StructuralDan of Structural = 
   CategoriesDan, NumeralsDan ** open Prelude, MorphoDan, SyntaxDan in {
- lin
 
+  flags optimize=values ;
+
+  lin
+
+  UseNumeral i = {s = table {Nom => i.s ; Gen => i.s ++ "s"}} ; ---
+
+  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" ;
+  although_Subj = ss ["selv om"] ;
+  and_Conj = ss "og" ** {n = Pl} ;
+  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} ;
+  by8means_Prep = ss "med" ;
+  can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
+  can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
+  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" ;
+  from_Prep = ss "fra" ;
+  he_NP = pronNounPhrase han_34 ;
+  how_IAdv = ss "hvor" ;
+  how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ;
+  if_Subj = ss "hvis" ;
+  in8front_Prep = ss "fremfor" ; ---- ?
+  i_NP = pronNounPhrase jag_32 ;
+  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 = [] ; s3 = []} ; ---- ?
+  on_Prep = ss "på" ;
+  or_Conj = ss "eller" ** {n = Sg} ;
+  otherwise_Adv = ss "anderledes" ; ---- ?
+  part_Prep = ss "af" ;
+  no_Phr = ss ["Nej ."] ;
+  yes_Phr = ss ["Ja ."] ;
+  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" ; ---- ?
+  to_Prep = ss "til" ;
+  under_Prep = ss "under" ;
+  very_Adv = ss "meget" ;
+  want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist ** {s1 = [] ; s3 = []} ; ---
+  we_NP = pronNounPhrase (vi_36) ;
+  what8many_IP = intPronWhat plural ;
+  what8one_IP = intPronWhat singular ;
+  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 ;
+  why_IAdv = ss "hvorfor" ;
+  without_Prep = ss "uden" ;
+  with_Prep = ss "med" ;
+  ye_NP = pronNounPhrase (ni_37) ;
+  you_NP = pronNounPhrase De_38 ;
+
+
+{-
   INP    = pronNounPhrase jag_32 ;
   ThouNP = pronNounPhrase du_33 ;
   HeNP   = pronNounPhrase han_34 ;
@@ -42,7 +133,6 @@ concrete StructuralDan of Structural =
   NoNumDet   = mkDeterminerPlNum "ingen" IndefP ; 
   WhichNumDet = mkDeterminerPlNum "hvilke" IndefP ; 
 
-  UseNumeral i = {s = table {Nom => i.s ; Gen => i.s ++ "s"}} ; ---
 
   WhichDet = vilkenDet ;
   MostDet  = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
@@ -116,5 +206,5 @@ concrete StructuralDan of Structural =
   PossessPrep = ss "af" ;
   PartPrep = ss "af" ;
   AgentPrep = ss "af" ;
-
+-}
 }

lib/resource/danish/TestResourceDan.gf

@@ -5,6 +5,8 @@ concrete TestResourceDan of TestResource = RulesDan, ClauseDan, StructuralDan **
 
 flags startcat=Phr ; lexer=text ; unlexer=text ;
 
+  optimize=values ;
+
 -- a random sample from the lexicon
 
 lin