U/perl/d_nearbyint.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_nearbyint: Inlibc
   5 ?MAKE:  -pick add $@ %<
   6 ?S:d_nearbyint:
   7 ?S:     This variable conditionally defines HAS_NEARBYINT if nearbyint()
   8 ?S:     is available to return the integral value closest to (according to
   9 ?S:     the current rounding mode) to x.
  10 ?S:.
  11 ?C:HAS_NEARBYINT:
  12 ?C:     This symbol, if defined, indicates that the nearbyint routine is
  13 ?C:     available to return the integral value closest to (according to
  14 ?C:     the current rounding mode) to x.
  15 ?C:.
  16 ?H:#$d_nearbyint HAS_NEARBYINT          /**/
  17 ?H:.
  18 ?LINT:set d_nearbyint
  19 : see if nearbyint exists
  20 set nearbyint d_nearbyint
  21 eval $inlibc
  22