From a87a16b19f759f249ddefcf85e2c99c3ee8e1744 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Tue, 6 Feb 2018 17:12:24 +0100
Subject: [PATCH] new Pol noun table from Paula Pawlowski

---
 src/polish/NounMorphoPol.gf | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/polish/NounMorphoPol.gf b/src/polish/NounMorphoPol.gf
index 029bbb95b..83f8b8a04 100644
--- a/src/polish/NounMorphoPol.gf
+++ b/src/polish/NounMorphoPol.gf
@@ -7862,6 +7862,27 @@ resource NounMorphoPol = ResPol ** open Prelude, (Predef=Predef) in {
       SF Pl Voc => x + "ludzie"
     };
 
+--created for sukienka and kurtka. Paula Pawlowski 6/2/2018
+  oper mkNTable0670p : Str -> SubstForm => Str; --%
+    oper mkNTable0670p lexem = 
+      let x = Predef.tk 2 lexem in
+    table { 
+      SF Sg Nom => x + "ka";
+      SF Sg Gen => x + "ki";
+      SF Sg Dat => x + "ce";
+      SF Sg Acc => x + "kę";
+      SF Sg Instr => x + "ką";
+      SF Sg Loc => x + "ce";
+      SF Sg Voc => x + "ko";
+      SF Pl Nom => x + "ki";
+      SF Pl Gen => x + "ek";
+      SF Pl Dat => x + "kom";
+      SF Pl Acc => x + "ki";
+      SF Pl Instr => x + "kami";
+      SF Pl Loc => x + "kach";
+      SF Pl Voc => x + "ki"
+    };
+
     oper mkNTable0671: Str -> SubstForm => Str; --%
     oper mkNTable0671 lexem = 
       let x = Predef.tk 1 lexem in