From 91f7e2e0e8743b41058fcbcafdeb7724fbb52b49 Mon Sep 17 00:00:00 2001
From: Julia Jansson <julia.jansson@gmail.com>
Date: Tue, 31 Mar 2020 12:26:33 +0200
Subject: [PATCH] =?UTF-8?q?Added=20l=C3=B3=20and=20k=C5=91=20cases=20(lova?=
 =?UTF-8?q?k,=20k=C3=B6vek)=20but=20not=20done=20yet?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/hungarian/LexiconHun.gf    |  4 ++--
 src/hungarian/NounMorphoHun.gf | 21 ++++++++++++++++++++-
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/src/hungarian/LexiconHun.gf b/src/hungarian/LexiconHun.gf
index 3f3c4f248..75d77f7ea 100644
--- a/src/hungarian/LexiconHun.gf
+++ b/src/hungarian/LexiconHun.gf
@@ -174,7 +174,7 @@ lin fly_V = mkV "repül" ;
 -- lin hold_V2 = mkV2 "" ;
 -- lin hope_VS = mkV "" ;
 -- lin horn_N = mkN "" ;
--- lin horse_N = mkN "" ;
+lin horse_N = mkN "ló" ;
 -- lin hot_A = mkA "" ;
 lin house_N = mkN "ház" ;
 -- lin hunt_V2 = mkV2 "" ;
@@ -342,7 +342,7 @@ lin red_A = mkA "piros" ;
 -- lin star_N = mkN "" ;
 -- lin steel_N = mkN "" ;
 -- lin stick_N = mkN "" ;
--- lin stone_N = mkN "" ;
+lin stone_N = mkN "kő" ;
 -- lin stop_V =  mkV "" ;
 -- lin stove_N = mkN "" ;
 -- lin straight_A = mkA "" ;
diff --git a/src/hungarian/NounMorphoHun.gf b/src/hungarian/NounMorphoHun.gf
index a6b8b1aba..d5173ecf1 100644
--- a/src/hungarian/NounMorphoHun.gf
+++ b/src/hungarian/NounMorphoHun.gf
@@ -47,6 +47,25 @@ oper
     let foo : Str = "foo" ;
      in mkNoun sör ;
 
+  --Handles words like "ló, kő" which are "lovak, kövek" in plural
+  --TODO: not fixed, right now "lovok" and "kövök"
+  dLó : Str -> Noun = \ló ->
+    let lo = shorten ló ;
+        lov = lo + "v" ;
+        nLov = mkNoun lov ;
+        nLó = mkNoun ló ;
+    in {s = \\n,c => case <n,c> of {
+                -- All plural forms and Sg Acc use the "lov" stem
+                <Pl,_>|<Sg,Acc> => nLov.s ! n ! c ;
+
+                -- The rest of the forms are formed with the regular constructor,
+                -- using "ló" as the stem.
+                _ => nLó.s ! n ! c
+
+              } ;
+        } ;
+
+
   -- More words not covered by current paradigms:
   -- https://cl.lingfil.uu.se/~bea/publ/megyesi-hungarian.pdf
   -- falu ~ falva-k
@@ -161,7 +180,7 @@ oper
     _   => endCaseCons c
   } ;
 
-  -- Function to return a plural allomorph given the stem (e.g. nev, almá).
+  -- Function to return a plural allomorph given the stem (e.g. név, almá).
   pluralAllomorph : (stem : Str) -> Str = \stem ->
     case vowFinal stem of {
       True  => "k" ;