|
version 1.18, 2006/05/26 21:18:45
|
version 1.19, 2006/10/08 11:30:56
|
|
Line 216 has? file [IF]
|
Line 216 has? file [IF]
|
| 2drop |
2drop |
| [ [THEN] ] |
[ [THEN] ] |
| -1 loadline ! #tib ! tib ! |
-1 loadline ! #tib ! tib ! |
| r> catch pop-file throw>error ; |
r> catch pop-file rethrow ; |
| |
|
| : execute-parsing ( ... addr u xt -- ... ) \ gforth |
: execute-parsing ( ... addr u xt -- ... ) \ gforth |
| \G Make @i{addr u} the current input source, execute @i{xt @code{( |
\G Make @i{addr u} the current input source, execute @i{xt @code{( |
|
Line 262 defer line-end-hook ( -- ) \ gforth
|
Line 262 defer line-end-hook ( -- ) \ gforth
|
| loadfilename 2! loadfile ! |
loadfilename 2! loadfile ! |
| r> catch |
r> catch |
| loadfile @ close-file swap 2dup or |
loadfile @ close-file swap 2dup or |
| pop-file drop throw>error throw ; |
pop-file drop rethrow throw ; |
| |
|
| : execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth |
: execute-parsing-file ( i*x fileid xt -- j*x ) \ gforth |
| \G Make @i{fileid} the current input source, execute @i{xt @code{( i*x |
\G Make @i{fileid} the current input source, execute @i{xt @code{( i*x |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to input.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel