> FILE-SOURCE ( fileid -- ) is like INCLUDE-FILE but does not
> invoke the Forth text interpreter i.e. it saves the current
> input source specification and makes the file specified by
> fileid the new input source. Hence REFILL can be used to read
> the file from the file position existing at the time FILE-SOURCE
> is called.
>
> CLOSE-SOURCE ( -- ) simply closes the current input source and
> restores the previous one.
>
> These solve the problem as far as I am concerned but can't be
> defined in a standard way (I think). A simple example of usage
> showing how standard words such as REFILL and SOURCE could be
> used to process a file:
>
> : xyz  ( caddr u -- )
>    r/o open-file throw file-source cr
>    begin refill while source type cr repeat
>    close-source ...

> On Sep 14, 9:07 pm, Gerry jackson9000.fsnet.co.uk> wrote:
>
>
>

>> FILE-SOURCE ( fileid -- ) is like INCLUDE-FILE but does not
>> invoke the Forth text interpreter i.e. it saves the current
>> input source specification and makes the file specified by
>> fileid the new input source. Hence REFILL can be used to read
>> the file from the file position existing at the time FILE-SOURCE
>> is called.

>

>> CLOSE-SOURCE ( -- ) simply closes the current input source and
>> restores the previous one.

>

>> These solve the problem as far as I am concerned but can't be
>> defined in a standard way (I think). A simple example of usage
>> showing how standard words such as REFILL and SOURCE could be
>> used to process a file:

> ...