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

decimals: break a word up.

modern-harvey2
Doug Coleman 2018-01-27 12:01:21 -06:00
parent 144da45241
commit d2d8f02d50
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/decimals/decimals.factor
View File

@ -11,11 +11,14 @@ C: <decimal> decimal
: >decimal< ( decimal -- mantissa exponent ) : >decimal< ( decimal -- mantissa exponent )
[ mantissa>> ] [ exponent>> ] bi ; inline [ mantissa>> ] [ exponent>> ] bi ; inline
: string>decimal ( string -- decimal ) : string>mantissa-exponent ( string -- mantissa exponent )
"." split1 "." split1
[ [ char: 0 = ] trim-head [ "0" ] when-empty ] [ [ char: 0 = ] trim-head [ "0" ] when-empty ]
[ [ char: 0 = ] trim-tail [ "" ] when-empty ] bi* [ [ char: 0 = ] trim-tail [ "" ] when-empty ] bi*
[ append string>number ] [ nip length neg ] 2bi <decimal> ; [ append string>number ] [ nip length neg ] 2bi ; inline
: string>decimal ( string -- decimal )
string>mantissa-exponent <decimal> ;
: parse-decimal ( -- decimal ) scan-token string>decimal ; : parse-decimal ( -- decimal ) scan-token string>decimal ;