Declare localtime_r if necessary.

[gnulib.git] / lib / filemode.c

diff --git a/lib/filemode.c b/lib/filemode.c
index e88fc12..e61f212 100644 (file)
--- a/lib/filemode.c
+++ b/lib/filemode.c
@@ -1,5 +1,5 @@
 /* filemode.c -- make a string describing file modes
 /* filemode.c -- make a string describing file modes

-   Copyright (C) 1985, 1990, 1993 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1990, 1993, 1998 Free Software Foundation, Inc.

 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by


@@ -12,135 +12,131 @@
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License

-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+   along with this program; if not, write to the Free Software Foundation,
+   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

 \f
 \f

-#ifdef HAVE_CONFIG_H
-#include <config.h>
+#if HAVE_CONFIG_H
+# include <config.h>

 #endif
 
 #include <sys/types.h>
 #include <sys/stat.h>
 
 #endif
 
 #include <sys/types.h>
 #include <sys/stat.h>
 

-#ifndef S_IREAD
-#define S_IREAD S_IRUSR
-#define S_IWRITE S_IWUSR
-#define S_IEXEC S_IXUSR
+#include "filemode.h"
+
+#if !S_IRUSR
+# if S_IREAD
+#  define S_IRUSR S_IREAD
+# else
+#  define S_IRUSR 00400
+# endif

 #endif
 
 #endif
 

-#if 0 /* This is unreliable, since GCC 2.5 always has S_ISREG in its
-        fixed headers but it does not always have mode_t.
-        It seems safer not to try to use mode_t ever.  */
-#if !defined(S_ISREG) || defined(NO_MODE_T)
-/* Doesn't have POSIX.1 stat stuff or doesn't have mode_t.  */
-#define mode_t unsigned short
+#if !S_IWUSR
+# if S_IWRITE
+#  define S_IWUSR S_IWRITE
+# else
+#  define S_IWUSR 00200
+# endif

 #endif
 #endif

+
+#if !S_IXUSR
+# if S_IEXEC
+#  define S_IXUSR S_IEXEC
+# else
+#  define S_IXUSR 00100
+# endif

 #endif
 
 #ifdef STAT_MACROS_BROKEN
 #endif
 
 #ifdef STAT_MACROS_BROKEN

-#undef S_ISBLK
-#undef S_ISCHR
-#undef S_ISDIR
-#undef S_ISFIFO
-#undef S_ISLNK
-#undef S_ISMPB
-#undef S_ISMPC
-#undef S_ISNWK
-#undef S_ISREG
-#undef S_ISSOCK
+# undef S_ISBLK
+# undef S_ISCHR
+# undef S_ISDIR
+# undef S_ISFIFO
+# undef S_ISLNK
+# undef S_ISMPB
+# undef S_ISMPC
+# undef S_ISNWK
+# undef S_ISREG
+# undef S_ISSOCK

 #endif /* STAT_MACROS_BROKEN.  */
 
 #if !defined(S_ISBLK) && defined(S_IFBLK)
 #endif /* STAT_MACROS_BROKEN.  */
 
 #if !defined(S_ISBLK) && defined(S_IFBLK)

-#define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
+# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)

 #endif
 #if !defined(S_ISCHR) && defined(S_IFCHR)
 #endif
 #if !defined(S_ISCHR) && defined(S_IFCHR)

-#define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
+# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)

 #endif
 #if !defined(S_ISDIR) && defined(S_IFDIR)
 #endif
 #if !defined(S_ISDIR) && defined(S_IFDIR)

-#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
+# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)

 #endif
 #if !defined(S_ISREG) && defined(S_IFREG)
 #endif
 #if !defined(S_ISREG) && defined(S_IFREG)

-#define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
+# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)

 #endif
 #if !defined(S_ISFIFO) && defined(S_IFIFO)
 #endif
 #if !defined(S_ISFIFO) && defined(S_IFIFO)

-#define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
+# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)

 #endif
 #if !defined(S_ISLNK) && defined(S_IFLNK)
 #endif
 #if !defined(S_ISLNK) && defined(S_IFLNK)

-#define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
+# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)

 #endif
 #if !defined(S_ISSOCK) && defined(S_IFSOCK)
 #endif
 #if !defined(S_ISSOCK) && defined(S_IFSOCK)

-#define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
+# define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)

 #endif
 #if !defined(S_ISMPB) && defined(S_IFMPB) /* V7 */
 #endif
 #if !defined(S_ISMPB) && defined(S_IFMPB) /* V7 */

-#define S_ISMPB(m) (((m) & S_IFMT) == S_IFMPB)
-#define S_ISMPC(m) (((m) & S_IFMT) == S_IFMPC)
+# define S_ISMPB(m) (((m) & S_IFMT) == S_IFMPB)
+# define S_ISMPC(m) (((m) & S_IFMT) == S_IFMPC)

 #endif
 #if !defined(S_ISNWK) && defined(S_IFNWK) /* HP/UX */
 #endif
 #if !defined(S_ISNWK) && defined(S_IFNWK) /* HP/UX */

-#define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK)
+# define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK)

 #endif
 
 #endif
 

-void mode_string ();
-static char ftypelet ();
-static void rwx ();
-static void setst ();
-
-/* filemodestring - fill in string STR with an ls-style ASCII
-   representation of the st_mode field of file stats block STATP.
-   10 characters are stored in STR; no terminating null is added.
-   The characters stored in STR are:
-
-   0   File type.  'd' for directory, 'c' for character
-       special, 'b' for block special, 'm' for multiplex,
-       'l' for symbolic link, 's' for socket, 'p' for fifo,
-       '-' for regular, '?' for any other file type
-
-   1   'r' if the owner may read, '-' otherwise.
-
-   2   'w' if the owner may write, '-' otherwise.
-
-   3   'x' if the owner may execute, 's' if the file is
-       set-user-id, '-' otherwise.
-       'S' if the file is set-user-id, but the execute
-       bit isn't set.
-
-   4   'r' if group members may read, '-' otherwise.
-
-   5   'w' if group members may write, '-' otherwise.
-
-   6   'x' if group members may execute, 's' if the file is
-       set-group-id, '-' otherwise.
-       'S' if it is set-group-id but not executable.
-
-   7   'r' if any user may read, '-' otherwise.
-
-   8   'w' if any user may write, '-' otherwise.
-
-   9   'x' if any user may execute, 't' if the file is "sticky"
-       (will be retained in swap space after execution), '-'
-       otherwise.
-       'T' if the file is sticky but not executable.  */
+/* Look at read, write, and execute bits in BITS and set
+   flags in CHARS accordingly.  */

 
 

-void
-filemodestring (statp, str)
-     struct stat *statp;
-     char *str;
+static void
+rwx (short unsigned int bits, char *chars)

 {
 {

-  mode_string (statp->st_mode, str);
+  chars[0] = (bits & S_IRUSR) ? 'r' : '-';
+  chars[1] = (bits & S_IWUSR) ? 'w' : '-';
+  chars[2] = (bits & S_IXUSR) ? 'x' : '-';

 }
 
 }
 

-/* Like filemodestring, but only the relevant part of the `struct stat'
-   is given as an argument.  */
+/* Set the 's' and 't' flags in file attributes string CHARS,
+   according to the file mode BITS.  */

 
 

-void
-mode_string (mode, str)
-     unsigned short mode;
-     char *str;
+static void
+setst (short unsigned int bits, char *chars)

 {
 {

-  str[0] = ftypelet ((long) mode);
-  rwx ((mode & 0700) << 0, &str[1]);
-  rwx ((mode & 0070) << 3, &str[4]);
-  rwx ((mode & 0007) << 6, &str[7]);
-  setst (mode, str);
+#ifdef S_ISUID
+  if (bits & S_ISUID)
+    {
+      if (chars[3] != 'x')
+       /* Set-uid, but not executable by owner.  */
+       chars[3] = 'S';
+      else
+       chars[3] = 's';
+    }
+#endif
+#ifdef S_ISGID
+  if (bits & S_ISGID)
+    {
+      if (chars[6] != 'x')
+       /* Set-gid, but not executable by group.  */
+       chars[6] = 'S';
+      else
+       chars[6] = 's';
+    }
+#endif
+#ifdef S_ISVTX
+  if (bits & S_ISVTX)
+    {
+      if (chars[9] != 'x')
+       /* Sticky, but not executable by others.  */
+       chars[9] = 'T';
+      else
+       chars[9] = 't';
+    }
+#endif

 }
 
 /* Return a character indicating the type of file described by
 }
 
 /* Return a character indicating the type of file described by


@@ -149,6 +145,7 @@ mode_string (mode, str)
    'b' for block special files
    'c' for character special files
    'm' for multiplexor files
    'b' for block special files
    'c' for character special files
    'm' for multiplexor files

+   'M' for an off-line (regular) file

    'l' for symbolic links
    's' for sockets
    'p' for fifos
    'l' for symbolic links
    's' for sockets
    'p' for fifos


@@ -156,8 +153,7 @@ mode_string (mode, str)
    '?' for any other file type.  */
 
 static char
    '?' for any other file type.  */
 
 static char

-ftypelet (bits)
-     long bits;
+ftypelet (long int bits)

 {
 #ifdef S_ISBLK
   if (S_ISBLK (bits))
 {
 #ifdef S_ISBLK
   if (S_ISBLK (bits))


@@ -189,58 +185,76 @@ ftypelet (bits)
   if (S_ISNWK (bits))
     return 'n';
 #endif
   if (S_ISNWK (bits))
     return 'n';
 #endif

+
+  /* The following two tests are for Cray DMF (Data Migration
+     Facility), which is a HSM file system.  A migrated file has a
+     `st_dm_mode' that is different from the normal `st_mode', so any
+     tests for migrated files should use the former.  */
+
+#ifdef S_ISOFD
+  if (S_ISOFD (bits))
+    /* off line, with data  */
+    return 'M';
+#endif
+#ifdef S_ISOFL
+  /* off line, with no data  */
+  if (S_ISOFL (bits))
+    return 'M';
+#endif

   return '?';
 }
 
   return '?';
 }
 

-/* Look at read, write, and execute bits in BITS and set
-   flags in CHARS accordingly.  */
+/* Like filemodestring, but only the relevant part of the `struct stat'
+   is given as an argument.  */

 
 

-static void
-rwx (bits, chars)
-     unsigned short bits;
-     char *chars;
+void
+mode_string (short unsigned int mode, char *str)

 {
 {

-  chars[0] = (bits & S_IREAD) ? 'r' : '-';
-  chars[1] = (bits & S_IWRITE) ? 'w' : '-';
-  chars[2] = (bits & S_IEXEC) ? 'x' : '-';
+  str[0] = ftypelet ((long) mode);
+  rwx ((mode & 0700) << 0, &str[1]);
+  rwx ((mode & 0070) << 3, &str[4]);
+  rwx ((mode & 0007) << 6, &str[7]);
+  setst (mode, str);

 }
 
 }
 

-/* Set the 's' and 't' flags in file attributes string CHARS,
-   according to the file mode BITS.  */
+/* filemodestring - fill in string STR with an ls-style ASCII
+   representation of the st_mode field of file stats block STATP.
+   10 characters are stored in STR; no terminating null is added.
+   The characters stored in STR are:

 
 

-static void
-setst (bits, chars)
-     unsigned short bits;
-     char *chars;
+   0   File type.  'd' for directory, 'c' for character
+       special, 'b' for block special, 'm' for multiplex,
+       'l' for symbolic link, 's' for socket, 'p' for fifo,
+       '-' for regular, '?' for any other file type
+
+   1   'r' if the owner may read, '-' otherwise.
+
+   2   'w' if the owner may write, '-' otherwise.
+
+   3   'x' if the owner may execute, 's' if the file is
+       set-user-id, '-' otherwise.
+       'S' if the file is set-user-id, but the execute
+       bit isn't set.
+
+   4   'r' if group members may read, '-' otherwise.
+
+   5   'w' if group members may write, '-' otherwise.
+
+   6   'x' if group members may execute, 's' if the file is
+       set-group-id, '-' otherwise.
+       'S' if it is set-group-id but not executable.
+
+   7   'r' if any user may read, '-' otherwise.
+
+   8   'w' if any user may write, '-' otherwise.
+
+   9   'x' if any user may execute, 't' if the file is "sticky"
+       (will be retained in swap space after execution), '-'
+       otherwise.
+       'T' if the file is sticky but not executable.  */
+
+void
+filemodestring (struct stat *statp, char *str)

 {
 {

-#ifdef S_ISUID
-  if (bits & S_ISUID)
-    {
-      if (chars[3] != 'x')
-       /* Set-uid, but not executable by owner.  */
-       chars[3] = 'S';
-      else
-       chars[3] = 's';
-    }
-#endif
-#ifdef S_ISGID
-  if (bits & S_ISGID)
-    {
-      if (chars[6] != 'x')
-       /* Set-gid, but not executable by group.  */
-       chars[6] = 'S';
-      else
-       chars[6] = 's';
-    }
-#endif
-#ifdef S_ISVTX
-  if (bits & S_ISVTX)
-    {
-      if (chars[9] != 'x')
-       /* Sticky, but not executable by others.  */
-       chars[9] = 'T';
-      else
-       chars[9] = 't';
-    }
-#endif
+  mode_string (statp->st_mode, str);

 }
 }