version 1.5, 1996/10/01 16:25:59
|
version 1.9, 1996/12/28 17:19:25
|
Line 1359 Defer key ( -- c ) \ core
|
Line 1359 Defer key ( -- c ) \ core
|
1 loadline +! |
1 loadline +! |
swap #tib ! 0 >in ! ; |
swap #tib ! 0 >in ! ; |
|
|
: Query ( -- ) \ core-ext |
: query ( -- ) \ core-ext |
\G obsolescent |
\G obsolescent |
loadfile off blk off refill drop ; |
tib /line accept #tib ! 0 >in ! ; |
|
|
\ File specifiers 11jun93jaw |
\ File specifiers 11jun93jaw |
|
|
Line 1615 create image-included-files 1 , A, ( po
|
Line 1615 create image-included-files 1 , A, ( po
|
Defer 'quit |
Defer 'quit |
Defer .status |
Defer .status |
: prompt state @ IF ." compiled" EXIT THEN ." ok" ; |
: prompt state @ IF ." compiled" EXIT THEN ." ok" ; |
: (quit) BEGIN .status cr query interpret prompt AGAIN ; |
: (Query) ( -- ) |
|
loadfile off blk off refill drop ; |
|
: (quit) BEGIN .status cr (query) interpret prompt AGAIN ; |
' (quit) IS 'quit |
' (quit) IS 'quit |
|
|
\ DOERROR (DOERROR) 13jun93jaw |
\ DOERROR (DOERROR) 13jun93jaw |
Line 1729 Variable argc
|
Line 1731 Variable argc
|
\ addr1 u1 is a path string, addr2 u2 is an array of dir strings |
\ addr1 u1 is a path string, addr2 u2 is an array of dir strings |
align here >r |
align here >r |
BEGIN |
BEGIN |
over >r [char] : scan |
over >r 0 scan |
over r> tuck - ( rest-str this-str ) |
over r> tuck - ( rest-str this-str ) |
dup |
dup |
IF |
IF |
Line 1811 Defer 'cold ' noop IS 'cold
|
Line 1813 Defer 'cold ' noop IS 'cold
|
." Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA." cr ; |
." Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA." cr ; |
|
|
: boot ( path **argv argc -- ) |
: boot ( path **argv argc -- ) |
argc ! argv ! cstring>sstring save-mem pathstring 2! main-task up! |
argc ! argv ! pathstring 2! main-task up! |
sp@ dup s0 ! $10 + dup >tib ! tibstack ! #tib off >in off |
sp@ s0 ! |
rp@ r0 ! fp@ f0 ! ['] cold catch DoError bye ; |
lp@ forthstart 7 cells + @ - dup >tib ! tibstack ! #tib off >in off |
|
rp@ r0 ! |
|
fp@ f0 ! |
|
['] cold catch DoError |
|
bye ; |
|
|
: bye ( -- ) \ tools-ext |
: bye ( -- ) \ tools-ext |
script? 0= IF cr THEN 0 (bye) ; |
script? 0= IF cr THEN 0 (bye) ; |