The new Decimal API

src/thai/CatTha.gf

@@ -51,6 +51,7 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
 -- Numeral
 
     Numeral, Card, Digits = {s : Str} ;
+    Decimal = {s : Str; hasDot : Bool} ;
 
 -- Structural
 

src/thai/NounTha.gf

@@ -38,6 +38,7 @@ concrete NounTha of Noun = CatTha ** open StringsTha, ResTha, Prelude in {
 
     NumCard n = n ** {hasC = True} ;
     NumDigits d = d ;
+    NumDecimal d = d ;
     OrdDigits d = {s = thbind thii_s d.s} ;
 
     NumNumeral numeral = numeral ** {hasC = True} ;

src/thai/NumeralTha.gf

@@ -89,4 +89,6 @@ oper
     D_8 = ss "๘" ;
     D_9 = ss "๙" ;
 
+    PosDecimal d = d ** {hasDot=False} ;
+
 }