src/magic.h

   1 /* PSPP - computes sample statistics.
   2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
   3    Written by Ben Pfaff <blp@gnu.org>.
   4
   5    This program is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU General Public License as
   7    published by the Free Software Foundation; either version 2 of the
   8    License, or (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful, but
  11    WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  18    02111-1307, USA. */
  19
  20 #if !magic_h
  21 #define magic_h 1
  22
  23 /* Magic numbers. */
  24
  25 #include <float.h>
  26 #include <limits.h>
  27
  28 /* Check that the floating-point representation is one that we
  29    understand. */
  30 #ifndef FPREP_IEEE754
  31 #error Only IEEE-754 floating point currently supported.
  32 #endif
  33
  34 /* Allows us to specify individual bytes of a double. */
  35 union cvt_dbl {
  36   unsigned char cvt_dbl_i[8];
  37   double cvt_dbl_d;
  38 };
  39
  40
  41 /* "Second-lowest value" bytes for an IEEE-754 double. */
  42 #if WORDS_BIGENDIAN
  43 #define SECOND_LOWEST_BYTES {0xff,0xef,0xff,0xff, 0xff,0xff,0xff,0xfe}
  44 #else
  45 #define SECOND_LOWEST_BYTES {0xfe,0xff,0xff,0xff, 0xff,0xff,0xef,0xff}
  46 #endif
  47
  48 /* "Second-lowest value" for a double. */
  49 #if __GNUC__
  50 #define second_lowest_value                                               \
  51         (__extension__ ((union cvt_dbl) {SECOND_LOWEST_BYTES}).cvt_dbl_d)
  52 #else /* not GNU C */
  53 extern union cvt_dbl second_lowest_value_union;
  54 #define second_lowest_value (second_lowest_value_union.cvt_dbl_d)
  55 #endif
  56
  57 /* Used when we want a "missing value". */
  58 #define NOT_DOUBLE (-DBL_MAX)
  59 #define NOT_LONG LONG_MIN
  60 #define NOT_INT INT_MIN
  61
  62 #endif /* magic.h */