fileaccess.fr revision 94290
1\ #if FICL_WANT_FILE 2\ ** 3\ ** File Access words for ficl 4\ ** submitted by Larry Hastings, larry@hastings.org 5\ ** 6\ 7\ $FreeBSD: head/sys/boot/ficl/softwords/fileaccess.fr 94290 2002-04-09 17:45:28Z dcs $ 8 9: r/o 1 ; 10: r/w 3 ; 11: w/o 2 ; 12: bin 8 or ; 13 14: included 15 r/o bin open-file 0= if 16 locals| f | end-locals 17 f include-file 18 f close-file drop 19 else 20 drop 21 endif 22 ; 23 24: include parse-word included ; immediate 25 26\ #endif 27