version 1.166, 2009/01/20 20:09:26
|
version 1.167, 2009/03/24 08:55:29
|
Line 113 Defer source ( -- c-addr u ) \ core
|
Line 113 Defer source ( -- c-addr u ) \ core
|
|
|
\ \ Number parsing 23feb93py |
\ \ Number parsing 23feb93py |
|
|
\ number? number 23feb93py |
\ (number?) number 23feb93py |
|
|
hex |
hex |
const Create bases 0A , 10 , 2 , 0A , |
const Create bases 0A , 10 , 2 , 0A , |
Line 210 has? os 0= [IF]
|
Line 210 has? os 0= [IF]
|
1+ |
1+ |
THEN ; |
THEN ; |
|
|
: number? ( string -- string 0 / n -1 / d 0> ) |
: (number?) ( string -- string 0 / n -1 / d 0> ) |
dup >r count snumber? dup if |
dup >r count snumber? dup if |
rdrop |
rdrop |
else |
else |
Line 218 has? os 0= [IF]
|
Line 218 has? os 0= [IF]
|
then ; |
then ; |
|
|
: number ( string -- d ) |
: number ( string -- d ) |
number? ?dup 0= abort" ?" 0< |
(number?) ?dup 0= abort" ?" 0< |
IF |
IF |
s>d |
s>d |
THEN ; |
THEN ; |