bugfix in make of incomplete

lib/resource/norwegian/StructuralNor.gf

@@ -24,8 +24,10 @@ concrete StructuralNor of Structural =
   between_Prep = ss "mellom" ;
   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 = []} ;
+  can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet"  nonExist **
+    {s1 = [] ; isAux = True} ;
+  can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** 
+    {s1 = [] ; isAux = True} ;
   during_Prep = ss "under" ;
   either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ;
   everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in
@@ -46,7 +48,8 @@ concrete StructuralNor of Structural =
   most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
   most8many_Det = flestaDet ;
   much_Det = mkDeterminerSg (detSgInvar "mye") IndefP ;
-  must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "mått" ** {s1 = [] ; s3 = []} ; ---- ?
+  must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "mått" **
+   {s1 = [] ; isAux = True} ;
   on_Prep = ss "på" ;
   or_Conj = ss "eller" ** {n = Sg} ;
   otherwise_Adv = ss "annerledes" ; ---- ?
@@ -77,7 +80,8 @@ concrete StructuralNor of Structural =
   to_Prep = ss "til" ;
   under_Prep = ss "under" ;
   very_Adv = ss "meget" ;
-  want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" "vill" ** {s1 = [] ; s3 = []} ; ---
+  want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" "vill" ** 
+    {s1 = [] ; isAux = True} ;
   we_NP = pronNounPhrase (vi_36) ;
   what8many_IP = intPronWhat plural ;
   what8one_IP = intPronWhat singular ;
@@ -93,115 +97,4 @@ concrete StructuralNor of Structural =
   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 ;
-  SheNP  = pronNounPhrase hon_35 ;
-  WeNumNP n = pronNounPhrase (pronWithNum vi_36 n) ;
-  YeNumNP n = pronNounPhrase (pronWithNum ni_37 n) ;
-  TheyNP = pronNounPhrase de_38 ;
-  TheyFemNP = pronNounPhrase de_38 ;
-
-  YouNP  = pronNounPhrase De_38 ;
-
-  ItNP   = pronNounPhrase det_40 ; ----
-  ThisNP = regNameNounPhrase ["dette"] NNeutr ; 
-  ThatNP = regNameNounPhrase ["det"] NNeutr ; 
-  TheseNumNP n = 
-    {s = \\c => ["disse"] ++ n.s ! npCase c ; g = Neutr ; n = Pl ; p = P3} ;
-  ThoseNumNP n = 
-    {s = \\c => ["de der"] ++ n.s ! npCase c ; g = Neutr ; n = Pl ; p
-  = P3} ;
-
-  EveryDet = varjeDet ; 
-  AllMassDet   = mkDeterminerSgGender2 "all" "alt" IndefP ; 
-  AllNumDet  = mkDeterminerPlNum "alle" IndefP ; 
-  AnyDet   = mkDeterminerSgGender2 "noen" "noe" IndefP ; 
-  AnyNumDet  = mkDeterminerPlNum "noen" IndefP ; 
-  SomeDet  = mkDeterminerSgGender2 "noen" "noe" IndefP ; 
-  SomeNumDet = mkDeterminerPlNum "noen" IndefP ; 
-  ManyDet  = mkDeterminerPl "mange" IndefP ; 
-  HowManyDet  = mkDeterminerPl ["hvor mange"] IndefP ; 
-  NoDet    = mkDeterminerSgGender2 "ingen" "ingen" IndefP ; 
-  NoNumDet   = mkDeterminerPlNum "ingen" IndefP ; 
-  WhichNumDet = mkDeterminerPlNum "hvilke" IndefP ; 
-
-
-  WhichDet = vilkenDet ;
-  MostDet  = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
-  MostsDet = flestaDet ;
-  MuchDet  = mkDeterminerSg (detSgInvar "mye") IndefP ;
-
-  ThisDet  = mkDeterminerSgGender2 ["denne"] ["dette"] (DefP Def) ;
-  ThatDet  = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Indef) ;
-  TheseNumDet = mkDeterminerPlNum ["disse"] (DefP Def) ; 
-  ThoseNumDet = mkDeterminerPlNum ["de der"] (DefP Def) ; 
-
-  HowIAdv = ss "hvor" ;
-  WhenIAdv = ss "når" ;
-  WhereIAdv = ss "hver" ;
-  WhyIAdv = ss "hvorfor" ;
-
-  AndConj  = ss "og" ** {n = Pl}  ;
-  OrConj   = ss "eller" ** {n = Sg} ;
-  BothAnd  = sd2 "både" "og" ** {n = Pl}  ;
-  EitherOr = sd2 "enten" "eller" ** {n = Sg} ;
-  NeitherNor = sd2 "verken" "eller" ** {n = Sg} ;
-  IfSubj   = ss "hvis" ;
-  WhenSubj = ss "når" ;
-
-  PhrYes = ss ["Ja ."] ;
-  PhrNo = ss ["Nei ."] ;
-
-  VeryAdv = ss "meget" ;
-  TooAdv = ss "for" ; ---- ?
-  OtherwiseAdv = ss "annerledes" ; ---- ?
-  ThereforeAdv = ss "derfor" ;
-
-  EverybodyNP  = let alla = table {Nom => "alle" ; Gen => "alles"} in
-                   {s = \\c => alla ! npCase c ; g = Utr Masc ; n = Pl
-                   ; p = P3} ;
-  SomebodyNP   = nameNounPhrase (mkProperName "noen" (NUtr Masc)) ;
-  NobodyNP     = nameNounPhrase (mkProperName "ingen" (NUtr Masc)) ;
-  EverythingNP = nameNounPhrase (mkProperName "alt"   NNeutr) ; 
-  SomethingNP  = nameNounPhrase (mkProperName "noe" NNeutr) ; 
-  NothingNP    = nameNounPhrase (mkProperName "intet" NNeutr) ; 
-
-  CanVV     = mkVerb "kunne" "kan" nonExist  "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
-  CanKnowVV = mkVerb "kunne" "kan" nonExist  "kunne" "kunnet" nonExist ** {s1 = [] ; s3 = []} ;
-  MustVV    = mkVerb "måtte" "må" "mås"  "måtte"  "måttet" "mått" ** {s1 = [] ; s3 = []} ; ---- ?
-  WantVV    = mkVerb "ville" "vil" nonExist "ville" "villet" "vill" ** {s1 = [] ; s3 = []} ; ---
-
-  EverywhereNP = advPost "overalt" ;
-  SomewhereNP = advPost ["et eller annet sted"] ; ---- ?
-  NowhereNP = advPost "ingensteds" ;
-
-  AlthoughSubj = ss ["selv om"] ;
-
-  AlmostAdv = ss "nesten" ;
-  QuiteAdv = ss "temmelig" ;
-
-  InPrep = ss "i" ;
-  OnPrep = ss "på" ;
-  ToPrep = ss "til" ;
-  ThroughPrep = ss "gjennom" ;
-  AbovePrep = ss "ovenfor" ;
-  UnderPrep = ss "under" ;
-  InFrontPrep = ss "foran" ;
-  BehindPrep = ss "bakom" ;
-  BetweenPrep = ss "mellom" ;
-  FromPrep = ss "fra" ;
-  BeforePrep = ss "før" ;
-  DuringPrep = ss "under" ;
-  AfterPrep = ss "etter" ;
-  WithPrep = ss "med" ;
-  WithoutPrep = ss "uten" ;
-  ByMeansPrep = ss "med" ;
-  PossessPrep = ss "av" ;
-  PartPrep = ss "av" ;
-  AgentPrep = ss "av" ;
--}
 }

lib/resource/norwegian/SyntaxNor.gf

@@ -112,7 +112,7 @@ instance SyntaxNor of SyntaxScand = TypesNor **
   progressiveVerbPhrase : VerbGroup -> VerbGroup = \verb -> 
     complVerbVerb
       (verbVara **
-       {s3 = ["ved at"]}
+       {isAux = False} ----- {s3 = ["ved at"]}
       )
       (predVerbGroup True Simul verb) ;  
 
@@ -120,8 +120,7 @@ instance SyntaxNor of SyntaxScand = TypesNor **
     predVerbGroupClause np
      (complVerbVerb 
       (verbVara **
-       {s3 = ["ved at"]}
+       {isAux = False} ----- {s3 = ["ved at"]}
       )
       vp) ;
-
 }

lib/resource/norwegian/TestResourceNor.gf

@@ -64,7 +64,7 @@ lin
    Look = extTransVerb (mkVerb "se" "ser" "ses" "så" "sett" "sedd") []
    ; ---- ut
 
-   Try = extTransVerb (vNopart (vSpis "forsøk")) [] ** {s3 = "att"} ;
+   Try = extTransVerb (vNopart (vSpis "forsøk")) [] ** {isAux = False} ;
    Important = extAdjective (aAbstrakt "viktig") ** {s2 = "for"} ;
    Probable = extAdjective (aAbstrakt "sannsynlig") ;
    Easy = extAdjective (aRod "grei") ** {s2 = "for"} ;