From fb5943a58efc628cec7f84f8cc09c92916cbe823 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 1 Aug 2019 18:24:46 +0200
Subject: [PATCH] added Ice.mkN : Str -> N following textbook heuristics

---
 src/icelandic/ParadigmsIce.gf | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/icelandic/ParadigmsIce.gf b/src/icelandic/ParadigmsIce.gf
index 3a6937d3..a81fb50f 100644
--- a/src/icelandic/ParadigmsIce.gf
+++ b/src/icelandic/ParadigmsIce.gf
@@ -64,6 +64,9 @@ resource ParadigmsIce = open
 		mkN = overload {
 
 			-- Given Sg.Nom. 
+			mkN : Str -> N = mk0N ;
+			
+			-- Given Sg.Nom. and gender 
 			mkN : Str -> Gender -> N = mk1N ;
 
 			-- Given Sg.Nom and Pl.Nom - different Pl.Nom part
@@ -96,6 +99,14 @@ resource ParadigmsIce = open
 			<front + "a",_>			=> lin N (nForms2NeutrNoun (dAuga stelpa (front + "na")))
 		} ;
 		
+-- AR 2019-08-01 following Neijmann, "Colloquial Icelandic" Kindle Loc. 439
+--- very simplified heuristics I guess
+
+  mk0N : Str -> N = \s -> case s of {
+    _ + ("ur" | "i" | "ll" | "nn") => mk1N s Masc ;
+    _ + ("a" | "ing" | "un") => mk1N s Fem ;
+    _ => mk1N s Neutr
+    } ;
 
 		mk1N : Str -> Gender -> N = \s,g -> case g of {
 			Neutr		=> lin N (nForms2NeutrNoun (neutrNForms1 s)) ;