1*ca987d46SWarner Losh\ #if FICL_WANT_FILE 2*ca987d46SWarner Losh\ ** 3*ca987d46SWarner Losh\ ** File Access words for ficl 4*ca987d46SWarner Losh\ ** submitted by Larry Hastings, larry@hastings.org 5*ca987d46SWarner Losh\ ** 6*ca987d46SWarner Losh\ 7*ca987d46SWarner Losh 8*ca987d46SWarner Losh: r/o 1 ; 9*ca987d46SWarner Losh: r/w 3 ; 10*ca987d46SWarner Losh: w/o 2 ; 11*ca987d46SWarner Losh: bin 8 or ; 12*ca987d46SWarner Losh 13*ca987d46SWarner Losh: included 14*ca987d46SWarner Losh r/o bin open-file 0= if 15*ca987d46SWarner Losh locals| f | end-locals 16*ca987d46SWarner Losh f include-file 17*ca987d46SWarner Losh else 18*ca987d46SWarner Losh drop 19*ca987d46SWarner Losh endif 20*ca987d46SWarner Losh ; 21*ca987d46SWarner Losh 22*ca987d46SWarner Losh: include parse-word included ; 23*ca987d46SWarner Losh 24*ca987d46SWarner Losh\ #endif 25