diff options
| author | Pedro F. Giffuni <pfg@FreeBSD.org> | 2015-05-12 03:27:06 +0000 |
|---|---|---|
| committer | Pedro F. Giffuni <pfg@FreeBSD.org> | 2015-05-12 03:27:06 +0000 |
| commit | f4e75c6395310fa4b119d3eaa9a4a9f8913df200 (patch) | |
| tree | 2b015c205d81fa2431f0c36d7d9e903088a56d1c /softcore/fileaccess.fr | |
| parent | be98e1ae3decabdd852fbe6496166aaa9acfbf9e (diff) | |
Notes
Diffstat (limited to 'softcore/fileaccess.fr')
| -rw-r--r-- | softcore/fileaccess.fr | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/softcore/fileaccess.fr b/softcore/fileaccess.fr new file mode 100644 index 000000000000..2673fefc0767 --- /dev/null +++ b/softcore/fileaccess.fr @@ -0,0 +1,22 @@ +S" FICL_WANT_FILE" ENVIRONMENT? drop [if] +\ ** +\ ** File Access words for ficl +\ ** submitted by Larry Hastings, larry@hastings.org +\ ** + +: r/o 1 ; +: r/w 3 ; +: w/o 2 ; +: bin 8 or ; + +: included + r/o bin open-file 0= if + include-file + else + drop + endif + ; + +: include parse-word included ; + +[endif] |