|
version 1.10, 2000/09/06 20:30:07
|
version 1.14, 2000/09/23 15:06:10
|
|
Line 1
|
Line 1
|
| \ File specifiers 11jun93jaw |
\ File specifiers 11jun93jaw |
| |
|
| \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
|
Line 37
|
Line 37
|
| \ include-file 07apr93py |
\ include-file 07apr93py |
| |
|
| : push-file ( -- ) r> |
: push-file ( -- ) r> |
| loadline @ >r |
#fill-bytes @ >r |
| loadfile @ >r |
loadline @ >r |
| blk @ >r |
loadfile @ >r |
| tibstack @ >r |
blk @ >r |
| >tib @ >r |
tibstack @ >r |
| #tib @ >r |
>tib @ >r |
| >in @ >r >r |
#tib @ >r |
| |
>in @ >r >r |
| >tib @ tibstack @ = IF #tib @ tibstack +! THEN |
>tib @ tibstack @ = IF #tib @ tibstack +! THEN |
| tibstack @ >tib ! ; |
tibstack @ >tib ! ; |
| |
|
|
Line 58
|
Line 59
|
| -1 cells +LOOP |
-1 cells +LOOP |
| THEN |
THEN |
| r> |
r> |
| r> >in ! |
r> >in ! |
| r> #tib ! |
r> #tib ! |
| r> >tib ! |
r> >tib ! |
| r> tibstack ! |
r> tibstack ! |
| r> blk ! |
r> blk ! |
| r> loadfile ! |
r> loadfile ! |
| r> loadline ! >r ; |
r> loadline ! |
| |
r> #fill-bytes ! >r ; |
| |
|
| : read-loop ( i*x -- j*x ) |
: read-loop ( i*x -- j*x ) |
| BEGIN refill WHILE interpret REPEAT ; |
BEGIN refill WHILE interpret REPEAT ; |
![[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