progress with scandinavian

lib/resource-1.0/swedish/DiffSwe.gf

@@ -1,4 +1,4 @@
-instance DiffSwe of DiffScand = {
+instance DiffSwe of DiffScand = open ResScand, Prelude in {
 
 -- Parameters.
 
@@ -6,7 +6,17 @@ instance DiffSwe of DiffScand = {
     Gender = Utr | Neutr ;
 
   oper
-    utrum = Utr ; neutrum = Neutr ;
+    utrum = Utr ; 
+    neutrum = Neutr ;
+
+    gennum : Gender -> Number -> GenNum = \g,n ->
+      case <g,n> of {
+        <Utr,Sg> => SgUtr ;
+        <Neutr,Sg> => SgNeutr ;
+        _  => Plg
+        } ;
+
+    detDef : Species = Def ;
 
 -- Strings.
 
@@ -14,4 +24,19 @@ instance DiffSwe of DiffScand = {
     conjThan = "än" ;
     infMark  = "att" ;
 
+    artIndef : Gender => Str = table {
+      Utr => "en" ;
+      Neutr => "ett"
+      } ;
+
+    verbHave = 
+      mkVerb "ha" "har" "ha" "hade" "haft" "havd" "havt" "havda" ;
+
+    auxFut = "ska" ;      -- "skall" in ExtSwe
+    auxCond = "skulle" ;
+
+    negation : Polarity => Str = table {
+      Pos => [] ;
+      Neg => "inte"
+      } ;
 }