comparison src/dired.c @ 93689:40434d3c3093

(Ffile_attributes): Support inode numbers wider than 32 bits. Remove ugly WINDOWSNT-specific kludge introduced on 2008-03-14 to force inode be positive.

93688:3961ad1ac8f2

 7. Size in bytes.
  This is a floating point number if the size is too large for an integer.
 8. File modes, as a string of ten letters or dashes as in ls -l.
 9. t if file's gid would change if file were deleted and recreated.
10. inode number.  If inode number is larger than the Emacs integer,
  this is a cons cell containing two integers: first the high part,
  then the low 16 bits.
11. Device number.  If it is larger than the Emacs integer, this is
  a cons cell, similar to the inode number.  */)
     (filename, id_format)
     Lisp_Object filename, id_format;
{

    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.  */
#ifdef WINDOWSNT
  {
    /* The bit-shuffling we do in w32.c:stat can turn on the MSB, which
       will produce negative inode numbers.  People don't like that, so
       force a positive inode instead.  */
    unsigned short tem = s.st_ino;
    ino = tem;
  }
#else
  ino = s.st_ino;
#endif
  if (FIXNUM_OVERFLOW_P (ino))
    /* To allow inode numbers larger than VALBITS, separate the bottom
       16 bits.  */
    values[10] = Fcons (make_number (ino >> 16),
			make_number (ino & 0xffff));
  else
    /* But keep the most common cases as integers.  */
    values[10] = make_number (ino);

  /* Likewise for device.  */
  if (FIXNUM_OVERFLOW_P (s.st_dev))
    values[11] = Fcons (make_number (s.st_dev >> 16),
			make_number (s.st_dev & 0xffff));

93689:40434d3c3093

 7. Size in bytes.
  This is a floating point number if the size is too large for an integer.
 8. File modes, as a string of ten letters or dashes as in ls -l.
 9. t if file's gid would change if file were deleted and recreated.
10. inode number.  If inode number is larger than the Emacs integer,
  but still fits into a 32-bit number, this is a cons cell containing two
  integers: first the high part, then the low 16 bits.  If the inode number
  is wider than 32 bits, this is a cons cell containing three integers:
  first the high 24 bits, then middle 24 bits, and finally the low 16 bits.
11. Device number.  If it is larger than the Emacs integer, this is
  a cons cell, similar to the inode number.  */)
     (filename, id_format)
     Lisp_Object filename, id_format;
{

    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
    ino = s.st_ino;
  if (!FIXNUM_OVERFLOW_P (ino)
      && (sizeof (s.st_ino) <= sizeof (ino) || (s.st_ino & ~INTMASK) == 0))
    /* Keep the most common cases as integers.  */
    values[10] = make_number (ino);
  else if (sizeof (s.st_ino) <= sizeof (ino)
	   || ((s.st_ino >> 16) & ~INTMASK) == 0)
    /* To allow inode numbers larger than VALBITS, separate the bottom
       16 bits.  */
    values[10] = Fcons (make_number ((EMACS_INT)(s.st_ino >> 16)),
			make_number ((EMACS_INT)(s.st_ino & 0xffff)));
  else
    {
      /* To allow inode numbers beyond 32 bits, separate into 2 24-bit
	 high parts and a 16-bit bottom part.  */
      EMACS_INT high_ino = s.st_ino >> 32;
      EMACS_INT low_ino  = s.st_ino & 0xffffffff;

      values[10] = Fcons (make_number (high_ino >> 8),
			  Fcons (make_number (((high_ino & 0xff) << 16)
					      + (low_ino >> 16)),
				 make_number (low_ino & 0xffff)));
    }

  /* Likewise for device.  */
  if (FIXNUM_OVERFLOW_P (s.st_dev))
    values[11] = Fcons (make_number (s.st_dev >> 16),
			make_number (s.st_dev & 0xffff));