5bf7a61bb3
The relevant changes for FreeBSD (excerpt from the release note):
* Newly implemented CORE EXT words: CASE, OF, ENDOF, and ENDCASE. Also
added FALLTHROUGH, which works like ENDOF but jumps to the instruction
just after the next OF.
* Bugfix: John-Hopkins locals syntax now accepts | and -- in the comment
(between the first -- and the }.)
* Bugfix: Changed vmGetWord0() to make Purify happier. The resulting
code is no slower, no larger, and slightly more robust.
26 lines
353 B
Forth
26 lines
353 B
Forth
\ #if FICL_WANT_FILE
|
|
\ **
|
|
\ ** File Access words for ficl
|
|
\ ** submitted by Larry Hastings, larry@hastings.org
|
|
\ **
|
|
\
|
|
\ $FreeBSD$
|
|
|
|
: r/o 1 ;
|
|
: r/w 3 ;
|
|
: w/o 2 ;
|
|
: bin 8 or ;
|
|
|
|
: included
|
|
r/o bin open-file 0= if
|
|
locals| f | end-locals
|
|
f include-file
|
|
else
|
|
drop
|
|
endif
|
|
;
|
|
|
|
: include parse-word included ;
|
|
|
|
\ #endif
|