diff options
Diffstat (limited to 'stand/ficl/softwords/fileaccess.fr')
| -rw-r--r-- | stand/ficl/softwords/fileaccess.fr | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/stand/ficl/softwords/fileaccess.fr b/stand/ficl/softwords/fileaccess.fr new file mode 100644 index 000000000000..7297df681cf3 --- /dev/null +++ b/stand/ficl/softwords/fileaccess.fr @@ -0,0 +1,25 @@ +\ #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 |