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

unix: Add high-level 'utime'

db4
Eduardo Cavazos 2008-05-09 16:24:17 -05:00
parent 6d7fbff00b
commit 2b7bd1a8e1
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/unix/unix.factor
View File

@ -86,6 +86,12 @@ ERROR: open-error path flags prot message ;
3dup unix.ffi:open 3dup unix.ffi:open
dup 0 >= [ >r 3drop r> ] [ drop err_no strerror open-error ] if ; dup 0 >= [ >r 3drop r> ] [ drop err_no strerror open-error ] if ;
ERROR: utime-error path message ;
: utime ( path buf -- )
dupd unix.ffi:utime
0 = [ drop ] [ err_no strerror utime-error ] if ;
FUNCTION: int pclose ( void* file ) ; FUNCTION: int pclose ( void* file ) ;
FUNCTION: int pipe ( int* filedes ) ; FUNCTION: int pipe ( int* filedes ) ;
FUNCTION: void* popen ( char* command, char* type ) ; FUNCTION: void* popen ( char* command, char* type ) ;