194290Sdcs\ #if FICL_WANT_FILE 294290Sdcs\ ** 394290Sdcs\ ** File Access words for ficl 494290Sdcs\ ** submitted by Larry Hastings, larry@hastings.org 594290Sdcs\ ** 694290Sdcs\ 794290Sdcs\ $FreeBSD: releng/11.0/sys/boot/ficl/softwords/fileaccess.fr 167850 2007-03-23 22:26:01Z jkim $ 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 else 1994290Sdcs drop 2094290Sdcs endif 2194290Sdcs ; 2294290Sdcs 23167850Sjkim: include parse-word included ; 2494290Sdcs 2594290Sdcs\ #endif 26