diff options
Diffstat (limited to 'softwords/fileaccess.fr')
| -rw-r--r-- | softwords/fileaccess.fr | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/softwords/fileaccess.fr b/softwords/fileaccess.fr new file mode 100644 index 000000000000..7a4452ac7e75 --- /dev/null +++ b/softwords/fileaccess.fr @@ -0,0 +1,23 @@ +\ #if FICL_WANT_FILE
+\ **
+\ ** 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
+ locals| f | end-locals
+ f include-file
+ else
+ drop
+ endif
+ ;
+
+: include parse-word included ;
+
+\ #endif
|