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

The new Decimal API

Browse Source
This commit is contained in:
Krasimir Angelov
2023-08-21 20:14:26 +02:00
parent 58da8deca8
commit fb398c603e
147 changed files with 918 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/hungarian/CatHun.gf
View File

@@ -79,6 +79,7 @@ concrete CatHun of Cat = CommonX - [Adv] ** open ResHun, Prelude in {
Card = ResHun.Numeral ;
Numeral = ResHun.Numeral ;
Digits = {s : CardOrd => Str} ;
Decimal = {s : CardOrd => Str; hasDot : Bool} ;

4
src/hungarian/NounHun.gf
View File

@@ -137,6 +137,10 @@ concrete NounHun of Noun = CatHun ** open
s = \\place => dig.s ! NCard ;
} ;
NumDecimal dec = dec ** {
s = \\place => dec.s ! NCard ;
} ;
-- : Numeral -> Card ;
NumNumeral num = num ;

9
src/hungarian/NumeralHun.gf
View File

@@ -1,4 +1,4 @@
concrete NumeralHun of Numeral = CatHun [Numeral,Digits] **
concrete NumeralHun of Numeral = CatHun [Numeral,Digits,Decimal] **
open Prelude, ResHun in {
lincat
@@ -115,6 +115,13 @@ oper
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
PosDecimal d = d ** {hasDot=False} ;
NegDecinal d = {
s = \\x => "-" ++ BIND ++ d.s ! x ;
n = numNumber ;
hasDot=False
} ;
oper
mkDig : Str -> TDigit = \s -> {
s = s ;