sibstantival det forms in scandinavian

2 files changed, 9 insertions, 8 deletions

diff --git a/next-lib/src/norwegian/DiffNor.gf b/next-lib/src/norwegian/DiffNor.gf
index 3723369f2..6cfdf6fa4 100644
--- a/next-lib/src/norwegian/DiffNor.gf
+++ b/next-lib/src/norwegian/DiffNor.gf
@@ -43,6 +43,7 @@ instance DiffNor of DiffScand = open CommonScand, Prelude in {
       Utr Fem  => "ei" ;
       Neutr    => "et"
       } ;
+    detIndefPl = "noen" ;
 
     verbHave = 
       mkVerb "ha" "har" "ha" "hadde" "hatt" "haven" "havet" "havne"
diff --git a/next-lib/src/norwegian/StructuralNor.gf b/next-lib/src/norwegian/StructuralNor.gf
index b480ff1a1..c7ee5b237 100644
--- a/next-lib/src/norwegian/StructuralNor.gf
+++ b/next-lib/src/norwegian/StructuralNor.gf
@@ -25,10 +25,10 @@ concrete StructuralNor of Structural = CatNor **
   during_Prep = ss "under" ;
   either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ;
   everybody_NP = regNP "alle" "alles" Plg ;
-  every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ;
+  every_Det = {s = \\_,_ => "hver" ; sp = \\_,_ =>"enhver" ; n = Sg ; det = DDef Indef} ;
   everything_NP = regNP "alt" "alts" SgNeutr ;
   everywhere_Adv = ss "overalt" ;
-  few_Det  = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
+  few_Det  = {s,sp = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
 ---  first_Ord = {s = "første" ; isDet = True} ; DEPREC
   for_Prep = ss "for" ;
   from_Prep = ss "fra" ;
@@ -45,10 +45,10 @@ concrete StructuralNor of Structural = CatNor **
   in_Prep = ss "i" ;
   it_Pron = MorphoNor.regNP "det" "dets" SgNeutr ;
   less_CAdv = X.mkCAdv "mindre" conjThan ;
-  many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ;
+  many_Det = {s,sp = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ;
   more_CAdv = X.mkCAdv "mer" conjThan ;
   most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ;
-  much_Det = {s = \\_,_ => "mye" ; n = Pl ; det = DDef Indef} ;
+  much_Det = {s,sp = \\_,_ => "mye" ; n = Pl ; det = DDef Indef} ;
   must_VV = 
     mkV "måtte" "må" "må" "måtte" "måttet" "mått" ** 
     {c2 = mkComplement [] ; lock_VV = <>} ;
@@ -64,13 +64,13 @@ concrete StructuralNor of Structural = CatNor **
   quite_Adv = ss "temmelig" ;
   she_Pron = MorphoNor.mkNP "hun" "henne" "hennes" "hennes" "hennes"  SgUtr P3 ;
   so_AdA = ss "så" ;
-  someSg_Det = {s = \\_ => genderForms "noen" "noe" ; n = Sg ; det = DIndef} ;
-  somePl_Det = {s = \\_,_ => "noen" ; n = Pl ; det = DIndef} ;
+  someSg_Det = {s,sp = \\_ => genderForms "noen" "noe" ; n = Sg ; det = DIndef} ;
+  somePl_Det = {s,sp = \\_,_ => "noen" ; n = Pl ; det = DIndef} ;
   somebody_NP = regNP "noen" "noens" SgUtr ;
   something_NP = regNP "noe" "noes" SgNeutr ;
   somewhere_Adv = ss ["et eller annet sted"] ; ---- ?
   that_Quant = 
-    {s = table {
+    {s,sp = table {
        Sg => \\_,_ => genderForms ["den der"] ["det der"] ; 
        Pl => \\_,_,_ => ["de der"]
        } ;
@@ -82,7 +82,7 @@ concrete StructuralNor of Structural = CatNor **
   therefore_PConj = ss "derfor" ;
   they_Pron = MorphoNor.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ;
   this_Quant = 
-    {s = table {
+    {s,sp = table {
        Sg => \\_,_ => genderForms ["denne"] ["dette"] ; 
        Pl => \\_,_,_ => ["disse"]
        } ;