From 67e586943da6cfe37866f21ac5b3ff140e778d07 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Mon, 7 Apr 2025 17:26:26 +0200
Subject: [PATCH] mk4Noun in Swe

---
 lectures/lecture-03/MorphologySwe.gf | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/lectures/lecture-03/MorphologySwe.gf b/lectures/lecture-03/MorphologySwe.gf
index d3d92cd..da81cca 100644
--- a/lectures/lecture-03/MorphologySwe.gf
+++ b/lectures/lecture-03/MorphologySwe.gf
@@ -27,6 +27,29 @@ oper
       g = g
       } ;
 
+  addS : Str -> Str = \s -> case s of {
+    _ + ("s" | "x" | "z") => s ;
+    _ => s + "s"
+    } ;
+
+  mk4Noun : (sin, sdn, pin, pdn : Str) -> Noun =
+    \sin, sdn, pin, pdn -> {
+      s = table {
+        NF Sg Ind Nom => sin ;
+        NF Sg Ind Gen => addS sin ;
+        NF Sg Def Nom => sdn ;
+        NF Sg Def Gen => addS sdn ;
+        NF Pl Ind Nom => pin ;
+        NF Pl Ind Gen => addS pin ;
+        NF Pl Def Nom => pdn ;
+        NF Pl Def Gen => addS pdn
+	} ;
+      g = case sdn of {
+        _ + "n" => Com ;
+	_ => Neut
+	}
+      } ;
+
   smartNoun : Str -> Noun = \mamma -> case mamma of {
     mamm + "a" => mkNoun mamma (mamma + "s") (mamma + "n") (mamma + "ns")
                 (mamm + "or") (mamm + "ors") (mamm + "orna") (mamm + "ornas")