|
version 1.3, 1998/04/12 21:49:29
|
version 1.5, 1998/12/08 22:03:10
|
|
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 70
|
Line 70
|
| BEGIN refill WHILE interpret REPEAT ; |
BEGIN refill WHILE interpret REPEAT ; |
| |
|
| : include-file ( i*x fid -- j*x ) \ file |
: include-file ( i*x fid -- j*x ) \ file |
| push-file loadfile ! |
\G interpret (process using the text interpreter) the contents of |
| 0 loadline ! blk off ['] read-loop catch |
\G the file @var{fid}. |
| loadfile @ close-file swap 2dup or |
push-file loadfile ! |
| pop-file drop throw throw ; |
0 loadline ! blk off ['] read-loop catch |
| |
loadfile @ close-file swap 2dup or |
| |
pop-file drop throw throw ; |
| |
|
| \ additional words only needed if there is file support |
\ additional words only needed if there is file support |
| |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to files.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel