U/perl/d_fp_class_l.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_fp_class_l: Inlibc
   9 ?MAKE:  -pick add $@ %<
  10 ?S:d_fp_class_l:
  11 ?S:     This variable conditionally defines the HAS_FP_CLASS_L symbol, which
  12 ?S:     indicates to the C program that the fp_class_l() routine is available.
  13 ?S:.
  14 ?C:HAS_FP_CLASS_L:
  15 ?C:     This symbol, if defined, indicates that the fp_class_l routine is
  16 ?C:     available to classify long doubles.  Available for example in IRIX.
  17 ?C:     The returned values are defined in <fp_class.h> and are:
  18 ?C:
  19 ?C:     FP_SNAN           Signaling NaN (Not-a-Number)
  20 ?C:     FP_QNAN           Quiet NaN (Not-a-Number)
  21 ?C:     FP_POS_INF        +infinity
  22 ?C:     FP_NEG_INF        -infinity
  23 ?C:     FP_POS_NORM       Positive normalized
  24 ?C:     FP_NEG_NORM       Negative normalized
  25 ?C:     FP_POS_DENORM     Positive denormalized
  26 ?C:     FP_NEG_DENORM     Negative denormalized
  27 ?C:     FP_POS_ZERO       +0.0 (positive zero)
  28 ?C:     FP_NEG_ZERO       -0.0 (negative zero)
  29 ?C:.
  30 ?H:#$d_fp_class_l HAS_FP_CLASS_L                /**/
  31 ?H:.
  32 ?LINT:set d_fp_class_l
  33 : see if fp_class_l exists
  34 set fp_class_l d_fp_class_l
  35 eval $inlibc
  36