?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:ivdformat uvuformat uvoformat uvxformat uvXformat \
- nvEformat nvFformat nvGformat \
+?MAKE:ivdformat uvuformat uvoformat uvxformat uvXUformat \
+ nvEUformat nvFUformat nvGUformat \
nveformat nvfformat nvgformat: \
ivsize longsize intsize shortsize \
- sPRId64 sPRIu64 sPRIo64 sPRIx64 sPRIX64 \
+ sPRId64 sPRIu64 sPRIo64 sPRIx64 sPRIXU64 \
uselongdouble d_longdbl d_PRIgldbl \
- sPRIEldbl sPRIFldbl sPRIGldbl sPRIeldbl sPRIfldbl sPRIgldbl \
+ sPRIEUldbl sPRIFUldbl sPRIGUldbl sPRIeldbl sPRIfldbl sPRIgldbl \
test echo
?MAKE: -pick add $@ %<
?S:ivdformat:
?S: This variable contains the format string used for printing
-?S: a Perl IV as a signed decimal integer.
+?S: a Perl IV as a signed decimal integer.
?S:.
?S:uvuformat:
?S: This variable contains the format string used for printing
-?S: a Perl UV as an unsigned decimal integer.
+?S: a Perl UV as an unsigned decimal integer.
?S:.
?S:uvoformat:
?S: This variable contains the format string used for printing
-?S: a Perl UV as an unsigned octal integer.
+?S: a Perl UV as an unsigned octal integer.
?S:.
?S:uvxformat:
?S: This variable contains the format string used for printing
?S: a Perl UV as an unsigned hexadecimal integer in lowercase abcdef.
?S:.
-?S:uvXformat:
+?S:uvXUformat:
?S: This variable contains the format string used for printing
?S: a Perl UV as an unsigned hexadecimal integer in uppercase ABCDEF.
?S:.
?S: a Perl NV using %e-ish floating point format.
?S:.
?S:nvfformat:
-?S: This variable confains the format string used for printing
+?S: This variable contains the format string used for printing
?S: a Perl NV using %f-ish floating point format.
?S:.
?S:nvgformat:
?S: This variable contains the format string used for printing
?S: a Perl NV using %g-ish floating point format.
?S:.
-?S:nvEformat:
+?S:nvEUformat:
?S: This variable contains the format string used for printing
?S: a Perl NV using %E-ish floating point format.
?S:.
-?S:nvFformat:
-?S: This variable confains the format string used for printing
+?S:nvFUformat:
+?S: This variable contains the format string used for printing
?S: a Perl NV using %F-ish floating point format.
?S:.
-?S:nvGformat:
+?S:nvGUformat:
?S: This variable contains the format string used for printing
?S: a Perl NV using %G-ish floating point format.
?S:.
?H:#define UVuf $uvuformat /**/
?H:#define UVof $uvoformat /**/
?H:#define UVxf $uvxformat /**/
-?H:#define UVXf $uvXformat /**/
+?H:#define UVXf $uvXUformat /**/
?H:#define NVef $nveformat /**/
?H:#define NVff $nvfformat /**/
?H:#define NVgf $nvgformat /**/
-?H:#define NVEf $nvEformat /**/
-?H:#define NVFf $nvFformat /**/
-?H:#define NVGf $nvGformat /**/
+?H:#define NVEf $nvEUformat /**/
+?H:#define NVFf $nvFUformat /**/
+?H:#define NVGf $nvGUformat /**/
?H:.
-
+: Check format strings for internal types
echo " "
$echo "Checking the format strings to be used for Perl's internal types..." >&4
uvuformat="$sPRIu64"
uvoformat="$sPRIo64"
uvxformat="$sPRIx64"
- uvXformat="$sPRIX64"
+ uvXUformat="$sPRIXU64"
else
if $test X"$ivsize" = X"$longsize"; then
ivdformat='"ld"'
uvuformat='"lu"'
uvoformat='"lo"'
uvxformat='"lx"'
- uvXformat='"lX"'
+ uvXUformat='"lX"'
else
if $test X"$ivsize" = X"$intsize"; then
ivdformat='"d"'
uvuformat='"u"'
uvoformat='"o"'
uvxformat='"x"'
- uvXformat='"X"'
+ uvXUformat='"X"'
else
: far out
if $test X"$ivsize" = X"$shortsize"; then
uvuformat='"hu"'
uvoformat='"ho"'
uvxformat='"hx"'
- uvXformat='"hX"'
+ uvXUformat='"hX"'
fi
fi
fi
nveformat="$sPRIeldbl"
nvfformat="$sPRIfldbl"
nvgformat="$sPRIgldbl"
- nvEformat="$sPRIEldbl"
- nvFformat="$sPRIFldbl"
- nvGformat="$sPRIGldbl"
+ nvEUformat="$sPRIEUldbl"
+ nvFUformat="$sPRIFUldbl"
+ nvGUformat="$sPRIGUldbl"
else
nveformat='"e"'
nvfformat='"f"'
nvgformat='"g"'
- nvEformat='"E"'
- nvFformat='"F"'
- nvGformat='"G"'
+ nvEUformat='"E"'
+ nvFUformat='"F"'
+ nvGUformat='"G"'
fi
case "$ivdformat" in
-'') echo "$0: Fatal: failed to find format strings, cannot continue." >& 4
+'') echo "$0: Fatal: failed to find format strings, cannot continue." >&4
exit 1
;;
esac