This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
U/modified/d_dbl_dig.U: assume C89 <limits.h>
authorAaron Crane <arc@cpan.org>
Fri, 13 Oct 2017 10:33:53 +0000 (12:33 +0200)
committerAaron Crane <arc@cpan.org>
Sat, 21 Oct 2017 15:45:08 +0000 (16:45 +0100)
This involves creating an initial modified version of this unit.

U/modified/d_dbl_dig.U [new file with mode: 0644]

diff --git a/U/modified/d_dbl_dig.U b/U/modified/d_dbl_dig.U
new file mode 100644 (file)
index 0000000..445d04d
--- /dev/null
@@ -0,0 +1,58 @@
+?RCS: $Id: d_dbl_dig.U 1 2006-08-24 12:32:52Z rmanfredi $
+?RCS:
+?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS: as specified in the README file that comes with the distribution.
+?RCS: You may reuse parts of this distribution only within the terms of
+?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: of the source tree for dist 4.0.
+?RCS:
+?RCS: Original Author: Andy Dougherty <doughera@lafcol.lafayette.edu>
+?RCS:
+?RCS: $Log: d_dbl_dig.U,v $
+?RCS: Revision 3.0.1.1  1994/08/29  16:07:28  ram
+?RCS: patch32: created by ADO
+?RCS:
+?MAKE:d_dbl_dig: Myread contains cat rm Setvar i_float \
+       cppstdin cppflags cppminus
+?MAKE: -pick add $@ %<
+?S:d_dbl_dig:
+?S:    This variable conditionally defines d_dbl_dig if this system's
+?S:    header files provide DBL_DIG, which is the number of significant
+?S:    digits in a double precision number.
+?S:.
+?C:HAS_DBL_DIG:
+?C:    This symbol, if defined, indicates that this system's <float.h>
+?C:    or <limits.h> defines the symbol DBL_DIG, which is the number
+?C:    of significant digits in a double precision number.  If this
+?C:    symbol is not defined, a guess of 15 is usually pretty good.
+?C:.
+?H:#$d_dbl_dig HAS_DBL_DIG     /**/
+?H:.
+?F:!dbl_dig.c
+?LINT:set d_dbl_dig
+: See if number of significant digits in a double precision number is known
+echo " "
+$cat >dbl_dig.c <<EOM
+#$i_float I_FLOAT
+#include <limits.h>
+#ifdef I_FLOAT
+#include <float.h>
+#endif
+#ifdef DBL_DIG
+printf("Contains DBL_DIG");
+#endif
+EOM
+$cppstdin $cppflags $cppminus < dbl_dig.c >dbl_dig.E 2>/dev/null
+if $contains 'DBL_DIG' dbl_dig.E >/dev/null 2>&1; then
+       echo "DBL_DIG found." >&4
+       val="$define"
+else
+       echo "DBL_DIG NOT found." >&4
+       val="$undef"
+fi
+$rm -f dbl_dig.?
+set d_dbl_dig
+eval $setvar
+