1 files changed, 50 insertions, 0 deletions
diff --git a/cpukit/libcsupport/src/fchmod.c b/cpukit/libcsupport/src/fchmod.c
new file mode 100644
index 0000000000..a3ca4507ab
--- /dev/null
+++ b/cpukit/libcsupport/src/fchmod.c
@@ -0,0 +1,50 @@
+/*
+ *  fchmod() - POSIX 1003.1b 5.6.4 - Change File Modes
+ *
+ *  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 <sys/stat.h>
+#include <errno.h>
+
+#include <rtems.h>
+#include <rtems/libio.h>
+#include "libio_.h"
+
+int fchmod(
+  int       fd,
+  mode_t    mode
+)
+{
+  rtems_libio_t *iop;
+  
+  /*
+   *  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 fchmod().
+   */
+
+  iop = rtems_libio_iop( fd );
+  rtems_libio_check_fd( fd );
+  rtems_libio_check_permissions( iop, LIBIO_FLAGS_WRITE );
+
+  if ( !iop->handlers->fchmod )
+    set_errno_and_return_minus_one( ENOTSUP );
+
+  return (*iop->pathinfo.handlers->fchmod)( &iop->pathinfo, mode );
+}
+