comparison src/floatfns.c @ 2205:c021f53fe7e5

* floatfns.c (logb): Add extern declaration for this. * floatfns.c (Flogb): Under SYSV, implement this using frexp.

2204:41258d6c3eee

Lisp_Object Qarith_error;

#ifdef LISP_FLOAT_TYPE

#include <math.h>

#if defined(DOMAIN) && defined(SING) && defined(OVERFLOW)
    /* If those are defined, then this is probably a `matherr' machine. */
# ifndef HAVE_MATHERR
#  define HAVE_MATHERR

  "Returns the integer not greater than the base 2 log of the magnitude of ARG.\n\
This is the same as the exponent of a float.")
     (arg)
     Lisp_Object arg;
{
#ifdef USG
  error ("SYSV apparently doesn't have a logb function; what to do?");
#else
  Lisp_Object val;
  int value;
  double f = extract_float (arg);

  IN_FLOAT (value = logb (f), "logb", arg);
  XSET (val, Lisp_Int, value);
  return val;
#endif
}

/* the rounding functions  */

DEFUN ("ceiling", Fceiling, Sceiling, 1, 1, 0,

2205:c021f53fe7e5

Lisp_Object Qarith_error;

#ifdef LISP_FLOAT_TYPE

#include <math.h>

/* These declarations are omitted on some systems, like Ultrix.  */
extern double logb ();

#if defined(DOMAIN) && defined(SING) && defined(OVERFLOW)
    /* If those are defined, then this is probably a `matherr' machine. */
# ifndef HAVE_MATHERR
#  define HAVE_MATHERR

  "Returns the integer not greater than the base 2 log of the magnitude of ARG.\n\
This is the same as the exponent of a float.")
     (arg)
     Lisp_Object arg;
{
  Lisp_Object val;
  int value;
  double f = extract_float (arg);

#ifdef USG
  {
    int exp;  

    IN_FLOAT (frexp (f, &exp), "logb", arg);
    XSET (val, Lisp_Int, exp-1);
  }
#else
  IN_FLOAT (value = logb (f), "logb", arg);
  XSET (val, Lisp_Int, value);
#endif

  return val;
}

/* the rounding functions  */

DEFUN ("ceiling", Fceiling, Sceiling, 1, 1, 0,