1 files changed, 111 insertions, 0 deletions
diff --git a/c/src/exec/libcsupport/src/fcntl.c b/c/src/exec/libcsupport/src/fcntl.c
new file mode 100644
index 0000000000..f6f33534ab
--- /dev/null
+++ b/c/src/exec/libcsupport/src/fcntl.c
@@ -0,0 +1,111 @@
+/*
+ *   fcntl() - POSIX 1003.1b 6.5.2 - File Control
+ *
+ *  COPYRIGHT (c) 1989-1998.
+ *  On-Line Applications Research Corporation (OAR).
+ *  Copyright assigned to U.S. Government, 1994.
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.OARcorp.com/rtems/license.html.
+ *
+ *  $Id$
+ */
+
+#include <unistd.h>
+#include <fcntl.h>
+#include <errno.h>
+
+#include <rtems.h>
+#include "libio_.h"
+
+int fcntl(
+  int fd,
+  int cmd,
+  ...
+)
+{
+  va_list        ap;
+  rtems_libio_t *iop;
+  
+  va_start( ap, cmd );
+
+  /*
+   *  If this is not a file system based entity, it is an error.
+   */
+
+  if ( rtems_file_descriptor_type( fd ) )
+    set_errno_and_return_minus_one( EBADF );
+
+  /*
+   *  Now process the fcntl().
+   */
+
+  iop = rtems_libio_iop( fd );
+  rtems_libio_check_fd( fd );
+
+  /*
+   *  This switch should contain all the cases from POSIX.
+   */
+
+  switch ( cmd ) {
+    case F_DUPFD:        /* dup */
+      /*
+       *  This is how it appears that this case should work:
+       *
+       *     filedes2 = va_arg( ap, int )
+       *     if filedes2 is 0
+       *       duplicate fd into a new descriptor
+       *     else
+       *       duplicate fd into specified descriptor after error checking it
+       *
+       *  See dup2() in case we can eliminate stuff in there.
+       */
+      return -1;
+
+    case F_GETFD:        /* get f_flags */
+      if ( iop->flags & LIBIO_FLAGS_CLOSE_ON_EXEC )
+        return 1;
+      return 0;
+
+    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;
+      return 0;
+
+    case F_GETFL:        /* more flags (cloexec) */
+      return -1;
+
+    case F_SETFL:
+      return -1;
+
+    case F_GETLK:
+      return -1;
+
+    case F_SETLK:
+      return -1;
+
+    case F_SETLKW:
+      return -1;
+
+    case F_SETOWN:       /*  for sockets. */
+      return -1;
+
+    case F_GETOWN:       /*  for sockets. */
+      return -1;
+
+    default:
+      break;
+  }
+  return -1;
+}