1 files changed, 36 insertions, 0 deletions
diff --git a/otherlibs/unix/mkfifo.c b/otherlibs/unix/mkfifo.c
new file mode 100644
index 000000000..453bcfc5e
--- /dev/null
+++ b/otherlibs/unix/mkfifo.c
@@ -0,0 +1,36 @@
+#include <mlvalues.h>
+#include "unix.h"
+
+#ifdef HAS_MKFIFO
+
+value unix_mkfifo(path, mode)
+     value path;
+     value mode;
+{
+  if (mkfifo(String_val(path), Int_val(mode)) == -1)
+    uerror("mkfifo", path);
+  return Val_unit;
+}
+
+#else
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#ifdef S_IFIFO
+
+value unix_mkfifo(path, mode)
+     value path;
+     value mode;
+{
+  if (mknod(String_val(path), (Int_val(mode) & 07777) | S_IFIFO, 0) == -1)
+    uerror("mkfifo", path);
+  return Val_unit;
+}
+
+#else
+
+value unix_mkfifo() { invalid_argument("mkfifo not implemented"); }
+
+#endif
+#endif