comparison src/editfns.c @ 102662:aa16e7d76321

(Fuser_uid, Fuser_real_uid): If UID as EMACS_INT is negative, produce a float value.

102661:a2aaf6402fc7

  return Vuser_real_login_name;
}

DEFUN ("user-uid", Fuser_uid, Suser_uid, 0, 0, 0,
       doc: /* Return the effective uid of Emacs.
Value is an integer or float, depending on the value.  */)
     ()
{
  /* Assignment to EMACS_INT stops GCC whining about limited range of
     data type.  */
  EMACS_INT euid = geteuid ();
  return make_fixnum_or_float (euid);
}

DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0,
       doc: /* Return the real uid of Emacs.
Value is an integer or float, depending on the value.  */)
     ()
{
  /* Assignment to EMACS_INT stops GCC whining about limited range of
     data type.  */
  EMACS_INT uid = getuid ();
  return make_fixnum_or_float (uid);
}

DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0,
       doc: /* Return the full name of the user logged in, as a string.

102662:aa16e7d76321

  return Vuser_real_login_name;
}

DEFUN ("user-uid", Fuser_uid, Suser_uid, 0, 0, 0,
       doc: /* Return the effective uid of Emacs.
Value is an integer or a float, depending on the value.  */)
     ()
{
  /* Assignment to EMACS_INT stops GCC whining about limited range of
     data type.  */
  EMACS_INT euid = geteuid ();

  /* Make sure we don't produce a negative UID due to signed integer
     overflow.  */
  if (euid < 0)
    return make_float ((double)geteuid ());
  return make_fixnum_or_float (euid);
}

DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0,
       doc: /* Return the real uid of Emacs.
Value is an integer or a float, depending on the value.  */)
     ()
{
  /* Assignment to EMACS_INT stops GCC whining about limited range of
     data type.  */
  EMACS_INT uid = getuid ();

  /* Make sure we don't produce a negative UID due to signed integer
     overflow.  */
  if (uid < 0)
    return make_float ((double)getuid ());
  return make_fixnum_or_float (uid);
}

DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0,
       doc: /* Return the full name of the user logged in, as a string.