From be4db5312f0e360e7d6f7a1eea0173ec3de89e77 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 24 Oct 2012 20:08:32 -0700 Subject: [PATCH] unix: adding mkfifo. --- basis/unix/ffi/ffi.factor | 1 + basis/unix/unix.factor | 2 ++ 2 files changed, 3 insertions(+) diff --git a/basis/unix/ffi/ffi.factor b/basis/unix/ffi/ffi.factor index 3dd914cf65..ba1b7646d2 100644 --- a/basis/unix/ffi/ffi.factor +++ b/basis/unix/ffi/ffi.factor @@ -127,6 +127,7 @@ FUNCTION: int lchown ( c-string path, uid_t owner, gid_t group ) ; FUNCTION: int listen ( int s, int backlog ) ; FUNCTION: off_t lseek ( int fildes, off_t offset, int whence ) ; 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: int munmap ( void* addr, size_t len ) ; FUNCTION: uint ntohl ( uint n ) ; diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor index 101736ea1f..7d5549e433 100644 --- a/basis/unix/unix.factor +++ b/basis/unix/unix.factor @@ -54,6 +54,8 @@ FUNCTION: int _exit ( int status ) ; 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 ; : change-file-times ( filename access modification -- )