comparison src/dired.c @ 94371:436ee104782b

(Ffile_attributes) [WINDOWSNT]: Undo change from 2008-03-31, it's not needed anymore with `struct stat' definition on nt/inc/sys/stat.h. Undo changes from 2007-01-12 and 2007-01-13 for the same reasons.

94370:28e6262d77ad

  struct stat sdir;
#endif
  char modes[10];
  Lisp_Object handler;
  struct gcpro gcpro1;
  EMACS_INT uid, gid, ino;

  filename = Fexpand_file_name (filename, Qnil);

  /* If the file name has special constructs in it,
     call the corresponding file handler.  */

    case S_IFLNK:
      values[0] = Ffile_symlink_p (filename); break;
#endif
    }
  values[1] = make_number (s.st_nlink);
  /* When make_fixnum_or_float is called below with types that are
     shorter than an int (e.g., `short'), GCC whines about comparison
     being always false due to limited range of data type.  Fix by
     copying s.st_uid and s.st_gid into int variables.  */
#ifdef WINDOWSNT
  /* Windows uses signed short for the uid and gid in the stat structure,
     but we use an int for getuid (limited to the range 0-60000).
     So users with uid > 32767 need their uid patched back here.  */ 
  uid = (unsigned short) s.st_uid;
  gid = (unsigned short) s.st_gid;
#else
  uid = s.st_uid;
  gid = s.st_gid;
#endif
  if (NILP (id_format) || EQ (id_format, Qinteger))
    {
      values[2] = make_fixnum_or_float (uid);
      values[3] = make_fixnum_or_float (gid);
    }
  else
    {
      BLOCK_INPUT;
      pw = (struct passwd *) getpwuid (uid);
      values[2] = (pw ? build_string (pw->pw_name)
                  : make_fixnum_or_float (uid));
      gr = (struct group *) getgrgid (gid);
      values[3] = (gr ? build_string (gr->gr_name)
                  : make_fixnum_or_float (gid));
      UNBLOCK_INPUT;
    }
  values[4] = make_time (s.st_atime);
  values[5] = make_time (s.st_mtime);
  values[6] = make_time (s.st_ctime);

#if defined (BSD4_2) || defined (BSD4_3) /* file gid will be dir gid */
  dirname = Ffile_name_directory (filename);
  if (! NILP (dirname))
    encoded = ENCODE_FILE (dirname);
  if (! NILP (dirname) && stat (SDATA (encoded), &sdir) == 0)
    values[9] = (sdir.st_gid != gid) ? Qt : Qnil;
  else					/* if we can't tell, assume worst */
    values[9] = Qt;
#else					/* file gid will be egid */
  values[9] = (gid != getegid ()) ? Qt : Qnil;
#endif	/* BSD4_2 (or BSD4_3) */
  /* Shut up GCC warnings in FIXNUM_OVERFLOW_P below.  */
  if (sizeof (s.st_ino) > sizeof (ino))
    ino = (EMACS_INT)(s.st_ino & 0xffffffff);
  else

94371:436ee104782b

  struct stat sdir;
#endif
  char modes[10];
  Lisp_Object handler;
  struct gcpro gcpro1;
  EMACS_INT ino;

  filename = Fexpand_file_name (filename, Qnil);

  /* If the file name has special constructs in it,
     call the corresponding file handler.  */

    case S_IFLNK:
      values[0] = Ffile_symlink_p (filename); break;
#endif
    }
  values[1] = make_number (s.st_nlink);
  if (NILP (id_format) || EQ (id_format, Qinteger))
    {
      values[2] = make_fixnum_or_float (s.st_uid);
      values[3] = make_fixnum_or_float (s.st_gid);
    }
  else
    {
      BLOCK_INPUT;
      pw = (struct passwd *) getpwuid (s.st_uid);
      values[2] = (pw ? build_string (pw->pw_name)
                  : make_fixnum_or_float (s.st_uid));
      gr = (struct group *) getgrgid (s.st_gid);
      values[3] = (gr ? build_string (gr->gr_name)
                  : make_fixnum_or_float (s.st_gid));
      UNBLOCK_INPUT;
    }
  values[4] = make_time (s.st_atime);
  values[5] = make_time (s.st_mtime);
  values[6] = make_time (s.st_ctime);

#if defined (BSD4_2) || defined (BSD4_3) /* file gid will be dir gid */
  dirname = Ffile_name_directory (filename);
  if (! NILP (dirname))
    encoded = ENCODE_FILE (dirname);
  if (! NILP (dirname) && stat (SDATA (encoded), &sdir) == 0)
    values[9] = (sdir.st_gid != s.st_gid) ? Qt : Qnil;
  else					/* if we can't tell, assume worst */
    values[9] = Qt;
#else					/* file gid will be egid */
  values[9] = (s.st_gid != getegid ()) ? Qt : Qnil;
#endif	/* BSD4_2 (or BSD4_3) */
  /* Shut up GCC warnings in FIXNUM_OVERFLOW_P below.  */
  if (sizeof (s.st_ino) > sizeof (ino))
    ino = (EMACS_INT)(s.st_ino & 0xffffffff);
  else