1 files changed, 57 insertions, 0 deletions
diff --git a/ipl/cfuncs/files.c b/ipl/cfuncs/files.c
new file mode 100644
index 0000000..be9c17d
--- /dev/null
+++ b/ipl/cfuncs/files.c
@@ -0,0 +1,57 @@
+/*
+############################################################################
+#
+#	File:     files.c
+#
+#	Subject:  Functions to manipulate file attributes
+#
+#	Author:   Gregg M. Townsend
+#
+#	Date:     November 17, 2004
+#
+############################################################################
+#
+#   This file is in the public domain.
+#
+############################################################################
+#
+#  chmod(filename, mode) changes the file permission modes of a file to
+#  those specified.
+#
+#  umask(mask) sets the process "umask" to the specified value.
+#  If mask is omitted, the current process mask is returned.
+#
+############################################################################
+#
+#  Requires:  UNIX, dynamic loading
+#
+############################################################################
+*/
+
+#include "icall.h"
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+int icon_chmod (int argc, descriptor argv[]) /*: change UNIX file permissions */
+   {
+   ArgString(1);
+   ArgInteger(2);
+   if (chmod(StringVal(argv[1]), IntegerVal(argv[2])) == 0)
+      RetNull();
+   else
+      Fail;
+   }
+
+int icon_umask (int argc, descriptor argv[]) /*: change UNIX permission mask */
+   {
+   int n;
+
+   if (argc == 0) {
+      umask(n = umask(0));
+      RetInteger(n);
+      }
+   ArgInteger(1);
+   umask(IntegerVal(argv[1]));
+   RetArg(1);
+   }