Probe for timegm

[metaconfig.git] / U / perl / longdblfio.U

diff --git a/U/perl/longdblfio.U b/U/perl/longdblfio.U
index 1d3cd39..645fff3 100644 (file)
--- a/U/perl/longdblfio.U
+++ b/U/perl/longdblfio.U
@@ -5,11 +5,12 @@
 ?RCS: You may distribute under the terms of either the GNU General Public
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
-?MAKE:d_PRIfldbl sPRIfldbl d_PRIgldbl d_PRIFldbl sPRIGldbl d_PRIEldbl \
-       sPRIgldbl d_PRIeldbl sPRIeldbl sPRIFldbl d_PRIGldbl sPRIEldbl \
+?MAKE:d_PRIfldbl sPRIfldbl d_PRIgldbl d_PRIFUldbl sPRIGUldbl d_PRIEUldbl \
+       sPRIgldbl d_PRIeldbl sPRIeldbl sPRIFUldbl d_PRIGUldbl sPRIEUldbl \
        d_SCNfldbl \
        sSCNfldbl: \
-       d_longdbl longdblsize doublesize test cat rm Setvar Compile exe_ext
+       d_longdbl longdblsize doublesize test cat rm_try \
+       Setvar Compile run
 ?MAKE: -pick add $@ %<
 ?S:d_PRIfldbl:
 ?S:    This variable conditionally defines the PERL_PRIfldbl symbol, which
@@ -23,17 +24,23 @@
 ?S:    This variable conditionally defines the PERL_PRIfldbl symbol, which
 ?S:    indiciates that stdio has a symbol to print long doubles.
 ?S:.
-?S:d_PRIFldbl:
+?S:d_PRIFUldbl:
 ?S:    This variable conditionally defines the PERL_PRIfldbl symbol, which
 ?S:    indiciates that stdio has a symbol to print long doubles.
+?S:    The 'U' in the name is to separate this from d_PRIfldbl so that even
+?S:    case-blind systems can see the difference.
 ?S:.
-?S:d_PRIGldbl:
+?S:d_PRIGUldbl:
 ?S:    This variable conditionally defines the PERL_PRIfldbl symbol, which
 ?S:    indiciates that stdio has a symbol to print long doubles.
+?S:    The 'U' in the name is to separate this from d_PRIgldbl so that even
+?S:    case-blind systems can see the difference.
 ?S:.
-?S:d_PRIEldbl:
+?S:d_PRIEUldbl:
 ?S:    This variable conditionally defines the PERL_PRIfldbl symbol, which
 ?S:    indiciates that stdio has a symbol to print long doubles.
+?S:    The 'U' in the name is to separate this from d_PRIeldbl so that even
+?S:    case-blind systems can see the difference.
 ?S:.
 ?S:d_SCNfldbl:
 ?S:    This variable conditionally defines the PERL_PRIfldbl symbol, which
@@ -51,17 +58,23 @@
 ?S:    This variable, if defined, contains the string used by stdio to
 ?S:    format long doubles (format 'e') for output.
 ?S:.
-?S:sPRIFldbl:
+?S:sPRIFUldbl:
 ?S:    This variable, if defined, contains the string used by stdio to
 ?S:    format long doubles (format 'F') for output.
+?S:    The 'U' in the name is to separate this from sPRIfldbl so that even
+?S:    case-blind systems can see the difference.
 ?S:.
-?S:sPRIGldbl:
+?S:sPRIGUldbl:
 ?S:    This variable, if defined, contains the string used by stdio to
 ?S:    format long doubles (format 'G') for output.
+?S:    The 'U' in the name is to separate this from sPRIgldbl so that even
+?S:    case-blind systems can see the difference.
 ?S:.
-?S:sPRIEldbl:
+?S:sPRIEUldbl:
 ?S:    This variable, if defined, contains the string used by stdio to
 ?S:    format long doubles (format 'E') for output.
+?S:    The 'U' in the name is to separate this from sPRIeldbl so that even
+?S:    case-blind systems can see the difference.
 ?S:.
 ?S:sSCNfldbl:
 ?S:    This variable, if defined, contains the string used by stdio to
@@ -98,13 +111,14 @@
 ?H:#$d_PRIfldbl PERL_PRIfldbl  $sPRIfldbl      /**/
 ?H:#$d_PRIgldbl PERL_PRIgldbl  $sPRIgldbl      /**/
 ?H:#$d_PRIeldbl PERL_PRIeldbl  $sPRIeldbl      /**/
-?H:#$d_PRIFldbl PERL_PRIFldbl  $sPRIFldbl      /**/
-?H:#$d_PRIGldbl PERL_PRIGldbl  $sPRIGldbl      /**/
-?H:#$d_PRIEldbl PERL_PRIEldbl  $sPRIEldbl      /**/
+?H:#$d_PRIFUldbl PERL_PRIFldbl $sPRIFUldbl     /**/
+?H:#$d_PRIGUldbl PERL_PRIGldbl $sPRIGUldbl     /**/
+?H:#$d_PRIEUldbl PERL_PRIEldbl $sPRIEUldbl     /**/
 ?H:#$d_SCNfldbl PERL_SCNfldbl  $sSCNfldbl      /**/
 ?H:.
-?F:!try
 ?T:yyy
+?F:!try
+: Check print/scan long double stuff
 echo " "
 
 if $test X"$d_longdbl" = X"$define"; then
@@ -122,11 +136,11 @@ int main() {
 EOCP
        set try
        if eval $compile; then
-               yyy=`./try$exe_ext`
+               yyy=`$run ./try`
                case "$yyy" in
                123.456)
                        sPRIfldbl='"f"'; sPRIgldbl='"g"'; sPRIeldbl='"e"';
-                       sPRIFldbl='"F"'; sPRIGldbl='"G"'; sPRIEldbl='"E"';
+                       sPRIFUldbl='"F"'; sPRIGUldbl='"G"'; sPRIEUldbl='"E"';
                        echo "We will use %f."
                        ;;
                esac
@@ -139,17 +153,17 @@ if $test X"$sPRIfldbl" = X; then
 #include <stdio.h>
 int main() {
   long double d = 123.456;
-  printf("%.3llf\n", d);
+  printf("%.3Lf\n", d);
 }
 EOCP
        set try
        if eval $compile; then
-               yyy=`./try$exe_ext`
+               yyy=`$run ./try`
                case "$yyy" in
                123.456)
-                       sPRIfldbl='"llf"'; sPRIgldbl='"llg"'; sPRIeldbl='"lle"';
-                       sPRIFldbl='"llF"'; sPRIGldbl='"llG"'; sPRIEldbl='"llE"';
-                       echo "We will use %llf."
+                       sPRIfldbl='"Lf"'; sPRIgldbl='"Lg"'; sPRIeldbl='"Le"';
+                       sPRIFUldbl='"LF"'; sPRIGUldbl='"LG"'; sPRIEUldbl='"LE"';
+                       echo "We will use %Lf."
                        ;;
                esac
        fi
@@ -161,17 +175,17 @@ if $test X"$sPRIfldbl" = X; then
 #include <stdio.h>
 int main() {
   long double d = 123.456;
-  printf("%.3Lf\n", d);
+  printf("%.3llf\n", d);
 }
 EOCP
        set try
        if eval $compile; then
-               yyy=`./try$exe_ext`
+               yyy=`$run ./try`
                case "$yyy" in
                123.456)
-                       sPRIfldbl='"Lf"'; sPRIgldbl='"Lg"'; sPRIeldbl='"Le"';
-                       sPRIFldbl='"LF"'; sPRIGldbl='"LG"'; sPRIEldbl='"LE"';
-                       echo "We will use %Lf."
+                       sPRIfldbl='"llf"'; sPRIgldbl='"llg"'; sPRIeldbl='"lle"';
+                       sPRIFUldbl='"llF"'; sPRIGUldbl='"llG"'; sPRIEUldbl='"llE"';
+                       echo "We will use %llf."
                        ;;
                esac
        fi
@@ -188,11 +202,11 @@ int main() {
 EOCP
        set try
        if eval $compile; then
-               yyy=`./try$exe_ext`
+               yyy=`$run ./try`
                case "$yyy" in
                123.456)
                        sPRIfldbl='"lf"'; sPRIgldbl='"lg"'; sPRIeldbl='"le"';
-                       sPRIFldbl='"lF"'; sPRIGldbl='"lG"'; sPRIEldbl='"lE"';
+                       sPRIFUldbl='"lF"'; sPRIGUldbl='"lG"'; sPRIEUldbl='"lE"';
                        echo "We will use %lf."
                        ;;
                esac
@@ -205,17 +219,17 @@ else
        sSCNfldbl=$sPRIfldbl    # expect consistency
 fi
 
-$rm -f try try.*
+$rm_try
 
 fi # d_longdbl
 
 case "$sPRIfldbl" in
-'')    d_PRIfldbl="$undef"; d_PRIgldbl="$undef"; d_PRIeldbl="$undef"; 
-       d_PRIFldbl="$undef"; d_PRIGldbl="$undef"; d_PRIEldbl="$undef"; 
+'')    d_PRIfldbl="$undef"; d_PRIgldbl="$undef"; d_PRIeldbl="$undef";
+       d_PRIFUldbl="$undef"; d_PRIGUldbl="$undef"; d_PRIEUldbl="$undef";
        d_SCNfldbl="$undef";
        ;;
-*)     d_PRIfldbl="$define"; d_PRIgldbl="$define"; d_PRIeldbl="$define"; 
-       d_PRIFldbl="$define"; d_PRIGldbl="$define"; d_PRIEldbl="$define"; 
+*)     d_PRIfldbl="$define"; d_PRIgldbl="$define"; d_PRIeldbl="$define";
+       d_PRIFUldbl="$define"; d_PRIGUldbl="$define"; d_PRIEUldbl="$define";
        d_SCNfldbl="$define";
        ;;
 esac