16 lines
401 B
Factor
16 lines
401 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: io-internals
|
||
|
|
USING: errors kernel math ;
|
||
|
|
|
||
|
|
: file-mode OCT: 0600 ;
|
||
|
|
|
||
|
|
: io-error ( n -- ) 0 < [ errno strerror throw ] when ;
|
||
|
|
|
||
|
|
: open-read ( path -- fd )
|
||
|
|
O_RDONLY file-mode sys-open dup io-error ;
|
||
|
|
|
||
|
|
: open-write ( path -- fd )
|
||
|
|
O_WRONLY O_CREAT bitor O_TRUNC bitor file-mode sys-open
|
||
|
|
dup io-error ;
|