steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

money: more of this should be public.

locals-and-roots
John Benediktsson 2016-04-19 07:29:42 -07:00
parent 9439c5a684
commit eb4bbab417
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/money/money.factor
View File

@ -7,8 +7,6 @@ IN: money
SYMBOL: currency-token SYMBOL: currency-token
CHAR: $ currency-token set-global CHAR: $ currency-token set-global
<PRIVATE
: dollars/cents ( dollars -- dollars cents ) : dollars/cents ( dollars -- dollars cents )
100 * 100 /mod round ; 100 * 100 /mod round ;
@ -17,8 +15,6 @@ CHAR: $ currency-token set-global
[ <reversed> 3 group "," join <reversed> ] [ <reversed> 3 group "," join <reversed> ]
[ 2 CHAR: 0 pad-head ] bi* "." glue ; [ 2 CHAR: 0 pad-head ] bi* "." glue ;
PRIVATE>
: money>string ( number -- string ) : money>string ( number -- string )
dollars/cents format-money currency-token get prefix ; dollars/cents format-money currency-token get prefix ;
@ -26,8 +22,6 @@ PRIVATE>
ERROR: not-an-integer x ; ERROR: not-an-integer x ;
<PRIVATE
: split-decimal ( str -- neg? dollars cents ) : split-decimal ( str -- neg? dollars cents )
"." split1 [ "-" ?head swap ] dip ; "." split1 [ "-" ?head swap ] dip ;
@ -37,6 +31,4 @@ ERROR: not-an-integer x ;
[ dup string>number [ nip ] [ not-an-integer ] if* ] bi@ [ dup string>number [ nip ] [ not-an-integer ] if* ] bi@
] keep length 10^ / + swap [ neg ] when ; ] keep length 10^ / + swap [ neg ] when ;
PRIVATE>
SYNTAX: DECIMAL: scan-token parse-decimal suffix! ; SYNTAX: DECIMAL: scan-token parse-decimal suffix! ;