Unix.st
changeset 202 40ca7cc6fb9c
parent 185 d9be85c4cfe4
child 204 0a562ad64bcc
--- a/Unix.st	Thu Nov 17 15:12:25 1994 +0100
+++ b/Unix.st	Thu Nov 17 15:18:16 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.20 1994-10-28 01:30:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.21 1994-11-17 14:18:16 claus Exp $
 '!
 
 !OperatingSystem class primitiveDefinitions!
@@ -70,10 +70,34 @@
 # include <sys/stat.h>
 # include <errno.h>
 
+/* 
+ * posix systems should define these ... 
+ * but on some (older) systems, they are not.
+ */
 # ifndef S_IXUSR
-#  define S_IXUSR S_IEXEC
-#  define S_IXGRP (S_IEXEC>>3)
-#  define S_IXOTH (S_IEXEC>>6)
+#  ifdef S_IEXEC
+#   define S_IXUSR S_IEXEC
+#   define S_IXGRP (S_IEXEC>>3)
+#   define S_IXOTH (S_IEXEC>>6)
+#  endif
+# endif
+
+# ifndef S_IXUSR
+#  define S_IXUSR 0100
+#  define S_IXGRP 0010
+#  define S_IXOTH 0001
+# endif
+
+# ifndef S_IRUSR
+#  define S_IRUSR 0400
+#  define S_IRGRP 0040
+#  define S_IROTH 0004
+# endif
+
+# ifndef S_IWUSR
+#  define S_IWUSR 0200
+#  define S_IWGRP 0020
+#  define S_IWOTH 0002
 # endif
 
 # ifndef MAXPATHLEN
@@ -125,7 +149,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.20 1994-10-28 01:30:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.21 1994-11-17 14:18:16 claus Exp $
 "
 !