U/perl/d_isnormal.U

   1 ?RCS: You may distribute under the terms of either the GNU General Public
   2 ?RCS: License or the Artistic License, as specified in the README file.
   3 ?RCS:
   4 ?MAKE:d_isnormal: cat i_math Compile Setvar rm_try
   5 ?MAKE:  -pick add $@ %<
   6 ?S:d_isnormal:
   7 ?S:     This variable conditionally defines the HAS_ISNORMAL symbol, which
   8 ?S:     indicates to the C program that the isnormal() routine is available.
   9 ?S:.
  10 ?C:HAS_ISNORMAL:
  11 ?C:     This symbol, if defined, indicates that the isnormal routine is
  12 ?C:     available to check whether a double is normal (non-zero normalized).
  13 ?C:.
  14 ?H:#$d_isnormal HAS_ISNORMAL            /**/
  15 ?H:.
  16 ?LINT:set d_isnormal
  17 : check for isnormal
  18 echo "Checking to see if you have isnormal..." >&4
  19 $cat >try.c <<EOCP
  20 #$i_math I_MATH
  21 #ifdef I_MATH
  22 #include <math.h>
  23 #endif
  24 int main() { return isnormal(0.0); }
  25 EOCP
  26 set try
  27 if eval $compile; then
  28         val="$define"
  29         echo "You have isnormal."
  30 else
  31         val="$undef"
  32         echo "You do not have isnormal."
  33 fi
  34 $rm_try
  35 set d_isnormal
  36 eval $setvar
  37