This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix .gitignore: only ignore 'perl' in root of repo, not U/perl subdir
[metaconfig.git] / U / perl / d_isnormal.U
CommitLineData
63a4f1f4
MBT
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
18echo "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
24int main() { return isnormal(0.0); }
25EOCP
26set try
27if eval $compile; then
28 val="$define"
29 echo "You have isnormal."
30else
31 val="$undef"
32 echo "You do not have isnormal."
33fi
34$rm_try
35set d_isnormal
36eval $setvar
37