GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

NumeralHrv: thousands (some morpho questions to check)

Browse Source
This commit is contained in:
Aarne Ranta
2022-09-27 11:49:07 +02:00
parent 44fdb933aa
commit 7c2c519e50
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/croatian/NumeralHrv.gf
View File

@@ -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} ;