U/perl/d_fpclassify.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 2000 Jarkko Hietaniemi
   4 ?RCS:
   5 ?RCS: You may distribute under the terms of either the GNU General Public
   6 ?RCS: License or the Artistic License, as specified in the README file.
   7 ?RCS:
   8 ?MAKE:d_fpclassify: Inlibc
   9 ?MAKE:  -pick add $@ %<
  10 ?S:d_fpclassify:
  11 ?S:     This variable conditionally defines the HAS_FPCLASSIFY symbol, which
  12 ?S:     indicates to the C program that the fpclassify() routine is available.
  13 ?S:.
  14 ?C:HAS_FPCLASSIFY:
  15 ?C:     This symbol, if defined, indicates that the fpclassify routine is
  16 ?C:     available to classify doubles.  Available for example in HP-UX.
  17 ?C:     The returned values are defined in <math.h> and are
  18 ?C:
  19 ?C:           FP_NORMAL     Normalized
  20 ?C:           FP_ZERO       Zero
  21 ?C:           FP_INFINITE   Infinity
  22 ?C:           FP_SUBNORMAL  Denormalized
  23 ?C:           FP_NAN        NaN
  24 ?C:
  25 ?C:.
  26 ?H:#$d_fpclassify HAS_FPCLASSIFY                /**/
  27 ?H:.
  28 ?LINT:set d_fpclassify
  29 : see if fpclassify exists
  30 set fpclassify d_fpclassify
  31 eval $inlibc
  32