unix: adding mkfifo.
parent
2f0e437314
commit
be4db5312f
|
@ -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 ) ;
|
||||||
|
|
|
@ -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 -- )
|
||||||
|
|
Loading…
Reference in New Issue