From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 25 Oct 2012 03:08:32 +0000 (-0700)
Subject: unix: adding mkfifo.
X-Git-Tag: 0.97~2165
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=be4db5312f0e360e7d6f7a1eea0173ec3de89e77

unix: adding mkfifo.
---

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 -- )