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