lib/listfile.c

   1 /* listfile.c -- display a long listing of a file
   2    Copyright (C) 1991, 1993 Free Software Foundation, Inc.
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software
  16    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  17
  18 #ifdef HAVE_CONFIG_H
  19 #include <config.h>
  20 #endif
  21
  22 #include <sys/types.h>
  23 #include <sys/stat.h>
  24 #include <stdio.h>
  25 #include <pwd.h>
  26 #include <grp.h>
  27 #include <time.h>
  28 #include <errno.h>
  29 #include "pathmax.h"
  30
  31 #if defined(HAVE_STRING_H) || defined(STDC_HEADERS)
  32 #include <string.h>
  33 #else
  34 #include <strings.h>
  35 #endif
  36 #ifdef STDC_HEADERS
  37 #include <stdlib.h>
  38 #else
  39 char *getenv ();
  40 extern int errno;
  41 #endif
  42
  43 /* Since major is a function on SVR4, we can't use `ifndef major'.  */
  44 #ifdef MAJOR_IN_MKDEV
  45 #include <sys/mkdev.h>
  46 #define HAVE_MAJOR
  47 #endif
  48 #ifdef MAJOR_IN_SYSMACROS
  49 #include <sys/sysmacros.h>
  50 #define HAVE_MAJOR
  51 #endif
  52
  53 #ifdef STAT_MACROS_BROKEN
  54 #undef S_ISCHR
  55 #undef S_ISBLK
  56 #undef S_ISLNK
  57 #endif
  58
  59 #ifndef S_ISCHR
  60 #define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
  61 #endif
  62 #ifndef S_ISBLK
  63 #define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
  64 #endif
  65 #if defined(S_IFLNK) && !defined(S_ISLNK)
  66 #define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
  67 #endif
  68
  69 #if defined(S_ISLNK)
  70 int readlink ();
  71 #endif
  72
  73 /* Extract or fake data from a `struct stat'.
  74    ST_NBLOCKS: Number of 512-byte blocks in the file
  75    (including indirect blocks).
  76    HP-UX, perhaps uniquely, counts st_blocks in 1024-byte units.
  77    This workaround loses when mixing HP-UX and 4BSD filesystems, though.  */
  78 #ifdef _POSIX_SOURCE
  79 # define ST_NBLOCKS(statp) (((statp)->st_size + 512 - 1) / 512)
  80 #else
  81 # ifndef HAVE_ST_BLOCKS
  82 #  define ST_NBLOCKS(statp) (st_blocks ((statp)->st_size))
  83 # else
  84 #  if defined(hpux) || defined(__hpux__)
  85 #   define ST_NBLOCKS(statp) ((statp)->st_blocks * 2)
  86 #  else
  87 #   define ST_NBLOCKS(statp) ((statp)->st_blocks)
  88 #  endif
  89 # endif
  90 #endif
  91
  92 /* Convert B 512-byte blocks to kilobytes if K is nonzero,
  93    otherwise return it unchanged. */
  94 #define convert_blocks(b, k) ((k) ? ((b) + 1) / 2 : (b))
  95
  96 #ifndef _POSIX_VERSION
  97 struct passwd *getpwuid ();
  98 struct group *getgrgid ();
  99 #endif
 100
 101 #ifdef major                    /* Might be defined in sys/types.h.  */
 102 #define HAVE_MAJOR
 103 #endif
 104 #ifndef HAVE_MAJOR
 105 #define major(dev)  (((dev) >> 8) & 0xff)
 106 #define minor(dev)  ((dev) & 0xff)
 107 #endif
 108 #undef HAVE_MAJOR
 109
 110 char *xmalloc ();
 111 void error ();
 112 void mode_string ();
 113
 114 char *get_link_name ();
 115 char *getgroup ();
 116 char *getuser ();
 117 void print_name_with_quoting ();
 118
 119 /* NAME is the name to print.
 120    RELNAME is the path to access it from the current directory.
 121    STATP is the results of stat or lstat on it.
 122    STREAM is the stdio stream to print on.  */
 123
 124 void
 125 list_file (name, relname, statp, stream)
 126      char *name;
 127      char *relname;
 128      struct stat *statp;
 129      FILE *stream;
 130 {
 131   static int kilobytes = -1;    /* -1 = uninitialized, 0 = 512, 1 = 1024. */
 132   char modebuf[20];
 133   char timebuf[40];
 134   time_t current_time = time ((time_t *) 0);
 135
 136   if (kilobytes == -1)
 137     kilobytes = getenv ("POSIXLY_CORRECT") == 0;
 138
 139   mode_string (statp->st_mode, modebuf);
 140   modebuf[10] = '\0';
 141
 142   strcpy (timebuf, ctime (&statp->st_mtime));
 143   if (current_time > statp->st_mtime + 6L * 30L * 24L * 60L * 60L /* Old. */
 144       || current_time < statp->st_mtime - 60L * 60L) /* In the future. */
 145     {
 146       /* The file is fairly old or in the future.
 147          POSIX says the cutoff is 6 months old;
 148          approximate this by 6*30 days.
 149          Allow a 1 hour slop factor for what is considered "the future",
 150          to allow for NFS server/client clock disagreement.
 151          Show the year instead of the time of day.  */
 152       strcpy (timebuf + 11, timebuf + 19);
 153     }
 154   timebuf[16] = 0;
 155
 156   fprintf (stream, "%6lu ", statp->st_ino);
 157
 158   fprintf (stream, "%4u ", convert_blocks (ST_NBLOCKS (statp), kilobytes));
 159
 160   /* The space between the mode and the number of links is the POSIX
 161      "optional alternate access method flag". */
 162   fprintf (stream, "%s %3u ", modebuf, statp->st_nlink);
 163
 164   fprintf (stream, "%-8.8s ", getuser (statp->st_uid));
 165
 166   fprintf (stream, "%-8.8s ", getgroup (statp->st_gid));
 167
 168   if (S_ISCHR (statp->st_mode) || S_ISBLK (statp->st_mode))
 169 #ifdef HAVE_ST_RDEV
 170     fprintf (stream, "%3u, %3u ", major (statp->st_rdev), minor (statp->st_rdev));
 171 #else
 172     fprintf (stream, "         ");
 173 #endif
 174   else
 175     fprintf (stream, "%8lu ", statp->st_size);
 176
 177   fprintf (stream, "%s ", timebuf + 4);
 178
 179   print_name_with_quoting (name, stream);
 180
 181 #ifdef S_ISLNK
 182   if (S_ISLNK (statp->st_mode))
 183     {
 184       char *linkname = get_link_name (name, relname);
 185
 186       if (linkname)
 187         {
 188           fputs (" -> ", stream);
 189           print_name_with_quoting (linkname, stream);
 190           free (linkname);
 191         }
 192     }
 193 #endif
 194   putc ('\n', stream);
 195 }
 196
 197 void
 198 print_name_with_quoting (p, stream)
 199      register char *p;
 200      FILE *stream;
 201 {
 202   register unsigned char c;
 203
 204   while ((c = *p++) != '\0')
 205     {
 206       switch (c)
 207         {
 208         case '\\':
 209           fprintf (stream, "\\\\");
 210           break;
 211
 212         case '\n':
 213           fprintf (stream, "\\n");
 214           break;
 215
 216         case '\b':
 217           fprintf (stream, "\\b");
 218           break;
 219
 220         case '\r':
 221           fprintf (stream, "\\r");
 222           break;
 223
 224         case '\t':
 225           fprintf (stream, "\\t");
 226           break;
 227
 228         case '\f':
 229           fprintf (stream, "\\f");
 230           break;
 231
 232         case ' ':
 233           fprintf (stream, "\\ ");
 234           break;
 235
 236         case '"':
 237           fprintf (stream, "\\\"");
 238           break;
 239
 240         default:
 241           if (c > 040 && c < 0177)
 242             putc (c, stream);
 243           else
 244             fprintf (stream, "\\%03o", (unsigned int) c);
 245         }
 246     }
 247 }
 248
 249 #ifdef S_ISLNK
 250 char *
 251 get_link_name (name, relname)
 252      char *name;
 253      char *relname;
 254 {
 255   register char *linkname;
 256   register int linklen;
 257
 258   /* st_size is wrong for symlinks on AIX, and on
 259      mount points with some automounters.
 260      So allocate a pessimistic PATH_MAX + 1 bytes.  */
 261 #define LINK_BUF PATH_MAX
 262   linkname = (char *) xmalloc (LINK_BUF + 1);
 263   linklen = readlink (relname, linkname, LINK_BUF);
 264   if (linklen < 0)
 265     {
 266       error (0, errno, "%s", name);
 267       free (linkname);
 268       return 0;
 269     }
 270   linkname[linklen] = '\0';
 271   return linkname;
 272 }
 273 #endif