1 files changed, 184 insertions, 0 deletions
diff --git a/cpukit/libcsupport/src/fcntl.c b/cpukit/libcsupport/src/fcntl.c
new file mode 100644
index 0000000000..988a9414ee
--- /dev/null
+++ b/cpukit/libcsupport/src/fcntl.c
@@ -0,0 +1,184 @@
+/*
+ *   fcntl() - POSIX 1003.1b 6.5.2 - File Control
+ *
+ *  COPYRIGHT (c) 1989-1999.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
+#if HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <stdarg.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include <errno.h>
+
+#include <rtems.h>
+#include <rtems/libio_.h>
+
+static int vfcntl(
+  int fd,
+  int cmd,
+  va_list ap
+)
+{
+  rtems_libio_t *iop;
+  rtems_libio_t *diop;
+  int            fd2;
+  int            flags;
+  int            mask;
+  int            ret = 0;
+
+  rtems_libio_check_fd( fd );
+  iop = rtems_libio_iop( fd );
+  rtems_libio_check_is_open(iop);
+
+  /*
+   *  Now process the fcntl().
+   */
+
+  /*
+   *  This switch should contain all the cases from POSIX.
+   */
+
+  switch ( cmd ) {
+    case F_DUPFD:        /* dup */
+      fd2 = va_arg( ap, int );
+      if ( fd2 )
+        diop = rtems_libio_iop( fd2 );
+      else {
+        /* allocate a file control block */
+        diop = rtems_libio_allocate();
+        if ( diop == 0 ) {
+          ret = -1;
+          break;
+        }
+      }
+
+      diop->flags      = iop->flags;
+      diop->pathinfo   = iop->pathinfo;
+      ret = (int) (diop - rtems_libio_iops);
+      break;
+
+    case F_GETFD:        /* get f_flags */
+      ret = ((iop->flags & LIBIO_FLAGS_CLOSE_ON_EXEC) != 0);
+      break;
+
+    case F_SETFD:        /* set f_flags */
+      /*
+       *  Interpret the third argument as the "close on exec()" flag.
+       *  If this argument is 1, then the file descriptor is to be closed
+       *  if a new process is exec()'ed.  Since RTEMS does not support
+       *  processes, then we can ignore this one except to make
+       *  F_GETFD work.
+       */
+
+      if ( va_arg( ap, int ) )
+        iop->flags |= LIBIO_FLAGS_CLOSE_ON_EXEC;
+      else
+        iop->flags &= ~LIBIO_FLAGS_CLOSE_ON_EXEC;
+      break;
+
+    case F_GETFL:        /* more flags (cloexec) */
+      ret = rtems_libio_to_fcntl_flags( iop->flags );
+      break;
+
+    case F_SETFL:
+      flags = rtems_libio_fcntl_flags( va_arg( ap, int ) );
+      mask = LIBIO_FLAGS_NO_DELAY | LIBIO_FLAGS_APPEND;
+
+      /*
+       *  XXX If we are turning on append, should we seek to the end?
+       */
+
+      iop->flags = (iop->flags & ~mask) | (flags & mask);
+      break;
+
+    case F_GETLK:
+      errno = ENOTSUP;
+      ret = -1;
+      break;
+
+    case F_SETLK:
+      errno = ENOTSUP;
+      ret = -1;
+      break;
+
+    case F_SETLKW:
+      errno = ENOTSUP;
+      ret = -1;
+      break;
+
+    case F_SETOWN:       /*  for sockets. */
+      errno = ENOTSUP;
+      ret = -1;
+      break;
+
+    case F_GETOWN:       /*  for sockets. */
+      errno = ENOTSUP;
+      ret = -1;
+      break;
+
+    default:
+      errno = EINVAL;
+      ret = -1;
+      break;
+  }
+
+  /*
+   *  If we got this far successfully, then we give the optional
+   *  filesystem specific handler a chance to process this.
+   */
+
+  if (ret >= 0) {
+    int err = (*iop->pathinfo.handlers->fcntl_h)( cmd, iop );
+    if (err) {
+      errno = err;
+      ret = -1;
+    }
+  }
+  return ret;
+}
+
+int fcntl(
+  int fd,
+  int cmd,
+  ...
+)
+{
+  int            ret;
+  va_list        ap;
+  va_start( ap, cmd );
+  ret = vfcntl(fd,cmd,ap);
+  va_end(ap);
+  return ret;
+}
+
+
+/*
+ *  _fcntl_r
+ *
+ *  This is the Newlib dependent reentrant version of fcntl().
+ */
+
+#if defined(RTEMS_NEWLIB) && !defined(HAVE_FCNTL_R)
+
+#include <reent.h>
+
+int _fcntl_r(
+  struct _reent *ptr __attribute__((unused)),
+  int fd,
+  int cmd,
+  int arg
+)
+{
+  return fcntl( fd, cmd, arg );
+}
+#endif