1 files changed, 55 insertions, 0 deletions
diff --git a/cpukit/libfs/src/imfs/imfs_fchmod.c b/cpukit/libfs/src/imfs/imfs_fchmod.c
new file mode 100644
index 0000000000..06c2969100
--- /dev/null
+++ b/cpukit/libfs/src/imfs/imfs_fchmod.c
@@ -0,0 +1,55 @@
+/*
+ *  IMFS file change mode routine.
+ *
+ *  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 <errno.h>
+
+#include "libio_.h"
+#include "imfs.h"
+
+int IMFS_fchmod(
+  rtems_filesystem_location_info_t *loc,
+  mode_t                            mode
+)
+{
+  IMFS_jnode_t  *jnode;
+#if defined(RTEMS_POSIX_API)
+  uid_t          st_uid;
+#endif
+    
+  jnode = loc->node_access;
+
+  /*
+   *  Verify I am the owner of the node or the super user.
+   */
+#if defined(RTEMS_POSIX_API)
+  st_uid = geteuid();
+
+  if ( ( st_uid != jnode->st_uid ) && ( st_uid != 0 ) )
+    set_errno_and_return_minus_one( EPERM );
+#endif
+
+  /*
+   * Change only the RWX permissions on the jnode to mode.
+   */
+  if ( mode & (~ (S_IRWXU | S_IRWXG | S_IRWXO ) ) )
+    set_errno_and_return_minus_one( EPERM );
+
+  jnode->st_mode &= ~(S_IRWXU | S_IRWXG | S_IRWXO);
+  jnode->st_mode |= mode;
+
+  IMFS_update_ctime( jnode );
+
+  return 0;
+}
+