fileaccess.fr revision 94290
194290Sdcs\ #if FICL_WANT_FILE 294290Sdcs\ ** 394290Sdcs\ ** File Access words for ficl 494290Sdcs\ ** submitted by Larry Hastings, larry@hastings.org 594290Sdcs\ ** 694290Sdcs\ 794290Sdcs\ $FreeBSD: head/sys/boot/ficl/softwords/fileaccess.fr 94290 2002-04-09 17:45:28Z dcs $ 894290Sdcs 994290Sdcs: r/o 1 ; 1094290Sdcs: r/w 3 ; 1194290Sdcs: w/o 2 ; 1294290Sdcs: bin 8 or ; 1394290Sdcs 1494290Sdcs: included 1594290Sdcs r/o bin open-file 0= if 1694290Sdcs locals| f | end-locals 1794290Sdcs f include-file 1894290Sdcs f close-file drop 1994290Sdcs else 2094290Sdcs drop 2194290Sdcs endif 2294290Sdcs ; 2394290Sdcs 2494290Sdcs: include parse-word included ; immediate 2594290Sdcs 2694290Sdcs\ #endif 27