From 7c2c519e5075cc36f0c1c17a655e534713d5376e Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Tue, 27 Sep 2022 11:49:07 +0200
Subject: [PATCH] NumeralHrv: thousands (some morpho questions to check)

---
 src/croatian/NumeralHrv.gf | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/src/croatian/NumeralHrv.gf b/src/croatian/NumeralHrv.gf
index fcea965f3..88b2f4310 100644
--- a/src/croatian/NumeralHrv.gf
+++ b/src/croatian/NumeralHrv.gf
@@ -103,26 +103,24 @@ lin pot2plus d e = {
 
 lin pot2as3 n = n ;
 
-{-
-lin pot3 n = bigNumeral (mkTh (determinerStr n) n.size) ;
+
+lin pot3 n = bigNumeral (mkThousand n.s.fsnom n.size) ;
 
 lin pot3plus n m = {
-  s = (invarNumeral (mkTh (determinerStr n) n.size ++ determinerStr m)).s ;  ---- TODO inflection?
-  size = tfSize m.size
+  s = invarAdjForms (mkThousand n.s.fsnom n.size ++ m.s.msnom) ;  ---- TODO inflect m
+  size = m.size
   } ;
 
-oper tfSize : NumSize -> NumSize = \sz -> 
-  table {Num1 => Num5 ; other => other} ! sz ; 
+----oper tfSize : NumSize -> NumSize = \sz -> 
+----  table {Num1 => Num5 ; other => other} ! sz ; 
 
-oper mkTh : Str -> NumSize -> Str = \attr,size -> 
+oper mkThousand : Str -> NumSize -> Str = \attr,size -> 
   case size of {
-    Num1 => "tisíc" ; 
-    Num2_4 => attr ++ "tisíc" ; 
-    Num5 => attr ++ "tisí"
+    NS_1 => "tisuću" ;            -- BMS: hiljadu etc
+    NS_2_4 => attr ++ "tisuće" ; 
+    _ => attr ++ "tisuća"
     } ;
 
-oper determinerStr : Determiner -> Str = \d -> d.s ! Masc Anim ! Nom ;
--}
 
 -- -- Numerals as sequences of digits have a separate, simpler grammar
   lincat Dig = {s : Str ; size : NumSize} ;