steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.unix.file and io.unix.launcher: More usages of 'open-file'

db4
Eduardo Cavazos 2008-05-13 22:36:18 -05:00
parent 991945d8b4
commit 7ce5a7d9d6
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/io/unix/files/files.factor
View File

@ -12,8 +12,7 @@ M: unix cwd ( -- path )
MAXPATHLEN [ <byte-array> ] [ ] bi getcwd
[ (io-error) ] unless* ;
M: unix cd ( path -- )
chdir io-error ;
M: unix cd ( path -- ) [ chdir ] unix-system-call drop ;
: read-flags O_RDONLY ; inline
@ -24,8 +23,7 @@ M: unix (file-reader) ( path -- stream )
: write-flags { O_WRONLY O_CREAT O_TRUNC } flags ; inline
: open-write ( path -- fd )
write-flags file-mode open dup io-error ;
: open-write ( path -- fd ) write-flags file-mode open-file ;
M: unix (file-writer) ( path -- stream )
open-write <output-port> ;
@ -33,7 +31,7 @@ M: unix (file-writer) ( path -- stream )
: append-flags { O_WRONLY O_APPEND O_CREAT } flags ; inline
: open-append ( path -- fd )
append-flags file-mode open dup io-error
append-flags file-mode open-file
[ dup 0 SEEK_END lseek io-error ] [ ] [ close ] cleanup ;
M: unix (file-appender) ( path -- stream )
@ -45,7 +43,7 @@ M: unix (file-appender) ( path -- stream )
M: unix touch-file ( path -- )
normalize-path
dup exists? [ touch ] [
touch-mode file-mode open close
touch-mode file-mode open-file close
] if ;
M: unix move-file ( from to -- )

2
extra/io/unix/launcher/launcher.factor
View File

@ -44,7 +44,7 @@ USE: unix
: redirect-file ( obj mode fd -- )
>r >r normalize-path r> file-mode
open dup io-error r> redirect-fd ;
open-file r> redirect-fd ;
: redirect-file-append ( obj mode fd -- )
>r drop path>> normalize-path open-append r> redirect-fd ;