version 1.12, 2000/09/10 19:50:33
|
version 1.15, 2000/09/23 15:47: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 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ 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., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
4 Constant w/o ( -- fam ) \ file w-o |
4 Constant w/o ( -- fam ) \ file w-o |
2 Constant r/w ( -- fam ) \ file r-w |
2 Constant r/w ( -- fam ) \ file r-w |
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 ; |