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

minimal extension to the Numeral API

Browse Source
This commit is contained in:
Krasimir Angelov
2023-01-20 18:53:41 +01:00
parent 14cabc847a
commit 8c3375b67b
3 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/thai/NumeralTha.gf
+4 -1
View File
@@ -8,7 +8,7 @@ lincat
Sub10 = {s : DForm => Str} ;
Sub100 = {s : NForm => Str} ;
Sub1000 = {s : NForm => Str} ;
Sub1000000 = {s : Str} ;
Sub1000000, Sub1000000000, Sub1000000000000 = {s : Str} ;
lin
num x = x ;
@@ -49,6 +49,9 @@ lin
pot2as3 n = {s = n.s ! Unit} ;
pot3 n = {s = n.s ! Thousand} ;
pot3plus n m = {s = thbind (n.s ! Thousand) (m.s ! Unit)} ;
pot3as4 n = n ;
pot4as5 n = n ;
param
DForm = Indep | ModTen | After ;