mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-17 23:30:14 -06:00
The new Decimal API
This commit is contained in:
@@ -63,6 +63,7 @@ concrete CatLat of Cat = CommonX-[Adv] ** open ResLat, ParamX, Prelude in {
|
||||
--
|
||||
Numeral = ResLat.TNumeral ;
|
||||
Digits = {s : Str ; unit : Unit} ;
|
||||
Decimal = {s : Str ; unit : Unit ; hasDot : Bool} ;
|
||||
--
|
||||
---- Structural
|
||||
--
|
||||
|
||||
@@ -209,6 +209,8 @@ concrete NumeralLat of Numeral = CatLat, ParamX[Number] ** open ParadigmsLat, Pr
|
||||
D_8 = mkDig "VIII" "XVIII" "LXXX" "DCCC" "(VIII)" "(LXXX)" "(DCCC)" ;
|
||||
D_9 = mkDig "IX" "XIX" "XC" "CM" "(IX)" "(XC)" "(CM)" ;
|
||||
|
||||
PosDecimal d = d ** {hasDot=False} ;
|
||||
|
||||
oper
|
||||
TDig = {
|
||||
s : Unit => Str
|
||||
|
||||
Reference in New Issue
Block a user