25c25
< \ $FreeBSD: head/sys/boot/forth/support.4th 66349 2000-09-25 11:36:55Z dcs $
---
> \ $FreeBSD: head/sys/boot/forth/support.4th 87636 2001-12-11 00:49:34Z jhb $
82a83,92
> \ I/O constants
>
> 0 constant SEEK_SET
> 1 constant SEEK_CUR
> 2 constant SEEK_END
>
> 0 constant O_RDONLY
> 1 constant O_WRONLY
> 2 constant O_RDWR
>
934,941d943
< : create_null_terminated_string { addr len -- addr' len }
< len char+ allocate if out_of_memory throw then
< >r
< addr r@ len move
< 0 r@ len + c!
< r> len
< ;
<
947,950c949
< create_null_terminated_string
< over >r
< fopen fd !
< r> free-memory
---
> O_RDONLY fopen fd !