GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-26 19:46:26 -06:00
Code Issues Packages Projects Releases Wiki Activity

comma instead of dot and space separator in Romance decimals

Browse Source
This commit is contained in:
Krasimir Angelov
2024-01-31 12:02:46 +01:00
parent b746a425d5
commit a8b0e5d94b
6 changed files with 86 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/italian/NumeralIta.gf
+17 -4
View File
@@ -120,11 +120,12 @@ param Pred = pred | indip ;
Dig = TDigit ;
lin
IDig d = d ;
IDig d = d ** {tail = T1} ;
IIDig d i = {
s = \\o => d.s ! NCard Masc ++ BIND ++ i.s ! o ;
n = Pl
s = \\o => d.s ! NCard Masc ++ spaceIf i.tail ++ i.s ! o ;
n = Pl ;
tail = inc i.tail
} ;
D_0 = mkDig "0" ;
@@ -146,12 +147,24 @@ param Pred = pred | indip ;
} ;
IFrac d i = {
s = \\o => d.s ! NCard Masc ++
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
if_then_Str d.hasDot BIND (BIND++","++BIND) ++
i.s ! o;
n = Pl ;
hasDot=True
} ;
oper
spaceIf : DTail -> Str = \t -> case t of {
T3 => SOFT_SPACE ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mkDig : Str -> TDigit = \c -> mk2Dig c Pl ;