From 235fd0570f98e19282879507bfcfa44f427006f4 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 29 Sep 2022 10:06:03 +0200
Subject: [PATCH] Hrv: first words in Lexicon to test Lang

---
 src/croatian/LexiconHrv.gf | 57 ++++----------------------------------
 src/croatian/ResHrv.gf     |  2 ++
 2 files changed, 8 insertions(+), 51 deletions(-)

diff --git a/src/croatian/LexiconHrv.gf b/src/croatian/LexiconHrv.gf
index cac7ad36..3ad50303 100644
--- a/src/croatian/LexiconHrv.gf
+++ b/src/croatian/LexiconHrv.gf
@@ -7,58 +7,13 @@ concrete LexiconHrv of Lexicon =
 
 
   lin
-    boy_N = mkN "chlapec" ;
-    man_N = mkN "muž" ;
-    teacher_N = mkN "učiteľ" ;
-    horse_N = mkN "kôň" ;
-    father_N = mkN "otec" ;
-    husband_N = mkN "manžel" ;
-
-    castle_N = mkN "hrad" ;
-    forest_N = mkN "les" ;
-    machine_N = mkN "stroj" ;
+    cat_N = mkN "mačka" ;
+    black_A = mkA "crni" ; 
+    love_V2 = mkV2 (mkV "voljeti" "volim" "volio") ;
+    see_V2 = mkV2 (mkV "vidjeti" "vidim" "vidio") ;
+    walk_V = mkV "hodati" ;
 
+    man_N = mkN "čovjek" ;
     woman_N = mkN "žena" ;
-    school_N = mkN "učilište" ;
-    skirt_N = mkN "sukňa";
-    street_N = mkN "ulica" ;
-    rose_N = mkN "ruže" ;
-    song_N = mkN "pieseň" ;
-    bed_N = mkN "posteľ" ;
-{-
-    door_N = mkN "dveře" ;
-    bone_N = declKOST "kost" ;
-    village_N = declKOST "ves" ; ----
-
-    city_N = declMESTO "město" ;
-    apple_N = declMESTO "jablko" ; ----
-    sea_N = declMORE "moře" ;
-    airport_N = declMORE "letiště" ;
-    chicken_N = declKURE "kuře" ;
-    house_N = declSTAVENI "stavení" ; --- building, house
-    station_N = declSTAVENI "nádraží" ;
-
-    young_A = mkA "mladý" ;
-    old_A = mkA "starý" ;
-    good_A = mkA "dobrý" ;
-    bad_A = mkA "špatný" ;
-    beautiful_A = mkA "krásný" ;
-    clean_A = mkA "čistý" ;
-    dirty_A = mkA "špinavý" ;
--}
-
---- from Google translate dictionary
-
-    white_A = mkA "biely" ;
-    black_A = mkA "čierny" ;
-    red_A = mkA "červený" ;
-    brown_A = mkA "hnedý" ;
-    blue_A = mkA "modrý" ; --- belasý
-    green_A = mkA "zelený" ;
-    yellow_A = mkA "žltý" ;
-
-----    buy_V2 = mkV2 (iii_kupovatVerbForms "kupovať") ;
-----    love_V2 = mkV2 (iii_kupovatVerbForms "milovať") ;
-
 }
 
diff --git a/src/croatian/ResHrv.gf b/src/croatian/ResHrv.gf
index e1b96ad4..17dc337c 100644
--- a/src/croatian/ResHrv.gf
+++ b/src/croatian/ResHrv.gf
@@ -380,6 +380,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
         vel + "ao" => vel + "l" ;
         vel + "ak" => voicing vel + "k" ;
         vel + "a" + k@? => vel + k ;
+	vel + "i" => vel ;
 	_ => velik
         }
     in {
@@ -415,6 +416,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
 
   smartVerbForms : Str -> VerbForms = \s -> case s of {
     cit + "ati" => aeiVerbForms s (cit + "am") (cit + "ao") ;
+    vid + "jeti" => aeiVerbForms s (vid + "im") (vid + "io") ;
     radi + "ti" => aeiVerbForms s (init radi + "em") (radi + "o") ;
     _ => Predef.error ("expect infinitive form \"-ti\", found" ++ s)
     } ;