Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed bugs of >number

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 12:01:25 +09:00
parent 087ce4f918
commit 9461a566ee
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
bootstrap.fs
View file

@ -1112,6 +1112,14 @@ decimal \ set default to decimal
nip nip true nip nip true
; ;
: parse-int ( u c-addr -- n f )
dup c@ '-' = if
1+ parse-uint swap negate swap
else
parse-uint
then
;
\ Parse string as number. \ Parse string as number.
\ This function interprets prefixes that specifies number base. \ This function interprets prefixes that specifies number base.
: >number ( c-addr -- n f ) : >number ( c-addr -- n f )
@ -1129,9 +1137,10 @@ decimal \ set default to decimal
false false
then then
endof endof
'&' of 1+ 10 swap parse-uint endof '&' of 1+ 10 swap parse-int endof
'#' of 1+ 10 swap parse-uint endof '#' of 1+ 10 swap parse-int endof
'%' of 1+ 2 swap parse-uint endof '$' of 1+ 16 swap parse-int endof
'%' of 1+ 2 swap parse-int endof
'0' of '0' of
\ hexadecimal \ hexadecimal
\ ( addr ) \ ( addr )