May 5 files to myproject

lab2/grammar/myproject/MicroResSwe.gf

@@ -1,23 +1,36 @@
-resource MicroResSwe = {
+resource MicroResSwe = open Prelude in {
 
 param
   Number = Sg | Pl ;
   Species = Indef | Def ;
   Gender = Utr | Neutr ;
-
+  
 oper
-  N = {s : Number => Species => Str ; g : Gender} ;
+  N : Type = {s : Number => Species => Str ; g : Gender} ;
 
   worstN : Str -> Str -> Str -> Str -> Gender -> N
-    = \man,mannen,män,männen,gen -> {
+    = \man,mannen,män,männen,g -> {
       s = table {
-            Sg => table {Indef => man ; Def => mannen} ;
-            Pl => table {Indef => män ; Def => männen}
-	    } ;
-      g = gen
+        Sg => table {Indef => man ; Def => mannen} ;
+	Pl => table {Indef => män ; Def => männen}
+	} ;
+      g = g
       } ;
+-- https://en.wikipedia.org/wiki/Swedish_grammar
+
+  decl1 : Str -> N
+    = \apa ->
+      let ap = init apa in
+      worstN apa (apa + "n") (ap + "or") (ap + "orna") Utr ;
 
   decl2 : Str -> N
-    = \bil -> worstN bil (bil + "en") (bil + "ar") (bil + "arna") Utr ;
+    = \bil -> case bil of {
+      pojk + "e" => worstN bil (bil + "en") (pojk + "ar") (pojk + "arna") Utr ;
+      _ => worstN bil (bil + "en") (bil + "ar") (bil + "arna") Utr
+      } ;
 
-}
+
+
+
+
+}