GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-21 09:16:22 -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/romanian/CatRon.gf
View File

@@ -80,6 +80,7 @@ concrete CatRon of Cat =
sp : ACase => CardOrd => NumF => Str ; size : Size } ;
Digits = {s : CardOrd => Str ; n : Size ; isDig : Bool} ;
Decimal = {s : CardOrd => Str ; n : Size ; isDig : Bool; hasDot : Bool} ;
Num = {s : Gender => Str ; sp : Gender => Str ;
isNum : Bool ; n : Number; size : Str } ;

4
src/romanian/NounRon.gf
View File

@@ -172,8 +172,8 @@ in {
isPre = True
};
NumFloat n1 n2 = {s,sp = \\g => n1.s ! NCard g ++ BIND ++ "." ++ BIND ++ n2.s ! NCard g ;
size = n1.n; n = Pl };
NumDecimal nu = {s,sp = \\g => nu.s ! NCard g ;
size = nu.n; n = getNumber nu.n };
NumNumeral nu = {s = \\g => nu.s ! ANomAcc ! (NCard g) ! Formal ;
sp = \\g => nu.sp ! ANomAcc ! (NCard g) ! Formal ;

17
src/romanian/NumeralRon.gf
View File

@@ -1,4 +1,4 @@
concrete NumeralRon of Numeral = CatRon [Numeral,Digits] **
concrete NumeralRon of Numeral = CatRon [Numeral,Digits,Decimal] **
open MorphoRon, CatRon, Prelude in {
flags coding = utf8 ;
@@ -247,6 +247,21 @@ lin
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
lin PosDecimal d = d ** {hasDot=False} ;
lin NegDecimal d = {
s = \\o => "-" ++ BIND ++ d.s ! o ;
n = pl;
isDig = False ;
hasDot=False
} ;
IFrac d i = {
s = \\o => d.s ! NCard Masc ++
if_then_Str d.hasDot BIND (BIND++"."++BIND) ++
i.s ! o ;
n = pl ;
isDig = False ;
hasDot=True
} ;
oper mkDig : Str -> Dig = \c -> mk3Dig c (c + "lea") (c + "a") less20 ;