|
version 1.15, 2000/09/23 15:47:10
|
version 1.16, 2000/10/29 20:27:03
|
|
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 85
|
Line 80
|
| |
|
| : include-file ( i*x wfileid -- j*x ) \ file |
: include-file ( i*x wfileid -- j*x ) \ file |
| loadfilename# @ >r |
loadfilename# @ >r |
| 3 loadfilename# ! \ "\a file/" |
3 loadfilename# ! \ "*a file*" |
| include-file1 |
include-file1 |
| r> loadfilename# ! |
r> loadfilename# ! |
| throw throw ; |
throw throw ; |
| |
[THEN] |
| |
|
| \ 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