version 1.156, 2007/03/18 21:46:17
|
version 1.157, 2007/03/18 22:35:52
|
Line 141 const Create bases 0A , 10 , 2 , 0
|
Line 141 const Create bases 0A , 10 , 2 , 0
|
THEN |
THEN |
r> ; |
r> ; |
|
|
|
has? os 0= [IF] |
|
: x@+/string ( addr u -- addr' u' c ) |
|
over c@ >r 1 /string r> ; |
|
[THEN] |
|
|
: s'>unumber? ( addr u -- ud flag ) |
: s'>unumber? ( addr u -- ud flag ) |
\ convert string "C" or "C'" to character code |
\ convert string "C" or "C'" to character code |
dup 0= if |
dup 0= if |
Line 476 const Create ??? 0 , 3 , char ? c, char
|
Line 481 const Create ??? 0 , 3 , char ? c, char
|
|
|
: >head-noprim ( cfa -- nt ) \ gforth to-head-noprim |
: >head-noprim ( cfa -- nt ) \ gforth to-head-noprim |
\ also heuristic |
\ also heuristic |
dup forthstart - max-name-length @ float+ cell+ min cell max cell ?do ( cfa ) |
dup forthstart - max-name-length @ |
|
[ has? float [IF] ] float+ [ [ELSE] ] cell+ [ [THEN] ] cell+ min |
|
cell max cell ?do ( cfa ) |
dup i - dup @ [ alias-mask lcount-mask or ] literal |
dup i - dup @ [ alias-mask lcount-mask or ] literal |
[ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or |
[ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or |
-1 cells allot bigendian [IF] c, -1 1 cells 1- times |
-1 cells allot bigendian [IF] c, -1 1 cells 1- times |
Line 533 has? standardthreading has? compiler and
|
Line 540 has? standardthreading has? compiler and
|
drop 0 |
drop 0 |
endif ; |
endif ; |
|
|
|
has? prims [IF] |
|
: flash! ! ; |
|
: flashc! c! ; |
|
[THEN] |
|
|
has? flash [IF] ' flash! [ELSE] ' ! [THEN] |
has? flash [IF] ' flash! [ELSE] ' ! [THEN] |
alias code-address! ( c_addr xt -- ) \ gforth |
alias code-address! ( c_addr xt -- ) \ gforth |
\G Create a code field with code address @i{c-addr} at @i{xt}. |
\G Create a code field with code address @i{c-addr} at @i{xt}. |
Line 818 has? new-input 0= [IF]
|
Line 830 has? new-input 0= [IF]
|
Defer 'quit |
Defer 'quit |
|
|
has? os [IF] |
has? os [IF] |
Defer .status |
Defer .status |
|
[ELSE] |
|
: (bye) ( 0 -- ) \ back to DOS |
|
drop 5 emit ; |
|
|
|
: bye ( -- ) 0 (bye) ; |
[THEN] |
[THEN] |
|
|
: prompt state @ IF ." compiled" EXIT THEN ." ok" ; |
: prompt state @ IF ." compiled" EXIT THEN ." ok" ; |