version 1.4, 1998/06/17 16:55:16
|
version 1.8, 2000/05/20 14:25:42
|
Line 1
|
Line 1
|
\ File specifiers 11jun93jaw |
\ File specifiers 11jun93jaw |
|
|
\ Copyright (C) 1995-1997 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 18
|
Line 18
|
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
|
4 Constant w/o ( -- fam ) \ file w-o |
4 Constant w/o ( -- ntype ) \ file w-o |
2 Constant r/w ( -- fam ) \ file r-w |
2 Constant r/w ( -- ntype ) \ file r-w |
0 Constant r/o ( -- fam ) \ file r-o |
0 Constant r/o ( -- ntype ) \ file r-o |
|
|
: bin ( fam1 -- fam2 ) \ file |
: bin ( ntype1 -- ntype2 ) \ file |
1 or ; |
1 or ; |
|
|
\ BIN WRITE-LINE 11jun93jaw |
\ BIN WRITE-LINE 11jun93jaw |
Line 32
|
Line 32
|
?dup IF |
?dup IF |
r> drop EXIT |
r> drop EXIT |
THEN |
THEN |
#lf r> emit-file ; |
newline r> write-file ; |
|
|
\ include-file 07apr93py |
\ include-file 07apr93py |
|
|
Line 69
|
Line 69
|
: read-loop ( i*x -- j*x ) |
: read-loop ( i*x -- j*x ) |
BEGIN refill WHILE interpret REPEAT ; |
BEGIN refill WHILE interpret REPEAT ; |
|
|
: include-file ( i*x fid -- j*x ) \ file |
: include-file ( i*x wfileid -- j*x ) \ file |
\G interpret (process using the text interpreter) the contents of |
\G Interpret (process using the text interpreter) the contents of |
\G the file @var{fid}. |
\G the file @var{wfileid}. |
push-file loadfile ! |
push-file loadfile ! |
0 loadline ! blk off ['] read-loop catch |
0 loadline ! blk off ['] read-loop catch |
loadfile @ close-file swap 2dup or |
loadfile @ close-file swap 2dup or |