language specific extensions started

lib/resource-1.0/scandinavian/ExtScand.gf

@@ -1,14 +0,0 @@
-incomplete concrete ExtScand of ExtScandAbs = 
-  CatScand ** open CommonScand, ResScand in {
-
-  lin
-    DefSgN predet noun = let g = noun.g in {
-      s = \\c => predet.s ! gennum g Sg ++ noun.s ! Sg ! Def ! caseNP c ;
-      a = agrP3 g Sg
-      } ;
-    DefPlN predet noun = let g = noun.g in {
-      s = \\c => predet.s ! Plg ++ noun.s ! Pl ! Def ! caseNP c ;
-      a = agrP3 g Sg
-      } ;
-
-}

lib/resource-1.0/scandinavian/ExtScandAbs.gf

@@ -1,9 +0,0 @@
-abstract ExtScandAbs = Cat ** {
-
-  fun
-
--- Definite form of simple nouns without article; neither $Num$ nor $Ord$ allowed.
-
-    DefSgN, DefPlN : Predef -> N -> NP ; 
-
-}

lib/resource-1.0/scandinavian/ExtraScand.gf

@@ -0,0 +1,12 @@
+incomplete concrete ExtraScand of ExtraScandAbs = CatScand ** open CommonScand,ResScand in {
+
+  lin
+    GenNP np = {
+      s = \\n,_,g => np.s ! NPPoss (gennum g n) ; 
+      det = DDef Indef
+      } ;
+
+    EmbedBareS s = {s = s.s ! Sub} ;
+    ComplBareVS v s  = insertObj (\\_ => s.s ! Sub) (predV v) ;
+
+} 

lib/resource-1.0/scandinavian/ExtraScandAbs.gf

@@ -0,0 +1,3 @@
+abstract ExtraScandAbs = Extra ** {
+
+}