version 1.22, 1999/03/23 20:24:16
|
version 1.23, 1999/03/29 22:52:27
|
Line 58 block-cold
|
Line 58 block-cold
|
Defer flush-blocks |
Defer flush-blocks |
|
|
: open-blocks ( addr u -- ) \ gforth |
: open-blocks ( addr u -- ) \ gforth |
\g use the file, whose name is given by @var{addr u}, as blocks file |
\g Use the file, whose name is given by @var{addr u}, as the blocks file. |
2dup open-fpath-file 0<> |
2dup open-fpath-file 0<> |
if |
if |
r/w bin create-file throw |
r/w bin create-file throw |
Line 70 Defer flush-blocks
|
Line 70 Defer flush-blocks
|
block-fid ! ; |
block-fid ! ; |
|
|
: use ( "file" -- ) \ gforth |
: use ( "file" -- ) \ gforth |
\g use @var{file} as blocks file |
\g Use @var{file} as the blocks file. |
name open-blocks ; |
name open-blocks ; |
|
|
\ the file is opened as binary file, since it either will contain text |
\ the file is opened as binary file, since it either will contain text |
Line 165 User scr ( -- a-addr ) \ block-ext
|
Line 165 User scr ( -- a-addr ) \ block-ext
|
i 2 .r space scr @ block i 64 * chars + 64 type cr |
i 2 .r space scr @ block i 64 * chars + 64 type cr |
loop ; |
loop ; |
|
|
: (source) ( -- addr len ) |
: (source) ( -- c-addr u ) |
blk @ ?dup |
blk @ ?dup |
IF block chars/block |
IF block chars/block |
ELSE tib #tib @ |
ELSE tib #tib @ |
THEN ; |
THEN ; |
|
|
' (source) IS source |
' (source) IS source ( -- c-addr u ) \ core |
|
\G @var{c-addr} is the address of the input buffer and @var{u} is the |
|
\G number of characters in it. |
|
|
: load ( i*x n -- j*x ) \ block |
: load ( i*x n -- j*x ) \ block |
push-file |
push-file |