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

unix: adding mkfifo.

db4
John Benediktsson 2012-10-24 20:08:32 -07:00
parent 2f0e437314
commit be4db5312f
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/unix/ffi/ffi.factor
View File

@ -127,6 +127,7 @@ FUNCTION: int lchown ( c-string path, uid_t owner, gid_t group ) ;
FUNCTION: int listen ( int s, int backlog ) ; FUNCTION: int listen ( int s, int backlog ) ;
FUNCTION: off_t lseek ( int fildes, off_t offset, int whence ) ; FUNCTION: off_t lseek ( int fildes, off_t offset, int whence ) ;
FUNCTION: int mkdir ( c-string path, mode_t mode ) ; FUNCTION: int mkdir ( c-string path, mode_t mode ) ;
FUNCTION: int mkfifo ( c-string path, mode_t mode ) ;
FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_t offset ) ; FUNCTION: void* mmap ( void* addr, size_t len, int prot, int flags, int fd, off_t offset ) ;
FUNCTION: int munmap ( void* addr, size_t len ) ; FUNCTION: int munmap ( void* addr, size_t len ) ;
FUNCTION: uint ntohl ( uint n ) ; FUNCTION: uint ntohl ( uint n ) ;

2
basis/unix/unix.factor
View File

@ -54,6 +54,8 @@ FUNCTION: int _exit ( int status ) ;
M: unix open-file [ open ] unix-system-call ; M: unix open-file [ open ] unix-system-call ;
: make-fifo ( path mode -- ) [ mkfifo ] unix-system-call drop ;
: touch ( filename -- ) f [ utime ] unix-system-call drop ; : touch ( filename -- ) f [ utime ] unix-system-call drop ;
: change-file-times ( filename access modification -- ) : change-file-times ( filename access modification -- )