version 1.15, 2000/09/23 15:47:10
|
version 1.20, 2003/01/20 19:17:59
|
Line 36
|
Line 36
|
|
|
\ include-file 07apr93py |
\ include-file 07apr93py |
|
|
|
has? new-input 0= [IF] |
: push-file ( -- ) r> |
: push-file ( -- ) r> |
#fill-bytes @ >r |
#fill-bytes @ >r |
loadline @ >r |
loadline @ >r |
Line 50
|
Line 51
|
|
|
: pop-file ( throw-code -- throw-code ) |
: pop-file ( throw-code -- throw-code ) |
dup IF |
dup IF |
source >in @ sourceline# sourcefilename |
source >in @ sourceline# sourcefilename >error |
error-stack dup @ dup 1+ |
|
max-errors 1- min error-stack ! |
|
6 * cells + cell+ |
|
5 cells bounds swap DO |
|
I ! |
|
-1 cells +LOOP |
|
THEN |
THEN |
r> |
r> |
r> >in ! |
r> >in ! |
Line 84
|
Line 79
|
include-file1 throw throw ; |
include-file1 throw throw ; |
|
|
: include-file ( i*x wfileid -- j*x ) \ file |
: include-file ( i*x wfileid -- j*x ) \ file |
loadfilename# @ >r |
loadfilename 2@ 2>r |
3 loadfilename# ! \ "\a file/" |
s" *a file*" loadfilename 2! \ "*a file*" |
include-file1 |
include-file1 |
r> loadfilename# ! |
2r> loadfilename 2! |
throw throw ; |
throw throw ; |
|
[THEN] |
|
|
\ additional words only needed if there is file support |
\ additional words only needed if there is file support |
|
|
Warnings off |
Redefinitions-start |
|
|
: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren |
: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren |
loadfile @ 0= IF postpone ( EXIT THEN |
loadfile @ 0= IF postpone ( EXIT THEN |
Line 111 Warnings off
|
Line 107 Warnings off
|
THEN |
THEN |
REPEAT ; immediate |
REPEAT ; immediate |
|
|
Warnings on |
Redefinitions-end |