1\ #if FICL_WANT_FILE
2\ **
3\ ** File Access words for ficl
4\ ** submitted by Larry Hastings, larry@hastings.org
5\ **
6\
| 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 $
| 7\ $FreeBSD: head/sys/boot/ficl/softwords/fileaccess.fr 167850 2007-03-23 22:26:01Z jkim $
|
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
| 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
| 18 else
19 drop
20 endif
21 ;
22
|
24: include parse-word included ; immediate
| 23: include parse-word included ;
|
25
26\ #endif
| 24
25\ #endif
|