# $Id: Head.U 6 2006-08-25 22:21:46Z rmanfredi $
#
-# Generated on Wed Jan 9 22:02:14 CET 2008 [metaconfig 3.0 PL70]
+# Generated on Wed Mar 25 17:28:24 CET 2009 [metaconfig 3.5 PL0]
# (with additional metaconfig patches by perlbug@perl.org)
cat >c1$$ <<EOF
targetarch=''
to=''
usecrosscompile=''
+extern_C=''
mistrustnm=''
+usedevel=''
perllibs=''
dynamic_ext=''
extensions=''
d_eunice=''
d_xenix=''
eunicefix=''
-Mcc=''
ar=''
awk=''
bash=''
cpp=''
csh=''
date=''
-dtrace=''
echo=''
egrep=''
emacs=''
d_alarm=''
asctime_r_proto=''
d_asctime_r=''
+d_attribute_deprecated=''
d_attribute_format=''
d_attribute_malloc=''
d_attribute_nonnull=''
d_gettimeod=''
d_futimes=''
d_Gconvert=''
+d_getaddrinfo=''
d_getcwd=''
d_getespwnam=''
d_getfsstat=''
getlogin_r_proto=''
d_getmnt=''
d_getmntent=''
+d_getnameinfo=''
d_getnbyaddr=''
d_getnbyname=''
d_getnent=''
d_htonl=''
d_ilogbl=''
d_inetaton=''
+d_inetntop=''
+d_inetpton=''
d_int64_t=''
d_isascii=''
d_isfinite=''
d_telldirproto=''
d_time=''
timetype=''
+d_asctime64=''
+d_ctime64=''
+d_difftime64=''
+d_gmtime64=''
+d_localtime64=''
+d_mktime64=''
+d_timegm=''
clocktype=''
d_times=''
d_tmpnam_r=''
i_locale=''
i_machcthr=''
i_malloc=''
+i_mallocmalloc=''
i_math=''
i_memory=''
i_mntent=''
+d_gdbm_ndbm_h_uses_prototypes=''
+d_gdbmndbm_h_uses_prototypes=''
+d_ndbm=''
+d_ndbm_h_uses_prototypes=''
+i_gdbm_ndbm=''
+i_gdbmndbm=''
i_ndbm=''
i_netdb=''
i_neterrno=''
i_sysmount=''
i_sysndir=''
i_sysparam=''
+i_syspoll=''
i_sysresrc=''
i_syssecrt=''
i_sysselct=''
i8type=''
ivsize=''
ivtype=''
+nv_overflows_integers_at=''
nv_preserves_uv_bits=''
nvsize=''
nvtype=''
d_stdio_stream_array=''
stdio_stream_array=''
sysman=''
+sGMTIME_max=''
+sGMTIME_min=''
+sLOCALTIME_max=''
+sLOCALTIME_min=''
trnl=''
uidformat=''
uidsign=''
archname64=''
use64bitall=''
use64bitint=''
+dtrace=''
+usedtrace=''
usefaststdio=''
ccflags_uselargefiles=''
ldflags_uselargefiles=''
useithreads=''
usereentrant=''
usethreads=''
-usedtrace=''
incpath=''
mips_type=''
usrinc=''
yaccflags=''
CONFIG=''
+: Detect odd OSs
define='define'
undef='undef'
smallmach='pdp11 i8086 z8000 i80286 iAPX286'
_exe=".exe"
fi
+groupstype=''
i_whoami=''
: Trailing extension. Override this in a hint file, if needed.
: Extra object files, if any, needed on this platform.
archobjs=''
archname=''
-groupstype=''
libnames=''
: change the next line if compiling for Xenix/286 on Xenix/386
xlibpth='/usr/lib/386 /lib/386'
libswanted=''
: some systems want to use only the non-versioned libso:s
ignore_versioned_solibs=''
-siteman1dir=''
-siteman3dir=''
-sitescript=''
: set usethreads on the Configure command line to enable threads.
usereentrant='undef'
: full support for void wanted by default
echo "#!$xcat" >sharp
$eunicefix sharp
chmod +x sharp
- ./sharp > today
+ ./sharp > today 2>/dev/null
if test -s today; then
sharpbang='#!'
else
echo "#! $xcat" > sharp
$eunicefix sharp
chmod +x sharp
- ./sharp > today
+ ./sharp > today 2>/dev/null
if test -s today; then
sharpbang='#! '
else
esac
shift
;;
- -V) echo "$me generated by metaconfig 3.0 PL70." >&2
+ -V) echo "$me generated by metaconfig 3.5 PL0." >&2
exit 0;;
--) break;;
-*) echo "$me: unknown option $1" >&2; shift; error=true;;
touch posthint.sh
: set package name
-package=perl5
+package='perl5'
first=`echo $package | sed -e 's/^\(.\).*/\1/'`
last=`echo $package | sed -e 's/^.\(.*\)/\1/'`
case "`echo AbyZ | tr '[:lower:]' '[:upper:]' 2>/dev/null`" in
'') src=/
rsrc=/
;;
-/*) rsrc="$src";;
-*) rsrc="../$src";;
+/*) rsrc="$src";;
+*) rsrc="../$src";;
esac
if test -f $rsrc/Configure && \
- $contains "^package=$package$" $rsrc/Configure >/dev/null 2>&1
+ $contains "^package='$package'\$" $rsrc/Configure >/dev/null 2>&1
then
: found it, so we are ok.
else
echo " "
if test -f "$rsrc/MANIFEST"; then
echo "First let's make sure your kit is complete. Checking..." >&4
- awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" | (split -l 50 2>/dev/null || split -50)
+ awk '$1 !~ /PACK[A-Z]+/ {print $1}' "$rsrc/MANIFEST" | \
+ (split -l 50 2>/dev/null || split -50)
rm -f missing
tmppwd=`pwd`
for filelist in x??; do
- (cd "$rsrc"; ls `cat "$tmppwd/$filelist"` >/dev/null 2>>"$tmppwd/missing")
+ (cd "$rsrc"; ls `cat "$tmppwd/$filelist"` \
+ >/dev/null 2>>"$tmppwd/missing")
done
if test -s missing; then
cat missing >&4
: See if we are using a devel version and want that
xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
case "$usedevel" in
-$define|true|[yY]*) ;;
+$define|true|[yY]*)
+ usedevel="$define" ;;
*) case "$xversion" in
*[13579])
cat >&4 <<EOH
esac
;;
esac
+ usedevel="$undef"
;;
esac
case "$usedevel" in
exit 0
elif test "X$_exe" != X -a -f \$thisthing$_exe; then
echo \$thisthing
- exit 0
+ exit 0
elif test -f \$dir/\$thing.exe; then
if test -n "$DJGPP"; then
echo \$dir/\$thing.exe
elif test "$eunicefix" != ":"; then
: on Eunice apparently
echo \$dir/\$thing
- exit 0
fi
exit 0
fi
uniq
"
trylist="
-Mcc
ar
bison
byacc
esac
echo " "
-
+: Make symlinks util
case "$mksymlinks" in
$define|true|[yY]*)
case "$src" in
$startsh
: expand filename
case "\$1" in
- ~/*|~)
+ \~/*|\~)
echo \$1 | $sed "s|~|\${HOME-\$LOGDIR}|"
;;
- ~*)
+ \~*)
if $test -f /bin/csh; then
/bin/csh -f -c "glob \$1"
failed=\$?
prefix="$ans"
prefixexp="$ansexp"
+: allow them to override the AFS root
case "$afsroot" in
'') afsroot=/afs ;;
*) afsroot=$afsroot ;;
case "$afs" in
$define|true) afs=true ;;
$undef|false) afs=false ;;
-*) if test -d $afsroot; then
+*) if $test -d $afsroot; then
afs=true
else
afs=false
esac
EOSC
-: function used to set $1 to $val
+: function used to set '$1' to '$val'
setvar='var=$1; eval "was=\$$1"; td=$define; tu=$undef;
case "$val$was" in
$define$undef) . ./whoa; eval "$var=\$td";;
*) eval "$var=$val";;
esac'
+: Check is we will use socks
case "$usesocks" in
$define|true|[yY]*) dflt='y';;
*) dflt='n';;
$define|true|[yY]*) useperlio="$define";;
esac
+: Check if we want perlio
case "$useperlio" in
$define|true|[yY]*|'') dflt='y';;
*) dflt='n';;
rp='Use the PerlIO abstraction layer?'
. ./myread
case "$ans" in
-y|Y)
+y|Y)
val="$define"
;;
-*)
+*)
echo "Ok, doing things the stdio way."
val="$undef"
;;
esac
set useperlio
-eval $setvar
+eval $setvar
case "$usesocks" in
$define|true|[yY]*)
;;
esac
-
: get the patchlevel
echo " "
echo "Getting the current patchlevel..." >&4
version_patchlevel_string="version $patchlevel subversion $subversion"
case "$perl_patchlevel" in
0|'') ;;
-*) version_patchlevel_string="$version_patchlevel_string patch $perl_patchlevel" ;;
+*) perl_patchlevel=`echo $perl_patchlevel | sed 's/.* //'`
+ version_patchlevel_string="$version_patchlevel_string patch $perl_patchlevel"
+ ;;
esac
$echo "(You have $package $version_patchlevel_string.)"
esac
fi
+: Check if multiplicity is required
cat <<EOM
Perl can be built so that multiple Perl interpreters can coexist
set usemultiplicity
eval $setvar
-
+: Check if morebits is requested
case "$usemorebits" in
"$define"|true|[yY]*)
use64bitint="$define"
;;
esac
+: Determine the C compiler to be used
+echo " "
+case "$cc" in
+'') dflt=cc;;
+*) dflt="$cc";;
+esac
+rp="Use which C compiler?"
+. ./myread
+cc="$ans"
+
+: See whether they have no cc but they do have gcc
+. ./trygcc
+if $test -f cc.cbu; then
+ . ./cc.cbu
+fi
+. ./checkcc
+
: make some quick guesses about what we are up against
echo " "
$echo $n "Hmm... $c"
$eunicefix bsd usg v7 osf1 eunice xenix venix os2
$rm -f foo
-case "$cc" in
-'') dflt=cc;;
-*) dflt="$cc";;
-esac
-rp="Use which C compiler?"
-. ./myread
-cc="$ans"
-
-: See if they have not cc but they do have gcc
-. ./trygcc
-: Look for a hint-file generated 'call-back-unit'. Now that the
-: user has specified the compiler, we may need to set or change some
-: other defaults.
-if $test -f cc.cbu; then
- . ./cc.cbu
-fi
-. ./checkcc
-
: Check if we are using GNU gcc and what its version is
echo " "
echo "Checking for GNU cc in disguise and/or its version number..." >&4
'') firstmakefile='makefile';;
esac
+: Check for uselongdouble support
case "$ccflags" in
*-DUSE_LONG_DOUBLE*|*-DUSE_MORE_BITS*) uselongdouble="$define" ;;
esac
# as that way the compiler can do the right implementation dependant
# thing. (NWC)
case "$gccversion" in
- ?*) set stack-protector -fstack-protector 'ldflags="$ldflags -fstack-protector"'
+ ?*) set stack-protector -fstack-protector
eval $checkccflag
;;
esac
;;
*) dflt="$ldflags";;
esac
+# See note above about -fstack-protector
+case "$ccflags" in
+*-fstack-protector*)
+ case "$dflt" in
+ *-fstack-protector*) ;; # Don't add it again
+ *) dflt="$dflt -fstack-protector" ;;
+ esac
+ ;;
+esac
: Try to guess additional flags to pick up local libraries.
for thislibdir in $libpth; do
compile='
mc_file=$1;
shift;
+case "$usedevel" in $define|true|[yY]*) if $test ! -f "${mc_file}.c"; then
+echo "Internal Configure script bug - compiler test file ${mc_file}.c is missing. Please report this to perlbug@perl.org" >&4;
+exit 1;
+fi;
+esac;
$cc -o ${mc_file} $optimize $ccflags $ldflags $* ${mc_file}.c $libs > /dev/null 2>&1;'
: define a shorthand compile call for compilations that should be ok.
compile_ok='
;;
esac
-
+: Do we want 64bit support
case "$uselonglong" in
"$define"|true|[yY]*)
cat <<EOM >&4
$rm -f reflect flect
: now see if they want to do setuid emulation
+if $test $patchlevel -lt 11; then
echo " "
val="$undef"
case "$d_suidsafe" in
esac
set d_dosuid
eval $setvar
+else
+ case "$d_dosuid" in
+ "$define")
+ cat >&4 <<EOH
+
+SUID emulation has been removed for 5.12
+Please re-run Configure without -Dd_dosuid
+
+EOH
+ exit 1;
+ ;;
+ esac
+ d_dosuid=undef
+fi
: Find perl5.005 or later.
echo "Looking for a previously installed perl5.005 or later... "
esac
$rm -f getverlist
+: see if malloc/malloc.h has to be included
+set malloc/malloc.h i_mallocmalloc
+eval $inhdr
+
: see if this is a malloc.h system
: we want a real compile instead of Inhdr because some systems have a
: malloc.h that just gives a compile error saying to use stdlib.h instead
$cat >try.c <<EOCP
#include <stdlib.h>
#include <malloc.h>
+#$i_mallocmalloc I_MALLOCMALLOC
+#ifdef I_MALLOCMALLOC
+# include <malloc/malloc.h>
+#endif
+
int main () { return 0; }
EOCP
set try
esac
prefixvar=vendorarch
. ./installprefix
+if $test X"$vendorarch" = X"$vendorlib"; then
+ d_vendorarch="$undef"
+else
+ d_vendorarch="$define"
+fi
: Final catch-all directories to search
$cat <<EOM
;;
esac
+: DTrace support
+dflt_dtrace='/usr/sbin/dtrace'
+cat <<EOM
+
+Perl can be built to support DTrace on platforms that support it.
+DTrace is a diagnosis and performance analysis tool from Sun.
+
+If this doesn't make any sense to you, just accept the default '$dflt'.
+EOM
+
+while $test 1 ; do
+ case "$usedtrace" in
+ $define|true|[yY]*)
+ dflt='y'
+ ;;
+ ?*)
+ dflt='y'
+ dflt_dtrace=$usedtrace
+ ;;
+ *)
+ dflt='n'
+ ;;
+ esac
+
+ rp='Support DTrace if available?'
+ . ./myread
+ case "$ans" in
+ y|Y) val="$define" ;;
+ *) val="$undef" ;;
+ esac
+ set usedtrace
+ eval $setvar
+
+ test "X$usedtrace" != "X$define" && break
+
+ echo " "
+ rp='Where is the dtrace executable?'
+ dflt=$dflt_dtrace
+ . ./getfile
+ val="$ans"
+ set dtrace
+ eval $setvar
+
+ if $test -f $dtrace
+ then
+ if $dtrace -h -s ../perldtrace.d \
+ -o perldtrace.tmp >/dev/null 2>&1 \
+ && rm -f perldtrace.tmp
+ then
+ echo " "
+ echo "Good: your $dtrace knows about the -h flag."
+ else
+ cat >&2 <<EOM
+
+*** $me: Fatal Error: $dtrace doesn't support -h flag
+***
+*** Your installed dtrace doesn't support the -h switch to compile a D
+*** program into a C header. Can't continue.
+
+EOM
+ exit 1
+ fi
+ break;
+ fi
+
+ case "$fastread" in
+ yes)
+ cat >&2 <<EOM
+
+*** $me: Fatal Error: $dtrace not found.
+*** Can't continue.
+
+EOM
+ exit 1
+ ;;
+ *)
+ echo "*** $dtrace was not found."
+ echo " "
+ ;;
+ esac
+done
+
: See if we want extra modules installed
echo " "
case "$extras" in
;;
esac
+: Figure out where the libc is located
case "$runnm" in
true)
: get list of predefined functions in a handy place
echo " "
echo "$nm didn't seem to work right. Trying $ar instead..." >&4
com=''
- if $ar t $libc > libc.tmp && $contains '^fprintf$' libc.tmp >/dev/null 2>&1; then
+ if $ar t $libc > libc.tmp && \
+ $contains '^fprintf$' libc.tmp >/dev/null 2>&1
+ then
for thisname in $libnames $libc; do
$ar t $thisname >>libc.tmp
done
$sed -e "s/\\$_o\$//" < libc.tmp > libc.list
echo "Ok." >&4
elif test "X$osname" = "Xos2" && $ar tv $libc > libc.tmp; then
- # Repeat libc to extract forwarders to DLL entries too
for thisname in $libnames $libc; do
$ar tv $thisname >>libc.tmp
- # Revision 50 of EMX has bug in $ar.
- # it will not extract forwarders to DLL entries
- # Use emximp which will extract exactly them.
emximp -o tmp.imp $thisname \
2>/dev/null && \
$sed -e 's/^\([_a-zA-Z0-9]*\) .*$/\1/p' \
< tmp.imp >>libc.tmp
- $rm tmp.imp
+ $rm -f tmp.imp
done
$sed -e "s/\\$_o\$//" -e 's/^ \+//' < libc.tmp > libc.list
echo "Ok." >&4
else
echo "$ar didn't seem to work right." >&4
echo "Maybe this is a Cray...trying bld instead..." >&4
- if bld t $libc | $sed -e 's/.*\///' -e "s/\\$_o:.*\$//" > libc.list
+ if bld t $libc | \
+ $sed -e 's/.*\///' -e "s/\\$_o:.*\$//" > libc.list &&
+ $test -s libc.list
then
for thisname in $libnames; do
bld t $libnames | \
*) if $test -f /lib/syscalls.exp; then
echo " "
echo "Also extracting names from /lib/syscalls.exp for good ole AIX..." >&4
- $sed -n 's/^\([^ ]*\)[ ]*syscall[0-9]*[ ]*$/\1/p' /lib/syscalls.exp >>libc.list
+ $sed -n 's/^\([^ ]*\)[ ]*syscall[0-9]*[ ]*$/\1/p' \
+ /lib/syscalls.exp >>libc.list
fi
;;
esac
-a) tf=libc.tmp; tdc="[]";;
*) tlook="^$1\$"; tf=libc.list; tdc="()";;
esac;
+case "$d_cplusplus" in
+ $define) extern_C="extern \"C\"" ;;
+ *) extern_C="extern" ;;
+esac;
tx=yes;
case "$reuseval-$4" in
true-) ;;
case "$tx" in
yes)
tval=false;
- case "$d_cplusplus" in
- $define) extern_C=\"C\";;
- esac;
if $test "$runnm" = true; then
if $contains $tlook $tf >/dev/null 2>&1; then
tval=true;
elif $test "$mistrustnm" = compile -o "$mistrustnm" = run; then
- echo "extern $extern_C void *$1$tdc; void *(*(p()))$tdc { return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
+ echo "$extern_C void *$1$tdc; void *(*(p()))$tdc { return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
$cc -o try $optimize $ccflags $ldflags try.c >/dev/null 2>&1 $libs && tval=true;
$test "$mistrustnm" = run -a -x try && { $run ./try$_exe >/dev/null 2>&1 || tval=false; };
$rm_try;
fi;
else
- echo "extern $extern_C void *$1$tdc; void *(*(p()))$tdc { return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
+ echo "$extern_C void *$1$tdc; void *(*(p()))$tdc { return &$1; } int main() { if(p()) return(0); else return(1); }"> try.c;
$cc -o try $optimize $ccflags $ldflags try.c $libs >/dev/null 2>&1 && tval=true;
$rm_try;
fi;
case "$lddlflags" in
'') case "$osname" in
beos) dflt='-nostart' ;;
+ haiku) dflt='-shared' ;;
hpux) dflt='-b';
case "$gccversion" in
'') dflt="$dflt +vnocompatwarnings" ;;
''|' ') dflt='none' ;;
esac
+ case "$ldflags" in
+ *-fstack-protector*)
+ case "$dflt" in
+ *-fstack-protector*) ;; # Don't add it again
+ *) dflt="$dflt -fstack-protector" ;;
+ esac
+ ;;
+ esac
+
+
rp="Any special flags to pass to $ld to create a dynamically loaded library?"
. ./myread
case "$ans" in
;;
esac
+: Do we want a shared libperl?
also=''
case "$usedl" in
$undef)
;;
*) case "$useshrplib" in
'') case "$osname" in
- svr4*|nonstopux|dgux|dynixptx|esix|powerux|beos|cygwin*)
+ svr4*|nonstopux|dgux|dynixptx|esix|powerux|beos|haiku|cygwin*)
dflt=y
also='Building a shared libperl is required for dynamic loading to work on your system.'
;;
# a version-specific architecture-dependent library, the version
# number isn't really that important, except for making cc/ld happy.
#
- # A name such as libperl.so.3.1
+ # A name such as libperl.so.10.1
majmin="libperl.$so.$patchlevel.$subversion"
- # A name such as libperl.so.301
+ # A name such as libperl.so.100
majonly=`echo $patchlevel $subversion |
$awk '{printf "%d%02d", $1, $2}'`
majonly=libperl.$so.$majonly
linux*|gnu*) # ld won't link with a bare -lperl otherwise.
dflt=libperl.$so
;;
- cygwin*) # ld links against an importlib
- dflt=libperl$lib_ext
+ cygwin*) # ld links now against the dll directly
+ majmin="cygperl5_${patchlevel}_${subversion}.${so}"
+ majonly=`echo $patchlevel $subversion |
+ $awk '{printf "%03d%03d", $1, $2}'`
+ majonly=cygperl5.$majonly.$so
+ dflt=$majmin
;;
*) # Try to guess based on whether libc has major.minor.
case "$libc" in
xxx=''
tmp_shrpenv=''
if "$useshrplib"; then
- case "$osname" in
+ case "$osname" in
aix)
# We'll set it in Makefile.SH...
;;
beos)
# beos doesn't like the default, either.
;;
+ haiku)
+ # Haiku doesn't like the default, either.
+ ;;
hpux*)
# hpux doesn't like the default, either.
tmp_shrpenv="env LDOPTS=\"+s +b${shrpdir}\""
;;
+ cygwin)
+ # cygwin needs only ldlibpth
+ ;;
*)
tmp_shrpenv="env LD_RUN_PATH=$shrpdir"
;;
esac
case "$xxx" in
'') ;;
- *)
+ *)
# Only add $xxx if it isn't already in ccdlflags.
case " $ccdlflags " in
*" $xxx "*) ;;
cat <<EOM >&4
Adding $xxx to the flags
-passed to $ld so that the perl executable will find the
+passed to $ld so that the perl executable will find the
installed shared $libperl.
EOM
You can't even think about them!
EOM
val="$undef"
-fi
+fi
set d_flexfnam
eval $setvar
$rm -rf 123456789abcde*
echo "(Attempting domain name extraction from $tans)"
dflt=.`$sed -n -e 's/ / /g' \
-e 's/^search *\([^ ]*\).*/\1/p' $tans \
- | ./tr '[A-Z]' '[a-z]' 2>/dev/null`
+ -e 1q 2>/dev/null`
case "$dflt" in
.) dflt=.`$sed -n -e 's/ / /g' \
-e 's/^domain *\([^ ]*\).*/\1/p' $tans \
- | ./tr '[A-Z]' '[a-z]' 2>/dev/null`
+ -e 1q 2>/dev/null`
;;
esac
fi
;;
esac
+: determine the e-mail address of the user who is running us
$cat <<EOM
I need to get your e-mail address in Internet format if possible, i.e.
esac
done
+: Ask e-mail of administrator
$cat <<EOM
If you or somebody else will be maintaining perl at your site, please
prefixvar=sitescript
. ./setprefixvar
+: Check if faststdio is requested and available
case "$usefaststdio" in
$define|true|[yY]*|'')
xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
rp='Use the "fast stdio" if available?'
. ./myread
case "$ans" in
-y|Y) val="$define" ;;
+y|Y) val="$define" ;;
*) val="$undef" ;;
esac
set usefaststdio
eval $setvar
-: DTrace support
-dflt_dtrace='/usr/sbin/dtrace'
-cat <<EOM
-
-Perl can be built to support DTrace on platforms that support it.
-DTrace is a diagnosis and performance analysis tool from Sun.
-
-If this doesn't make any sense to you, just accept the default '$dflt'.
-EOM
-
-while test 1 ; do
- case "$usedtrace" in
- $define|true|[yY]*)
- dflt='y'
- ;;
- ?*)
- dflt='y'
- dflt_dtrace=$usedtrace
- ;;
- *)
- dflt='n'
- ;;
- esac
-
- rp='Support DTrace if available?'
- . ./myread
- case "$ans" in
- y|Y) val="$define" ;;
- *) val="$undef" ;;
- esac
- set usedtrace
- eval $setvar
-
- test "X$usedtrace" != "X$define" && break
-
- echo " "
- rp='Where is the dtrace executable?'
- dflt=$dflt_dtrace
- . ./getfile
- val="$ans"
- set dtrace
- eval $setvar
-
- if test -f $dtrace
- then
- if $dtrace -h -s ../perldtrace.d \
- -o perldtrace.tmp >/dev/null 2>&1 \
- && rm -f perldtrace.tmp
- then
- echo " "
- echo "Good: your $dtrace knows about the -h flag."
- else
- cat >&2 <<EOM
-
-*** $me: Fatal Error: $dtrace doesn't support -h flag
-***
-*** Your installed dtrace doesn't support the -h switch to compile a D
-*** program into a C header. Can't continue.
-
-EOM
- exit 1
- fi
- break;
- fi
-
- echo "$dtrace was not found."
- echo " "
-done
: define an is-a-typedef? function
typedef='type=$1; var=$2; def=$3; shift; shift; shift; inclist=$@;
prefixvar=vendorscript
. ./installprefix
+: script used to emit important warnings
+cat >warn <<EOS
+$startsh
+if test \$# -gt 0; then
+ echo "\$@" >msg
+else
+ cat >msg
+fi
+echo "*** WARNING:" >&4
+sed -e 's/^/*** /' <msg >&4
+echo "*** " >&4
+cat msg >>config.msg
+echo " " >>config.msg
+rm -f msg
+EOS
+chmod +x warn
+$eunicefix warn
+
+: see which of string.h or strings.h is needed
+echo " "
+strings=`./findhdr string.h`
+if $test "$strings" && $test -r "$strings"; then
+ echo "Using <string.h> instead of <strings.h>." >&4
+ val="$define"
+else
+ val="$undef"
+ strings=`./findhdr strings.h`
+ if $test "$strings" && $test -r "$strings"; then
+ echo "Using <strings.h> instead of <string.h>." >&4
+ else
+ ./warn "No string header found -- You'll surely have problems."
+ fi
+fi
+set i_string
+eval $setvar
+case "$i_string" in
+"$undef") strings=`./findhdr strings.h`;;
+*) strings=`./findhdr string.h`;;
+esac
+
: see if qgcvt exists
set qgcvt d_qgcvt
eval $inlibc
#include <stdio.h>
-#define I_STDLIB $i_stdlib
+#$i_stdlib I_STDLIB
#ifdef I_STDLIB
#include <stdlib.h>
#endif
+#$i_string I_STRING
+#ifdef I_STRING
+# include <string.h>
+#else
+# include <strings.h>
+#endif
-int
-checkit(expect, got)
-char *expect;
-char *got;
+int checkit(char *expect, char *got)
{
if (strcmp(expect, got)) {
printf("%s oddity: Expected %s, got %s\n",
set alarm d_alarm
eval $inlibc
+: see if 64bit time functions exists
+
+set ctime64 d_ctime64
+eval $inlibc
+
+set localtime64 d_localtime64
+eval $inlibc
+
+set gmtime64 d_gmtime64
+eval $inlibc
+
+set mktime64 d_mktime64
+eval $inlibc
+
+set difftime64 d_difftime64
+eval $inlibc
+
+set asctime64 d_asctime64
+eval $inlibc
+
: see if POSIX threads are available
set pthread.h i_pthread
eval $inhdr
chmod +x protochk
$eunicefix protochk
+: Define hasproto macro for Configure internal use
hasproto='varname=$1; func=$2; shift; shift;
while $test $# -ge 2; do
case "$1" in
set sys/select.h i_sysselct
eval $inhdr
+: Define hasfield macro for Configure internal use
hasfield='varname=$1; struct=$2; field=$3; shift; shift; shift;
while $test $# -ge 2; do
case "$1" in
define)
case "$asctime_r_proto" in
''|0) try='char* asctime_r(const struct tm*, char*);'
- ./protochk "extern $try" $hdrs && asctime_r_proto=B_SB ;;
+ ./protochk "$extern_C $try" $hdrs && asctime_r_proto=B_SB ;;
esac
case "$asctime_r_proto" in
''|0) try='char* asctime_r(const struct tm*, char*, int);'
- ./protochk "extern $try" $hdrs && asctime_r_proto=B_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && asctime_r_proto=B_SBI ;;
esac
case "$asctime_r_proto" in
''|0) try='int asctime_r(const struct tm*, char*);'
- ./protochk "extern $try" $hdrs && asctime_r_proto=I_SB ;;
+ ./protochk "$extern_C $try" $hdrs && asctime_r_proto=I_SB ;;
esac
case "$asctime_r_proto" in
''|0) try='int asctime_r(const struct tm*, char*, int);'
- ./protochk "extern $try" $hdrs && asctime_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && asctime_r_proto=I_SBI ;;
esac
case "$asctime_r_proto" in
''|0) d_asctime_r=undef
eval $setvar
$rm -f attrib*
+: Look for GCC-style attribute deprecated
+case "$d_attribute_deprecated" in
+'')
+echo " "
+echo "Checking whether your compiler can handle __attribute__((deprecated)) ..." >&4
+$cat >attrib.c <<'EOCP'
+#include <stdio.h>
+int I_am_deprecated(void) __attribute__((deprecated));
+EOCP
+if $cc $ccflags -c attrib.c >attrib.out 2>&1 ; then
+ if $contains 'warning' attrib.out >/dev/null 2>&1; then
+ echo "Your C compiler doesn't support __attribute__((deprecated))."
+ val="$undef"
+ else
+ echo "Your C compiler supports __attribute__((deprecated))."
+ val="$define"
+ fi
+else
+ echo "Your C compiler doesn't seem to understand __attribute__ at all."
+ val="$undef"
+fi
+;;
+*) val="$d_attribute_deprecated" ;;
+esac
+set d_attribute_deprecated
+eval $setvar
+$rm -f attrib*
+
: Look for GCC-style attribute warn_unused_result
case "$d_attribute_warn_unused_result" in
'')
EOCP
set try
- if eval $compile; then
+ if eval $compile && $run ./try; then
echo "Your C compiler supports __builtin_choose_expr."
val="$define"
else
'')
echo " "
echo "Checking whether your compiler can handle __builtin_expect ..." >&4
- $cat >builtin.c <<'EOCP'
+ $cat >try.c <<'EOCP'
int main(void) {
int n = 50;
if ( __builtin_expect(n, 0) ) n = 1;
+ /* Remember shell exit code truth is 0, C truth is non-zero */
+ return !(n == 1);
}
EOCP
set try
- if eval $compile; then
- echo "Your C compiler supports __builtin_choose_expr."
+ if eval $compile && $run ./try; then
+ echo "Your C compiler supports __builtin_expect."
val="$define"
else
- echo "Your C compiler doesn't seem to understand __builtin_choose_expr."
+ echo "Your C compiler doesn't seem to understand __builtin_expect."
val="$undef"
fi
;;
set clearenv d_clearenv
eval $inlibc
+: Define hasstruct macro for Configure internal use
hasstruct='varname=$1; struct=$2; shift; shift;
while $test $# -ge 2; do
case "$1" in
eval $setvar;
$rm_try'
+: see whether socket exists
socketlib=''
sockethdr=''
-: see whether socket exists
echo " "
$echo $n "Hmm... $c" >&4
if set socket val -f d_socket; eval $csym; $val; then
set sys/uio.h i_sysuio
eval $inhdr
-
+: Check for cmsghdr support
echo " "
echo "Checking to see if your system supports struct cmsghdr..." >&4
set d_cmsghdr_s cmsghdr $i_systypes sys/types.h $d_socket sys/socket.h $i_sysuio sys/uio.h
define)
case "$crypt_r_proto" in
''|0) try='char* crypt_r(const char*, const char*, struct crypt_data*);'
- ./protochk "extern $try" $hdrs && crypt_r_proto=B_CCS ;;
+ ./protochk "$extern_C $try" $hdrs && crypt_r_proto=B_CCS ;;
esac
case "$crypt_r_proto" in
''|0) try='char* crypt_r(const char*, const char*, CRYPTD*);'
- ./protochk "extern $try" $hdrs && crypt_r_proto=B_CCD ;;
+ ./protochk "$extern_C $try" $hdrs && crypt_r_proto=B_CCD ;;
esac
case "$crypt_r_proto" in
''|0) d_crypt_r=undef
define)
case "$ctermid_r_proto" in
''|0) try='char* ctermid_r(char*);'
- ./protochk "extern $try" $hdrs && ctermid_r_proto=B_B ;;
+ ./protochk "$extern_C $try" $hdrs && ctermid_r_proto=B_B ;;
esac
case "$ctermid_r_proto" in
''|0) d_ctermid_r=undef
define)
case "$ctime_r_proto" in
''|0) try='char* ctime_r(const time_t*, char*);'
- ./protochk "extern $try" $hdrs && ctime_r_proto=B_SB ;;
+ ./protochk "$extern_C $try" $hdrs && ctime_r_proto=B_SB ;;
esac
case "$ctime_r_proto" in
''|0) try='char* ctime_r(const time_t*, char*, int);'
- ./protochk "extern $try" $hdrs && ctime_r_proto=B_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && ctime_r_proto=B_SBI ;;
esac
case "$ctime_r_proto" in
''|0) try='int ctime_r(const time_t*, char*);'
- ./protochk "extern $try" $hdrs && ctime_r_proto=I_SB ;;
+ ./protochk "$extern_C $try" $hdrs && ctime_r_proto=I_SB ;;
esac
case "$ctime_r_proto" in
''|0) try='int ctime_r(const time_t*, char*, int);'
- ./protochk "extern $try" $hdrs && ctime_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && ctime_r_proto=I_SBI ;;
esac
case "$ctime_r_proto" in
''|0) d_ctime_r=undef
set dlfcn.h i_dlfcn
eval $inhdr
+: Check what extension to use for shared libs
case "$usedl" in
$define|y|true)
$cat << EOM
define)
case "$drand48_r_proto" in
''|0) try='int drand48_r(struct drand48_data*, double*);'
- ./protochk "extern $try" $hdrs && drand48_r_proto=I_ST ;;
+ ./protochk "$extern_C $try" $hdrs && drand48_r_proto=I_ST ;;
esac
case "$drand48_r_proto" in
''|0) d_drand48_r=undef
define)
case "$endgrent_r_proto" in
''|0) try='int endgrent_r(FILE**);'
- ./protochk "extern $try" $hdrs && endgrent_r_proto=I_H ;;
+ ./protochk "$extern_C $try" $hdrs && endgrent_r_proto=I_H ;;
esac
case "$endgrent_r_proto" in
''|0) try='void endgrent_r(FILE**);'
- ./protochk "extern $try" $hdrs && endgrent_r_proto=V_H ;;
+ ./protochk "$extern_C $try" $hdrs && endgrent_r_proto=V_H ;;
esac
case "$endgrent_r_proto" in
''|0) d_endgrent_r=undef
define)
case "$endhostent_r_proto" in
''|0) try='int endhostent_r(struct hostent_data*);'
- ./protochk "extern $try" $hdrs && endhostent_r_proto=I_D ;;
+ ./protochk "$extern_C $try" $hdrs && endhostent_r_proto=I_D ;;
esac
case "$endhostent_r_proto" in
''|0) try='void endhostent_r(struct hostent_data*);'
- ./protochk "extern $try" $hdrs && endhostent_r_proto=V_D ;;
+ ./protochk "$extern_C $try" $hdrs && endhostent_r_proto=V_D ;;
esac
case "$endhostent_r_proto" in
''|0) d_endhostent_r=undef
define)
case "$endnetent_r_proto" in
''|0) try='int endnetent_r(struct netent_data*);'
- ./protochk "extern $try" $hdrs && endnetent_r_proto=I_D ;;
+ ./protochk "$extern_C $try" $hdrs && endnetent_r_proto=I_D ;;
esac
case "$endnetent_r_proto" in
''|0) try='void endnetent_r(struct netent_data*);'
- ./protochk "extern $try" $hdrs && endnetent_r_proto=V_D ;;
+ ./protochk "$extern_C $try" $hdrs && endnetent_r_proto=V_D ;;
esac
case "$endnetent_r_proto" in
''|0) d_endnetent_r=undef
define)
case "$endprotoent_r_proto" in
''|0) try='int endprotoent_r(struct protoent_data*);'
- ./protochk "extern $try" $hdrs && endprotoent_r_proto=I_D ;;
+ ./protochk "$extern_C $try" $hdrs && endprotoent_r_proto=I_D ;;
esac
case "$endprotoent_r_proto" in
''|0) try='void endprotoent_r(struct protoent_data*);'
- ./protochk "extern $try" $hdrs && endprotoent_r_proto=V_D ;;
+ ./protochk "$extern_C $try" $hdrs && endprotoent_r_proto=V_D ;;
esac
case "$endprotoent_r_proto" in
''|0) d_endprotoent_r=undef
define)
case "$endpwent_r_proto" in
''|0) try='int endpwent_r(FILE**);'
- ./protochk "extern $try" $hdrs && endpwent_r_proto=I_H ;;
+ ./protochk "$extern_C $try" $hdrs && endpwent_r_proto=I_H ;;
esac
case "$endpwent_r_proto" in
''|0) try='void endpwent_r(FILE**);'
- ./protochk "extern $try" $hdrs && endpwent_r_proto=V_H ;;
+ ./protochk "$extern_C $try" $hdrs && endpwent_r_proto=V_H ;;
esac
case "$endpwent_r_proto" in
''|0) d_endpwent_r=undef
define)
case "$endservent_r_proto" in
''|0) try='int endservent_r(struct servent_data*);'
- ./protochk "extern $try" $hdrs && endservent_r_proto=I_D ;;
+ ./protochk "$extern_C $try" $hdrs && endservent_r_proto=I_D ;;
esac
case "$endservent_r_proto" in
''|0) try='void endservent_r(struct servent_data*);'
- ./protochk "extern $try" $hdrs && endservent_r_proto=V_D ;;
+ ./protochk "$extern_C $try" $hdrs && endservent_r_proto=V_D ;;
esac
case "$endservent_r_proto" in
''|0) d_endservent_r=undef
eval $setvar
$rm_try
-: see which of string.h or strings.h is needed
-echo " "
-strings=`./findhdr string.h`
-if $test "$strings" && $test -r "$strings"; then
- echo "Using <string.h> instead of <strings.h>." >&4
- val="$define"
-else
- val="$undef"
- strings=`./findhdr strings.h`
- if $test "$strings" && $test -r "$strings"; then
- echo "Using <strings.h> instead of <string.h>." >&4
- else
- echo "No string header found -- You'll surely have problems." >&4
- fi
-fi
-set i_string
-eval $setvar
-case "$i_string" in
-"$undef") strings=`./findhdr strings.h`;;
-*) strings=`./findhdr string.h`;;
-esac
-
: see if this is a sys/file.h system
val=''
set sys/file.h val
set fpclassl d_fpclassl
eval $inlibc
-
: check for fpos64_t
echo " "
echo "Checking to see if you have fpos64_t..." >&4
set sys/mount.h i_sysmount
eval $inhdr
-
+: Check for fs_data_s
echo " "
echo "Checking to see if your system supports struct fs_data..." >&4
set d_fs_data_s fs_data $i_systypes sys/types.h $i_sysparam sys/param.h $i_sysmount sys/mount.h
set fsetpos d_fsetpos
eval $inlibc
-
: see if fstatfs exists
set fstatfs d_fstatfs
eval $inlibc
-
: see if statvfs exists
set statvfs d_statvfs
eval $inlibc
fi
$rm_try
+: see if ndbm.h is available
+set ndbm.h i_ndbm
+eval $inhdr
+: Compatibility location for RedHat 7.1
+set gdbm/ndbm.h i_gdbmndbm
+eval $inhdr
+: Compatibility location for Debian 4.0
+set gdbm-ndbm.h i_gdbm_ndbm
+eval $inhdr
+
+val="$undef"
+if $test "$i_ndbm" = "$define" -o "$i_gdbmndbm" = "$define" -o "$i_gdbm_ndbm" = "$define"; then
+ : see if dbm_open exists
+ set dbm_open d_dbm_open
+ eval $inlibc
+ case "$d_dbm_open" in
+ $undef)
+ i_ndbm="$undef"
+ i_gdbmndbm="$undef"
+ i_gdbm_ndbm="$undef"
+ echo "We won't be including <ndbm.h>"
+ val="$undef"
+ ;;
+ *) val="$define"
+ ;;
+ esac
+fi
+set d_ndbm
+eval $setvar
+
+ndbm_hdr_protochk='name=$1; hdr=$2;
+eval "ihdr=\$""i_$name";
+val="$undef";
+if $test "$ihdr" = "$define"; then
+ $echo "Checking if your <$hdr> uses prototypes..." >&4;
+ case "$d_cplusplus" in
+ $define) ./protochk "$extern_C void dbm_close(DBM *);" literal "extern \"C\" {" $ihdr $hdr literal "}" && val="$define" ;;
+ *) ./protochk "$extern_C void dbm_close(int, int);" $ihdr $hdr || val="$define" ;;
+ esac;
+ case "$val" in
+ $define) $echo "Your <$hdr> seems to have prototypes";;
+ *) $echo "Your <$hdr> does not seem to have prototypes";;
+ esac;
+fi;
+set "d_${name}_h_uses_prototypes";
+eval $setvar'
+
+set ndbm ndbm.h
+eval $ndbm_hdr_protochk
+set gdbmndbm gdbm/ndbm.h
+eval $ndbm_hdr_protochk
+set gdbm_ndbm gdbm-ndbm.h
+eval $ndbm_hdr_protochk
+
+: see if getaddrinfo exists
+set getaddrinfo d_getaddrinfo
+eval $inlibc
+
: see if getcwd exists
set getcwd d_getcwd
eval $inlibc
set getespwnam d_getespwnam
eval $inlibc
-
: see if getfsstat exists
set getfsstat d_getfsstat
eval $inlibc
define)
case "$getgrent_r_proto" in
''|0) try='int getgrent_r(struct group*, char*, size_t, struct group**);'
- ./protochk "extern $try" $hdrs && getgrent_r_proto=I_SBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getgrent_r_proto=I_SBWR ;;
esac
case "$getgrent_r_proto" in
''|0) try='int getgrent_r(struct group*, char*, int, struct group**);'
- ./protochk "extern $try" $hdrs && getgrent_r_proto=I_SBIR ;;
+ ./protochk "$extern_C $try" $hdrs && getgrent_r_proto=I_SBIR ;;
esac
case "$getgrent_r_proto" in
''|0) try='struct group* getgrent_r(struct group*, char*, size_t);'
- ./protochk "extern $try" $hdrs && getgrent_r_proto=S_SBW ;;
+ ./protochk "$extern_C $try" $hdrs && getgrent_r_proto=S_SBW ;;
esac
case "$getgrent_r_proto" in
''|0) try='struct group* getgrent_r(struct group*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrent_r_proto=S_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrent_r_proto=S_SBI ;;
esac
case "$getgrent_r_proto" in
''|0) try='int getgrent_r(struct group*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrent_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrent_r_proto=I_SBI ;;
esac
case "$getgrent_r_proto" in
''|0) try='int getgrent_r(struct group*, char*, int, FILE**);'
- ./protochk "extern $try" $hdrs && getgrent_r_proto=I_SBIH ;;
+ ./protochk "$extern_C $try" $hdrs && getgrent_r_proto=I_SBIH ;;
esac
case "$getgrent_r_proto" in
''|0) d_getgrent_r=undef
define)
case "$getgrgid_r_proto" in
''|0) try='int getgrgid_r(gid_t, struct group*, char*, size_t, struct group**);'
- ./protochk "extern $try" $hdrs && getgrgid_r_proto=I_TSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getgrgid_r_proto=I_TSBWR ;;
esac
case "$getgrgid_r_proto" in
''|0) try='int getgrgid_r(gid_t, struct group*, char*, int, struct group**);'
- ./protochk "extern $try" $hdrs && getgrgid_r_proto=I_TSBIR ;;
+ ./protochk "$extern_C $try" $hdrs && getgrgid_r_proto=I_TSBIR ;;
esac
case "$getgrgid_r_proto" in
''|0) try='int getgrgid_r(gid_t, struct group*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrgid_r_proto=I_TSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrgid_r_proto=I_TSBI ;;
esac
case "$getgrgid_r_proto" in
''|0) try='struct group* getgrgid_r(gid_t, struct group*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrgid_r_proto=S_TSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrgid_r_proto=S_TSBI ;;
esac
case "$getgrgid_r_proto" in
''|0) d_getgrgid_r=undef
define)
case "$getgrnam_r_proto" in
''|0) try='int getgrnam_r(const char*, struct group*, char*, size_t, struct group**);'
- ./protochk "extern $try" $hdrs && getgrnam_r_proto=I_CSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getgrnam_r_proto=I_CSBWR ;;
esac
case "$getgrnam_r_proto" in
''|0) try='int getgrnam_r(const char*, struct group*, char*, int, struct group**);'
- ./protochk "extern $try" $hdrs && getgrnam_r_proto=I_CSBIR ;;
+ ./protochk "$extern_C $try" $hdrs && getgrnam_r_proto=I_CSBIR ;;
esac
case "$getgrnam_r_proto" in
''|0) try='struct group* getgrnam_r(const char*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrnam_r_proto=S_CBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrnam_r_proto=S_CBI ;;
esac
case "$getgrnam_r_proto" in
''|0) try='int getgrnam_r(const char*, struct group*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrnam_r_proto=I_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrnam_r_proto=I_CSBI ;;
esac
case "$getgrnam_r_proto" in
''|0) try='struct group* getgrnam_r(const char*, struct group*, char*, int);'
- ./protochk "extern $try" $hdrs && getgrnam_r_proto=S_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getgrnam_r_proto=S_CSBI ;;
esac
case "$getgrnam_r_proto" in
''|0) d_getgrnam_r=undef
define)
case "$gethostbyaddr_r_proto" in
''|0) try='int gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, size_t, struct hostent**, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CWISBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CWISBWRE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='struct hostent* gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, size_t, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CWISBWIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CWISBWIE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='struct hostent* gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CWISBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CWISBIE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='struct hostent* gethostbyaddr_r(const void*, size_t, int, struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_TWISBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_TWISBIE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='struct hostent* gethostbyaddr_r(const char*, int, int, struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CIISBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CIISBIE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='struct hostent* gethostbyaddr_r(const char*, struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_CSBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CSBIE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='struct hostent* gethostbyaddr_r(const void*, struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=S_TSBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_TSBIE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='int gethostbyaddr_r(const char*, size_t, int, struct hostent*, struct hostent_data*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CWISD ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CWISD ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='int gethostbyaddr_r(const char*, int, int, struct hostent*, struct hostent_data*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CIISD ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CIISD ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='int gethostbyaddr_r(const char*, int, int);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_CII ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CII ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) try='int gethostbyaddr_r(const void*, socklen_t, int, struct hostent*, char*, size_t, struct hostent**, int*);'
- ./protochk "extern $try" $hdrs && gethostbyaddr_r_proto=I_TsISBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_TsISBWRE ;;
esac
case "$gethostbyaddr_r_proto" in
''|0) d_gethostbyaddr_r=undef
define)
case "$gethostbyname_r_proto" in
''|0) try='int gethostbyname_r(const char*, struct hostent*, char*, size_t, struct hostent**, int*);'
- ./protochk "extern $try" $hdrs && gethostbyname_r_proto=I_CSBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyname_r_proto=I_CSBWRE ;;
esac
case "$gethostbyname_r_proto" in
''|0) try='struct hostent* gethostbyname_r(const char*, struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostbyname_r_proto=S_CSBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyname_r_proto=S_CSBIE ;;
esac
case "$gethostbyname_r_proto" in
''|0) try='int gethostbyname_r(const char*, struct hostent*, struct hostent_data*);'
- ./protochk "extern $try" $hdrs && gethostbyname_r_proto=I_CSD ;;
+ ./protochk "$extern_C $try" $hdrs && gethostbyname_r_proto=I_CSD ;;
esac
case "$gethostbyname_r_proto" in
''|0) d_gethostbyname_r=undef
define)
case "$gethostent_r_proto" in
''|0) try='int gethostent_r(struct hostent*, char*, size_t, struct hostent**, int*);'
- ./protochk "extern $try" $hdrs && gethostent_r_proto=I_SBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostent_r_proto=I_SBWRE ;;
esac
case "$gethostent_r_proto" in
''|0) try='int gethostent_r(struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostent_r_proto=I_SBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostent_r_proto=I_SBIE ;;
esac
case "$gethostent_r_proto" in
''|0) try='struct hostent* gethostent_r(struct hostent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && gethostent_r_proto=S_SBIE ;;
+ ./protochk "$extern_C $try" $hdrs && gethostent_r_proto=S_SBIE ;;
esac
case "$gethostent_r_proto" in
''|0) try='struct hostent* gethostent_r(struct hostent*, char*, int);'
- ./protochk "extern $try" $hdrs && gethostent_r_proto=S_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && gethostent_r_proto=S_SBI ;;
esac
case "$gethostent_r_proto" in
''|0) try='int gethostent_r(struct hostent*, char*, int);'
- ./protochk "extern $try" $hdrs && gethostent_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && gethostent_r_proto=I_SBI ;;
esac
case "$gethostent_r_proto" in
''|0) try='int gethostent_r(struct hostent*, struct hostent_data*);'
- ./protochk "extern $try" $hdrs && gethostent_r_proto=I_SD ;;
+ ./protochk "$extern_C $try" $hdrs && gethostent_r_proto=I_SD ;;
esac
case "$gethostent_r_proto" in
''|0) d_gethostent_r=undef
define)
case "$getlogin_r_proto" in
''|0) try='int getlogin_r(char*, size_t);'
- ./protochk "extern $try" $hdrs && getlogin_r_proto=I_BW ;;
+ ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=I_BW ;;
esac
case "$getlogin_r_proto" in
''|0) try='int getlogin_r(char*, int);'
- ./protochk "extern $try" $hdrs && getlogin_r_proto=I_BI ;;
+ ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=I_BI ;;
esac
case "$getlogin_r_proto" in
''|0) try='char* getlogin_r(char*, size_t);'
- ./protochk "extern $try" $hdrs && getlogin_r_proto=B_BW ;;
+ ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=B_BW ;;
esac
case "$getlogin_r_proto" in
''|0) try='char* getlogin_r(char*, int);'
- ./protochk "extern $try" $hdrs && getlogin_r_proto=B_BI ;;
+ ./protochk "$extern_C $try" $hdrs && getlogin_r_proto=B_BI ;;
esac
case "$getlogin_r_proto" in
''|0) d_getlogin_r=undef
set getmntent d_getmntent
eval $inlibc
+: see if getnameinfo exists
+set getnameinfo d_getnameinfo
+eval $inlibc
+
: see if getnetbyaddr exists
set getnetbyaddr d_getnbyaddr
eval $inlibc
define)
case "$getnetbyaddr_r_proto" in
''|0) try='int getnetbyaddr_r(unsigned long, int, struct netent*, char*, size_t, struct netent**, int*);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=I_UISBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=I_UISBWRE ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='int getnetbyaddr_r(long, int, struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=I_LISBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=I_LISBI ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='struct netent* getnetbyaddr_r(in_addr_t, int, struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=S_TISBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=S_TISBI ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='struct netent* getnetbyaddr_r(long, int, struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=S_LISBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=S_LISBI ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='int getnetbyaddr_r(in_addr_t, int, struct netent*, struct netent_data*);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=I_TISD ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=I_TISD ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='int getnetbyaddr_r(long, int, struct netent*, struct netent_data*);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=I_LISD ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=I_LISD ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='int getnetbyaddr_r(int, int, struct netent*, struct netent_data*);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=I_IISD ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=I_IISD ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) try='int getnetbyaddr_r(uint32_t, int, struct netent*, char*, size_t, struct netent**, int*);'
- ./protochk "extern $try" $hdrs && getnetbyaddr_r_proto=I_uISBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyaddr_r_proto=I_uISBWRE ;;
esac
case "$getnetbyaddr_r_proto" in
''|0) d_getnetbyaddr_r=undef
define)
case "$getnetbyname_r_proto" in
''|0) try='int getnetbyname_r(const char*, struct netent*, char*, size_t, struct netent**, int*);'
- ./protochk "extern $try" $hdrs && getnetbyname_r_proto=I_CSBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyname_r_proto=I_CSBWRE ;;
esac
case "$getnetbyname_r_proto" in
''|0) try='int getnetbyname_r(const char*, struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetbyname_r_proto=I_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyname_r_proto=I_CSBI ;;
esac
case "$getnetbyname_r_proto" in
''|0) try='struct netent* getnetbyname_r(const char*, struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetbyname_r_proto=S_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyname_r_proto=S_CSBI ;;
esac
case "$getnetbyname_r_proto" in
''|0) try='int getnetbyname_r(const char*, struct netent*, struct netent_data*);'
- ./protochk "extern $try" $hdrs && getnetbyname_r_proto=I_CSD ;;
+ ./protochk "$extern_C $try" $hdrs && getnetbyname_r_proto=I_CSD ;;
esac
case "$getnetbyname_r_proto" in
''|0) d_getnetbyname_r=undef
define)
case "$getnetent_r_proto" in
''|0) try='int getnetent_r(struct netent*, char*, size_t, struct netent**, int*);'
- ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SBWRE ;;
+ ./protochk "$extern_C $try" $hdrs && getnetent_r_proto=I_SBWRE ;;
esac
case "$getnetent_r_proto" in
''|0) try='int getnetent_r(struct netent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SBIE ;;
+ ./protochk "$extern_C $try" $hdrs && getnetent_r_proto=I_SBIE ;;
esac
case "$getnetent_r_proto" in
''|0) try='struct netent* getnetent_r(struct netent*, char*, int, int*);'
- ./protochk "extern $try" $hdrs && getnetent_r_proto=S_SBIE ;;
+ ./protochk "$extern_C $try" $hdrs && getnetent_r_proto=S_SBIE ;;
esac
case "$getnetent_r_proto" in
''|0) try='struct netent* getnetent_r(struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetent_r_proto=S_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetent_r_proto=S_SBI ;;
esac
case "$getnetent_r_proto" in
''|0) try='int getnetent_r(struct netent*, char*, int);'
- ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getnetent_r_proto=I_SBI ;;
esac
case "$getnetent_r_proto" in
''|0) try='int getnetent_r(struct netent*, struct netent_data*);'
- ./protochk "extern $try" $hdrs && getnetent_r_proto=I_SD ;;
+ ./protochk "$extern_C $try" $hdrs && getnetent_r_proto=I_SD ;;
esac
case "$getnetent_r_proto" in
''|0) d_getnetent_r=undef
set getpagesize d_getpagsz
eval $inlibc
+: Optional checks for getprotobyname and getprotobynumber
: see if getprotobyname exists
set getprotobyname d_getpbyname
define)
case "$getprotobyname_r_proto" in
''|0) try='int getprotobyname_r(const char*, struct protoent*, char*, size_t, struct protoent**);'
- ./protochk "extern $try" $hdrs && getprotobyname_r_proto=I_CSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getprotobyname_r_proto=I_CSBWR ;;
esac
case "$getprotobyname_r_proto" in
''|0) try='struct protoent* getprotobyname_r(const char*, struct protoent*, char*, int);'
- ./protochk "extern $try" $hdrs && getprotobyname_r_proto=S_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getprotobyname_r_proto=S_CSBI ;;
esac
case "$getprotobyname_r_proto" in
''|0) try='int getprotobyname_r(const char*, struct protoent*, struct protoent_data*);'
- ./protochk "extern $try" $hdrs && getprotobyname_r_proto=I_CSD ;;
+ ./protochk "$extern_C $try" $hdrs && getprotobyname_r_proto=I_CSD ;;
esac
case "$getprotobyname_r_proto" in
''|0) d_getprotobyname_r=undef
define)
case "$getprotobynumber_r_proto" in
''|0) try='int getprotobynumber_r(int, struct protoent*, char*, size_t, struct protoent**);'
- ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=I_ISBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getprotobynumber_r_proto=I_ISBWR ;;
esac
case "$getprotobynumber_r_proto" in
''|0) try='struct protoent* getprotobynumber_r(int, struct protoent*, char*, int);'
- ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=S_ISBI ;;
+ ./protochk "$extern_C $try" $hdrs && getprotobynumber_r_proto=S_ISBI ;;
esac
case "$getprotobynumber_r_proto" in
''|0) try='int getprotobynumber_r(int, struct protoent*, struct protoent_data*);'
- ./protochk "extern $try" $hdrs && getprotobynumber_r_proto=I_ISD ;;
+ ./protochk "$extern_C $try" $hdrs && getprotobynumber_r_proto=I_ISD ;;
esac
case "$getprotobynumber_r_proto" in
''|0) d_getprotobynumber_r=undef
define)
case "$getprotoent_r_proto" in
''|0) try='int getprotoent_r(struct protoent*, char*, size_t, struct protoent**);'
- ./protochk "extern $try" $hdrs && getprotoent_r_proto=I_SBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getprotoent_r_proto=I_SBWR ;;
esac
case "$getprotoent_r_proto" in
''|0) try='int getprotoent_r(struct protoent*, char*, int);'
- ./protochk "extern $try" $hdrs && getprotoent_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getprotoent_r_proto=I_SBI ;;
esac
case "$getprotoent_r_proto" in
''|0) try='struct protoent* getprotoent_r(struct protoent*, char*, int);'
- ./protochk "extern $try" $hdrs && getprotoent_r_proto=S_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getprotoent_r_proto=S_SBI ;;
esac
case "$getprotoent_r_proto" in
''|0) try='int getprotoent_r(struct protoent*, struct protoent_data*);'
- ./protochk "extern $try" $hdrs && getprotoent_r_proto=I_SD ;;
+ ./protochk "$extern_C $try" $hdrs && getprotoent_r_proto=I_SD ;;
esac
case "$getprotoent_r_proto" in
''|0) d_getprotoent_r=undef
define)
case "$getpwent_r_proto" in
''|0) try='int getpwent_r(struct passwd*, char*, size_t, struct passwd**);'
- ./protochk "extern $try" $hdrs && getpwent_r_proto=I_SBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getpwent_r_proto=I_SBWR ;;
esac
case "$getpwent_r_proto" in
''|0) try='int getpwent_r(struct passwd*, char*, int, struct passwd**);'
- ./protochk "extern $try" $hdrs && getpwent_r_proto=I_SBIR ;;
+ ./protochk "$extern_C $try" $hdrs && getpwent_r_proto=I_SBIR ;;
esac
case "$getpwent_r_proto" in
''|0) try='struct passwd* getpwent_r(struct passwd*, char*, size_t);'
- ./protochk "extern $try" $hdrs && getpwent_r_proto=S_SBW ;;
+ ./protochk "$extern_C $try" $hdrs && getpwent_r_proto=S_SBW ;;
esac
case "$getpwent_r_proto" in
''|0) try='struct passwd* getpwent_r(struct passwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getpwent_r_proto=S_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getpwent_r_proto=S_SBI ;;
esac
case "$getpwent_r_proto" in
''|0) try='int getpwent_r(struct passwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getpwent_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getpwent_r_proto=I_SBI ;;
esac
case "$getpwent_r_proto" in
''|0) try='int getpwent_r(struct passwd*, char*, int, FILE**);'
- ./protochk "extern $try" $hdrs && getpwent_r_proto=I_SBIH ;;
+ ./protochk "$extern_C $try" $hdrs && getpwent_r_proto=I_SBIH ;;
esac
case "$getpwent_r_proto" in
''|0) d_getpwent_r=undef
define)
case "$getpwnam_r_proto" in
''|0) try='int getpwnam_r(const char*, struct passwd*, char*, size_t, struct passwd**);'
- ./protochk "extern $try" $hdrs && getpwnam_r_proto=I_CSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getpwnam_r_proto=I_CSBWR ;;
esac
case "$getpwnam_r_proto" in
''|0) try='int getpwnam_r(const char*, struct passwd*, char*, int, struct passwd**);'
- ./protochk "extern $try" $hdrs && getpwnam_r_proto=I_CSBIR ;;
+ ./protochk "$extern_C $try" $hdrs && getpwnam_r_proto=I_CSBIR ;;
esac
case "$getpwnam_r_proto" in
''|0) try='struct passwd* getpwnam_r(const char*, struct passwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getpwnam_r_proto=S_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getpwnam_r_proto=S_CSBI ;;
esac
case "$getpwnam_r_proto" in
''|0) try='int getpwnam_r(const char*, struct passwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getpwnam_r_proto=I_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getpwnam_r_proto=I_CSBI ;;
esac
case "$getpwnam_r_proto" in
''|0) d_getpwnam_r=undef
define)
case "$getpwuid_r_proto" in
''|0) try='int getpwuid_r(uid_t, struct passwd*, char*, size_t, struct passwd**);'
- ./protochk "extern $try" $hdrs && getpwuid_r_proto=I_TSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getpwuid_r_proto=I_TSBWR ;;
esac
case "$getpwuid_r_proto" in
''|0) try='int getpwuid_r(uid_t, struct passwd*, char*, int, struct passwd**);'
- ./protochk "extern $try" $hdrs && getpwuid_r_proto=I_TSBIR ;;
+ ./protochk "$extern_C $try" $hdrs && getpwuid_r_proto=I_TSBIR ;;
esac
case "$getpwuid_r_proto" in
''|0) try='int getpwuid_r(uid_t, struct passwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getpwuid_r_proto=I_TSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getpwuid_r_proto=I_TSBI ;;
esac
case "$getpwuid_r_proto" in
''|0) try='struct passwd* getpwuid_r(uid_t, struct passwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getpwuid_r_proto=S_TSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getpwuid_r_proto=S_TSBI ;;
esac
case "$getpwuid_r_proto" in
''|0) d_getpwuid_r=undef
;;
esac
+: Optional checks for getsbyname and getsbyport
: see if getservbyname exists
set getservbyname d_getsbyname
define)
case "$getservbyname_r_proto" in
''|0) try='int getservbyname_r(const char*, const char*, struct servent*, char*, size_t, struct servent**);'
- ./protochk "extern $try" $hdrs && getservbyname_r_proto=I_CCSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getservbyname_r_proto=I_CCSBWR ;;
esac
case "$getservbyname_r_proto" in
''|0) try='struct servent* getservbyname_r(const char*, const char*, struct servent*, char*, int);'
- ./protochk "extern $try" $hdrs && getservbyname_r_proto=S_CCSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getservbyname_r_proto=S_CCSBI ;;
esac
case "$getservbyname_r_proto" in
''|0) try='int getservbyname_r(const char*, const char*, struct servent*, struct servent_data*);'
- ./protochk "extern $try" $hdrs && getservbyname_r_proto=I_CCSD ;;
+ ./protochk "$extern_C $try" $hdrs && getservbyname_r_proto=I_CCSD ;;
esac
case "$getservbyname_r_proto" in
''|0) d_getservbyname_r=undef
define)
case "$getservbyport_r_proto" in
''|0) try='int getservbyport_r(int, const char*, struct servent*, char*, size_t, struct servent**);'
- ./protochk "extern $try" $hdrs && getservbyport_r_proto=I_ICSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getservbyport_r_proto=I_ICSBWR ;;
esac
case "$getservbyport_r_proto" in
''|0) try='struct servent* getservbyport_r(int, const char*, struct servent*, char*, int);'
- ./protochk "extern $try" $hdrs && getservbyport_r_proto=S_ICSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getservbyport_r_proto=S_ICSBI ;;
esac
case "$getservbyport_r_proto" in
''|0) try='int getservbyport_r(int, const char*, struct servent*, struct servent_data*);'
- ./protochk "extern $try" $hdrs && getservbyport_r_proto=I_ICSD ;;
+ ./protochk "$extern_C $try" $hdrs && getservbyport_r_proto=I_ICSD ;;
esac
case "$getservbyport_r_proto" in
''|0) d_getservbyport_r=undef
define)
case "$getservent_r_proto" in
''|0) try='int getservent_r(struct servent*, char*, size_t, struct servent**);'
- ./protochk "extern $try" $hdrs && getservent_r_proto=I_SBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getservent_r_proto=I_SBWR ;;
esac
case "$getservent_r_proto" in
''|0) try='int getservent_r(struct servent*, char*, int);'
- ./protochk "extern $try" $hdrs && getservent_r_proto=I_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getservent_r_proto=I_SBI ;;
esac
case "$getservent_r_proto" in
''|0) try='struct servent* getservent_r(struct servent*, char*, int);'
- ./protochk "extern $try" $hdrs && getservent_r_proto=S_SBI ;;
+ ./protochk "$extern_C $try" $hdrs && getservent_r_proto=S_SBI ;;
esac
case "$getservent_r_proto" in
''|0) try='int getservent_r(struct servent*, struct servent_data*);'
- ./protochk "extern $try" $hdrs && getservent_r_proto=I_SD ;;
+ ./protochk "$extern_C $try" $hdrs && getservent_r_proto=I_SD ;;
esac
case "$getservent_r_proto" in
''|0) d_getservent_r=undef
define)
case "$getspnam_r_proto" in
''|0) try='int getspnam_r(const char*, struct spwd*, char*, size_t, struct spwd**);'
- ./protochk "extern $try" $hdrs && getspnam_r_proto=I_CSBWR ;;
+ ./protochk "$extern_C $try" $hdrs && getspnam_r_proto=I_CSBWR ;;
esac
case "$getspnam_r_proto" in
''|0) try='struct spwd* getspnam_r(const char*, struct spwd*, char*, int);'
- ./protochk "extern $try" $hdrs && getspnam_r_proto=S_CSBI ;;
+ ./protochk "$extern_C $try" $hdrs && getspnam_r_proto=S_CSBI ;;
esac
case "$getspnam_r_proto" in
''|0) d_getspnam_r=undef
define)
case "$gmtime_r_proto" in
''|0) try='struct tm* gmtime_r(const time_t*, struct tm*);'
- ./protochk "extern $try" $hdrs && gmtime_r_proto=S_TS ;;
+ ./protochk "$extern_C $try" $hdrs && gmtime_r_proto=S_TS ;;
esac
case "$gmtime_r_proto" in
''|0) try='int gmtime_r(const time_t*, struct tm*);'
- ./protochk "extern $try" $hdrs && gmtime_r_proto=I_TS ;;
+ ./protochk "$extern_C $try" $hdrs && gmtime_r_proto=I_TS ;;
esac
case "$gmtime_r_proto" in
''|0) d_gmtime_r=undef
set inet_aton d_inetaton
eval $inlibc
+: see if inet_ntop exists
+set inet_ntop d_inetntop
+eval $inlibc
+
+: see if inet_pton exists
+set inet_pton d_inetpton
+eval $inlibc
+
: Look for isascii
echo " "
$cat >isascii.c <<EOCP
define)
case "$localtime_r_proto" in
''|0) try='struct tm* localtime_r(const time_t*, struct tm*);'
- ./protochk "extern $try" $hdrs && localtime_r_proto=S_TS ;;
+ ./protochk "$extern_C $try" $hdrs && localtime_r_proto=S_TS ;;
esac
case "$localtime_r_proto" in
''|0) try='int localtime_r(const time_t*, struct tm*);'
- ./protochk "extern $try" $hdrs && localtime_r_proto=I_TS ;;
+ ./protochk "$extern_C $try" $hdrs && localtime_r_proto=I_TS ;;
esac
case "$localtime_r_proto" in
''|0) d_localtime_r=undef
/* Does our libc's localtime_r call tzset ?
* return 0 if so, 1 otherwise.
*/
-#include <sys/types.h>
-#include <unistd.h>
-#include <time.h>
-#include <string.h>
-#include <malloc.h>
+#$i_systypes I_SYS_TYPES
+#$i_unistd I_UNISTD
+#$i_time I_TIME
+#$i_stdlib I_STDLIB
+#$i_string I_STRING
+#$i_malloc I_MALLOC
+#ifdef I_SYS_TYPES
+# include <sys/types.h>
+#endif
+#ifdef I_UNISTD
+# include <unistd.h>
+#endif
+#ifdef I_TIME
+# include <time.h>
+#endif
+#ifdef I_STDLIB
+#include <stdlib.h>
+#endif
+#ifdef I_STRING
+# include <string.h>
+#else
+# include <strings.h>
+#endif
+#ifdef I_MALLOC
+# include <malloc.h>
+#endif
int main()
{
time_t t = time(0L);
set d_msg
eval $setvar
-
+: Check for msghdr_s
echo " "
echo "Checking to see if your system supports struct msghdr..." >&4
set d_msghdr_s msghdr $i_systypes sys/types.h $d_socket sys/socket.h $i_sysuio sys/uio.h
esac
$rm_try
+$echo "Checking to find the largest integer value your NVs can hold..." >&4
+: volatile so that the compiler has to store it out to memory.
+if test X"$d_volatile" = X"$define"; then
+ volatile=volatile
+fi
+$cat <<EOP >try.c
+#include <stdio.h>
+
+typedef $nvtype NV;
+
+int
+main() {
+ NV value = 2;
+ int count = 1;
+
+ while(count < 256) {
+ $volatile NV up = value + 1.0;
+ $volatile NV negated = -value;
+ $volatile NV down = negated - 1.0;
+ $volatile NV got_up = up - value;
+ int up_good = got_up == 1.0;
+ int got_down = down - negated;
+ int down_good = got_down == -1.0;
+
+ if (down_good != up_good) {
+ fprintf(stderr,
+ "Inconsistency - up %d %f; down %d %f; for 2**%d (%.20f)\n",
+ up_good, (double) got_up, down_good, (double) got_down,
+ count, (double) value);
+ return 1;
+ }
+ if (!up_good) {
+ while (1) {
+ if (count > 8) {
+ count -= 8;
+ fputs("256.0", stdout);
+ } else {
+ count--;
+ fputs("2.0", stdout);
+ }
+ if (!count) {
+ puts("");
+ return 0;
+ }
+ fputs("*", stdout);
+ }
+ }
+ value *= 2;
+ ++count;
+ }
+ fprintf(stderr, "Cannot overflow integer range, even at 2**%d (%.20f)\n",
+ count, (double) value);
+ return 1;
+}
+EOP
+set try
+
+nv_overflows_integers_at='0'
+if eval $compile; then
+ xxx="`$run ./try`"
+ case "$?" in
+ 0)
+ case "$xxx" in
+ 2*) cat >&4 <<EOM
+The largest integer your NVs can preserve is equal to $xxx
+EOM
+ nv_overflows_integers_at="$xxx"
+ ;;
+ *) cat >&4 <<EOM
+Cannot determine the largest integer value your NVs can hold, unexpected output
+'$xxx'
+EOM
+ ;;
+ esac
+ ;;
+ *) cat >&4 <<EOM
+Cannot determine the largest integer value your NVs can hold
+EOM
+ ;;
+ esac
+fi
+$rm_try
+
$echo "Checking whether NV 0.0 is all bits zero in memory..." >&4
: volatile so that the compiler has to store it out to memory.
if test X"$d_volatile" = X"$define"; then
set pthread_attr_setscope d_pthread_attr_setscope
eval $inlibc
-
: see whether the various POSIXish _yields exist
$cat >try.c <<EOP
#include <pthread.h>
define)
case "$random_r_proto" in
''|0) try='int random_r(int*, struct random_data*);'
- ./protochk "extern $try" $hdrs && random_r_proto=I_iS ;;
+ ./protochk "$extern_C $try" $hdrs && random_r_proto=I_iS ;;
esac
case "$random_r_proto" in
''|0) try='int random_r(long*, struct random_data*);'
- ./protochk "extern $try" $hdrs && random_r_proto=I_lS ;;
+ ./protochk "$extern_C $try" $hdrs && random_r_proto=I_lS ;;
esac
case "$random_r_proto" in
''|0) try='int random_r(struct random_data*, int32_t*);'
- ./protochk "extern $try" $hdrs && random_r_proto=I_St ;;
+ ./protochk "$extern_C $try" $hdrs && random_r_proto=I_St ;;
esac
case "$random_r_proto" in
''|0) d_random_r=undef
define)
case "$readdir64_r_proto" in
''|0) try='int readdir64_r(DIR*, struct dirent64*, struct dirent64**);'
- ./protochk "extern $try" $hdrs && readdir64_r_proto=I_TSR ;;
+ ./protochk "$extern_C $try" $hdrs && readdir64_r_proto=I_TSR ;;
esac
case "$readdir64_r_proto" in
''|0) try='int readdir64_r(DIR*, struct dirent64*);'
- ./protochk "extern $try" $hdrs && readdir64_r_proto=I_TS ;;
+ ./protochk "$extern_C $try" $hdrs && readdir64_r_proto=I_TS ;;
esac
case "$readdir64_r_proto" in
''|0) d_readdir64_r=undef
define)
case "$readdir_r_proto" in
''|0) try='int readdir_r(DIR*, struct dirent*, struct dirent**);'
- ./protochk "extern $try" $hdrs && readdir_r_proto=I_TSR ;;
+ ./protochk "$extern_C $try" $hdrs && readdir_r_proto=I_TSR ;;
esac
case "$readdir_r_proto" in
''|0) try='int readdir_r(DIR*, struct dirent*);'
- ./protochk "extern $try" $hdrs && readdir_r_proto=I_TS ;;
+ ./protochk "$extern_C $try" $hdrs && readdir_r_proto=I_TS ;;
esac
case "$readdir_r_proto" in
''|0) d_readdir_r=undef
define)
case "$setgrent_r_proto" in
''|0) try='int setgrent_r(FILE**);'
- ./protochk "extern $try" $hdrs && setgrent_r_proto=I_H ;;
+ ./protochk "$extern_C $try" $hdrs && setgrent_r_proto=I_H ;;
esac
case "$setgrent_r_proto" in
''|0) try='void setgrent_r(FILE**);'
- ./protochk "extern $try" $hdrs && setgrent_r_proto=V_H ;;
+ ./protochk "$extern_C $try" $hdrs && setgrent_r_proto=V_H ;;
esac
case "$setgrent_r_proto" in
''|0) d_setgrent_r=undef
define)
case "$sethostent_r_proto" in
''|0) try='int sethostent_r(int, struct hostent_data*);'
- ./protochk "extern $try" $hdrs && sethostent_r_proto=I_ID ;;
+ ./protochk "$extern_C $try" $hdrs && sethostent_r_proto=I_ID ;;
esac
case "$sethostent_r_proto" in
''|0) try='void sethostent_r(int, struct hostent_data*);'
- ./protochk "extern $try" $hdrs && sethostent_r_proto=V_ID ;;
+ ./protochk "$extern_C $try" $hdrs && sethostent_r_proto=V_ID ;;
esac
case "$sethostent_r_proto" in
''|0) d_sethostent_r=undef
define)
case "$setlocale_r_proto" in
''|0) try='int setlocale_r(int, const char*, char*, int);'
- ./protochk "extern $try" $hdrs && setlocale_r_proto=I_ICBI ;;
+ ./protochk "$extern_C $try" $hdrs && setlocale_r_proto=I_ICBI ;;
esac
case "$setlocale_r_proto" in
''|0) d_setlocale_r=undef
define)
case "$setnetent_r_proto" in
''|0) try='int setnetent_r(int, struct netent_data*);'
- ./protochk "extern $try" $hdrs && setnetent_r_proto=I_ID ;;
+ ./protochk "$extern_C $try" $hdrs && setnetent_r_proto=I_ID ;;
esac
case "$setnetent_r_proto" in
''|0) try='void setnetent_r(int, struct netent_data*);'
- ./protochk "extern $try" $hdrs && setnetent_r_proto=V_ID ;;
+ ./protochk "$extern_C $try" $hdrs && setnetent_r_proto=V_ID ;;
esac
case "$setnetent_r_proto" in
''|0) d_setnetent_r=undef
define)
case "$setprotoent_r_proto" in
''|0) try='int setprotoent_r(int, struct protoent_data*);'
- ./protochk "extern $try" $hdrs && setprotoent_r_proto=I_ID ;;
+ ./protochk "$extern_C $try" $hdrs && setprotoent_r_proto=I_ID ;;
esac
case "$setprotoent_r_proto" in
''|0) try='void setprotoent_r(int, struct protoent_data*);'
- ./protochk "extern $try" $hdrs && setprotoent_r_proto=V_ID ;;
+ ./protochk "$extern_C $try" $hdrs && setprotoent_r_proto=V_ID ;;
esac
case "$setprotoent_r_proto" in
''|0) d_setprotoent_r=undef
define)
case "$setpwent_r_proto" in
''|0) try='int setpwent_r(FILE**);'
- ./protochk "extern $try" $hdrs && setpwent_r_proto=I_H ;;
+ ./protochk "$extern_C $try" $hdrs && setpwent_r_proto=I_H ;;
esac
case "$setpwent_r_proto" in
''|0) try='void setpwent_r(FILE**);'
- ./protochk "extern $try" $hdrs && setpwent_r_proto=V_H ;;
+ ./protochk "$extern_C $try" $hdrs && setpwent_r_proto=V_H ;;
esac
case "$setpwent_r_proto" in
''|0) d_setpwent_r=undef
define)
case "$setservent_r_proto" in
''|0) try='int setservent_r(int, struct servent_data*);'
- ./protochk "extern $try" $hdrs && setservent_r_proto=I_ID ;;
+ ./protochk "$extern_C $try" $hdrs && setservent_r_proto=I_ID ;;
esac
case "$setservent_r_proto" in
''|0) try='void setservent_r(int, struct servent_data*);'
- ./protochk "extern $try" $hdrs && setservent_r_proto=V_ID ;;
+ ./protochk "$extern_C $try" $hdrs && setservent_r_proto=V_ID ;;
esac
case "$setservent_r_proto" in
''|0) d_setservent_r=undef
set sfio.h i_sfio
eval $inhdr
-
: see if sfio library is available
case "$i_sfio" in
$define)
EOP
set try
-d_sprintf_returns_strlen="$undef"
if eval $compile; then
xxx="`$run ./try`"
case "$?" in
d_sprintf_returns_strlen="$undef"
;;
esac
+else
+ echo "(I can't seem to compile the test program--assuming it doesn't)" >&4
+ d_sprintf_returns_strlen="$undef"
fi
$rm_try
define)
case "$srand48_r_proto" in
''|0) try='int srand48_r(long, struct drand48_data*);'
- ./protochk "extern $try" $hdrs && srand48_r_proto=I_LS ;;
+ ./protochk "$extern_C $try" $hdrs && srand48_r_proto=I_LS ;;
esac
case "$srand48_r_proto" in
''|0) d_srand48_r=undef
define)
case "$srandom_r_proto" in
''|0) try='int srandom_r(unsigned int, struct random_data*);'
- ./protochk "extern $try" $hdrs && srandom_r_proto=I_TS ;;
+ ./protochk "$extern_C $try" $hdrs && srandom_r_proto=I_TS ;;
esac
case "$srandom_r_proto" in
''|0) d_srandom_r=undef
set sys/stat.h i_sysstat
eval $inhdr
-
: see if stat knows about block sizes
echo " "
echo "Checking to see if your struct stat has st_blocks field..." >&4
set d_statblks stat st_blocks $i_sysstat sys/stat.h
eval $hasfield
-
: see if this is a sys/vfs.h system
set sys/vfs.h i_sysvfs
eval $inhdr
-
: see if this is a sys/statfs.h system
set sys/statfs.h i_sysstatfs
eval $inhdr
-
+: Check for statfs_s
echo " "
echo "Checking to see if your system supports struct statfs..." >&4
set d_statfs_s statfs $i_systypes sys/types.h $i_sysparam sys/param.h $i_sysmount sys/mount.h $i_sysvfs sys/vfs.h $i_sysstatfs sys/statfs.h
esac
-
: see if struct statfs knows about f_flags
case "$d_statfs_s" in
-define)
+define)
echo " "
echo "Checking to see if your struct statfs has f_flags field..." >&4
set d_statfs_f_flags statfs f_flags $i_systypes sys/types.h $i_sysparam sys/param.h $i_sysmount sys/mount.h $i_sysvfs sys/vfs.h $i_sysstatfs sys/statfs.h
define)
case "$strerror_r_proto" in
''|0) try='int strerror_r(int, char*, size_t);'
- ./protochk "extern $try" $hdrs && strerror_r_proto=I_IBW ;;
+ ./protochk "$extern_C $try" $hdrs && strerror_r_proto=I_IBW ;;
esac
case "$strerror_r_proto" in
''|0) try='int strerror_r(int, char*, int);'
- ./protochk "extern $try" $hdrs && strerror_r_proto=I_IBI ;;
+ ./protochk "$extern_C $try" $hdrs && strerror_r_proto=I_IBI ;;
esac
case "$strerror_r_proto" in
''|0) try='char* strerror_r(int, char*, size_t);'
- ./protochk "extern $try" $hdrs && strerror_r_proto=B_IBW ;;
+ ./protochk "$extern_C $try" $hdrs && strerror_r_proto=B_IBW ;;
esac
case "$strerror_r_proto" in
''|0) d_strerror_r=undef
eval $setvar
fi
+: see if timegm exists
+set timegm d_timegm
+eval $inlibc
+
: see if this is a sys/times.h system
set sys/times.h i_systimes
eval $inhdr
define)
case "$tmpnam_r_proto" in
''|0) try='char* tmpnam_r(char*);'
- ./protochk "extern $try" $hdrs && tmpnam_r_proto=B_B ;;
+ ./protochk "$extern_C $try" $hdrs && tmpnam_r_proto=B_B ;;
esac
case "$tmpnam_r_proto" in
''|0) d_tmpnam_r=undef
define)
case "$ttyname_r_proto" in
''|0) try='int ttyname_r(int, char*, size_t);'
- ./protochk "extern $try" $hdrs && ttyname_r_proto=I_IBW ;;
+ ./protochk "$extern_C $try" $hdrs && ttyname_r_proto=I_IBW ;;
esac
case "$ttyname_r_proto" in
''|0) try='int ttyname_r(int, char*, int);'
- ./protochk "extern $try" $hdrs && ttyname_r_proto=I_IBI ;;
+ ./protochk "$extern_C $try" $hdrs && ttyname_r_proto=I_IBI ;;
esac
case "$ttyname_r_proto" in
''|0) try='char* ttyname_r(int, char*, int);'
- ./protochk "extern $try" $hdrs && ttyname_r_proto=B_IBI ;;
+ ./protochk "$extern_C $try" $hdrs && ttyname_r_proto=B_IBI ;;
esac
case "$ttyname_r_proto" in
''|0) d_ttyname_r=undef
fi
fi
fi
- $rm_try
+ $rm -f core try.core core.try.*
case "$fflushNULL" in
x) $cat >&4 <<EOM
Your fflush(NULL) works okay for output streams.
EOM
;;
esac
-$rm_try
+$rm_try tryp
: Store the full pathname to the ar program for use in the C program
: Respect a hint or command line value for full_ar.
;;
esac
-
+: Check format strings for internal types
echo " "
$echo "Checking the format strings to be used for Perl's internal types..." >&4
;;
esac
+: Check format string for GID
echo " "
$echo "Checking the format string to be used for gids..." >&4
set setgroups d_setgrps
eval $inlibc
-
: Find type of 2nd arg to 'getgroups()' and 'setgroups()'
echo " "
case "$d_getgrps$d_setgrps" in
set mad
eval $setvar
+: check whether make sets MAKE
echo " "
echo "Checking if your $make program sets \$(MAKE)..." >&4
case "$make_set_make" in
for xxx in in_addr_t 'const void *' 'const char *' 'void *' 'char *'; do
for yyy in size_t long int; do
case "$netdb_host_type" in
- '') try="extern struct hostent *gethostbyaddr($xxx, $yyy, int);"
+ '') try="$extern_C struct hostent *gethostbyaddr($xxx, $yyy, int);"
if ./protochk "$try" $hdrs; then
echo "Your system accepts $xxx for the first arg."
echo "...and $yyy for the second arg."
$i_unistd unistd.h"
for xxx in "const char *" "char *"; do
case "$netdb_name_type" in
- '') try="extern struct hostent *gethostbyname($xxx);"
+ '') try="$extern_C struct hostent *gethostbyname($xxx);"
if ./protochk "$try" $hdrs; then
echo "Your system accepts $xxx."
netdb_name_type="$xxx"
$i_unistd unistd.h"
for xxx in in_addr_t "unsigned long" long "unsigned int" int; do
case "$netdb_net_type" in
- '') try="extern struct netent *getnetbyaddr($xxx, int);"
+ '') try="$extern_C struct netent *getnetbyaddr($xxx, int);"
if ./protochk "$try" $hdrs; then
echo "Your system accepts $xxx."
netdb_net_type="$xxx"
esac
;;
*) dflt="$pager"
- : Instruct ./getfile to trust the hinted or previous pager value,
- : even if it does not begin with a slash. For example, on os2,
- : pager might be cmd /c more. See comments in UU/getfile.
fn="f/($pager)"
;;
esac
fi
$rm -f foo* bar*
+: see if this is a values.h system
+set values.h i_values
+eval $inhdr
+
+: Check the max offset that gmtime and localtime accept
+echo "Checking max offsets that gmtime () accepts"
+
+case $i_values in
+ define) yyy="#include <values.h>" ;;
+ *) yyy="" ;;
+ esac
+
+case "$sGMTIME_min/$sGMTIME_max" in
+ 0/0|/)
+ $cat >try.c <<EOCP
+#include <sys/types.h>
+#include <stdio.h>
+#include <time.h>
+$yyy
+
+int i;
+struct tm *tmp;
+time_t pt;
+
+void gm_check (time_t t, int min_year, int max_year)
+{
+ tmp = gmtime (&t);
+ if ( tmp == NULL ||
+ /* Check tm_year overflow */
+ tmp->tm_year < min_year || tmp->tm_year > max_year)
+ tmp = NULL;
+ else
+ pt = t;
+ } /* gm_check */
+
+int check_max ()
+{
+ tmp = NULL;
+ pt = 0;
+#ifdef MAXLONG
+ gm_check (MAXLONG, 69, 0x7fffffff);
+#endif
+ if (tmp == NULL || tmp->tm_year < 0) {
+ for (i = 63; i >= 0; i--) {
+ time_t x = pt | ((time_t)1 << i);
+ if (x < 0 || x < pt) continue;
+ gm_check (x, 69, 0x7fffffff);
+ }
+ }
+ printf ("sGMTIME_max=%ld\n", pt);
+ return (0);
+ } /* check_max */
+
+int check_min ()
+{
+ tmp = NULL;
+ pt = 0;
+#ifdef MINLONG
+ gm_check (MINLONG, -1900, 70);
+#endif
+ if (tmp == NULL) {
+ for (i = 36; i >= 0; i--) {
+ time_t x = pt - ((time_t)1 << i);
+ if (x > 0) continue;
+ gm_check (x, -1900, 70);
+ }
+ }
+ printf ("sGMTIME_min=%ld\n", pt);
+ return (0);
+ } /* check_min */
+
+int main (int argc, char *argv[])
+{
+ fprintf (stderr, "Sizeof time_t = %ld\n", sizeof (time_t));
+ check_max ();
+ check_min ();
+ return (0);
+ } /* main */
+EOCP
+ set try
+ if eval $compile; then
+ eval `$run ./try`
+ else
+ echo "Cannot determine sGMTIME_max and sGMTIME_min." >&4
+ fi
+ $rm_try
+ ;;
+ esac
+
+echo "Checking max offsets that localtime () accepts"
+
+case "$sLOCALTIME_min/$sLOCALTIME_max" in
+ 0/0|/)
+ $cat >try.c <<EOCP
+#include <sys/types.h>
+#include <stdio.h>
+#include <time.h>
+$yyy
+
+int i;
+struct tm *tmp;
+time_t pt;
+
+void local_check (time_t t, int min_year, int max_year)
+{
+ if (sizeof (time_t) > 4 && t > 0x7ffffffffffff000LL)
+ tmp = NULL;
+ else
+ tmp = localtime (&t);
+ if ( tmp == NULL ||
+ /* Check tm_year overflow */
+ tmp->tm_year < min_year || tmp->tm_year > max_year)
+ tmp = NULL;
+ else
+ pt = t;
+ } /* local_check */
+
+int check_max ()
+{
+ tmp = NULL;
+ pt = 0;
+#ifdef MAXLONG
+ local_check (MAXLONG, 69, 0x7fffffff);
+#endif
+ if (tmp == NULL || tmp->tm_year < 0) {
+ for (i = 63; i >= 0; i--) {
+ time_t x = pt | ((time_t)1 << i);
+ if (x < 0 || x < pt) continue;
+ local_check (x, 69, 0x7fffffff);
+ }
+ }
+ printf ("sLOCALTIME_max=%ld\n", pt);
+ return (0);
+ } /* check_max */
+
+int check_min ()
+{
+ tmp = NULL;
+ pt = 0;
+#ifdef MINLONG
+ local_check (MINLONG, -1900, 70);
+#endif
+ if (tmp == NULL) {
+ for (i = 36; i >= 0; i--) {
+ time_t x = pt - ((time_t)1 << i);
+ if (x > 0) continue;
+ local_check (x, -1900, 70);
+ }
+ }
+ printf ("sLOCALTIME_min=%ld\n", pt);
+ return (0);
+ } /* check_min */
+
+int main (int argc, char *argv[])
+{
+ check_max ();
+ check_min ();
+ return (0);
+ } /* main */
+EOCP
+ set try
+ if eval $compile; then
+ eval `$run ./try`
+ else
+ echo "Cannot determine sLOCALTIME_max and sLOCALTIME_min." >&4
+ fi
+ $rm_try
+ ;;
+ esac
+
: check for type of arguments to select.
case "$selecttype" in
'') case "$d_select" in
for nfd in 'int' 'size_t' 'unsigned long' 'unsigned' ; do
for tmo in 'struct timeval *' 'const struct timeval *'; do
case "$val" in
- '') try="extern select _(($nfd, $xxx, $xxx, $xxx, $tmo));"
+ '') try="$extern_C select _(($nfd, $xxx, $xxx, $xxx, $tmo));"
if ./protochk "$try" $hdrs; then
echo "Your system accepts $xxx."
val="$xxx"
esac
: Trace out the files included by signal.h, then look for SIGxxx names.
-: Remove SIGARRAYSIZE used by HPUX.
-: Remove SIGSTKSIZE used by Linux.
-: Remove SIGSTKSZ used by Posix.
-: Remove SIGTYP void lines used by OS2.
-: Some cpps, like os390, dont give the file name anywhere
if [ "X$fieldn" = X ]; then
: Just make some guesses. We check them later.
xxx='/usr/include/signal.h /usr/include/sys/signal.h'
xxx=`echo '#include <signal.h>' |
$cppstdin $cppminus $cppflags 2>/dev/null |
$grep '^[ ]*#.*include' |
- $awk "{print \\$$fieldn}" | $sed 's!"!!g' | $sed 's!\\\\\\\\!/!g' | $sort | $uniq`
+ $awk "{print \\$$fieldn}" | $sed 's!"!!g' |\
+ $sed 's!\\\\\\\\!/!g' | $sort | $uniq`
fi
-: Check this list of files to be sure we have parsed the cpp output ok.
-: This will also avoid potentially non-existent files, such
-: as ../foo/bar.h
xxxfiles=''
for xx in $xxx /dev/null ; do
$test -f "$xx" && xxxfiles="$xxxfiles $xx"
done
-: If we have found no files, at least try signal.h
case "$xxxfiles" in
'') xxxfiles=`./findhdr signal.h` ;;
esac
set signal
if eval $compile_ok; then
- $run ./signal$_exe | ($sort -n -k 2 2>/dev/null || $sort -n +1) | $uniq | $awk -f signal.awk >signal.lst
+ $run ./signal$_exe | ($sort -n -k 2 2>/dev/null || $sort -n +1) |\
+ $uniq | $awk -f signal.awk >signal.lst
else
echo "(I can't seem be able to compile the whole test program)" >&4
echo "(I'll try it in little pieces.)" >&4
yyy="$yyy $sizetype int long unsigned"
for xxx in $yyy; do
case "$socksizetype" in
- '') try="extern int accept(int, struct sockaddr *, $xxx *);"
+ '') try="$extern_C int accept(int, struct sockaddr *, $xxx *);"
case "$usesocks" in
"$define")
if ./protochk "$try" $i_systypes sys/types.h $d_socket sys/socket.h literal '#define INCLUDE_PROTOTYPES' $i_socks socks.h.; then
: see what type of char stdio uses.
echo " "
-echo '#include <stdio.h>' > stdio.c
-$cppstdin $cppminus < stdio.c > stdioh
+echo '#include <stdio.h>' | $cppstdin $cppminus > stdioh
if $contains 'unsigned.*char.*_ptr;' stdioh >/dev/null 2>&1 ; then
echo "Your stdio uses unsigned chars." >&4
stdchar="unsigned char"
echo "Your stdio uses signed chars." >&4
stdchar="char"
fi
-$rm -f stdio.* stdioh
+$rm -f stdioh
: see what type uids are declared as in the kernel
echo " "
fi
-
+: Check format string for UID
echo " "
$echo "Checking the format string to be used for uids..." >&4
;;
esac
-
+: Check if site customization support was requested
case "$usesitecustomize" in
$define|true|[Yy]*)
usesitecustomize="$define"
;;
esac
-
: see if this is a assert.h system
set assert.h i_assert
eval $inhdr
set mntent.h i_mntent
eval $inhdr
-: see if ndbm.h is available
-set ndbm.h t_ndbm
-eval $inhdr
-
-case "$t_ndbm" in
-$undef)
- # Some Linux distributions such as RedHat 7.1 put the
- # ndbm.h header in /usr/include/gdbm/ndbm.h.
- if $test -f /usr/include/gdbm/ndbm.h; then
- echo '<gdbm/ndbm.h> found.'
- ccflags="$ccflags -I/usr/include/gdbm"
- cppflags="$cppflags -I/usr/include/gdbm"
- t_ndbm=$define
- fi
- ;;
-esac
-
-case "$t_ndbm" in
-$define)
- : see if dbm_open exists
- set dbm_open d_dbm_open
- eval $inlibc
- case "$d_dbm_open" in
- $undef)
- t_ndbm="$undef"
- echo "We won't be including <ndbm.h>"
- ;;
- esac
- ;;
-esac
-val="$t_ndbm"
-set i_ndbm
-eval $setvar
-
: see if net/errno.h is available
val=''
set net/errno.h val
echo "<sgtty.h> found." >&4
else
echo "System is pyramid with BSD universe."
- echo "<sgtty.h> not found--you could have problems." >&4
+ ./warn "<sgtty.h> not found--you could have problems."
fi;;
*) if $test `./findhdr termio.h`; then
val="$define"
echo "<termio.h> found." >&4
else
echo "System is pyramid with USG universe."
- echo "<termio.h> not found--you could have problems." >&4
+ ./warn "<termio.h> not found--you could have problems."
fi;;
esac
elif ./usg; then
echo "<sgtty.h> found." >&4
val2="$define"
else
-echo "Neither <termio.h> nor <sgtty.h> found--you could have problems." >&4
+ ./warn "Neither <termio.h> nor <sgtty.h> found--cross fingers!"
fi
else
if $test `./findhdr sgtty.h`; then
echo "<termio.h> found." >&4
val="$define"
else
-echo "Neither <sgtty.h> nor <termio.h> found--you could have problems." >&4
+ ./warn "Neither <sgtty.h> nor <termio.h> found--cross fingers!"
fi
fi;;
esac
set i_syssockio
eval $setvar
-
: see if this is a syslog.h system
set syslog.h i_syslog
eval $inhdr
-
: see if this is a sys/mode.h system
set sys/mode.h i_sysmode
eval $inhdr
+: see if there is a sys/poll.h file
+set sys/poll.h i_syspoll
+eval $inhdr
+
: see if sys/resource.h has to be included
set sys/resource.h i_sysresrc
eval $inhdr
set sys/un.h i_sysun
eval $inhdr
-
: see if this is a sys/utsname.h system
set sys/utsname.h i_sysutsname
eval $inhdr
set utime.h i_utime
eval $inhdr
-: see if this is a values.h system
-set values.h i_values
-eval $inhdr
-
: see if this is a vfork system
case "$d_vfork" in
"$define")
case "$xxx" in
DynaLoader|dynaload) ;;
*)
- if $test -f $xxx/$xxx.xs -o -f $xxx/$xxx.c; then
- known_extensions="$known_extensions $1$xxx";
- elif $test -f $xxx/Makefile.PL; then
- nonxs_extensions="$nonxs_extensions $1$xxx";
+ this_ext=`echo $xxx | $sed -e s/-/\\\//g`;
+ leaf=`echo $xxx | $sed -e s/.*-//`;
+ if $test -d File-Glob; then
+ if $test -f $xxx/$leaf.xs -o -f $xxx/$leaf.c; then
+ known_extensions="$known_extensions $this_ext";
+ elif $test -d $xxx; then
+ nonxs_extensions="$nonxs_extensions $this_ext";
+ fi
else
- if $test -d $xxx -a $# -lt 10; then
- set $1$xxx/ $*;
- cd "$xxx";
- eval $find_extensions;
- cd ..;
- shift;
+ if $test -f $xxx/$leaf.xs -o -f $xxx/$leaf.c; then
+ known_extensions="$known_extensions $1$this_ext";
+ elif $test -f $xxx/Makefile.PL; then
+ nonxs_extensions="$nonxs_extensions $1$this_ext";
+ else
+ if $test -d $xxx -a $# -lt 10; then
+ set $1$xxx/ $*;
+ cd "$xxx";
+ eval $find_extensions;
+ cd ..;
+ shift;
+ fi;
fi;
fi
;;
set X
shift
eval $find_extensions
-# Special case: Add in modules that nest beyond the first level.
-# Currently threads/shared and Hash/Util/FieldHash, since they are
-# not picked up by the recursive find above (and adding in general
-# recursive finding breaks SDBM_File/sdbm).
-# A.D. 20011025 (SDBM), ajgough 20071008 (FieldHash)
-known_extensions="$known_extensions threads/shared Hash/Util/FieldHash"
+if $test -d File-Glob; then
+ : All ext/ flattened
+else
+ # Special case: Add in modules that nest beyond the first level.
+ # Currently threads/shared and Hash/Util/FieldHash, since they are
+ # not picked up by the recursive find above (and adding in general
+ # recursive finding breaks SDBM_File/sdbm).
+ # A.D. 20011025 (SDBM), ajgough 20071008 (FieldHash)
+ known_extensions="$known_extensions threads/shared Hash/Util/FieldHash"
+fi
set X $known_extensions
shift
known_extensions="$*"
# --jhi
avail_ext="$avail_ext $xxx"
;;
+ VMS*)
+ ;;
Win32*)
case "$osname" in
cygwin) avail_ext="$avail_ext $xxx" ;;
;;
*) case "$usedl" in
$define|true|[yY]*)
- set X `echo " $libs " | sed -e 's@ -lndbm @ @' -e 's@ -lgdbm @ @' -e 's@ -ldbm @ @' -e 's@ -ldb @ @'`
+ set X `echo " $libs " | sed -e 's@ -lndbm @ @' -e 's@ -lgdbm @ @' -e 's@ -lgdbm_compat @ @' -e 's@ -ldbm @ @' -e 's@ -ldb @ @'`
shift
perllibs="$*"
;;
cd ..
fi
-: configuration may be patched via a 'config.arch' file
+: configuration may be unconditionally patched via a 'config.arch' file
if $test -f config.arch; then
- echo "I see a config.arch file, loading it."
+ echo "I see a config.arch file, loading it." >&4
. ./config.arch
fi
# Configured by : $cf_by
# Target system : $myuname
+EOT
+$test -f UU/cmdline.opt && $cat UU/cmdline.opt >> config.sh
+$spitshell <<EOT >>config.sh
+
Author='$Author'
Date='$Date'
Header='$Header'
Id='$Id'
Locker='$Locker'
Log='$Log'
-Mcc='$Mcc'
RCSfile='$RCSfile'
Revision='$Revision'
Source='$Source'
d_aintl='$d_aintl'
d_alarm='$d_alarm'
d_archlib='$d_archlib'
+d_asctime64='$d_asctime64'
d_asctime_r='$d_asctime_r'
d_atolf='$d_atolf'
d_atoll='$d_atoll'
+d_attribute_deprecated='$d_attribute_deprecated'
d_attribute_format='$d_attribute_format'
d_attribute_malloc='$d_attribute_malloc'
d_attribute_nonnull='$d_attribute_nonnull'
d_csh='$d_csh'
d_ctermid='$d_ctermid'
d_ctermid_r='$d_ctermid_r'
+d_ctime64='$d_ctime64'
d_ctime_r='$d_ctime_r'
d_cuserid='$d_cuserid'
d_dbl_dig='$d_dbl_dig'
d_dbminitproto='$d_dbminitproto'
+d_difftime64='$d_difftime64'
d_difftime='$d_difftime'
d_dir_dd_fd='$d_dir_dd_fd'
d_dirfd='$d_dirfd'
d_ftello='$d_ftello'
d_ftime='$d_ftime'
d_futimes='$d_futimes'
+d_gdbm_ndbm_h_uses_prototypes='$d_gdbm_ndbm_h_uses_prototypes'
+d_gdbmndbm_h_uses_prototypes='$d_gdbmndbm_h_uses_prototypes'
+d_getaddrinfo='$d_getaddrinfo'
d_getcwd='$d_getcwd'
d_getespwnam='$d_getespwnam'
d_getfsstat='$d_getfsstat'
d_getlogin_r='$d_getlogin_r'
d_getmnt='$d_getmnt'
d_getmntent='$d_getmntent'
+d_getnameinfo='$d_getnameinfo'
d_getnbyaddr='$d_getnbyaddr'
d_getnbyname='$d_getnbyname'
d_getnent='$d_getnent'
d_getspnam='$d_getspnam'
d_getspnam_r='$d_getspnam_r'
d_gettimeod='$d_gettimeod'
+d_gmtime64='$d_gmtime64'
d_gmtime_r='$d_gmtime_r'
d_gnulibc='$d_gnulibc'
d_grpasswd='$d_grpasswd'
d_inc_version_list='$d_inc_version_list'
d_index='$d_index'
d_inetaton='$d_inetaton'
+d_inetntop='$d_inetntop'
+d_inetpton='$d_inetpton'
d_int64_t='$d_int64_t'
d_isascii='$d_isascii'
d_isfinite='$d_isfinite'
d_ldbl_dig='$d_ldbl_dig'
d_libm_lib_version='$d_libm_lib_version'
d_link='$d_link'
+d_localtime64='$d_localtime64'
d_localtime_r='$d_localtime_r'
d_localtime_r_needs_tzset='$d_localtime_r_needs_tzset'
d_locconv='$d_locconv'
d_mkfifo='$d_mkfifo'
d_mkstemp='$d_mkstemp'
d_mkstemps='$d_mkstemps'
+d_mktime64='$d_mktime64'
d_mktime='$d_mktime'
d_mmap='$d_mmap'
d_modfl='$d_modfl'
d_msync='$d_msync'
d_munmap='$d_munmap'
d_mymalloc='$d_mymalloc'
+d_ndbm='$d_ndbm'
+d_ndbm_h_uses_prototypes='$d_ndbm_h_uses_prototypes'
d_nice='$d_nice'
d_nl_langinfo='$d_nl_langinfo'
d_nv_preserves_uv='$d_nv_preserves_uv'
d_telldir='$d_telldir'
d_telldirproto='$d_telldirproto'
d_time='$d_time'
+d_timegm='$d_timegm'
d_times='$d_times'
d_tm_tm_gmtoff='$d_tm_tm_gmtoff'
d_tm_tm_zone='$d_tm_tm_zone'
exe_ext='$exe_ext'
expr='$expr'
extensions='$extensions'
+extern_C='$extern_C'
extras='$extras'
fflushNULL='$fflushNULL'
fflushall='$fflushall'
i_fp='$i_fp'
i_fp_class='$i_fp_class'
i_gdbm='$i_gdbm'
+i_gdbm_ndbm='$i_gdbm_ndbm'
+i_gdbmndbm='$i_gdbmndbm'
i_grp='$i_grp'
i_ieeefp='$i_ieeefp'
i_inttypes='$i_inttypes'
i_locale='$i_locale'
i_machcthr='$i_machcthr'
i_malloc='$i_malloc'
+i_mallocmalloc='$i_mallocmalloc'
i_math='$i_math'
i_memory='$i_memory'
i_mntent='$i_mntent'
i_sysmount='$i_sysmount'
i_sysndir='$i_sysndir'
i_sysparam='$i_sysparam'
+i_syspoll='$i_syspoll'
i_sysresrc='$i_sysresrc'
i_syssecrt='$i_syssecrt'
i_sysselct='$i_sysselct'
nvEUformat='$nvEUformat'
nvFUformat='$nvFUformat'
nvGUformat='$nvGUformat'
+nv_overflows_integers_at='$nv_overflows_integers_at'
nv_preserves_uv_bits='$nv_preserves_uv_bits'
nveformat='$nveformat'
nvfformat='$nvfformat'
rmail='$rmail'
run='$run'
runnm='$runnm'
+sGMTIME_max='$sGMTIME_max'
+sGMTIME_min='$sGMTIME_min'
+sLOCALTIME_max='$sLOCALTIME_max'
+sLOCALTIME_min='$sLOCALTIME_min'
sPRIEUldbl='$sPRIEUldbl'
sPRIFUldbl='$sPRIFUldbl'
sPRIGUldbl='$sPRIGUldbl'
use64bitall='$use64bitall'
use64bitint='$use64bitint'
usecrosscompile='$usecrosscompile'
+usedevel='$usedevel'
usedl='$usedl'
usedtrace='$usedtrace'
usefaststdio='$usefaststdio'
: add special variables
$test -f $src/patchlevel.h && \
awk '/^#define[ ]+PERL_/ {printf "%s=%s\n",$2,$3}' $src/patchlevel.h >>config.sh
-echo "PERL_PATCHLEVEL=$perl_patchlevel" >>config.sh
+echo "PERL_PATCHLEVEL='$perl_patchlevel'" >>config.sh
echo "PERL_CONFIG_SH=true" >>config.sh
: propagate old symbols
if $test -f UU/config.sh; then
<UU/config.sh $sort | $uniq >UU/oldconfig.sh
- sed -n 's/^\([a-zA-Z_0-9]*\)=.*/\1/p' config.sh config.sh UU/oldconfig.sh |\
- $sort | $uniq -u >UU/oldsyms
+ $sed -n 's/^\([a-zA-Z_0-9]*\)=.*/\1/p' \
+ config.sh config.sh UU/oldconfig.sh |\
+ $sort | $uniq -u >UU/oldsyms
set X `cat UU/oldsyms`
shift
case $# in
cat <<EOM
Hmm...You had some extra variables I don't know about...I'll try to keep 'em...
EOM
- echo "# Variables propagated from previous config.sh file." >>config.sh
+ echo ": Variables propagated from previous config.sh file." >>config.sh
for sym in `cat UU/oldsyms`; do
echo " Propagating $hint variable "'$'"$sym..."
eval 'tmp="$'"${sym}"'"'
https://perl5.git.perl.org / perl5.git / blobdiff