progress with scandinavian

lib/resource-1.0/scandinavian/ParamScand.gf

@@ -1,4 +1,4 @@
-resource ParamScand = ParamX ** {
+resource ParamScand = ParamX ** open Prelude in {
 
 param
   Species = Indef | Def ;
@@ -18,6 +18,8 @@ param
    | ACompar  
    | ASuperl AFormSup ;
 
+-- The $Number$ in $Weak$ only matters in "lilla"/"små".
+
   AFormPos = Strong GenNum | Weak Number ;
   AFormSup = SupStrong | SupWeak ;
 
@@ -40,7 +42,7 @@ param
    | VImperat
    | VInfinit Anteriority ;
 
-  NPForm = NPNom | NPAcc | NPGen GenNum ;
+  NPForm = NPNom | NPAcc | NPPoss GenNum ;
 ---  AdjPronForm = APron GenNum Case ;
 ---  AuxVerbForm = AuxInf | AuxPres | AuxPret | AuxSup ;
 
@@ -53,4 +55,33 @@ param
 oper
   Agr : PType = {gn : GenNum ; p : Person} ;
 
+  nominative : NPForm = NPNom ;
+  accusative : NPForm = NPAcc ;
+
+  caseNP : NPForm -> Case = \np -> case np of {
+    NPPoss _ => Gen ;
+    _ => Nom
+    } ;
+
+  specDet : DetSpecies -> Species = \d -> case d of {
+    DDef Def => Def ;
+    _ => Indef
+    } ;
+
+-- Used in $Noun.AdjCN$.
+
+  agrAdj : GenNum -> DetSpecies -> AFormPos = \gn,d -> case <gn,d> of {
+    <_,  DIndef> => Strong gn ;
+    <Plg,DDef _> => Weak Pl ;
+    _            => Weak Sg
+    } ;
+
+-- Used in $DiffScand.predV$.
+
+  vFin : Tense -> Voice -> VForm = \t,v -> case t of {
+    Pres => VF (VPres v) ;
+    Past => VF (VPret v) ;
+    _ => VI (VInfin v) --- not to be used?
+    } ;    
+
 }