0.6.7.22: removed CVS dollar-Header-dollar tags from sources

[sbcl.git] / src / code / unix.lisp

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index ce25a36..c6083a6 100644 (file)
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -24,9 +24,6 @@
 
 (in-package "SB!UNIX")
 
-(file-comment
-  "$Header$")
-
 (/show0 "unix.lisp 21")
 
 ;;;; common machine-independent structures
@@ -543,6 +540,19 @@
                 (addr (deref ptr offset)))
               len))
 
+(defun unix-pipe ()
+  #!+sb-doc
+  "Unix-pipe sets up a unix-piping mechanism consisting of
+  an input pipe and an output pipe.  Unix-Pipe returns two
+  values: if no error occurred the first value is the pipe
+  to be read from and the second is can be written to.  If
+  an error occurred the first value is NIL and the second
+  the unix error code."
+  (with-alien ((fds (array int 2)))
+    (syscall ("pipe" (* int))
+            (values (deref fds 0) (deref fds 1))
+            (cast fds (* int)))))
+
 ;;; UNIX-CHDIR accepts a directory name and makes that the
 ;;; current working directory.
 (defun unix-chdir (path)
@@ -566,6 +576,14 @@
                                       (cast buf (* char)))))
            (cast buf c-string))))
 
+(defun unix-dup (fd)
+  #!+sb-doc
+  "Unix-dup duplicates an existing file descriptor (given as the
+   argument) and returns it.  If FD is not a valid file descriptor, NIL
+   and an error number are returned."
+  (declare (type unix-fd fd))
+  (int-syscall ("dup" int) fd))
+
 ;;; UNIX-EXIT terminates a program.
 (defun unix-exit (&optional (code 0))
   #!+sb-doc
@@ -639,9 +657,6 @@
             (cast buf c-string)
             (cast buf (* char)) 256)))
 
-;;; Unix-fsync writes the core-image of the file described by "fd" to
-;;; permanent storage (i.e. disk).
-
 (defun unix-fsync (fd)
   #!+sb-doc
   "Unix-fsync writes the core image of the file described by
@@ -649,6 +664,17 @@
   (declare (type unix-fd fd))
   (void-syscall ("fsync" int) fd))
 \f
+;;;; sys/ioctl.h
+
+(defun unix-ioctl (fd cmd arg)
+  #!+sb-doc
+  "Unix-ioctl performs a variety of operations on open i/o
+   descriptors.  See the UNIX Programmer's Manual for more
+   information."
+  (declare (type unix-fd fd)
+          (type (unsigned-byte 32) cmd))
+  (void-syscall ("ioctl" int unsigned-int (* char)) fd cmd arg))
+\f
 ;;;; sys/resource.h
 
 ;;; FIXME: All we seem to need is the RUSAGE_SELF version of this.
@@ -950,8 +976,8 @@
 (def-unix-error ESRCH 3 "No such process")
 |#
 (def-unix-error EINTR 4 "Interrupted system call")
-#|
 (def-unix-error EIO 5 "I/O error")
+#|
 (def-unix-error ENXIO 6 "No such device or address")
 (def-unix-error E2BIG 7 "Arg list too long")
 (def-unix-error ENOEXEC 8 "Exec format error")