U/perl/d_ilogbl.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 2003 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_ilogbl: Inlibc
   9 ?MAKE:  -pick add $@ %<
  10 ?S:d_ilogbl:
  11 ?S:     This variable conditionally defines the HAS_ILOGBL symbol, which
  12 ?S:     indicates to the C program that the ilogbl() routine is available
  13 ?S:     for extracting the exponent of long double x as a signed integer.
  14 ?S:     If scalbnl is also present we can emulate frexpl.
  15 ?S:.
  16 ?C:HAS_ILOGBL:
  17 ?C:     This symbol, if defined, indicates that the ilogbl routine is
  18 ?C:     available.  If scalbnl is also present we can emulate frexpl.
  19 ?C:.
  20 ?H:#$d_ilogbl HAS_ILOGBL                /**/
  21 ?H:.
  22 ?LINT:set d_ilogbl
  23 : see if ilogbl exists
  24 set ilogbl d_ilogbl
  25 eval $inlibc
  26