16541 lines
353 KiB
Bash
Executable File
16541 lines
353 KiB
Bash
Executable File
#! /bin/sh
|
|
#
|
|
# If these # comments don't work, trim them. Don't worry about any other
|
|
# shell scripts, Configure will trim # comments from them for you.
|
|
#
|
|
# (If you are trying to port this package to a machine without sh,
|
|
# I would suggest you have a look at the prototypical config_h.SH file
|
|
# and edit it to reflect your system. Some packages may include samples
|
|
# of config.h for certain machines, so you might look for one of those.)
|
|
#
|
|
# Yes, you may rip this off to use in other distribution packages. This
|
|
# script belongs to the public domain and cannot be copyrighted.
|
|
#
|
|
# (Note: this Configure script was generated automatically. Rather than
|
|
# working with this copy of Configure, you may wish to get metaconfig.
|
|
# The dist-3.0 package (which contains metaconfig) was posted in
|
|
# comp.sources.misc and is available on CPAN under authors/id/RAM so
|
|
# you may fetch it yourself from your nearest archive site.)
|
|
#
|
|
|
|
# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
|
|
#
|
|
# Generated on Tue Mar 13 05:21:04 EET 2001 [metaconfig 3.0 PL70]
|
|
# (with additional metaconfig patches by perlbug@perl.org)
|
|
|
|
cat >c1$$ <<EOF
|
|
ARGGGHHHH!!!!!
|
|
|
|
SCO csh still thinks true is false. Write to SCO today and tell them that next
|
|
year Configure ought to "rm /bin/csh" unless they fix their blasted shell. :-)
|
|
|
|
(Actually, Configure ought to just patch csh in place. Hmm. Hmmmmm. All
|
|
we'd have to do is go in and swap the && and || tokens, wherever they are.)
|
|
|
|
[End of diatribe. We now return you to your regularly scheduled programming...]
|
|
EOF
|
|
cat >c2$$ <<EOF
|
|
|
|
OOPS! You naughty creature! You didn't run Configure with sh!
|
|
I will attempt to remedy the situation by running sh for you...
|
|
EOF
|
|
|
|
true || cat c1$$ c2$$
|
|
true || exec sh $0 $argv:q
|
|
|
|
(exit $?0) || cat c2$$
|
|
(exit $?0) || exec sh $0 $argv:q
|
|
rm -f c1$$ c2$$
|
|
|
|
: compute my invocation name
|
|
me=$0
|
|
case "$0" in
|
|
*/*)
|
|
me=`echo $0 | sed -e 's!.*/\(.*\)!\1!' 2>/dev/null`
|
|
test "$me" || me=$0
|
|
;;
|
|
esac
|
|
|
|
: Proper separator for the PATH environment variable
|
|
p_=:
|
|
: On OS/2 this directory should exist if this is not floppy only system :-]
|
|
if test -d c:/. ; then
|
|
if test -n "$OS2_SHELL"; then
|
|
p_=\;
|
|
PATH=`cmd /c "echo %PATH%" | tr '\\\\' / `
|
|
OS2_SHELL=`cmd /c "echo %OS2_SHELL%" | tr '\\\\' / | tr '[A-Z]' '[a-z]'`
|
|
elif test -n "$DJGPP"; then
|
|
p_=\;
|
|
fi
|
|
fi
|
|
|
|
: Proper PATH setting
|
|
paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
|
|
paths="$paths /opt/bin /opt/local/bin /opt/local /opt/lbin"
|
|
paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
|
|
paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
|
|
paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
|
|
paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /usr/ccs/bin"
|
|
paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
|
|
paths="$paths /sbin /usr/sbin /usr/libexec"
|
|
|
|
for p in $paths
|
|
do
|
|
case "$p_$PATH$p_" in
|
|
*$p_$p$p_*) ;;
|
|
*) test -d $p && PATH=$PATH$p_$p ;;
|
|
esac
|
|
done
|
|
|
|
PATH=.$p_$PATH
|
|
export PATH
|
|
|
|
: shall we be using ksh?
|
|
inksh=''
|
|
needksh=''
|
|
avoidksh=''
|
|
newsh=/bin/ksh
|
|
changesh=''
|
|
if (PATH=.; alias -x) >/dev/null 2>&1; then
|
|
inksh=true
|
|
fi
|
|
if test -f /hp-ux -a -f /bin/ksh; then
|
|
needksh='to avoid sh bug in "here document" expansion'
|
|
fi
|
|
if test -d /usr/lpp -a -f /usr/bin/bsh -a -f /usr/bin/uname; then
|
|
if test X`/usr/bin/uname -v` = X4; then
|
|
avoidksh="to avoid AIX 4's /bin/sh"
|
|
newsh=/usr/bin/bsh
|
|
fi
|
|
fi
|
|
if test -f /osf_boot -a -f /usr/sbin/setld; then
|
|
if test X`/usr/bin/uname -s` = XOSF1; then
|
|
avoidksh="to avoid Digital UNIX' ksh"
|
|
newsh=/bin/sh
|
|
unset BIN_SH # if this is 'xpg4' sh will start up ksh
|
|
fi
|
|
fi
|
|
case "$inksh/$needksh" in
|
|
/[a-z]*)
|
|
ENV=''
|
|
changesh=true
|
|
reason="$needksh"
|
|
;;
|
|
esac
|
|
case "$inksh/$avoidksh" in
|
|
true/[a-z]*)
|
|
changesh=true
|
|
reason="$avoidksh"
|
|
;;
|
|
esac
|
|
case "$inksh/$needksh-$avoidksh-" in
|
|
true/--)
|
|
cat <<EOM
|
|
(I see you are using the Korn shell. Some ksh's blow up on $me,
|
|
mainly on older exotic systems. If yours does, try the Bourne shell instead.)
|
|
EOM
|
|
;;
|
|
esac
|
|
case "$changesh" in
|
|
true)
|
|
echo "(Feeding myself to $newsh $reason.)"
|
|
case "$0" in
|
|
Configure|*/Configure) exec $newsh $0 "$@";;
|
|
*) exec $newsh Configure "$@";;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: if needed set CDPATH to a harmless value that is not chatty
|
|
: avoid bash 2.02 problems with empty CDPATH.
|
|
case "$CDPATH" in
|
|
'') ;;
|
|
*) case "$SHELL" in
|
|
*bash*) CDPATH='.' ;;
|
|
*) CDPATH='' ;;
|
|
esac
|
|
;;
|
|
esac
|
|
: Configure runs within the UU subdirectory
|
|
test -d UU || mkdir UU
|
|
cd UU && rm -f ./*
|
|
|
|
ccname=''
|
|
ccversion=''
|
|
ccsymbols=''
|
|
cppccsymbols=''
|
|
cppsymbols=''
|
|
perllibs=''
|
|
dynamic_ext=''
|
|
extensions=''
|
|
known_extensions=''
|
|
nonxs_ext=''
|
|
static_ext=''
|
|
useopcode=''
|
|
useposix=''
|
|
d_bsd=''
|
|
d_eunice=''
|
|
d_xenix=''
|
|
eunicefix=''
|
|
Mcc=''
|
|
ar=''
|
|
awk=''
|
|
bash=''
|
|
bison=''
|
|
byacc=''
|
|
cat=''
|
|
chgrp=''
|
|
chmod=''
|
|
chown=''
|
|
comm=''
|
|
compress=''
|
|
cp=''
|
|
cpio=''
|
|
cpp=''
|
|
csh=''
|
|
date=''
|
|
echo=''
|
|
egrep=''
|
|
emacs=''
|
|
expr=''
|
|
find=''
|
|
flex=''
|
|
grep=''
|
|
gzip=''
|
|
inews=''
|
|
ksh=''
|
|
less=''
|
|
line=''
|
|
lint=''
|
|
ln=''
|
|
lp=''
|
|
lpr=''
|
|
ls=''
|
|
mail=''
|
|
mailx=''
|
|
make=''
|
|
mkdir=''
|
|
more=''
|
|
mv=''
|
|
nm=''
|
|
nroff=''
|
|
perl=''
|
|
pg=''
|
|
pmake=''
|
|
pr=''
|
|
rm=''
|
|
rmail=''
|
|
sed=''
|
|
sendmail=''
|
|
shar=''
|
|
sleep=''
|
|
smail=''
|
|
sort=''
|
|
submit=''
|
|
tail=''
|
|
tar=''
|
|
tbl=''
|
|
tee=''
|
|
test=''
|
|
touch=''
|
|
tr=''
|
|
troff=''
|
|
uname=''
|
|
uniq=''
|
|
uuname=''
|
|
vi=''
|
|
zcat=''
|
|
zip=''
|
|
full_ar=''
|
|
full_sed=''
|
|
libswanted=''
|
|
hint=''
|
|
myuname=''
|
|
osname=''
|
|
osvers=''
|
|
Author=''
|
|
Date=''
|
|
Header=''
|
|
Id=''
|
|
Locker=''
|
|
Log=''
|
|
RCSfile=''
|
|
Revision=''
|
|
Source=''
|
|
State=''
|
|
_a=''
|
|
_exe=''
|
|
_o=''
|
|
archobjs=''
|
|
exe_ext=''
|
|
firstmakefile=''
|
|
lib_ext=''
|
|
obj_ext=''
|
|
path_sep=''
|
|
afs=''
|
|
alignbytes=''
|
|
ansi2knr=''
|
|
archlib=''
|
|
archlibexp=''
|
|
d_archlib=''
|
|
installarchlib=''
|
|
archname=''
|
|
myarchname=''
|
|
d_atolf=''
|
|
d_atoll=''
|
|
baserev=''
|
|
bin=''
|
|
binexp=''
|
|
installbin=''
|
|
bincompat5005=''
|
|
d_bincompat5005=''
|
|
byteorder=''
|
|
cc=''
|
|
ccflags=''
|
|
cppflags=''
|
|
ldflags=''
|
|
lkflags=''
|
|
locincpth=''
|
|
optimize=''
|
|
cf_email=''
|
|
cf_by=''
|
|
cf_time=''
|
|
charsize=''
|
|
contains=''
|
|
cpp_stuff=''
|
|
cpplast=''
|
|
cppminus=''
|
|
cpprun=''
|
|
cppstdin=''
|
|
crosscompile=''
|
|
d__fwalk=''
|
|
d_access=''
|
|
d_accessx=''
|
|
d_alarm=''
|
|
d_attribut=''
|
|
d_bcmp=''
|
|
d_bcopy=''
|
|
d_bzero=''
|
|
d_casti32=''
|
|
castflags=''
|
|
d_castneg=''
|
|
d_chown=''
|
|
d_chroot=''
|
|
d_chsize=''
|
|
d_closedir=''
|
|
d_void_closedir=''
|
|
d_const=''
|
|
cryptlib=''
|
|
d_crypt=''
|
|
d_csh=''
|
|
full_csh=''
|
|
d_cuserid=''
|
|
d_dbl_dig=''
|
|
d_difftime=''
|
|
d_dlerror=''
|
|
d_dlopen=''
|
|
d_dlsymun=''
|
|
d_dosuid=''
|
|
d_suidsafe=''
|
|
d_drand48proto=''
|
|
d_dup2=''
|
|
d_eaccess=''
|
|
d_endgrent=''
|
|
d_endhent=''
|
|
d_endnent=''
|
|
d_endpent=''
|
|
d_endpwent=''
|
|
d_endsent=''
|
|
d_fchmod=''
|
|
d_fchown=''
|
|
d_fcntl=''
|
|
d_fcntl_can_lock=''
|
|
d_fd_macros=''
|
|
d_fd_set=''
|
|
d_fds_bits=''
|
|
d_fgetpos=''
|
|
d_flexfnam=''
|
|
d_flock=''
|
|
d_fork=''
|
|
d_fpos64_t=''
|
|
d_frexpl=''
|
|
d_fs_data_s=''
|
|
d_fseeko=''
|
|
d_fsetpos=''
|
|
d_fstatfs=''
|
|
d_fsync=''
|
|
d_ftello=''
|
|
d_ftime=''
|
|
d_gettimeod=''
|
|
d_Gconvert=''
|
|
d_getcwd=''
|
|
d_getespwnam=''
|
|
d_getfsstat=''
|
|
d_getgrent=''
|
|
d_getgrps=''
|
|
d_gethbyaddr=''
|
|
d_gethbyname=''
|
|
d_gethent=''
|
|
aphostname=''
|
|
d_gethname=''
|
|
d_phostname=''
|
|
d_uname=''
|
|
d_gethostprotos=''
|
|
d_getlogin=''
|
|
d_getmnt=''
|
|
d_getmntent=''
|
|
d_getnbyaddr=''
|
|
d_getnbyname=''
|
|
d_getnent=''
|
|
d_getnetprotos=''
|
|
d_getpagsz=''
|
|
d_getpent=''
|
|
d_getpgid=''
|
|
d_getpgrp2=''
|
|
d_bsdgetpgrp=''
|
|
d_getpgrp=''
|
|
d_getppid=''
|
|
d_getprior=''
|
|
d_getpbyname=''
|
|
d_getpbynumber=''
|
|
d_getprotoprotos=''
|
|
d_getprpwnam=''
|
|
d_getpwent=''
|
|
d_getsent=''
|
|
d_getservprotos=''
|
|
d_getspnam=''
|
|
d_getsbyname=''
|
|
d_getsbyport=''
|
|
d_gnulibc=''
|
|
d_hasmntopt=''
|
|
d_htonl=''
|
|
d_iconv=''
|
|
d_inetaton=''
|
|
d_int64_t=''
|
|
d_isascii=''
|
|
d_isnan=''
|
|
d_isnanl=''
|
|
d_killpg=''
|
|
d_lchown=''
|
|
d_ldbl_dig=''
|
|
d_link=''
|
|
d_locconv=''
|
|
d_lockf=''
|
|
d_longdbl=''
|
|
longdblsize=''
|
|
d_longlong=''
|
|
longlongsize=''
|
|
d_lseekproto=''
|
|
d_lstat=''
|
|
d_madvise=''
|
|
d_mblen=''
|
|
d_mbstowcs=''
|
|
d_mbtowc=''
|
|
d_memchr=''
|
|
d_memcmp=''
|
|
d_memcpy=''
|
|
d_memmove=''
|
|
d_memset=''
|
|
d_mkdir=''
|
|
d_mkdtemp=''
|
|
d_mkfifo=''
|
|
d_mkstemp=''
|
|
d_mkstemps=''
|
|
d_mktime=''
|
|
d_mmap=''
|
|
mmaptype=''
|
|
d_modfl=''
|
|
d_mprotect=''
|
|
d_msg=''
|
|
d_msgctl=''
|
|
d_msgget=''
|
|
d_msgrcv=''
|
|
d_msgsnd=''
|
|
d_msync=''
|
|
d_munmap=''
|
|
d_nice=''
|
|
d_off64_t=''
|
|
d_open3=''
|
|
d_fpathconf=''
|
|
d_pathconf=''
|
|
d_pause=''
|
|
d_pipe=''
|
|
d_poll=''
|
|
d_portable=''
|
|
d_old_pthread_create_joinable=''
|
|
old_pthread_create_joinable=''
|
|
d_pthread_yield=''
|
|
d_sched_yield=''
|
|
sched_yield=''
|
|
d_qgcvt=''
|
|
d_readdir=''
|
|
d_rewinddir=''
|
|
d_seekdir=''
|
|
d_telldir=''
|
|
d_readlink=''
|
|
d_rename=''
|
|
d_rmdir=''
|
|
d_safebcpy=''
|
|
d_safemcpy=''
|
|
d_sanemcmp=''
|
|
d_sbrkproto=''
|
|
d_select=''
|
|
d_sem=''
|
|
d_semctl=''
|
|
d_semget=''
|
|
d_semop=''
|
|
d_setegid=''
|
|
d_seteuid=''
|
|
d_setgrent=''
|
|
d_setgrps=''
|
|
d_sethent=''
|
|
d_setlinebuf=''
|
|
d_setlocale=''
|
|
d_setnent=''
|
|
d_setpent=''
|
|
d_setpgid=''
|
|
d_setpgrp2=''
|
|
d_bsdsetpgrp=''
|
|
d_setpgrp=''
|
|
d_setprior=''
|
|
d_setproctitle=''
|
|
d_setpwent=''
|
|
d_setregid=''
|
|
d_setresgid=''
|
|
d_setresuid=''
|
|
d_setreuid=''
|
|
d_setrgid=''
|
|
d_setruid=''
|
|
d_setsent=''
|
|
d_setsid=''
|
|
d_setvbuf=''
|
|
d_sfio=''
|
|
usesfio=''
|
|
d_shm=''
|
|
d_shmat=''
|
|
d_shmatprototype=''
|
|
shmattype=''
|
|
d_shmctl=''
|
|
d_shmdt=''
|
|
d_shmget=''
|
|
d_sigaction=''
|
|
d_sigsetjmp=''
|
|
d_msg_ctrunc=''
|
|
d_msg_dontroute=''
|
|
d_msg_oob=''
|
|
d_msg_peek=''
|
|
d_msg_proxy=''
|
|
d_oldsock=''
|
|
d_scm_rights=''
|
|
d_socket=''
|
|
d_sockpair=''
|
|
sockethdr=''
|
|
socketlib=''
|
|
d_socklen_t=''
|
|
d_socks5_init=''
|
|
d_sqrtl=''
|
|
d_statblks=''
|
|
d_statfs_f_flags=''
|
|
d_statfs_s=''
|
|
d_fstatvfs=''
|
|
d_statvfs=''
|
|
d_stdio_cnt_lval=''
|
|
d_stdio_ptr_lval=''
|
|
d_stdio_ptr_lval_nochange_cnt=''
|
|
d_stdio_ptr_lval_sets_cnt=''
|
|
d_stdiobase=''
|
|
d_stdstdio=''
|
|
stdio_base=''
|
|
stdio_bufsiz=''
|
|
stdio_cnt=''
|
|
stdio_filbuf=''
|
|
stdio_ptr=''
|
|
d_index=''
|
|
d_strchr=''
|
|
d_strcoll=''
|
|
d_strctcpy=''
|
|
d_strerrm=''
|
|
d_strerror=''
|
|
d_sysernlst=''
|
|
d_syserrlst=''
|
|
d_strtod=''
|
|
d_strtol=''
|
|
d_strtold=''
|
|
d_strtoll=''
|
|
d_strtoul=''
|
|
d_strtoull=''
|
|
d_strtouq=''
|
|
d_strxfrm=''
|
|
d_symlink=''
|
|
d_syscall=''
|
|
d_sysconf=''
|
|
d_system=''
|
|
d_tcgetpgrp=''
|
|
d_tcsetpgrp=''
|
|
d_telldirproto=''
|
|
d_time=''
|
|
timetype=''
|
|
clocktype=''
|
|
d_times=''
|
|
d_truncate=''
|
|
d_tzname=''
|
|
d_umask=''
|
|
d_semctl_semid_ds=''
|
|
d_semctl_semun=''
|
|
d_union_semun=''
|
|
d_ustat=''
|
|
d_vfork=''
|
|
usevfork=''
|
|
d_voidsig=''
|
|
signal_t=''
|
|
d_volatile=''
|
|
d_charvspr=''
|
|
d_vprintf=''
|
|
d_wait4=''
|
|
d_waitpid=''
|
|
d_wcstombs=''
|
|
d_wctomb=''
|
|
dlext=''
|
|
cccdlflags=''
|
|
ccdlflags=''
|
|
dlsrc=''
|
|
ld=''
|
|
lddlflags=''
|
|
usedl=''
|
|
doublesize=''
|
|
ebcdic=''
|
|
fflushNULL=''
|
|
fflushall=''
|
|
fpossize=''
|
|
fpostype=''
|
|
gccosandvers=''
|
|
gccversion=''
|
|
gidformat=''
|
|
gidsign=''
|
|
gidsize=''
|
|
gidtype=''
|
|
groupstype=''
|
|
h_fcntl=''
|
|
h_sysfile=''
|
|
i_arpainet=''
|
|
db_hashtype=''
|
|
db_prefixtype=''
|
|
i_db=''
|
|
i_dbm=''
|
|
i_rpcsvcdbm=''
|
|
d_dirnamlen=''
|
|
direntrytype=''
|
|
i_dirent=''
|
|
i_dld=''
|
|
i_dlfcn=''
|
|
i_fcntl=''
|
|
i_float=''
|
|
i_gdbm=''
|
|
d_grpasswd=''
|
|
i_grp=''
|
|
i_iconv=''
|
|
i_ieeefp=''
|
|
i_inttypes=''
|
|
i_libutil=''
|
|
i_limits=''
|
|
i_locale=''
|
|
i_machcthr=''
|
|
i_malloc=''
|
|
i_math=''
|
|
i_memory=''
|
|
i_mntent=''
|
|
i_ndbm=''
|
|
i_netdb=''
|
|
i_neterrno=''
|
|
i_netinettcp=''
|
|
i_niin=''
|
|
i_sysin=''
|
|
i_poll=''
|
|
i_prot=''
|
|
i_pthread=''
|
|
d_pwage=''
|
|
d_pwchange=''
|
|
d_pwclass=''
|
|
d_pwcomment=''
|
|
d_pwexpire=''
|
|
d_pwgecos=''
|
|
d_pwpasswd=''
|
|
d_pwquota=''
|
|
i_pwd=''
|
|
i_sfio=''
|
|
i_shadow=''
|
|
i_socks=''
|
|
i_stddef=''
|
|
i_stdlib=''
|
|
i_string=''
|
|
strings=''
|
|
i_sunmath=''
|
|
i_sysaccess=''
|
|
i_sysdir=''
|
|
i_sysfile=''
|
|
d_voidtty=''
|
|
i_bsdioctl=''
|
|
i_sysfilio=''
|
|
i_sysioctl=''
|
|
i_syssockio=''
|
|
i_syslog=''
|
|
i_sysmman=''
|
|
i_sysmode=''
|
|
i_sysmount=''
|
|
i_sysndir=''
|
|
i_sysparam=''
|
|
i_sysresrc=''
|
|
i_syssecrt=''
|
|
i_sysselct=''
|
|
i_sysstat=''
|
|
i_sysstatfs=''
|
|
i_sysstatvfs=''
|
|
i_systimes=''
|
|
i_systypes=''
|
|
i_sysuio=''
|
|
i_sysun=''
|
|
i_sysutsname=''
|
|
i_sysvfs=''
|
|
i_syswait=''
|
|
i_sgtty=''
|
|
i_termio=''
|
|
i_termios=''
|
|
i_systime=''
|
|
i_systimek=''
|
|
i_time=''
|
|
timeincl=''
|
|
i_unistd=''
|
|
i_ustat=''
|
|
i_utime=''
|
|
i_values=''
|
|
i_stdarg=''
|
|
i_varargs=''
|
|
i_varhdr=''
|
|
i_vfork=''
|
|
inc_version_list=''
|
|
inc_version_list_init=''
|
|
installprefix=''
|
|
installprefixexp=''
|
|
installstyle=''
|
|
installusrbinperl=''
|
|
intsize=''
|
|
longsize=''
|
|
shortsize=''
|
|
issymlink=''
|
|
libc=''
|
|
ldlibpthname=''
|
|
libperl=''
|
|
shrpenv=''
|
|
useshrplib=''
|
|
glibpth=''
|
|
libpth=''
|
|
loclibpth=''
|
|
plibpth=''
|
|
xlibpth=''
|
|
ignore_versioned_solibs=''
|
|
libs=''
|
|
libsdirs=''
|
|
libsfiles=''
|
|
libsfound=''
|
|
libspath=''
|
|
lns=''
|
|
d_PRIEUldbl=''
|
|
d_PRIFUldbl=''
|
|
d_PRIGUldbl=''
|
|
d_PRIeldbl=''
|
|
d_PRIfldbl=''
|
|
d_PRIgldbl=''
|
|
d_SCNfldbl=''
|
|
sPRIEUldbl=''
|
|
sPRIFUldbl=''
|
|
sPRIGUldbl=''
|
|
sPRIeldbl=''
|
|
sPRIfldbl=''
|
|
sPRIgldbl=''
|
|
sSCNfldbl=''
|
|
lseeksize=''
|
|
lseektype=''
|
|
make_set_make=''
|
|
d_mymalloc=''
|
|
freetype=''
|
|
mallocobj=''
|
|
mallocsrc=''
|
|
malloctype=''
|
|
usemymalloc=''
|
|
installman1dir=''
|
|
man1dir=''
|
|
man1direxp=''
|
|
man1ext=''
|
|
installman3dir=''
|
|
man3dir=''
|
|
man3direxp=''
|
|
man3ext=''
|
|
modetype=''
|
|
multiarch=''
|
|
mydomain=''
|
|
myhostname=''
|
|
phostname=''
|
|
c=''
|
|
n=''
|
|
d_eofnblk=''
|
|
eagain=''
|
|
o_nonblock=''
|
|
rd_nodata=''
|
|
netdb_hlen_type=''
|
|
netdb_host_type=''
|
|
netdb_name_type=''
|
|
netdb_net_type=''
|
|
groupcat=''
|
|
hostcat=''
|
|
passcat=''
|
|
orderlib=''
|
|
ranlib=''
|
|
d_perl_otherlibdirs=''
|
|
otherlibdirs=''
|
|
package=''
|
|
spackage=''
|
|
pager=''
|
|
api_revision=''
|
|
api_subversion=''
|
|
api_version=''
|
|
api_versionstring=''
|
|
patchlevel=''
|
|
revision=''
|
|
subversion=''
|
|
version=''
|
|
perl5=''
|
|
perladmin=''
|
|
perlpath=''
|
|
d_nv_preserves_uv=''
|
|
d_nv_preserves_uv_bits=''
|
|
i16size=''
|
|
i16type=''
|
|
i32size=''
|
|
i32type=''
|
|
i64size=''
|
|
i64type=''
|
|
i8size=''
|
|
i8type=''
|
|
ivsize=''
|
|
ivtype=''
|
|
nvsize=''
|
|
nvtype=''
|
|
u16size=''
|
|
u16type=''
|
|
u32size=''
|
|
u32type=''
|
|
u64size=''
|
|
u64type=''
|
|
u8size=''
|
|
u8type=''
|
|
uvsize=''
|
|
uvtype=''
|
|
ivdformat=''
|
|
nvEUformat=''
|
|
nvFUformat=''
|
|
nvGUformat=''
|
|
nveformat=''
|
|
nvfformat=''
|
|
nvgformat=''
|
|
uvXUformat=''
|
|
uvoformat=''
|
|
uvuformat=''
|
|
uvxformat=''
|
|
pidtype=''
|
|
prefix=''
|
|
prefixexp=''
|
|
installprivlib=''
|
|
privlib=''
|
|
privlibexp=''
|
|
prototype=''
|
|
ptrsize=''
|
|
d_PRIXU64=''
|
|
d_PRId64=''
|
|
d_PRIi64=''
|
|
d_PRIo64=''
|
|
d_PRIu64=''
|
|
d_PRIx64=''
|
|
sPRIXU64=''
|
|
sPRId64=''
|
|
sPRIi64=''
|
|
sPRIo64=''
|
|
sPRIu64=''
|
|
sPRIx64=''
|
|
d_quad=''
|
|
quadkind=''
|
|
quadtype=''
|
|
uquadtype=''
|
|
drand01=''
|
|
randbits=''
|
|
randfunc=''
|
|
randseedtype=''
|
|
seedfunc=''
|
|
installscript=''
|
|
scriptdir=''
|
|
scriptdirexp=''
|
|
selectminbits=''
|
|
selecttype=''
|
|
sh=''
|
|
sig_count=''
|
|
sig_name=''
|
|
sig_name_init=''
|
|
sig_num=''
|
|
sig_num_init=''
|
|
installsitearch=''
|
|
sitearch=''
|
|
sitearchexp=''
|
|
installsitebin=''
|
|
sitebin=''
|
|
sitebinexp=''
|
|
installsitelib=''
|
|
sitelib=''
|
|
sitelib_stem=''
|
|
sitelibexp=''
|
|
siteprefix=''
|
|
siteprefixexp=''
|
|
sizesize=''
|
|
sizetype=''
|
|
so=''
|
|
socksizetype=''
|
|
sharpbang=''
|
|
shsharp=''
|
|
spitshell=''
|
|
src=''
|
|
ssizetype=''
|
|
startperl=''
|
|
startsh=''
|
|
stdchar=''
|
|
d_stdio_stream_array=''
|
|
stdio_stream_array=''
|
|
sysman=''
|
|
trnl=''
|
|
uidformat=''
|
|
uidsign=''
|
|
uidsize=''
|
|
uidtype=''
|
|
archname64=''
|
|
use64bitall=''
|
|
use64bitint=''
|
|
ccflags_uselargefiles=''
|
|
ldflags_uselargefiles=''
|
|
libswanted_uselargefiles=''
|
|
uselargefiles=''
|
|
uselongdouble=''
|
|
usemorebits=''
|
|
usemultiplicity=''
|
|
nm_opt=''
|
|
nm_so_opt=''
|
|
runnm=''
|
|
usenm=''
|
|
useperlio=''
|
|
usesocks=''
|
|
d_oldpthreads=''
|
|
use5005threads=''
|
|
useithreads=''
|
|
usethreads=''
|
|
incpath=''
|
|
mips_type=''
|
|
usrinc=''
|
|
d_vendorarch=''
|
|
installvendorarch=''
|
|
vendorarch=''
|
|
vendorarchexp=''
|
|
d_vendorbin=''
|
|
installvendorbin=''
|
|
vendorbin=''
|
|
vendorbinexp=''
|
|
d_vendorlib=''
|
|
installvendorlib=''
|
|
vendorlib=''
|
|
vendorlib_stem=''
|
|
vendorlibexp=''
|
|
usevendorprefix=''
|
|
vendorprefix=''
|
|
vendorprefixexp=''
|
|
versiononly=''
|
|
defvoidused=''
|
|
voidflags=''
|
|
pm_apiversion=''
|
|
xs_apiversion=''
|
|
yacc=''
|
|
yaccflags=''
|
|
CONFIG=''
|
|
|
|
define='define'
|
|
undef='undef'
|
|
smallmach='pdp11 i8086 z8000 i80286 iAPX286'
|
|
rmlist=''
|
|
|
|
: We must find out about Eunice early
|
|
eunicefix=':'
|
|
if test -f /etc/unixtovms; then
|
|
eunicefix=/etc/unixtovms
|
|
fi
|
|
if test -f /etc/unixtovms.exe; then
|
|
eunicefix=/etc/unixtovms.exe
|
|
fi
|
|
|
|
i_whoami=''
|
|
ccname=''
|
|
ccversion=''
|
|
perllibs=''
|
|
: set useposix=false in your hint file to disable the POSIX extension.
|
|
useposix=true
|
|
: set useopcode=false in your hint file to disable the Opcode extension.
|
|
useopcode=true
|
|
: Trailing extension. Override this in a hint file, if needed.
|
|
_exe=''
|
|
: Extra object files, if any, needed on this platform.
|
|
archobjs=''
|
|
archname=''
|
|
: Possible local include directories to search.
|
|
: Set locincpth to "" in a hint file to defeat local include searches.
|
|
locincpth="/usr/local/include /opt/local/include /usr/gnu/include"
|
|
locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
|
|
:
|
|
: no include file wanted by default
|
|
inclwanted=''
|
|
|
|
groupstype=''
|
|
: change the next line if compiling for Xenix/286 on Xenix/386
|
|
xlibpth='/usr/lib/386 /lib/386'
|
|
: Possible local library directories to search.
|
|
loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
|
|
loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
|
|
|
|
: general looking path for locating libraries
|
|
glibpth="/lib /usr/lib $xlibpth"
|
|
glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
|
|
test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
|
|
test -f /shlib/libc.so && glibpth="/shlib $glibpth"
|
|
|
|
: Private path used by Configure to find libraries. Its value
|
|
: is prepended to libpth. This variable takes care of special
|
|
: machines, like the mips. Usually, it should be empty.
|
|
plibpth=''
|
|
|
|
: default library list
|
|
libswanted=''
|
|
: some systems want to use only the non-versioned libso:s
|
|
ignore_versioned_solibs=''
|
|
archname64=''
|
|
ccflags_uselargefiles=''
|
|
ldflags_uselargefiles=''
|
|
libswanted_uselargefiles=''
|
|
: set usemultiplicity on the Configure command line to enable multiplicity.
|
|
: set usesocks on the Configure command line to enable socks.
|
|
: set usethreads on the Configure command line to enable threads.
|
|
: full support for void wanted by default
|
|
defvoidused=15
|
|
|
|
: List of libraries we want.
|
|
: If anyone needs -lnet, put it in a hint file.
|
|
libswanted='sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl'
|
|
libswanted="$libswanted dld ld sun m c cposix posix"
|
|
libswanted="$libswanted ndir dir crypt sec"
|
|
libswanted="$libswanted ucb bsd BSD PW x iconv util"
|
|
: We probably want to search /usr/shlib before most other libraries.
|
|
: This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.
|
|
glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'`
|
|
glibpth="/usr/shlib $glibpth"
|
|
: Do not use vfork unless overridden by a hint file.
|
|
usevfork=false
|
|
|
|
: Find the basic shell for Bourne shell scripts
|
|
case "$sh" in
|
|
'')
|
|
case "$SYSTYPE" in
|
|
*bsd*|sys5*) xxx="/$SYSTYPE/bin/sh";;
|
|
*) xxx='/bin/sh';;
|
|
esac
|
|
if test -f "$xxx"; then
|
|
sh="$xxx"
|
|
else
|
|
: Build up a list and do a single loop so we can 'break' out.
|
|
pth=`echo $PATH | sed -e "s/$p_/ /g"`
|
|
for xxx in sh bash ksh pdksh ash; do
|
|
for p in $pth; do
|
|
try="$try ${p}/${xxx}"
|
|
done
|
|
done
|
|
for xxx in $try; do
|
|
if test -f "$xxx"; then
|
|
sh="$xxx";
|
|
break
|
|
elif test -f "$xxx.exe"; then
|
|
sh="$xxx";
|
|
break
|
|
fi
|
|
done
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
case "$sh" in
|
|
'') cat <<EOM >&2
|
|
$me: Fatal Error: I can't find a Bourne Shell anywhere.
|
|
|
|
Usually it's in /bin/sh. How did you even get this far?
|
|
Please contact me (Perl Maintainers) at perlbug@perl.org and
|
|
we'll try to straighten this all out.
|
|
EOM
|
|
exit 1
|
|
;;
|
|
esac
|
|
|
|
: see if sh knows # comments
|
|
if `$sh -c '#' >/dev/null 2>&1`; then
|
|
shsharp=true
|
|
spitshell=cat
|
|
xcat=/bin/cat
|
|
test -f $xcat || xcat=/usr/bin/cat
|
|
echo "#!$xcat" >try
|
|
$eunicefix try
|
|
chmod +x try
|
|
./try > today
|
|
if test -s today; then
|
|
sharpbang='#!'
|
|
else
|
|
echo "#! $xcat" > try
|
|
$eunicefix try
|
|
chmod +x try
|
|
./try > today
|
|
if test -s today; then
|
|
sharpbang='#! '
|
|
else
|
|
sharpbang=': use '
|
|
fi
|
|
fi
|
|
else
|
|
echo " "
|
|
echo "Your $sh doesn't grok # comments--I will strip them later on."
|
|
shsharp=false
|
|
cd ..
|
|
echo "exec grep -v '^[ ]*#'" >spitshell
|
|
chmod +x spitshell
|
|
$eunicefix spitshell
|
|
spitshell=`pwd`/spitshell
|
|
cd UU
|
|
echo "I presume that if # doesn't work, #! won't work either!"
|
|
sharpbang=': use '
|
|
fi
|
|
rm -f try today
|
|
|
|
: figure out how to guarantee sh startup
|
|
case "$startsh" in
|
|
'') startsh=${sharpbang}${sh} ;;
|
|
*)
|
|
esac
|
|
cat >try <<EOSS
|
|
$startsh
|
|
set abc
|
|
test "$?abc" != 1
|
|
EOSS
|
|
|
|
chmod +x try
|
|
$eunicefix try
|
|
if ./try; then
|
|
: echo "Yup, it does."
|
|
else
|
|
echo "Hmm... '$startsh' does not guarantee sh startup..."
|
|
echo "You may have to fix up the shell scripts to make sure $sh runs them."
|
|
fi
|
|
rm -f try
|
|
|
|
|
|
: Save command line options in file UU/cmdline.opt for later use in
|
|
: generating config.sh.
|
|
cat > cmdline.opt <<EOSH
|
|
# Configure command line arguments.
|
|
config_arg0='$0'
|
|
config_args='$*'
|
|
config_argc=$#
|
|
EOSH
|
|
argn=1
|
|
for arg in "$@"; do
|
|
cat >>cmdline.opt <<EOSH
|
|
config_arg$argn='$arg'
|
|
EOSH
|
|
argn=`expr $argn + 1`
|
|
done
|
|
|
|
: produce awk script to parse command line options
|
|
cat >options.awk <<'EOF'
|
|
BEGIN {
|
|
optstr = "A:dD:eEf:hKOrsSU:V"; # getopt-style specification
|
|
|
|
len = length(optstr);
|
|
for (i = 1; i <= len; i++) {
|
|
c = substr(optstr, i, 1);
|
|
if (i < len) a = substr(optstr, i + 1, 1); else a = "";
|
|
if (a == ":") {
|
|
arg[c] = 1;
|
|
i++;
|
|
}
|
|
opt[c] = 1;
|
|
}
|
|
}
|
|
{
|
|
expect = 0;
|
|
str = $0;
|
|
if (substr(str, 1, 1) != "-") {
|
|
printf("'%s'\n", str);
|
|
next;
|
|
}
|
|
len = length($0);
|
|
for (i = 2; i <= len; i++) {
|
|
c = substr(str, i, 1);
|
|
if (!opt[c]) {
|
|
printf("-%s\n", substr(str, i));
|
|
next;
|
|
}
|
|
printf("-%s\n", c);
|
|
if (arg[c]) {
|
|
if (i < len)
|
|
printf("'%s'\n", substr(str, i + 1));
|
|
else
|
|
expect = 1;
|
|
next;
|
|
}
|
|
}
|
|
}
|
|
END {
|
|
if (expect)
|
|
print "?";
|
|
}
|
|
EOF
|
|
|
|
: process the command line options
|
|
set X `for arg in "$@"; do echo "X$arg"; done |
|
|
sed -e s/X// | awk -f options.awk`
|
|
eval "set $*"
|
|
shift
|
|
rm -f options.awk
|
|
|
|
: set up default values
|
|
fastread=''
|
|
reuseval=false
|
|
config_sh=''
|
|
alldone=''
|
|
error=''
|
|
silent=''
|
|
extractsh=''
|
|
override=''
|
|
knowitall=''
|
|
rm -f optdef.sh posthint.sh
|
|
cat >optdef.sh <<EOS
|
|
$startsh
|
|
EOS
|
|
|
|
|
|
: option parsing
|
|
while test $# -gt 0; do
|
|
case "$1" in
|
|
-d) shift; fastread=yes;;
|
|
-e) shift; alldone=cont;;
|
|
-f)
|
|
shift
|
|
cd ..
|
|
if test -r "$1"; then
|
|
config_sh="$1"
|
|
else
|
|
echo "$me: cannot read config file $1." >&2
|
|
error=true
|
|
fi
|
|
cd UU
|
|
shift;;
|
|
-h) shift; error=true;;
|
|
-r) shift; reuseval=true;;
|
|
-s) shift; silent=true; realsilent=true;;
|
|
-E) shift; alldone=exit;;
|
|
-K) shift; knowitall=true;;
|
|
-O) shift; override=true;;
|
|
-S) shift; silent=true; extractsh=true;;
|
|
-D)
|
|
shift
|
|
case "$1" in
|
|
*=)
|
|
echo "$me: use '-U symbol=', not '-D symbol='." >&2
|
|
echo "$me: ignoring -D $1" >&2
|
|
;;
|
|
*=*) echo "$1" | \
|
|
sed -e "s/'/'\"'\"'/g" -e "s/=\(.*\)/='\1'/" >> optdef.sh;;
|
|
*) echo "$1='define'" >> optdef.sh;;
|
|
esac
|
|
shift
|
|
;;
|
|
-U)
|
|
shift
|
|
case "$1" in
|
|
*=) echo "$1" >> optdef.sh;;
|
|
*=*)
|
|
echo "$me: use '-D symbol=val', not '-U symbol=val'." >&2
|
|
echo "$me: ignoring -U $1" >&2
|
|
;;
|
|
*) echo "$1='undef'" >> optdef.sh;;
|
|
esac
|
|
shift
|
|
;;
|
|
-A)
|
|
shift
|
|
xxx=''
|
|
yyy="$1"
|
|
zzz=''
|
|
uuu=undef
|
|
case "$yyy" in
|
|
*=*) zzz=`echo $yyy|sed 's!=.*!!'`
|
|
case "$zzz" in
|
|
*:*) zzz='' ;;
|
|
*) xxx=append
|
|
zzz=" "`echo $yyy|sed 's!^[^=]*=!!'`
|
|
yyy=`echo $yyy|sed 's!=.*!!'` ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$xxx" in
|
|
'') case "$yyy" in
|
|
*:*) xxx=`echo $yyy|sed 's!:.*!!'`
|
|
yyy=`echo $yyy|sed 's!^[^:]*:!!'`
|
|
zzz=`echo $yyy|sed 's!^[^=]*=!!'`
|
|
yyy=`echo $yyy|sed 's!=.*!!'` ;;
|
|
*) xxx=`echo $yyy|sed 's!:.*!!'`
|
|
yyy=`echo $yyy|sed 's!^[^:]*:!!'` ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$xxx" in
|
|
append)
|
|
echo "$yyy=\"\${$yyy}$zzz\"" >> posthint.sh ;;
|
|
clear)
|
|
echo "$yyy=''" >> posthint.sh ;;
|
|
define)
|
|
case "$zzz" in
|
|
'') zzz=define ;;
|
|
esac
|
|
echo "$yyy='$zzz'" >> posthint.sh ;;
|
|
eval)
|
|
echo "eval \"$yyy=$zzz\"" >> posthint.sh ;;
|
|
prepend)
|
|
echo "$yyy=\"$zzz\${$yyy}\"" >> posthint.sh ;;
|
|
undef)
|
|
case "$zzz" in
|
|
'') zzz="$uuu" ;;
|
|
esac
|
|
echo "$yyy=$zzz" >> posthint.sh ;;
|
|
*) echo "$me: unknown -A command '$xxx', ignoring -A $1" >&2 ;;
|
|
esac
|
|
shift
|
|
;;
|
|
-V) echo "$me generated by metaconfig 3.0 PL70." >&2
|
|
exit 0;;
|
|
--) break;;
|
|
-*) echo "$me: unknown option $1" >&2; shift; error=true;;
|
|
*) break;;
|
|
esac
|
|
done
|
|
|
|
case "$error" in
|
|
true)
|
|
cat >&2 <<EOM
|
|
Usage: $me [-dehrsEKOSV] [-f config.sh] [-D symbol] [-D symbol=value]
|
|
[-U symbol] [-U symbol=] [-A command:symbol...]
|
|
-d : use defaults for all answers.
|
|
-e : go on without questioning past the production of config.sh.
|
|
-f : specify an alternate default configuration file.
|
|
-h : print this help message and exit (with an error status).
|
|
-r : reuse C symbols value if possible (skips costly nm extraction).
|
|
-s : silent mode, only echoes questions and essential information.
|
|
-D : define symbol to have some value:
|
|
-D symbol symbol gets the value 'define'
|
|
-D symbol=value symbol gets the value 'value'
|
|
-E : stop at the end of questions, after having produced config.sh.
|
|
-K : do not use unless you know what you are doing.
|
|
-O : let -D and -U override definitions from loaded configuration file.
|
|
-S : perform variable substitutions on all .SH files (can mix with -f)
|
|
-U : undefine symbol:
|
|
-U symbol symbol gets the value 'undef'
|
|
-U symbol= symbol gets completely empty
|
|
-A : manipulate symbol after the platform specific hints have been applied:
|
|
-A symbol=value append " "value to symbol
|
|
-A append:symbol=value append value to symbol
|
|
-A define:symbol=value define symbol to have value
|
|
-A clear:symbol define symbol to be ''
|
|
-A define:symbol define symbol to be 'define'
|
|
-A eval:symbol=value define symbol to be eval of value
|
|
-A prepend:symbol=value prepend value to symbol
|
|
-A undef:symbol define symbol to be 'undef'
|
|
-A undef:symbol= define symbol to be ''
|
|
-V : print version number and exit (with a zero status).
|
|
EOM
|
|
exit 1
|
|
;;
|
|
esac
|
|
|
|
: Sanity checks
|
|
case "$fastread$alldone" in
|
|
yescont|yesexit) ;;
|
|
*)
|
|
case "$extractsh" in
|
|
true) ;;
|
|
*)
|
|
if test ! -t 0; then
|
|
echo "Say 'sh Configure', not 'sh <Configure'"
|
|
exit 1
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
exec 4>&1
|
|
case "$silent" in
|
|
true) exec 1>/dev/null;;
|
|
esac
|
|
|
|
: run the defines and the undefines, if any, but leave the file out there...
|
|
touch optdef.sh
|
|
. ./optdef.sh
|
|
: create the posthint manipulation script and leave the file out there...
|
|
touch posthint.sh
|
|
|
|
: set package name
|
|
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
|
|
ABYZ) spackage=`echo $first | tr '[:lower:]' '[:upper:]'`$last;;
|
|
*) spackage=`echo $first | tr '[a-z]' '[A-Z]'`$last;;
|
|
esac
|
|
|
|
: Some greps do not return status, grrr.
|
|
echo "grimblepritz" >grimble
|
|
if grep blurfldyick grimble >/dev/null 2>&1 ; then
|
|
contains=contains
|
|
elif grep grimblepritz grimble >/dev/null 2>&1 ; then
|
|
contains=grep
|
|
else
|
|
contains=contains
|
|
fi
|
|
rm -f grimble
|
|
: the following should work in any shell
|
|
case "$contains" in
|
|
contains*)
|
|
echo " "
|
|
echo "AGH! Grep doesn't return a status. Attempting remedial action."
|
|
cat >contains <<'EOSS'
|
|
grep "$1" "$2" >.greptmp && cat .greptmp && test -s .greptmp
|
|
EOSS
|
|
chmod +x contains
|
|
esac
|
|
|
|
: Find the path to the source tree
|
|
case "$src" in
|
|
'') case "$0" in
|
|
*/*) src=`echo $0 | sed -e 's%/[^/][^/]*$%%'`
|
|
case "$src" in
|
|
/*) ;;
|
|
.) ;;
|
|
*) src=`cd ../$src && pwd` ;;
|
|
esac
|
|
;;
|
|
*) src='.';;
|
|
esac;;
|
|
esac
|
|
case "$src" in
|
|
'') src=/
|
|
rsrc=/
|
|
;;
|
|
/*) rsrc="$src";;
|
|
*) rsrc="../$src";;
|
|
esac
|
|
if test -f $rsrc/Configure && \
|
|
$contains "^package=$package$" $rsrc/Configure >/dev/null 2>&1
|
|
then
|
|
: found it, so we are ok.
|
|
else
|
|
rsrc=''
|
|
for src in . .. ../.. ../../.. ../../../..; do
|
|
if test -f ../$src/Configure && \
|
|
$contains "^package=$package$" ../$src/Configure >/dev/null 2>&1
|
|
then
|
|
rsrc=../$src
|
|
break
|
|
fi
|
|
done
|
|
fi
|
|
case "$rsrc" in
|
|
'')
|
|
cat <<EOM >&4
|
|
|
|
Sorry, I can't seem to locate the source dir for $package. Please start
|
|
Configure with an explicit path -- i.e. /some/path/Configure.
|
|
|
|
EOM
|
|
exit 1
|
|
;;
|
|
../.) rsrc='..';;
|
|
*)
|
|
echo " "
|
|
echo "Sources for $package found in \"$src\"." >&4
|
|
;;
|
|
esac
|
|
|
|
: script used to extract .SH files with variable substitutions
|
|
cat >extract <<'EOS'
|
|
CONFIGDOTSH=true
|
|
echo "Doing variable substitutions on .SH files..."
|
|
if test -f $src/MANIFEST; then
|
|
set x `awk '{print $1}' <$src/MANIFEST | grep '\.SH$'`
|
|
else
|
|
echo "(Looking for .SH files under the source directory.)"
|
|
set x `(cd $src; find . -name "*.SH" -print)`
|
|
fi
|
|
shift
|
|
case $# in
|
|
0) set x `(cd $src; echo *.SH)`; shift;;
|
|
esac
|
|
if test ! -f $src/$1; then
|
|
shift
|
|
fi
|
|
mkdir_p='
|
|
name=$1;
|
|
create="";
|
|
while test $name; do
|
|
if test ! -d "$name"; then
|
|
create="$name $create";
|
|
name=`echo $name | sed -e "s|^[^/]*$||"`;
|
|
name=`echo $name | sed -e "s|\(.*\)/.*|\1|"`;
|
|
else
|
|
name="";
|
|
fi;
|
|
done;
|
|
for file in $create; do
|
|
mkdir $file;
|
|
done
|
|
'
|
|
for file in $*; do
|
|
case "$src" in
|
|
".")
|
|
case "$file" in
|
|
*/*)
|
|
dir=`expr X$file : 'X\(.*\)/'`
|
|
file=`expr X$file : 'X.*/\(.*\)'`
|
|
(cd $dir && . ./$file)
|
|
;;
|
|
*)
|
|
. ./$file
|
|
;;
|
|
esac
|
|
;;
|
|
*)
|
|
case "$file" in
|
|
*/*)
|
|
dir=`expr X$file : 'X\(.*\)/'`
|
|
file=`expr X$file : 'X.*/\(.*\)'`
|
|
(set x $dir; shift; eval $mkdir_p)
|
|
sh <$src/$dir/$file
|
|
;;
|
|
*)
|
|
sh <$src/$file
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
if test -f $src/config_h.SH; then
|
|
if test ! -f config.h; then
|
|
: oops, they left it out of MANIFEST, probably, so do it anyway.
|
|
. $src/config_h.SH
|
|
fi
|
|
fi
|
|
EOS
|
|
|
|
: extract files and exit if asked to do so
|
|
case "$extractsh" in
|
|
true)
|
|
case "$realsilent" in
|
|
true) ;;
|
|
*) exec 1>&4;;
|
|
esac
|
|
case "$config_sh" in
|
|
'') config_sh='config.sh';;
|
|
esac
|
|
echo " "
|
|
echo "Fetching answers from $config_sh..."
|
|
cd ..
|
|
. $config_sh
|
|
test "$override" && . ./optdef.sh
|
|
echo " "
|
|
. UU/extract
|
|
rm -rf UU
|
|
echo "Done."
|
|
exit 0
|
|
;;
|
|
esac
|
|
|
|
: Eunice requires " " instead of "", can you believe it
|
|
echo " "
|
|
: Here we go...
|
|
echo "Beginning of configuration questions for $package."
|
|
|
|
trap 'echo " "; test -d ../UU && rm -rf X $rmlist; exit 1' 1 2 3 15
|
|
|
|
: first determine how to suppress newline on echo command
|
|
echo " "
|
|
echo "Checking echo to see how to suppress newlines..."
|
|
(echo "hi there\c" ; echo " ") >.echotmp
|
|
if $contains c .echotmp >/dev/null 2>&1 ; then
|
|
echo "...using -n."
|
|
n='-n'
|
|
c=''
|
|
else
|
|
cat <<'EOM'
|
|
...using \c
|
|
EOM
|
|
n=''
|
|
c='\c'
|
|
fi
|
|
echo $n "The star should be here-->$c"
|
|
echo '*'
|
|
rm -f .echotmp
|
|
|
|
: Now test for existence of everything in MANIFEST
|
|
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 -50
|
|
rm -f missing
|
|
tmppwd=`pwd`
|
|
for filelist in x??; do
|
|
(cd $rsrc; ls `cat $tmppwd/$filelist` >/dev/null 2>>$tmppwd/missing)
|
|
done
|
|
if test -s missing; then
|
|
cat missing >&4
|
|
cat >&4 <<'EOM'
|
|
|
|
THIS PACKAGE SEEMS TO BE INCOMPLETE.
|
|
|
|
You have the option of continuing the configuration process, despite the
|
|
distinct possibility that your kit is damaged, by typing 'y'es. If you
|
|
do, don't blame me if something goes wrong. I advise you to type 'n'o
|
|
and contact the author (perlbug@perl.org).
|
|
|
|
EOM
|
|
echo $n "Continue? [n] $c" >&4
|
|
read ans
|
|
case "$ans" in
|
|
y*)
|
|
echo "Continuing..." >&4
|
|
rm -f missing
|
|
;;
|
|
*)
|
|
echo "ABORTING..." >&4
|
|
kill $$
|
|
;;
|
|
esac
|
|
else
|
|
echo "Looks good..."
|
|
fi
|
|
else
|
|
echo "There is no MANIFEST file. I hope your kit is complete !"
|
|
fi
|
|
rm -f missing x??
|
|
|
|
echo " "
|
|
: Find the appropriate value for a newline for tr
|
|
if test -n "$DJGPP"; then
|
|
trnl='\012'
|
|
fi
|
|
if test X"$trnl" = X; then
|
|
case "`echo foo|tr '\n' x 2>/dev/null`" in
|
|
foox) trnl='\n' ;;
|
|
esac
|
|
fi
|
|
if test X"$trnl" = X; then
|
|
case "`echo foo|tr '\012' x 2>/dev/null`" in
|
|
foox) trnl='\012' ;;
|
|
esac
|
|
fi
|
|
if test X"$trnl" = X; then
|
|
cat <<EOM >&2
|
|
|
|
$me: Fatal Error: cannot figure out how to translate newlines with 'tr'.
|
|
|
|
EOM
|
|
exit 1
|
|
fi
|
|
|
|
: compute the number of columns on the terminal for proper question formatting
|
|
case "$COLUMNS" in
|
|
'') COLUMNS='80';;
|
|
esac
|
|
|
|
: set up the echo used in my read
|
|
myecho="case \"\$xxxm\" in
|
|
'') echo $n \"\$rp $c\" >&4;;
|
|
*) case \"\$rp\" in
|
|
'') echo $n \"[\$xxxm] $c\";;
|
|
*)
|
|
if test \`echo \"\$rp [\$xxxm] \" | wc -c\` -ge $COLUMNS; then
|
|
echo \"\$rp\" >&4
|
|
echo $n \"[\$xxxm] $c\" >&4
|
|
else
|
|
echo $n \"\$rp [\$xxxm] $c\" >&4
|
|
fi
|
|
;;
|
|
esac;;
|
|
esac"
|
|
|
|
: now set up to do reads with possible shell escape and default assignment
|
|
cat <<EOSC >myread
|
|
$startsh
|
|
xxxm=\$dflt
|
|
$myecho
|
|
ans='!'
|
|
case "\$fastread" in
|
|
yes) case "\$dflt" in
|
|
'') ;;
|
|
*) ans='';
|
|
case "\$silent-\$rp" in
|
|
true-) ;;
|
|
*) echo " " >&4;;
|
|
esac;;
|
|
esac;;
|
|
*) case "\$silent" in
|
|
true) case "\$rp" in
|
|
'') ans='';;
|
|
esac;;
|
|
esac;;
|
|
esac
|
|
while expr "X\$ans" : "X!" >/dev/null; do
|
|
read answ
|
|
set x \$xxxm
|
|
shift
|
|
aok=''; eval "ans=\\"\$answ\\"" && aok=y
|
|
case "\$answ" in
|
|
"!")
|
|
sh 1>&4
|
|
echo " "
|
|
$myecho
|
|
;;
|
|
!*)
|
|
set x \`expr "X\$ans" : "X!\(.*\)\$"\`
|
|
shift
|
|
sh 1>&4 -c "\$*"
|
|
echo " "
|
|
$myecho
|
|
;;
|
|
"\$ans")
|
|
case "\$ans" in
|
|
\\&*)
|
|
set x \`expr "X\$ans" : "X&\(.*\)\$"\`
|
|
shift
|
|
case "\$1" in
|
|
-d)
|
|
fastread=yes
|
|
echo "(OK, I'll run with -d after this question.)" >&4
|
|
;;
|
|
-*)
|
|
echo "*** Sorry, \$1 not supported yet." >&4
|
|
;;
|
|
esac
|
|
$myecho
|
|
ans=!
|
|
;;
|
|
esac;;
|
|
*)
|
|
case "\$aok" in
|
|
y)
|
|
echo "*** Substitution done -- please confirm."
|
|
xxxm="\$ans"
|
|
ans=\`echo $n "\$ans$c" | tr '$trnl' ' '\`
|
|
xxxm="\$ans"
|
|
ans=!
|
|
;;
|
|
*)
|
|
echo "*** Error -- try again."
|
|
ans=!
|
|
;;
|
|
esac
|
|
$myecho
|
|
;;
|
|
esac
|
|
case "\$ans\$xxxm\$nostick" in
|
|
'')
|
|
ans=!
|
|
$myecho
|
|
;;
|
|
esac
|
|
done
|
|
case "\$ans" in
|
|
'') ans="\$xxxm";;
|
|
esac
|
|
EOSC
|
|
|
|
: create .config dir to save info across Configure sessions
|
|
test -d ../.config || mkdir ../.config
|
|
cat >../.config/README <<EOF
|
|
This directory created by Configure to save information that should
|
|
persist across sessions for $package.
|
|
|
|
You may safely delete it if you wish.
|
|
EOF
|
|
|
|
xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
|
|
case "$usedevel" in
|
|
$define|true|[yY]*) ;;
|
|
*) case "$xversion" in
|
|
*[13579])
|
|
cat >&4 <<EOH
|
|
*** WHOA THERE!!! ***
|
|
|
|
This is an UNSTABLE DEVELOPMENT release.
|
|
The version of this $package distribution is $xversion, that is, odd,
|
|
(as opposed to even) and that signifies a development release.
|
|
If you want a maintenance release, you want an even-numbered version.
|
|
|
|
Do ***NOT*** install this into production use.
|
|
Data corruption and crashes are possible.
|
|
|
|
It is most seriously suggested that you do not continue any further
|
|
unless you want to help in developing and debugging Perl.
|
|
|
|
If you *still* want to build perl, you can answer 'y' now,
|
|
or pass -Dusedevel to Configure.
|
|
|
|
EOH
|
|
rp='Do you really want to continue?'
|
|
dflt='n'
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]) echo >&4 "Okay, continuing." ;;
|
|
*) echo >&4 "Okay, bye."
|
|
exit 1
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: general instructions
|
|
needman=true
|
|
firsttime=true
|
|
user=`(logname) 2>/dev/null`
|
|
case "$user" in
|
|
'') user=`whoami 2>&1`;;
|
|
esac
|
|
if $contains "^$user\$" ../.config/instruct >/dev/null 2>&1; then
|
|
firsttime=false
|
|
echo " "
|
|
rp='Would you like to see the instructions?'
|
|
dflt=n
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) ;;
|
|
*) needman=false;;
|
|
esac
|
|
fi
|
|
if $needman; then
|
|
cat <<EOH
|
|
|
|
This installation shell script will examine your system and ask you questions
|
|
to determine how the perl5 package should be installed. If you get
|
|
stuck on a question, you may use a ! shell escape to start a subshell or
|
|
execute a command. Many of the questions will have default answers in square
|
|
brackets; typing carriage return will give you the default.
|
|
|
|
On some of the questions which ask for file or directory names you are allowed
|
|
to use the ~name construct to specify the login directory belonging to "name",
|
|
even if you don't have a shell which knows about that. Questions where this is
|
|
allowed will be marked "(~name ok)".
|
|
|
|
EOH
|
|
rp=''
|
|
dflt='Type carriage return to continue'
|
|
. ./myread
|
|
cat <<'EOH'
|
|
|
|
The prompter used in this script allows you to use shell variables and
|
|
backticks in your answers. You may use $1, $2, etc... to refer to the words
|
|
in the default answer, as if the default line was a set of arguments given to a
|
|
script shell. This means you may also use $* to repeat the whole default line,
|
|
so you do not have to re-type everything to add something to the default.
|
|
|
|
Everytime there is a substitution, you will have to confirm. If there is an
|
|
error (e.g. an unmatched backtick), the default answer will remain unchanged
|
|
and you will be prompted again.
|
|
|
|
If you are in a hurry, you may run 'Configure -d'. This will bypass nearly all
|
|
the questions and use the computed defaults (or the previous answers if there
|
|
was already a config.sh file). Type 'Configure -h' for a list of options.
|
|
You may also start interactively and then answer '& -d' at any prompt to turn
|
|
on the non-interactive behaviour for the remainder of the execution.
|
|
|
|
EOH
|
|
. ./myread
|
|
cat <<EOH
|
|
|
|
Much effort has been expended to ensure that this shell script will run on any
|
|
Unix system. If despite that it blows up on yours, your best bet is to edit
|
|
Configure and run it again. If you can't run Configure for some reason,
|
|
you'll have to generate a config.sh file by hand. Whatever problems you
|
|
have, let me (perlbug@perl.org) know how I blew it.
|
|
|
|
This installation script affects things in two ways:
|
|
|
|
1) it may do direct variable substitutions on some of the files included
|
|
in this kit.
|
|
2) it builds a config.h file for inclusion in C programs. You may edit
|
|
any of these files as the need arises after running this script.
|
|
|
|
If you make a mistake on a question, there is no easy way to back up to it
|
|
currently. The easiest thing to do is to edit config.sh and rerun all the SH
|
|
files. Configure will offer to let you do this before it runs the SH files.
|
|
|
|
EOH
|
|
dflt='Type carriage return to continue'
|
|
. ./myread
|
|
case "$firsttime" in
|
|
true) echo $user >>../.config/instruct;;
|
|
esac
|
|
fi
|
|
|
|
: find out where common programs are
|
|
echo " "
|
|
echo "Locating common programs..." >&4
|
|
cat <<EOSC >loc
|
|
$startsh
|
|
case \$# in
|
|
0) exit 1;;
|
|
esac
|
|
thing=\$1
|
|
shift
|
|
dflt=\$1
|
|
shift
|
|
for dir in \$*; do
|
|
case "\$thing" in
|
|
.)
|
|
if test -d \$dir/\$thing; then
|
|
echo \$dir
|
|
exit 0
|
|
fi
|
|
;;
|
|
*)
|
|
for thisthing in \$dir/\$thing; do
|
|
: just loop through to pick last item
|
|
done
|
|
if test -f \$thisthing; then
|
|
echo \$thisthing
|
|
exit 0
|
|
elif test -f \$dir/\$thing.exe; then
|
|
if test -n "$DJGPP"; then
|
|
echo \$dir/\$thing.exe
|
|
else
|
|
: on Eunice apparently
|
|
echo \$dir/\$thing
|
|
fi
|
|
exit 0
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
echo \$dflt
|
|
exit 1
|
|
EOSC
|
|
chmod +x loc
|
|
$eunicefix loc
|
|
loclist="
|
|
awk
|
|
cat
|
|
comm
|
|
cp
|
|
echo
|
|
expr
|
|
grep
|
|
ls
|
|
make
|
|
mkdir
|
|
rm
|
|
sed
|
|
sort
|
|
touch
|
|
tr
|
|
uniq
|
|
"
|
|
trylist="
|
|
Mcc
|
|
ar
|
|
bison
|
|
byacc
|
|
cpp
|
|
csh
|
|
date
|
|
egrep
|
|
gzip
|
|
less
|
|
ln
|
|
more
|
|
nm
|
|
nroff
|
|
pg
|
|
test
|
|
uname
|
|
zip
|
|
"
|
|
pth=`echo $PATH | sed -e "s/$p_/ /g"`
|
|
pth="$pth /lib /usr/lib"
|
|
for file in $loclist; do
|
|
eval xxx=\$$file
|
|
case "$xxx" in
|
|
/*|?:[\\/]*)
|
|
if test -f "$xxx"; then
|
|
: ok
|
|
else
|
|
echo "WARNING: no $xxx -- ignoring your setting for $file." >&4
|
|
xxx=`./loc $file $file $pth`
|
|
fi
|
|
;;
|
|
'') xxx=`./loc $file $file $pth`;;
|
|
*) xxx=`./loc $xxx $xxx $pth`;;
|
|
esac
|
|
eval $file=$xxx
|
|
eval _$file=$xxx
|
|
case "$xxx" in
|
|
/*)
|
|
echo $file is in $xxx.
|
|
;;
|
|
?:[\\/]*)
|
|
echo $file is in $xxx.
|
|
;;
|
|
*)
|
|
echo "I don't know where '$file' is, and my life depends on it." >&4
|
|
echo "Go find a public domain implementation or fix your PATH setting!" >&4
|
|
exit 1
|
|
;;
|
|
esac
|
|
done
|
|
echo " "
|
|
echo "Don't worry if any of the following aren't found..."
|
|
say=offhand
|
|
for file in $trylist; do
|
|
eval xxx=\$$file
|
|
case "$xxx" in
|
|
/*|?:[\\/]*)
|
|
if test -f "$xxx"; then
|
|
: ok
|
|
else
|
|
echo "WARNING: no $xxx -- ignoring your setting for $file." >&4
|
|
xxx=`./loc $file $file $pth`
|
|
fi
|
|
;;
|
|
'') xxx=`./loc $file $file $pth`;;
|
|
*) xxx=`./loc $xxx $xxx $pth`;;
|
|
esac
|
|
eval $file=$xxx
|
|
eval _$file=$xxx
|
|
case "$xxx" in
|
|
/*)
|
|
echo $file is in $xxx.
|
|
;;
|
|
?:[\\/]*)
|
|
echo $file is in $xxx.
|
|
;;
|
|
*)
|
|
echo "I don't see $file out there, $say."
|
|
say=either
|
|
;;
|
|
esac
|
|
done
|
|
case "$egrep" in
|
|
egrep)
|
|
echo "Substituting grep for egrep."
|
|
egrep=$grep
|
|
;;
|
|
esac
|
|
case "$ln" in
|
|
ln)
|
|
echo "Substituting cp for ln."
|
|
ln=$cp
|
|
;;
|
|
esac
|
|
case "$test" in
|
|
test)
|
|
echo "Hopefully test is built into your sh."
|
|
;;
|
|
*)
|
|
if `sh -c "PATH= test true" >/dev/null 2>&1`; then
|
|
echo "Using the test built into your sh."
|
|
echo "Using the test built into your sh."
|
|
test=test
|
|
_test=test
|
|
fi
|
|
;;
|
|
esac
|
|
case "$echo" in
|
|
echo)
|
|
echo "Hopefully echo is built into your sh."
|
|
;;
|
|
'') ;;
|
|
*)
|
|
echo " "
|
|
echo "Checking compatibility between $echo and builtin echo (if any)..." >&4
|
|
$echo $n "hi there$c" >foo1
|
|
echo $n "hi there$c" >foo2
|
|
if cmp foo1 foo2 >/dev/null 2>&1; then
|
|
echo "They are compatible. In fact, they may be identical."
|
|
else
|
|
case "$n" in
|
|
'-n') n='' c='\c';;
|
|
*) n='-n' c='';;
|
|
esac
|
|
cat <<FOO
|
|
They are not compatible! You are probably running ksh on a non-USG system.
|
|
I'll have to use $echo instead of the builtin, since Bourne shell doesn't
|
|
have echo built in and we may have to run some Bourne shell scripts. That
|
|
means I'll have to use '$n$c' to suppress newlines now. Life is ridiculous.
|
|
|
|
FOO
|
|
$echo $n "The star should be here-->$c"
|
|
$echo "*"
|
|
fi
|
|
$rm -f foo1 foo2
|
|
;;
|
|
esac
|
|
|
|
cat <<EOS >checkcc
|
|
$startsh
|
|
EOS
|
|
cat <<'EOSC' >>checkcc
|
|
case "$cc" in
|
|
'') ;;
|
|
*) $rm -f try try.*
|
|
$cat >try.c <<EOM
|
|
int main(int argc, char *argv[]) {
|
|
return 0;
|
|
}
|
|
EOM
|
|
if $cc -o try $ccflags try.c; then
|
|
:
|
|
else
|
|
echo "Uh-oh, the C compiler '$cc' doesn't seem to be working." >&4
|
|
despair=yes
|
|
trygcc=yes
|
|
case "$cc" in
|
|
*gcc*) trygcc=no ;;
|
|
esac
|
|
case "`$cc -v -c try.c 2>&1`" in
|
|
*gcc*) trygcc=no ;;
|
|
esac
|
|
if $test X"$trygcc" = Xyes; then
|
|
if gcc -o try -c try.c; then
|
|
echo " "
|
|
echo "You seem to have a working gcc, though." >&4
|
|
rp="Would you like to use it?"
|
|
dflt=y
|
|
if $test -f myread; then
|
|
. ./myread
|
|
else
|
|
if $test -f UU/myread; then
|
|
. ./UU/myread
|
|
else
|
|
echo "Cannot find myread, sorry. Aborting." >&2
|
|
exit 1
|
|
fi
|
|
fi
|
|
case "$ans" in
|
|
[yY]*) cc=gcc; ccname=gcc; ccflags=''; despair=no ;;
|
|
esac
|
|
fi
|
|
fi
|
|
if $test X"$despair" = Xyes; then
|
|
$cat >&4 <<EOM
|
|
You need to find a working C compiler.
|
|
Either (purchase and) install the C compiler supplied by your OS vendor,
|
|
or for a free C compiler try http://gcc.gnu.org/
|
|
I cannot continue any further, aborting.
|
|
EOM
|
|
exit 1
|
|
fi
|
|
fi
|
|
$rm -f try try.*
|
|
;;
|
|
esac
|
|
EOSC
|
|
|
|
: determine whether symbolic links are supported
|
|
echo " "
|
|
$touch blurfl
|
|
if $ln -s blurfl sym > /dev/null 2>&1 ; then
|
|
echo "Symbolic links are supported." >&4
|
|
lns="$ln -s"
|
|
else
|
|
echo "Symbolic links are NOT supported." >&4
|
|
lns="$ln"
|
|
fi
|
|
$rm -f blurfl sym
|
|
|
|
: determine whether symbolic links are supported
|
|
echo " "
|
|
case "$lns" in
|
|
*"ln -s")
|
|
echo "Checking how to test for symbolic links..." >&4
|
|
$lns blurfl sym
|
|
if $test "X$issymlink" = X; then
|
|
sh -c "PATH= test -h sym" >/dev/null 2>&1
|
|
if test $? = 0; then
|
|
issymlink="test -h"
|
|
fi
|
|
fi
|
|
if $test "X$issymlink" = X; then
|
|
if $test -h >/dev/null 2>&1; then
|
|
issymlink="$test -h"
|
|
echo "Your builtin 'test -h' may be broken, I'm using external '$test -h'." >&4
|
|
fi
|
|
fi
|
|
if $test "X$issymlink" = X; then
|
|
if $test -L sym 2>/dev/null; then
|
|
issymlink="$test -L"
|
|
fi
|
|
fi
|
|
if $test "X$issymlink" != X; then
|
|
echo "You can test for symbolic links with '$issymlink'." >&4
|
|
else
|
|
echo "I do not know how you can test for symbolic links." >&4
|
|
fi
|
|
$rm -f blurfl sym
|
|
;;
|
|
*) echo "No symbolic links, so not testing for their testing..." >&4
|
|
;;
|
|
esac
|
|
echo " "
|
|
|
|
|
|
case "$mksymlinks" in
|
|
$define|true|[yY]*)
|
|
case "$src" in
|
|
''|'.') echo "Cannot create symlinks in the original directory." >&4
|
|
exit 1
|
|
;;
|
|
*) case "$lns:$issymlink" in
|
|
*"ln -s:"*"test -"?)
|
|
echo "Creating the symbolic links..." >&4
|
|
echo "(First creating the subdirectories...)" >&4
|
|
cd ..
|
|
awk '{print $1}' $src/MANIFEST | grep / | sed 's:/[^/]*$::' | sort -u | while true; do
|
|
read directory
|
|
test -z "$directory" && break
|
|
mkdir -p $directory
|
|
done
|
|
# Sanity check 1.
|
|
if test ! -d t/base; then
|
|
echo "Failed to create the subdirectories. Aborting." >&4
|
|
exit 1
|
|
fi
|
|
echo "(Then creating the symlinks...)" >&4
|
|
awk '{print $1}' $src/MANIFEST | while true; do
|
|
read filename
|
|
test -z "$filename" && break
|
|
if test -f $filename; then
|
|
if $issymlink $filename; then
|
|
rm -f $filename
|
|
fi
|
|
fi
|
|
if test -f $filename; then
|
|
echo "$filename already exists, not symlinking."
|
|
else
|
|
ln -s $src/$filename $filename
|
|
fi
|
|
done
|
|
# Sanity check 2.
|
|
if test ! -f t/base/cond.t; then
|
|
echo "Failed to create the symlinks. Aborting." >&4
|
|
exit 1
|
|
fi
|
|
cd UU
|
|
;;
|
|
*) echo "(I cannot figure out how to do symbolic links, ignoring mksymlinks)." >&4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: see whether [:lower:] and [:upper:] are supported character classes
|
|
echo " "
|
|
case "`echo AbyZ | $tr '[:lower:]' '[:upper:]' 2>/dev/null`" in
|
|
ABYZ)
|
|
echo "Good, your tr supports [:lower:] and [:upper:] to convert case." >&4
|
|
up='[:upper:]'
|
|
low='[:lower:]'
|
|
;;
|
|
*) # There is a discontinuity in EBCDIC between 'I' and 'J'
|
|
# (0xc9 and 0xd1), therefore that is a nice testing point.
|
|
if test "X$up" = X -o "X$low" = X; then
|
|
case "`echo IJ | $tr '[I-J]' '[i-j]' 2>/dev/null`" in
|
|
ij) up='[A-Z]'
|
|
low='[a-z]'
|
|
;;
|
|
esac
|
|
fi
|
|
if test "X$up" = X -o "X$low" = X; then
|
|
case "`echo IJ | $tr I-J i-j 2>/dev/null`" in
|
|
ij) up='A-Z'
|
|
low='a-z'
|
|
;;
|
|
esac
|
|
fi
|
|
if test "X$up" = X -o "X$low" = X; then
|
|
case "`echo IJ | od -x 2>/dev/null`" in
|
|
*C9D1*|*c9d1*)
|
|
echo "Hey, this might be EBCDIC." >&4
|
|
if test "X$up" = X -o "X$low" = X; then
|
|
case "`echo IJ | $tr '[A-IJ-RS-Z]' '[a-ij-rs-z]' 2>/dev/null`" in
|
|
ij) up='[A-IJ-RS-Z]'
|
|
low='[a-ij-rs-z]'
|
|
;;
|
|
esac
|
|
fi
|
|
if test "X$up" = X -o "X$low" = X; then
|
|
case "`echo IJ | $tr A-IJ-RS-Z a-ij-rs-z 2>/dev/null`" in
|
|
ij) up='A-IJ-RS-Z'
|
|
low='a-ij-rs-z'
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
fi
|
|
esac
|
|
case "`echo IJ | $tr \"$up\" \"$low\" 2>/dev/null`" in
|
|
ij)
|
|
echo "Using $up and $low to convert case." >&4
|
|
;;
|
|
*)
|
|
echo "I don't know how to translate letters from upper to lower case." >&4
|
|
echo "Your tr is not acting any way I know of." >&4
|
|
exit 1
|
|
;;
|
|
esac
|
|
: set up the translation script tr, must be called with ./tr of course
|
|
cat >tr <<EOSC
|
|
$startsh
|
|
case "\$1\$2" in
|
|
'[A-Z][a-z]') exec $tr '$up' '$low';;
|
|
'[a-z][A-Z]') exec $tr '$low' '$up';;
|
|
esac
|
|
exec $tr "\$@"
|
|
EOSC
|
|
chmod +x tr
|
|
$eunicefix tr
|
|
|
|
: Try to determine whether config.sh was made on this system
|
|
case "$config_sh" in
|
|
'')
|
|
myuname=`$uname -a 2>/dev/null`
|
|
$test -z "$myuname" && myuname=`hostname 2>/dev/null`
|
|
# tr '[A-Z]' '[a-z]' would not work in EBCDIC
|
|
# because the A-Z/a-z are not consecutive.
|
|
myuname=`echo $myuname | $sed -e 's/^[^=]*=//' -e 's/\///g' | \
|
|
./tr '[A-Z]' '[a-z]' | $tr $trnl ' '`
|
|
newmyuname="$myuname"
|
|
dflt=n
|
|
case "$knowitall" in
|
|
'')
|
|
if test -f ../config.sh; then
|
|
if $contains myuname= ../config.sh >/dev/null 2>&1; then
|
|
eval "`grep myuname= ../config.sh`"
|
|
fi
|
|
if test "X$myuname" = "X$newmyuname"; then
|
|
dflt=y
|
|
fi
|
|
fi
|
|
;;
|
|
*) dflt=y;;
|
|
esac
|
|
|
|
: Get old answers from old config file if Configure was run on the
|
|
: same system, otherwise use the hints.
|
|
hint=default
|
|
cd ..
|
|
if test -f config.sh; then
|
|
echo " "
|
|
rp="I see a config.sh file. Shall I use it to set the defaults?"
|
|
. UU/myread
|
|
case "$ans" in
|
|
n*|N*) echo "OK, I'll ignore it."
|
|
mv config.sh config.sh.old
|
|
myuname="$newmyuname"
|
|
;;
|
|
*) echo "Fetching default answers from your old config.sh file..." >&4
|
|
tmp_n="$n"
|
|
tmp_c="$c"
|
|
tmp_sh="$sh"
|
|
. ./config.sh
|
|
cp config.sh UU
|
|
n="$tmp_n"
|
|
c="$tmp_c"
|
|
: Older versions did not always set $sh. Catch re-use of such
|
|
: an old config.sh.
|
|
case "$sh" in
|
|
'') sh="$tmp_sh" ;;
|
|
esac
|
|
hint=previous
|
|
;;
|
|
esac
|
|
fi
|
|
. ./UU/checkcc
|
|
if test ! -f config.sh; then
|
|
$cat <<EOM
|
|
|
|
First time through, eh? I have some defaults handy for some systems
|
|
that need some extra help getting the Configure answers right:
|
|
|
|
EOM
|
|
(cd $src/hints; ls -C *.sh) | $sed 's/\.sh/ /g' >&4
|
|
dflt=''
|
|
: Half the following guesses are probably wrong... If you have better
|
|
: tests or hints, please send them to perlbug@perl.org
|
|
: The metaconfig authors would also appreciate a copy...
|
|
$test -f /irix && osname=irix
|
|
$test -f /xenix && osname=sco_xenix
|
|
$test -f /dynix && osname=dynix
|
|
$test -f /dnix && osname=dnix
|
|
$test -f /lynx.os && osname=lynxos
|
|
$test -f /unicos && osname=unicos && osvers=`$uname -r`
|
|
$test -f /unicosmk && osname=unicosmk && osvers=`$uname -r`
|
|
$test -f /unicosmk.ar && osname=unicosmk && osvers=`$uname -r`
|
|
$test -f /bin/mips && /bin/mips && osname=mips
|
|
$test -d /NextApps && set X `hostinfo | grep 'NeXT Mach.*:' | \
|
|
$sed -e 's/://' -e 's/\./_/'` && osname=next && osvers=$4
|
|
$test -d /usr/apollo/bin && osname=apollo
|
|
$test -f /etc/saf/_sactab && osname=svr4
|
|
$test -d /usr/include/minix && osname=minix
|
|
if $test -d /MachTen -o -d /MachTen_Folder; then
|
|
osname=machten
|
|
if $test -x /sbin/version; then
|
|
osvers=`/sbin/version | $awk '{print $2}' |
|
|
$sed -e 's/[A-Za-z]$//'`
|
|
elif $test -x /usr/etc/version; then
|
|
osvers=`/usr/etc/version | $awk '{print $2}' |
|
|
$sed -e 's/[A-Za-z]$//'`
|
|
else
|
|
osvers="$2.$3"
|
|
fi
|
|
fi
|
|
|
|
$test -f /sys/posix.dll &&
|
|
$test -f /usr/bin/what &&
|
|
set X `/usr/bin/what /sys/posix.dll` &&
|
|
$test "$3" = UWIN &&
|
|
osname=uwin &&
|
|
osvers="$5"
|
|
|
|
if $test -f $uname; then
|
|
set X $myuname
|
|
shift
|
|
|
|
case "$5" in
|
|
fps*) osname=fps ;;
|
|
mips*)
|
|
case "$4" in
|
|
umips) osname=umips ;;
|
|
*) osname=mips ;;
|
|
esac;;
|
|
[23]100) osname=mips ;;
|
|
next*) osname=next ;;
|
|
i386*)
|
|
tmp=`/bin/uname -X 2>/dev/null|awk '/3\.2v[45]/{ print $(NF) }'`
|
|
if $test "$tmp" != "" -a "$3" = "3.2" -a -f '/etc/systemid'; then
|
|
osname='sco'
|
|
osvers=$tmp
|
|
elif $test -f /etc/kconfig; then
|
|
osname=isc
|
|
if test "$lns" = "$ln -s"; then
|
|
osvers=4
|
|
elif $contains _SYSV3 /usr/include/stdio.h > /dev/null 2>&1 ; then
|
|
osvers=3
|
|
elif $contains _POSIX_SOURCE /usr/include/stdio.h > /dev/null 2>&1 ; then
|
|
osvers=2
|
|
fi
|
|
fi
|
|
tmp=''
|
|
;;
|
|
pc*)
|
|
if test -n "$DJGPP"; then
|
|
osname=dos
|
|
osvers=djgpp
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
case "$1" in
|
|
aix) osname=aix
|
|
tmp=`( (oslevel) 2>/dev/null || echo "not found") 2>&1`
|
|
case "$tmp" in
|
|
'not found') osvers="$4"."$3" ;;
|
|
'<3240'|'<>3240') osvers=3.2.0 ;;
|
|
'=3240'|'>3240'|'<3250'|'<>3250') osvers=3.2.4 ;;
|
|
'=3250'|'>3250') osvers=3.2.5 ;;
|
|
*) osvers=$tmp;;
|
|
esac
|
|
;;
|
|
bsd386) osname=bsd386
|
|
osvers=`$uname -r`
|
|
;;
|
|
cygwin*) osname=cygwin
|
|
osvers="$3"
|
|
;;
|
|
*dc.osx) osname=dcosx
|
|
osvers="$3"
|
|
;;
|
|
dnix) osname=dnix
|
|
osvers="$3"
|
|
;;
|
|
domainos) osname=apollo
|
|
osvers="$3"
|
|
;;
|
|
dgux) osname=dgux
|
|
osvers="$3"
|
|
;;
|
|
dynixptx*) osname=dynixptx
|
|
osvers=`echo "$4"|sed 's/^v//'`
|
|
;;
|
|
freebsd) osname=freebsd
|
|
osvers="$3" ;;
|
|
genix) osname=genix ;;
|
|
hp*) osname=hpux
|
|
osvers=`echo "$3" | $sed 's,.*\.\([0-9]*\.[0-9]*\),\1,'`
|
|
;;
|
|
irix*) osname=irix
|
|
case "$3" in
|
|
4*) osvers=4 ;;
|
|
5*) osvers=5 ;;
|
|
*) osvers="$3" ;;
|
|
esac
|
|
;;
|
|
linux) osname=linux
|
|
case "$3" in
|
|
*) osvers="$3" ;;
|
|
esac
|
|
;;
|
|
MiNT) osname=mint
|
|
;;
|
|
netbsd*) osname=netbsd
|
|
osvers="$3"
|
|
;;
|
|
news-os) osvers="$3"
|
|
case "$3" in
|
|
4*) osname=newsos4 ;;
|
|
*) osname=newsos ;;
|
|
esac
|
|
;;
|
|
next*) osname=next ;;
|
|
nonstop-ux) osname=nonstopux ;;
|
|
POSIX-BC | posix-bc ) osname=posix-bc
|
|
osvers="$3"
|
|
;;
|
|
powerux | power_ux | powermax_os | powermaxos | \
|
|
powerunix | power_unix) osname=powerux
|
|
osvers="$3"
|
|
;;
|
|
qnx) osname=qnx
|
|
osvers="$4"
|
|
;;
|
|
solaris) osname=solaris
|
|
case "$3" in
|
|
5*) osvers=`echo $3 | $sed 's/^5/2/g'` ;;
|
|
*) osvers="$3" ;;
|
|
esac
|
|
;;
|
|
sunos) osname=sunos
|
|
case "$3" in
|
|
5*) osname=solaris
|
|
osvers=`echo $3 | $sed 's/^5/2/g'` ;;
|
|
*) osvers="$3" ;;
|
|
esac
|
|
;;
|
|
titanos) osname=titanos
|
|
case "$3" in
|
|
1*) osvers=1 ;;
|
|
2*) osvers=2 ;;
|
|
3*) osvers=3 ;;
|
|
4*) osvers=4 ;;
|
|
*) osvers="$3" ;;
|
|
esac
|
|
;;
|
|
ultrix) osname=ultrix
|
|
osvers="$3"
|
|
;;
|
|
osf1|mls+) case "$5" in
|
|
alpha)
|
|
osname=dec_osf
|
|
osvers=`echo "$3" | sed 's/^[xvt]//'`
|
|
;;
|
|
hp*) osname=hp_osf1 ;;
|
|
mips) osname=mips_osf1 ;;
|
|
esac
|
|
;;
|
|
unixware) osname=svr5
|
|
osvers="$4"
|
|
;;
|
|
uts) osname=uts
|
|
osvers="$3"
|
|
;;
|
|
$2) case "$osname" in
|
|
*isc*) ;;
|
|
*freebsd*) ;;
|
|
svr*)
|
|
: svr4.x or possibly later
|
|
case "svr$3" in
|
|
${osname}*)
|
|
osname=svr$3
|
|
osvers=$4
|
|
;;
|
|
esac
|
|
case "$osname" in
|
|
svr4.0)
|
|
: Check for ESIX
|
|
if test -f /stand/boot ; then
|
|
eval `grep '^INITPROG=[a-z/0-9]*$' /stand/boot`
|
|
if test -n "$INITPROG" -a -f "$INITPROG"; then
|
|
isesix=`strings -a $INITPROG|grep 'ESIX SYSTEM V/386 Release 4.0'`
|
|
if test -n "$isesix"; then
|
|
osname=esix4
|
|
fi
|
|
fi
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
*) if test -f /etc/systemid; then
|
|
osname=sco
|
|
set `echo $3 | $sed 's/\./ /g'` $4
|
|
if $test -f $src/hints/sco_$1_$2_$3.sh; then
|
|
osvers=$1.$2.$3
|
|
elif $test -f $src/hints/sco_$1_$2.sh; then
|
|
osvers=$1.$2
|
|
elif $test -f $src/hints/sco_$1.sh; then
|
|
osvers=$1
|
|
fi
|
|
else
|
|
case "$osname" in
|
|
'') : Still unknown. Probably a generic Sys V.
|
|
osname="sysv"
|
|
osvers="$3"
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
*) case "$osname" in
|
|
'') : Still unknown. Probably a generic BSD.
|
|
osname="$1"
|
|
osvers="$3"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
else
|
|
if test -f /vmunix -a -f $src/hints/news_os.sh; then
|
|
(what /vmunix | UU/tr '[A-Z]' '[a-z]') > UU/kernel.what 2>&1
|
|
if $contains news-os UU/kernel.what >/dev/null 2>&1; then
|
|
osname=news_os
|
|
fi
|
|
$rm -f UU/kernel.what
|
|
elif test -d c:/.; then
|
|
set X $myuname
|
|
osname=os2
|
|
osvers="$5"
|
|
fi
|
|
fi
|
|
|
|
: Now look for a hint file osname_osvers, unless one has been
|
|
: specified already.
|
|
case "$hintfile" in
|
|
''|' ')
|
|
file=`echo "${osname}_${osvers}" | $sed -e 's%\.%_%g' -e 's%_$%%'`
|
|
: Also try without trailing minor version numbers.
|
|
xfile=`echo $file | $sed -e 's%_[^_]*$%%'`
|
|
xxfile=`echo $xfile | $sed -e 's%_[^_]*$%%'`
|
|
xxxfile=`echo $xxfile | $sed -e 's%_[^_]*$%%'`
|
|
xxxxfile=`echo $xxxfile | $sed -e 's%_[^_]*$%%'`
|
|
case "$file" in
|
|
'') dflt=none ;;
|
|
*) case "$osvers" in
|
|
'') dflt=$file
|
|
;;
|
|
*) if $test -f $src/hints/$file.sh ; then
|
|
dflt=$file
|
|
elif $test -f $src/hints/$xfile.sh ; then
|
|
dflt=$xfile
|
|
elif $test -f $src/hints/$xxfile.sh ; then
|
|
dflt=$xxfile
|
|
elif $test -f $src/hints/$xxxfile.sh ; then
|
|
dflt=$xxxfile
|
|
elif $test -f $src/hints/$xxxxfile.sh ; then
|
|
dflt=$xxxxfile
|
|
elif $test -f "$src/hints/${osname}.sh" ; then
|
|
dflt="${osname}"
|
|
else
|
|
dflt=none
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
if $test -f Policy.sh ; then
|
|
case "$dflt" in
|
|
*Policy*) ;;
|
|
none) dflt="Policy" ;;
|
|
*) dflt="Policy $dflt" ;;
|
|
esac
|
|
fi
|
|
;;
|
|
*)
|
|
dflt=`echo $hintfile | $sed 's/\.sh$//'`
|
|
;;
|
|
esac
|
|
|
|
if $test -f Policy.sh ; then
|
|
$cat <<EOM
|
|
|
|
There's also a Policy hint file available, which should make the
|
|
site-specific (policy) questions easier to answer.
|
|
EOM
|
|
|
|
fi
|
|
|
|
$cat <<EOM
|
|
|
|
You may give one or more space-separated answers, or "none" if appropriate.
|
|
A well-behaved OS will have no hints, so answering "none" or just "Policy"
|
|
is a good thing. DO NOT give a wrong version or a wrong OS.
|
|
|
|
EOM
|
|
|
|
rp="Which of these apply, if any?"
|
|
. UU/myread
|
|
tans=$ans
|
|
for file in $tans; do
|
|
if $test X$file = XPolicy -a -f Policy.sh; then
|
|
. Policy.sh
|
|
$cat Policy.sh >> UU/config.sh
|
|
elif $test -f $src/hints/$file.sh; then
|
|
. $src/hints/$file.sh
|
|
$cat $src/hints/$file.sh >> UU/config.sh
|
|
elif $test X$tans = X -o X$tans = Xnone ; then
|
|
: nothing
|
|
else
|
|
: Give one chance to correct a possible typo.
|
|
echo "$file.sh does not exist"
|
|
dflt=$file
|
|
rp="hint to use instead?"
|
|
. UU/myread
|
|
for file in $ans; do
|
|
if $test -f "$src/hints/$file.sh"; then
|
|
. $src/hints/$file.sh
|
|
$cat $src/hints/$file.sh >> UU/config.sh
|
|
elif $test X$ans = X -o X$ans = Xnone ; then
|
|
: nothing
|
|
else
|
|
echo "$file.sh does not exist -- ignored."
|
|
fi
|
|
done
|
|
fi
|
|
done
|
|
|
|
hint=recommended
|
|
: Remember our hint file for later.
|
|
if $test -f "$src/hints/$file.sh" ; then
|
|
hintfile="$file"
|
|
else
|
|
hintfile=''
|
|
fi
|
|
fi
|
|
cd UU
|
|
;;
|
|
*)
|
|
echo " "
|
|
echo "Fetching default answers from $config_sh..." >&4
|
|
tmp_n="$n"
|
|
tmp_c="$c"
|
|
cd ..
|
|
cp $config_sh config.sh 2>/dev/null
|
|
chmod +w config.sh
|
|
. ./config.sh
|
|
cd UU
|
|
cp ../config.sh .
|
|
n="$tmp_n"
|
|
c="$tmp_c"
|
|
hint=previous
|
|
;;
|
|
esac
|
|
test "$override" && . ./optdef.sh
|
|
|
|
: Restore computed paths
|
|
for file in $loclist $trylist; do
|
|
eval $file="\$_$file"
|
|
done
|
|
|
|
cat << EOM
|
|
|
|
Configure uses the operating system name and version to set some defaults.
|
|
The default value is probably right if the name rings a bell. Otherwise,
|
|
since spelling matters for me, either accept the default or answer "none"
|
|
to leave it blank.
|
|
|
|
EOM
|
|
case "$osname" in
|
|
''|' ')
|
|
case "$hintfile" in
|
|
''|' '|none) dflt=none ;;
|
|
*) dflt=`echo $hintfile | $sed -e 's/\.sh$//' -e 's/_.*$//'` ;;
|
|
esac
|
|
;;
|
|
*) dflt="$osname" ;;
|
|
esac
|
|
rp="Operating system name?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) osname='' ;;
|
|
*) osname=`echo "$ans" | $sed -e 's/[ ][ ]*/_/g' | ./tr '[A-Z]' '[a-z]'`;;
|
|
esac
|
|
echo " "
|
|
case "$osvers" in
|
|
''|' ')
|
|
case "$hintfile" in
|
|
''|' '|none) dflt=none ;;
|
|
*) dflt=`echo $hintfile | $sed -e 's/\.sh$//' -e 's/^[^_]*//'`
|
|
dflt=`echo $dflt | $sed -e 's/^_//' -e 's/_/./g'`
|
|
case "$dflt" in
|
|
''|' ') dflt=none ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
*) dflt="$osvers" ;;
|
|
esac
|
|
rp="Operating system version?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) osvers='' ;;
|
|
*) osvers="$ans" ;;
|
|
esac
|
|
|
|
|
|
. ./posthint.sh
|
|
|
|
: who configured the system
|
|
cf_time=`LC_ALL=C; LANGUAGE=C; export LC_ALL; export LANGUAGE; $date 2>&1`
|
|
cf_by=`(logname) 2>/dev/null`
|
|
case "$cf_by" in
|
|
"")
|
|
cf_by=`(whoami) 2>/dev/null`
|
|
case "$cf_by" in
|
|
"") cf_by=unknown ;;
|
|
esac ;;
|
|
esac
|
|
|
|
: set up the script used to warn in case of inconsistency
|
|
cat <<EOS >whoa
|
|
$startsh
|
|
EOS
|
|
cat <<'EOSC' >>whoa
|
|
dflt=y
|
|
echo " "
|
|
echo "*** WHOA THERE!!! ***" >&4
|
|
echo " The $hint value for \$$var on this machine was \"$was\"!" >&4
|
|
rp=" Keep the $hint value?"
|
|
. ./myread
|
|
case "$ans" in
|
|
y) td=$was; tu=$was;;
|
|
esac
|
|
EOSC
|
|
|
|
: 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";;
|
|
$undef$define) . ./whoa; eval "$var=\$tu";;
|
|
*) eval "$var=$val";;
|
|
esac'
|
|
|
|
case "$usethreads" in
|
|
$define|true|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
cat <<EOM
|
|
|
|
Perl can be built to take advantage of threads on some systems.
|
|
To do so, Configure can be run with -Dusethreads.
|
|
|
|
Note that threading is a highly experimental feature, and
|
|
some known race conditions still remain. If you choose to try
|
|
it, be very sure to not actually deploy it for production
|
|
purposes. README.threads has more details, and is required
|
|
reading if you enable threads.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Build a threading Perl?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set usethreads
|
|
eval $setvar
|
|
|
|
case "$usethreads" in
|
|
$define)
|
|
$cat <<EOM
|
|
|
|
As of 5.5.640, Perl has two different internal threading implementations,
|
|
the 5.005 version (5005threads) and an interpreter-based version
|
|
(ithreads) that has one interpreter per thread. Both are very
|
|
experimental. This arrangement exists to help developers work out
|
|
which one is better.
|
|
|
|
If you're a casual user, you probably don't want interpreter-threads
|
|
at this time. There doesn't yet exist a way to create threads from
|
|
within Perl in this model, i.e., "use Thread;" will NOT work.
|
|
EOM
|
|
: Default to ithreads unless overridden on command line or with
|
|
: old config.sh
|
|
dflt='y'
|
|
case "$use5005threads" in
|
|
$define|true|[yY]*) dflt='n';;
|
|
esac
|
|
case "$useithreads" in
|
|
$undef|false|[nN]*) dflt='n';;
|
|
esac
|
|
rp='Use interpreter-based ithreads?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set useithreads
|
|
eval $setvar
|
|
: Now set use5005threads to the opposite value.
|
|
case "$useithreads" in
|
|
$define) val="$undef" ;;
|
|
*) val="$define" ;;
|
|
esac
|
|
set use5005threads
|
|
eval $setvar
|
|
;;
|
|
*)
|
|
useithreads="$undef"
|
|
use5005threads="$undef"
|
|
;;
|
|
esac
|
|
|
|
case "$useithreads$use5005threads" in
|
|
"$define$define")
|
|
$cat >&4 <<EOM
|
|
|
|
You cannot have both the ithreads and the 5.005 threads enabled
|
|
at the same time. Disabling the 5.005 threads since they are
|
|
much less stable than the ithreads.
|
|
|
|
EOM
|
|
use5005threads="$undef"
|
|
;;
|
|
esac
|
|
|
|
case "$d_oldpthreads" in
|
|
'') : Configure tests would be welcome here. For now, assume undef.
|
|
val="$undef" ;;
|
|
*) val="$d_oldpthreads" ;;
|
|
esac
|
|
set d_oldpthreads
|
|
eval $setvar
|
|
|
|
|
|
case "$usethreads" in
|
|
"$define"|true|[yY]*)
|
|
: Look for a hint-file generated 'call-back-unit'. If the
|
|
: user has specified that a threading perl is to be built,
|
|
: we may need to set or change some other defaults.
|
|
if $test -f usethreads.cbu; then
|
|
echo "Your platform has some specific hints for threaded builds, using them..."
|
|
. ./usethreads.cbu
|
|
else
|
|
$cat <<EOM
|
|
(Your platform doesn't have any specific hints for threaded builds.
|
|
Assuming POSIX threads, then.)
|
|
EOM
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
cat <<EOM
|
|
|
|
Perl can be built so that multiple Perl interpreters can coexist
|
|
within the same Perl executable.
|
|
EOM
|
|
|
|
case "$useithreads" in
|
|
$define)
|
|
cat <<EOM
|
|
This multiple interpreter support is required for interpreter-based threads.
|
|
EOM
|
|
val="$define"
|
|
;;
|
|
*) case "$usemultiplicity" in
|
|
$define|true|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
echo " "
|
|
echo "If this doesn't make any sense to you, just accept the default '$dflt'."
|
|
rp='Build Perl for multiplicity?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
set usemultiplicity
|
|
eval $setvar
|
|
|
|
: make some quick guesses about what we are up against
|
|
echo " "
|
|
$echo $n "Hmm... $c"
|
|
echo exit 1 >bsd
|
|
echo exit 1 >usg
|
|
echo exit 1 >v7
|
|
echo exit 1 >osf1
|
|
echo exit 1 >eunice
|
|
echo exit 1 >xenix
|
|
echo exit 1 >venix
|
|
echo exit 1 >os2
|
|
d_bsd="$undef"
|
|
$cat /usr/include/signal.h /usr/include/sys/signal.h >foo 2>/dev/null
|
|
if test -f /osf_boot || $contains 'OSF/1' /usr/include/ctype.h >/dev/null 2>&1
|
|
then
|
|
echo "Looks kind of like an OSF/1 system, but we'll see..."
|
|
echo exit 0 >osf1
|
|
elif test `echo abc | $tr a-z A-Z` = Abc ; then
|
|
xxx=`./loc addbib blurfl $pth`
|
|
if $test -f $xxx; then
|
|
echo "Looks kind of like a USG system with BSD features, but we'll see..."
|
|
echo exit 0 >bsd
|
|
echo exit 0 >usg
|
|
else
|
|
if $contains SIGTSTP foo >/dev/null 2>&1 ; then
|
|
echo "Looks kind of like an extended USG system, but we'll see..."
|
|
else
|
|
echo "Looks kind of like a USG system, but we'll see..."
|
|
fi
|
|
echo exit 0 >usg
|
|
fi
|
|
elif $contains SIGTSTP foo >/dev/null 2>&1 ; then
|
|
echo "Looks kind of like a BSD system, but we'll see..."
|
|
d_bsd="$define"
|
|
echo exit 0 >bsd
|
|
else
|
|
echo "Looks kind of like a Version 7 system, but we'll see..."
|
|
echo exit 0 >v7
|
|
fi
|
|
case "$eunicefix" in
|
|
*unixtovms*)
|
|
$cat <<'EOI'
|
|
There is, however, a strange, musty smell in the air that reminds me of
|
|
something...hmm...yes...I've got it...there's a VMS nearby, or I'm a Blit.
|
|
EOI
|
|
echo exit 0 >eunice
|
|
d_eunice="$define"
|
|
: it so happens the Eunice I know will not run shell scripts in Unix format
|
|
;;
|
|
*)
|
|
echo " "
|
|
echo "Congratulations. You aren't running Eunice."
|
|
d_eunice="$undef"
|
|
;;
|
|
esac
|
|
: Detect OS2. The p_ variable is set above in the Head.U unit.
|
|
: Note that this also -- wrongly -- detects e.g. dos-djgpp, which also uses
|
|
: semicolon as a patch separator
|
|
case "$p_" in
|
|
:) ;;
|
|
*)
|
|
$cat <<'EOI'
|
|
I have the feeling something is not exactly right, however...don't tell me...
|
|
lemme think...does HAL ring a bell?...no, of course, you're only running OS/2!
|
|
(Or you may be running DOS with DJGPP.)
|
|
EOI
|
|
echo exit 0 >os2
|
|
;;
|
|
esac
|
|
if test -f /xenix; then
|
|
echo "Actually, this looks more like a XENIX system..."
|
|
echo exit 0 >xenix
|
|
d_xenix="$define"
|
|
else
|
|
echo " "
|
|
echo "It's not Xenix..."
|
|
d_xenix="$undef"
|
|
fi
|
|
chmod +x xenix
|
|
$eunicefix xenix
|
|
if test -f /venix; then
|
|
echo "Actually, this looks more like a VENIX system..."
|
|
echo exit 0 >venix
|
|
else
|
|
echo " "
|
|
if ./xenix; then
|
|
: null
|
|
else
|
|
echo "Nor is it Venix..."
|
|
fi
|
|
fi
|
|
chmod +x bsd usg v7 osf1 eunice xenix venix os2
|
|
$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"
|
|
: 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
|
|
|
|
echo " "
|
|
echo "Checking for GNU cc in disguise and/or its version number..." >&4
|
|
$cat >gccvers.c <<EOM
|
|
#include <stdio.h>
|
|
int main() {
|
|
#ifdef __GNUC__
|
|
#ifdef __VERSION__
|
|
printf("%s\n", __VERSION__);
|
|
#else
|
|
printf("%s\n", "1");
|
|
#endif
|
|
#endif
|
|
exit(0);
|
|
}
|
|
EOM
|
|
if $cc -o gccvers $ccflags $ldflags gccvers.c; then
|
|
gccversion=`./gccvers`
|
|
case "$gccversion" in
|
|
'') echo "You are not using GNU cc." ;;
|
|
*) echo "You are using GNU cc $gccversion."
|
|
ccname=gcc
|
|
;;
|
|
esac
|
|
else
|
|
echo " "
|
|
echo "*** WHOA THERE!!! ***" >&4
|
|
echo " Your C compiler \"$cc\" doesn't seem to be working!" >&4
|
|
case "$knowitall" in
|
|
'')
|
|
echo " You'd better start hunting for one and let me know about it." >&4
|
|
exit 1
|
|
;;
|
|
esac
|
|
fi
|
|
$rm -f gccvers*
|
|
case "$gccversion" in
|
|
1*) cpp=`./loc gcc-cpp $cpp $pth` ;;
|
|
esac
|
|
case "$gccversion" in
|
|
'') gccosandvers='' ;;
|
|
*) gccshortvers=`echo "$gccversion"|sed 's/ .*//'`
|
|
gccosandvers=`$cc -v 2>&1|grep '/specs$'|sed "s!.*/[^-/]*-[^-/]*-\([^-/]*\)/$gccshortvers/specs!\1!"`
|
|
gccshortvers=''
|
|
case "$gccosandvers" in
|
|
$osname) gccosandvers='' ;; # linux gccs seem to have no linux osvers, grr
|
|
$osname$osvers) ;; # looking good
|
|
$osname*) cat <<EOM >&4
|
|
|
|
*** WHOA THERE!!! ***
|
|
|
|
Your gcc has not been compiled for the exact release of
|
|
your operating system ($gccosandvers versus $osname$osvers).
|
|
|
|
In general it is a good idea to keep gcc synchronized with
|
|
the operating system because otherwise serious problems
|
|
may ensue when trying to compile software, like Perl.
|
|
|
|
I'm trying to be optimistic here, though, and will continue.
|
|
If later during the configuration and build icky compilation
|
|
problems appear (headerfile conflicts being the most common
|
|
manifestation), I suggest reinstalling the gcc to match
|
|
your operating system release.
|
|
|
|
EOM
|
|
;;
|
|
*) gccosandvers='' ;; # failed to parse, better be silent
|
|
esac
|
|
;;
|
|
esac
|
|
case "$ccname" in
|
|
'') ccname="$cc" ;;
|
|
esac
|
|
|
|
: see how we invoke the C preprocessor
|
|
echo " "
|
|
echo "Now, how can we feed standard input to your C preprocessor..." >&4
|
|
cat <<'EOT' >testcpp.c
|
|
#define ABC abc
|
|
#define XYZ xyz
|
|
ABC.XYZ
|
|
EOT
|
|
cd ..
|
|
if test ! -f cppstdin; then
|
|
if test "X$osname" = "Xaix" -a "X$gccversion" = X; then
|
|
# AIX cc -E doesn't show the absolute headerfile
|
|
# locations but we'll cheat by using the -M flag.
|
|
echo 'cat >.$$.c; rm -f .$$.u; '"$cc"' ${1+"$@"} -M -c .$$.c 2>/dev/null; test -s .$$.u && awk '"'"'$2 ~ /\.h$/ { print "# 0 \""$2"\"" }'"'"' .$$.u; rm -f .$$.o .$$.u; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' > cppstdin
|
|
else
|
|
echo 'cat >.$$.c; '"$cc"' -E ${1+"$@"} .$$.c; rm .$$.c' >cppstdin
|
|
fi
|
|
else
|
|
echo "Keeping your $hint cppstdin wrapper."
|
|
fi
|
|
chmod 755 cppstdin
|
|
wrapper=`pwd`/cppstdin
|
|
ok='false'
|
|
cd UU
|
|
|
|
if $test "X$cppstdin" != "X" && \
|
|
$cppstdin $cppminus <testcpp.c >testcpp.out 2>&1 && \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
|
|
then
|
|
echo "You used to use $cppstdin $cppminus so we'll use that again."
|
|
case "$cpprun" in
|
|
'') echo "But let's see if we can live without a wrapper..." ;;
|
|
*)
|
|
if $cpprun $cpplast <testcpp.c >testcpp.out 2>&1 && \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
|
|
then
|
|
echo "(And we'll use $cpprun $cpplast to preprocess directly.)"
|
|
ok='true'
|
|
else
|
|
echo "(However, $cpprun $cpplast does not work, let's see...)"
|
|
fi
|
|
;;
|
|
esac
|
|
else
|
|
case "$cppstdin" in
|
|
'') ;;
|
|
*)
|
|
echo "Good old $cppstdin $cppminus does not seem to be of any help..."
|
|
;;
|
|
esac
|
|
fi
|
|
|
|
if $ok; then
|
|
: nothing
|
|
elif echo 'Maybe "'"$cc"' -E" will work...'; \
|
|
$cc -E <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "Yup, it does."
|
|
x_cpp="$cc -E"
|
|
x_minus='';
|
|
elif echo 'Nope...maybe "'"$cc"' -E -" will work...'; \
|
|
$cc -E - <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "Yup, it does."
|
|
x_cpp="$cc -E"
|
|
x_minus='-';
|
|
elif echo 'Nope...maybe "'"$cc"' -P" will work...'; \
|
|
$cc -P <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "Yipee, that works!"
|
|
x_cpp="$cc -P"
|
|
x_minus='';
|
|
elif echo 'Nope...maybe "'"$cc"' -P -" will work...'; \
|
|
$cc -P - <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "At long last!"
|
|
x_cpp="$cc -P"
|
|
x_minus='-';
|
|
elif echo 'No such luck, maybe "'$cpp'" will work...'; \
|
|
$cpp <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "It works!"
|
|
x_cpp="$cpp"
|
|
x_minus='';
|
|
elif echo 'Nixed again...maybe "'$cpp' -" will work...'; \
|
|
$cpp - <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "Hooray, it works! I was beginning to wonder."
|
|
x_cpp="$cpp"
|
|
x_minus='-';
|
|
elif echo 'Uh-uh. Time to get fancy. Trying a wrapper...'; \
|
|
$wrapper <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
x_cpp="$wrapper"
|
|
x_minus=''
|
|
echo "Eureka!"
|
|
else
|
|
dflt=''
|
|
rp="No dice. I can't find a C preprocessor. Name one:"
|
|
. ./myread
|
|
x_cpp="$ans"
|
|
x_minus=''
|
|
$x_cpp <testcpp.c >testcpp.out 2>&1
|
|
if $contains 'abc.*xyz' testcpp.out >/dev/null 2>&1 ; then
|
|
echo "OK, that will do." >&4
|
|
else
|
|
echo "Sorry, I can't get that to work. Go find one and rerun Configure." >&4
|
|
exit 1
|
|
fi
|
|
fi
|
|
|
|
case "$ok" in
|
|
false)
|
|
cppstdin="$x_cpp"
|
|
cppminus="$x_minus"
|
|
cpprun="$x_cpp"
|
|
cpplast="$x_minus"
|
|
set X $x_cpp
|
|
shift
|
|
case "$1" in
|
|
"$cpp")
|
|
echo "Perhaps can we force $cc -E using a wrapper..."
|
|
if $wrapper <testcpp.c >testcpp.out 2>&1; \
|
|
$contains 'abc.*xyz' testcpp.out >/dev/null 2>&1
|
|
then
|
|
echo "Yup, we can."
|
|
cppstdin="$wrapper"
|
|
cppminus='';
|
|
else
|
|
echo "Nope, we'll have to live without it..."
|
|
fi
|
|
;;
|
|
esac
|
|
case "$cpprun" in
|
|
"$wrapper")
|
|
cpprun=''
|
|
cpplast=''
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$cppstdin" in
|
|
"$wrapper"|'cppstdin') ;;
|
|
*) $rm -f $wrapper;;
|
|
esac
|
|
$rm -f testcpp.c testcpp.out
|
|
|
|
: decide how portable to be. Allow command line overrides.
|
|
case "$d_portable" in
|
|
"$undef") ;;
|
|
*) d_portable="$define" ;;
|
|
esac
|
|
|
|
: set up shell script to do ~ expansion
|
|
cat >filexp <<EOSS
|
|
$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=\$?
|
|
echo ""
|
|
exit \$failed
|
|
else
|
|
name=\`$expr x\$1 : '..\([^/]*\)'\`
|
|
dir=\`$sed -n -e "/^\${name}:/{s/^[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:\([^:]*\).*"'\$'"/\1/" -e p -e q -e '}' </etc/passwd\`
|
|
if $test ! -d "\$dir"; then
|
|
me=\`basename \$0\`
|
|
echo "\$me: can't locate home directory for: \$name" >&2
|
|
exit 1
|
|
fi
|
|
case "\$1" in
|
|
*/*)
|
|
echo \$dir/\`$expr x\$1 : '..[^/]*/\(.*\)'\`
|
|
;;
|
|
*)
|
|
echo \$dir
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
*)
|
|
echo \$1
|
|
;;
|
|
esac
|
|
EOSS
|
|
chmod +x filexp
|
|
$eunicefix filexp
|
|
|
|
: now set up to get a file name
|
|
cat <<EOS >getfile
|
|
$startsh
|
|
EOS
|
|
cat <<'EOSC' >>getfile
|
|
tilde=''
|
|
fullpath=''
|
|
already=''
|
|
skip=''
|
|
none_ok=''
|
|
exp_file=''
|
|
nopath_ok=''
|
|
orig_rp="$rp"
|
|
orig_dflt="$dflt"
|
|
case "$gfpth" in
|
|
'') gfpth='.' ;;
|
|
esac
|
|
|
|
case "$fn" in
|
|
*\(*)
|
|
expr $fn : '.*(\(.*\)).*' | $tr ',' $trnl >getfile.ok
|
|
fn=`echo $fn | sed 's/(.*)//'`
|
|
;;
|
|
esac
|
|
|
|
case "$fn" in
|
|
*:*)
|
|
loc_file=`expr $fn : '.*:\(.*\)'`
|
|
fn=`expr $fn : '\(.*\):.*'`
|
|
;;
|
|
esac
|
|
|
|
case "$fn" in
|
|
*~*) tilde=true;;
|
|
esac
|
|
case "$fn" in
|
|
*/*) fullpath=true;;
|
|
esac
|
|
case "$fn" in
|
|
*+*) skip=true;;
|
|
esac
|
|
case "$fn" in
|
|
*n*) none_ok=true;;
|
|
esac
|
|
case "$fn" in
|
|
*e*) exp_file=true;;
|
|
esac
|
|
case "$fn" in
|
|
*p*) nopath_ok=true;;
|
|
esac
|
|
|
|
case "$fn" in
|
|
*f*) type='File';;
|
|
*d*) type='Directory';;
|
|
*l*) type='Locate';;
|
|
esac
|
|
|
|
what="$type"
|
|
case "$what" in
|
|
Locate) what='File';;
|
|
esac
|
|
|
|
case "$exp_file" in
|
|
'')
|
|
case "$d_portable" in
|
|
"$define") ;;
|
|
*) exp_file=true;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
cd ..
|
|
while test "$type"; do
|
|
redo=''
|
|
rp="$orig_rp"
|
|
dflt="$orig_dflt"
|
|
case "$tilde" in
|
|
true) rp="$rp (~name ok)";;
|
|
esac
|
|
. UU/myread
|
|
if test -f UU/getfile.ok && \
|
|
$contains "^$ans\$" UU/getfile.ok >/dev/null 2>&1
|
|
then
|
|
value="$ans"
|
|
ansexp="$ans"
|
|
break
|
|
fi
|
|
case "$ans" in
|
|
none)
|
|
value=''
|
|
ansexp=''
|
|
case "$none_ok" in
|
|
true) type='';;
|
|
esac
|
|
;;
|
|
*)
|
|
case "$tilde" in
|
|
'') value="$ans"
|
|
ansexp="$ans";;
|
|
*)
|
|
value=`UU/filexp $ans`
|
|
case $? in
|
|
0)
|
|
if test "$ans" != "$value"; then
|
|
echo "(That expands to $value on this system.)"
|
|
fi
|
|
;;
|
|
*) value="$ans";;
|
|
esac
|
|
ansexp="$value"
|
|
case "$exp_file" in
|
|
'') value="$ans";;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$fullpath" in
|
|
true)
|
|
case "$ansexp" in
|
|
/*) value="$ansexp" ;;
|
|
[a-zA-Z]:/*) value="$ansexp" ;;
|
|
*)
|
|
redo=true
|
|
case "$already" in
|
|
true)
|
|
echo "I shall only accept a full path name, as in /bin/ls." >&4
|
|
echo "Use a ! shell escape if you wish to check pathnames." >&4
|
|
;;
|
|
*)
|
|
echo "Please give a full path name, starting with slash." >&4
|
|
case "$tilde" in
|
|
true)
|
|
echo "Note that using ~name is ok provided it expands well." >&4
|
|
already=true
|
|
;;
|
|
esac
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$redo" in
|
|
'')
|
|
case "$type" in
|
|
File)
|
|
for fp in $gfpth; do
|
|
if test "X$fp" = X.; then
|
|
pf="$ansexp"
|
|
else
|
|
pf="$fp/$ansexp"
|
|
fi
|
|
if test -f "$pf"; then
|
|
type=''
|
|
elif test -r "$pf" || (test -h "$pf") >/dev/null 2>&1
|
|
then
|
|
echo "($value is not a plain file, but that's ok.)"
|
|
type=''
|
|
fi
|
|
if test X"$type" = X; then
|
|
value="$pf"
|
|
break
|
|
fi
|
|
done
|
|
;;
|
|
Directory)
|
|
for fp in $gfpth; do
|
|
if test "X$fp" = X.; then
|
|
dir="$ans"
|
|
direxp="$ansexp"
|
|
else
|
|
dir="$fp/$ansexp"
|
|
direxp="$fp/$ansexp"
|
|
fi
|
|
if test -d "$direxp"; then
|
|
type=''
|
|
value="$dir"
|
|
break
|
|
fi
|
|
done
|
|
;;
|
|
Locate)
|
|
if test -d "$ansexp"; then
|
|
echo "(Looking for $loc_file in directory $value.)"
|
|
value="$value/$loc_file"
|
|
ansexp="$ansexp/$loc_file"
|
|
fi
|
|
if test -f "$ansexp"; then
|
|
type=''
|
|
fi
|
|
case "$nopath_ok" in
|
|
true) case "$value" in
|
|
*/*) ;;
|
|
*) echo "Assuming $value will be in people's path."
|
|
type=''
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$skip" in
|
|
true) type='';
|
|
esac
|
|
|
|
case "$type" in
|
|
'') ;;
|
|
*)
|
|
if test "$fastread" = yes; then
|
|
dflt=y
|
|
else
|
|
dflt=n
|
|
fi
|
|
rp="$what $value doesn't exist. Use that name anyway?"
|
|
. UU/myread
|
|
dflt=''
|
|
case "$ans" in
|
|
y*) type='';;
|
|
*) echo " ";;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
cd UU
|
|
ans="$value"
|
|
rp="$orig_rp"
|
|
dflt="$orig_dflt"
|
|
rm -f getfile.ok
|
|
test "X$gfpthkeep" != Xy && gfpth=""
|
|
EOSC
|
|
|
|
: What should the include directory be ?
|
|
echo " "
|
|
$echo $n "Hmm... $c"
|
|
dflt='/usr/include'
|
|
incpath=''
|
|
mips_type=''
|
|
if $test -f /bin/mips && /bin/mips; then
|
|
echo "Looks like a MIPS system..."
|
|
$cat >usr.c <<'EOCP'
|
|
#ifdef SYSTYPE_BSD43
|
|
/bsd43
|
|
#endif
|
|
EOCP
|
|
if cc -E usr.c > usr.out && $contains / usr.out >/dev/null 2>&1; then
|
|
dflt='/bsd43/usr/include'
|
|
incpath='/bsd43'
|
|
mips_type='BSD 4.3'
|
|
else
|
|
mips_type='System V'
|
|
fi
|
|
$rm -f usr.c usr.out
|
|
echo "and you're compiling with the $mips_type compiler and libraries."
|
|
xxx_prompt=y
|
|
echo "exit 0" >mips
|
|
else
|
|
echo "Doesn't look like a MIPS system."
|
|
xxx_prompt=n
|
|
echo "exit 1" >mips
|
|
fi
|
|
chmod +x mips
|
|
$eunicefix mips
|
|
case "$usrinc" in
|
|
'') ;;
|
|
*) dflt="$usrinc";;
|
|
esac
|
|
case "$xxx_prompt" in
|
|
y) fn=d/
|
|
echo " "
|
|
rp='Where are the include files you want to use?'
|
|
. ./getfile
|
|
usrinc="$ans"
|
|
;;
|
|
*) usrinc="$dflt"
|
|
;;
|
|
esac
|
|
|
|
: Set private lib path
|
|
case "$plibpth" in
|
|
'') if ./mips; then
|
|
plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
|
|
fi;;
|
|
esac
|
|
case "$libpth" in
|
|
' ') dlist='';;
|
|
'') dlist="$loclibpth $plibpth $glibpth";;
|
|
*) dlist="$libpth";;
|
|
esac
|
|
|
|
: Now check and see which directories actually exist, avoiding duplicates
|
|
libpth=''
|
|
for xxx in $dlist
|
|
do
|
|
if $test -d $xxx; then
|
|
case " $libpth " in
|
|
*" $xxx "*) ;;
|
|
*) libpth="$libpth $xxx";;
|
|
esac
|
|
fi
|
|
done
|
|
$cat <<'EOM'
|
|
|
|
Some systems have incompatible or broken versions of libraries. Among
|
|
the directories listed in the question below, please remove any you
|
|
know not to be holding relevant libraries, and add any that are needed.
|
|
Say "none" for none.
|
|
|
|
EOM
|
|
case "$libpth" in
|
|
'') dflt='none';;
|
|
*)
|
|
set X $libpth
|
|
shift
|
|
dflt=${1+"$@"}
|
|
;;
|
|
esac
|
|
rp="Directories to use for library searches?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) libpth=' ';;
|
|
*) libpth="$ans";;
|
|
esac
|
|
|
|
: compute shared library extension
|
|
case "$so" in
|
|
'')
|
|
if xxx=`./loc libc.sl X $libpth`; $test -f "$xxx"; then
|
|
dflt='sl'
|
|
else
|
|
dflt='so'
|
|
fi
|
|
;;
|
|
*) dflt="$so";;
|
|
esac
|
|
$cat <<EOM
|
|
|
|
On some systems, shared libraries may be available. Answer 'none' if
|
|
you want to suppress searching of shared libraries for the remainder
|
|
of this configuration.
|
|
|
|
EOM
|
|
rp='What is the file extension used for shared libraries?'
|
|
. ./myread
|
|
so="$ans"
|
|
|
|
: Define several unixisms.
|
|
: Hints files or command line option can be used to override them.
|
|
: The convoluted testing is in case hints files set either the old
|
|
: or the new name.
|
|
case "$_exe" in
|
|
'') case "$exe_ext" in
|
|
'') ;;
|
|
*) _exe="$exe_ext" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$_a" in
|
|
'') case "$lib_ext" in
|
|
'') _a='.a';;
|
|
*) _a="$lib_ext" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$_o" in
|
|
'') case "$obj_ext" in
|
|
'') _o='.o';;
|
|
*) _o="$obj_ext";;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$p_" in
|
|
'') case "$path_sep" in
|
|
'') p_=':';;
|
|
*) p_="$path_sep";;
|
|
esac
|
|
;;
|
|
esac
|
|
exe_ext=$_exe
|
|
lib_ext=$_a
|
|
obj_ext=$_o
|
|
path_sep=$p_
|
|
|
|
: Which makefile gets called first. This is used by make depend.
|
|
case "$firstmakefile" in
|
|
'') firstmakefile='makefile';;
|
|
esac
|
|
|
|
case "$usesocks" in
|
|
$define|true|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
cat <<EOM
|
|
|
|
Perl can be built to use the SOCKS proxy protocol library. To do so,
|
|
Configure must be run with -Dusesocks.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Build Perl for SOCKS?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set usesocks
|
|
eval $setvar
|
|
|
|
: Looking for optional libraries
|
|
echo " "
|
|
echo "Checking for optional libraries..." >&4
|
|
case "$libs" in
|
|
' '|'') dflt='';;
|
|
*) dflt="$libs";;
|
|
esac
|
|
case "$libswanted" in
|
|
'') libswanted='c_s';;
|
|
esac
|
|
case "$usesocks" in
|
|
"$define") libswanted="$libswanted socks5 socks5_sh" ;;
|
|
esac
|
|
libsfound=''
|
|
libsfiles=''
|
|
libsdirs=''
|
|
libspath=''
|
|
for thisdir in $libpth $xlibpth; do
|
|
test -d $thisdir && libspath="$libspath $thisdir"
|
|
done
|
|
for thislib in $libswanted; do
|
|
for thisdir in $libspath; do
|
|
xxx=''
|
|
if $test ! -f "$xxx" -a "X$ignore_versioned_solibs" = "X"; then
|
|
xxx=`ls $thisdir/lib$thislib.$so.[0-9] 2>/dev/null|tail -1`
|
|
$test -f "$xxx" && eval $libscheck
|
|
$test -f "$xxx" && libstyle=shared
|
|
fi
|
|
if test ! -f "$xxx"; then
|
|
xxx=$thisdir/lib$thislib.$so
|
|
$test -f "$xxx" && eval $libscheck
|
|
$test -f "$xxx" && libstyle=shared
|
|
fi
|
|
if test ! -f "$xxx"; then
|
|
xxx=$thisdir/lib$thislib$_a
|
|
$test -f "$xxx" && eval $libscheck
|
|
$test -f "$xxx" && libstyle=static
|
|
fi
|
|
if test ! -f "$xxx"; then
|
|
xxx=$thisdir/$thislib$_a
|
|
$test -f "$xxx" && eval $libscheck
|
|
$test -f "$xxx" && libstyle=static
|
|
fi
|
|
if test ! -f "$xxx"; then
|
|
xxx=$thisdir/lib${thislib}_s$_a
|
|
$test -f "$xxx" && eval $libscheck
|
|
$test -f "$xxx" && libstyle=static
|
|
$test -f "$xxx" && thislib=${thislib}_s
|
|
fi
|
|
if test ! -f "$xxx"; then
|
|
xxx=$thisdir/Slib$thislib$_a
|
|
$test -f "$xxx" && eval $libscheck
|
|
$test -f "$xxx" && libstyle=static
|
|
fi
|
|
if $test -f "$xxx"; then
|
|
case "$libstyle" in
|
|
shared) echo "Found -l$thislib (shared)." ;;
|
|
static) echo "Found -l$thislib." ;;
|
|
*) echo "Found -l$thislib ($libstyle)." ;;
|
|
esac
|
|
case " $dflt " in
|
|
*"-l$thislib "*);;
|
|
*) dflt="$dflt -l$thislib"
|
|
libsfound="$libsfound $xxx"
|
|
yyy=`basename $xxx`
|
|
libsfiles="$libsfiles $yyy"
|
|
yyy=`echo $xxx|$sed -e "s%/$yyy\\$%%"`
|
|
case " $libsdirs " in
|
|
*" $yyy "*) ;;
|
|
*) libsdirs="$libsdirs $yyy" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
break
|
|
fi
|
|
done
|
|
if $test ! -f "$xxx"; then
|
|
echo "No -l$thislib."
|
|
fi
|
|
done
|
|
set X $dflt
|
|
shift
|
|
dflt="$*"
|
|
case "$libs" in
|
|
'') dflt="$dflt";;
|
|
*) dflt="$libs";;
|
|
esac
|
|
case "$dflt" in
|
|
' '|'') dflt='none';;
|
|
esac
|
|
|
|
$cat <<EOM
|
|
|
|
In order to compile $package on your machine, a number of libraries
|
|
are usually needed. Include any other special libraries here as well.
|
|
Say "none" for none. The default list is almost always right.
|
|
EOM
|
|
|
|
echo " "
|
|
rp="What libraries to use?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) libs=' ';;
|
|
*) libs="$ans";;
|
|
esac
|
|
|
|
: determine optimization, if desired, or use for debug flag also
|
|
case "$optimize" in
|
|
' '|$undef) dflt='none';;
|
|
'') dflt='-O';;
|
|
*) dflt="$optimize";;
|
|
esac
|
|
$cat <<EOH
|
|
|
|
By default, $package compiles with the -O flag to use the optimizer.
|
|
Alternately, you might want to use the symbolic debugger, which uses
|
|
the -g flag (on traditional Unix systems). Either flag can be
|
|
specified here. To use neither flag, specify the word "none".
|
|
|
|
EOH
|
|
rp="What optimizer/debugger flag should be used?"
|
|
. ./myread
|
|
optimize="$ans"
|
|
case "$optimize" in
|
|
'none') optimize=" ";;
|
|
esac
|
|
|
|
dflt=''
|
|
: We will not override a previous value, but we might want to
|
|
: augment a hint file
|
|
case "$hint" in
|
|
default|recommended)
|
|
case "$gccversion" in
|
|
1*) dflt='-fpcc-struct-return' ;;
|
|
esac
|
|
case "$optimize" in
|
|
*-g*) dflt="$dflt -DDEBUGGING";;
|
|
esac
|
|
case "$gccversion" in
|
|
2*) if test -d /etc/conf/kconfig.d &&
|
|
$contains _POSIX_VERSION $usrinc/sys/unistd.h >/dev/null 2>&1
|
|
then
|
|
dflt="$dflt -posix"
|
|
fi
|
|
;;
|
|
esac
|
|
case "$gccversion" in
|
|
1*) ;;
|
|
2.[0-8]*) ;;
|
|
?*) echo " "
|
|
echo "Checking if your compiler accepts -fno-strict-aliasing" 2>&1
|
|
echo 'int main(void) { return 0; }' > gcctest.c
|
|
if $cc -O2 -fno-strict-aliasing -o gcctest gcctest.c; then
|
|
echo "Yes, it does." 2>&1
|
|
case "$ccflags" in
|
|
*strict-aliasing*)
|
|
echo "Leaving current flags $ccflags alone." 2>&1
|
|
;;
|
|
*) dflt="$dflt -fno-strict-aliasing" ;;
|
|
esac
|
|
else
|
|
echo "Nope, it doesn't, but that's ok." 2>&1
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$mips_type" in
|
|
*BSD*|'') inclwanted="$locincpth $usrinc";;
|
|
*) inclwanted="$locincpth $inclwanted $usrinc/bsd";;
|
|
esac
|
|
for thisincl in $inclwanted; do
|
|
if $test -d $thisincl; then
|
|
if $test x$thisincl != x$usrinc; then
|
|
case "$dflt" in
|
|
*" -I$thisincl "*);;
|
|
*) dflt="$dflt -I$thisincl ";;
|
|
esac
|
|
fi
|
|
fi
|
|
done
|
|
|
|
inctest='if $contains $2 $usrinc/$1 >/dev/null 2>&1; then
|
|
xxx=true;
|
|
elif $contains $2 $usrinc/sys/$1 >/dev/null 2>&1; then
|
|
xxx=true;
|
|
else
|
|
xxx=false;
|
|
fi;
|
|
if $xxx; then
|
|
case "$dflt" in
|
|
*$2*);;
|
|
*) dflt="$dflt -D$2";;
|
|
esac;
|
|
fi'
|
|
|
|
set signal.h LANGUAGE_C; eval $inctest
|
|
|
|
case "$usesocks" in
|
|
$define)
|
|
ccflags="$ccflags -DSOCKS"
|
|
;;
|
|
esac
|
|
|
|
case "$hint" in
|
|
default|recommended) dflt="$ccflags $dflt" ;;
|
|
*) dflt="$ccflags";;
|
|
esac
|
|
|
|
case "$dflt" in
|
|
''|' ') dflt=none;;
|
|
esac
|
|
|
|
$cat <<EOH
|
|
|
|
Your C compiler may want other flags. For this question you should include
|
|
-I/whatever and -DWHATEVER flags and any other flags used by the C compiler,
|
|
but you should NOT include libraries or ld flags like -lwhatever. If you
|
|
want $package to honor its debug switch, you should include -DDEBUGGING here.
|
|
Your C compiler might also need additional flags, such as -D_POSIX_SOURCE.
|
|
|
|
To use no flags, specify the word "none".
|
|
|
|
EOH
|
|
set X $dflt
|
|
shift
|
|
dflt=${1+"$@"}
|
|
rp="Any additional cc flags?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) ccflags='';;
|
|
*) ccflags="$ans";;
|
|
esac
|
|
|
|
: the following weeds options from ccflags that are of no interest to cpp
|
|
cppflags="$ccflags"
|
|
case "$gccversion" in
|
|
1*) cppflags="$cppflags -D__GNUC__"
|
|
esac
|
|
case "$mips_type" in
|
|
'');;
|
|
*BSD*) cppflags="$cppflags -DSYSTYPE_BSD43";;
|
|
esac
|
|
case "$cppflags" in
|
|
'');;
|
|
*)
|
|
echo " "
|
|
echo "Let me guess what the preprocessor flags are..." >&4
|
|
set X $cppflags
|
|
shift
|
|
cppflags=''
|
|
$cat >cpp.c <<'EOM'
|
|
#define BLURFL foo
|
|
|
|
BLURFL xx LFRULB
|
|
EOM
|
|
previous=''
|
|
for flag in $*
|
|
do
|
|
case "$flag" in
|
|
-*) ftry="$flag";;
|
|
*) ftry="$previous $flag";;
|
|
esac
|
|
if $cppstdin -DLFRULB=bar $cppflags $ftry $cppminus <cpp.c \
|
|
>cpp1.out 2>/dev/null && \
|
|
$cpprun -DLFRULB=bar $cppflags $ftry $cpplast <cpp.c \
|
|
>cpp2.out 2>/dev/null && \
|
|
$contains 'foo.*xx.*bar' cpp1.out >/dev/null 2>&1 && \
|
|
$contains 'foo.*xx.*bar' cpp2.out >/dev/null 2>&1
|
|
then
|
|
cppflags="$cppflags $ftry"
|
|
previous=''
|
|
else
|
|
previous="$flag"
|
|
fi
|
|
done
|
|
set X $cppflags
|
|
shift
|
|
cppflags=${1+"$@"}
|
|
case "$cppflags" in
|
|
*-*) echo "They appear to be: $cppflags";;
|
|
esac
|
|
$rm -f cpp.c cpp?.out
|
|
;;
|
|
esac
|
|
|
|
: flags used in final linking phase
|
|
case "$ldflags" in
|
|
'') if ./venix; then
|
|
dflt='-i -z'
|
|
else
|
|
dflt=''
|
|
fi
|
|
case "$ccflags" in
|
|
*-posix*) dflt="$dflt -posix" ;;
|
|
esac
|
|
;;
|
|
*) dflt="$ldflags";;
|
|
esac
|
|
|
|
: Try to guess additional flags to pick up local libraries.
|
|
for thislibdir in $libpth; do
|
|
case " $loclibpth " in
|
|
*" $thislibdir "*)
|
|
case "$dflt " in
|
|
*"-L$thislibdir "*) ;;
|
|
*) dflt="$dflt -L$thislibdir" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
|
|
case "$dflt" in
|
|
'') dflt='none' ;;
|
|
esac
|
|
|
|
$cat <<EOH
|
|
|
|
Your C linker may need flags. For this question you should
|
|
include -L/whatever and any other flags used by the C linker, but you
|
|
should NOT include libraries like -lwhatever.
|
|
|
|
Make sure you include the appropriate -L/path flags if your C linker
|
|
does not normally search all of the directories you specified above,
|
|
namely
|
|
$libpth
|
|
To use no flags, specify the word "none".
|
|
|
|
EOH
|
|
|
|
rp="Any additional ld flags (NOT including libraries)?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) ldflags='';;
|
|
*) ldflags="$ans";;
|
|
esac
|
|
rmlist="$rmlist pdp11"
|
|
|
|
: coherency check
|
|
echo " "
|
|
echo "Checking your choice of C compiler and flags for coherency..." >&4
|
|
$cat > try.c <<'EOF'
|
|
#include <stdio.h>
|
|
int main() { printf("Ok\n"); exit(0); }
|
|
EOF
|
|
set X $cc -o try $optimize $ccflags $ldflags try.c $libs
|
|
shift
|
|
$cat >try.msg <<'EOM'
|
|
I've tried to compile and run the following simple program:
|
|
|
|
EOM
|
|
$cat try.c >> try.msg
|
|
|
|
$cat >> try.msg <<EOM
|
|
|
|
I used the command:
|
|
|
|
$*
|
|
./try
|
|
|
|
and I got the following output:
|
|
|
|
EOM
|
|
dflt=y
|
|
if $sh -c "$cc -o try $optimize $ccflags $ldflags try.c $libs" >>try.msg 2>&1; then
|
|
if $sh -c './try' >>try.msg 2>&1; then
|
|
xxx=`./try`
|
|
case "$xxx" in
|
|
"Ok") dflt=n ;;
|
|
*) echo 'The program compiled OK, but produced no output.' >> try.msg
|
|
case " $libs " in
|
|
*" -lsfio "*)
|
|
cat >> try.msg <<'EOQS'
|
|
If $libs contains -lsfio, and sfio is mis-configured, then it
|
|
sometimes (apparently) runs and exits with a 0 status, but with no
|
|
output! It may have to do with sfio's use of _exit vs. exit.
|
|
|
|
EOQS
|
|
rp="You have a big problem. Shall I abort Configure"
|
|
dflt=y
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
else
|
|
echo "The program compiled OK, but exited with status $?." >>try.msg
|
|
rp="You have a problem. Shall I abort Configure"
|
|
dflt=y
|
|
fi
|
|
else
|
|
echo "I can't compile the test program." >>try.msg
|
|
rp="You have a BIG problem. Shall I abort Configure"
|
|
dflt=y
|
|
fi
|
|
case "$dflt" in
|
|
y)
|
|
$cat try.msg >&4
|
|
case "$knowitall" in
|
|
'')
|
|
echo "(The supplied flags or libraries might be incorrect.)"
|
|
;;
|
|
*) dflt=n;;
|
|
esac
|
|
echo " "
|
|
. ./myread
|
|
case "$ans" in
|
|
n*|N*) ;;
|
|
*) echo "Ok. Stopping Configure." >&4
|
|
exit 1
|
|
;;
|
|
esac
|
|
;;
|
|
n) echo "OK, that should do.";;
|
|
esac
|
|
$rm -f try try.* core
|
|
|
|
: define an is-a-typedef? function
|
|
typedef='type=$1; var=$2; def=$3; shift; shift; shift; inclist=$@;
|
|
case "$inclist" in
|
|
"") inclist="sys/types.h";;
|
|
esac;
|
|
eval "varval=\$$var";
|
|
case "$varval" in
|
|
"")
|
|
$rm -f temp.c;
|
|
for inc in $inclist; do
|
|
echo "#include <$inc>" >>temp.c;
|
|
done;
|
|
echo "#ifdef $type" >> temp.c;
|
|
echo "printf(\"We have $type\");" >> temp.c;
|
|
echo "#endif" >> temp.c;
|
|
$cppstdin $cppflags $cppminus < temp.c >temp.E 2>/dev/null;
|
|
if $contains $type temp.E >/dev/null 2>&1; then
|
|
eval "$var=\$type";
|
|
else
|
|
eval "$var=\$def";
|
|
fi;
|
|
$rm -f temp.?;;
|
|
*) eval "$var=\$varval";;
|
|
esac'
|
|
|
|
: define an is-a-typedef? function that prompts if the type is not available.
|
|
typedef_ask='type=$1; var=$2; def=$3; shift; shift; shift; inclist=$@;
|
|
case "$inclist" in
|
|
"") inclist="sys/types.h";;
|
|
esac;
|
|
eval "varval=\$$var";
|
|
case "$varval" in
|
|
"")
|
|
$rm -f temp.c;
|
|
for inc in $inclist; do
|
|
echo "#include <$inc>" >>temp.c;
|
|
done;
|
|
echo "#ifdef $type" >> temp.c;
|
|
echo "printf(\"We have $type\");" >> temp.c;
|
|
echo "#endif" >> temp.c;
|
|
$cppstdin $cppflags $cppminus < temp.c >temp.E 2>/dev/null;
|
|
echo " " ;
|
|
echo "$rp" | $sed -e "s/What is/Looking for/" -e "s/?/./";
|
|
if $contains $type temp.E >/dev/null 2>&1; then
|
|
echo "$type found." >&4;
|
|
eval "$var=\$type";
|
|
else
|
|
echo "$type NOT found." >&4;
|
|
dflt="$def";
|
|
. ./myread ;
|
|
eval "$var=\$ans";
|
|
fi;
|
|
$rm -f temp.?;;
|
|
*) eval "$var=\$varval";;
|
|
esac'
|
|
|
|
: define a shorthand compile call
|
|
compile='
|
|
mc_file=$1;
|
|
shift;
|
|
$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='
|
|
mc_file=$1;
|
|
shift;
|
|
$cc -o ${mc_file} $optimize $ccflags $ldflags $* ${mc_file}.c $libs;'
|
|
|
|
: check for lengths of integral types
|
|
echo " "
|
|
case "$intsize" in
|
|
'')
|
|
echo "Checking to see how big your integers are..." >&4
|
|
$cat >intsize.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("intsize=%d;\n", (int)sizeof(int));
|
|
printf("longsize=%d;\n", (int)sizeof(long));
|
|
printf("shortsize=%d;\n", (int)sizeof(short));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set intsize
|
|
if eval $compile_ok && ./intsize > /dev/null; then
|
|
eval `./intsize`
|
|
echo "Your integers are $intsize bytes long."
|
|
echo "Your long integers are $longsize bytes long."
|
|
echo "Your short integers are $shortsize bytes long."
|
|
else
|
|
$cat >&4 <<EOM
|
|
!
|
|
Help! I can't compile and run the intsize test program: please enlighten me!
|
|
(This is probably a misconfiguration in your system or libraries, and
|
|
you really ought to fix it. Still, I'll try anyway.)
|
|
!
|
|
EOM
|
|
dflt=4
|
|
rp="What is the size of an integer (in bytes)?"
|
|
. ./myread
|
|
intsize="$ans"
|
|
dflt=$intsize
|
|
rp="What is the size of a long integer (in bytes)?"
|
|
. ./myread
|
|
longsize="$ans"
|
|
dflt=2
|
|
rp="What is the size of a short integer (in bytes)?"
|
|
. ./myread
|
|
shortsize="$ans"
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f intsize intsize.*
|
|
|
|
: see what type lseek is declared as in the kernel
|
|
rp="What is the type used for lseek's offset on this system?"
|
|
set off_t lseektype long stdio.h sys/types.h
|
|
eval $typedef_ask
|
|
|
|
echo " "
|
|
echo "Checking to see how big your file offsets are..." >&4
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)sizeof($lseektype));
|
|
return(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
lseeksize=`./try`
|
|
echo "Your file offsets are $lseeksize bytes long."
|
|
else
|
|
dflt=$longsize
|
|
echo " "
|
|
echo "(I can't seem to compile the test program. Guessing...)"
|
|
rp="What is the size of your file offsets (in bytes)?"
|
|
. ./myread
|
|
lseeksize="$ans"
|
|
fi
|
|
$rm -f try.c try
|
|
|
|
: see what type file positions are declared as in the library
|
|
rp="What is the type for file position used by fsetpos()?"
|
|
set fpos_t fpostype long stdio.h sys/types.h
|
|
eval $typedef_ask
|
|
|
|
echo " "
|
|
case "$fpostype" in
|
|
*_t) zzz="$fpostype" ;;
|
|
*) zzz="fpos_t" ;;
|
|
esac
|
|
echo "Checking the size of $zzz..." >&4
|
|
cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
printf("%d\n", (int)sizeof($fpostype));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
'') fpossize=4
|
|
echo "(I can't execute the test program--guessing $fpossize.)" >&4
|
|
;;
|
|
*) fpossize=$yyy
|
|
echo "Your $zzz is $fpossize bytes long."
|
|
;;
|
|
esac
|
|
else
|
|
dflt="$longsize"
|
|
echo " " >&4
|
|
echo "(I can't compile the test program. Guessing...)" >&4
|
|
rp="What is the size of your file positions (in bytes)?"
|
|
. ./myread
|
|
fpossize="$ans"
|
|
fi
|
|
|
|
|
|
|
|
# Backward compatibility (uselfs is deprecated).
|
|
case "$uselfs" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** Configure -Duselfs is deprecated, using -Duselargefiles instead.
|
|
EOM
|
|
uselargefiles="$define"
|
|
;;
|
|
esac
|
|
|
|
case "$lseeksize:$fpossize" in
|
|
8:8) cat <<EOM
|
|
|
|
You can have files larger than 2 gigabytes.
|
|
EOM
|
|
val="$define" ;;
|
|
*) case "$uselargefiles" in
|
|
"$undef"|false|[nN]*) dflt='n' ;;
|
|
*) dflt='y' ;;
|
|
esac
|
|
cat <<EOM
|
|
|
|
Perl can be built to understand large files (files larger than 2 gigabytes)
|
|
on some systems. To do so, Configure can be run with -Duselargefiles.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Try to understand large files, if available?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
set uselargefiles
|
|
eval $setvar
|
|
case "$uselargefiles" in
|
|
"$define")
|
|
: Look for a hint-file generated 'call-back-unit'. If the
|
|
: user has specified that a large files perl is to be built,
|
|
: we may need to set or change some other defaults.
|
|
if $test -f uselargefiles.cbu; then
|
|
echo "Your platform has some specific hints for large file builds, using them..."
|
|
. ./uselargefiles.cbu
|
|
echo " "
|
|
echo "Rechecking to see how big your file offsets are..." >&4
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)sizeof($lseektype));
|
|
return(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
lseeksize=`./try`
|
|
$echo "Your file offsets are now $lseeksize bytes long."
|
|
else
|
|
dflt="$lseeksize"
|
|
echo " "
|
|
echo "(I can't seem to compile the test program. Guessing...)"
|
|
rp="What is the size of your file offsets (in bytes)?"
|
|
. ./myread
|
|
lseeksize="$ans"
|
|
fi
|
|
case "$fpostype" in
|
|
*_t) zzz="$fpostype" ;;
|
|
*) zzz="fpos_t" ;;
|
|
esac
|
|
$echo $n "Rechecking the size of $zzz...$c" >&4
|
|
$cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
printf("%d\n", (int)sizeof($fpostype));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
yyy=`./try`
|
|
dflt="$lseeksize"
|
|
case "$yyy" in
|
|
'') echo " "
|
|
echo "(I can't execute the test program--guessing $fpossize.)" >&4
|
|
;;
|
|
*) fpossize=$yyy
|
|
echo " $fpossize bytes." >&4
|
|
;;
|
|
esac
|
|
else
|
|
dflt="$fpossize"
|
|
echo " "
|
|
echo "(I can't compile the test program. Guessing...)" >&4
|
|
rp="What is the size of your file positions (in bytes)?"
|
|
. ./myread
|
|
fpossize="$ans"
|
|
fi
|
|
$rm -f try.c try
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
|
|
case "$usemorebits" in
|
|
"$define"|true|[yY]*)
|
|
use64bitint="$define"
|
|
uselongdouble="$define"
|
|
usemorebits="$define"
|
|
;;
|
|
*) usemorebits="$undef"
|
|
;;
|
|
esac
|
|
|
|
|
|
case "$uselonglong" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** Configure -Duselonglong is deprecated, using -Duse64bitint instead.
|
|
EOM
|
|
use64bitint="$define"
|
|
;;
|
|
esac
|
|
case "$use64bits" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** Configure -Duse64bits is deprecated, using -Duse64bitint instead.
|
|
EOM
|
|
use64bitint="$define"
|
|
;;
|
|
esac
|
|
case "$use64bitints" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** There is no Configure -Duse64bitints, using -Duse64bitint instead.
|
|
EOM
|
|
use64bitint="$define"
|
|
;;
|
|
esac
|
|
case "$use64bitsint" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** There is no Configure -Duse64bitsint, using -Duse64bitint instead.
|
|
EOM
|
|
use64bitint="$define"
|
|
;;
|
|
esac
|
|
case "$uselonglongs" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** There is no Configure -Duselonglongs, using -Duse64bitint instead.
|
|
EOM
|
|
use64bitint="$define"
|
|
;;
|
|
esac
|
|
case "$use64bitsall" in
|
|
"$define"|true|[yY]*)
|
|
cat <<EOM >&4
|
|
|
|
*** There is no Configure -Duse64bitsall, using -Duse64bitall instead.
|
|
EOM
|
|
use64bitall="$define"
|
|
;;
|
|
esac
|
|
|
|
case "$ccflags" in
|
|
*-DUSE_LONG_LONG*|*-DUSE_64_BIT_INT*|*-DUSE_64_BIT_ALL*) use64bitint="$define";;
|
|
esac
|
|
case "$use64bitall" in
|
|
"$define"|true|[yY]*) use64bitint="$define" ;;
|
|
esac
|
|
|
|
case "$longsize" in
|
|
8) cat <<EOM
|
|
|
|
You have natively 64-bit long integers.
|
|
EOM
|
|
val="$define"
|
|
;;
|
|
*) case "$use64bitint" in
|
|
"$define"|true|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
cat <<EOM
|
|
|
|
Perl can be built to take advantage of 64-bit integer types
|
|
on some systems. To do so, Configure can be run with -Duse64bitint.
|
|
Choosing this option will most probably introduce binary incompatibilities.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Try to use 64-bit integers, if available?'
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
set use64bitint
|
|
eval $setvar
|
|
|
|
case "$use64bitall" in
|
|
"$define"|true|[yY]*) dflt='y' ;;
|
|
*) case "$longsize" in
|
|
8) dflt='y' ;;
|
|
*) dflt='n' ;;
|
|
esac
|
|
;;
|
|
esac
|
|
cat <<EOM
|
|
|
|
You may also choose to try maximal 64-bitness. It means using as much
|
|
64-bitness as possible on the platform. This in turn means even more
|
|
binary incompatibilities. On the other hand, your platform may not
|
|
have any more 64-bitness available than what you already have chosen.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Try to use maximal 64-bit support, if available?'
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set use64bitall
|
|
eval $setvar
|
|
case "$use64bitall" in
|
|
"$define")
|
|
case "$use64bitint" in
|
|
"$undef")
|
|
cat <<EOM
|
|
|
|
Since you have chosen a maximally 64-bit build, I'm also turning on
|
|
the use of 64-bit integers.
|
|
EOM
|
|
use64bitint="$define" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$use64bitint" in
|
|
"$define"|true|[yY]*)
|
|
: Look for a hint-file generated 'call-back-unit'. If the
|
|
: user has specified that a 64-bit perl is to be built,
|
|
: we may need to set or change some other defaults.
|
|
if $test -f use64bitint.cbu; then
|
|
echo "Your platform has some specific hints for 64-bit integers, using them..."
|
|
. ./use64bitint.cbu
|
|
fi
|
|
case "$longsize" in
|
|
4) case "$archname64" in
|
|
'') archname64=64int ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$use64bitall" in
|
|
"$define"|true|[yY]*)
|
|
: Look for a hint-file generated 'call-back-unit'. If the
|
|
: user has specified that a maximally 64-bit perl is to be built,
|
|
: we may need to set or change some other defaults.
|
|
if $test -f use64bitall.cbu; then
|
|
echo "Your platform has some specific hints for 64-bit builds, using them..."
|
|
. ./use64bitall.cbu
|
|
fi
|
|
case "$longsize" in
|
|
4) case "$archname64" in
|
|
''|64int) archname64=64all ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
echo " "
|
|
echo "Checking for GNU C Library..." >&4
|
|
cat >gnulibc.c <<EOM
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
#ifdef __GLIBC__
|
|
exit(0);
|
|
#else
|
|
exit(1);
|
|
#endif
|
|
}
|
|
EOM
|
|
set gnulibc
|
|
if eval $compile_ok && ./gnulibc; then
|
|
val="$define"
|
|
echo "You are using the GNU C Library"
|
|
else
|
|
val="$undef"
|
|
echo "You are not using the GNU C Library"
|
|
fi
|
|
$rm -f gnulibc*
|
|
set d_gnulibc
|
|
eval $setvar
|
|
|
|
: see if nm is to be used to determine whether a symbol is defined or not
|
|
case "$usenm" in
|
|
'')
|
|
dflt=''
|
|
case "$d_gnulibc" in
|
|
"$define")
|
|
echo " "
|
|
echo "nm probably won't work on the GNU C Library." >&4
|
|
dflt=n
|
|
;;
|
|
esac
|
|
case "$dflt" in
|
|
'')
|
|
if $test "$osname" = aix -a ! -f /lib/syscalls.exp; then
|
|
echo " "
|
|
echo "Whoops! This is an AIX system without /lib/syscalls.exp!" >&4
|
|
echo "'nm' won't be sufficient on this sytem." >&4
|
|
dflt=n
|
|
fi
|
|
;;
|
|
esac
|
|
case "$dflt" in
|
|
'') dflt=`$egrep 'inlibc|csym' $rsrc/Configure | wc -l 2>/dev/null`
|
|
if $test $dflt -gt 20; then
|
|
dflt=y
|
|
else
|
|
dflt=n
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
*)
|
|
case "$usenm" in
|
|
true|$define) dflt=y;;
|
|
*) dflt=n;;
|
|
esac
|
|
;;
|
|
esac
|
|
$cat <<EOM
|
|
|
|
I can use $nm to extract the symbols from your C libraries. This
|
|
is a time consuming task which may generate huge output on the disk (up
|
|
to 3 megabytes) but that should make the symbols extraction faster. The
|
|
alternative is to skip the 'nm' extraction part and to compile a small
|
|
test program instead to determine whether each symbol is present. If
|
|
you have a fast C compiler and/or if your 'nm' output cannot be parsed,
|
|
this may be the best solution.
|
|
|
|
You probably shouldn't let me use 'nm' if you are using the GNU C Library.
|
|
|
|
EOM
|
|
rp="Shall I use $nm to extract C symbols from the libraries?"
|
|
. ./myread
|
|
case "$ans" in
|
|
[Nn]*) usenm=false;;
|
|
*) usenm=true;;
|
|
esac
|
|
|
|
runnm=$usenm
|
|
case "$reuseval" in
|
|
true) runnm=false;;
|
|
esac
|
|
|
|
: nm options which may be necessary
|
|
case "$nm_opt" in
|
|
'') if $test -f /mach_boot; then
|
|
nm_opt='' # Mach
|
|
elif $test -d /usr/ccs/lib; then
|
|
nm_opt='-p' # Solaris (and SunOS?)
|
|
elif $test -f /dgux; then
|
|
nm_opt='-p' # DG-UX
|
|
elif $test -f /lib64/rld; then
|
|
nm_opt='-p' # 64-bit Irix
|
|
else
|
|
nm_opt=''
|
|
fi;;
|
|
esac
|
|
|
|
: nm options which may be necessary for shared libraries but illegal
|
|
: for archive libraries. Thank you, Linux.
|
|
case "$nm_so_opt" in
|
|
'') case "$myuname" in
|
|
*linux*)
|
|
if $nm --help | $grep 'dynamic' > /dev/null 2>&1; then
|
|
nm_so_opt='--dynamic'
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$runnm" in
|
|
true)
|
|
: get list of predefined functions in a handy place
|
|
echo " "
|
|
case "$libc" in
|
|
'') libc=unknown
|
|
case "$libs" in
|
|
*-lc_s*) libc=`./loc libc_s$_a $libc $libpth`
|
|
esac
|
|
;;
|
|
esac
|
|
libnames='';
|
|
case "$libs" in
|
|
'') ;;
|
|
*) for thislib in $libs; do
|
|
case "$thislib" in
|
|
-lc|-lc_s)
|
|
: Handle C library specially below.
|
|
;;
|
|
-l*)
|
|
thislib=`echo $thislib | $sed -e 's/^-l//'`
|
|
if try=`./loc lib$thislib.$so.'*' X $libpth`; $test -f "$try"; then
|
|
:
|
|
elif try=`./loc lib$thislib.$so X $libpth`; $test -f "$try"; then
|
|
:
|
|
elif try=`./loc lib$thislib$_a X $libpth`; $test -f "$try"; then
|
|
:
|
|
elif try=`./loc $thislib$_a X $libpth`; $test -f "$try"; then
|
|
:
|
|
elif try=`./loc lib$thislib X $libpth`; $test -f "$try"; then
|
|
:
|
|
elif try=`./loc $thislib X $libpth`; $test -f "$try"; then
|
|
:
|
|
elif try=`./loc Slib$thislib$_a X $xlibpth`; $test -f "$try"; then
|
|
:
|
|
else
|
|
try=''
|
|
fi
|
|
libnames="$libnames $try"
|
|
;;
|
|
*) libnames="$libnames $thislib" ;;
|
|
esac
|
|
done
|
|
;;
|
|
esac
|
|
xxx=normal
|
|
case "$libc" in
|
|
unknown)
|
|
set /lib/libc.$so
|
|
for xxx in $libpth; do
|
|
$test -r $1 || set $xxx/libc.$so
|
|
: The messy sed command sorts on library version numbers.
|
|
$test -r $1 || \
|
|
set `echo blurfl; echo $xxx/libc.$so.[0-9]* | \
|
|
tr ' ' $trnl | egrep -v '\.[A-Za-z]*$' | $sed -e '
|
|
h
|
|
s/[0-9][0-9]*/0000&/g
|
|
s/0*\([0-9][0-9][0-9][0-9][0-9]\)/\1/g
|
|
G
|
|
s/\n/ /' | \
|
|
$sort | $sed -e 's/^.* //'`
|
|
eval set \$$#
|
|
done
|
|
$test -r $1 || set /usr/ccs/lib/libc.$so
|
|
$test -r $1 || set /lib/libsys_s$_a
|
|
;;
|
|
*)
|
|
set blurfl
|
|
;;
|
|
esac
|
|
if $test -r "$1"; then
|
|
echo "Your (shared) C library seems to be in $1."
|
|
libc="$1"
|
|
elif $test -r /lib/libc && $test -r /lib/clib; then
|
|
echo "Your C library seems to be in both /lib/clib and /lib/libc."
|
|
xxx=apollo
|
|
libc='/lib/clib /lib/libc'
|
|
if $test -r /lib/syslib; then
|
|
echo "(Your math library is in /lib/syslib.)"
|
|
libc="$libc /lib/syslib"
|
|
fi
|
|
elif $test -r "$libc" || (test -h "$libc") >/dev/null 2>&1; then
|
|
echo "Your C library seems to be in $libc, as you said before."
|
|
elif $test -r $incpath/usr/lib/libc$_a; then
|
|
libc=$incpath/usr/lib/libc$_a;
|
|
echo "Your C library seems to be in $libc. That's fine."
|
|
elif $test -r /lib/libc$_a; then
|
|
libc=/lib/libc$_a;
|
|
echo "Your C library seems to be in $libc. You're normal."
|
|
else
|
|
if tans=`./loc libc$_a blurfl/dyick $libpth`; $test -r "$tans"; then
|
|
:
|
|
elif tans=`./loc libc blurfl/dyick $libpth`; $test -r "$tans"; then
|
|
libnames="$libnames "`./loc clib blurfl/dyick $libpth`
|
|
elif tans=`./loc clib blurfl/dyick $libpth`; $test -r "$tans"; then
|
|
:
|
|
elif tans=`./loc Slibc$_a blurfl/dyick $xlibpth`; $test -r "$tans"; then
|
|
:
|
|
elif tans=`./loc Mlibc$_a blurfl/dyick $xlibpth`; $test -r "$tans"; then
|
|
:
|
|
else
|
|
tans=`./loc Llibc$_a blurfl/dyick $xlibpth`
|
|
fi
|
|
if $test -r "$tans"; then
|
|
echo "Your C library seems to be in $tans, of all places."
|
|
libc=$tans
|
|
else
|
|
libc='blurfl'
|
|
fi
|
|
fi
|
|
if $test $xxx = apollo -o -r "$libc" || (test -h "$libc") >/dev/null 2>&1; then
|
|
dflt="$libc"
|
|
cat <<EOM
|
|
|
|
If the guess above is wrong (which it might be if you're using a strange
|
|
compiler, or your machine supports multiple models), you can override it here.
|
|
|
|
EOM
|
|
else
|
|
dflt=''
|
|
echo $libpth | $tr ' ' $trnl | $sort | $uniq > libpath
|
|
cat >&4 <<EOM
|
|
I can't seem to find your C library. I've looked in the following places:
|
|
|
|
EOM
|
|
$sed 's/^/ /' libpath
|
|
cat <<EOM
|
|
|
|
None of these seems to contain your C library. I need to get its name...
|
|
|
|
EOM
|
|
fi
|
|
fn=f
|
|
rp='Where is your C library?'
|
|
. ./getfile
|
|
libc="$ans"
|
|
|
|
echo " "
|
|
echo $libc $libnames | $tr ' ' $trnl | $sort | $uniq > libnames
|
|
set X `cat libnames`
|
|
shift
|
|
xxx=files
|
|
case $# in 1) xxx=file; esac
|
|
echo "Extracting names from the following $xxx for later perusal:" >&4
|
|
echo " "
|
|
$sed 's/^/ /' libnames >&4
|
|
echo " "
|
|
$echo $n "This may take a while...$c" >&4
|
|
|
|
for file in $*; do
|
|
case $file in
|
|
*$so*) $nm $nm_so_opt $nm_opt $file 2>/dev/null;;
|
|
*) $nm $nm_opt $file 2>/dev/null;;
|
|
esac
|
|
done >libc.tmp
|
|
|
|
$echo $n ".$c"
|
|
$grep fprintf libc.tmp > libc.ptf
|
|
xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
|
|
xrun='eval "<libc.tmp $com >libc.list"; echo "done" >&4'
|
|
xxx='[ADTSIW]'
|
|
if com="$sed -n -e 's/__IO//' -e 's/^.* $xxx *_[_.]*//p' -e 's/^.* $xxx *//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^__*//' -e 's/^\([a-zA-Z_0-9$]*\).*xtern.*/\1/p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e '/|UNDEF/d' -e '/FUNC..GL/s/^.*|__*//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^.* D __*//p' -e 's/^.* D //p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^_//' -e 's/^\([a-zA-Z_0-9]*\).*xtern.*text.*/\1/p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^.*|FUNC |GLOB .*|//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$grep '|' | $sed -n -e '/|COMMON/d' -e '/|DATA/d' \
|
|
-e '/ file/d' -e 's/^\([^ ]*\).*/\1/p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^.*|FUNC |GLOB .*|//p' -e 's/^.*|FUNC |WEAK .*|//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^__//' -e '/|Undef/d' -e '/|Proc/s/ .*//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^.*|Proc .*|Text *| *//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e '/Def. Text/s/.* \([^ ]*\)\$/\1/p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/^[-0-9a-f ]*_\(.*\)=.*/\1/p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="$sed -n -e 's/.*\.text n\ \ \ \.//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
elif com="sed -n -e 's/^__.*//' -e 's/[ ]*D[ ]*[0-9]*.*//p'";\
|
|
eval $xscan;\
|
|
$contains '^fprintf$' libc.list >/dev/null 2>&1; then
|
|
eval $xrun
|
|
else
|
|
$nm -p $* 2>/dev/null >libc.tmp
|
|
$grep fprintf libc.tmp > libc.ptf
|
|
if com="$sed -n -e 's/^.* [ADTSIW] *_[_.]*//p' -e 's/^.* [ADTSIW] //p'";\
|
|
eval $xscan; $contains '^fprintf$' libc.list >/dev/null 2>&1
|
|
then
|
|
nm_opt='-p'
|
|
eval $xrun
|
|
else
|
|
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
|
|
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
|
|
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
|
|
then
|
|
for thisname in $libnames; do
|
|
bld t $libnames | \
|
|
$sed -e 's/.*\///' -e "s/\\$_o:.*\$//" >>libc.list
|
|
$ar t $thisname >>libc.tmp
|
|
done
|
|
echo "Ok." >&4
|
|
else
|
|
echo "That didn't work either. Giving up." >&4
|
|
exit 1
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
nm_extract="$com"
|
|
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
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f libnames libpath
|
|
|
|
: is a C symbol defined?
|
|
csym='tlook=$1;
|
|
case "$3" in
|
|
-v) tf=libc.tmp; tc=""; tdc="";;
|
|
-a) tf=libc.tmp; tc="[0]"; tdc="[]";;
|
|
*) tlook="^$1\$"; tf=libc.list; tc="()"; tdc="()";;
|
|
esac;
|
|
tx=yes;
|
|
case "$reuseval-$4" in
|
|
true-) ;;
|
|
true-*) tx=no; eval "tval=\$$4"; case "$tval" in "") tx=yes;; esac;;
|
|
esac;
|
|
case "$tx" in
|
|
yes)
|
|
case "$runnm" in
|
|
true)
|
|
if $contains $tlook $tf >/dev/null 2>&1;
|
|
then tval=true;
|
|
else tval=false;
|
|
fi;;
|
|
*)
|
|
echo "int main() { extern short $1$tdc; printf(\"%hd\", $1$tc); }" > t.c;
|
|
if $cc -o t $optimize $ccflags $ldflags t.c $libs >/dev/null 2>&1;
|
|
then tval=true;
|
|
else tval=false;
|
|
fi;
|
|
$rm -f t t.c;;
|
|
esac;;
|
|
*)
|
|
case "$tval" in
|
|
$define) tval=true;;
|
|
*) tval=false;;
|
|
esac;;
|
|
esac;
|
|
eval "$2=$tval"'
|
|
|
|
: define an is-in-libc? function
|
|
inlibc='echo " "; td=$define; tu=$undef;
|
|
sym=$1; var=$2; eval "was=\$$2";
|
|
tx=yes;
|
|
case "$reuseval$was" in
|
|
true) ;;
|
|
true*) tx=no;;
|
|
esac;
|
|
case "$tx" in
|
|
yes)
|
|
set $sym tres -f;
|
|
eval $csym;
|
|
case "$tres" in
|
|
true)
|
|
echo "$sym() found." >&4;
|
|
case "$was" in $undef) . ./whoa; esac; eval "$var=\$td";;
|
|
*)
|
|
echo "$sym() NOT found." >&4;
|
|
case "$was" in $define) . ./whoa; esac; eval "$var=\$tu";;
|
|
esac;;
|
|
*)
|
|
case "$was" in
|
|
$define) echo "$sym() found." >&4;;
|
|
*) echo "$sym() NOT found." >&4;;
|
|
esac;;
|
|
esac'
|
|
|
|
: see if sqrtl exists
|
|
set sqrtl d_sqrtl
|
|
eval $inlibc
|
|
|
|
case "$ccflags" in
|
|
*-DUSE_LONG_DOUBLE*|*-DUSE_MORE_BITS*) uselongdouble="$define" ;;
|
|
esac
|
|
|
|
case "$uselongdouble" in
|
|
$define|true|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
cat <<EOM
|
|
|
|
Perl can be built to take advantage of long doubles which
|
|
(if available) may give more accuracy and range for floating point numbers.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Try to use long doubles if available?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set uselongdouble
|
|
eval $setvar
|
|
|
|
case "$uselongdouble" in
|
|
true|[yY]*) uselongdouble="$define" ;;
|
|
esac
|
|
|
|
case "$uselongdouble" in
|
|
$define)
|
|
: Look for a hint-file generated 'call-back-unit'. If the
|
|
: user has specified that long doubles should be used,
|
|
: we may need to set or change some other defaults.
|
|
if $test -f uselongdouble.cbu; then
|
|
echo "Your platform has some specific hints for long doubles, using them..."
|
|
. ./uselongdouble.cbu
|
|
else
|
|
$cat <<EOM
|
|
(Your platform doesn't have any specific hints for long doubles.)
|
|
EOM
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
case "$uselongdouble:$d_sqrtl" in
|
|
$define:$undef)
|
|
$cat <<EOM >&4
|
|
|
|
*** You requested the use of long doubles but you do not seem to have
|
|
*** the mathematic functions for long doubles. I'm disabling the use
|
|
*** of long doubles.
|
|
|
|
EOM
|
|
uselongdouble=$undef
|
|
;;
|
|
esac
|
|
|
|
: check for length of double
|
|
echo " "
|
|
case "$doublesize" in
|
|
'')
|
|
echo "Checking to see how big your double precision numbers are..." >&4
|
|
$cat >try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)sizeof(double));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
doublesize=`./try`
|
|
echo "Your double is $doublesize bytes long."
|
|
else
|
|
dflt='8'
|
|
echo "(I can't seem to compile the test program. Guessing...)"
|
|
rp="What is the size of a double precision number (in bytes)?"
|
|
. ./myread
|
|
doublesize="$ans"
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.c try
|
|
|
|
: check for long doubles
|
|
echo " "
|
|
echo "Checking to see if you have long double..." >&4
|
|
echo 'int main() { long double x = 7.0; }' > try.c
|
|
set try
|
|
if eval $compile; then
|
|
val="$define"
|
|
echo "You have long double."
|
|
else
|
|
val="$undef"
|
|
echo "You do not have long double."
|
|
fi
|
|
$rm try.*
|
|
set d_longdbl
|
|
eval $setvar
|
|
|
|
: check for length of long double
|
|
case "${d_longdbl}${longdblsize}" in
|
|
$define)
|
|
echo " "
|
|
echo "Checking to see how big your long doubles are..." >&4
|
|
$cat >try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", sizeof(long double));
|
|
}
|
|
EOCP
|
|
set try
|
|
set try
|
|
if eval $compile; then
|
|
longdblsize=`./try$exe_ext`
|
|
echo "Your long doubles are $longdblsize bytes long."
|
|
else
|
|
dflt='8'
|
|
echo " "
|
|
echo "(I can't seem to compile the test program. Guessing...)" >&4
|
|
rp="What is the size of a long double (in bytes)?"
|
|
. ./myread
|
|
longdblsize="$ans"
|
|
fi
|
|
if $test "X$doublesize" = "X$longdblsize"; then
|
|
echo "(That isn't any different from an ordinary double.)"
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.* try
|
|
|
|
: determine the architecture name
|
|
echo " "
|
|
if xxx=`./loc arch blurfl $pth`; $test -f "$xxx"; then
|
|
tarch=`arch`"-$osname"
|
|
elif xxx=`./loc uname blurfl $pth`; $test -f "$xxx" ; then
|
|
if uname -m > tmparch 2>&1 ; then
|
|
tarch=`$sed -e 's/ *$//' -e 's/ /_/g' \
|
|
-e 's/$/'"-$osname/" tmparch`
|
|
else
|
|
tarch="$osname"
|
|
fi
|
|
$rm -f tmparch
|
|
else
|
|
tarch="$osname"
|
|
fi
|
|
case "$myarchname" in
|
|
''|"$tarch") ;;
|
|
*)
|
|
echo "(Your architecture name used to be $myarchname.)"
|
|
archname=''
|
|
;;
|
|
esac
|
|
myarchname="$tarch"
|
|
case "$archname" in
|
|
'') dflt="$tarch";;
|
|
*) dflt="$archname";;
|
|
esac
|
|
rp='What is your architecture name'
|
|
. ./myread
|
|
archname="$ans"
|
|
case "$usethreads" in
|
|
$define)
|
|
echo "Threads selected." >&4
|
|
case "$archname" in
|
|
*-thread*) echo "...and architecture name already has -thread." >&4
|
|
;;
|
|
*) archname="$archname-thread"
|
|
echo "...setting architecture name to $archname." >&4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$usemultiplicity" in
|
|
$define)
|
|
echo "Multiplicity selected." >&4
|
|
case "$archname" in
|
|
*-multi*) echo "...and architecture name already has -multi." >&4
|
|
;;
|
|
*) archname="$archname-multi"
|
|
echo "...setting architecture name to $archname." >&4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$use64bitint$use64bitall" in
|
|
*"$define"*)
|
|
case "$archname64" in
|
|
'')
|
|
echo "This architecture is naturally 64-bit, not changing architecture name." >&4
|
|
;;
|
|
*)
|
|
case "$use64bitint" in
|
|
"$define") echo "64 bit integers selected." >&4 ;;
|
|
esac
|
|
case "$use64bitall" in
|
|
"$define") echo "Maximal 64 bitness selected." >&4 ;;
|
|
esac
|
|
case "$archname" in
|
|
*-$archname64*) echo "...and architecture name already has $archname64." >&4
|
|
;;
|
|
*) archname="$archname-$archname64"
|
|
echo "...setting architecture name to $archname." >&4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
esac
|
|
case "$uselongdouble" in
|
|
$define)
|
|
echo "Long doubles selected." >&4
|
|
case "$longdblsize" in
|
|
$doublesize)
|
|
"...but long doubles are equal to doubles, not changing architecture name." >&4
|
|
;;
|
|
*)
|
|
case "$archname" in
|
|
*-ld*) echo "...and architecture name already has -ld." >&4
|
|
;;
|
|
*) archname="$archname-ld"
|
|
echo "...setting architecture name to $archname." >&4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$useperlio" in
|
|
$define)
|
|
echo "Perlio selected." >&4
|
|
case "$archname" in
|
|
*-perlio*) echo "...and architecture name already has -perlio." >&4
|
|
;;
|
|
*) archname="$archname-perlio"
|
|
echo "...setting architecture name to $archname." >&4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: determine root of directory hierarchy where package will be installed.
|
|
case "$prefix" in
|
|
'')
|
|
dflt=`./loc . /usr/local /usr/local /local /opt /usr`
|
|
;;
|
|
*)
|
|
dflt="$prefix"
|
|
;;
|
|
esac
|
|
$cat <<EOM
|
|
|
|
By default, $package will be installed in $dflt/bin, manual pages
|
|
under $dflt/man, etc..., i.e. with $dflt as prefix for all
|
|
installation directories. Typically this is something like /usr/local.
|
|
If you wish to have binaries under /usr/bin but other parts of the
|
|
installation under /usr/local, that's ok: you will be prompted
|
|
separately for each of the installation directories, the prefix being
|
|
only used to set the defaults.
|
|
|
|
EOM
|
|
fn=d~
|
|
rp='Installation prefix to use?'
|
|
. ./getfile
|
|
oldprefix=''
|
|
case "$prefix" in
|
|
'') ;;
|
|
*)
|
|
case "$ans" in
|
|
"$prefix") ;;
|
|
*) oldprefix="$prefix";;
|
|
esac
|
|
;;
|
|
esac
|
|
prefix="$ans"
|
|
prefixexp="$ansexp"
|
|
|
|
: is AFS running?
|
|
echo " "
|
|
case "$afs" in
|
|
$define|true) afs=true ;;
|
|
$undef|false) afs=false ;;
|
|
*) if test -d /afs; then
|
|
afs=true
|
|
else
|
|
afs=false
|
|
fi
|
|
;;
|
|
esac
|
|
if $afs; then
|
|
echo "AFS may be running... I'll be extra cautious then..." >&4
|
|
else
|
|
echo "AFS does not seem to be running..." >&4
|
|
fi
|
|
|
|
: determine installation prefix for where package is to be installed.
|
|
if $afs; then
|
|
$cat <<EOM
|
|
|
|
Since you are running AFS, I need to distinguish the directory in which
|
|
files will reside from the directory in which they are installed (and from
|
|
which they are presumably copied to the former directory by occult means).
|
|
|
|
EOM
|
|
case "$installprefix" in
|
|
'') dflt=`echo $prefix | sed 's#^/afs/#/afs/.#'`;;
|
|
*) dflt="$installprefix";;
|
|
esac
|
|
else
|
|
$cat <<EOM
|
|
|
|
In some special cases, particularly when building $package for distribution,
|
|
it is convenient to distinguish between the directory in which files should
|
|
be installed from the directory ($prefix) in which they
|
|
will eventually reside. For most users, these two directories are the same.
|
|
|
|
EOM
|
|
case "$installprefix" in
|
|
'') dflt=$prefix ;;
|
|
*) dflt=$installprefix;;
|
|
esac
|
|
fi
|
|
fn=d~
|
|
rp='What installation prefix should I use for installing files?'
|
|
. ./getfile
|
|
installprefix="$ans"
|
|
installprefixexp="$ansexp"
|
|
|
|
: set the prefixit variable, to compute a suitable default value
|
|
prefixit='case "$3" in
|
|
""|none)
|
|
case "$oldprefix" in
|
|
"") eval "$1=\"\$$2\"";;
|
|
*)
|
|
case "$3" in
|
|
"") eval "$1=";;
|
|
none)
|
|
eval "tp=\"\$$2\"";
|
|
case "$tp" in
|
|
""|" ") eval "$1=\"\$$2\"";;
|
|
*) eval "$1=";;
|
|
esac;;
|
|
esac;;
|
|
esac;;
|
|
*)
|
|
eval "tp=\"$oldprefix-\$$2-\""; eval "tp=\"$tp\"";
|
|
case "$tp" in
|
|
--|/*--|\~*--) eval "$1=\"$prefix/$3\"";;
|
|
/*-$oldprefix/*|\~*-$oldprefix/*)
|
|
eval "$1=\`echo \$$2 | sed \"s,^$oldprefix,$prefix,\"\`";;
|
|
*) eval "$1=\"\$$2\"";;
|
|
esac;;
|
|
esac'
|
|
|
|
|
|
: get the patchlevel
|
|
echo " "
|
|
echo "Getting the current patchlevel..." >&4
|
|
if $test -r $rsrc/patchlevel.h;then
|
|
revision=`awk '/define[ ]+PERL_REVISION/ {print $3}' $rsrc/patchlevel.h`
|
|
patchlevel=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
|
|
subversion=`awk '/define[ ]+PERL_SUBVERSION/ {print $3}' $rsrc/patchlevel.h`
|
|
api_revision=`awk '/define[ ]+PERL_API_REVISION/ {print $3}' $rsrc/patchlevel.h`
|
|
api_version=`awk '/define[ ]+PERL_API_VERSION/ {print $3}' $rsrc/patchlevel.h`
|
|
api_subversion=`awk '/define[ ]+PERL_API_SUBVERSION/ {print $3}' $rsrc/patchlevel.h`
|
|
else
|
|
revision=0
|
|
patchlevel=0
|
|
subversion=0
|
|
api_revision=0
|
|
api_version=0
|
|
api_subversion=0
|
|
fi
|
|
$echo "(You have $package version $patchlevel subversion $subversion.)"
|
|
case "$osname" in
|
|
dos|vms)
|
|
: XXX Should be a Configure test for double-dots in filenames.
|
|
version=`echo $revision $patchlevel $subversion | \
|
|
$awk '{ printf "%d_%d_%d\n", $1, $2, $3 }'`
|
|
api_versionstring=`echo $api_revision $api_version $api_subversion | \
|
|
$awk '{ printf "%d_%d_%d\n", $1, $2, $3 }'`
|
|
;;
|
|
*)
|
|
version=`echo $revision $patchlevel $subversion | \
|
|
$awk '{ printf "%d.%d.%d\n", $1, $2, $3 }'`
|
|
api_versionstring=`echo $api_revision $api_version $api_subversion | \
|
|
$awk '{ printf "%d.%d.%d\n", $1, $2, $3 }'`
|
|
;;
|
|
esac
|
|
: Special case the 5.005_xx maintenance series, which used 5.005
|
|
: without any subversion label as a subdirectory in $sitelib
|
|
if test "${api_revision}${api_version}${api_subversion}" = "550"; then
|
|
api_versionstring='5.005'
|
|
fi
|
|
|
|
: determine installation style
|
|
: For now, try to deduce it from prefix unless it is already set.
|
|
: Reproduce behavior of 5.005 and earlier, maybe drop that in 5.7.
|
|
case "$installstyle" in
|
|
'') case "$prefix" in
|
|
*perl*) dflt='lib';;
|
|
*) dflt='lib/perl5' ;;
|
|
esac
|
|
;;
|
|
*) dflt="$installstyle" ;;
|
|
esac
|
|
: Probably not worth prompting for this since we prompt for all
|
|
: the directories individually, and the prompt would be too long and
|
|
: confusing anyway.
|
|
installstyle=$dflt
|
|
|
|
: determine where private library files go
|
|
: Usual default is /usr/local/lib/perl5/$version.
|
|
: Also allow things like /opt/perl/lib/$version, since
|
|
: /opt/perl/lib/perl5... would be redundant.
|
|
: The default "style" setting is made in installstyle.U
|
|
case "$installstyle" in
|
|
*lib/perl5*) set dflt privlib lib/$package/$version ;;
|
|
*) set dflt privlib lib/$version ;;
|
|
esac
|
|
eval $prefixit
|
|
$cat <<EOM
|
|
|
|
There are some auxiliary files for $package that need to be put into a
|
|
private library directory that is accessible by everyone.
|
|
|
|
EOM
|
|
fn=d~+
|
|
rp='Pathname where the private library files will reside?'
|
|
. ./getfile
|
|
privlib="$ans"
|
|
privlibexp="$ansexp"
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installprivlib=`echo $privlibexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installprivlib="$privlibexp"
|
|
fi
|
|
|
|
: set the prefixup variable, to restore leading tilda escape
|
|
prefixup='case "$prefixexp" in
|
|
"$prefix") ;;
|
|
*) eval "$1=\`echo \$$1 | sed \"s,^$prefixexp,$prefix,\"\`";;
|
|
esac'
|
|
|
|
: determine where public architecture dependent libraries go
|
|
set archlib archlib
|
|
eval $prefixit
|
|
: privlib default is /usr/local/lib/$package/$version
|
|
: archlib default is /usr/local/lib/$package/$version/$archname
|
|
: privlib may have an optional trailing /share.
|
|
tdflt=`echo $privlib | $sed 's,/share$,,'`
|
|
tdflt=$tdflt/$archname
|
|
case "$archlib" in
|
|
'') dflt=$tdflt
|
|
;;
|
|
*) dflt="$archlib"
|
|
;;
|
|
esac
|
|
$cat <<EOM
|
|
|
|
$spackage contains architecture-dependent library files. If you are
|
|
sharing libraries in a heterogeneous environment, you might store
|
|
these files in a separate location. Otherwise, you can just include
|
|
them with the rest of the public library files.
|
|
|
|
EOM
|
|
fn=d+~
|
|
rp='Where do you want to put the public architecture-dependent libraries?'
|
|
. ./getfile
|
|
archlib="$ans"
|
|
archlibexp="$ansexp"
|
|
if $test X"$archlib" = X"$privlib"; then
|
|
d_archlib="$undef"
|
|
else
|
|
d_archlib="$define"
|
|
fi
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installarchlib=`echo $archlibexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installarchlib="$archlibexp"
|
|
fi
|
|
|
|
|
|
: Binary compatibility with 5.005 is not possible for builds
|
|
: with advanced features
|
|
case "$usethreads$usemultiplicity" in
|
|
*define*)
|
|
bincompat5005="$undef"
|
|
d_bincompat5005="$undef"
|
|
;;
|
|
*) $cat <<EOM
|
|
|
|
This version of Perl can be compiled for binary compatibility with 5.005.
|
|
If you decide to do so, you will be able to continue using most of the
|
|
extensions that were compiled for Perl 5.005.
|
|
|
|
EOM
|
|
case "$bincompat5005$d_bincompat5005" in
|
|
*"$undef"*) dflt=n ;;
|
|
*) dflt=y ;;
|
|
esac
|
|
rp='Binary compatibility with Perl 5.005?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) val="$define" ;;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set d_bincompat5005
|
|
eval $setvar
|
|
case "$d_bincompat5005" in
|
|
"$define")
|
|
bincompat5005="$define"
|
|
;;
|
|
*) bincompat5005="$undef"
|
|
d_bincompat5005="$undef"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
|
|
: see if setuid scripts can be secure
|
|
$cat <<EOM
|
|
|
|
Some kernels have a bug that prevents setuid #! scripts from being
|
|
secure. Some sites have disabled setuid #! scripts because of this.
|
|
|
|
First let's decide if your kernel supports secure setuid #! scripts.
|
|
(If setuid #! scripts would be secure but have been disabled anyway,
|
|
don't say that they are secure if asked.)
|
|
|
|
EOM
|
|
|
|
val="$undef"
|
|
if $test -d /dev/fd; then
|
|
echo "#!$ls" >reflect
|
|
chmod +x,u+s reflect
|
|
./reflect >flect 2>&1
|
|
if $contains "/dev/fd" flect >/dev/null; then
|
|
echo "Congratulations, your kernel has secure setuid scripts!" >&4
|
|
val="$define"
|
|
else
|
|
$cat <<EOM
|
|
If you are not sure if they are secure, I can check but I'll need a
|
|
username and password different from the one you are using right now.
|
|
If you don't have such a username or don't want me to test, simply
|
|
enter 'none'.
|
|
|
|
EOM
|
|
rp='Other username to test security of setuid scripts with?'
|
|
dflt='none'
|
|
. ./myread
|
|
case "$ans" in
|
|
n|none)
|
|
case "$d_suidsafe" in
|
|
'') echo "I'll assume setuid scripts are *not* secure." >&4
|
|
dflt=n;;
|
|
"$undef")
|
|
echo "Well, the $hint value is *not* secure." >&4
|
|
dflt=n;;
|
|
*) echo "Well, the $hint value *is* secure." >&4
|
|
dflt=y;;
|
|
esac
|
|
;;
|
|
*)
|
|
$rm -f reflect flect
|
|
echo "#!$ls" >reflect
|
|
chmod +x,u+s reflect
|
|
echo >flect
|
|
chmod a+w flect
|
|
echo '"su" will (probably) prompt you for '"$ans's password."
|
|
su $ans -c './reflect >flect'
|
|
if $contains "/dev/fd" flect >/dev/null; then
|
|
echo "Okay, it looks like setuid scripts are secure." >&4
|
|
dflt=y
|
|
else
|
|
echo "I don't think setuid scripts are secure." >&4
|
|
dflt=n
|
|
fi
|
|
;;
|
|
esac
|
|
rp='Does your kernel have *secure* setuid scripts?'
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) val="$define";;
|
|
*) val="$undef";;
|
|
esac
|
|
fi
|
|
else
|
|
echo "I don't think setuid scripts are secure (no /dev/fd directory)." >&4
|
|
echo "(That's for file descriptors, not floppy disks.)"
|
|
val="$undef"
|
|
fi
|
|
set d_suidsafe
|
|
eval $setvar
|
|
|
|
$rm -f reflect flect
|
|
|
|
: now see if they want to do setuid emulation
|
|
echo " "
|
|
val="$undef"
|
|
case "$d_suidsafe" in
|
|
"$define")
|
|
val="$undef"
|
|
echo "No need to emulate SUID scripts since they are secure here." >& 4
|
|
;;
|
|
*)
|
|
$cat <<EOM
|
|
Some systems have disabled setuid scripts, especially systems where
|
|
setuid scripts cannot be secure. On systems where setuid scripts have
|
|
been disabled, the setuid/setgid bits on scripts are currently
|
|
useless. It is possible for $package to detect those bits and emulate
|
|
setuid/setgid in a secure fashion. This emulation will only work if
|
|
setuid scripts have been disabled in your kernel.
|
|
|
|
EOM
|
|
case "$d_dosuid" in
|
|
"$define") dflt=y ;;
|
|
*) dflt=n ;;
|
|
esac
|
|
rp="Do you want to do setuid/setgid emulation?"
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) val="$define";;
|
|
*) val="$undef";;
|
|
esac
|
|
;;
|
|
esac
|
|
set d_dosuid
|
|
eval $setvar
|
|
|
|
: determine filename position in cpp output
|
|
echo " "
|
|
echo "Computing filename position in cpp output for #include directives..." >&4
|
|
echo '#include <stdio.h>' > foo.c
|
|
$cat >fieldn <<EOF
|
|
$startsh
|
|
$cppstdin $cppflags $cppminus <foo.c 2>/dev/null | \
|
|
$grep '^[ ]*#.*stdio\.h' | \
|
|
while read cline; do
|
|
pos=1
|
|
set \$cline
|
|
while $test \$# -gt 0; do
|
|
if $test -r \`echo \$1 | $tr -d '"'\`; then
|
|
echo "\$pos"
|
|
exit 0
|
|
fi
|
|
shift
|
|
pos=\`expr \$pos + 1\`
|
|
done
|
|
done
|
|
EOF
|
|
chmod +x fieldn
|
|
fieldn=`./fieldn`
|
|
$rm -f foo.c fieldn
|
|
case $fieldn in
|
|
'') pos='???';;
|
|
1) pos=first;;
|
|
2) pos=second;;
|
|
3) pos=third;;
|
|
*) pos="${fieldn}th";;
|
|
esac
|
|
echo "Your cpp writes the filename in the $pos field of the line."
|
|
|
|
: locate header file
|
|
$cat >findhdr <<EOF
|
|
$startsh
|
|
wanted=\$1
|
|
name=''
|
|
for usrincdir in $usrinc
|
|
do
|
|
if test -f \$usrincdir/\$wanted; then
|
|
echo "\$usrincdir/\$wanted"
|
|
exit 0
|
|
fi
|
|
done
|
|
awkprg='{ print \$$fieldn }'
|
|
echo "#include <\$wanted>" > foo\$\$.c
|
|
$cppstdin $cppminus $cppflags < foo\$\$.c 2>/dev/null | \
|
|
$grep "^[ ]*#.*\$wanted" | \
|
|
while read cline; do
|
|
name=\`echo \$cline | $awk "\$awkprg" | $tr -d '"'\`
|
|
case "\$name" in
|
|
*[/\\\\]\$wanted) echo "\$name"; exit 1;;
|
|
*[\\\\/]\$wanted) echo "\$name"; exit 1;;
|
|
*) exit 2;;
|
|
esac;
|
|
done;
|
|
#
|
|
# status = 0: grep returned 0 lines, case statement not executed
|
|
# status = 1: headerfile found
|
|
# status = 2: while loop executed, no headerfile found
|
|
#
|
|
status=\$?
|
|
$rm -f foo\$\$.c;
|
|
if test \$status -eq 1; then
|
|
exit 0;
|
|
fi
|
|
exit 1
|
|
EOF
|
|
chmod +x findhdr
|
|
|
|
: define an alternate in-header-list? function
|
|
inhdr='echo " "; td=$define; tu=$undef; yyy=$@;
|
|
cont=true; xxf="echo \"<\$1> found.\" >&4";
|
|
case $# in 2) xxnf="echo \"<\$1> NOT found.\" >&4";;
|
|
*) xxnf="echo \"<\$1> NOT found, ...\" >&4";;
|
|
esac;
|
|
case $# in 4) instead=instead;; *) instead="at last";; esac;
|
|
while $test "$cont"; do
|
|
xxx=`./findhdr $1`
|
|
var=$2; eval "was=\$$2";
|
|
if $test "$xxx" && $test -r "$xxx";
|
|
then eval $xxf;
|
|
eval "case \"\$$var\" in $undef) . ./whoa; esac"; eval "$var=\$td";
|
|
cont="";
|
|
else eval $xxnf;
|
|
eval "case \"\$$var\" in $define) . ./whoa; esac"; eval "$var=\$tu"; fi;
|
|
set $yyy; shift; shift; yyy=$@;
|
|
case $# in 0) cont="";;
|
|
2) xxf="echo \"but I found <\$1> $instead.\" >&4";
|
|
xxnf="echo \"and I did not find <\$1> either.\" >&4";;
|
|
*) xxf="echo \"but I found <\$1\> instead.\" >&4";
|
|
xxnf="echo \"there is no <\$1>, ...\" >&4";;
|
|
esac;
|
|
done;
|
|
while $test "$yyy";
|
|
do set $yyy; var=$2; eval "was=\$$2";
|
|
eval "case \"\$$var\" in $define) . ./whoa; esac"; eval "$var=\$tu";
|
|
set $yyy; shift; shift; yyy=$@;
|
|
done'
|
|
|
|
: see if this is a malloc.h system
|
|
set malloc.h i_malloc
|
|
eval $inhdr
|
|
|
|
: see if stdlib is available
|
|
set stdlib.h i_stdlib
|
|
eval $inhdr
|
|
|
|
: determine which malloc to compile in
|
|
echo " "
|
|
case "$usemymalloc" in
|
|
''|[yY]*|true|$define) dflt='y' ;;
|
|
*) dflt='n' ;;
|
|
esac
|
|
rp="Do you wish to attempt to use the malloc that comes with $package?"
|
|
. ./myread
|
|
usemymalloc="$ans"
|
|
case "$ans" in
|
|
y*|true)
|
|
usemymalloc='y'
|
|
mallocsrc='malloc.c'
|
|
mallocobj="malloc$_o"
|
|
d_mymalloc="$define"
|
|
case "$libs" in
|
|
*-lmalloc*)
|
|
: Remove malloc from list of libraries to use
|
|
echo "Removing unneeded -lmalloc from library list" >&4
|
|
set `echo X $libs | $sed -e 's/-lmalloc / /' -e 's/-lmalloc$//'`
|
|
shift
|
|
libs="$*"
|
|
echo "libs = $libs" >&4
|
|
;;
|
|
esac
|
|
;;
|
|
*)
|
|
usemymalloc='n'
|
|
mallocsrc=''
|
|
mallocobj=''
|
|
d_mymalloc="$undef"
|
|
;;
|
|
esac
|
|
|
|
: compute the return types of malloc and free
|
|
echo " "
|
|
$cat >malloc.c <<END
|
|
#$i_malloc I_MALLOC
|
|
#$i_stdlib I_STDLIB
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#ifdef I_MALLOC
|
|
#include <malloc.h>
|
|
#endif
|
|
#ifdef I_STDLIB
|
|
#include <stdlib.h>
|
|
#endif
|
|
#ifdef TRY_MALLOC
|
|
void *malloc();
|
|
#endif
|
|
#ifdef TRY_FREE
|
|
void free();
|
|
#endif
|
|
END
|
|
case "$malloctype" in
|
|
'')
|
|
if $cc $ccflags -c -DTRY_MALLOC malloc.c >/dev/null 2>&1; then
|
|
malloctype='void *'
|
|
else
|
|
malloctype='char *'
|
|
fi
|
|
;;
|
|
esac
|
|
echo "Your system wants malloc to return '$malloctype', it would seem." >&4
|
|
|
|
case "$freetype" in
|
|
'')
|
|
if $cc $ccflags -c -DTRY_FREE malloc.c >/dev/null 2>&1; then
|
|
freetype='void'
|
|
else
|
|
freetype='int'
|
|
fi
|
|
;;
|
|
esac
|
|
echo "Your system uses $freetype free(), it would seem." >&4
|
|
$rm -f malloc.[co]
|
|
$cat <<EOM
|
|
|
|
After $package is installed, you may wish to install various
|
|
add-on modules and utilities. Typically, these add-ons will
|
|
be installed under $prefix with the rest
|
|
of this package. However, you may wish to install such add-ons
|
|
elsewhere under a different prefix.
|
|
|
|
If you do not wish to put everything under a single prefix, that's
|
|
ok. You will be prompted for the individual locations; this siteprefix
|
|
is only used to suggest the defaults.
|
|
|
|
The default should be fine for most people.
|
|
|
|
EOM
|
|
fn=d~+
|
|
rp='Installation prefix to use for add-on modules and utilities?'
|
|
: XXX Here might be another good place for an installstyle setting.
|
|
case "$siteprefix" in
|
|
'') dflt=$prefix ;;
|
|
*) dflt=$siteprefix ;;
|
|
esac
|
|
. ./getfile
|
|
: XXX Prefixit unit does not yet support siteprefix and vendorprefix
|
|
oldsiteprefix=''
|
|
case "$siteprefix" in
|
|
'') ;;
|
|
*) case "$ans" in
|
|
"$prefix") ;;
|
|
*) oldsiteprefix="$prefix";;
|
|
esac
|
|
;;
|
|
esac
|
|
siteprefix="$ans"
|
|
siteprefixexp="$ansexp"
|
|
|
|
: determine where site specific libraries go.
|
|
: Usual default is /usr/local/lib/perl5/site_perl/$version
|
|
: The default "style" setting is made in installstyle.U
|
|
: XXX No longer works with Prefixit stuff.
|
|
prog=`echo $package | $sed 's/-*[0-9.]*$//'`
|
|
case "$sitelib" in
|
|
'') case "$installstyle" in
|
|
*lib/perl5*) dflt=$siteprefix/lib/$package/site_$prog/$version ;;
|
|
*) dflt=$siteprefix/lib/site_$prog/$version ;;
|
|
esac
|
|
;;
|
|
*) dflt="$sitelib"
|
|
;;
|
|
esac
|
|
$cat <<EOM
|
|
|
|
The installation process will create a directory for
|
|
site-specific extensions and modules. Most users find it convenient
|
|
to place all site-specific files in this directory rather than in the
|
|
main distribution directory.
|
|
|
|
EOM
|
|
fn=d~+
|
|
rp='Pathname for the site-specific library files?'
|
|
. ./getfile
|
|
sitelib="$ans"
|
|
sitelibexp="$ansexp"
|
|
sitelib_stem=`echo "$sitelibexp" | sed "s,/$version$,,"`
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installsitelib=`echo $sitelibexp | $sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installsitelib="$sitelibexp"
|
|
fi
|
|
|
|
: determine where site specific architecture-dependent libraries go.
|
|
: sitelib default is /usr/local/lib/perl5/site_perl/$version
|
|
: sitearch default is /usr/local/lib/perl5/site_perl/$version/$archname
|
|
: sitelib may have an optional trailing /share.
|
|
case "$sitearch" in
|
|
'') dflt=`echo $sitelib | $sed 's,/share$,,'`
|
|
dflt="$dflt/$archname"
|
|
;;
|
|
*) dflt="$sitearch"
|
|
;;
|
|
esac
|
|
set sitearch sitearch none
|
|
eval $prefixit
|
|
$cat <<EOM
|
|
|
|
The installation process will also create a directory for
|
|
architecture-dependent site-specific extensions and modules.
|
|
|
|
EOM
|
|
fn=d~+
|
|
rp='Pathname for the site-specific architecture-dependent library files?'
|
|
. ./getfile
|
|
sitearch="$ans"
|
|
sitearchexp="$ansexp"
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installsitearch=`echo $sitearchexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installsitearch="$sitearchexp"
|
|
fi
|
|
|
|
$cat <<EOM
|
|
|
|
The installation process will also create a directory for
|
|
vendor-supplied add-ons. Vendors who supply perl with their system
|
|
may find it convenient to place all vendor-supplied files in this
|
|
directory rather than in the main distribution directory. This will
|
|
ease upgrades between binary-compatible maintenance versions of perl.
|
|
|
|
Of course you may also use these directories in whatever way you see
|
|
fit. For example, you might use them to access modules shared over a
|
|
company-wide network.
|
|
|
|
The default answer should be fine for most people.
|
|
This causes further questions about vendor add-ons to be skipped
|
|
and no vendor-specific directories will be configured for perl.
|
|
|
|
EOM
|
|
rp='Do you want to configure vendor-specific add-on directories?'
|
|
case "$usevendorprefix" in
|
|
define|true|[yY]*) dflt=y ;;
|
|
*) : User may have set vendorprefix directly on Configure command line.
|
|
case "$vendorprefix" in
|
|
''|' ') dflt=n ;;
|
|
*) dflt=y ;;
|
|
esac
|
|
;;
|
|
esac
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) fn=d~+
|
|
rp='Installation prefix to use for vendor-supplied add-ons?'
|
|
case "$vendorprefix" in
|
|
'') dflt='' ;;
|
|
*) dflt=$vendorprefix ;;
|
|
esac
|
|
. ./getfile
|
|
: XXX Prefixit unit does not yet support siteprefix and vendorprefix
|
|
oldvendorprefix=''
|
|
case "$vendorprefix" in
|
|
'') ;;
|
|
*) case "$ans" in
|
|
"$prefix") ;;
|
|
*) oldvendorprefix="$prefix";;
|
|
esac
|
|
;;
|
|
esac
|
|
usevendorprefix="$define"
|
|
vendorprefix="$ans"
|
|
vendorprefixexp="$ansexp"
|
|
;;
|
|
*) usevendorprefix="$undef"
|
|
vendorprefix=''
|
|
vendorprefixexp=''
|
|
;;
|
|
esac
|
|
|
|
case "$vendorprefix" in
|
|
'') d_vendorlib="$undef"
|
|
vendorlib=''
|
|
vendorlibexp=''
|
|
;;
|
|
*) d_vendorlib="$define"
|
|
: determine where vendor-supplied modules go.
|
|
: Usual default is /usr/local/lib/perl5/vendor_perl/$version
|
|
case "$vendorlib" in
|
|
'')
|
|
prog=`echo $package | $sed 's/-*[0-9.]*$//'`
|
|
case "$installstyle" in
|
|
*lib/perl5*) dflt=$vendorprefix/lib/$package/vendor_$prog/$version ;;
|
|
*) dflt=$vendorprefix/lib/vendor_$prog/$version ;;
|
|
esac
|
|
;;
|
|
*) dflt="$vendorlib"
|
|
;;
|
|
esac
|
|
fn=d~+
|
|
rp='Pathname for the vendor-supplied library files?'
|
|
. ./getfile
|
|
vendorlib="$ans"
|
|
vendorlibexp="$ansexp"
|
|
;;
|
|
esac
|
|
vendorlib_stem=`echo "$vendorlibexp" | sed "s,/$version$,,"`
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installvendorlib=`echo $vendorlibexp | $sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installvendorlib="$vendorlibexp"
|
|
fi
|
|
|
|
case "$vendorprefix" in
|
|
'') d_vendorarch="$undef"
|
|
vendorarch=''
|
|
vendorarchexp=''
|
|
;;
|
|
*) d_vendorarch="$define"
|
|
: determine where vendor-supplied architecture-dependent libraries go.
|
|
: vendorlib default is /usr/local/lib/perl5/vendor_perl/$version
|
|
: vendorarch default is /usr/local/lib/perl5/vendor_perl/$version/$archname
|
|
: vendorlib may have an optional trailing /share.
|
|
case "$vendorarch" in
|
|
'') dflt=`echo $vendorlib | $sed 's,/share$,,'`
|
|
dflt="$dflt/$archname"
|
|
;;
|
|
*) dflt="$vendorarch" ;;
|
|
esac
|
|
fn=d~+
|
|
rp='Pathname for vendor-supplied architecture-dependent files?'
|
|
. ./getfile
|
|
vendorarch="$ans"
|
|
vendorarchexp="$ansexp"
|
|
;;
|
|
esac
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installvendorarch=`echo $vendorarchexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installvendorarch="$vendorarchexp"
|
|
fi
|
|
|
|
: Final catch-all directories to search
|
|
$cat <<EOM
|
|
|
|
Lastly, you can have perl look in other directories for extensions and
|
|
modules in addition to those already specified.
|
|
These directories will be searched after
|
|
$sitearch
|
|
$sitelib
|
|
EOM
|
|
test X"$vendorlib" != "X" && echo ' ' $vendorlib
|
|
test X"$vendorarch" != "X" && echo ' ' $vendorarch
|
|
echo ' '
|
|
case "$otherlibdirs" in
|
|
''|' ') dflt='none' ;;
|
|
*) dflt="$otherlibdirs" ;;
|
|
esac
|
|
$cat <<EOM
|
|
Enter a colon-separated set of extra paths to include in perl's @INC
|
|
search path, or enter 'none' for no extra paths.
|
|
|
|
EOM
|
|
|
|
rp='Colon-separated list of additional directories for perl to search?'
|
|
. ./myread
|
|
case "$ans" in
|
|
' '|''|none) otherlibdirs=' ' ;;
|
|
*) otherlibdirs="$ans" ;;
|
|
esac
|
|
case "$otherlibdirs" in
|
|
' ') val=$undef ;;
|
|
*) val=$define ;;
|
|
esac
|
|
set d_perl_otherlibdirs
|
|
eval $setvar
|
|
|
|
: Cruising for prototypes
|
|
echo " "
|
|
echo "Checking out function prototypes..." >&4
|
|
$cat >prototype.c <<'EOCP'
|
|
int main(int argc, char *argv[]) {
|
|
exit(0);}
|
|
EOCP
|
|
if $cc $ccflags -c prototype.c >prototype.out 2>&1 ; then
|
|
echo "Your C compiler appears to support function prototypes."
|
|
val="$define"
|
|
else
|
|
echo "Your C compiler doesn't seem to understand function prototypes."
|
|
val="$undef"
|
|
fi
|
|
set prototype
|
|
eval $setvar
|
|
$rm -f prototype*
|
|
|
|
case "$prototype" in
|
|
"$define") ;;
|
|
*) ansi2knr='ansi2knr'
|
|
echo " "
|
|
cat <<EOM >&4
|
|
|
|
$me: FATAL ERROR:
|
|
This version of $package can only be compiled by a compiler that
|
|
understands function prototypes. Unfortunately, your C compiler
|
|
$cc $ccflags
|
|
doesn't seem to understand them. Sorry about that.
|
|
|
|
If GNU cc is available for your system, perhaps you could try that instead.
|
|
|
|
Eventually, we hope to support building Perl with pre-ANSI compilers.
|
|
If you would like to help in that effort, please contact <perlbug@perl.org>.
|
|
|
|
Aborting Configure now.
|
|
EOM
|
|
exit 2
|
|
;;
|
|
esac
|
|
|
|
: determine where public executables go
|
|
echo " "
|
|
set dflt bin bin
|
|
eval $prefixit
|
|
fn=d~
|
|
rp='Pathname where the public executables will reside?'
|
|
. ./getfile
|
|
if $test "X$ansexp" != "X$binexp"; then
|
|
installbin=''
|
|
fi
|
|
bin="$ans"
|
|
binexp="$ansexp"
|
|
: Change installation prefix, if necessary.
|
|
: XXX Bug? -- ignores Configure -Dinstallprefix setting.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installbin=`echo $binexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installbin="$binexp"
|
|
fi
|
|
|
|
: Find perl5.005 or later.
|
|
echo "Looking for a previously installed perl5.005 or later... "
|
|
case "$perl5" in
|
|
'') for tdir in `echo "$binexp:$PATH" | $sed "s/$path_sep/ /g"`; do
|
|
: Check if this perl is recent and can load a simple module
|
|
if $test -x $tdir/perl && $tdir/perl -Mless -e 'use 5.005;' >/dev/null 2>&1; then
|
|
perl5=$tdir/perl
|
|
break;
|
|
elif $test -x $tdir/perl5 && $tdir/perl5 -Mless -e 'use 5.005;' >/dev/null 2>&1; then
|
|
perl5=$tdir/perl
|
|
break;
|
|
fi
|
|
done
|
|
;;
|
|
*) perl5="$perl5"
|
|
;;
|
|
esac
|
|
case "$perl5" in
|
|
'') echo "None found. That's ok.";;
|
|
*) echo "Using $perl5." ;;
|
|
esac
|
|
|
|
: Determine list of previous versions to include in @INC
|
|
$cat > getverlist <<EOPL
|
|
#!$perl5 -w
|
|
use File::Basename;
|
|
\$api_versionstring = "$api_versionstring";
|
|
\$version = "$version";
|
|
\$stem = "$sitelib_stem";
|
|
\$archname = "$archname";
|
|
EOPL
|
|
$cat >> getverlist <<'EOPL'
|
|
# Can't have leading @ because metaconfig interprets it as a command!
|
|
;@inc_version_list=();
|
|
# XXX Redo to do opendir/readdir?
|
|
if (-d $stem) {
|
|
chdir($stem);
|
|
;@candidates = glob("5.*");
|
|
}
|
|
else {
|
|
;@candidates = ();
|
|
}
|
|
|
|
# XXX ToDo: These comparisons must be reworked when two-digit
|
|
# subversions come along, so that 5.7.10 compares as greater than
|
|
# 5.7.3! By that time, hope that 5.6.x is sufficiently
|
|
# widespread that we can use the built-in version vectors rather
|
|
# than reinventing them here. For 5.6.0, however, we must
|
|
# assume this script will likely be run by 5.005_0x. --AD 1/2000.
|
|
foreach $d (@candidates) {
|
|
if ($d lt $version) {
|
|
if ($d ge $api_versionstring) {
|
|
unshift(@inc_version_list, grep { -d } "$d/$archname", $d);
|
|
}
|
|
elsif ($d ge "5.005") {
|
|
unshift(@inc_version_list, grep { -d } $d);
|
|
}
|
|
}
|
|
else {
|
|
# Skip newer version. I.e. don't look in
|
|
# 5.7.0 if we're installing 5.6.1.
|
|
}
|
|
}
|
|
|
|
if (@inc_version_list) {
|
|
print join(' ', @inc_version_list);
|
|
}
|
|
else {
|
|
# Blank space to preserve value for next Configure run.
|
|
print " ";
|
|
}
|
|
EOPL
|
|
chmod +x getverlist
|
|
case "$inc_version_list" in
|
|
'') if test -x "$perl5"; then
|
|
dflt=`$perl5 getverlist`
|
|
else
|
|
dflt='none'
|
|
fi
|
|
;;
|
|
$undef) dflt='none' ;;
|
|
*) dflt="$inc_version_list" ;;
|
|
esac
|
|
case "$dflt" in
|
|
''|' ') dflt=none ;;
|
|
esac
|
|
case "$dflt" in
|
|
5.005) case "$bincompat5005" in
|
|
$define|true|[yY]*) ;;
|
|
*) dflt=none ;;
|
|
esac
|
|
;;
|
|
esac
|
|
$cat <<'EOM'
|
|
|
|
In order to ease the process of upgrading, this version of perl
|
|
can be configured to use modules built and installed with earlier
|
|
versions of perl that were installed under $prefix. Specify here
|
|
the list of earlier versions that this version of perl should check.
|
|
If Configure detected no earlier versions of perl installed under
|
|
$prefix, then the list will be empty. Answer 'none' to tell perl
|
|
to not search earlier versions.
|
|
|
|
The default should almost always be sensible, so if you're not sure,
|
|
just accept the default.
|
|
EOM
|
|
|
|
rp='List of earlier versions to include in @INC?'
|
|
. ./myread
|
|
case "$ans" in
|
|
[Nn]one|''|' ') inc_version_list=' ' ;;
|
|
*) inc_version_list="$ans" ;;
|
|
esac
|
|
case "$inc_version_list" in
|
|
''|' ')
|
|
inc_version_list_init='0';;
|
|
*) inc_version_list_init=`echo $inc_version_list |
|
|
$sed -e 's/^/"/' -e 's/ /","/g' -e 's/$/",0/'`
|
|
;;
|
|
esac
|
|
$rm -f getverlist
|
|
|
|
: determine whether to install perl also as /usr/bin/perl
|
|
|
|
echo " "
|
|
if $test -d /usr/bin -a "X$installbin" != X/usr/bin; then
|
|
$cat <<EOM
|
|
Many scripts expect perl to be installed as /usr/bin/perl.
|
|
I can install the perl you are about to compile also as /usr/bin/perl
|
|
(in addition to $installbin/perl).
|
|
EOM
|
|
case "$installusrbinperl" in
|
|
"$undef"|[nN]*) dflt='n';;
|
|
*) dflt='y';;
|
|
esac
|
|
rp="Do you want to install perl as /usr/bin/perl?"
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) val="$define";;
|
|
*) val="$undef" ;;
|
|
esac
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set installusrbinperl
|
|
eval $setvar
|
|
|
|
: see if dld is available
|
|
set dld.h i_dld
|
|
eval $inhdr
|
|
|
|
: see if dlopen exists
|
|
xxx_runnm="$runnm"
|
|
runnm=false
|
|
set dlopen d_dlopen
|
|
eval $inlibc
|
|
runnm="$xxx_runnm"
|
|
|
|
: determine which dynamic loading, if any, to compile in
|
|
echo " "
|
|
dldir="ext/DynaLoader"
|
|
case "$usedl" in
|
|
$define|y|true)
|
|
dflt='y'
|
|
usedl="$define"
|
|
;;
|
|
$undef|n|false)
|
|
dflt='n'
|
|
usedl="$undef"
|
|
;;
|
|
*)
|
|
dflt='n'
|
|
case "$d_dlopen" in
|
|
$define) dflt='y' ;;
|
|
esac
|
|
case "$i_dld" in
|
|
$define) dflt='y' ;;
|
|
esac
|
|
: Does a dl_xxx.xs file exist for this operating system
|
|
$test -f $rsrc/$dldir/dl_${osname}.xs && dflt='y'
|
|
;;
|
|
esac
|
|
rp="Do you wish to use dynamic loading?"
|
|
. ./myread
|
|
usedl="$ans"
|
|
case "$ans" in
|
|
y*) usedl="$define"
|
|
case "$dlsrc" in
|
|
'')
|
|
if $test -f $rsrc/$dldir/dl_${osname}.xs ; then
|
|
dflt="$dldir/dl_${osname}.xs"
|
|
elif $test "$d_dlopen" = "$define" ; then
|
|
dflt="$dldir/dl_dlopen.xs"
|
|
elif $test "$i_dld" = "$define" ; then
|
|
dflt="$dldir/dl_dld.xs"
|
|
else
|
|
dflt=''
|
|
fi
|
|
;;
|
|
*) dflt="$dldir/$dlsrc"
|
|
;;
|
|
esac
|
|
echo "The following dynamic loading files are available:"
|
|
: Can not go over to $dldir because getfile has path hard-coded in.
|
|
tdir=`pwd`; cd $rsrc; $ls -C $dldir/dl*.xs; cd $tdir
|
|
rp="Source file to use for dynamic loading"
|
|
fn="fne"
|
|
gfpth="$src"
|
|
. ./getfile
|
|
usedl="$define"
|
|
: emulate basename
|
|
dlsrc=`echo $ans | $sed -e 's%.*/\([^/]*\)$%\1%'`
|
|
|
|
$cat << EOM
|
|
|
|
Some systems may require passing special flags to $cc -c to
|
|
compile modules that will be used to create a shared library.
|
|
To use no flags, say "none".
|
|
|
|
EOM
|
|
case "$cccdlflags" in
|
|
'') case "$gccversion" in
|
|
'') case "$osname" in
|
|
hpux) dflt='+z' ;;
|
|
next) dflt='none' ;;
|
|
irix*) dflt='-KPIC' ;;
|
|
svr4*|esix*|solaris|nonstopux) dflt='-KPIC' ;;
|
|
sunos) dflt='-pic' ;;
|
|
*) dflt='none' ;;
|
|
esac
|
|
;;
|
|
*) case "$osname" in
|
|
svr4*|esix*|solaris|nonstopux) dflt='-fPIC' ;;
|
|
*) dflt='-fpic' ;;
|
|
esac ;;
|
|
esac ;;
|
|
' ') dflt='none' ;;
|
|
*) dflt="$cccdlflags" ;;
|
|
esac
|
|
rp="Any special flags to pass to $cc -c to compile shared library modules?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) cccdlflags=' ' ;;
|
|
*) cccdlflags="$ans" ;;
|
|
esac
|
|
|
|
cat << EOM
|
|
|
|
Some systems use ld to create libraries that can be dynamically loaded,
|
|
while other systems (such as those using ELF) use $cc.
|
|
|
|
EOM
|
|
case "$ld" in
|
|
'') $cat >try.c <<'EOM'
|
|
/* Test for whether ELF binaries are produced */
|
|
#include <fcntl.h>
|
|
#include <stdlib.h>
|
|
int main() {
|
|
char b[4];
|
|
int i = open("a.out",O_RDONLY);
|
|
if(i == -1)
|
|
exit(1); /* fail */
|
|
if(read(i,b,4)==4 && b[0]==127 && b[1]=='E' && b[2]=='L' && b[3]=='F')
|
|
exit(0); /* succeed (yes, it's ELF) */
|
|
else
|
|
exit(1); /* fail */
|
|
}
|
|
EOM
|
|
if $cc $ccflags try.c >/dev/null 2>&1 && ./a.out; then
|
|
cat <<EOM
|
|
You appear to have ELF support. I'll use $cc to build dynamic libraries.
|
|
EOM
|
|
dflt="$cc"
|
|
else
|
|
echo "I'll use ld to build dynamic libraries."
|
|
dflt='ld'
|
|
fi
|
|
rm -f try.c a.out
|
|
;;
|
|
*) dflt="$ld"
|
|
;;
|
|
esac
|
|
|
|
rp="What command should be used to create dynamic libraries?"
|
|
. ./myread
|
|
ld="$ans"
|
|
|
|
cat << EOM
|
|
|
|
Some systems may require passing special flags to $ld to create a
|
|
library that can be dynamically loaded. If your ld flags include
|
|
-L/other/path options to locate libraries outside your loader's normal
|
|
search path, you may need to specify those -L options here as well. To
|
|
use no flags, say "none".
|
|
|
|
EOM
|
|
case "$lddlflags" in
|
|
'') case "$osname" in
|
|
beos) dflt='-nostart' ;;
|
|
hpux) dflt='-b';
|
|
case "$gccversion" in
|
|
'') dflt="$dflt +vnocompatwarnings" ;;
|
|
esac
|
|
;;
|
|
linux|irix*) dflt='-shared' ;;
|
|
next) dflt='none' ;;
|
|
solaris) dflt='-G' ;;
|
|
sunos) dflt='-assert nodefinitions' ;;
|
|
svr4*|esix*|nonstopux) dflt="-G $ldflags" ;;
|
|
*) dflt='none' ;;
|
|
esac
|
|
;;
|
|
*) dflt="$lddlflags" ;;
|
|
esac
|
|
|
|
: Try to guess additional flags to pick up local libraries.
|
|
: Be careful not to append to a plain 'none'
|
|
case "$dflt" in
|
|
none) dflt='' ;;
|
|
esac
|
|
for thisflag in $ldflags; do
|
|
case "$thisflag" in
|
|
-L*|-R*)
|
|
case " $dflt " in
|
|
*" $thisflag "*) ;;
|
|
*) dflt="$dflt $thisflag" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
|
|
case "$dflt" in
|
|
''|' ') dflt='none' ;;
|
|
esac
|
|
|
|
rp="Any special flags to pass to $ld to create a dynamically loaded library?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) lddlflags=' ' ;;
|
|
*) lddlflags="$ans" ;;
|
|
esac
|
|
|
|
cat <<EOM
|
|
|
|
Some systems may require passing special flags to $cc to indicate that
|
|
the resulting executable will use dynamic linking. To use no flags,
|
|
say "none".
|
|
|
|
EOM
|
|
case "$ccdlflags" in
|
|
'') case "$osname" in
|
|
hpux) dflt='-Wl,-E' ;;
|
|
linux) dflt='-rdynamic' ;;
|
|
next) dflt='none' ;;
|
|
sunos) dflt='none' ;;
|
|
*) dflt='none' ;;
|
|
esac ;;
|
|
' ') dflt='none' ;;
|
|
*) dflt="$ccdlflags" ;;
|
|
esac
|
|
rp="Any special flags to pass to $cc to use dynamic linking?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) ccdlflags=' ' ;;
|
|
*) ccdlflags="$ans" ;;
|
|
esac
|
|
;;
|
|
*) usedl="$undef"
|
|
ld='ld'
|
|
dlsrc='dl_none.xs'
|
|
lddlflags=''
|
|
ccdlflags=''
|
|
;;
|
|
esac
|
|
|
|
also=''
|
|
case "$usedl" in
|
|
$undef)
|
|
# No dynamic loading being used, so don't bother even to prompt.
|
|
useshrplib='false'
|
|
;;
|
|
*) case "$useshrplib" in
|
|
'') case "$osname" in
|
|
svr4*|nonstopux|dgux|dynixptx|esix|powerux|beos|cygwin*)
|
|
dflt=y
|
|
also='Building a shared libperl is required for dynamic loading to work on your system.'
|
|
;;
|
|
next*)
|
|
case "$osvers" in
|
|
4*) dflt=y
|
|
also='Building a shared libperl is needed for MAB support.'
|
|
;;
|
|
*) dflt=n
|
|
;;
|
|
esac
|
|
;;
|
|
*) dflt=n
|
|
;;
|
|
esac
|
|
;;
|
|
$define|true|[Yy]*)
|
|
dflt=y
|
|
;;
|
|
*) dflt=n
|
|
;;
|
|
esac
|
|
$cat << EOM
|
|
|
|
The perl executable is normally obtained by linking perlmain.c with
|
|
libperl${_a}, any static extensions (usually just DynaLoader), and
|
|
any other libraries needed on this system (such as -lm, etc.). Since
|
|
your system supports dynamic loading, it is probably possible to build
|
|
a shared libperl.$so. If you will have more than one executable linked
|
|
to libperl.$so, this will significantly reduce the size of each
|
|
executable, but it may have a noticeable affect on performance. The
|
|
default is probably sensible for your system.
|
|
$also
|
|
|
|
EOM
|
|
rp="Build a shared libperl.$so (y/n)"
|
|
. ./myread
|
|
case "$ans" in
|
|
true|$define|[Yy]*)
|
|
useshrplib='true' ;;
|
|
*) useshrplib='false' ;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$useshrplib" in
|
|
true)
|
|
case "$libperl" in
|
|
'')
|
|
# Figure out a good name for libperl.so. Since it gets stored in
|
|
# 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
|
|
majmin="libperl.$so.$patchlevel.$subversion"
|
|
# A name such as libperl.so.301
|
|
majonly=`echo $patchlevel $subversion |
|
|
$awk '{printf "%d%02d", $1, $2}'`
|
|
majonly=libperl.$so.$majonly
|
|
# I'd prefer to keep the os-specific stuff here to a minimum, and
|
|
# rely on figuring it out from the naming of libc.
|
|
case "${osname}${osvers}" in
|
|
next4*)
|
|
dflt=libperl.5.$so
|
|
# XXX How handle the --version stuff for MAB?
|
|
;;
|
|
linux*) # ld won't link with a bare -lperl otherwise.
|
|
dflt=libperl.$so
|
|
;;
|
|
cygwin*) # include version
|
|
dflt=`echo libperl$version | sed -e 's/\./_/g'`$lib_ext
|
|
;;
|
|
*) # Try to guess based on whether libc has major.minor.
|
|
case "$libc" in
|
|
*libc.$so.[0-9]*.[0-9]*) dflt=$majmin ;;
|
|
*libc.$so.[0-9]*) dflt=$majonly ;;
|
|
*) dflt=libperl.$so ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
*) dflt=$libperl
|
|
;;
|
|
esac
|
|
cat << EOM
|
|
|
|
I need to select a good name for the shared libperl. If your system uses
|
|
library names with major and minor numbers, then you might want something
|
|
like $majmin. Alternatively, if your system uses a single version
|
|
number for shared libraries, then you might want to use $majonly.
|
|
Or, your system might be quite happy with a simple libperl.$so.
|
|
|
|
Since the shared libperl will get installed into a version-specific
|
|
architecture-dependent directory, the version number of the shared perl
|
|
library probably isn't important, so the default should be o.k.
|
|
|
|
EOM
|
|
rp='What name do you want to give to the shared libperl?'
|
|
. ./myread
|
|
libperl=$ans
|
|
echo "Ok, I'll use $libperl"
|
|
;;
|
|
*)
|
|
libperl="libperl${_a}"
|
|
;;
|
|
esac
|
|
|
|
# Detect old use of shrpdir via undocumented Configure -Dshrpdir
|
|
case "$shrpdir" in
|
|
'') ;;
|
|
*) $cat >&4 <<EOM
|
|
WARNING: Use of the shrpdir variable for the installation location of
|
|
the shared $libperl is not supported. It was never documented and
|
|
will not work in this version. Let me (perlbug@perl.org)
|
|
know of any problems this may cause.
|
|
|
|
EOM
|
|
case "$shrpdir" in
|
|
"$archlibexp/CORE")
|
|
$cat >&4 <<EOM
|
|
But your current setting of $shrpdir is
|
|
the default anyway, so it's harmless.
|
|
EOM
|
|
;;
|
|
*)
|
|
$cat >&4 <<EOM
|
|
Further, your current attempted setting of $shrpdir
|
|
conflicts with the value of $archlibexp/CORE
|
|
that installperl will use.
|
|
EOM
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
# How will the perl executable find the installed shared $libperl?
|
|
# Add $xxx to ccdlflags.
|
|
# If we can't figure out a command-line option, use $shrpenv to
|
|
# set env LD_RUN_PATH. The main perl makefile uses this.
|
|
shrpdir=$archlibexp/CORE
|
|
xxx=''
|
|
tmp_shrpenv=''
|
|
if "$useshrplib"; then
|
|
case "$osname" in
|
|
aix)
|
|
# We'll set it in Makefile.SH...
|
|
;;
|
|
solaris|netbsd)
|
|
xxx="-R $shrpdir"
|
|
;;
|
|
freebsd)
|
|
xxx="-Wl,-R$shrpdir"
|
|
;;
|
|
linux|irix*|dec_osf)
|
|
xxx="-Wl,-rpath,$shrpdir"
|
|
;;
|
|
next)
|
|
# next doesn't like the default...
|
|
;;
|
|
beos)
|
|
# beos doesn't like the default, either.
|
|
;;
|
|
hpux*)
|
|
# hpux doesn't like the default, either.
|
|
tmp_shrpenv="env LDOPTS=\"+s +b${shrpdir}\""
|
|
;;
|
|
*)
|
|
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 "*) ;;
|
|
*) ccdlflags="$ccdlflags $xxx"
|
|
cat <<EOM >&4
|
|
|
|
Adding $xxx to the flags
|
|
passed to $ld so that the perl executable will find the
|
|
installed shared $libperl.
|
|
|
|
EOM
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
fi
|
|
# Fix ccdlflags in AIX for building external extensions.
|
|
# (For building Perl itself bare -bE:perl.exp is needed,
|
|
# Makefile.SH takes care of this.)
|
|
case "$osname" in
|
|
aix) ccdlflags="$ccdlflags -bE:$installarchlib/CORE/perl.exp" ;;
|
|
esac
|
|
# Respect a hint or command-line value.
|
|
case "$shrpenv" in
|
|
'') shrpenv="$tmp_shrpenv" ;;
|
|
esac
|
|
case "$ldlibpthname" in
|
|
'') ldlibpthname=LD_LIBRARY_PATH ;;
|
|
none) ldlibpthname='' ;;
|
|
esac
|
|
|
|
: determine where manual pages are on this system
|
|
echo " "
|
|
case "$sysman" in
|
|
'')
|
|
syspath='/usr/man/man1 /usr/man/mann /usr/man/manl /usr/man/local/man1'
|
|
syspath="$syspath /usr/man/u_man/man1 /usr/share/man/man1"
|
|
syspath="$syspath /usr/catman/u_man/man1 /usr/man/l_man/man1"
|
|
syspath="$syspath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
|
|
syspath="$syspath /usr/man/man.L /local/man/man1 /usr/local/man/man1"
|
|
sysman=`./loc . /usr/man/man1 $syspath`
|
|
;;
|
|
esac
|
|
if $test -d "$sysman"; then
|
|
echo "System manual is in $sysman." >&4
|
|
else
|
|
echo "Could not find manual pages in source form." >&4
|
|
fi
|
|
|
|
: determine where manual pages go
|
|
set man1dir man1dir none
|
|
eval $prefixit
|
|
$cat <<EOM
|
|
|
|
$spackage has manual pages available in source form.
|
|
EOM
|
|
case "$nroff" in
|
|
nroff)
|
|
echo "However, you don't have nroff, so they're probably useless to you."
|
|
case "$man1dir" in
|
|
'') man1dir="none";;
|
|
esac;;
|
|
esac
|
|
echo "If you don't want the manual sources installed, answer 'none'."
|
|
case "$man1dir" in
|
|
' ') dflt=none
|
|
;;
|
|
'')
|
|
lookpath="$prefixexp/man/man1 $prefixexp/man/l_man/man1"
|
|
lookpath="$lookpath $prefixexp/man/p_man/man1"
|
|
lookpath="$lookpath $prefixexp/man/u_man/man1"
|
|
lookpath="$lookpath $prefixexp/man/man.1"
|
|
case "$sysman" in
|
|
*/?_man*) dflt=`./loc . $prefixexp/l_man/man1 $lookpath` ;;
|
|
*) dflt=`./loc . $prefixexp/man/man1 $lookpath` ;;
|
|
esac
|
|
set dflt
|
|
eval $prefixup
|
|
;;
|
|
*) dflt="$man1dir"
|
|
;;
|
|
esac
|
|
echo " "
|
|
fn=dn+~
|
|
rp="Where do the main $spackage manual pages (source) go?"
|
|
. ./getfile
|
|
if $test "X$man1direxp" != "X$ansexp"; then
|
|
installman1dir=''
|
|
fi
|
|
man1dir="$ans"
|
|
man1direxp="$ansexp"
|
|
case "$man1dir" in
|
|
'') man1dir=' '
|
|
installman1dir='';;
|
|
esac
|
|
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installman1dir=`echo $man1direxp | $sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installman1dir="$man1direxp"
|
|
fi
|
|
|
|
: What suffix to use on installed man pages
|
|
|
|
case "$man1dir" in
|
|
' ')
|
|
man1ext='0'
|
|
;;
|
|
*)
|
|
rp="What suffix should be used for the main $spackage man pages?"
|
|
case "$man1ext" in
|
|
'') case "$man1dir" in
|
|
*1) dflt=1 ;;
|
|
*1p) dflt=1p ;;
|
|
*1pm) dflt=1pm ;;
|
|
*l) dflt=l;;
|
|
*n) dflt=n;;
|
|
*o) dflt=o;;
|
|
*p) dflt=p;;
|
|
*C) dflt=C;;
|
|
*L) dflt=L;;
|
|
*L1) dflt=L1;;
|
|
*) dflt=1;;
|
|
esac
|
|
;;
|
|
*) dflt="$man1ext";;
|
|
esac
|
|
. ./myread
|
|
man1ext="$ans"
|
|
;;
|
|
esac
|
|
|
|
: see if we can have long filenames
|
|
echo " "
|
|
first=123456789abcdef
|
|
$rm -f $first
|
|
if (echo hi >$first) 2>/dev/null; then
|
|
if $test -f 123456789abcde; then
|
|
echo 'You cannot have filenames longer than 14 characters. Sigh.' >&4
|
|
val="$undef"
|
|
else
|
|
echo 'You can have filenames longer than 14 characters.'>&4
|
|
val="$define"
|
|
fi
|
|
else
|
|
$cat <<'EOM'
|
|
You can't have filenames longer than 14 chars.
|
|
You can't even think about them!
|
|
EOM
|
|
val="$undef"
|
|
fi
|
|
set d_flexfnam
|
|
eval $setvar
|
|
$rm -rf 123456789abcde*
|
|
|
|
: determine where library module manual pages go
|
|
set man3dir man3dir none
|
|
eval $prefixit
|
|
$cat <<EOM
|
|
|
|
$spackage has manual pages for many of the library modules.
|
|
EOM
|
|
|
|
case "$nroff" in
|
|
nroff)
|
|
$cat <<'EOM'
|
|
However, you don't have nroff, so they're probably useless to you.
|
|
EOM
|
|
case "$man3dir" in
|
|
'') man3dir="none";;
|
|
esac;;
|
|
esac
|
|
|
|
case "$d_flexfnam" in
|
|
undef)
|
|
$cat <<'EOM'
|
|
However, your system can't handle the long file names like File::Basename.3.
|
|
EOM
|
|
case "$man3dir" in
|
|
'') man3dir="none";;
|
|
esac;;
|
|
esac
|
|
|
|
echo "If you don't want the manual sources installed, answer 'none'."
|
|
prog=`echo $package | $sed 's/-*[0-9.]*$//'`
|
|
case "$man3dir" in
|
|
'') dflt=`echo "$man1dir" | $sed -e 's/man1/man3/g' -e 's/man\.1/man\.3/g'`
|
|
if $test -d "$privlib/man/man3"; then
|
|
cat <<EOM >&4
|
|
|
|
WARNING: Previous versions of perl installed man3 pages into
|
|
$privlib/man/man3. This version will suggest a
|
|
new default of $dflt.
|
|
EOM
|
|
tdflt=$dflt
|
|
dflt='n'
|
|
rp='Do you wish to preserve the old behavior?(y/n)'
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) dflt="$privlib/man/man3" ;;
|
|
*) dflt=$tdflt ;;
|
|
esac
|
|
fi
|
|
;;
|
|
*) dflt="$man3dir" ;;
|
|
esac
|
|
case "$dflt" in
|
|
' ') dflt=none ;;
|
|
esac
|
|
echo " "
|
|
fn=dn+~
|
|
rp="Where do the $package library man pages (source) go?"
|
|
. ./getfile
|
|
man3dir="$ans"
|
|
man3direxp="$ansexp"
|
|
case "$man3dir" in
|
|
'') man3dir=' '
|
|
installman3dir='';;
|
|
esac
|
|
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installman3dir=`echo $man3direxp | $sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installman3dir="$man3direxp"
|
|
fi
|
|
|
|
: What suffix to use on installed man pages
|
|
case "$man3dir" in
|
|
' ')
|
|
man3ext='0'
|
|
;;
|
|
*)
|
|
rp="What suffix should be used for the $package library man pages?"
|
|
case "$man3ext" in
|
|
'') case "$man3dir" in
|
|
*3) dflt=3 ;;
|
|
*3p) dflt=3p ;;
|
|
*3pm) dflt=3pm ;;
|
|
*l) dflt=l;;
|
|
*n) dflt=n;;
|
|
*o) dflt=o;;
|
|
*p) dflt=p;;
|
|
*C) dflt=C;;
|
|
*L) dflt=L;;
|
|
*L3) dflt=L3;;
|
|
*) dflt=3;;
|
|
esac
|
|
;;
|
|
*) dflt="$man3ext";;
|
|
esac
|
|
. ./myread
|
|
man3ext="$ans"
|
|
;;
|
|
esac
|
|
|
|
: see if we have to deal with yellow pages, now NIS.
|
|
if $test -d /usr/etc/yp || $test -d /etc/yp; then
|
|
if $test -f /usr/etc/nibindd; then
|
|
echo " "
|
|
echo "I'm fairly confident you're on a NeXT."
|
|
echo " "
|
|
rp='Do you get the hosts file via NetInfo?'
|
|
dflt=y
|
|
case "$hostcat" in
|
|
nidump*) ;;
|
|
'') ;;
|
|
*) dflt=n;;
|
|
esac
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) hostcat='nidump hosts .';;
|
|
*) case "$hostcat" in
|
|
nidump*) hostcat='';;
|
|
esac
|
|
;;
|
|
esac
|
|
fi
|
|
case "$hostcat" in
|
|
nidump*) ;;
|
|
*)
|
|
case "$hostcat" in
|
|
*ypcat*) dflt=y;;
|
|
'') if $contains '^\+' /etc/passwd >/dev/null 2>&1; then
|
|
dflt=y
|
|
else
|
|
dflt=n
|
|
fi;;
|
|
*) dflt=n;;
|
|
esac
|
|
echo " "
|
|
rp='Are you getting the hosts file via yellow pages?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) hostcat='ypcat hosts';;
|
|
*) hostcat='cat /etc/hosts';;
|
|
esac
|
|
;;
|
|
esac
|
|
fi
|
|
case "$hostcat" in
|
|
'') test -f /etc/hosts && hostcat='cat /etc/hosts';;
|
|
esac
|
|
case "$groupcat" in
|
|
'') test -f /etc/group && groupcat='cat /etc/group';;
|
|
esac
|
|
case "$passcat" in
|
|
'') test -f /etc/passwd && passcat='cat /etc/passwd';;
|
|
esac
|
|
|
|
: now get the host name
|
|
echo " "
|
|
echo "Figuring out host name..." >&4
|
|
case "$myhostname" in
|
|
'') cont=true
|
|
echo 'Maybe "hostname" will work...'
|
|
if tans=`sh -c hostname 2>&1` ; then
|
|
myhostname=$tans
|
|
phostname=hostname
|
|
cont=''
|
|
fi
|
|
;;
|
|
*) cont='';;
|
|
esac
|
|
if $test "$cont"; then
|
|
if ./xenix; then
|
|
echo 'Oh, dear. Maybe "/etc/systemid" is the key...'
|
|
if tans=`cat /etc/systemid 2>&1` ; then
|
|
myhostname=$tans
|
|
phostname='cat /etc/systemid'
|
|
echo "Whadyaknow. Xenix always was a bit strange..."
|
|
cont=''
|
|
fi
|
|
elif $test -r /etc/systemid; then
|
|
echo "(What is a non-Xenix system doing with /etc/systemid?)"
|
|
fi
|
|
fi
|
|
if $test "$cont"; then
|
|
echo 'No, maybe "uuname -l" will work...'
|
|
if tans=`sh -c 'uuname -l' 2>&1` ; then
|
|
myhostname=$tans
|
|
phostname='uuname -l'
|
|
else
|
|
echo 'Strange. Maybe "uname -n" will work...'
|
|
if tans=`sh -c 'uname -n' 2>&1` ; then
|
|
myhostname=$tans
|
|
phostname='uname -n'
|
|
else
|
|
echo 'Oh well, maybe I can mine it out of whoami.h...'
|
|
if tans=`sh -c $contains' sysname $usrinc/whoami.h' 2>&1` ; then
|
|
myhostname=`echo "$tans" | $sed 's/^.*"\(.*\)"/\1/'`
|
|
phostname="sed -n -e '"'/sysname/s/^.*\"\\(.*\\)\"/\1/{'"' -e p -e q -e '}' <$usrinc/whoami.h"
|
|
else
|
|
case "$myhostname" in
|
|
'') echo "Does this machine have an identity crisis or something?"
|
|
phostname='';;
|
|
*)
|
|
echo "Well, you said $myhostname before..."
|
|
phostname='echo $myhostname';;
|
|
esac
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
: you do not want to know about this
|
|
set $myhostname
|
|
myhostname=$1
|
|
|
|
: verify guess
|
|
if $test "$myhostname" ; then
|
|
dflt=y
|
|
rp='Your host name appears to be "'$myhostname'".'" Right?"
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) ;;
|
|
*) myhostname='';;
|
|
esac
|
|
fi
|
|
|
|
: bad guess or no guess
|
|
while $test "X$myhostname" = X ; do
|
|
dflt=''
|
|
rp="Please type the (one word) name of your host:"
|
|
. ./myread
|
|
myhostname="$ans"
|
|
done
|
|
|
|
: translate upper to lower if necessary
|
|
case "$myhostname" in
|
|
*[A-Z]*)
|
|
echo "(Normalizing case in your host name)"
|
|
myhostname=`echo $myhostname | ./tr '[A-Z]' '[a-z]'`
|
|
;;
|
|
esac
|
|
|
|
case "$myhostname" in
|
|
*.*)
|
|
dflt=`expr "X$myhostname" : "X[^.]*\(\..*\)"`
|
|
myhostname=`expr "X$myhostname" : "X\([^.]*\)\."`
|
|
echo "(Trimming domain name from host name--host name is now $myhostname)"
|
|
;;
|
|
*) case "$mydomain" in
|
|
'')
|
|
{
|
|
test "X$hostcat" = "Xypcat hosts" &&
|
|
ypmatch "$myhostname" hosts 2>/dev/null |\
|
|
$sed -e 's/[ ]*#.*//; s/$/ /' > hosts && \
|
|
$test -s hosts
|
|
} || {
|
|
test "X$hostcat" != "X" &&
|
|
$hostcat | $sed -n -e "s/[ ]*#.*//; s/\$/ /
|
|
/[ ]$myhostname[ . ]/p" > hosts
|
|
}
|
|
tmp_re="[ . ]"
|
|
if $test -f hosts; then
|
|
$test x`$awk "/[0-9].*[ ]$myhostname$tmp_re/ { sum++ }
|
|
END { print sum }" hosts` = x1 || tmp_re="[ ]"
|
|
dflt=.`$awk "/[0-9].*[ ]$myhostname$tmp_re/ {for(i=2; i<=NF;i++) print \\\$i}" \
|
|
hosts | $sort | $uniq | \
|
|
$sed -n -e "s/$myhostname\.\([-a-zA-Z0-9_.]\)/\1/p"`
|
|
case `$echo X$dflt` in
|
|
X*\ *) echo "(Several hosts in the database matched hostname)"
|
|
dflt=.
|
|
;;
|
|
X.) echo "(You do not have fully-qualified names in the hosts database)"
|
|
;;
|
|
esac
|
|
else
|
|
echo "(I cannot locate a hosts database anywhere)"
|
|
dflt=.
|
|
fi
|
|
case "$dflt" in
|
|
.)
|
|
tans=`./loc resolv.conf X /etc /usr/etc`
|
|
if $test -f "$tans"; then
|
|
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`
|
|
case "$dflt" in
|
|
.) dflt=.`$sed -n -e 's/ / /g' \
|
|
-e 's/^domain *\([^ ]*\).*/\1/p' $tans \
|
|
| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
case "$dflt" in
|
|
.) echo "(No help from resolv.conf either -- attempting clever guess)"
|
|
dflt=.`sh -c domainname 2>/dev/null`
|
|
case "$dflt" in
|
|
'') dflt='.';;
|
|
.nis.*|.yp.*|.main.*) dflt=`echo $dflt | $sed -e 's/^\.[^.]*//'`;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$dflt$osname" in
|
|
.os390) echo "(Attempting domain name extraction from //'SYS1.TCPPARMS(TCPDATA)')"
|
|
dflt=.`awk '/^DOMAINORIGIN/ {print $2}' "//'SYS1.TCPPARMS(TCPDATA)'" 2>/dev/null`
|
|
;;
|
|
esac
|
|
case "$dflt" in
|
|
.) echo "(Lost all hope -- silly guess then)"
|
|
dflt='.uucp'
|
|
;;
|
|
esac
|
|
$rm -f hosts
|
|
;;
|
|
*) dflt="$mydomain";;
|
|
esac;;
|
|
esac
|
|
echo " "
|
|
rp="What is your domain name?"
|
|
. ./myread
|
|
tans="$ans"
|
|
case "$ans" in
|
|
'') ;;
|
|
.*) ;;
|
|
*) tans=".$tans";;
|
|
esac
|
|
mydomain="$tans"
|
|
|
|
: translate upper to lower if necessary
|
|
case "$mydomain" in
|
|
*[A-Z]*)
|
|
echo "(Normalizing case in your domain name)"
|
|
mydomain=`echo $mydomain | ./tr '[A-Z]' '[a-z]'`
|
|
;;
|
|
esac
|
|
|
|
: a little sanity check here
|
|
case "$phostname" in
|
|
'') ;;
|
|
*)
|
|
case `$phostname | ./tr '[A-Z]' '[a-z]'` in
|
|
$myhostname$mydomain|$myhostname) ;;
|
|
*)
|
|
case "$phostname" in
|
|
sed*)
|
|
echo "(That doesn't agree with your whoami.h file, by the way.)"
|
|
;;
|
|
*)
|
|
echo "(That doesn't agree with your $phostname command, by the way.)"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
$cat <<EOM
|
|
|
|
I need to get your e-mail address in Internet format if possible, i.e.
|
|
something like user@host.domain. Please answer accurately since I have
|
|
no easy means to double check it. The default value provided below
|
|
is most probably close to reality but may not be valid from outside
|
|
your organization...
|
|
|
|
EOM
|
|
cont=x
|
|
while test "$cont"; do
|
|
case "$cf_email" in
|
|
'') dflt="$cf_by@$myhostname$mydomain";;
|
|
*) dflt="$cf_email";;
|
|
esac
|
|
rp='What is your e-mail address?'
|
|
. ./myread
|
|
cf_email="$ans"
|
|
case "$cf_email" in
|
|
*@*.*) cont='' ;;
|
|
*)
|
|
rp='Address does not look like an Internet one. Use it anyway?'
|
|
case "$fastread" in
|
|
yes) dflt=y ;;
|
|
*) dflt=n ;;
|
|
esac
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) cont='' ;;
|
|
*) echo " " ;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
|
|
$cat <<EOM
|
|
|
|
If you or somebody else will be maintaining perl at your site, please
|
|
fill in the correct e-mail address here so that they may be contacted
|
|
if necessary. Currently, the "perlbug" program included with perl
|
|
will send mail to this address in addition to perlbug@perl.org. You may
|
|
enter "none" for no administrator.
|
|
|
|
EOM
|
|
case "$perladmin" in
|
|
'') dflt="$cf_email";;
|
|
*) dflt="$perladmin";;
|
|
esac
|
|
rp='Perl administrator e-mail address'
|
|
. ./myread
|
|
perladmin="$ans"
|
|
|
|
: determine whether to only install version-specific parts.
|
|
echo " "
|
|
$cat <<EOM
|
|
Do you want to install only the version-specific parts of the perl
|
|
distribution? Usually you do *not* want to do this.
|
|
EOM
|
|
case "$versiononly" in
|
|
"$define"|[Yy]*|true) dflt='y' ;;
|
|
*) dflt='n';
|
|
esac
|
|
rp="Do you want to install only the version-specific parts of perl?"
|
|
. ./myread
|
|
case "$ans" in
|
|
[yY]*) val="$define";;
|
|
*) val="$undef" ;;
|
|
esac
|
|
set versiononly
|
|
eval $setvar
|
|
|
|
: figure out how to guarantee perl startup
|
|
case "$startperl" in
|
|
'')
|
|
case "$sharpbang" in
|
|
*!)
|
|
$cat <<EOH
|
|
|
|
I can use the #! construct to start perl on your system. This will
|
|
make startup of perl scripts faster, but may cause problems if you
|
|
want to share those scripts and perl is not in a standard place
|
|
($binexp/perl) on all your platforms. The alternative is to force
|
|
a shell by starting the script with a single ':' character.
|
|
|
|
EOH
|
|
case "$versiononly" in
|
|
"$define") dflt="$binexp/perl$version";;
|
|
*) dflt="$binexp/perl";;
|
|
esac
|
|
rp='What shall I put after the #! to start up perl ("none" to not use #!)?'
|
|
. ./myread
|
|
case "$ans" in
|
|
none) startperl=": # use perl";;
|
|
*) startperl="#!$ans"
|
|
if $test 30 -lt `echo "$ans" | wc -c`; then
|
|
$cat >&4 <<EOM
|
|
|
|
WARNING: Some systems limit the #! command to 32 characters.
|
|
If you experience difficulty running Perl scripts with #!, try
|
|
installing Perl in a directory with a shorter pathname.
|
|
|
|
EOM
|
|
fi ;;
|
|
esac
|
|
;;
|
|
*) startperl=": # use perl"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
echo "I'll use $startperl to start perl scripts."
|
|
|
|
: figure best path for perl in scripts
|
|
case "$perlpath" in
|
|
'')
|
|
perlpath="$binexp/perl"
|
|
case "$startperl" in
|
|
*!*) ;;
|
|
*)
|
|
$cat <<EOH
|
|
|
|
I will use the "eval 'exec'" idiom to start Perl on your system.
|
|
I can use the full path of your Perl binary for this purpose, but
|
|
doing so may cause problems if you want to share those scripts and
|
|
Perl is not always in a standard place ($binexp/perl).
|
|
|
|
EOH
|
|
dflt="$binexp/perl"
|
|
rp="What path shall I use in \"eval 'exec'\"?"
|
|
. ./myread
|
|
perlpath="$ans"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$startperl" in
|
|
*!*) ;;
|
|
*) echo "I'll use $perlpath in \"eval 'exec'\"" ;;
|
|
esac
|
|
|
|
: determine where public executable scripts go
|
|
set scriptdir scriptdir
|
|
eval $prefixit
|
|
case "$scriptdir" in
|
|
'')
|
|
dflt="$bin"
|
|
: guess some guesses
|
|
$test -d /usr/share/scripts && dflt=/usr/share/scripts
|
|
$test -d /usr/share/bin && dflt=/usr/share/bin
|
|
$test -d /usr/local/script && dflt=/usr/local/script
|
|
$test -d /usr/local/scripts && dflt=/usr/local/scripts
|
|
$test -d $prefixexp/script && dflt=$prefixexp/script
|
|
set dflt
|
|
eval $prefixup
|
|
;;
|
|
*) dflt="$scriptdir"
|
|
;;
|
|
esac
|
|
$cat <<EOM
|
|
|
|
Some installations have a separate directory just for executable scripts so
|
|
that they can mount it across multiple architectures but keep the scripts in
|
|
one spot. You might, for example, have a subdirectory of /usr/share for this.
|
|
Or you might just lump your scripts in with all your other executables.
|
|
|
|
EOM
|
|
fn=d~
|
|
rp='Where do you keep publicly executable scripts?'
|
|
. ./getfile
|
|
if $test "X$ansexp" != "X$scriptdirexp"; then
|
|
installscript=''
|
|
fi
|
|
scriptdir="$ans"
|
|
scriptdirexp="$ansexp"
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installscript=`echo $scriptdirexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installscript="$scriptdirexp"
|
|
fi
|
|
|
|
: determine where add-on public executables go
|
|
case "$sitebin" in
|
|
'') dflt=$siteprefix/bin ;;
|
|
*) dflt=$sitebin ;;
|
|
esac
|
|
fn=d~
|
|
rp='Pathname where the add-on public executables should be installed?'
|
|
. ./getfile
|
|
sitebin="$ans"
|
|
sitebinexp="$ansexp"
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installsitebin=`echo $sitebinexp | sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installsitebin="$sitebinexp"
|
|
fi
|
|
|
|
case "$useperlio" in
|
|
$define|true|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
cat <<EOM
|
|
|
|
Previous version of $package used the standard IO mechanisms as defined
|
|
in <stdio.h>. Versions 5.003_02 and later of perl allow alternate IO
|
|
mechanisms via a "PerlIO" abstraction, but the stdio mechanism is still
|
|
the default. This abstraction layer can use AT&T's sfio (if you already
|
|
have sfio installed) or regular stdio. Using PerlIO with sfio may cause
|
|
problems with some extension modules. Using PerlIO with stdio is safe,
|
|
but it is slower than plain stdio and therefore is not the default.
|
|
|
|
If this doesn't make any sense to you, just accept the default '$dflt'.
|
|
EOM
|
|
rp='Use the experimental PerlIO abstraction layer?'
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y)
|
|
val="$define"
|
|
;;
|
|
*)
|
|
echo "Ok, doing things the stdio way"
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
set useperlio
|
|
eval $setvar
|
|
|
|
case "$vendorprefix" in
|
|
'') d_vendorbin="$undef"
|
|
vendorbin=''
|
|
vendorbinexp=''
|
|
;;
|
|
*) d_vendorbin="$define"
|
|
: determine where vendor-supplied executables go.
|
|
case "$vendorbin" in
|
|
'') dflt=$vendorprefix/bin ;;
|
|
*) dflt="$vendorbin" ;;
|
|
esac
|
|
fn=d~+
|
|
rp='Pathname for the vendor-supplied executables directory?'
|
|
. ./getfile
|
|
vendorbin="$ans"
|
|
vendorbinexp="$ansexp"
|
|
;;
|
|
esac
|
|
: Change installation prefix, if necessary.
|
|
if $test X"$prefix" != X"$installprefix"; then
|
|
installvendorbin=`echo $vendorbinexp | $sed "s#^$prefix#$installprefix#"`
|
|
else
|
|
installvendorbin="$vendorbinexp"
|
|
fi
|
|
|
|
: see if qgcvt exists
|
|
set qgcvt d_qgcvt
|
|
eval $inlibc
|
|
|
|
echo " "
|
|
|
|
if $test X"$d_longdbl" = X"$define"; then
|
|
|
|
echo "Checking how to print long doubles..." >&4
|
|
|
|
if $test X"$sPRIfldbl" = X -a X"$doublesize" = X"$longdblsize"; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
double d = 123.456;
|
|
printf("%.3f\n", d);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
123.456)
|
|
sPRIfldbl='"f"'; sPRIgldbl='"g"'; sPRIeldbl='"e"';
|
|
sPRIFUldbl='"F"'; sPRIGUldbl='"G"'; sPRIEUldbl='"E"';
|
|
echo "We will use %f."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRIfldbl" = X; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
long double d = 123.456;
|
|
printf("%.3llf\n", d);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
123.456)
|
|
sPRIfldbl='"llf"'; sPRIgldbl='"llg"'; sPRIeldbl='"lle"';
|
|
sPRIFUldbl='"llF"'; sPRIGUldbl='"llG"'; sPRIEUldbl='"llE"';
|
|
echo "We will use %llf."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRIfldbl" = X; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
long double d = 123.456;
|
|
printf("%.3Lf\n", d);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
123.456)
|
|
sPRIfldbl='"Lf"'; sPRIgldbl='"Lg"'; sPRIeldbl='"Le"';
|
|
sPRIFUldbl='"LF"'; sPRIGUldbl='"LG"'; sPRIEUldbl='"LE"';
|
|
echo "We will use %Lf."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRIfldbl" = X; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
long double d = 123.456;
|
|
printf("%.3lf\n", d);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
123.456)
|
|
sPRIfldbl='"lf"'; sPRIgldbl='"lg"'; sPRIeldbl='"le"';
|
|
sPRIFUldbl='"lF"'; sPRIGUldbl='"lG"'; sPRIEUldbl='"lE"';
|
|
echo "We will use %lf."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRIfldbl" = X; then
|
|
echo "Cannot figure out how to print long doubles." >&4
|
|
else
|
|
sSCNfldbl=$sPRIfldbl # expect consistency
|
|
fi
|
|
|
|
$rm -f try try.*
|
|
|
|
fi # d_longdbl
|
|
|
|
case "$sPRIfldbl" in
|
|
'') d_PRIfldbl="$undef"; d_PRIgldbl="$undef"; d_PRIeldbl="$undef";
|
|
d_PRIFUldbl="$undef"; d_PRIGUldbl="$undef"; d_PRIEUldbl="$undef";
|
|
d_SCNfldbl="$undef";
|
|
;;
|
|
*) d_PRIfldbl="$define"; d_PRIgldbl="$define"; d_PRIeldbl="$define";
|
|
d_PRIFUldbl="$define"; d_PRIGUldbl="$define"; d_PRIEUldbl="$define";
|
|
d_SCNfldbl="$define";
|
|
;;
|
|
esac
|
|
|
|
: Check how to convert floats to strings.
|
|
echo " "
|
|
echo "Checking for an efficient way to convert floats to strings."
|
|
echo " " > try.c
|
|
case "$uselongdouble" in
|
|
"$define") echo "#define USE_LONG_DOUBLE" >>try.c ;;
|
|
esac
|
|
case "$d_longdbl" in
|
|
"$define") echo "#define HAS_LONG_DOUBLE" >>try.c ;;
|
|
esac
|
|
case "$d_PRIgldbl" in
|
|
"$define") echo "#define HAS_PRIgldbl" >>try.c ;;
|
|
esac
|
|
$cat >>try.c <<EOP
|
|
#ifdef TRY_gconvert
|
|
#define Gconvert(x,n,t,b) gconvert((x),(n),(t),(b))
|
|
char *myname = "gconvert";
|
|
#endif
|
|
#ifdef TRY_gcvt
|
|
#define Gconvert(x,n,t,b) gcvt((x),(n),(b))
|
|
char *myname = "gcvt";
|
|
#endif
|
|
#ifdef TRY_qgcvt
|
|
#define Gconvert(x,n,t,b) qgcvt((x),(n),(b))
|
|
char *myname = "qgcvt";
|
|
#define DOUBLETYPE long double
|
|
#endif
|
|
#ifdef TRY_sprintf
|
|
#if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && defined(HAS_PRIgldbl)
|
|
#define Gconvert(x,n,t,b) sprintf((b),"%.*"$sPRIgldbl,(n),(x))
|
|
#else
|
|
#define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))
|
|
#endif
|
|
char *myname = "sprintf";
|
|
#endif
|
|
|
|
#ifndef DOUBLETYPE
|
|
#if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
|
|
#define DOUBLETYPE long double
|
|
#else
|
|
#define DOUBLETYPE double
|
|
#endif
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
|
|
#define I_STDLIB $i_stdlib
|
|
#ifdef I_STDLIB
|
|
#include <stdlib.h>
|
|
#endif
|
|
|
|
int
|
|
checkit(expect, got)
|
|
char *expect;
|
|
char *got;
|
|
{
|
|
if (strcmp(expect, got)) {
|
|
printf("%s oddity: Expected %s, got %s\n",
|
|
myname, expect, got);
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
int main()
|
|
{
|
|
char buf[64];
|
|
buf[63] = '\0';
|
|
|
|
/* This must be 1st test on (which?) platform */
|
|
/* Alan Burlison <AlanBurlsin@unn.unisys.com> */
|
|
Gconvert((DOUBLETYPE)0.1, 8, 0, buf);
|
|
checkit("0.1", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.0, 8, 0, buf);
|
|
checkit("1", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.1, 8, 0, buf);
|
|
checkit("1.1", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.01, 8, 0, buf);
|
|
checkit("1.01", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.001, 8, 0, buf);
|
|
checkit("1.001", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.0001, 8, 0, buf);
|
|
checkit("1.0001", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.00001, 8, 0, buf);
|
|
checkit("1.00001", buf);
|
|
|
|
Gconvert((DOUBLETYPE)1.000001, 8, 0, buf);
|
|
checkit("1.000001", buf);
|
|
|
|
Gconvert((DOUBLETYPE)0.0, 8, 0, buf);
|
|
checkit("0", buf);
|
|
|
|
Gconvert((DOUBLETYPE)-1.0, 8, 0, buf);
|
|
checkit("-1", buf);
|
|
|
|
/* Some Linux gcvt's give 1.e+5 here. */
|
|
Gconvert((DOUBLETYPE)100000.0, 8, 0, buf);
|
|
checkit("100000", buf);
|
|
|
|
/* Some Linux gcvt's give -1.e+5 here. */
|
|
Gconvert((DOUBLETYPE)-100000.0, 8, 0, buf);
|
|
checkit("-100000", buf);
|
|
|
|
Gconvert((DOUBLETYPE)123.456, 8, 0, buf);
|
|
checkit("123.456", buf);
|
|
|
|
exit(0);
|
|
}
|
|
EOP
|
|
case "$d_Gconvert" in
|
|
gconvert*) xxx_list='gconvert gcvt sprintf' ;;
|
|
gcvt*) xxx_list='gcvt gconvert sprintf' ;;
|
|
sprintf*) xxx_list='sprintf gconvert gcvt' ;;
|
|
*) xxx_list='gconvert gcvt sprintf' ;;
|
|
esac
|
|
|
|
case "$d_longdbl$uselongdouble$d_PRIgldbl" in
|
|
"$define$define$define")
|
|
# for long doubles prefer first qgcvt, then sprintf
|
|
xxx_list="`echo $xxx_list|sed s/sprintf//`"
|
|
xxx_list="sprintf $xxx_list"
|
|
case "$d_qgcvt" in
|
|
"$define") xxx_list="qgcvt $xxx_list" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
for xxx_convert in $xxx_list; do
|
|
echo "Trying $xxx_convert..."
|
|
$rm -f try try$_o
|
|
set try -DTRY_$xxx_convert
|
|
if eval $compile; then
|
|
echo "$xxx_convert() found." >&4
|
|
if ./try; then
|
|
echo "I'll use $xxx_convert to convert floats into a string." >&4
|
|
break;
|
|
else
|
|
echo "...But $xxx_convert didn't work as I expected."
|
|
fi
|
|
else
|
|
echo "$xxx_convert NOT found." >&4
|
|
fi
|
|
done
|
|
|
|
case "$xxx_convert" in
|
|
gconvert) d_Gconvert='gconvert((x),(n),(t),(b))' ;;
|
|
gcvt) d_Gconvert='gcvt((x),(n),(b))' ;;
|
|
qgcvt) d_Gconvert='qgcvt((x),(n),(b))' ;;
|
|
*) case "$uselongdouble$d_longdbl$d_PRIgldbl" in
|
|
"$define$define$define")
|
|
d_Gconvert="sprintf((b),\"%.*\"$sPRIgldbl,(n),(x))" ;;
|
|
*) d_Gconvert='sprintf((b),"%.*g",(n),(x))' ;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: see if _fwalk exists
|
|
set fwalk d__fwalk
|
|
eval $inlibc
|
|
|
|
: Initialize h_fcntl
|
|
h_fcntl=false
|
|
|
|
: Initialize h_sysfile
|
|
h_sysfile=false
|
|
|
|
: access call always available on UNIX
|
|
set access d_access
|
|
eval $inlibc
|
|
|
|
: locate the flags for 'access()'
|
|
case "$d_access" in
|
|
"$define")
|
|
echo " "
|
|
$cat >access.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#ifdef I_FCNTL
|
|
#include <fcntl.h>
|
|
#endif
|
|
#ifdef I_SYS_FILE
|
|
#include <sys/file.h>
|
|
#endif
|
|
#ifdef I_UNISTD
|
|
#include <unistd.h>
|
|
#endif
|
|
int main() {
|
|
exit(R_OK);
|
|
}
|
|
EOCP
|
|
: check sys/file.h first, no particular reason here
|
|
if $test `./findhdr sys/file.h` && \
|
|
$cc -o access $cppflags -DI_SYS_FILE access.c >/dev/null 2>&1 ; then
|
|
h_sysfile=true;
|
|
echo "<sys/file.h> defines the *_OK access constants." >&4
|
|
elif $test `./findhdr fcntl.h` && \
|
|
$cc -o access $cppflags -DI_FCNTL access.c >/dev/null 2>&1 ; then
|
|
h_fcntl=true;
|
|
echo "<fcntl.h> defines the *_OK access constants." >&4
|
|
elif $test `./findhdr unistd.h` && \
|
|
$cc -o access $cppflags -DI_UNISTD access.c >/dev/null 2>&1 ; then
|
|
echo "<unistd.h> defines the *_OK access constants." >&4
|
|
else
|
|
echo "I can't find the four *_OK access constants--I'll use mine." >&4
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f access*
|
|
|
|
: see if accessx exists
|
|
set accessx d_accessx
|
|
eval $inlibc
|
|
|
|
: see if alarm exists
|
|
set alarm d_alarm
|
|
eval $inlibc
|
|
|
|
: see if atolf exists
|
|
set atolf d_atolf
|
|
eval $inlibc
|
|
|
|
: see if atoll exists
|
|
set atoll d_atoll
|
|
eval $inlibc
|
|
|
|
: Look for GNU-cc style attribute checking
|
|
echo " "
|
|
echo "Checking whether your compiler can handle __attribute__ ..." >&4
|
|
$cat >attrib.c <<'EOCP'
|
|
#include <stdio.h>
|
|
void croak (char* pat,...) __attribute__((format(printf,1,2),noreturn));
|
|
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 fully support __attribute__."
|
|
val="$undef"
|
|
else
|
|
echo "Your C compiler supports __attribute__."
|
|
val="$define"
|
|
fi
|
|
else
|
|
echo "Your C compiler doesn't seem to understand __attribute__ at all."
|
|
val="$undef"
|
|
fi
|
|
set d_attribut
|
|
eval $setvar
|
|
$rm -f attrib*
|
|
|
|
: see if bcmp exists
|
|
set bcmp d_bcmp
|
|
eval $inlibc
|
|
|
|
: see if bcopy exists
|
|
set bcopy d_bcopy
|
|
eval $inlibc
|
|
|
|
: see if this is a unistd.h system
|
|
set unistd.h i_unistd
|
|
eval $inhdr
|
|
|
|
: see if getpgrp exists
|
|
set getpgrp d_getpgrp
|
|
eval $inlibc
|
|
|
|
case "$d_getpgrp" in
|
|
"$define")
|
|
echo " "
|
|
echo "Checking to see which flavor of getpgrp is in use..."
|
|
$cat >set.c <<EOP
|
|
#$i_unistd I_UNISTD
|
|
#include <sys/types.h>
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h>
|
|
#endif
|
|
int main()
|
|
{
|
|
if (getuid() == 0) {
|
|
printf("(I see you are running Configure as super-user...)\n");
|
|
setuid(1);
|
|
}
|
|
#ifdef TRY_BSD_PGRP
|
|
if (getpgrp(1) == 0)
|
|
exit(0);
|
|
#else
|
|
if (getpgrp() > 0)
|
|
exit(0);
|
|
#endif
|
|
exit(1);
|
|
}
|
|
EOP
|
|
if $cc -o set -DTRY_BSD_PGRP $ccflags $ldflags set.c $libs >/dev/null 2>&1 && ./set; then
|
|
echo "You have to use getpgrp(pid) instead of getpgrp()." >&4
|
|
val="$define"
|
|
elif $cc -o set $ccflags $ldflags set.c $libs >/dev/null 2>&1 && ./set; then
|
|
echo "You have to use getpgrp() instead of getpgrp(pid)." >&4
|
|
val="$undef"
|
|
else
|
|
echo "I can't seem to compile and run the test program."
|
|
if ./usg; then
|
|
xxx="a USG one, i.e. you use getpgrp()."
|
|
else
|
|
# SVR4 systems can appear rather BSD-ish.
|
|
case "$i_unistd" in
|
|
$undef)
|
|
xxx="a BSD one, i.e. you use getpgrp(pid)."
|
|
val="$define"
|
|
;;
|
|
$define)
|
|
xxx="probably a USG one, i.e. you use getpgrp()."
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
fi
|
|
echo "Assuming your getpgrp is $xxx" >&4
|
|
fi
|
|
;;
|
|
*) val="$undef";;
|
|
esac
|
|
set d_bsdgetpgrp
|
|
eval $setvar
|
|
$rm -f set set.c
|
|
|
|
: see if setpgrp exists
|
|
set setpgrp d_setpgrp
|
|
eval $inlibc
|
|
|
|
case "$d_setpgrp" in
|
|
"$define")
|
|
echo " "
|
|
echo "Checking to see which flavor of setpgrp is in use..."
|
|
$cat >set.c <<EOP
|
|
#$i_unistd I_UNISTD
|
|
#include <sys/types.h>
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h>
|
|
#endif
|
|
int main()
|
|
{
|
|
if (getuid() == 0) {
|
|
printf("(I see you are running Configure as super-user...)\n");
|
|
setuid(1);
|
|
}
|
|
#ifdef TRY_BSD_PGRP
|
|
if (-1 == setpgrp(1, 1))
|
|
exit(0);
|
|
#else
|
|
if (setpgrp() != -1)
|
|
exit(0);
|
|
#endif
|
|
exit(1);
|
|
}
|
|
EOP
|
|
if $cc -o set -DTRY_BSD_PGRP $ccflags $ldflags set.c $libs >/dev/null 2>&1 && ./set; then
|
|
echo 'You have to use setpgrp(pid,pgrp) instead of setpgrp().' >&4
|
|
val="$define"
|
|
elif $cc -o set $ccflags $ldflags set.c $libs >/dev/null 2>&1 && ./set; then
|
|
echo 'You have to use setpgrp() instead of setpgrp(pid,pgrp).' >&4
|
|
val="$undef"
|
|
else
|
|
echo "(I can't seem to compile and run the test program.)"
|
|
if ./usg; then
|
|
xxx="a USG one, i.e. you use setpgrp()."
|
|
else
|
|
# SVR4 systems can appear rather BSD-ish.
|
|
case "$i_unistd" in
|
|
$undef)
|
|
xxx="a BSD one, i.e. you use setpgrp(pid,pgrp)."
|
|
val="$define"
|
|
;;
|
|
$define)
|
|
xxx="probably a USG one, i.e. you use setpgrp()."
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
fi
|
|
echo "Assuming your setpgrp is $xxx" >&4
|
|
fi
|
|
;;
|
|
*) val="$undef";;
|
|
esac
|
|
set d_bsdsetpgrp
|
|
eval $setvar
|
|
$rm -f set set.c
|
|
: see if bzero exists
|
|
set bzero d_bzero
|
|
eval $inlibc
|
|
|
|
: see if signal is declared as pointer to function returning int or void
|
|
echo " "
|
|
xxx=`./findhdr signal.h`
|
|
$test "$xxx" && $cppstdin $cppminus $cppflags < $xxx >$$.tmp 2>/dev/null
|
|
if $contains 'int.*\*[ ]*signal' $$.tmp >/dev/null 2>&1 ; then
|
|
echo "You have int (*signal())() instead of void." >&4
|
|
val="$undef"
|
|
elif $contains 'void.*\*[ ]*signal' $$.tmp >/dev/null 2>&1 ; then
|
|
echo "You have void (*signal())()." >&4
|
|
val="$define"
|
|
elif $contains 'extern[ ]*[(\*]*signal' $$.tmp >/dev/null 2>&1 ; then
|
|
echo "You have int (*signal())() instead of void." >&4
|
|
val="$undef"
|
|
elif $contains 'void.*\*.*sig' $$.tmp >/dev/null 2>&1 ; then
|
|
echo "You have void (*signal())()." >&4
|
|
val="$define"
|
|
else
|
|
case "$d_voidsig" in
|
|
'')
|
|
echo "I can't determine whether signal handler returns void or int..." >&4
|
|
dflt=void
|
|
rp="What type does your signal handler return?"
|
|
. ./myread
|
|
case "$ans" in
|
|
v*) val="$define";;
|
|
*) val="$undef";;
|
|
esac;;
|
|
"$define")
|
|
echo "As you already told me, signal handler returns void." >&4
|
|
val="$define"
|
|
;;
|
|
*) echo "As you already told me, signal handler returns int." >&4
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
fi
|
|
set d_voidsig
|
|
eval $setvar
|
|
case "$d_voidsig" in
|
|
"$define") signal_t="void";;
|
|
*) signal_t="int";;
|
|
esac
|
|
$rm -f $$.tmp
|
|
|
|
: check for ability to cast large floats to 32-bit ints.
|
|
echo " "
|
|
echo 'Checking whether your C compiler can cast large floats to int32.' >&4
|
|
if $test "$intsize" -ge 4; then
|
|
xxx=int
|
|
else
|
|
xxx=long
|
|
fi
|
|
$cat >try.c <<EOCP
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
$signal_t blech(s) int s; { exit(3); }
|
|
int main()
|
|
{
|
|
$xxx i32;
|
|
double f, g;
|
|
int result = 0;
|
|
char str[16];
|
|
signal(SIGFPE, blech);
|
|
|
|
/* Don't let compiler optimize the test away. Store the number
|
|
in a writable string for gcc to pass to sscanf under HP/UX.
|
|
*/
|
|
sprintf(str, "2147483647");
|
|
sscanf(str, "%lf", &f); /* f = (double) 0x7fffffff; */
|
|
g = 10 * f;
|
|
i32 = ($xxx) g;
|
|
|
|
/* x86 processors will probably give 0x8000 0000, which is a
|
|
sign change. We don't want that. We want to mimic SPARC
|
|
behavior here, which is to preserve the sign and give
|
|
back 0x7fff ffff.
|
|
*/
|
|
if (i32 != ($xxx) f)
|
|
result |= 1;
|
|
exit(result);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
./try
|
|
yyy=$?
|
|
else
|
|
echo "(I can't seem to compile the test program--assuming it can't)"
|
|
yyy=1
|
|
fi
|
|
case "$yyy" in
|
|
0) val="$define"
|
|
echo "Yup, it can."
|
|
;;
|
|
*) val="$undef"
|
|
echo "Nope, it can't."
|
|
;;
|
|
esac
|
|
set d_casti32
|
|
eval $setvar
|
|
$rm -f try try.*
|
|
|
|
: check for ability to cast negative floats to unsigned
|
|
echo " "
|
|
echo 'Checking whether your C compiler can cast negative float to unsigned.' >&4
|
|
$cat >try.c <<EOCP
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
$signal_t blech(s) int s; { exit(7); }
|
|
$signal_t blech_in_list(s) int s; { exit(4); }
|
|
unsigned long dummy_long(p) unsigned long p; { return p; }
|
|
unsigned int dummy_int(p) unsigned int p; { return p; }
|
|
unsigned short dummy_short(p) unsigned short p; { return p; }
|
|
int main()
|
|
{
|
|
double f;
|
|
unsigned long along;
|
|
unsigned int aint;
|
|
unsigned short ashort;
|
|
int result = 0;
|
|
char str[16];
|
|
|
|
/* Frustrate gcc-2.7.2's optimizer which failed this test with
|
|
a direct f = -123. assignment. gcc-2.8.0 reportedly
|
|
optimized the whole file away
|
|
*/
|
|
/* Store the number in a writable string for gcc to pass to
|
|
sscanf under HP/UX.
|
|
*/
|
|
sprintf(str, "-123");
|
|
sscanf(str, "%lf", &f); /* f = -123.; */
|
|
|
|
signal(SIGFPE, blech);
|
|
along = (unsigned long)f;
|
|
aint = (unsigned int)f;
|
|
ashort = (unsigned short)f;
|
|
if (along != (unsigned long)-123)
|
|
result |= 1;
|
|
if (aint != (unsigned int)-123)
|
|
result |= 1;
|
|
if (ashort != (unsigned short)-123)
|
|
result |= 1;
|
|
sprintf(str, "1073741824.");
|
|
sscanf(str, "%lf", &f); /* f = (double)0x40000000; */
|
|
f = f + f;
|
|
along = 0;
|
|
along = (unsigned long)f;
|
|
if (along != 0x80000000)
|
|
result |= 2;
|
|
f -= 1.;
|
|
along = 0;
|
|
along = (unsigned long)f;
|
|
if (along != 0x7fffffff)
|
|
result |= 1;
|
|
f += 2.;
|
|
along = 0;
|
|
along = (unsigned long)f;
|
|
if (along != 0x80000001)
|
|
result |= 2;
|
|
if (result)
|
|
exit(result);
|
|
signal(SIGFPE, blech_in_list);
|
|
sprintf(str, "123.");
|
|
sscanf(str, "%lf", &f); /* f = 123.; */
|
|
along = dummy_long((unsigned long)f);
|
|
aint = dummy_int((unsigned int)f);
|
|
ashort = dummy_short((unsigned short)f);
|
|
if (along != (unsigned long)123)
|
|
result |= 4;
|
|
if (aint != (unsigned int)123)
|
|
result |= 4;
|
|
if (ashort != (unsigned short)123)
|
|
result |= 4;
|
|
exit(result);
|
|
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
./try
|
|
castflags=$?
|
|
else
|
|
echo "(I can't seem to compile the test program--assuming it can't)"
|
|
castflags=7
|
|
fi
|
|
case "$castflags" in
|
|
0) val="$define"
|
|
echo "Yup, it can."
|
|
;;
|
|
*) val="$undef"
|
|
echo "Nope, it can't."
|
|
;;
|
|
esac
|
|
set d_castneg
|
|
eval $setvar
|
|
$rm -f try.*
|
|
|
|
: see if vprintf exists
|
|
echo " "
|
|
if set vprintf val -f d_vprintf; eval $csym; $val; then
|
|
echo 'vprintf() found.' >&4
|
|
val="$define"
|
|
$cat >vprintf.c <<'EOF'
|
|
#include <varargs.h>
|
|
|
|
int main() { xxx("foo"); }
|
|
|
|
xxx(va_alist)
|
|
va_dcl
|
|
{
|
|
va_list args;
|
|
char buf[10];
|
|
|
|
va_start(args);
|
|
exit((unsigned long)vsprintf(buf,"%s",args) > 10L);
|
|
}
|
|
EOF
|
|
set vprintf
|
|
if eval $compile && ./vprintf; then
|
|
echo "Your vsprintf() returns (int)." >&4
|
|
val2="$undef"
|
|
else
|
|
echo "Your vsprintf() returns (char*)." >&4
|
|
val2="$define"
|
|
fi
|
|
else
|
|
echo 'vprintf() NOT found.' >&4
|
|
val="$undef"
|
|
val2="$undef"
|
|
fi
|
|
set d_vprintf
|
|
eval $setvar
|
|
val=$val2
|
|
set d_charvspr
|
|
eval $setvar
|
|
|
|
: see if chown exists
|
|
set chown d_chown
|
|
eval $inlibc
|
|
|
|
: see if chroot exists
|
|
set chroot d_chroot
|
|
eval $inlibc
|
|
|
|
: see if chsize exists
|
|
set chsize d_chsize
|
|
eval $inlibc
|
|
|
|
: check for const keyword
|
|
echo " "
|
|
echo 'Checking to see if your C compiler knows about "const"...' >&4
|
|
$cat >const.c <<'EOCP'
|
|
typedef struct spug { int drokk; } spug;
|
|
int main()
|
|
{
|
|
const char *foo;
|
|
const spug y;
|
|
}
|
|
EOCP
|
|
if $cc -c $ccflags const.c >/dev/null 2>&1 ; then
|
|
val="$define"
|
|
echo "Yup, it does."
|
|
else
|
|
val="$undef"
|
|
echo "Nope, it doesn't."
|
|
fi
|
|
set d_const
|
|
eval $setvar
|
|
|
|
: see if crypt exists
|
|
echo " "
|
|
if set crypt val -f d_crypt; eval $csym; $val; then
|
|
echo 'crypt() found.' >&4
|
|
val="$define"
|
|
cryptlib=''
|
|
else
|
|
cryptlib=`./loc Slibcrypt$_a "" $xlibpth`
|
|
if $test -z "$cryptlib"; then
|
|
cryptlib=`./loc Mlibcrypt$_a "" $xlibpth`
|
|
else
|
|
cryptlib=-lcrypt
|
|
fi
|
|
if $test -z "$cryptlib"; then
|
|
cryptlib=`./loc Llibcrypt$_a "" $xlibpth`
|
|
else
|
|
cryptlib=-lcrypt
|
|
fi
|
|
if $test -z "$cryptlib"; then
|
|
cryptlib=`./loc libcrypt$_a "" $libpth`
|
|
else
|
|
cryptlib=-lcrypt
|
|
fi
|
|
if $test -z "$cryptlib"; then
|
|
echo 'crypt() NOT found.' >&4
|
|
val="$undef"
|
|
else
|
|
val="$define"
|
|
fi
|
|
fi
|
|
set d_crypt
|
|
eval $setvar
|
|
|
|
: get csh whereabouts
|
|
case "$csh" in
|
|
'csh') val="$undef" ;;
|
|
*) val="$define" ;;
|
|
esac
|
|
set d_csh
|
|
eval $setvar
|
|
: Respect a hint or command line value for full_csh.
|
|
case "$full_csh" in
|
|
'') full_csh=$csh ;;
|
|
esac
|
|
|
|
: see if cuserid exists
|
|
set cuserid d_cuserid
|
|
eval $inlibc
|
|
|
|
: see if this is a limits.h system
|
|
set limits.h i_limits
|
|
eval $inhdr
|
|
|
|
: see if this is a float.h system
|
|
set float.h i_float
|
|
eval $inhdr
|
|
|
|
: See if number of significant digits in a double precision number is known
|
|
echo " "
|
|
$cat >dbl_dig.c <<EOM
|
|
#$i_limits I_LIMITS
|
|
#$i_float I_FLOAT
|
|
#ifdef I_LIMITS
|
|
#include <limits.h>
|
|
#endif
|
|
#ifdef I_FLOAT
|
|
#include <float.h>
|
|
#endif
|
|
#ifdef DBL_DIG
|
|
printf("Contains DBL_DIG");
|
|
#endif
|
|
EOM
|
|
$cppstdin $cppflags $cppminus < dbl_dig.c >dbl_dig.E 2>/dev/null
|
|
if $contains 'DBL_DIG' dbl_dig.E >/dev/null 2>&1; then
|
|
echo "DBL_DIG found." >&4
|
|
val="$define"
|
|
else
|
|
echo "DBL_DIG NOT found." >&4
|
|
val="$undef"
|
|
fi
|
|
$rm -f dbl_dig.?
|
|
set d_dbl_dig
|
|
eval $setvar
|
|
|
|
: see if difftime exists
|
|
set difftime d_difftime
|
|
eval $inlibc
|
|
|
|
: see if this is a dirent system
|
|
echo " "
|
|
if xinc=`./findhdr dirent.h`; $test "$xinc"; then
|
|
val="$define"
|
|
echo "<dirent.h> found." >&4
|
|
else
|
|
val="$undef"
|
|
if xinc=`./findhdr sys/dir.h`; $test "$xinc"; then
|
|
echo "<sys/dir.h> found." >&4
|
|
echo " "
|
|
else
|
|
xinc=`./findhdr sys/ndir.h`
|
|
fi
|
|
echo "<dirent.h> NOT found." >&4
|
|
fi
|
|
set i_dirent
|
|
eval $setvar
|
|
|
|
: Look for type of directory structure.
|
|
echo " "
|
|
$cppstdin $cppflags $cppminus < "$xinc" > try.c
|
|
|
|
case "$direntrytype" in
|
|
''|' ')
|
|
case "$i_dirent" in
|
|
$define) guess1='struct dirent' ;;
|
|
*) guess1='struct direct' ;;
|
|
esac
|
|
;;
|
|
*) guess1="$direntrytype"
|
|
;;
|
|
esac
|
|
|
|
case "$guess1" in
|
|
'struct dirent') guess2='struct direct' ;;
|
|
*) guess2='struct dirent' ;;
|
|
esac
|
|
|
|
if $contains "$guess1" try.c >/dev/null 2>&1; then
|
|
direntrytype="$guess1"
|
|
echo "Your directory entries are $direntrytype." >&4
|
|
elif $contains "$guess2" try.c >/dev/null 2>&1; then
|
|
direntrytype="$guess2"
|
|
echo "Your directory entries seem to be $direntrytype." >&4
|
|
else
|
|
echo "I don't recognize your system's directory entries." >&4
|
|
rp="What type is used for directory entries on this system?"
|
|
dflt="$guess1"
|
|
. ./myread
|
|
direntrytype="$ans"
|
|
fi
|
|
$rm -f try.c
|
|
|
|
|
|
: see if the directory entry stores field length
|
|
echo " "
|
|
$cppstdin $cppflags $cppminus < "$xinc" > try.c
|
|
if $contains 'd_namlen' try.c >/dev/null 2>&1; then
|
|
echo "Good, your directory entry keeps length information in d_namlen." >&4
|
|
val="$define"
|
|
else
|
|
echo "Your directory entry does not know about the d_namlen field." >&4
|
|
val="$undef"
|
|
fi
|
|
set d_dirnamlen
|
|
eval $setvar
|
|
$rm -f try.c
|
|
|
|
: see if dlerror exists
|
|
xxx_runnm="$runnm"
|
|
runnm=false
|
|
set dlerror d_dlerror
|
|
eval $inlibc
|
|
runnm="$xxx_runnm"
|
|
|
|
: see if dlfcn is available
|
|
set dlfcn.h i_dlfcn
|
|
eval $inhdr
|
|
|
|
case "$usedl" in
|
|
$define|y|true)
|
|
$cat << EOM
|
|
|
|
On a few systems, the dynamically loaded modules that perl generates and uses
|
|
will need a different extension than shared libs. The default will probably
|
|
be appropriate.
|
|
|
|
EOM
|
|
case "$dlext" in
|
|
'') dflt="$so" ;;
|
|
*) dflt="$dlext" ;;
|
|
esac
|
|
rp='What is the extension of dynamically loaded modules'
|
|
. ./myread
|
|
dlext="$ans"
|
|
;;
|
|
*)
|
|
dlext="none"
|
|
;;
|
|
esac
|
|
|
|
: Check if dlsym need a leading underscore
|
|
echo " "
|
|
val="$undef"
|
|
|
|
case "$dlsrc" in
|
|
dl_dlopen.xs)
|
|
echo "Checking whether your dlsym() needs a leading underscore ..." >&4
|
|
$cat >dyna.c <<'EOM'
|
|
fred () { }
|
|
EOM
|
|
|
|
$cat >fred.c<<EOM
|
|
|
|
#include <stdio.h>
|
|
#$i_dlfcn I_DLFCN
|
|
#ifdef I_DLFCN
|
|
#include <dlfcn.h> /* the dynamic linker include file for Sunos/Solaris */
|
|
#else
|
|
#include <sys/types.h>
|
|
#include <nlist.h>
|
|
#include <link.h>
|
|
#endif
|
|
|
|
extern int fred() ;
|
|
|
|
int main()
|
|
{
|
|
void * handle ;
|
|
void * symbol ;
|
|
#ifndef RTLD_LAZY
|
|
int mode = 1 ;
|
|
#else
|
|
int mode = RTLD_LAZY ;
|
|
#endif
|
|
handle = dlopen("./dyna.$dlext", mode) ;
|
|
if (handle == NULL) {
|
|
printf ("1\n") ;
|
|
fflush (stdout) ;
|
|
exit(0);
|
|
}
|
|
symbol = dlsym(handle, "fred") ;
|
|
if (symbol == NULL) {
|
|
/* try putting a leading underscore */
|
|
symbol = dlsym(handle, "_fred") ;
|
|
if (symbol == NULL) {
|
|
printf ("2\n") ;
|
|
fflush (stdout) ;
|
|
exit(0);
|
|
}
|
|
printf ("3\n") ;
|
|
}
|
|
else
|
|
printf ("4\n") ;
|
|
fflush (stdout) ;
|
|
exit(0);
|
|
}
|
|
EOM
|
|
: Call the object file tmp-dyna.o in case dlext=o.
|
|
if $cc $ccflags $cccdlflags -c dyna.c > /dev/null 2>&1 &&
|
|
mv dyna${_o} tmp-dyna${_o} > /dev/null 2>&1 &&
|
|
$ld -o dyna.$dlext $lddlflags tmp-dyna${_o} > /dev/null 2>&1 &&
|
|
$cc -o fred $ccflags $ldflags $cccdlflags $ccdlflags fred.c $libs > /dev/null 2>&1; then
|
|
xxx=`./fred`
|
|
case $xxx in
|
|
1) echo "Test program failed using dlopen." >&4
|
|
echo "Perhaps you should not use dynamic loading." >&4;;
|
|
2) echo "Test program failed using dlsym." >&4
|
|
echo "Perhaps you should not use dynamic loading." >&4;;
|
|
3) echo "dlsym needs a leading underscore" >&4
|
|
val="$define" ;;
|
|
4) echo "dlsym doesn't need a leading underscore." >&4;;
|
|
esac
|
|
else
|
|
echo "I can't compile and run the test program." >&4
|
|
echo "I'm guessing that dlsym doesn't need a leading underscore." >&4
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
$rm -f fred fred.? dyna.$dlext dyna.? tmp-dyna.?
|
|
|
|
set d_dlsymun
|
|
eval $setvar
|
|
|
|
hasproto='varname=$1; func=$2; shift; shift;
|
|
while $test $# -ge 2; do
|
|
case "$1" in
|
|
$define) echo "#include <$2>";;
|
|
esac ;
|
|
shift 2;
|
|
done > try.c;
|
|
$cppstdin $cppflags $cppminus < try.c > tryout.c 2>/dev/null;
|
|
if $contains "$func.*(" tryout.c >/dev/null 2>&1; then
|
|
echo "$func() prototype found.";
|
|
val="$define";
|
|
else
|
|
echo "$func() prototype NOT found.";
|
|
val="$undef";
|
|
fi;
|
|
set $varname;
|
|
eval $setvar;
|
|
$rm -f try.c tryout.c'
|
|
|
|
: see if prototype for drand48 is available
|
|
echo " "
|
|
set d_drand48proto drand48 $i_stdlib stdlib.h $i_unistd unistd.h
|
|
eval $hasproto
|
|
|
|
: see if dup2 exists
|
|
set dup2 d_dup2
|
|
eval $inlibc
|
|
|
|
: see if eaccess exists
|
|
set eaccess d_eaccess
|
|
eval $inlibc
|
|
|
|
: see if endgrent exists
|
|
set endgrent d_endgrent
|
|
eval $inlibc
|
|
|
|
: see if endhostent exists
|
|
set endhostent d_endhent
|
|
eval $inlibc
|
|
|
|
: see if endnetent exists
|
|
set endnetent d_endnent
|
|
eval $inlibc
|
|
|
|
: see if endprotoent exists
|
|
set endprotoent d_endpent
|
|
eval $inlibc
|
|
|
|
: see if endpwent exists
|
|
set endpwent d_endpwent
|
|
eval $inlibc
|
|
|
|
: see if endservent exists
|
|
set endservent d_endsent
|
|
eval $inlibc
|
|
|
|
: Locate the flags for 'open()'
|
|
echo " "
|
|
$cat >open3.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#ifdef I_FCNTL
|
|
#include <fcntl.h>
|
|
#endif
|
|
#ifdef I_SYS_FILE
|
|
#include <sys/file.h>
|
|
#endif
|
|
int main() {
|
|
if(O_RDONLY);
|
|
#ifdef O_TRUNC
|
|
exit(0);
|
|
#else
|
|
exit(1);
|
|
#endif
|
|
}
|
|
EOCP
|
|
: check sys/file.h first to get FREAD on Sun
|
|
if $test `./findhdr sys/file.h` && \
|
|
set open3 -DI_SYS_FILE && eval $compile; then
|
|
h_sysfile=true;
|
|
echo "<sys/file.h> defines the O_* constants..." >&4
|
|
if ./open3; then
|
|
echo "and you have the 3 argument form of open()." >&4
|
|
val="$define"
|
|
else
|
|
echo "but not the 3 argument form of open(). Oh, well." >&4
|
|
val="$undef"
|
|
fi
|
|
elif $test `./findhdr fcntl.h` && \
|
|
set open3 -DI_FCNTL && eval $compile; then
|
|
h_fcntl=true;
|
|
echo "<fcntl.h> defines the O_* constants..." >&4
|
|
if ./open3; then
|
|
echo "and you have the 3 argument form of open()." >&4
|
|
val="$define"
|
|
else
|
|
echo "but not the 3 argument form of open(). Oh, well." >&4
|
|
val="$undef"
|
|
fi
|
|
else
|
|
val="$undef"
|
|
echo "I can't find the O_* constant definitions! You got problems." >&4
|
|
fi
|
|
set d_open3
|
|
eval $setvar
|
|
$rm -f open3*
|
|
|
|
: 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
|
|
|
|
: check for non-blocking I/O stuff
|
|
case "$h_sysfile" in
|
|
true) echo "#include <sys/file.h>" > head.c;;
|
|
*)
|
|
case "$h_fcntl" in
|
|
true) echo "#include <fcntl.h>" > head.c;;
|
|
*) echo "#include <sys/fcntl.h>" > head.c;;
|
|
esac
|
|
;;
|
|
esac
|
|
echo " "
|
|
echo "Figuring out the flag used by open() for non-blocking I/O..." >&4
|
|
case "$o_nonblock" in
|
|
'')
|
|
$cat head.c > try.c
|
|
$cat >>try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main() {
|
|
#ifdef O_NONBLOCK
|
|
printf("O_NONBLOCK\n");
|
|
exit(0);
|
|
#endif
|
|
#ifdef O_NDELAY
|
|
printf("O_NDELAY\n");
|
|
exit(0);
|
|
#endif
|
|
#ifdef FNDELAY
|
|
printf("FNDELAY\n");
|
|
exit(0);
|
|
#endif
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
o_nonblock=`./try`
|
|
case "$o_nonblock" in
|
|
'') echo "I can't figure it out, assuming O_NONBLOCK will do.";;
|
|
*) echo "Seems like we can use $o_nonblock.";;
|
|
esac
|
|
else
|
|
echo "(I can't compile the test program; pray O_NONBLOCK is right!)"
|
|
fi
|
|
;;
|
|
*) echo "Using $hint value $o_nonblock.";;
|
|
esac
|
|
$rm -f try try.* .out core
|
|
|
|
echo " "
|
|
echo "Let's see what value errno gets from read() on a $o_nonblock file..." >&4
|
|
case "$eagain" in
|
|
'')
|
|
$cat head.c > try.c
|
|
$cat >>try.c <<EOCP
|
|
#include <errno.h>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
#include <stdio.h>
|
|
#define MY_O_NONBLOCK $o_nonblock
|
|
#ifndef errno /* XXX need better Configure test */
|
|
extern int errno;
|
|
#endif
|
|
#$i_unistd I_UNISTD
|
|
#ifdef I_UNISTD
|
|
#include <unistd.h>
|
|
#endif
|
|
#$i_string I_STRING
|
|
#ifdef I_STRING
|
|
#include <string.h>
|
|
#else
|
|
#include <strings.h>
|
|
#endif
|
|
$signal_t blech(x) int x; { exit(3); }
|
|
EOCP
|
|
$cat >> try.c <<'EOCP'
|
|
int main()
|
|
{
|
|
int pd[2];
|
|
int pu[2];
|
|
char buf[1];
|
|
char string[100];
|
|
|
|
pipe(pd); /* Down: child -> parent */
|
|
pipe(pu); /* Up: parent -> child */
|
|
if (0 != fork()) {
|
|
int ret;
|
|
close(pd[1]); /* Parent reads from pd[0] */
|
|
close(pu[0]); /* Parent writes (blocking) to pu[1] */
|
|
#ifdef F_SETFL
|
|
if (-1 == fcntl(pd[0], F_SETFL, MY_O_NONBLOCK))
|
|
exit(1);
|
|
#else
|
|
exit(4);
|
|
#endif
|
|
signal(SIGALRM, blech);
|
|
alarm(5);
|
|
if ((ret = read(pd[0], buf, 1)) > 0) /* Nothing to read! */
|
|
exit(2);
|
|
sprintf(string, "%d\n", ret);
|
|
write(2, string, strlen(string));
|
|
alarm(0);
|
|
#ifdef EAGAIN
|
|
if (errno == EAGAIN) {
|
|
printf("EAGAIN\n");
|
|
goto ok;
|
|
}
|
|
#endif
|
|
#ifdef EWOULDBLOCK
|
|
if (errno == EWOULDBLOCK)
|
|
printf("EWOULDBLOCK\n");
|
|
#endif
|
|
ok:
|
|
write(pu[1], buf, 1); /* Unblocks child, tell it to close our pipe */
|
|
sleep(2); /* Give it time to close our pipe */
|
|
alarm(5);
|
|
ret = read(pd[0], buf, 1); /* Should read EOF */
|
|
alarm(0);
|
|
sprintf(string, "%d\n", ret);
|
|
write(3, string, strlen(string));
|
|
exit(0);
|
|
}
|
|
|
|
close(pd[0]); /* We write to pd[1] */
|
|
close(pu[1]); /* We read from pu[0] */
|
|
read(pu[0], buf, 1); /* Wait for parent to signal us we may continue */
|
|
close(pd[1]); /* Pipe pd is now fully closed! */
|
|
exit(0); /* Bye bye, thank you for playing! */
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
echo "$startsh" >mtry
|
|
echo "./try >try.out 2>try.ret 3>try.err || exit 4" >>mtry
|
|
chmod +x mtry
|
|
./mtry >/dev/null 2>&1
|
|
case $? in
|
|
0) eagain=`$cat try.out`;;
|
|
1) echo "Could not perform non-blocking setting!";;
|
|
2) echo "I did a successful read() for something that was not there!";;
|
|
3) echo "Hmm... non-blocking I/O does not seem to be working!";;
|
|
4) echo "Could not find F_SETFL!";;
|
|
*) echo "Something terribly wrong happened during testing.";;
|
|
esac
|
|
rd_nodata=`$cat try.ret`
|
|
echo "A read() system call with no data present returns $rd_nodata."
|
|
case "$rd_nodata" in
|
|
0|-1) ;;
|
|
*)
|
|
echo "(That's peculiar, fixing that to be -1.)"
|
|
rd_nodata=-1
|
|
;;
|
|
esac
|
|
case "$eagain" in
|
|
'')
|
|
echo "Forcing errno EAGAIN on read() with no data available."
|
|
eagain=EAGAIN
|
|
;;
|
|
*)
|
|
echo "Your read() sets errno to $eagain when no data is available."
|
|
;;
|
|
esac
|
|
status=`$cat try.err`
|
|
case "$status" in
|
|
0) echo "And it correctly returns 0 to signal EOF.";;
|
|
-1) echo "But it also returns -1 to signal EOF, so be careful!";;
|
|
*) echo "However, your read() returns '$status' on EOF??";;
|
|
esac
|
|
val="$define"
|
|
if test "$status" = "$rd_nodata"; then
|
|
echo "WARNING: you can't distinguish between EOF and no data!"
|
|
val="$undef"
|
|
fi
|
|
else
|
|
echo "I can't compile the test program--assuming errno EAGAIN will do."
|
|
eagain=EAGAIN
|
|
fi
|
|
set d_eofnblk
|
|
eval $setvar
|
|
;;
|
|
*)
|
|
echo "Using $hint value $eagain."
|
|
echo "Your read() returns $rd_nodata when no data is present."
|
|
case "$d_eofnblk" in
|
|
"$define") echo "And you can see EOF because read() returns 0.";;
|
|
"$undef") echo "But you can't see EOF status from read() returned value.";;
|
|
*)
|
|
echo "(Assuming you can't see EOF status from read anyway.)"
|
|
d_eofnblk=$undef
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
$rm -f try try.* .out core head.c mtry
|
|
|
|
: see if fchmod exists
|
|
set fchmod d_fchmod
|
|
eval $inlibc
|
|
|
|
: see if fchown exists
|
|
set fchown d_fchown
|
|
eval $inlibc
|
|
|
|
: see if this is an fcntl system
|
|
set fcntl d_fcntl
|
|
eval $inlibc
|
|
|
|
echo " "
|
|
: See if fcntl-based locking works.
|
|
$cat >try.c <<'EOCP'
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <fcntl.h>
|
|
int main() {
|
|
#if defined(F_SETLK) && defined(F_SETLKW)
|
|
struct flock flock;
|
|
int retval, fd;
|
|
fd = open("try.c", O_RDONLY);
|
|
flock.l_type = F_RDLCK;
|
|
flock.l_whence = SEEK_SET;
|
|
flock.l_start = flock.l_len = 0;
|
|
retval = fcntl(fd, F_SETLK, &flock);
|
|
close(fd);
|
|
(retval < 0 ? exit(2) : exit(0));
|
|
#else
|
|
exit(2);
|
|
#endif
|
|
}
|
|
EOCP
|
|
echo "Checking if fcntl-based file locking works... "
|
|
case "$d_fcntl" in
|
|
"$define")
|
|
set try
|
|
if eval $compile_ok; then
|
|
if ./try; then
|
|
echo "Yes, it seems to work."
|
|
val="$define"
|
|
else
|
|
echo "Nope, it didn't work."
|
|
val="$undef"
|
|
fi
|
|
else
|
|
echo "I'm unable to compile the test program, so I'll assume not."
|
|
val="$undef"
|
|
fi
|
|
;;
|
|
*) val="$undef";
|
|
echo "Nope, since you don't even have fcntl()."
|
|
;;
|
|
esac
|
|
set d_fcntl_can_lock
|
|
eval $setvar
|
|
$rm -f try*
|
|
|
|
|
|
hasfield='varname=$1; struct=$2; field=$3; shift; shift; shift;
|
|
while $test $# -ge 2; do
|
|
case "$1" in
|
|
$define) echo "#include <$2>";;
|
|
esac ;
|
|
shift 2;
|
|
done > try.c;
|
|
echo "int main () { struct $struct foo; char* bar; bar = (char*)foo.$field; }" >> try.c;
|
|
set try;
|
|
if eval $compile; then
|
|
val="$define";
|
|
else
|
|
val="$undef";
|
|
fi;
|
|
set $varname;
|
|
eval $setvar;
|
|
$rm -f try.c try.o'
|
|
|
|
socketlib=''
|
|
sockethdr=''
|
|
: see whether socket exists
|
|
echo " "
|
|
$echo $n "Hmm... $c" >&4
|
|
if set socket val -f d_socket; eval $csym; $val; then
|
|
echo "Looks like you have Berkeley networking support." >&4
|
|
d_socket="$define"
|
|
if set setsockopt val -f; eval $csym; $val; then
|
|
d_oldsock="$undef"
|
|
else
|
|
echo "...but it uses the old BSD 4.1c interface, rather than 4.2." >&4
|
|
d_oldsock="$define"
|
|
fi
|
|
else
|
|
if $contains socklib libc.list >/dev/null 2>&1; then
|
|
echo "Looks like you have Berkeley networking support." >&4
|
|
d_socket="$define"
|
|
: we will have to assume that it supports the 4.2 BSD interface
|
|
d_oldsock="$undef"
|
|
else
|
|
echo "You don't have Berkeley networking in libc$_a..." >&4
|
|
if test "X$d_socket" = "X$define"; then
|
|
echo "...but you seem to believe that you have sockets." >&4
|
|
else
|
|
for net in net socket
|
|
do
|
|
if test -f /usr/lib/lib$net$_a; then
|
|
( ($nm $nm_opt /usr/lib/lib$net$_a | eval $nm_extract) || \
|
|
$ar t /usr/lib/lib$net$_a) 2>/dev/null >> libc.list
|
|
if $contains socket libc.list >/dev/null 2>&1; then
|
|
d_socket="$define"
|
|
socketlib="-l$net"
|
|
case "$net" in
|
|
net)
|
|
echo "...but the Wollongong group seems to have hacked it in." >&4
|
|
sockethdr="-I/usr/netinclude"
|
|
;;
|
|
esac
|
|
echo "Found Berkeley sockets interface in lib$net." >& 4
|
|
if $contains setsockopt libc.list >/dev/null 2>&1; then
|
|
d_oldsock="$undef"
|
|
else
|
|
echo "...using the old BSD 4.1c interface, rather than 4.2." >&4
|
|
d_oldsock="$define"
|
|
fi
|
|
break
|
|
fi
|
|
fi
|
|
done
|
|
if test "X$d_socket" != "X$define"; then
|
|
echo "or anywhere else I see." >&4
|
|
d_socket="$undef"
|
|
d_oldsock="$undef"
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
|
|
: see if socketpair exists
|
|
set socketpair d_sockpair
|
|
eval $inlibc
|
|
|
|
|
|
echo " "
|
|
echo "Checking the availability of certain socket constants..." >& 4
|
|
for ENUM in MSG_CTRUNC MSG_DONTROUTE MSG_OOB MSG_PEEK MSG_PROXY SCM_RIGHTS; do
|
|
enum=`$echo $ENUM|./tr '[A-Z]' '[a-z]'`
|
|
$cat >try.c <<EOF
|
|
#include <sys/types.h>
|
|
#include <sys/socket.h>
|
|
int main() {
|
|
int i = $ENUM;
|
|
}
|
|
EOF
|
|
val="$undef"
|
|
set try; if eval $compile; then
|
|
val="$define"
|
|
fi
|
|
set d_${enum}; eval $setvar
|
|
$rm -f try.c try
|
|
done
|
|
|
|
: see if sys/select.h has to be included
|
|
set sys/select.h i_sysselct
|
|
eval $inhdr
|
|
|
|
: see if we should include time.h, sys/time.h, or both
|
|
echo " "
|
|
if test "X$timeincl" = X; then
|
|
echo "Testing to see if we should include <time.h>, <sys/time.h> or both." >&4
|
|
$echo $n "I'm now running the test program...$c"
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#ifdef I_TIME
|
|
#include <time.h>
|
|
#endif
|
|
#ifdef I_SYSTIME
|
|
#ifdef SYSTIMEKERNEL
|
|
#define KERNEL
|
|
#endif
|
|
#include <sys/time.h>
|
|
#endif
|
|
#ifdef I_SYSSELECT
|
|
#include <sys/select.h>
|
|
#endif
|
|
int main()
|
|
{
|
|
struct tm foo;
|
|
#ifdef S_TIMEVAL
|
|
struct timeval bar;
|
|
#endif
|
|
#ifdef S_TIMEZONE
|
|
struct timezone tzp;
|
|
#endif
|
|
if (foo.tm_sec == foo.tm_sec)
|
|
exit(0);
|
|
#ifdef S_TIMEVAL
|
|
if (bar.tv_sec == bar.tv_sec)
|
|
exit(0);
|
|
#endif
|
|
exit(1);
|
|
}
|
|
EOCP
|
|
flags=''
|
|
for s_timezone in '-DS_TIMEZONE' ''; do
|
|
sysselect=''
|
|
for s_timeval in '-DS_TIMEVAL' ''; do
|
|
for i_systimek in '' '-DSYSTIMEKERNEL'; do
|
|
for i_time in '' '-DI_TIME'; do
|
|
for i_systime in '-DI_SYSTIME' ''; do
|
|
case "$flags" in
|
|
'') $echo $n ".$c"
|
|
set try $i_time $i_systime $i_systimek $sysselect $s_timeval $s_timezone
|
|
if eval $compile; then
|
|
set X $i_time $i_systime $i_systimek $sysselect $s_timeval
|
|
shift
|
|
flags="$*"
|
|
echo " "
|
|
$echo $n "Succeeded with $flags$c"
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
done
|
|
done
|
|
done
|
|
done
|
|
timeincl=''
|
|
echo " "
|
|
case "$flags" in
|
|
*SYSTIMEKERNEL*) i_systimek="$define"
|
|
timeincl=`./findhdr sys/time.h`
|
|
echo "We'll include <sys/time.h> with KERNEL defined." >&4;;
|
|
*) i_systimek="$undef";;
|
|
esac
|
|
case "$flags" in
|
|
*I_TIME*) i_time="$define"
|
|
timeincl=`./findhdr time.h`" $timeincl"
|
|
echo "We'll include <time.h>." >&4;;
|
|
*) i_time="$undef";;
|
|
esac
|
|
case "$flags" in
|
|
*I_SYSTIME*) i_systime="$define"
|
|
timeincl=`./findhdr sys/time.h`" $timeincl"
|
|
echo "We'll include <sys/time.h>." >&4;;
|
|
*) i_systime="$undef";;
|
|
esac
|
|
$rm -f try.c try
|
|
fi
|
|
|
|
: check for fd_set items
|
|
$cat <<EOM
|
|
|
|
Checking to see how well your C compiler handles fd_set and friends ...
|
|
EOM
|
|
$cat >fd_set.c <<EOCP
|
|
#$i_systime I_SYS_TIME
|
|
#$i_sysselct I_SYS_SELECT
|
|
#$d_socket HAS_SOCKET
|
|
#include <sys/types.h>
|
|
#ifdef HAS_SOCKET
|
|
#include <sys/socket.h> /* Might include <sys/bsdtypes.h> */
|
|
#endif
|
|
#ifdef I_SYS_TIME
|
|
#include <sys/time.h>
|
|
#endif
|
|
#ifdef I_SYS_SELECT
|
|
#include <sys/select.h>
|
|
#endif
|
|
int main() {
|
|
fd_set fds;
|
|
|
|
#ifdef TRYBITS
|
|
if(fds.fds_bits);
|
|
#endif
|
|
|
|
#if defined(FD_SET) && defined(FD_CLR) && defined(FD_ISSET) && defined(FD_ZERO)
|
|
exit(0);
|
|
#else
|
|
exit(1);
|
|
#endif
|
|
}
|
|
EOCP
|
|
set fd_set -DTRYBITS
|
|
if eval $compile; then
|
|
d_fds_bits="$define"
|
|
d_fd_set="$define"
|
|
echo "Well, your system knows about the normal fd_set typedef..." >&4
|
|
if ./fd_set; then
|
|
echo "and you have the normal fd_set macros (just as I'd expect)." >&4
|
|
d_fd_macros="$define"
|
|
else
|
|
$cat >&4 <<'EOM'
|
|
but not the normal fd_set macros! Gaaack! I'll have to cover for you.
|
|
EOM
|
|
d_fd_macros="$undef"
|
|
fi
|
|
else
|
|
$cat <<'EOM'
|
|
Hmm, your compiler has some difficulty with fd_set. Checking further...
|
|
EOM
|
|
set fd_set
|
|
if eval $compile; then
|
|
d_fds_bits="$undef"
|
|
d_fd_set="$define"
|
|
echo "Well, your system has some sort of fd_set available..." >&4
|
|
if ./fd_set; then
|
|
echo "and you have the normal fd_set macros." >&4
|
|
d_fd_macros="$define"
|
|
else
|
|
$cat <<'EOM'
|
|
but not the normal fd_set macros! Gross! More work for me...
|
|
EOM
|
|
d_fd_macros="$undef"
|
|
fi
|
|
else
|
|
echo "Well, you got zip. That's OK, I can roll my own fd_set stuff." >&4
|
|
d_fd_set="$undef"
|
|
d_fds_bits="$undef"
|
|
d_fd_macros="$undef"
|
|
fi
|
|
fi
|
|
$rm -f fd_set*
|
|
|
|
: see if fgetpos exists
|
|
set fgetpos d_fgetpos
|
|
eval $inlibc
|
|
|
|
: see if flock exists
|
|
set flock d_flock
|
|
eval $inlibc
|
|
|
|
: see if fork exists
|
|
set fork d_fork
|
|
eval $inlibc
|
|
|
|
: see if pathconf exists
|
|
set pathconf d_pathconf
|
|
eval $inlibc
|
|
|
|
: see if fpathconf exists
|
|
set fpathconf d_fpathconf
|
|
eval $inlibc
|
|
|
|
|
|
: check for fpos64_t
|
|
echo " "
|
|
echo "Checking to see if you have fpos64_t..." >&4
|
|
$cat >try.c <<EOCP
|
|
#include <stdio.h>
|
|
int main() { fpos64_t x = 7; }
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
val="$define"
|
|
echo "You have fpos64_t."
|
|
else
|
|
val="$undef"
|
|
echo "You do not have fpos64_t."
|
|
case "$fpossize" in
|
|
8) echo "(Your fpos_t is 64 bits, so you could use that.)" ;;
|
|
esac
|
|
fi
|
|
$rm -f try.* try
|
|
set d_fpos64_t
|
|
eval $setvar
|
|
|
|
: see if frexpl exists
|
|
set frexpl d_frexpl
|
|
eval $inlibc
|
|
|
|
hasstruct='varname=$1; struct=$2; shift; shift;
|
|
while $test $# -ge 2; do
|
|
case "$1" in
|
|
$define) echo "#include <$2>";;
|
|
esac ;
|
|
shift 2;
|
|
done > try.c;
|
|
echo "int main () { struct $struct foo; }" >> try.c;
|
|
set try;
|
|
if eval $compile; then
|
|
val="$define";
|
|
else
|
|
val="$undef";
|
|
fi;
|
|
set $varname;
|
|
eval $setvar;
|
|
$rm -f try.c try.o'
|
|
|
|
: see if this is a sys/param system
|
|
set sys/param.h i_sysparam
|
|
eval $inhdr
|
|
|
|
: see if this is a sys/mount.h system
|
|
set sys/mount.h i_sysmount
|
|
eval $inhdr
|
|
|
|
: see if sys/types.h has to be included
|
|
set sys/types.h i_systypes
|
|
eval $inhdr
|
|
|
|
|
|
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
|
|
eval $hasstruct
|
|
case "$d_fs_data_s" in
|
|
"$define") echo "Yes, it does." ;;
|
|
*) echo "No, it doesn't." ;;
|
|
esac
|
|
|
|
: see if fseeko exists
|
|
set fseeko d_fseeko
|
|
eval $inlibc
|
|
case "$longsize" in
|
|
8) echo "(Your long is 64 bits, so you could use fseek.)" ;;
|
|
esac
|
|
|
|
: see if fsetpos exists
|
|
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
|
|
|
|
: see if fstatvfs exists
|
|
set fstatvfs d_fstatvfs
|
|
eval $inlibc
|
|
|
|
|
|
: see if fsync exists
|
|
set fsync d_fsync
|
|
eval $inlibc
|
|
|
|
: see if ftello exists
|
|
set ftello d_ftello
|
|
eval $inlibc
|
|
case "$longsize" in
|
|
8) echo "(Your long is 64 bits, so you could use ftell.)" ;;
|
|
esac
|
|
|
|
: see if getcwd exists
|
|
set getcwd d_getcwd
|
|
eval $inlibc
|
|
|
|
: see if getespwnam exists
|
|
set getespwnam d_getespwnam
|
|
eval $inlibc
|
|
|
|
|
|
: see if getfsstat exists
|
|
set getfsstat d_getfsstat
|
|
eval $inlibc
|
|
|
|
: see if getgrent exists
|
|
set getgrent d_getgrent
|
|
eval $inlibc
|
|
|
|
: see if gethostbyaddr exists
|
|
set gethostbyaddr d_gethbyaddr
|
|
eval $inlibc
|
|
|
|
: see if gethostbyname exists
|
|
set gethostbyname d_gethbyname
|
|
eval $inlibc
|
|
|
|
: see if gethostent exists
|
|
set gethostent d_gethent
|
|
eval $inlibc
|
|
|
|
: see how we will look up host name
|
|
echo " "
|
|
call=''
|
|
if set gethostname val -f d_gethname; eval $csym; $val; then
|
|
echo 'gethostname() found.' >&4
|
|
d_gethname="$define"
|
|
call=gethostname
|
|
fi
|
|
if set uname val -f d_uname; eval $csym; $val; then
|
|
if ./xenix; then
|
|
$cat <<'EOM'
|
|
uname() was found, but you're running xenix, and older versions of xenix
|
|
have a broken uname(). If you don't really know whether your xenix is old
|
|
enough to have a broken system call, use the default answer.
|
|
|
|
EOM
|
|
dflt=y
|
|
case "$d_uname" in
|
|
"$define") dflt=n;;
|
|
esac
|
|
rp='Is your uname() broken?'
|
|
. ./myread
|
|
case "$ans" in
|
|
n*) d_uname="$define"; call=uname;;
|
|
esac
|
|
else
|
|
echo 'uname() found.' >&4
|
|
d_uname="$define"
|
|
case "$call" in
|
|
'') call=uname ;;
|
|
esac
|
|
fi
|
|
fi
|
|
case "$d_gethname" in
|
|
'') d_gethname="$undef";;
|
|
esac
|
|
case "$d_uname" in
|
|
'') d_uname="$undef";;
|
|
esac
|
|
case "$d_uname$d_gethname" in
|
|
*define*)
|
|
dflt=n
|
|
cat <<EOM
|
|
|
|
Every now and then someone has a $call() that lies about the hostname
|
|
but can't be fixed for political or economic reasons. If you wish, I can
|
|
pretend $call() isn't there and maybe compute hostname at run-time
|
|
thanks to the '$phostname' command.
|
|
|
|
EOM
|
|
rp="Shall I ignore $call() from now on?"
|
|
. ./myread
|
|
case "$ans" in
|
|
y*) d_uname="$undef" d_gethname="$undef"; $echo $n "Okay...$c";;
|
|
esac;;
|
|
esac
|
|
case "$phostname" in
|
|
'') aphostname='';;
|
|
*) case "$aphostname" in
|
|
/*) ;;
|
|
*) set X $phostname
|
|
shift
|
|
file=$1
|
|
shift
|
|
file=`./loc $file $file $pth`
|
|
aphostname=`echo $file $*`
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$d_uname$d_gethname" in
|
|
*define*) ;;
|
|
*)
|
|
case "$phostname" in
|
|
'')
|
|
echo "There will be no way for $package to get your hostname." >&4;;
|
|
*)
|
|
echo "I'll use 'popen("'"'$aphostname'", "r")'"' to get your hostname." >&4
|
|
;;
|
|
esac;;
|
|
esac
|
|
case "$d_phostname" in
|
|
'') d_phostname="$undef";;
|
|
esac
|
|
|
|
: see if this is a netdb.h system
|
|
set netdb.h i_netdb
|
|
eval $inhdr
|
|
|
|
: see if prototypes for various gethostxxx netdb.h functions are available
|
|
echo " "
|
|
set d_gethostprotos gethostent $i_netdb netdb.h
|
|
eval $hasproto
|
|
|
|
: see if getlogin exists
|
|
set getlogin d_getlogin
|
|
eval $inlibc
|
|
|
|
: see if getmnt exists
|
|
set getmnt d_getmnt
|
|
eval $inlibc
|
|
|
|
: see if getmntent exists
|
|
set getmntent d_getmntent
|
|
eval $inlibc
|
|
|
|
: see if getnetbyaddr exists
|
|
set getnetbyaddr d_getnbyaddr
|
|
eval $inlibc
|
|
|
|
: see if getnetbyname exists
|
|
set getnetbyname d_getnbyname
|
|
eval $inlibc
|
|
|
|
: see if getnetent exists
|
|
set getnetent d_getnent
|
|
eval $inlibc
|
|
|
|
: see if prototypes for various getnetxxx netdb.h functions are available
|
|
echo " "
|
|
set d_getnetprotos getnetent $i_netdb netdb.h
|
|
eval $hasproto
|
|
|
|
: see if getpagesize exists
|
|
set getpagesize d_getpagsz
|
|
eval $inlibc
|
|
|
|
|
|
: see if getprotobyname exists
|
|
set getprotobyname d_getpbyname
|
|
eval $inlibc
|
|
|
|
: see if getprotobynumber exists
|
|
set getprotobynumber d_getpbynumber
|
|
eval $inlibc
|
|
|
|
: see if getprotoent exists
|
|
set getprotoent d_getpent
|
|
eval $inlibc
|
|
|
|
: see if getpgid exists
|
|
set getpgid d_getpgid
|
|
eval $inlibc
|
|
|
|
: see if getpgrp2 exists
|
|
set getpgrp2 d_getpgrp2
|
|
eval $inlibc
|
|
|
|
: see if getppid exists
|
|
set getppid d_getppid
|
|
eval $inlibc
|
|
|
|
: see if getpriority exists
|
|
set getpriority d_getprior
|
|
eval $inlibc
|
|
|
|
: see if prototypes for various getprotoxxx netdb.h functions are available
|
|
echo " "
|
|
set d_getprotoprotos getprotoent $i_netdb netdb.h
|
|
eval $hasproto
|
|
|
|
: see if getprpwnam exists
|
|
set getprpwnam d_getprpwnam
|
|
eval $inlibc
|
|
|
|
: see if getpwent exists
|
|
set getpwent d_getpwent
|
|
eval $inlibc
|
|
|
|
|
|
: see if getservbyname exists
|
|
set getservbyname d_getsbyname
|
|
eval $inlibc
|
|
|
|
: see if getservbyport exists
|
|
set getservbyport d_getsbyport
|
|
eval $inlibc
|
|
|
|
: see if getservent exists
|
|
set getservent d_getsent
|
|
eval $inlibc
|
|
|
|
: see if prototypes for various getservxxx netdb.h functions are available
|
|
echo " "
|
|
set d_getservprotos getservent $i_netdb netdb.h
|
|
eval $hasproto
|
|
|
|
: see if getspnam exists
|
|
set getspnam d_getspnam
|
|
eval $inlibc
|
|
|
|
: see if gettimeofday or ftime exists
|
|
set gettimeofday d_gettimeod
|
|
eval $inlibc
|
|
case "$d_gettimeod" in
|
|
"$undef")
|
|
set ftime d_ftime
|
|
eval $inlibc
|
|
;;
|
|
*)
|
|
val="$undef"; set d_ftime; eval $setvar
|
|
;;
|
|
esac
|
|
case "$d_gettimeod$d_ftime" in
|
|
"$undef$undef")
|
|
echo " "
|
|
echo 'No ftime() nor gettimeofday() -- timing may be less accurate.' >&4
|
|
;;
|
|
esac
|
|
|
|
: see if this is an grp system
|
|
set grp.h i_grp
|
|
eval $inhdr
|
|
|
|
case "$i_grp" in
|
|
$define)
|
|
xxx=`./findhdr grp.h`
|
|
$cppstdin $cppflags $cppminus < $xxx >$$.h
|
|
|
|
if $contains 'gr_passwd' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_grpasswd
|
|
eval $setvar
|
|
|
|
$rm -f $$.h
|
|
;;
|
|
*)
|
|
val="$undef";
|
|
set d_grpasswd; eval $setvar
|
|
;;
|
|
esac
|
|
|
|
: see if hasmntopt exists
|
|
set hasmntopt d_hasmntopt
|
|
eval $inlibc
|
|
|
|
: see if this is a netinet/in.h or sys/in.h system
|
|
set netinet/in.h i_niin sys/in.h i_sysin
|
|
eval $inhdr
|
|
|
|
: see if arpa/inet.h has to be included
|
|
set arpa/inet.h i_arpainet
|
|
eval $inhdr
|
|
|
|
: see if htonl --and friends-- exists
|
|
val=''
|
|
set htonl val
|
|
eval $inlibc
|
|
|
|
: Maybe they are macros.
|
|
case "$val" in
|
|
$undef)
|
|
$cat >htonl.c <<EOM
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#$i_niin I_NETINET_IN
|
|
#$i_sysin I_SYS_IN
|
|
#$i_arpainet I_ARPA_INET
|
|
#ifdef I_NETINET_IN
|
|
#include <netinet/in.h>
|
|
#endif
|
|
#ifdef I_SYS_IN
|
|
#include <sys/in.h>
|
|
#endif
|
|
#ifdef I_ARPA_INET
|
|
#include <arpa/inet.h>
|
|
#endif
|
|
#ifdef htonl
|
|
printf("Defined as a macro.");
|
|
#endif
|
|
EOM
|
|
$cppstdin $cppflags $cppminus < htonl.c >htonl.E 2>/dev/null
|
|
if $contains 'Defined as a macro' htonl.E >/dev/null 2>&1; then
|
|
val="$define"
|
|
echo "But it seems to be defined as a macro." >&4
|
|
fi
|
|
$rm -f htonl.?
|
|
;;
|
|
esac
|
|
set d_htonl
|
|
eval $setvar
|
|
|
|
: see if iconv exists
|
|
set iconv d_iconv
|
|
eval $inlibc
|
|
|
|
: index or strchr
|
|
echo " "
|
|
if set index val -f; eval $csym; $val; then
|
|
if set strchr val -f d_strchr; eval $csym; $val; then
|
|
if $contains strchr "$strings" >/dev/null 2>&1 ; then
|
|
val="$define"
|
|
vali="$undef"
|
|
echo "strchr() found." >&4
|
|
else
|
|
val="$undef"
|
|
vali="$define"
|
|
echo "index() found." >&4
|
|
fi
|
|
else
|
|
val="$undef"
|
|
vali="$define"
|
|
echo "index() found." >&4
|
|
fi
|
|
else
|
|
if set strchr val -f d_strchr; eval $csym; $val; then
|
|
val="$define"
|
|
vali="$undef"
|
|
echo "strchr() found." >&4
|
|
else
|
|
echo "No index() or strchr() found!" >&4
|
|
val="$undef"
|
|
vali="$undef"
|
|
fi
|
|
fi
|
|
set d_strchr; eval $setvar
|
|
val="$vali"
|
|
set d_index; eval $setvar
|
|
|
|
: check whether inet_aton exists
|
|
set inet_aton d_inetaton
|
|
eval $inlibc
|
|
|
|
: see if inttypes.h is available
|
|
: we want a real compile instead of Inhdr because some systems
|
|
: have an inttypes.h which includes non-existent headers
|
|
echo " "
|
|
$cat >try.c <<EOCP
|
|
#include <inttypes.h>
|
|
int main() {
|
|
static int32_t foo32 = 0x12345678;
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
echo "<inttypes.h> found." >&4
|
|
val="$define"
|
|
else
|
|
echo "<inttypes.h> NOT found." >&4
|
|
val="$undef"
|
|
fi
|
|
$rm -f try.c try
|
|
set i_inttypes
|
|
eval $setvar
|
|
|
|
: check for int64_t
|
|
echo " "
|
|
echo "Checking to see if you have int64_t..." >&4
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#$i_inttypes I_INTTYPES
|
|
#ifdef I_INTTYPES
|
|
#include <inttypes.h>
|
|
#endif
|
|
int main() { int64_t x = 7; }
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
val="$define"
|
|
echo "You have int64_t."
|
|
else
|
|
val="$undef"
|
|
echo "You do not have int64_t."
|
|
fi
|
|
$rm -f try try.*
|
|
set d_int64_t
|
|
eval $setvar
|
|
|
|
: Look for isascii
|
|
echo " "
|
|
$cat >isascii.c <<'EOCP'
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
int main() {
|
|
int c = 'A';
|
|
if (isascii(c))
|
|
exit(0);
|
|
else
|
|
exit(1);
|
|
}
|
|
EOCP
|
|
set isascii
|
|
if eval $compile; then
|
|
echo "isascii() found." >&4
|
|
val="$define"
|
|
else
|
|
echo "isascii() NOT found." >&4
|
|
val="$undef"
|
|
fi
|
|
set d_isascii
|
|
eval $setvar
|
|
$rm -f isascii*
|
|
|
|
: see if isnan exists
|
|
set isnan d_isnan
|
|
eval $inlibc
|
|
|
|
: see if isnanl exists
|
|
set isnanl d_isnanl
|
|
eval $inlibc
|
|
|
|
: see if killpg exists
|
|
set killpg d_killpg
|
|
eval $inlibc
|
|
|
|
: see if lchown exists
|
|
echo " "
|
|
$cat > try.c <<'EOCP'
|
|
/* System header to define __stub macros and hopefully few prototypes,
|
|
which can conflict with char lchown(); below. */
|
|
#include <assert.h>
|
|
/* Override any gcc2 internal prototype to avoid an error. */
|
|
/* We use char because int might match the return type of a gcc2
|
|
builtin and then its argument prototype would still apply. */
|
|
char lchown();
|
|
int main() {
|
|
/* The GNU C library defines this for functions which it implements
|
|
to always fail with ENOSYS. Some functions are actually named
|
|
something starting with __ and the normal name is an alias. */
|
|
#if defined (__stub_lchown) || defined (__stub___lchown)
|
|
choke me
|
|
#else
|
|
lchown();
|
|
#endif
|
|
; return 0; }
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
$echo "lchown() found." >&4
|
|
val="$define"
|
|
else
|
|
$echo "lchown() NOT found." >&4
|
|
val="$undef"
|
|
fi
|
|
set d_lchown
|
|
eval $setvar
|
|
|
|
: See if number of significant digits in a double precision number is known
|
|
echo " "
|
|
$cat >ldbl_dig.c <<EOM
|
|
#$i_limits I_LIMITS
|
|
#$i_float I_FLOAT
|
|
#ifdef I_LIMITS
|
|
#include <limits.h>
|
|
#endif
|
|
#ifdef I_FLOAT
|
|
#include <float.h>
|
|
#endif
|
|
#ifdef LDBL_DIG
|
|
printf("Contains LDBL_DIG");
|
|
#endif
|
|
EOM
|
|
$cppstdin $cppflags $cppminus < ldbl_dig.c >ldbl_dig.E 2>/dev/null
|
|
if $contains 'LDBL_DIG' ldbl_dig.E >/dev/null 2>&1; then
|
|
echo "LDBL_DIG found." >&4
|
|
val="$define"
|
|
else
|
|
echo "LDBL_DIG NOT found." >&4
|
|
val="$undef"
|
|
fi
|
|
$rm -f ldbl_dig.?
|
|
set d_ldbl_dig
|
|
eval $setvar
|
|
|
|
: see if link exists
|
|
set link d_link
|
|
eval $inlibc
|
|
|
|
: see if localeconv exists
|
|
set localeconv d_locconv
|
|
eval $inlibc
|
|
|
|
: see if lockf exists
|
|
set lockf d_lockf
|
|
eval $inlibc
|
|
|
|
: check for long long
|
|
echo " "
|
|
echo "Checking to see if you have long long..." >&4
|
|
echo 'int main() { long long x = 7; return 0; }' > try.c
|
|
set try
|
|
if eval $compile; then
|
|
val="$define"
|
|
echo "You have long long."
|
|
else
|
|
val="$undef"
|
|
echo "You do not have long long."
|
|
fi
|
|
$rm try.*
|
|
set d_longlong
|
|
eval $setvar
|
|
|
|
: check for length of long long
|
|
case "${d_longlong}${longlongsize}" in
|
|
$define)
|
|
echo " "
|
|
echo "Checking to see how big your long longs are..." >&4
|
|
$cat >try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)sizeof(long long));
|
|
return(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
longlongsize=`./try$exe_ext`
|
|
echo "Your long longs are $longlongsize bytes long."
|
|
else
|
|
dflt='8'
|
|
echo " "
|
|
echo "(I can't seem to compile the test program. Guessing...)"
|
|
rp="What is the size of a long long (in bytes)?"
|
|
. ./myread
|
|
longlongsize="$ans"
|
|
fi
|
|
if $test "X$longsize" = "X$longlongsize"; then
|
|
echo "(That isn't any different from an ordinary long.)"
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.* try
|
|
|
|
: see if prototype for lseek is available
|
|
echo " "
|
|
set d_lseekproto lseek $i_systypes sys/types.h $i_unistd unistd.h
|
|
eval $hasproto
|
|
|
|
: see if lstat exists
|
|
set lstat d_lstat
|
|
eval $inlibc
|
|
|
|
: see if madvise exists
|
|
set madvise d_madvise
|
|
eval $inlibc
|
|
|
|
: see if mblen exists
|
|
set mblen d_mblen
|
|
eval $inlibc
|
|
|
|
: see if mbstowcs exists
|
|
set mbstowcs d_mbstowcs
|
|
eval $inlibc
|
|
|
|
: see if mbtowc exists
|
|
set mbtowc d_mbtowc
|
|
eval $inlibc
|
|
|
|
: see if memchr exists
|
|
set memchr d_memchr
|
|
eval $inlibc
|
|
|
|
: see if memcmp exists
|
|
set memcmp d_memcmp
|
|
eval $inlibc
|
|
|
|
: see if memcpy exists
|
|
set memcpy d_memcpy
|
|
eval $inlibc
|
|
|
|
: see if memmove exists
|
|
set memmove d_memmove
|
|
eval $inlibc
|
|
|
|
: see if memset exists
|
|
set memset d_memset
|
|
eval $inlibc
|
|
|
|
: see if mkdir exists
|
|
set mkdir d_mkdir
|
|
eval $inlibc
|
|
|
|
: see if mkdtemp exists
|
|
set mkdtemp d_mkdtemp
|
|
eval $inlibc
|
|
|
|
: see if mkfifo exists
|
|
set mkfifo d_mkfifo
|
|
eval $inlibc
|
|
|
|
: see if mkstemp exists
|
|
set mkstemp d_mkstemp
|
|
eval $inlibc
|
|
|
|
: see if mkstemps exists
|
|
set mkstemps d_mkstemps
|
|
eval $inlibc
|
|
|
|
: see if mktime exists
|
|
set mktime d_mktime
|
|
eval $inlibc
|
|
|
|
: see if this is a sys/mman.h system
|
|
set sys/mman.h i_sysmman
|
|
eval $inhdr
|
|
|
|
: see if mmap exists
|
|
set mmap d_mmap
|
|
eval $inlibc
|
|
: see what shmat returns
|
|
: default to something harmless
|
|
mmaptype='void *'
|
|
case "$i_sysmman$d_mmap" in
|
|
"$define$define")
|
|
$cat >mmap.c <<'END'
|
|
#include <sys/mman.h>
|
|
void *mmap();
|
|
END
|
|
if $cc $ccflags -c mmap.c >/dev/null 2>&1; then
|
|
mmaptype='void *'
|
|
else
|
|
mmaptype='caddr_t'
|
|
fi
|
|
echo "and it returns ($mmaptype)." >&4
|
|
;;
|
|
esac
|
|
|
|
|
|
|
|
: see if modfl exists
|
|
set modfl d_modfl
|
|
eval $inlibc
|
|
|
|
: see if mprotect exists
|
|
set mprotect d_mprotect
|
|
eval $inlibc
|
|
|
|
: see if msgctl exists
|
|
set msgctl d_msgctl
|
|
eval $inlibc
|
|
|
|
: see if msgget exists
|
|
set msgget d_msgget
|
|
eval $inlibc
|
|
|
|
: see if msgsnd exists
|
|
set msgsnd d_msgsnd
|
|
eval $inlibc
|
|
|
|
: see if msgrcv exists
|
|
set msgrcv d_msgrcv
|
|
eval $inlibc
|
|
|
|
: see how much of the 'msg*(2)' library is present.
|
|
h_msg=true
|
|
echo " "
|
|
case "$d_msgctl$d_msgget$d_msgsnd$d_msgrcv" in
|
|
*"$undef"*) h_msg=false;;
|
|
esac
|
|
case "$osname" in
|
|
freebsd)
|
|
case "`ipcs 2>&1`" in
|
|
"SVID messages"*"not configured"*)
|
|
echo "Your $osname does not have the msg*(2) configured." >&4
|
|
h_msg=false
|
|
val="$undef"
|
|
set msgctl d_msgctl
|
|
eval $setvar
|
|
set msgget d_msgget
|
|
eval $setvar
|
|
set msgsnd d_msgsnd
|
|
eval $setvar
|
|
set msgrcv d_msgrcv
|
|
eval $setvar
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
: we could also check for sys/ipc.h ...
|
|
if $h_msg && $test `./findhdr sys/msg.h`; then
|
|
echo "You have the full msg*(2) library." >&4
|
|
val="$define"
|
|
else
|
|
echo "You don't have the full msg*(2) library." >&4
|
|
val="$undef"
|
|
fi
|
|
set d_msg
|
|
eval $setvar
|
|
|
|
: see if msync exists
|
|
set msync d_msync
|
|
eval $inlibc
|
|
|
|
: see if munmap exists
|
|
set munmap d_munmap
|
|
eval $inlibc
|
|
|
|
: see if nice exists
|
|
set nice d_nice
|
|
eval $inlibc
|
|
|
|
|
|
echo " "
|
|
echo "Checking which 64-bit integer type we could use..." >&4
|
|
|
|
case "$intsize" in
|
|
8) val=int
|
|
set quadtype
|
|
eval $setvar
|
|
val='"unsigned int"'
|
|
set uquadtype
|
|
eval $setvar
|
|
quadkind=1
|
|
;;
|
|
*) case "$longsize" in
|
|
8) val=long
|
|
set quadtype
|
|
eval $setvar
|
|
val='"unsigned long"'
|
|
set uquadtype
|
|
eval $setvar
|
|
quadkind=2
|
|
;;
|
|
*) case "$d_longlong:$longlongsize" in
|
|
define:8)
|
|
val='"long long"'
|
|
set quadtype
|
|
eval $setvar
|
|
val='"unsigned long long"'
|
|
set uquadtype
|
|
eval $setvar
|
|
quadkind=3
|
|
;;
|
|
*) case "$d_int64_t" in
|
|
define)
|
|
val=int64_t
|
|
set quadtype
|
|
eval $setvar
|
|
val=uint64_t
|
|
set uquadtype
|
|
eval $setvar
|
|
quadkind=4
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
case "$quadtype" in
|
|
'') echo "Alas, no 64-bit integer types in sight." >&4
|
|
d_quad="$undef"
|
|
;;
|
|
*) if test X"$use64bitint" = Xdefine -o X"$longsize" = X8; then
|
|
verb="will"
|
|
else
|
|
verb="could"
|
|
fi
|
|
echo "We $verb use '$quadtype' for 64-bit integers." >&4
|
|
d_quad="$define"
|
|
;;
|
|
esac
|
|
|
|
: check for length of character
|
|
echo " "
|
|
case "$charsize" in
|
|
'')
|
|
echo "Checking to see how big your characters are (hey, you never know)..." >&4
|
|
$cat >try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)sizeof(char));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
dflt=`./try`
|
|
else
|
|
dflt='1'
|
|
echo "(I can't seem to compile the test program. Guessing...)"
|
|
fi
|
|
;;
|
|
*)
|
|
dflt="$charsize"
|
|
;;
|
|
esac
|
|
rp="What is the size of a character (in bytes)?"
|
|
. ./myread
|
|
charsize="$ans"
|
|
$rm -f try.c try
|
|
|
|
: check for volatile keyword
|
|
echo " "
|
|
echo 'Checking to see if your C compiler knows about "volatile"...' >&4
|
|
$cat >try.c <<'EOCP'
|
|
int main()
|
|
{
|
|
typedef struct _goo_struct goo_struct;
|
|
goo_struct * volatile goo = ((goo_struct *)0);
|
|
struct _goo_struct {
|
|
long long_int;
|
|
int reg_int;
|
|
char char_var;
|
|
};
|
|
typedef unsigned short foo_t;
|
|
char *volatile foo;
|
|
volatile int bar;
|
|
volatile foo_t blech;
|
|
foo = foo;
|
|
}
|
|
EOCP
|
|
if $cc -c $ccflags try.c >/dev/null 2>&1 ; then
|
|
val="$define"
|
|
echo "Yup, it does."
|
|
else
|
|
val="$undef"
|
|
echo "Nope, it doesn't."
|
|
fi
|
|
set d_volatile
|
|
eval $setvar
|
|
$rm -f try.*
|
|
|
|
|
|
echo " "
|
|
$echo "Choosing the C types to be used for Perl's internal types..." >&4
|
|
|
|
case "$use64bitint:$d_quad:$quadtype" in
|
|
define:define:?*)
|
|
ivtype="$quadtype"
|
|
uvtype="$uquadtype"
|
|
ivsize=8
|
|
uvsize=8
|
|
;;
|
|
*) ivtype="long"
|
|
uvtype="unsigned long"
|
|
ivsize=$longsize
|
|
uvsize=$longsize
|
|
;;
|
|
esac
|
|
|
|
case "$uselongdouble:$d_longdbl" in
|
|
define:define)
|
|
nvtype="long double"
|
|
nvsize=$longdblsize
|
|
;;
|
|
*) nvtype=double
|
|
nvsize=$doublesize
|
|
;;
|
|
esac
|
|
|
|
$echo "(IV will be "$ivtype", $ivsize bytes)"
|
|
$echo "(UV will be "$uvtype", $uvsize bytes)"
|
|
$echo "(NV will be "$nvtype", $nvsize bytes)"
|
|
|
|
$cat >try.c <<EOCP
|
|
#$i_inttypes I_INTTYPES
|
|
#ifdef I_INTTYPES
|
|
#include <inttypes.h>
|
|
#endif
|
|
#include <stdio.h>
|
|
int main() {
|
|
#ifdef INT8
|
|
int8_t i = INT8_MAX;
|
|
uint8_t u = UINT8_MAX;
|
|
printf("int8_t\n");
|
|
#endif
|
|
#ifdef INT16
|
|
int16_t i = INT16_MAX;
|
|
uint16_t i = UINT16_MAX;
|
|
printf("int16_t\n");
|
|
#endif
|
|
#ifdef INT32
|
|
int32_t i = INT32_MAX;
|
|
uint32_t u = UINT32_MAX;
|
|
printf("int32_t\n");
|
|
#endif
|
|
}
|
|
EOCP
|
|
|
|
case "$i8type" in
|
|
'') case "$charsize" in
|
|
1) i8type=char
|
|
u8type="unsigned char"
|
|
i8size=$charsize
|
|
u8size=$charsize
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$i8type" in
|
|
'') set try -DINT8
|
|
if eval $compile; then
|
|
case "`./try$exe_ext`" in
|
|
int8_t) i8type=int8_t
|
|
u8type=uint8_t
|
|
i8size=1
|
|
u8size=1
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
case "$i8type" in
|
|
'') if $test $charsize -ge 1; then
|
|
i8type=char
|
|
u8type="unsigned char"
|
|
i8size=$charsize
|
|
u8size=$charsize
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
case "$i16type" in
|
|
'') case "$shortsize" in
|
|
2) i16type=short
|
|
u16type="unsigned short"
|
|
i16size=$shortsize
|
|
u16size=$shortsize
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$i16type" in
|
|
'') set try -DINT16
|
|
if eval $compile; then
|
|
case "`./try$exe_ext`" in
|
|
int16_t)
|
|
i16type=int16_t
|
|
u16type=uint16_t
|
|
i16size=2
|
|
u16size=2
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
case "$i16type" in
|
|
'') if $test $shortsize -ge 2; then
|
|
i16type=short
|
|
u16type="unsigned short"
|
|
i16size=$shortsize
|
|
u16size=$shortsize
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
case "$i32type" in
|
|
'') case "$longsize" in
|
|
4) i32type=long
|
|
u32type="unsigned long"
|
|
i32size=$longsize
|
|
u32size=$longsize
|
|
;;
|
|
*) case "$intsize" in
|
|
4) i32type=int
|
|
u32type="unsigned int"
|
|
i32size=$intsize
|
|
u32size=$intsize
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$i32type" in
|
|
'') set try -DINT32
|
|
if eval $compile; then
|
|
case "`./try$exe_ext`" in
|
|
int32_t)
|
|
i32type=int32_t
|
|
u32type=uint32_t
|
|
i32size=4
|
|
u32size=4
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
case "$i32type" in
|
|
'') if $test $intsize -ge 4; then
|
|
i32type=int
|
|
u32type="unsigned int"
|
|
i32size=$intsize
|
|
u32size=$intsize
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
case "$i64type" in
|
|
'') case "$d_quad:$quadtype" in
|
|
define:?*)
|
|
i64type="$quadtype"
|
|
u64type="$uquadtype"
|
|
i64size=8
|
|
u64size=8
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
$echo "Checking how many bits of your UVs your NVs can preserve..." >&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>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
#ifdef SIGFPE
|
|
$volatile int bletched = 0;
|
|
$signal_t blech(s) int s; { bletched = 1; }
|
|
#endif
|
|
int main() {
|
|
$uvtype u = 0;
|
|
$nvtype d;
|
|
int n = 8 * $uvsize;
|
|
int i;
|
|
#ifdef SIGFPE
|
|
signal(SIGFPE, blech);
|
|
#endif
|
|
|
|
for (i = 0; i < n; i++) {
|
|
u = u << 1 | ($uvtype)1;
|
|
d = ($nvtype)u;
|
|
if (($uvtype)d != u)
|
|
break;
|
|
if (d <= 0)
|
|
break;
|
|
d = ($nvtype)(u - 1);
|
|
if (($uvtype)d != (u - 1))
|
|
break;
|
|
#ifdef SIGFPE
|
|
if (bletched) {
|
|
break;
|
|
#endif
|
|
}
|
|
}
|
|
printf("%d\n", ((i == n) ? -n : i));
|
|
exit(0);
|
|
}
|
|
EOP
|
|
set try
|
|
|
|
d_nv_preserves_uv="$undef"
|
|
if eval $compile; then
|
|
d_nv_preserves_uv_bits="`./try$exe_ext`"
|
|
fi
|
|
case "$d_nv_preserves_uv_bits" in
|
|
\-[1-9]*)
|
|
d_nv_preserves_uv_bits=`expr 0 - $d_nv_preserves_uv_bits`
|
|
$echo "Your NVs can preserve all $d_nv_preserves_uv_bits bits of your UVs." 2>&1
|
|
d_nv_preserves_uv="$define"
|
|
;;
|
|
[1-9]*) $echo "Your NVs can preserve only $d_nv_preserves_uv_bits bits of your UVs." 2>&1
|
|
d_nv_preserves_uv="$undef" ;;
|
|
*) $echo "Can't figure out how many bits your NVs preserve." 2>&1
|
|
d_nv_preserves_uv_bits="$undef" ;;
|
|
esac
|
|
|
|
$rm -f try.* try
|
|
|
|
|
|
: check for off64_t
|
|
echo " "
|
|
echo "Checking to see if you have off64_t..." >&4
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <unistd.h>
|
|
int main() { off64_t x = 7; }
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
val="$define"
|
|
echo "You have off64_t."
|
|
else
|
|
val="$undef"
|
|
echo "You do not have off64_t."
|
|
case "$lseeksize" in
|
|
8) echo "(Your off_t is 64 bits, so you could use that.)" ;;
|
|
esac
|
|
fi
|
|
$rm -f try.* try
|
|
set d_off64_t
|
|
eval $setvar
|
|
|
|
: see if POSIX threads are available
|
|
set pthread.h i_pthread
|
|
eval $inhdr
|
|
|
|
|
|
|
|
|
|
: how to create joinable pthreads
|
|
if test "X$usethreads" = "X$define" -a "X$i_pthread" = "X$define"; then
|
|
echo " "
|
|
echo "Checking what constant to use for creating joinable pthreads..." >&4
|
|
$cat >try.c <<'EOCP'
|
|
#include <pthread.h>
|
|
int main() {
|
|
int detachstate = JOINABLE;
|
|
}
|
|
EOCP
|
|
set try -DJOINABLE=PTHREAD_CREATE_JOINABLE
|
|
if eval $compile; then
|
|
echo "You seem to use PTHREAD_CREATE_JOINABLE." >&4
|
|
val="$undef" # Yes, undef.
|
|
set d_old_pthread_create_joinable
|
|
eval $setvar
|
|
val=""
|
|
set old_pthread_create_joinable
|
|
eval $setvar
|
|
else
|
|
set try -DJOINABLE=PTHREAD_CREATE_UNDETACHED
|
|
if eval $compile; then
|
|
echo "You seem to use PTHREAD_CREATE_UNDETACHED." >&4
|
|
val="$define"
|
|
set d_old_pthread_create_joinable
|
|
eval $setvar
|
|
val=PTHREAD_CREATE_UNDETACHED
|
|
set old_pthread_create_joinable
|
|
eval $setvar
|
|
else
|
|
set try -DJOINABLE=__UNDETACHED
|
|
if eval $compile; then
|
|
echo "You seem to use __UNDETACHED." >&4
|
|
val="$define"
|
|
set d_old_pthread_create_joinable
|
|
eval $setvar
|
|
val=__UNDETACHED
|
|
set old_pthread_create_joinable
|
|
eval $setvar
|
|
else
|
|
echo "Egads, nothing obvious found. Guessing that you use 0." >&4
|
|
val="$define"
|
|
set d_old_pthread_create_joinable
|
|
eval $setvar
|
|
val=0
|
|
set old_pthread_create_joinable
|
|
eval $setvar
|
|
fi
|
|
fi
|
|
fi
|
|
$rm -f try try.*
|
|
else
|
|
d_old_pthread_create_joinable="$undef"
|
|
old_pthread_create_joinable=""
|
|
fi
|
|
|
|
: see if pause exists
|
|
set pause d_pause
|
|
eval $inlibc
|
|
|
|
: see if pipe exists
|
|
set pipe d_pipe
|
|
eval $inlibc
|
|
|
|
: see if poll exists
|
|
set poll d_poll
|
|
eval $inlibc
|
|
|
|
|
|
: see whether the various POSIXish _yields exist
|
|
$cat >try.c <<EOP
|
|
#include <pthread.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
#ifdef SCHED_YIELD
|
|
sched_yield();
|
|
#else
|
|
#ifdef PTHREAD_YIELD
|
|
pthread_yield();
|
|
#else
|
|
#ifdef PTHREAD_YIELD_NULL
|
|
pthread_yield(NULL);
|
|
#endif
|
|
#endif
|
|
#endif
|
|
}
|
|
EOP
|
|
: see if sched_yield exists
|
|
set try -DSCHED_YIELD
|
|
if eval $compile; then
|
|
val="$define"
|
|
sched_yield='sched_yield()'
|
|
else
|
|
val="$undef"
|
|
fi
|
|
case "$usethreads" in
|
|
$define)
|
|
case "$val" in
|
|
$define) echo 'sched_yield() found.' >&4 ;;
|
|
*) echo 'sched_yield() NOT found.' >&4 ;;
|
|
esac
|
|
esac
|
|
set d_sched_yield
|
|
eval $setvar
|
|
|
|
: see if pthread_yield exists
|
|
set try -DPTHREAD_YIELD
|
|
if eval $compile; then
|
|
val="$define"
|
|
case "$sched_yield" in
|
|
'') sched_yield='pthread_yield()' ;;
|
|
esac
|
|
else
|
|
set try -DPTHREAD_YIELD_NULL
|
|
if eval $compile; then
|
|
val="$define"
|
|
case "$sched_yield" in
|
|
'') sched_yield='pthread_yield(NULL)' ;;
|
|
esac
|
|
else
|
|
val="$undef"
|
|
fi
|
|
fi
|
|
case "$usethreads" in
|
|
$define)
|
|
case "$val" in
|
|
$define) echo 'pthread_yield() found.' >&4 ;;
|
|
*) echo 'pthread_yield() NOT found.' >&4 ;;
|
|
esac
|
|
;;
|
|
esac
|
|
set d_pthread_yield
|
|
eval $setvar
|
|
|
|
case "$sched_yield" in
|
|
'') sched_yield=undef ;;
|
|
esac
|
|
|
|
$rm -f try try.*
|
|
|
|
: see if this is a pwd.h system
|
|
set pwd.h i_pwd
|
|
eval $inhdr
|
|
|
|
case "$i_pwd" in
|
|
$define)
|
|
xxx=`./findhdr pwd.h`
|
|
$cppstdin $cppflags $cppminus < $xxx >$$.h
|
|
|
|
if $contains 'pw_quota' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwquota
|
|
eval $setvar
|
|
|
|
if $contains 'pw_age' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwage
|
|
eval $setvar
|
|
|
|
if $contains 'pw_change' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwchange
|
|
eval $setvar
|
|
|
|
if $contains 'pw_class' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwclass
|
|
eval $setvar
|
|
|
|
if $contains 'pw_expire' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwexpire
|
|
eval $setvar
|
|
|
|
if $contains 'pw_comment' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwcomment
|
|
eval $setvar
|
|
|
|
if $contains 'pw_gecos' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwgecos
|
|
eval $setvar
|
|
|
|
if $contains 'pw_passwd' $$.h >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
set d_pwpasswd
|
|
eval $setvar
|
|
|
|
$rm -f $$.h
|
|
;;
|
|
*)
|
|
val="$undef";
|
|
set d_pwquota; eval $setvar
|
|
set d_pwage; eval $setvar
|
|
set d_pwchange; eval $setvar
|
|
set d_pwclass; eval $setvar
|
|
set d_pwexpire; eval $setvar
|
|
set d_pwcomment; eval $setvar
|
|
set d_pwgecos; eval $setvar
|
|
set d_pwpasswd; eval $setvar
|
|
;;
|
|
esac
|
|
|
|
: see if readdir and friends exist
|
|
set readdir d_readdir
|
|
eval $inlibc
|
|
set seekdir d_seekdir
|
|
eval $inlibc
|
|
set telldir d_telldir
|
|
eval $inlibc
|
|
set rewinddir d_rewinddir
|
|
eval $inlibc
|
|
|
|
: see if readlink exists
|
|
set readlink d_readlink
|
|
eval $inlibc
|
|
|
|
: see if rename exists
|
|
set rename d_rename
|
|
eval $inlibc
|
|
|
|
: see if rmdir exists
|
|
set rmdir d_rmdir
|
|
eval $inlibc
|
|
|
|
: see if memory.h is available.
|
|
val=''
|
|
set memory.h val
|
|
eval $inhdr
|
|
|
|
: See if it conflicts with string.h
|
|
case "$val" in
|
|
$define)
|
|
case "$strings" in
|
|
'') ;;
|
|
*)
|
|
$cppstdin $cppflags $cppminus < $strings > mem.h
|
|
if $contains 'memcpy' mem.h >/dev/null 2>&1; then
|
|
echo " "
|
|
echo "We won't be including <memory.h>."
|
|
val="$undef"
|
|
fi
|
|
$rm -f mem.h
|
|
;;
|
|
esac
|
|
esac
|
|
set i_memory
|
|
eval $setvar
|
|
|
|
: can bcopy handle overlapping blocks?
|
|
val="$undef"
|
|
case "$d_bcopy" in
|
|
"$define")
|
|
echo " "
|
|
echo "Checking to see if your bcopy() can do overlapping copies..." >&4
|
|
$cat >try.c <<EOCP
|
|
#$i_memory I_MEMORY
|
|
#$i_stdlib I_STDLIB
|
|
#$i_string I_STRING
|
|
#$i_unistd I_UNISTD
|
|
EOCP
|
|
$cat >>try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
#ifdef I_MEMORY
|
|
# include <memory.h>
|
|
#endif
|
|
#ifdef I_STDLIB
|
|
# include <stdlib.h>
|
|
#endif
|
|
#ifdef I_STRING
|
|
# include <string.h>
|
|
#else
|
|
# include <strings.h>
|
|
#endif
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h> /* Needed for NetBSD */
|
|
#endif
|
|
int main()
|
|
{
|
|
char buf[128], abc[128];
|
|
char *b;
|
|
int len;
|
|
int off;
|
|
int align;
|
|
|
|
bcopy("abcdefghijklmnopqrstuvwxyz0123456789", abc, 36);
|
|
|
|
for (align = 7; align >= 0; align--) {
|
|
for (len = 36; len; len--) {
|
|
b = buf+align;
|
|
bcopy(abc, b, len);
|
|
for (off = 1; off <= len; off++) {
|
|
bcopy(b, b+off, len);
|
|
bcopy(b+off, b, len);
|
|
if (bcmp(b, abc, len))
|
|
exit(1);
|
|
}
|
|
}
|
|
}
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
if ./try 2>/dev/null; then
|
|
echo "Yes, it can."
|
|
val="$define"
|
|
else
|
|
echo "It can't, sorry."
|
|
case "$d_memmove" in
|
|
"$define") echo "But that's Ok since you have memmove()." ;;
|
|
esac
|
|
fi
|
|
else
|
|
echo "(I can't compile the test program, so we'll assume not...)"
|
|
case "$d_memmove" in
|
|
"$define") echo "But that's Ok since you have memmove()." ;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.* try core
|
|
set d_safebcpy
|
|
eval $setvar
|
|
|
|
: can memcpy handle overlapping blocks?
|
|
val="$undef"
|
|
case "$d_memcpy" in
|
|
"$define")
|
|
echo " "
|
|
echo "Checking to see if your memcpy() can do overlapping copies..." >&4
|
|
$cat >try.c <<EOCP
|
|
#$i_memory I_MEMORY
|
|
#$i_stdlib I_STDLIB
|
|
#$i_string I_STRING
|
|
#$i_unistd I_UNISTD
|
|
EOCP
|
|
$cat >>try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
#ifdef I_MEMORY
|
|
# include <memory.h>
|
|
#endif
|
|
#ifdef I_STDLIB
|
|
# include <stdlib.h>
|
|
#endif
|
|
#ifdef I_STRING
|
|
# include <string.h>
|
|
#else
|
|
# include <strings.h>
|
|
#endif
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h> /* Needed for NetBSD */
|
|
#endif
|
|
int main()
|
|
{
|
|
char buf[128], abc[128];
|
|
char *b;
|
|
int len;
|
|
int off;
|
|
int align;
|
|
|
|
/* Copy "abcde..." string to char abc[] so that gcc doesn't
|
|
try to store the string in read-only memory. */
|
|
memcpy(abc, "abcdefghijklmnopqrstuvwxyz0123456789", 36);
|
|
|
|
for (align = 7; align >= 0; align--) {
|
|
for (len = 36; len; len--) {
|
|
b = buf+align;
|
|
memcpy(b, abc, len);
|
|
for (off = 1; off <= len; off++) {
|
|
memcpy(b+off, b, len);
|
|
memcpy(b, b+off, len);
|
|
if (memcmp(b, abc, len))
|
|
exit(1);
|
|
}
|
|
}
|
|
}
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
if ./try 2>/dev/null; then
|
|
echo "Yes, it can."
|
|
val="$define"
|
|
else
|
|
echo "It can't, sorry."
|
|
case "$d_memmove" in
|
|
"$define") echo "But that's Ok since you have memmove()." ;;
|
|
esac
|
|
fi
|
|
else
|
|
echo "(I can't compile the test program, so we'll assume not...)"
|
|
case "$d_memmove" in
|
|
"$define") echo "But that's Ok since you have memmove()." ;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.* try core
|
|
set d_safemcpy
|
|
eval $setvar
|
|
|
|
: can memcmp be trusted to compare relative magnitude?
|
|
val="$undef"
|
|
case "$d_memcmp" in
|
|
"$define")
|
|
echo " "
|
|
echo "Checking if your memcmp() can compare relative magnitude..." >&4
|
|
$cat >try.c <<EOCP
|
|
#$i_memory I_MEMORY
|
|
#$i_stdlib I_STDLIB
|
|
#$i_string I_STRING
|
|
#$i_unistd I_UNISTD
|
|
EOCP
|
|
$cat >>try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
#ifdef I_MEMORY
|
|
# include <memory.h>
|
|
#endif
|
|
#ifdef I_STDLIB
|
|
# include <stdlib.h>
|
|
#endif
|
|
#ifdef I_STRING
|
|
# include <string.h>
|
|
#else
|
|
# include <strings.h>
|
|
#endif
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h> /* Needed for NetBSD */
|
|
#endif
|
|
int main()
|
|
{
|
|
char a = -1;
|
|
char b = 0;
|
|
if ((a < b) && memcmp(&a, &b, 1) < 0)
|
|
exit(1);
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
if ./try 2>/dev/null; then
|
|
echo "Yes, it can."
|
|
val="$define"
|
|
else
|
|
echo "No, it can't (it uses signed chars)."
|
|
fi
|
|
else
|
|
echo "(I can't compile the test program, so we'll assume not...)"
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.* try core
|
|
set d_sanemcmp
|
|
eval $setvar
|
|
|
|
: see if prototype for sbrk is available
|
|
echo " "
|
|
set d_sbrkproto sbrk $i_unistd unistd.h
|
|
eval $hasproto
|
|
|
|
: see if select exists
|
|
set select d_select
|
|
eval $inlibc
|
|
|
|
: see if semctl exists
|
|
set semctl d_semctl
|
|
eval $inlibc
|
|
|
|
: see if semget exists
|
|
set semget d_semget
|
|
eval $inlibc
|
|
|
|
: see if semop exists
|
|
set semop d_semop
|
|
eval $inlibc
|
|
|
|
: see how much of the 'sem*(2)' library is present.
|
|
h_sem=true
|
|
echo " "
|
|
case "$d_semctl$d_semget$d_semop" in
|
|
*"$undef"*) h_sem=false;;
|
|
esac
|
|
case "$osname" in
|
|
freebsd)
|
|
case "`ipcs 2>&1`" in
|
|
"SVID messages"*"not configured"*)
|
|
echo "Your $osname does not have the sem*(2) configured." >&4
|
|
h_sem=false
|
|
val="$undef"
|
|
set semctl d_semctl
|
|
eval $setvar
|
|
set semget d_semget
|
|
eval $setvar
|
|
set semop d_semop
|
|
eval $setvar
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
: we could also check for sys/ipc.h ...
|
|
if $h_sem && $test `./findhdr sys/sem.h`; then
|
|
echo "You have the full sem*(2) library." >&4
|
|
val="$define"
|
|
else
|
|
echo "You don't have the full sem*(2) library." >&4
|
|
val="$undef"
|
|
fi
|
|
set d_sem
|
|
eval $setvar
|
|
|
|
: see whether sys/sem.h defines union semun
|
|
echo " "
|
|
$cat > try.c <<'END'
|
|
#include <sys/types.h>
|
|
#include <sys/ipc.h>
|
|
#include <sys/sem.h>
|
|
int main () { union semun semun; semun.buf = 0; }
|
|
END
|
|
set try
|
|
if eval $compile; then
|
|
echo "You have union semun in <sys/sem.h>." >&4
|
|
val="$define"
|
|
else
|
|
echo "You do not have union semun in <sys/sem.h>." >&4
|
|
val="$undef"
|
|
fi
|
|
$rm -f try try.c try.h
|
|
set d_union_semun
|
|
eval $setvar
|
|
|
|
: see how to do semctl IPC_STAT
|
|
case "$d_sem" in
|
|
$define)
|
|
: see whether semctl IPC_STAT can use union semun
|
|
echo " "
|
|
$cat > try.h <<END
|
|
#ifndef S_IRUSR
|
|
# ifdef S_IREAD
|
|
# define S_IRUSR S_IREAD
|
|
# define S_IWUSR S_IWRITE
|
|
# define S_IXUSR S_IEXEC
|
|
# else
|
|
# define S_IRUSR 0400
|
|
# define S_IWUSR 0200
|
|
# define S_IXUSR 0100
|
|
# endif
|
|
# define S_IRGRP (S_IRUSR>>3)
|
|
# define S_IWGRP (S_IWUSR>>3)
|
|
# define S_IXGRP (S_IXUSR>>3)
|
|
# define S_IROTH (S_IRUSR>>6)
|
|
# define S_IWOTH (S_IWUSR>>6)
|
|
# define S_IXOTH (S_IXUSR>>6)
|
|
#endif
|
|
#ifndef S_IRWXU
|
|
# define S_IRWXU (S_IRUSR|S_IWUSR|S_IXUSR)
|
|
# define S_IRWXG (S_IRGRP|S_IWGRP|S_IXGRP)
|
|
# define S_IRWXO (S_IROTH|S_IWOTH|S_IXOTH)
|
|
#endif
|
|
END
|
|
|
|
$cat > try.c <<END
|
|
#include <sys/types.h>
|
|
#include <sys/ipc.h>
|
|
#include <sys/sem.h>
|
|
#include <sys/stat.h>
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
#include "try.h"
|
|
#ifndef errno
|
|
extern int errno;
|
|
#endif
|
|
#$d_union_semun HAS_UNION_SEMUN
|
|
int main() {
|
|
union semun
|
|
#ifndef HAS_UNION_SEMUN
|
|
{
|
|
int val;
|
|
struct semid_ds *buf;
|
|
unsigned short *array;
|
|
}
|
|
#endif
|
|
arg;
|
|
int sem, st;
|
|
|
|
#if defined(IPC_PRIVATE) && defined(S_IRWXU) && defined(S_IRWXG) && defined(S_IRWXO) && defined(IPC_CREAT)
|
|
sem = semget(IPC_PRIVATE, 1, S_IRWXU|S_IRWXG|S_IRWXO|IPC_CREAT);
|
|
if (sem > -1) {
|
|
struct semid_ds argbuf;
|
|
arg.buf = &argbuf;
|
|
# ifdef IPC_STAT
|
|
st = semctl(sem, 0, IPC_STAT, arg);
|
|
if (st == 0)
|
|
printf("semun\n");
|
|
else
|
|
# endif /* IPC_STAT */
|
|
printf("semctl IPC_STAT failed: errno = %d\n", errno);
|
|
# ifdef IPC_RMID
|
|
if (semctl(sem, 0, IPC_RMID, arg) != 0)
|
|
# endif /* IPC_RMID */
|
|
printf("semctl IPC_RMID failed: errno = %d\n", errno);
|
|
} else
|
|
#endif /* IPC_PRIVATE && ... */
|
|
printf("semget failed: errno = %d\n", errno);
|
|
return 0;
|
|
}
|
|
END
|
|
val="$undef"
|
|
set try
|
|
if eval $compile; then
|
|
xxx=`./try`
|
|
case "$xxx" in
|
|
semun) val="$define" ;;
|
|
esac
|
|
fi
|
|
$rm -f try try.c
|
|
set d_semctl_semun
|
|
eval $setvar
|
|
case "$d_semctl_semun" in
|
|
$define)
|
|
echo "You can use union semun for semctl IPC_STAT." >&4
|
|
also='also'
|
|
;;
|
|
*) echo "You cannot use union semun for semctl IPC_STAT." >&4
|
|
also=''
|
|
;;
|
|
esac
|
|
|
|
: see whether semctl IPC_STAT can use struct semid_ds pointer
|
|
$cat > try.c <<'END'
|
|
#include <sys/types.h>
|
|
#include <sys/ipc.h>
|
|
#include <sys/sem.h>
|
|
#include <sys/stat.h>
|
|
#include "try.h"
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
#ifndef errno
|
|
extern int errno;
|
|
#endif
|
|
int main() {
|
|
struct semid_ds arg;
|
|
int sem, st;
|
|
|
|
#if defined(IPC_PRIVATE) && defined(S_IRWXU) && defined(S_IRWXG) && defined(S_IRWXO) && defined(IPC_CREAT)
|
|
sem = semget(IPC_PRIVATE, 1, S_IRWXU|S_IRWXG|S_IRWXO|IPC_CREAT);
|
|
if (sem > -1) {
|
|
# ifdef IPC_STAT
|
|
st = semctl(sem, 0, IPC_STAT, &arg);
|
|
if (st == 0)
|
|
printf("semid_ds\n");
|
|
else
|
|
# endif /* IPC_STAT */
|
|
printf("semctl IPC_STAT failed: errno = %d\n", errno);
|
|
# ifdef IPC_RMID
|
|
if (semctl(sem, 0, IPC_RMID, &arg) != 0)
|
|
# endif /* IPC_RMID */
|
|
printf("semctl IPC_RMID failed: errno = %d\n", errno);
|
|
} else
|
|
#endif /* IPC_PRIVATE && ... */
|
|
printf("semget failed: errno = %d\n", errno);
|
|
|
|
return 0;
|
|
}
|
|
END
|
|
val="$undef"
|
|
set try
|
|
if eval $compile; then
|
|
xxx=`./try`
|
|
case "$xxx" in
|
|
semid_ds) val="$define" ;;
|
|
esac
|
|
fi
|
|
$rm -f try try.c
|
|
set d_semctl_semid_ds
|
|
eval $setvar
|
|
case "$d_semctl_semid_ds" in
|
|
$define)
|
|
echo "You can $also use struct semid_ds* for semctl IPC_STAT." >&4
|
|
;;
|
|
*) echo "You cannot use struct semid_ds* for semctl IPC_STAT." >&4
|
|
;;
|
|
esac
|
|
$rm -f try.h
|
|
;;
|
|
*) val="$undef"
|
|
|
|
# We do not have the full sem*(2) library, so assume we can not
|
|
# use either.
|
|
|
|
set d_semctl_semun
|
|
eval $setvar
|
|
|
|
set d_semctl_semid_ds
|
|
eval $setvar
|
|
;;
|
|
esac
|
|
|
|
: see if setegid exists
|
|
set setegid d_setegid
|
|
eval $inlibc
|
|
|
|
: see if seteuid exists
|
|
set seteuid d_seteuid
|
|
eval $inlibc
|
|
|
|
: see if setgrent exists
|
|
set setgrent d_setgrent
|
|
eval $inlibc
|
|
|
|
: see if sethostent exists
|
|
set sethostent d_sethent
|
|
eval $inlibc
|
|
|
|
: see if setlinebuf exists
|
|
set setlinebuf d_setlinebuf
|
|
eval $inlibc
|
|
|
|
: see if setlocale exists
|
|
set setlocale d_setlocale
|
|
eval $inlibc
|
|
|
|
: see if setnetent exists
|
|
set setnetent d_setnent
|
|
eval $inlibc
|
|
|
|
: see if setprotoent exists
|
|
set setprotoent d_setpent
|
|
eval $inlibc
|
|
|
|
: see if setpgid exists
|
|
set setpgid d_setpgid
|
|
eval $inlibc
|
|
|
|
: see if setpgrp2 exists
|
|
set setpgrp2 d_setpgrp2
|
|
eval $inlibc
|
|
|
|
: see if setpriority exists
|
|
set setpriority d_setprior
|
|
eval $inlibc
|
|
|
|
: see if setproctitle exists
|
|
set setproctitle d_setproctitle
|
|
eval $inlibc
|
|
|
|
: see if setpwent exists
|
|
set setpwent d_setpwent
|
|
eval $inlibc
|
|
|
|
: see if setregid exists
|
|
set setregid d_setregid
|
|
eval $inlibc
|
|
set setresgid d_setresgid
|
|
eval $inlibc
|
|
|
|
: see if setreuid exists
|
|
set setreuid d_setreuid
|
|
eval $inlibc
|
|
set setresuid d_setresuid
|
|
eval $inlibc
|
|
|
|
: see if setrgid exists
|
|
set setrgid d_setrgid
|
|
eval $inlibc
|
|
|
|
: see if setruid exists
|
|
set setruid d_setruid
|
|
eval $inlibc
|
|
|
|
: see if setservent exists
|
|
set setservent d_setsent
|
|
eval $inlibc
|
|
|
|
: see if setsid exists
|
|
set setsid d_setsid
|
|
eval $inlibc
|
|
|
|
: see if setvbuf exists
|
|
set setvbuf d_setvbuf
|
|
eval $inlibc
|
|
|
|
: see if sfio.h is available
|
|
set sfio.h i_sfio
|
|
eval $inhdr
|
|
|
|
|
|
: see if sfio library is available
|
|
case "$i_sfio" in
|
|
$define)
|
|
val=''
|
|
set sfreserve val
|
|
eval $inlibc
|
|
;;
|
|
*)
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
: Ok, but do we want to use it.
|
|
case "$val" in
|
|
$define)
|
|
case "$usesfio" in
|
|
true|$define|[yY]*) dflt='y';;
|
|
*) dflt='n';;
|
|
esac
|
|
echo "$package can use the sfio library, but it is experimental."
|
|
case "$useperlio" in
|
|
"$undef")
|
|
echo "For sfio also the PerlIO abstraction layer is needed."
|
|
echo "Earlier you said you wouldn't want that."
|
|
;;
|
|
esac
|
|
rp="You seem to have sfio available, do you want to try using it?"
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) echo "Ok, turning on both sfio and PerlIO, then."
|
|
useperlio="$define"
|
|
val="$define"
|
|
;;
|
|
*) echo "Ok, avoiding sfio this time. I'll use stdio instead."
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
;;
|
|
*) case "$usesfio" in
|
|
true|$define|[yY]*)
|
|
echo "Sorry, cannot find sfio on this machine." >&4
|
|
echo "Ignoring your setting of usesfio=$usesfio." >&4
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
set d_sfio
|
|
eval $setvar
|
|
case "$d_sfio" in
|
|
$define) usesfio='true';;
|
|
*) usesfio='false';;
|
|
esac
|
|
case "$d_sfio" in
|
|
$define) ;;
|
|
*) : Remove sfio from list of libraries to use
|
|
set `echo X $libs | $sed -e 's/-lsfio / /' -e 's/-lsfio$//'`
|
|
shift
|
|
libs="$*"
|
|
echo "libs = $libs" >&4
|
|
;;
|
|
esac
|
|
|
|
|
|
: see if shmctl exists
|
|
set shmctl d_shmctl
|
|
eval $inlibc
|
|
|
|
: see if shmget exists
|
|
set shmget d_shmget
|
|
eval $inlibc
|
|
|
|
: see if shmat exists
|
|
set shmat d_shmat
|
|
eval $inlibc
|
|
: see what shmat returns
|
|
case "$d_shmat" in
|
|
"$define")
|
|
$cat >shmat.c <<'END'
|
|
#include <sys/shm.h>
|
|
void *shmat();
|
|
END
|
|
if $cc $ccflags -c shmat.c >/dev/null 2>&1; then
|
|
shmattype='void *'
|
|
else
|
|
shmattype='char *'
|
|
fi
|
|
echo "and it returns ($shmattype)." >&4
|
|
: see if a prototype for shmat is available
|
|
xxx=`./findhdr sys/shm.h`
|
|
$cppstdin $cppflags $cppminus < $xxx > shmat.c 2>/dev/null
|
|
if $contains 'shmat.*(' shmat.c >/dev/null 2>&1; then
|
|
val="$define"
|
|
else
|
|
val="$undef"
|
|
fi
|
|
$rm -f shmat.[co]
|
|
;;
|
|
*)
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
set d_shmatprototype
|
|
eval $setvar
|
|
|
|
: see if shmdt exists
|
|
set shmdt d_shmdt
|
|
eval $inlibc
|
|
|
|
: see how much of the 'shm*(2)' library is present.
|
|
h_shm=true
|
|
echo " "
|
|
case "$d_shmctl$d_shmget$d_shmat$d_shmdt" in
|
|
*"$undef"*) h_shm=false;;
|
|
esac
|
|
case "$osname" in
|
|
freebsd)
|
|
case "`ipcs 2>&1`" in
|
|
"SVID shared memory"*"not configured"*)
|
|
echo "Your $osname does not have the shm*(2) configured." >&4
|
|
h_shm=false
|
|
val="$undef"
|
|
set shmctl d_shmctl
|
|
evat $setvar
|
|
set shmget d_shmget
|
|
evat $setvar
|
|
set shmat d_shmat
|
|
evat $setvar
|
|
set shmdt d_shmdt
|
|
evat $setvar
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
: we could also check for sys/ipc.h ...
|
|
if $h_shm && $test `./findhdr sys/shm.h`; then
|
|
echo "You have the full shm*(2) library." >&4
|
|
val="$define"
|
|
else
|
|
echo "You don't have the full shm*(2) library." >&4
|
|
val="$undef"
|
|
fi
|
|
set d_shm
|
|
eval $setvar
|
|
|
|
echo " "
|
|
: see if we have sigaction
|
|
if set sigaction val -f d_sigaction; eval $csym; $val; then
|
|
echo 'sigaction() found.' >&4
|
|
$cat > try.c <<'EOP'
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
int main()
|
|
{
|
|
struct sigaction act, oact;
|
|
act.sa_flags = 0;
|
|
oact.sa_handler = 0;
|
|
/* so that act and oact are used */
|
|
exit(act.sa_flags == 0 && oact.sa_handler == 0);
|
|
}
|
|
EOP
|
|
set try
|
|
if eval $compile_ok; then
|
|
val="$define"
|
|
else
|
|
echo "But you don't seem to have a useable struct sigaction." >&4
|
|
val="$undef"
|
|
fi
|
|
else
|
|
echo 'sigaction NOT found.' >&4
|
|
val="$undef"
|
|
fi
|
|
set d_sigaction; eval $setvar
|
|
$rm -f try try$_o try.c
|
|
|
|
: see if sigsetjmp exists
|
|
echo " "
|
|
case "$d_sigsetjmp" in
|
|
'')
|
|
$cat >try.c <<'EOP'
|
|
#include <setjmp.h>
|
|
sigjmp_buf env;
|
|
int set = 1;
|
|
int main()
|
|
{
|
|
if (sigsetjmp(env,1))
|
|
exit(set);
|
|
set = 0;
|
|
siglongjmp(env, 1);
|
|
exit(1);
|
|
}
|
|
EOP
|
|
set try
|
|
if eval $compile; then
|
|
if ./try >/dev/null 2>&1; then
|
|
echo "POSIX sigsetjmp found." >&4
|
|
val="$define"
|
|
else
|
|
$cat >&4 <<EOM
|
|
Uh-Oh! You have POSIX sigsetjmp and siglongjmp, but they do not work properly!!
|
|
I'll ignore them.
|
|
EOM
|
|
val="$undef"
|
|
fi
|
|
else
|
|
echo "sigsetjmp not found." >&4
|
|
val="$undef"
|
|
fi
|
|
;;
|
|
*) val="$d_sigsetjmp"
|
|
case "$d_sigsetjmp" in
|
|
$define) echo "POSIX sigsetjmp found." >&4;;
|
|
$undef) echo "sigsetjmp not found." >&4;;
|
|
esac
|
|
;;
|
|
esac
|
|
set d_sigsetjmp
|
|
eval $setvar
|
|
$rm -f try.c try
|
|
|
|
: see if socks5_init exists
|
|
set socks5_init d_socks5_init
|
|
eval $inlibc
|
|
|
|
: see if sys/stat.h is available
|
|
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
|
|
|
|
|
|
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
|
|
eval $hasstruct
|
|
case "$d_statfs_s" in
|
|
"$define") echo "Yes, it does." ;;
|
|
*) echo "No, it doesn't." ;;
|
|
esac
|
|
|
|
|
|
|
|
: see if struct statfs knows about f_flags
|
|
case "$d_statfs_s" in
|
|
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
|
|
eval $hasfield
|
|
;;
|
|
*) val="$undef"
|
|
set d_statfs_f_flags
|
|
eval $setvar
|
|
;;
|
|
esac
|
|
case "$d_statfs_f_flags" in
|
|
"$define") echo "Yes, it does." ;;
|
|
*) echo "No, it doesn't." ;;
|
|
esac
|
|
|
|
: see if _ptr and _cnt from stdio act std
|
|
echo " "
|
|
|
|
if $contains '_lbfsize' `./findhdr stdio.h` >/dev/null 2>&1 ; then
|
|
echo "(Looks like you have stdio.h from BSD.)"
|
|
case "$stdio_ptr" in
|
|
'') stdio_ptr='((fp)->_p)'
|
|
ptr_lval=$define
|
|
;;
|
|
*) ptr_lval=$d_stdio_ptr_lval;;
|
|
esac
|
|
case "$stdio_cnt" in
|
|
'') stdio_cnt='((fp)->_r)'
|
|
cnt_lval=$define
|
|
;;
|
|
*) cnt_lval=$d_stdio_cnt_lval;;
|
|
esac
|
|
case "$stdio_base" in
|
|
'') stdio_base='((fp)->_ub._base ? (fp)->_ub._base : (fp)->_bf._base)';;
|
|
esac
|
|
case "$stdio_bufsiz" in
|
|
'') stdio_bufsiz='((fp)->_ub._base ? (fp)->_ub._size : (fp)->_bf._size)';;
|
|
esac
|
|
elif $contains '_IO_fpos_t' `./findhdr stdio.h` `./findhdr libio.h` >/dev/null 2>&1 ; then
|
|
echo "(Looks like you have stdio.h from Linux.)"
|
|
case "$stdio_ptr" in
|
|
'') stdio_ptr='((fp)->_IO_read_ptr)'
|
|
ptr_lval=$define
|
|
;;
|
|
*) ptr_lval=$d_stdio_ptr_lval;;
|
|
esac
|
|
case "$stdio_cnt" in
|
|
'') stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)'
|
|
cnt_lval=$undef
|
|
;;
|
|
*) cnt_lval=$d_stdio_cnt_lval;;
|
|
esac
|
|
case "$stdio_base" in
|
|
'') stdio_base='((fp)->_IO_read_base)';;
|
|
esac
|
|
case "$stdio_bufsiz" in
|
|
'') stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base)';;
|
|
esac
|
|
else
|
|
case "$stdio_ptr" in
|
|
'') stdio_ptr='((fp)->_ptr)'
|
|
ptr_lval=$define
|
|
;;
|
|
*) ptr_lval=$d_stdio_ptr_lval;;
|
|
esac
|
|
case "$stdio_cnt" in
|
|
'') stdio_cnt='((fp)->_cnt)'
|
|
cnt_lval=$define
|
|
;;
|
|
*) cnt_lval=$d_stdio_cnt_lval;;
|
|
esac
|
|
case "$stdio_base" in
|
|
'') stdio_base='((fp)->_base)';;
|
|
esac
|
|
case "$stdio_bufsiz" in
|
|
'') stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)';;
|
|
esac
|
|
fi
|
|
|
|
: test whether _ptr and _cnt really work
|
|
echo "Checking how std your stdio is..." >&4
|
|
$cat >try.c <<EOP
|
|
#include <stdio.h>
|
|
#define FILE_ptr(fp) $stdio_ptr
|
|
#define FILE_cnt(fp) $stdio_cnt
|
|
int main() {
|
|
FILE *fp = fopen("try.c", "r");
|
|
char c = getc(fp);
|
|
if (
|
|
18 <= FILE_cnt(fp) &&
|
|
strncmp(FILE_ptr(fp), "include <stdio.h>\n", 18) == 0
|
|
)
|
|
exit(0);
|
|
exit(1);
|
|
}
|
|
EOP
|
|
val="$undef"
|
|
set try
|
|
if eval $compile; then
|
|
if ./try; then
|
|
echo "Your stdio acts pretty std."
|
|
val="$define"
|
|
else
|
|
echo "Your stdio isn't very std."
|
|
fi
|
|
else
|
|
echo "Your stdio doesn't appear very std."
|
|
fi
|
|
$rm -f try.c try
|
|
set d_stdstdio
|
|
eval $setvar
|
|
|
|
: Can _ptr be used as an lvalue?
|
|
case "$d_stdstdio$ptr_lval" in
|
|
$define$define) val=$define ;;
|
|
*) val=$undef ;;
|
|
esac
|
|
set d_stdio_ptr_lval
|
|
eval $setvar
|
|
|
|
: Can _cnt be used as an lvalue?
|
|
case "$d_stdstdio$cnt_lval" in
|
|
$define$define) val=$define ;;
|
|
*) val=$undef ;;
|
|
esac
|
|
set d_stdio_cnt_lval
|
|
eval $setvar
|
|
|
|
|
|
: test whether setting _ptr sets _cnt as a side effect
|
|
d_stdio_ptr_lval_sets_cnt="$undef"
|
|
d_stdio_ptr_lval_nochange_cnt="$undef"
|
|
case "$d_stdio_ptr_lval$d_stdstdio" in
|
|
$define$define)
|
|
echo "Checking to see what happens if we set the stdio ptr..." >&4
|
|
$cat >try.c <<EOP
|
|
#include <stdio.h>
|
|
/* Can we scream? */
|
|
/* Eat dust sed :-) */
|
|
/* In the buffer space, no one can hear you scream. */
|
|
#define FILE_ptr(fp) $stdio_ptr
|
|
#define FILE_cnt(fp) $stdio_cnt
|
|
#include <sys/types.h>
|
|
int main() {
|
|
FILE *fp = fopen("try.c", "r");
|
|
int c;
|
|
char *ptr;
|
|
size_t cnt;
|
|
if (!fp) {
|
|
puts("Fail even to read");
|
|
exit(1);
|
|
}
|
|
c = getc(fp); /* Read away the first # */
|
|
if (c == EOF) {
|
|
puts("Fail even to read");
|
|
exit(1);
|
|
}
|
|
if (!(
|
|
18 <= FILE_cnt(fp) &&
|
|
strncmp(FILE_ptr(fp), "include <stdio.h>\n", 18) == 0
|
|
)) {
|
|
puts("Fail even to read");
|
|
exit (1);
|
|
}
|
|
ptr = (char*) FILE_ptr(fp);
|
|
cnt = (size_t)FILE_cnt(fp);
|
|
|
|
FILE_ptr(fp) += 42;
|
|
|
|
if ((char*)FILE_ptr(fp) != (ptr + 42)) {
|
|
printf("Fail ptr check %p != %p", FILE_ptr(fp), (ptr + 42));
|
|
exit (1);
|
|
}
|
|
if (FILE_cnt(fp) <= 20) {
|
|
printf ("Fail (<20 chars to test)");
|
|
exit (1);
|
|
}
|
|
if (strncmp(FILE_ptr(fp), "Eat dust sed :-) */\n", 20) != 0) {
|
|
puts("Fail compare");
|
|
exit (1);
|
|
}
|
|
if (cnt == FILE_cnt(fp)) {
|
|
puts("Pass_unchanged");
|
|
exit (0);
|
|
}
|
|
if (FILE_cnt(fp) == (cnt - 42)) {
|
|
puts("Pass_changed");
|
|
exit (0);
|
|
}
|
|
printf("Fail count was %d now %d\n", cnt, FILE_cnt(fp));
|
|
return 1;
|
|
|
|
}
|
|
EOP
|
|
set try
|
|
if eval $compile; then
|
|
case `./try$exe_ext` in
|
|
Pass_changed)
|
|
echo "Increasing ptr in your stdio decreases cnt by the same amount. Good." >&4
|
|
d_stdio_ptr_lval_sets_cnt="$define" ;;
|
|
Pass_unchanged)
|
|
echo "Increasing ptr in your stdio leaves cnt unchanged. Good." >&4
|
|
d_stdio_ptr_lval_nochange_cnt="$define" ;;
|
|
Fail*)
|
|
echo "Increasing ptr in your stdio didn't do exactly what I expected. We'll not be doing that then." >&4 ;;
|
|
*)
|
|
echo "It appears attempting to set ptr in your stdio is a bad plan." >&4 ;;
|
|
esac
|
|
else
|
|
echo "It seems we can't set ptr in your stdio. Nevermind." >&4
|
|
fi
|
|
$rm -f try.c try
|
|
;;
|
|
esac
|
|
|
|
: see if _base is also standard
|
|
val="$undef"
|
|
case "$d_stdstdio" in
|
|
$define)
|
|
$cat >try.c <<EOP
|
|
#include <stdio.h>
|
|
#define FILE_base(fp) $stdio_base
|
|
#define FILE_bufsiz(fp) $stdio_bufsiz
|
|
int main() {
|
|
FILE *fp = fopen("try.c", "r");
|
|
char c = getc(fp);
|
|
if (
|
|
19 <= FILE_bufsiz(fp) &&
|
|
strncmp(FILE_base(fp), "#include <stdio.h>\n", 19) == 0
|
|
)
|
|
exit(0);
|
|
exit(1);
|
|
}
|
|
EOP
|
|
set try
|
|
if eval $compile; then
|
|
if ./try; then
|
|
echo "And its _base field acts std."
|
|
val="$define"
|
|
else
|
|
echo "But its _base field isn't std."
|
|
fi
|
|
else
|
|
echo "However, it seems to be lacking the _base field."
|
|
fi
|
|
$rm -f try.c try
|
|
;;
|
|
esac
|
|
set d_stdiobase
|
|
eval $setvar
|
|
|
|
$cat >&4 <<EOM
|
|
Checking how to access stdio streams by file descriptor number...
|
|
EOM
|
|
case "$stdio_stream_array" in
|
|
'') $cat >try.c <<EOCP
|
|
#include <stdio.h>
|
|
int main() {
|
|
if (&STDIO_STREAM_ARRAY[fileno(stdin)] == stdin)
|
|
printf("yes\n");
|
|
}
|
|
EOCP
|
|
for s in _iob __iob __sF
|
|
do
|
|
set try -DSTDIO_STREAM_ARRAY=$s
|
|
if eval $compile; then
|
|
case "`./try$exe_ext`" in
|
|
yes) stdio_stream_array=$s; break ;;
|
|
esac
|
|
fi
|
|
done
|
|
$rm -f try.* try$exe_ext
|
|
esac
|
|
case "$stdio_stream_array" in
|
|
'') $cat >&4 <<EOM
|
|
I can't figure out how to access stdio streams by file descriptor number.
|
|
EOM
|
|
d_stdio_stream_array="$undef"
|
|
;;
|
|
*) $cat >&4 <<EOM
|
|
You can access stdio streams by file descriptor number by the $stdio_stream_array array.
|
|
EOM
|
|
d_stdio_stream_array="$define"
|
|
;;
|
|
esac
|
|
|
|
: see if strcoll exists
|
|
set strcoll d_strcoll
|
|
eval $inlibc
|
|
|
|
: check for structure copying
|
|
echo " "
|
|
echo "Checking to see if your C compiler can copy structs..." >&4
|
|
$cat >try.c <<'EOCP'
|
|
int main()
|
|
{
|
|
struct blurfl {
|
|
int dyick;
|
|
} foo, bar;
|
|
|
|
foo = bar;
|
|
}
|
|
EOCP
|
|
if $cc -c try.c >/dev/null 2>&1 ; then
|
|
val="$define"
|
|
echo "Yup, it can."
|
|
else
|
|
val="$undef"
|
|
echo "Nope, it can't."
|
|
fi
|
|
set d_strctcpy
|
|
eval $setvar
|
|
$rm -f try.*
|
|
|
|
: see if strerror and/or sys_errlist[] exist
|
|
echo " "
|
|
if test "X$d_strerror" = X -o "X$d_syserrlst" = X; then
|
|
if set strerror val -f d_strerror; eval $csym; $val; then
|
|
echo 'strerror() found.' >&4
|
|
d_strerror="$define"
|
|
d_strerrm='strerror(e)'
|
|
if set sys_errlist val -a d_syserrlst; eval $csym; $val; then
|
|
echo "(You also have sys_errlist[], so we could roll our own strerror.)"
|
|
d_syserrlst="$define"
|
|
else
|
|
echo "(Since you don't have sys_errlist[], sterror() is welcome.)"
|
|
d_syserrlst="$undef"
|
|
fi
|
|
elif xxx=`./findhdr string.h`; test "$xxx" || xxx=`./findhdr strings.h`; \
|
|
$contains '#[ ]*define.*strerror' "$xxx" >/dev/null 2>&1; then
|
|
echo 'strerror() found in string header.' >&4
|
|
d_strerror="$define"
|
|
d_strerrm='strerror(e)'
|
|
if set sys_errlist val -a d_syserrlst; eval $csym; $val; then
|
|
echo "(Most probably, strerror() uses sys_errlist[] for descriptions.)"
|
|
d_syserrlst="$define"
|
|
else
|
|
echo "(You don't appear to have any sys_errlist[], how can this be?)"
|
|
d_syserrlst="$undef"
|
|
fi
|
|
elif set sys_errlist val -a d_syserrlst; eval $csym; $val; then
|
|
echo "strerror() not found, but you have sys_errlist[] so we'll use that." >&4
|
|
d_strerror="$undef"
|
|
d_syserrlst="$define"
|
|
d_strerrm='((e)<0||(e)>=sys_nerr?"unknown":sys_errlist[e])'
|
|
else
|
|
echo 'strerror() and sys_errlist[] NOT found.' >&4
|
|
d_strerror="$undef"
|
|
d_syserrlst="$undef"
|
|
d_strerrm='"unknown"'
|
|
fi
|
|
fi
|
|
|
|
: see if strtod exists
|
|
set strtod d_strtod
|
|
eval $inlibc
|
|
|
|
: see if strtol exists
|
|
set strtol d_strtol
|
|
eval $inlibc
|
|
|
|
: see if strtold exists
|
|
set strtold d_strtold
|
|
eval $inlibc
|
|
|
|
: see if strtoll exists
|
|
set strtoll d_strtoll
|
|
eval $inlibc
|
|
|
|
case "$d_longlong-$d_strtoll" in
|
|
"$define-$define")
|
|
$cat <<EOM
|
|
Checking whether your strtoll() works okay...
|
|
EOM
|
|
$cat >try.c <<'EOCP'
|
|
#include <errno.h>
|
|
#ifdef __hpux
|
|
#define strtoll __strtoll
|
|
#endif
|
|
#ifdef __EMX__
|
|
#define strtoll _strtoll
|
|
#endif
|
|
#include <stdio.h>
|
|
extern long long int strtoll(char *s, char **, int);
|
|
static int bad = 0;
|
|
int check(char *s, long long ell, int een) {
|
|
long long gll;
|
|
errno = 0;
|
|
gll = strtoll(s, 0, 10);
|
|
if (!((gll == ell) && (errno == een)))
|
|
bad++;
|
|
}
|
|
int main() {
|
|
check(" 1", 1LL, 0);
|
|
check(" 0", 0LL, 0);
|
|
check("-1", -1LL, 0);
|
|
check("-9223372036854775808", -9223372036854775808LL, 0);
|
|
check("-9223372036854775808", -9223372036854775808LL, 0);
|
|
check(" 9223372036854775807", 9223372036854775807LL, 0);
|
|
check("-9223372036854775808", -9223372036854775808LL, 0);
|
|
check(" 9223372036854775808", 9223372036854775807LL, ERANGE);
|
|
check("-9223372036854775809", -9223372036854775808LL, ERANGE);
|
|
if (!bad)
|
|
printf("ok\n");
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
ok) echo "Your strtoll() seems to be working okay." ;;
|
|
*) cat <<EOM >&4
|
|
Your strtoll() doesn't seem to be working okay.
|
|
EOM
|
|
d_strtoll="$undef"
|
|
;;
|
|
esac
|
|
else
|
|
echo "(I can't seem to compile the test program--assuming it doesn't)"
|
|
d_strtoll="$undef"
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
: see if strtoul exists
|
|
set strtoul d_strtoul
|
|
eval $inlibc
|
|
|
|
: see if strtoull exists
|
|
set strtoull d_strtoull
|
|
eval $inlibc
|
|
|
|
case "$d_longlong-$d_strtoull" in
|
|
"$define-$define")
|
|
$cat <<EOM
|
|
Checking whether your strtoull() works okay...
|
|
EOM
|
|
$cat >try.c <<'EOCP'
|
|
#include <errno.h>
|
|
#ifdef __hpux
|
|
#define strtoull __strtoull
|
|
#endif
|
|
#include <stdio.h>
|
|
extern unsigned long long int strtoull(char *s, char **, int);
|
|
static int bad = 0;
|
|
int check(char *s, long long eull, int een) {
|
|
long long gull;
|
|
errno = 0;
|
|
gull = strtoull(s, 0, 10);
|
|
if (!((gull == eull) && (errno == een)))
|
|
bad++;
|
|
}
|
|
int main() {
|
|
check(" 1", 1LL, 0);
|
|
check(" 0", 0LL, 0);
|
|
check("18446744073709551615", 18446744073709551615ULL, 0);
|
|
check("18446744073709551616", 18446744073709551615ULL, ERANGE);
|
|
if (!bad)
|
|
printf("ok\n");
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
case "`./try`" in
|
|
ok) echo "Your strtoull() seems to be working okay." ;;
|
|
*) cat <<EOM >&4
|
|
Your strtoull() doesn't seem to be working okay.
|
|
EOM
|
|
d_strtoull="$undef"
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
: see if strtouq exists
|
|
set strtouq d_strtouq
|
|
eval $inlibc
|
|
|
|
: see if strxfrm exists
|
|
set strxfrm d_strxfrm
|
|
eval $inlibc
|
|
|
|
: see if symlink exists
|
|
set symlink d_symlink
|
|
eval $inlibc
|
|
|
|
: see if syscall exists
|
|
set syscall d_syscall
|
|
eval $inlibc
|
|
|
|
: see if sysconf exists
|
|
set sysconf d_sysconf
|
|
eval $inlibc
|
|
|
|
: see if system exists
|
|
set system d_system
|
|
eval $inlibc
|
|
|
|
: see if tcgetpgrp exists
|
|
set tcgetpgrp d_tcgetpgrp
|
|
eval $inlibc
|
|
|
|
: see if tcsetpgrp exists
|
|
set tcsetpgrp d_tcsetpgrp
|
|
eval $inlibc
|
|
|
|
: see if prototype for telldir is available
|
|
echo " "
|
|
set d_telldirproto telldir $i_systypes sys/types.h $i_dirent dirent.h
|
|
eval $hasproto
|
|
|
|
: see if this is a sys/times.h system
|
|
set sys/times.h i_systimes
|
|
eval $inhdr
|
|
|
|
: see if times exists
|
|
echo " "
|
|
if set times val -f d_times; eval $csym; $val; then
|
|
echo 'times() found.' >&4
|
|
d_times="$define"
|
|
inc=''
|
|
case "$i_systimes" in
|
|
"$define") inc='sys/times.h';;
|
|
esac
|
|
rp="What is the type returned by times() on this system?"
|
|
set clock_t clocktype long stdio.h sys/types.h $inc
|
|
eval $typedef_ask
|
|
else
|
|
echo 'times() NOT found, hope that will do.' >&4
|
|
d_times="$undef"
|
|
clocktype='int'
|
|
fi
|
|
|
|
: see if truncate exists
|
|
set truncate d_truncate
|
|
eval $inlibc
|
|
|
|
: see if tzname[] exists
|
|
echo " "
|
|
if set tzname val -a d_tzname; eval $csym; $val; then
|
|
val="$define"
|
|
echo 'tzname[] found.' >&4
|
|
else
|
|
val="$undef"
|
|
echo 'tzname[] NOT found.' >&4
|
|
fi
|
|
set d_tzname
|
|
eval $setvar
|
|
|
|
: see if umask exists
|
|
set umask d_umask
|
|
eval $inlibc
|
|
|
|
: see if ustat exists
|
|
set ustat d_ustat
|
|
eval $inlibc
|
|
|
|
: backward compatibility for d_hvfork
|
|
if test X$d_hvfork != X; then
|
|
d_vfork="$d_hvfork"
|
|
d_hvfork=''
|
|
fi
|
|
: see if there is a vfork
|
|
val=''
|
|
set vfork val
|
|
eval $inlibc
|
|
|
|
: Ok, but do we want to use it. vfork is reportedly unreliable in
|
|
: perl on Solaris 2.x, and probably elsewhere.
|
|
case "$val" in
|
|
$define)
|
|
echo " "
|
|
case "$usevfork" in
|
|
false) dflt='n';;
|
|
*) dflt='y';;
|
|
esac
|
|
cat <<'EOM'
|
|
|
|
Perl can only use a vfork() that doesn't suffer from strict
|
|
restrictions on calling functions or modifying global data in
|
|
the child. For example, glibc-2.1 contains such a vfork()
|
|
that is unsuitable. If your system provides a proper fork()
|
|
call, chances are that you do NOT want perl to use vfork().
|
|
|
|
EOM
|
|
rp="Do you still want to use vfork()?"
|
|
. ./myread
|
|
case "$ans" in
|
|
y|Y) ;;
|
|
*)
|
|
echo "Ok, we won't use vfork()."
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
set d_vfork
|
|
eval $setvar
|
|
case "$d_vfork" in
|
|
$define) usevfork='true';;
|
|
*) usevfork='false';;
|
|
esac
|
|
|
|
: see if this is an sysdir system
|
|
set sys/dir.h i_sysdir
|
|
eval $inhdr
|
|
|
|
: see if this is an sysndir system
|
|
set sys/ndir.h i_sysndir
|
|
eval $inhdr
|
|
|
|
: see if closedir exists
|
|
set closedir d_closedir
|
|
eval $inlibc
|
|
|
|
case "$d_closedir" in
|
|
"$define")
|
|
echo " "
|
|
echo "Checking whether closedir() returns a status..." >&4
|
|
cat > closedir.c <<EOM
|
|
#$i_dirent I_DIRENT /**/
|
|
#$i_sysdir I_SYS_DIR /**/
|
|
#$i_sysndir I_SYS_NDIR /**/
|
|
#$i_systypes I_SYS_TYPES /**/
|
|
|
|
#if defined(I_SYS_TYPES)
|
|
#include <sys/types.h>
|
|
#endif
|
|
#if defined(I_DIRENT)
|
|
#include <dirent.h>
|
|
#if defined(NeXT) && defined(I_SYS_DIR) /* NeXT needs dirent + sys/dir.h */
|
|
#include <sys/dir.h>
|
|
#endif
|
|
#else
|
|
#ifdef I_SYS_NDIR
|
|
#include <sys/ndir.h>
|
|
#else
|
|
#ifdef I_SYS_DIR
|
|
#ifdef hp9000s500
|
|
#include <ndir.h> /* may be wrong in the future */
|
|
#else
|
|
#include <sys/dir.h>
|
|
#endif
|
|
#endif
|
|
#endif
|
|
#endif
|
|
int main() { return closedir(opendir(".")); }
|
|
EOM
|
|
set closedir
|
|
if eval $compile_ok; then
|
|
if ./closedir > /dev/null 2>&1 ; then
|
|
echo "Yes, it does."
|
|
val="$undef"
|
|
else
|
|
echo "No, it doesn't."
|
|
val="$define"
|
|
fi
|
|
else
|
|
echo "(I can't seem to compile the test program--assuming it doesn't)"
|
|
val="$define"
|
|
fi
|
|
;;
|
|
*)
|
|
val="$undef";
|
|
;;
|
|
esac
|
|
set d_void_closedir
|
|
eval $setvar
|
|
$rm -f closedir*
|
|
: see if there is a wait4
|
|
set wait4 d_wait4
|
|
eval $inlibc
|
|
|
|
: see if waitpid exists
|
|
set waitpid d_waitpid
|
|
eval $inlibc
|
|
|
|
: see if wcstombs exists
|
|
set wcstombs d_wcstombs
|
|
eval $inlibc
|
|
|
|
: see if wctomb exists
|
|
set wctomb d_wctomb
|
|
eval $inlibc
|
|
|
|
: preserve RCS keywords in files with variable substitution, grrr
|
|
Date='$Date'
|
|
Id='$Id'
|
|
Log='$Log'
|
|
RCSfile='$RCSfile'
|
|
Revision='$Revision'
|
|
|
|
case "$crosscompile" in
|
|
''|[nN]*) crosscompile="$undef" ;;
|
|
esac
|
|
|
|
case "$osname" in
|
|
next|rhapsody|darwin) multiarch="$define" ;;
|
|
esac
|
|
case "$multiarch" in
|
|
''|[nN]*) multiarch="$undef" ;;
|
|
esac
|
|
|
|
: check for alignment requirements
|
|
echo " "
|
|
case "$crosscompile$multiarch" in
|
|
*$define*)
|
|
$cat <<EOM
|
|
You seem to be either cross-compiling or doing a multiarchitecture build,
|
|
skipping the memory alignment check.
|
|
|
|
EOM
|
|
case "$alignbytes" in
|
|
'') alignbytes=8 ;;
|
|
esac
|
|
;;
|
|
*)
|
|
case "$alignbytes" in
|
|
'') echo "Checking alignment constraints..." >&4
|
|
if $test "X$uselongdouble" = Xdefine -a "X$d_longdbl" = Xdefine; then
|
|
$cat >try.c <<'EOCP'
|
|
typedef long double NV;
|
|
EOCP
|
|
else
|
|
$cat >try.c <<'EOCP'
|
|
typedef double NV;
|
|
EOCP
|
|
fi
|
|
$cat >>try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
struct foobar {
|
|
char foo;
|
|
NV bar;
|
|
} try_algn;
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)((char *)&try_algn.bar - (char *)&try_algn.foo));
|
|
return(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
dflt=`./try`
|
|
else
|
|
dflt='8'
|
|
echo "(I can't seem to compile the test program...)"
|
|
fi
|
|
;;
|
|
*) dflt="$alignbytes"
|
|
;;
|
|
esac
|
|
rp="Doubles must be aligned on a how-many-byte boundary?"
|
|
. ./myread
|
|
alignbytes="$ans"
|
|
$rm -f try.c try
|
|
;;
|
|
esac
|
|
|
|
|
|
: set the base revision
|
|
baserev=5.0
|
|
|
|
: check for ordering of bytes in a long
|
|
echo " "
|
|
case "$crosscompile$multiarch" in
|
|
*$define*)
|
|
$cat <<EOM
|
|
You seem to be either cross-compiling or doing a multiarchitecture build,
|
|
skipping the byteorder check.
|
|
|
|
EOM
|
|
byteorder='0xffff'
|
|
;;
|
|
*)
|
|
case "$byteorder" in
|
|
'')
|
|
$cat <<'EOM'
|
|
In the following, larger digits indicate more significance. A big-endian
|
|
machine like a Pyramid or a Motorola 680?0 chip will come out to 4321. A
|
|
little-endian machine like a Vax or an Intel 80?86 chip would be 1234. Other
|
|
machines may have weird orders like 3412. A Cray will report 87654321,
|
|
an Alpha will report 12345678. If the test program works the default is
|
|
probably right.
|
|
I'm now running the test program...
|
|
EOM
|
|
$cat >try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
int i;
|
|
union {
|
|
unsigned long l;
|
|
char c[sizeof(long)];
|
|
} u;
|
|
|
|
if (sizeof(long) > 4)
|
|
u.l = (0x08070605L << 32) | 0x04030201L;
|
|
else
|
|
u.l = 0x04030201L;
|
|
for (i = 0; i < sizeof(long); i++)
|
|
printf("%c", u.c[i]+'0');
|
|
printf("\n");
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
xxx_prompt=y
|
|
set try
|
|
if eval $compile && ./try > /dev/null; then
|
|
dflt=`./try`
|
|
case "$dflt" in
|
|
[1-4][1-4][1-4][1-4]|12345678|87654321)
|
|
echo "(The test program ran ok.)"
|
|
echo "byteorder=$dflt"
|
|
xxx_prompt=n
|
|
;;
|
|
????|????????) echo "(The test program ran ok.)" ;;
|
|
*) echo "(The test program didn't run right for some reason.)" ;;
|
|
esac
|
|
else
|
|
dflt='4321'
|
|
cat <<'EOM'
|
|
(I can't seem to compile the test program. Guessing big-endian...)
|
|
EOM
|
|
fi
|
|
case "$xxx_prompt" in
|
|
y)
|
|
rp="What is the order of bytes in a long?"
|
|
. ./myread
|
|
byteorder="$ans"
|
|
;;
|
|
*) byteorder=$dflt
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
$rm -f try.c try
|
|
;;
|
|
esac
|
|
|
|
|
|
: how do we catenate cpp tokens here?
|
|
echo " "
|
|
echo "Checking to see how your cpp does stuff like catenate tokens..." >&4
|
|
$cat >cpp_stuff.c <<'EOCP'
|
|
#define RCAT(a,b)a/**/b
|
|
#define ACAT(a,b)a ## b
|
|
RCAT(Rei,ser)
|
|
ACAT(Cir,cus)
|
|
EOCP
|
|
$cppstdin $cppflags $cppminus <cpp_stuff.c >cpp_stuff.out 2>&1
|
|
if $contains 'Circus' cpp_stuff.out >/dev/null 2>&1; then
|
|
echo "Oh! Smells like ANSI's been here." >&4
|
|
echo "We can catify or stringify, separately or together!"
|
|
cpp_stuff=42
|
|
elif $contains 'Reiser' cpp_stuff.out >/dev/null 2>&1; then
|
|
echo "Ah, yes! The good old days!" >&4
|
|
echo "However, in the good old days we don't know how to stringify and"
|
|
echo "catify at the same time."
|
|
cpp_stuff=1
|
|
else
|
|
$cat >&4 <<EOM
|
|
Hmm, I don't seem to be able to catenate tokens with your cpp. You're going
|
|
to have to edit the values of CAT[2-5] in config.h...
|
|
EOM
|
|
cpp_stuff="/* Help! How do we handle cpp_stuff? */*/"
|
|
fi
|
|
$rm -f cpp_stuff.*
|
|
|
|
: see if this is a db.h system
|
|
set db.h i_db
|
|
eval $inhdr
|
|
|
|
case "$i_db" in
|
|
$define)
|
|
: Check db version.
|
|
echo " "
|
|
echo "Checking Berkeley DB version ..." >&4
|
|
$cat >try.c <<EOCP
|
|
#$d_const HASCONST
|
|
#ifndef HASCONST
|
|
#define const
|
|
#endif
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
#include <db.h>
|
|
int main()
|
|
{
|
|
#ifdef DB_VERSION_MAJOR /* DB version >= 2 */
|
|
int Major, Minor, Patch ;
|
|
unsigned long Version ;
|
|
(void)db_version(&Major, &Minor, &Patch) ;
|
|
printf("You have Berkeley DB Version 2 or greater\n");
|
|
|
|
printf("db.h is from Berkeley DB Version %d.%d.%d\n",
|
|
DB_VERSION_MAJOR, DB_VERSION_MINOR, DB_VERSION_PATCH);
|
|
printf("libdb is from Berkeley DB Version %d.%d.%d\n",
|
|
Major, Minor, Patch) ;
|
|
|
|
/* check that db.h & libdb are compatible */
|
|
if (DB_VERSION_MAJOR != Major || DB_VERSION_MINOR != Minor || DB_VERSION_PATCH != Patch) {
|
|
printf("db.h and libdb are incompatible\n") ;
|
|
exit(3);
|
|
}
|
|
|
|
printf("db.h and libdb are compatible\n") ;
|
|
|
|
Version = DB_VERSION_MAJOR * 1000000 + DB_VERSION_MINOR * 1000
|
|
+ DB_VERSION_PATCH ;
|
|
|
|
/* needs to be >= 2.3.4 */
|
|
if (Version < 2003004) {
|
|
/* if (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && DB_VERSION_PATCH < 5) { */
|
|
printf("but Perl needs Berkeley DB 2.3.4 or greater\n") ;
|
|
exit(2);
|
|
}
|
|
|
|
exit(0);
|
|
#else
|
|
#if defined(_DB_H_) && defined(BTREEMAGIC) && defined(HASHMAGIC)
|
|
printf("You have Berkeley DB Version 1\n");
|
|
exit(0); /* DB version < 2: the coast is clear. */
|
|
#else
|
|
exit(1); /* <db.h> not Berkeley DB? */
|
|
#endif
|
|
#endif
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok && ./try; then
|
|
echo 'Looks OK.' >&4
|
|
else
|
|
echo "I can't use Berkeley DB with your <db.h>. I'll disable Berkeley DB." >&4
|
|
i_db=$undef
|
|
case " $libs " in
|
|
*"-ldb "*)
|
|
: Remove db from list of libraries to use
|
|
echo "Removing unusable -ldb from library list" >&4
|
|
set `echo X $libs | $sed -e 's/-ldb / /' -e 's/-ldb$//'`
|
|
shift
|
|
libs="$*"
|
|
echo "libs = $libs" >&4
|
|
;;
|
|
esac
|
|
fi
|
|
$rm -f try.*
|
|
;;
|
|
esac
|
|
|
|
case "$i_db" in
|
|
define)
|
|
: Check the return type needed for hash
|
|
echo " "
|
|
echo "Checking return type needed for hash for Berkeley DB ..." >&4
|
|
$cat >try.c <<EOCP
|
|
#$d_const HASCONST
|
|
#ifndef HASCONST
|
|
#define const
|
|
#endif
|
|
#include <sys/types.h>
|
|
#include <db.h>
|
|
|
|
#ifndef DB_VERSION_MAJOR
|
|
u_int32_t hash_cb (ptr, size)
|
|
const void *ptr;
|
|
size_t size;
|
|
{
|
|
}
|
|
HASHINFO info;
|
|
int main()
|
|
{
|
|
info.hash = hash_cb;
|
|
}
|
|
#endif
|
|
EOCP
|
|
if $cc $ccflags -c try.c >try.out 2>&1 ; then
|
|
if $contains warning try.out >>/dev/null 2>&1 ; then
|
|
db_hashtype='int'
|
|
else
|
|
db_hashtype='u_int32_t'
|
|
fi
|
|
else
|
|
: XXX Maybe we should just give up here.
|
|
db_hashtype=u_int32_t
|
|
$cat try.out >&4
|
|
echo "Help: I can't seem to compile the db test program." >&4
|
|
echo "Something's wrong, but I'll assume you use $db_hashtype." >&4
|
|
fi
|
|
$rm -f try.*
|
|
echo "Your version of Berkeley DB uses $db_hashtype for hash."
|
|
;;
|
|
*) db_hashtype=u_int32_t
|
|
;;
|
|
esac
|
|
case "$i_db" in
|
|
define)
|
|
: Check the return type needed for prefix
|
|
echo " "
|
|
echo "Checking return type needed for prefix for Berkeley DB ..." >&4
|
|
cat >try.c <<EOCP
|
|
#$d_const HASCONST
|
|
#ifndef HASCONST
|
|
#define const
|
|
#endif
|
|
#include <sys/types.h>
|
|
#include <db.h>
|
|
|
|
#ifndef DB_VERSION_MAJOR
|
|
size_t prefix_cb (key1, key2)
|
|
const DBT *key1;
|
|
const DBT *key2;
|
|
{
|
|
}
|
|
BTREEINFO info;
|
|
int main()
|
|
{
|
|
info.prefix = prefix_cb;
|
|
}
|
|
#endif
|
|
EOCP
|
|
if $cc $ccflags -c try.c >try.out 2>&1 ; then
|
|
if $contains warning try.out >>/dev/null 2>&1 ; then
|
|
db_prefixtype='int'
|
|
else
|
|
db_prefixtype='size_t'
|
|
fi
|
|
else
|
|
db_prefixtype='size_t'
|
|
: XXX Maybe we should just give up here.
|
|
$cat try.out >&4
|
|
echo "Help: I can't seem to compile the db test program." >&4
|
|
echo "Something's wrong, but I'll assume you use $db_prefixtype." >&4
|
|
fi
|
|
$rm -f try.*
|
|
echo "Your version of Berkeley DB uses $db_prefixtype for prefix."
|
|
;;
|
|
*) db_prefixtype='size_t'
|
|
;;
|
|
esac
|
|
|
|
: check for void type
|
|
echo " "
|
|
echo "Checking to see how well your C compiler groks the void type..." >&4
|
|
case "$voidflags" in
|
|
'')
|
|
$cat >try.c <<'EOCP'
|
|
#if TRY & 1
|
|
void sub() {
|
|
#else
|
|
sub() {
|
|
#endif
|
|
extern void moo(); /* function returning void */
|
|
void (*goo)(); /* ptr to func returning void */
|
|
#if TRY & 8
|
|
void *hue; /* generic ptr */
|
|
#endif
|
|
#if TRY & 2
|
|
void (*foo[10])();
|
|
#endif
|
|
|
|
#if TRY & 4
|
|
if(goo == moo) {
|
|
exit(0);
|
|
}
|
|
#endif
|
|
exit(0);
|
|
}
|
|
int main() { sub(); }
|
|
EOCP
|
|
if $cc $ccflags -c -DTRY=$defvoidused try.c >.out 2>&1 ; then
|
|
voidflags=$defvoidused
|
|
echo "Good. It appears to support void to the level $package wants.">&4
|
|
if $contains warning .out >/dev/null 2>&1; then
|
|
echo "However, you might get some warnings that look like this:"
|
|
$cat .out
|
|
fi
|
|
else
|
|
echo "Hmm, your compiler has some difficulty with void. Checking further..." >&4
|
|
if $cc $ccflags -c -DTRY=1 try.c >/dev/null 2>&1; then
|
|
echo "It supports 1..."
|
|
if $cc $ccflags -c -DTRY=3 try.c >/dev/null 2>&1; then
|
|
echo "It also supports 2..."
|
|
if $cc $ccflags -c -DTRY=7 try.c >/dev/null 2>&1; then
|
|
voidflags=7
|
|
echo "And it supports 4 but not 8 definitely."
|
|
else
|
|
echo "It doesn't support 4..."
|
|
if $cc $ccflags -c -DTRY=11 try.c >/dev/null 2>&1; then
|
|
voidflags=11
|
|
echo "But it supports 8."
|
|
else
|
|
voidflags=3
|
|
echo "Neither does it support 8."
|
|
fi
|
|
fi
|
|
else
|
|
echo "It does not support 2..."
|
|
if $cc $ccflags -c -DTRY=13 try.c >/dev/null 2>&1; then
|
|
voidflags=13
|
|
echo "But it supports 4 and 8."
|
|
else
|
|
if $cc $ccflags -c -DTRY=5 try.c >/dev/null 2>&1; then
|
|
voidflags=5
|
|
echo "And it supports 4 but has not heard about 8."
|
|
else
|
|
echo "However it supports 8 but not 4."
|
|
fi
|
|
fi
|
|
fi
|
|
else
|
|
echo "There is no support at all for void."
|
|
voidflags=0
|
|
fi
|
|
fi
|
|
esac
|
|
case "$voidflags" in
|
|
"$defvoidused") ;;
|
|
*) $cat >&4 <<'EOM'
|
|
Support flag bits are:
|
|
1: basic void declarations.
|
|
2: arrays of pointers to functions returning void.
|
|
4: operations between pointers to and addresses of void functions.
|
|
8: generic void pointers.
|
|
EOM
|
|
dflt="$voidflags";
|
|
rp="Your void support flags add up to what?"
|
|
. ./myread
|
|
voidflags="$ans"
|
|
;;
|
|
esac
|
|
$rm -f try.* .out
|
|
|
|
|
|
: How can we generate normalized random numbers ?
|
|
echo " "
|
|
echo "Looking for a random number function..." >&4
|
|
case "$randfunc" in
|
|
'')
|
|
if set drand48 val -f; eval $csym; $val; then
|
|
dflt="drand48"
|
|
echo "Good, found drand48()." >&4
|
|
elif set random val -f; eval $csym; $val; then
|
|
dflt="random"
|
|
echo "OK, found random()." >&4
|
|
else
|
|
dflt="rand"
|
|
echo "Yick, looks like I have to use rand()." >&4
|
|
fi
|
|
echo " "
|
|
;;
|
|
*)
|
|
dflt="$randfunc"
|
|
;;
|
|
esac
|
|
cont=true
|
|
|
|
case "$ccflags" in
|
|
*-Dmy_rand=*|*-Dmy_srand=*)
|
|
echo "Removing obsolete -Dmy_rand, -Dmy_srand, and -Drandbits from ccflags." >&4
|
|
ccflags="`echo $ccflags | sed -e 's/-Dmy_rand=random/ /'`"
|
|
ccflags="`echo $ccflags | sed -e 's/-Dmy_srand=srandom/ /'`"
|
|
ccflags="`echo $ccflags | sed -e 's/-Drandbits=[0-9][0-9]*/ /'`"
|
|
;;
|
|
esac
|
|
|
|
while $test "$cont"; do
|
|
rp="Use which function to generate random numbers?"
|
|
. ./myread
|
|
if $test "$ans" = "$dflt"; then
|
|
: null
|
|
else
|
|
randbits=''
|
|
fi
|
|
randfunc="$ans"
|
|
if set $ans val -f; eval $csym; $val; then
|
|
cont=''
|
|
else
|
|
dflt=y
|
|
rp="I cannot find function $ans. Use that name anyway?"
|
|
. ./myread
|
|
dflt=rand
|
|
case "$ans" in
|
|
[yY]*) cont='';;
|
|
esac
|
|
fi
|
|
case "$cont" in
|
|
'')
|
|
case "$randfunc" in
|
|
drand48)
|
|
drand01="drand48()"
|
|
seedfunc="srand48"
|
|
randbits=48
|
|
randseedtype=long
|
|
;;
|
|
rand|random)
|
|
case "$randbits" in
|
|
'')
|
|
echo "Checking to see how many bits your $randfunc() function produces..." >&4
|
|
$cat >try.c <<EOCP
|
|
#$i_unistd I_UNISTD
|
|
#$i_stdlib I_STDLIB
|
|
#include <stdio.h>
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h>
|
|
#endif
|
|
#ifdef I_STDLIB
|
|
# include <stdlib.h>
|
|
#endif
|
|
int main()
|
|
{
|
|
register int i;
|
|
register unsigned long tmp;
|
|
register unsigned long max = 0L;
|
|
|
|
for (i = 1000; i; i--) {
|
|
tmp = (unsigned long) $randfunc();
|
|
if (tmp > max) max = tmp;
|
|
}
|
|
for (i = 0; max; i++)
|
|
max /= 2;
|
|
printf("%d\n",i);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
dflt=`try`
|
|
else
|
|
dflt='?'
|
|
echo "(I can't seem to compile the test program...)"
|
|
fi
|
|
;;
|
|
*)
|
|
dflt="$randbits"
|
|
;;
|
|
esac
|
|
rp="How many bits does your $randfunc() function produce?"
|
|
. ./myread
|
|
randbits="$ans"
|
|
$rm -f try.c try
|
|
drand01="($randfunc() / (double) ((unsigned long)1 << $randbits))"
|
|
seedfunc="s$randfunc"
|
|
randseedtype=unsigned
|
|
;;
|
|
*)
|
|
dflt="31"
|
|
rp="How many bits does your $randfunc() function produce?"
|
|
. ./myread
|
|
randbits="$ans"
|
|
seedfunc="s$randfunc"
|
|
drand01="($randfunc() / (double) ((unsigned long)1 << $randbits))"
|
|
if set $seedfunc val -f; eval $csym; $val; then
|
|
echo "(Using $seedfunc() to seed random generator)"
|
|
else
|
|
echo "(Warning: no $seedfunc() to seed random generator)"
|
|
seedfunc=rand
|
|
fi
|
|
randseedtype=unsigned
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
|
|
echo " "
|
|
echo "Determining whether or not we are on an EBCDIC system..." >&4
|
|
$cat >tebcdic.c <<'EOM'
|
|
int main()
|
|
{
|
|
if ('M'==0xd4) return 0;
|
|
return 1;
|
|
}
|
|
EOM
|
|
|
|
val=$undef
|
|
set tebcdic
|
|
if eval $compile_ok; then
|
|
if ./tebcdic; then
|
|
echo "You seem to speak EBCDIC." >&4
|
|
val="$define"
|
|
else
|
|
echo "Nope, no EBCDIC, probably ASCII or some ISO Latin. Or UTF8." >&4
|
|
fi
|
|
else
|
|
echo "I'm unable to compile the test program." >&4
|
|
echo "I'll assume ASCII or some ISO Latin. Or UTF8." >&4
|
|
fi
|
|
$rm -f tebcdic.c tebcdic
|
|
set ebcdic
|
|
eval $setvar
|
|
|
|
echo " "
|
|
$cat >&4 <<EOM
|
|
Checking how to flush all pending stdio output...
|
|
EOM
|
|
# I only know how to find the first 32 possibly open files on SunOS.
|
|
# See also hints/sunos_4_1.sh and util.c --AD
|
|
case "$osname" in
|
|
sunos) $echo '#define PERL_FFLUSH_ALL_FOPEN_MAX 32' > try.c ;;
|
|
esac
|
|
$cat >>try.c <<EOCP
|
|
#include <stdio.h>
|
|
#$i_unistd I_UNISTD
|
|
#ifdef I_UNISTD
|
|
# include <unistd.h>
|
|
#endif
|
|
#$d_sysconf HAS_SYSCONF
|
|
#$d_stdio_stream_array HAS_STDIO_STREAM_ARRAY
|
|
#ifdef HAS_STDIO_STREAM_ARRAY
|
|
# define STDIO_STREAM_ARRAY $stdio_stream_array
|
|
#endif
|
|
int main() {
|
|
FILE* p = fopen("try.out", "w");
|
|
#ifdef TRY_FPUTC
|
|
fputc('x', p);
|
|
#else
|
|
# ifdef TRY_FPRINTF
|
|
fprintf(p, "x");
|
|
# endif
|
|
#endif
|
|
#ifdef TRY_FFLUSH_NULL
|
|
fflush(NULL);
|
|
#endif
|
|
#ifdef TRY_FFLUSH_ALL
|
|
{
|
|
long open_max = -1;
|
|
# ifdef PERL_FFLUSH_ALL_FOPEN_MAX
|
|
open_max = PERL_FFLUSH_ALL_FOPEN_MAX;
|
|
# else
|
|
# if defined(HAS_SYSCONF) && defined(_SC_OPEN_MAX)
|
|
open_max = sysconf(_SC_OPEN_MAX);
|
|
# else
|
|
# ifdef FOPEN_MAX
|
|
open_max = FOPEN_MAX;
|
|
# else
|
|
# ifdef OPEN_MAX
|
|
open_max = OPEN_MAX;
|
|
# else
|
|
# ifdef _NFILE
|
|
open_max = _NFILE;
|
|
# endif
|
|
# endif
|
|
# endif
|
|
# endif
|
|
# endif
|
|
# ifdef HAS_STDIO_STREAM_ARRAY
|
|
if (open_max > 0) {
|
|
long i;
|
|
for (i = 0; i < open_max; i++)
|
|
if (STDIO_STREAM_ARRAY[i]._file >= 0 &&
|
|
STDIO_STREAM_ARRAY[i]._file < open_max &&
|
|
STDIO_STREAM_ARRAY[i]._flag)
|
|
fflush(&STDIO_STREAM_ARRAY[i]);
|
|
}
|
|
}
|
|
# endif
|
|
#endif
|
|
_exit(42);
|
|
}
|
|
EOCP
|
|
: first we have to find out how _not_ to flush
|
|
if $test "X$fflushNULL" = X -o "X$fflushall" = X; then
|
|
output=''
|
|
set try -DTRY_FPUTC
|
|
if eval $compile; then
|
|
$rm -f try.out
|
|
./try$exe_ext 2>/dev/null
|
|
if $test ! -s try.out -a "X$?" = X42; then
|
|
output=-DTRY_FPUTC
|
|
fi
|
|
fi
|
|
case "$output" in
|
|
'')
|
|
set try -DTRY_FPRINTF
|
|
$rm -f try.out
|
|
if eval $compile; then
|
|
$rm -f try.out
|
|
./try$exe_ext 2>/dev/null
|
|
if $test ! -s try.out -a "X$?" = X42; then
|
|
output=-DTRY_FPRINTF
|
|
fi
|
|
fi
|
|
;;
|
|
esac
|
|
fi
|
|
: check for fflush NULL behaviour
|
|
case "$fflushNULL" in
|
|
'') set try -DTRY_FFLUSH_NULL $output
|
|
if eval $compile; then
|
|
$rm -f try.out
|
|
./try$exe_ext 2>/dev/null
|
|
code="$?"
|
|
if $test -s try.out -a "X$code" = X42; then
|
|
fflushNULL="`$cat try.out`"
|
|
else
|
|
if $test "X$code" != X42; then
|
|
$cat >&4 <<EOM
|
|
(If this test failed, don't worry, we'll try another method shortly.)
|
|
EOM
|
|
fi
|
|
fi
|
|
fi
|
|
$rm -f core try.core core.try.*
|
|
case "$fflushNULL" in
|
|
x) $cat >&4 <<EOM
|
|
Your fflush(NULL) works okay for output streams.
|
|
Let's see if it clobbers input pipes...
|
|
EOM
|
|
# As of mid-March 2000 all versions of Solaris appear to have a stdio
|
|
# bug that improperly flushes the input end of pipes. So we avoid the
|
|
# autoflush on fork/system/exec support for now. :-(
|
|
$cat >tryp.c <<EOCP
|
|
#include <stdio.h>
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
char buf[1024];
|
|
int i;
|
|
char *bp = buf;
|
|
while (1) {
|
|
while ((i = getc(stdin)) != -1
|
|
&& (*bp++ = i) != '\n'
|
|
&& bp < &buf[1024])
|
|
/* DO NOTHING */ ;
|
|
*bp = '\0';
|
|
fprintf(stdout, "%s", buf);
|
|
fflush(NULL);
|
|
if (i == -1)
|
|
return 0;
|
|
bp = buf;
|
|
}
|
|
}
|
|
EOCP
|
|
fflushNULL="$define"
|
|
set tryp
|
|
if eval $compile; then
|
|
$rm -f tryp.out
|
|
$cat tryp.c | ./tryp$exe_ext 2>/dev/null > tryp.out
|
|
if cmp tryp.c tryp.out >/dev/null 2>&1; then
|
|
$cat >&4 <<EOM
|
|
fflush(NULL) seems to behave okay with input streams.
|
|
EOM
|
|
fflushNULL="$define"
|
|
else
|
|
$cat >&4 <<EOM
|
|
Ouch, fflush(NULL) clobbers input pipes! We will not use it.
|
|
EOM
|
|
fflushNULL="$undef"
|
|
fi
|
|
fi
|
|
$rm -f core tryp.c tryp.core core.tryp.*
|
|
;;
|
|
'') $cat >&4 <<EOM
|
|
Your fflush(NULL) isn't working (contrary to ANSI C).
|
|
EOM
|
|
fflushNULL="$undef"
|
|
;;
|
|
*) $cat >&4 <<EOM
|
|
Cannot figure out whether your fflush(NULL) works or not.
|
|
I'm assuming it doesn't (contrary to ANSI C).
|
|
EOM
|
|
fflushNULL="$undef"
|
|
;;
|
|
esac
|
|
;;
|
|
$define|true|[yY]*)
|
|
fflushNULL="$define"
|
|
;;
|
|
*)
|
|
fflushNULL="$undef"
|
|
;;
|
|
esac
|
|
: check explicit looping only if NULL did not work, and if the pipe
|
|
: bug does not show up on an explicit flush too
|
|
case "$fflushNULL" in
|
|
"$undef")
|
|
$cat >tryp.c <<EOCP
|
|
#include <stdio.h>
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
char buf[1024];
|
|
int i;
|
|
char *bp = buf;
|
|
while (1) {
|
|
while ((i = getc(stdin)) != -1
|
|
&& (*bp++ = i) != '\n'
|
|
&& bp < &buf[1024])
|
|
/* DO NOTHING */ ;
|
|
*bp = '\0';
|
|
fprintf(stdout, "%s", buf);
|
|
fflush(stdin);
|
|
if (i == -1)
|
|
return 0;
|
|
bp = buf;
|
|
}
|
|
}
|
|
EOCP
|
|
set tryp
|
|
if eval $compile; then
|
|
$rm -f tryp.out
|
|
$cat tryp.c | ./tryp$exe_ext 2>/dev/null > tryp.out
|
|
if cmp tryp.c tryp.out >/dev/null 2>&1; then
|
|
$cat >&4 <<EOM
|
|
Good, at least fflush(stdin) seems to behave okay when stdin is a pipe.
|
|
EOM
|
|
: now check for fflushall behaviour
|
|
case "$fflushall" in
|
|
'') set try -DTRY_FFLUSH_ALL $output
|
|
if eval $compile; then
|
|
$cat >&4 <<EOM
|
|
(Now testing the other method--but note that this also may fail.)
|
|
EOM
|
|
$rm -f try.out
|
|
./try$exe_ext 2>/dev/null
|
|
if $test -s try.out -a "X$?" = X42; then
|
|
fflushall="`$cat try.out`"
|
|
fi
|
|
fi
|
|
$rm -f core try.core core.try.*
|
|
case "$fflushall" in
|
|
x) $cat >&4 <<EOM
|
|
Whew. Flushing explicitly all the stdio streams works.
|
|
EOM
|
|
fflushall="$define"
|
|
;;
|
|
'') $cat >&4 <<EOM
|
|
Sigh. Flushing explicitly all the stdio streams doesn't work.
|
|
EOM
|
|
fflushall="$undef"
|
|
;;
|
|
*) $cat >&4 <<EOM
|
|
Cannot figure out whether flushing stdio streams explicitly works or not.
|
|
I'm assuming it doesn't.
|
|
EOM
|
|
fflushall="$undef"
|
|
;;
|
|
esac
|
|
;;
|
|
"$define"|true|[yY]*)
|
|
fflushall="$define"
|
|
;;
|
|
*)
|
|
fflushall="$undef"
|
|
;;
|
|
esac
|
|
else
|
|
$cat >&4 <<EOM
|
|
All is futile. Even fflush(stdin) clobbers input pipes!
|
|
EOM
|
|
fflushall="$undef"
|
|
fi
|
|
else
|
|
fflushall="$undef"
|
|
fi
|
|
$rm -f core tryp.c tryp.core core.tryp.*
|
|
;;
|
|
*) fflushall="$undef"
|
|
;;
|
|
esac
|
|
|
|
case "$fflushNULL$fflushall" in
|
|
undefundef)
|
|
$cat <<EOM
|
|
OK, I give up. I cannot figure out how to flush pending stdio output.
|
|
We won't be flushing handles at all before fork/exec/popen.
|
|
EOM
|
|
;;
|
|
esac
|
|
$rm -f try.* try$exe_ext
|
|
|
|
: Store the full pathname to the ar program for use in the C program
|
|
: Respect a hint or command line value for full_ar.
|
|
case "$full_ar" in
|
|
'') full_ar=$ar ;;
|
|
esac
|
|
|
|
: Store the full pathname to the sed program for use in the C program
|
|
full_sed=$sed
|
|
|
|
: see what type gids are declared as in the kernel
|
|
echo " "
|
|
echo "Looking for the type for group ids returned by getgid()."
|
|
set gid_t gidtype xxx stdio.h sys/types.h
|
|
eval $typedef
|
|
case "$gidtype" in
|
|
xxx)
|
|
xxx=`./findhdr sys/user.h`
|
|
set `grep 'groups\[NGROUPS\];' "$xxx" 2>/dev/null` unsigned short
|
|
case $1 in
|
|
unsigned) dflt="$1 $2" ;;
|
|
*) dflt="$1" ;;
|
|
esac
|
|
;;
|
|
*) dflt="$gidtype";;
|
|
esac
|
|
case "$gidtype" in
|
|
gid_t) echo "gid_t found." ;;
|
|
*) rp="What is the type for group ids returned by getgid()?"
|
|
. ./myread
|
|
gidtype="$ans"
|
|
;;
|
|
esac
|
|
|
|
echo " "
|
|
case "$gidtype" in
|
|
*_t) zzz="$gidtype" ;;
|
|
*) zzz="gid" ;;
|
|
esac
|
|
echo "Checking the size of $zzz..." >&4
|
|
cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
printf("%d\n", (int)sizeof($gidtype));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
'') gidsize=4
|
|
echo "(I can't execute the test program--guessing $gidsize.)" >&4
|
|
;;
|
|
*) gidsize=$yyy
|
|
echo "Your $zzz is $gidsize bytes long."
|
|
;;
|
|
esac
|
|
else
|
|
gidsize=4
|
|
echo "(I can't compile the test program--guessing $gidsize.)" >&4
|
|
fi
|
|
|
|
|
|
echo " "
|
|
case "$gidtype" in
|
|
*_t) zzz="$gidtype" ;;
|
|
*) zzz="gid" ;;
|
|
esac
|
|
echo "Checking the sign of $zzz..." >&4
|
|
cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
$gidtype foo = -1;
|
|
if (foo < 0)
|
|
printf("-1\n");
|
|
else
|
|
printf("1\n");
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
'') gidsign=1
|
|
echo "(I can't execute the test program--guessing unsigned.)" >&4
|
|
;;
|
|
*) gidsign=$yyy
|
|
case "$gidsign" in
|
|
1) echo "Your $zzz is unsigned." ;;
|
|
-1) echo "Your $zzz is signed." ;;
|
|
esac
|
|
;;
|
|
esac
|
|
else
|
|
gidsign=1
|
|
echo "(I can't compile the test program--guessing unsigned.)" >&4
|
|
fi
|
|
|
|
|
|
echo " "
|
|
|
|
if $test X"$quadtype" != X; then
|
|
|
|
echo "Checking how to print 64-bit integers..." >&4
|
|
|
|
if $test X"$sPRId64" = X -a X"$quadtype" = Xint; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
int q = 12345678901;
|
|
printf("%ld\n", q);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
12345678901)
|
|
sPRId64='"d"'; sPRIi64='"i"'; sPRIu64='"u"';
|
|
sPRIo64='"o"'; sPRIx64='"x"'; sPRIXU64='"X"';
|
|
echo "We will use %d."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRId64" = X -a X"$quadtype" = Xlong; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
long q = 12345678901;
|
|
printf("%ld\n", q);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
12345678901)
|
|
sPRId64='"ld"'; sPRIi64='"li"'; sPRIu64='"lu"';
|
|
sPRIo64='"lo"'; sPRIx64='"lx"'; sPRIXU64='"lX"';
|
|
echo "We will use %ld."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRId64" = X -a X"$i_inttypes" = X"$define" -a X"$quadtype" = Xint64_t; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <inttypes.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
int64_t q = 12345678901;
|
|
printf("%" PRId64 "\n", q);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
12345678901)
|
|
sPRId64=PRId64; sPRIi64=PRIi64; sPRIu64=PRIu64;
|
|
sPRIo64=PRIo64; sPRIx64=PRIx64; sPRIXU64=PRIXU64;
|
|
echo "We will use the C9X style."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRId64" = X -a X"$quadtype" = X"long long"; then
|
|
$cat >try.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
long long q = 12345678901LL; /* AIX cc requires the LL suffix. */
|
|
printf("%lld\n", q);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
12345678901)
|
|
sPRId64='"lld"'; sPRIi64='"lli"'; sPRIu64='"llu"';
|
|
sPRIo64='"llo"'; sPRIx64='"llx"'; sPRIXU64='"llX"';
|
|
echo "We will use the %lld style."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRId64" = X -a X"$quadtype" != X; then
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
$quadtype q = 12345678901;
|
|
printf("%Ld\n", q);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
12345678901)
|
|
sPRId64='"Ld"'; sPRIi64='"Li"'; sPRIu64='"Lu"';
|
|
sPRIo64='"Lo"'; sPRIx64='"Lx"'; sPRIXU64='"LX"';
|
|
echo "We will use %Ld."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRId64" = X -a X"$quadtype" != X; then
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
$quadtype q = 12345678901;
|
|
printf("%qd\n", q);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try$exe_ext`
|
|
case "$yyy" in
|
|
12345678901)
|
|
sPRId64='"qd"'; sPRIi64='"qi"'; sPRIu64='"qu"';
|
|
sPRIo64='"qo"'; sPRIx64='"qx"'; sPRIXU64='"qX"';
|
|
echo "We will use %qd."
|
|
;;
|
|
esac
|
|
fi
|
|
fi
|
|
|
|
if $test X"$sPRId64" = X; then
|
|
echo "Cannot figure out how to print 64-bit integers." >&4
|
|
fi
|
|
|
|
$rm -f try try.*
|
|
|
|
fi
|
|
|
|
case "$sPRId64" in
|
|
'') d_PRId64="$undef"; d_PRIi64="$undef"; d_PRIu64="$undef";
|
|
d_PRIo64="$undef"; d_PRIx64="$undef"; d_PRIXU64="$undef";
|
|
;;
|
|
*) d_PRId64="$define"; d_PRIi64="$define"; d_PRIu64="$define";
|
|
d_PRIo64="$define"; d_PRIx64="$define"; d_PRIXU64="$define";
|
|
;;
|
|
esac
|
|
|
|
|
|
echo " "
|
|
$echo "Checking the format strings to be used for Perl's internal types..." >&4
|
|
|
|
if $test X"$ivsize" = X8; then
|
|
ivdformat="$sPRId64"
|
|
uvuformat="$sPRIu64"
|
|
uvoformat="$sPRIo64"
|
|
uvxformat="$sPRIx64"
|
|
uvXUformat="$sPRIXU64"
|
|
else
|
|
if $test X"$ivsize" = X"$longsize"; then
|
|
ivdformat='"ld"'
|
|
uvuformat='"lu"'
|
|
uvoformat='"lo"'
|
|
uvxformat='"lx"'
|
|
uvXUformat='"lX"'
|
|
else
|
|
if $test X"$ivsize" = X"$intsize"; then
|
|
ivdformat='"d"'
|
|
uvuformat='"u"'
|
|
uvoformat='"o"'
|
|
uvxformat='"x"'
|
|
uvXUformat='"X"'
|
|
else
|
|
: far out
|
|
if $test X"$ivsize" = X"$shortsize"; then
|
|
ivdformat='"hd"'
|
|
uvuformat='"hu"'
|
|
uvoformat='"ho"'
|
|
uvxformat='"hx"'
|
|
uvXUformat='"hX"'
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
|
|
if $test X"$uselongdouble" = X"$define" -a X"$d_longdbl" = X"$define" -a X"$d_PRIgldbl" = X"$define"; then
|
|
nveformat="$sPRIeldbl"
|
|
nvfformat="$sPRIfldbl"
|
|
nvgformat="$sPRIgldbl"
|
|
nvEUformat="$sPRIEUldbl"
|
|
nvFUformat="$sPRIFUldbl"
|
|
nvGUformat="$sPRIGUldbl"
|
|
else
|
|
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
|
|
exit 1
|
|
;;
|
|
esac
|
|
|
|
|
|
echo " "
|
|
$echo "Checking the format string to be used for gids..." >&4
|
|
|
|
case "$gidsign" in
|
|
-1) if $test X"$gidsize" = X"$ivsize"; then
|
|
gidformat="$ivdformat"
|
|
else
|
|
if $test X"$gidsize" = X"$longsize"; then
|
|
gidformat='"ld"'
|
|
else
|
|
if $test X"$gidsize" = X"$intsize"; then
|
|
gidformat='"d"'
|
|
else
|
|
if $test X"$gidsize" = X"$shortsize"; then
|
|
gidformat='"hd"'
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
;;
|
|
*) if $test X"$gidsize" = X"$uvsize"; then
|
|
gidformat="$uvuformat"
|
|
else
|
|
if $test X"$gidsize" = X"$longsize"; then
|
|
gidformat='"lu"'
|
|
else
|
|
if $test X"$gidsize" = X"$intsize"; then
|
|
gidformat='"u"'
|
|
else
|
|
if $test X"$gidsize" = X"$shortsize"; then
|
|
gidformat='"hu"'
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
: see if getgroups exists
|
|
set getgroups d_getgrps
|
|
eval $inlibc
|
|
|
|
: see if setgroups exists
|
|
set setgroups d_setgrps
|
|
eval $inlibc
|
|
|
|
|
|
: Find type of 2nd arg to 'getgroups()' and 'setgroups()'
|
|
echo " "
|
|
case "$d_getgrps$d_setgrps" in
|
|
*define*)
|
|
case "$groupstype" in
|
|
'') dflt="$gidtype" ;;
|
|
*) dflt="$groupstype" ;;
|
|
esac
|
|
$cat <<EOM
|
|
What type of pointer is the second argument to getgroups() and setgroups()?
|
|
Usually this is the same as group ids, $gidtype, but not always.
|
|
|
|
EOM
|
|
rp='What type pointer is the second argument to getgroups() and setgroups()?'
|
|
. ./myread
|
|
groupstype="$ans"
|
|
;;
|
|
*) groupstype="$gidtype";;
|
|
esac
|
|
|
|
echo " "
|
|
echo "Checking if your $make program sets \$(MAKE)..." >&4
|
|
case "$make_set_make" in
|
|
'')
|
|
$sed 's/^X //' > testmake.mak << 'EOF'
|
|
Xall:
|
|
X @echo 'maketemp="$(MAKE)"'
|
|
EOF
|
|
case "`$make -f testmake.mak 2>/dev/null`" in
|
|
*maketemp=*) make_set_make='#' ;;
|
|
*) make_set_make="MAKE=$make" ;;
|
|
esac
|
|
$rm -f testmake.mak
|
|
;;
|
|
esac
|
|
case "$make_set_make" in
|
|
'#') echo "Yup, it does.";;
|
|
*) echo "Nope, it doesn't.";;
|
|
esac
|
|
|
|
: see what type is used for mode_t
|
|
rp="What is the type used for file modes for system calls (e.g. fchmod())?"
|
|
set mode_t modetype int stdio.h sys/types.h
|
|
eval $typedef_ask
|
|
|
|
: define a fucntion to check prototypes
|
|
$cat > protochk <<EOSH
|
|
$startsh
|
|
cc="$cc"
|
|
optimize="$optimize"
|
|
ccflags="$ccflags"
|
|
prototype="$prototype"
|
|
define="$define"
|
|
rm=$rm
|
|
EOSH
|
|
|
|
$cat >> protochk <<'EOSH'
|
|
|
|
$rm -f try.c
|
|
foo="$1"
|
|
shift
|
|
while test $# -ge 2; do
|
|
case "$1" in
|
|
$define) echo "#include <$2>" >> try.c ;;
|
|
literal) echo "$2" >> try.c ;;
|
|
esac
|
|
shift 2
|
|
done
|
|
test "$prototype" = "$define" && echo '#define CAN_PROTOTYPE' >> try.c
|
|
cat >> try.c <<'EOCP'
|
|
#ifdef CAN_PROTOTYPE
|
|
#define _(args) args
|
|
#else
|
|
#define _(args) ()
|
|
#endif
|
|
EOCP
|
|
echo "$foo" >> try.c
|
|
echo 'int no_real_function_has_this_name _((void)) { return 0; }' >> try.c
|
|
$cc $optimize $ccflags -c try.c > /dev/null 2>&1
|
|
status=$?
|
|
$rm -f try.[co]
|
|
exit $status
|
|
EOSH
|
|
chmod +x protochk
|
|
$eunicefix protochk
|
|
|
|
: see what type is used for size_t
|
|
rp="What is the type used for the length parameter for string functions?"
|
|
set size_t sizetype 'unsigned int' stdio.h sys/types.h
|
|
eval $typedef_ask
|
|
|
|
: check for type of arguments to gethostbyaddr.
|
|
if test "X$netdb_host_type" = X -o "X$netdb_hlen_type" = X; then
|
|
case "$d_gethbyaddr" in
|
|
$define)
|
|
$cat <<EOM
|
|
|
|
Checking to see what type of arguments are accepted by gethostbyaddr().
|
|
EOM
|
|
hdrs="$define sys/types.h
|
|
$d_socket sys/socket.h
|
|
$i_niin netinet/in.h
|
|
$i_netdb netdb.h
|
|
$i_unistd unistd.h"
|
|
: The first arg can 'char *' or 'void *'
|
|
: The second arg is some of integral type
|
|
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);"
|
|
if ./protochk "$try" $hdrs; then
|
|
echo "Your system accepts $xxx for the first arg."
|
|
echo "...and $yyy for the second arg."
|
|
netdb_host_type="$xxx"
|
|
netdb_hlen_type="$yyy"
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
done
|
|
: In case none of those worked, prompt the user.
|
|
case "$netdb_host_type" in
|
|
'') rp='What is the type for the 1st argument to gethostbyaddr?'
|
|
dflt='char *'
|
|
. ./myread
|
|
netdb_host_type=$ans
|
|
rp='What is the type for the 2nd argument to gethostbyaddr?'
|
|
dflt="$sizetype"
|
|
. ./myread
|
|
netdb_hlen_type=$ans
|
|
;;
|
|
esac
|
|
;;
|
|
*) : no gethostbyaddr, so pick harmless defaults
|
|
netdb_host_type='char *'
|
|
netdb_hlen_type="$sizetype"
|
|
;;
|
|
esac
|
|
# Remove the "const" if needed. -- but then we'll have a
|
|
# prototype clash!
|
|
# netdb_host_type=`echo "$netdb_host_type" | sed 's/^const //'`
|
|
fi
|
|
|
|
: check for type of argument to gethostbyname.
|
|
if test "X$netdb_name_type" = X ; then
|
|
case "$d_gethbyname" in
|
|
$define)
|
|
$cat <<EOM
|
|
|
|
Checking to see what type of argument is accepted by gethostbyname().
|
|
EOM
|
|
hdrs="$define sys/types.h
|
|
$d_socket sys/socket.h
|
|
$i_niin netinet/in.h
|
|
$i_netdb netdb.h
|
|
$i_unistd unistd.h"
|
|
for xxx in "const char *" "char *"; do
|
|
case "$netdb_name_type" in
|
|
'') try="extern struct hostent *gethostbyname($xxx);"
|
|
if ./protochk "$try" $hdrs; then
|
|
echo "Your system accepts $xxx."
|
|
netdb_name_type="$xxx"
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
: In case none of those worked, prompt the user.
|
|
case "$netdb_name_type" in
|
|
'') rp='What is the type for the 1st argument to gethostbyname?'
|
|
dflt='char *'
|
|
. ./myread
|
|
netdb_name_type=$ans
|
|
;;
|
|
esac
|
|
;;
|
|
*) : no gethostbyname, so pick harmless default
|
|
netdb_name_type='char *'
|
|
;;
|
|
esac
|
|
fi
|
|
|
|
: check for type of 1st argument to getnetbyaddr.
|
|
if test "X$netdb_net_type" = X ; then
|
|
case "$d_getnbyaddr" in
|
|
$define)
|
|
$cat <<EOM
|
|
|
|
Checking to see what type of 1st argument is accepted by getnetbyaddr().
|
|
EOM
|
|
hdrs="$define sys/types.h
|
|
$d_socket sys/socket.h
|
|
$i_niin netinet/in.h
|
|
$i_netdb netdb.h
|
|
$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);"
|
|
if ./protochk "$try" $hdrs; then
|
|
echo "Your system accepts $xxx."
|
|
netdb_net_type="$xxx"
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
: In case none of those worked, prompt the user.
|
|
case "$netdb_net_type" in
|
|
'') rp='What is the type for the 1st argument to getnetbyaddr?'
|
|
dflt='long'
|
|
. ./myread
|
|
netdb_net_type=$ans
|
|
;;
|
|
esac
|
|
;;
|
|
*) : no getnetbyaddr, so pick harmless default
|
|
netdb_net_type='long'
|
|
;;
|
|
esac
|
|
fi
|
|
: locate the preferred pager for this system
|
|
case "$pager" in
|
|
'')
|
|
dflt=''
|
|
case "$pg" in
|
|
/*) dflt=$pg;;
|
|
[a-zA-Z]:/*) dflt=$pg;;
|
|
esac
|
|
case "$more" in
|
|
/*) dflt=$more;;
|
|
[a-zA-Z]:/*) dflt=$more;;
|
|
esac
|
|
case "$less" in
|
|
/*) dflt=$less;;
|
|
[a-zA-Z]:/*) dflt=$less;;
|
|
esac
|
|
case "$dflt" in
|
|
'') dflt=/usr/ucb/more;;
|
|
esac
|
|
;;
|
|
*) dflt="$pager";;
|
|
esac
|
|
echo " "
|
|
fn=f/
|
|
rp='What pager is used on your system?'
|
|
. ./getfile
|
|
pager="$ans"
|
|
|
|
: see what type pids are declared as in the kernel
|
|
rp="What is the type of process ids on this system?"
|
|
set pid_t pidtype int stdio.h sys/types.h
|
|
eval $typedef_ask
|
|
|
|
: Find earliest binary compatible site_perl subdirectory perl can use.
|
|
case "$bincompat5005" in
|
|
"$define") xs_apiversion='5.005' ;;
|
|
*) xs_apiversion=$version ;; # The current site_perl version.
|
|
esac
|
|
: Find earliest pure perl site_perl subdirectory perl can use.
|
|
: The versioned directories started at 5.005.
|
|
pm_apiversion='5.005'
|
|
|
|
: check for length of pointer
|
|
echo " "
|
|
case "$ptrsize" in
|
|
'')
|
|
echo "Checking to see how big your pointers are..." >&4
|
|
if test "$voidflags" -gt 7; then
|
|
echo '#define VOID_PTR char *' > try.c
|
|
else
|
|
echo '#define VOID_PTR void *' > try.c
|
|
fi
|
|
$cat >>try.c <<'EOCP'
|
|
#include <stdio.h>
|
|
int main()
|
|
{
|
|
printf("%d\n", (int)sizeof(VOID_PTR));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
ptrsize=`./try`
|
|
echo "Your pointers are $ptrsize bytes long."
|
|
else
|
|
dflt='4'
|
|
echo "(I can't seem to compile the test program. Guessing...)" >&4
|
|
rp="What is the size of a pointer (in bytes)?"
|
|
. ./myread
|
|
ptrsize="$ans"
|
|
fi
|
|
;;
|
|
esac
|
|
$rm -f try.c try
|
|
|
|
: see if ar generates random libraries by itself
|
|
echo " "
|
|
echo "Checking how to generate random libraries on your machine..." >&4
|
|
echo 'int bar1() { return bar2(); }' > bar1.c
|
|
echo 'int bar2() { return 2; }' > bar2.c
|
|
$cat > foo.c <<'EOP'
|
|
int main() { printf("%d\n", bar1()); exit(0); }
|
|
EOP
|
|
$cc $ccflags -c bar1.c >/dev/null 2>&1
|
|
$cc $ccflags -c bar2.c >/dev/null 2>&1
|
|
$cc $ccflags -c foo.c >/dev/null 2>&1
|
|
$ar rc bar$_a bar2$_o bar1$_o >/dev/null 2>&1
|
|
if $cc -o foobar $ccflags $ldflags foo$_o bar$_a $libs > /dev/null 2>&1 &&
|
|
./foobar >/dev/null 2>&1; then
|
|
echo "$ar appears to generate random libraries itself."
|
|
orderlib=false
|
|
ranlib=":"
|
|
elif $ar ts bar$_a >/dev/null 2>&1 &&
|
|
$cc -o foobar $ccflags $ldflags foo$_o bar$_a $libs > /dev/null 2>&1 &&
|
|
./foobar >/dev/null 2>&1; then
|
|
echo "a table of contents needs to be added with '$ar ts'."
|
|
orderlib=false
|
|
ranlib="$ar ts"
|
|
else
|
|
case "$ranlib" in
|
|
:) ranlib='';;
|
|
'')
|
|
ranlib=`./loc ranlib X /usr/bin /bin /usr/local/bin`
|
|
$test -f $ranlib || ranlib=''
|
|
;;
|
|
esac
|
|
if $test -n "$ranlib"; then
|
|
echo "your system has '$ranlib'; we'll use that."
|
|
orderlib=false
|
|
else
|
|
echo "your system doesn't seem to support random libraries"
|
|
echo "so we'll use lorder and tsort to order the libraries."
|
|
orderlib=true
|
|
ranlib=":"
|
|
fi
|
|
fi
|
|
$rm -f foo* bar*
|
|
|
|
: check for type of arguments to select.
|
|
case "$selecttype" in
|
|
'') case "$d_select" in
|
|
$define)
|
|
echo " "
|
|
$cat <<EOM
|
|
Checking to see what type of arguments are accepted by select().
|
|
EOM
|
|
hdrs="$define sys/types.h
|
|
$i_systime sys/time.h
|
|
$i_sysselct sys/select.h
|
|
$d_socket sys/socket.h"
|
|
: The first arg can be int, unsigned, or size_t
|
|
: The last arg may or may not be 'const'
|
|
val=''
|
|
: void pointer has been seen but using that
|
|
: breaks the selectminbits test
|
|
for xxx in 'fd_set *' 'int *'; do
|
|
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));"
|
|
if ./protochk "$try" $hdrs; then
|
|
echo "Your system accepts $xxx."
|
|
val="$xxx"
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
done
|
|
done
|
|
case "$val" in
|
|
'') rp='What is the type for the 2nd, 3rd, and 4th arguments to select?'
|
|
case "$d_fd_set" in
|
|
$define) dflt="fd_set *" ;;
|
|
*) dflt="int *" ;;
|
|
esac
|
|
. ./myread
|
|
val=$ans
|
|
;;
|
|
esac
|
|
selecttype="$val"
|
|
;;
|
|
*) : no select, so pick a harmless default
|
|
selecttype='int *'
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: check for the select 'width'
|
|
case "$selectminbits" in
|
|
'') case "$d_select" in
|
|
$define)
|
|
$cat <<EOM
|
|
|
|
Checking to see on how many bits at a time your select() operates...
|
|
EOM
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#$i_time I_TIME
|
|
#$i_systime I_SYS_TIME
|
|
#$i_systimek I_SYS_TIME_KERNEL
|
|
#ifdef I_TIME
|
|
# include <time.h>
|
|
#endif
|
|
#ifdef I_SYS_TIME
|
|
# ifdef I_SYS_TIME_KERNEL
|
|
# define KERNEL
|
|
# endif
|
|
# include <sys/time.h>
|
|
# ifdef I_SYS_TIME_KERNEL
|
|
# undef KERNEL
|
|
# endif
|
|
#endif
|
|
#$i_sysselct I_SYS_SELECT
|
|
#ifdef I_SYS_SELECT
|
|
#include <sys/select.h>
|
|
#endif
|
|
#$d_socket HAS_SOCKET
|
|
#ifdef HAS_SOCKET
|
|
# include <sys/socket.h> /* Might include <sys/bsdtypes.h> */
|
|
#endif
|
|
#include <stdio.h>
|
|
$selecttype b;
|
|
#define S sizeof(*(b))
|
|
#define MINBITS 64
|
|
#define NBYTES (S * 8 > MINBITS ? S : MINBITS/8)
|
|
#define NBITS (NBYTES * 8)
|
|
int main() {
|
|
char s[NBYTES];
|
|
struct timeval t;
|
|
int i;
|
|
FILE* fp;
|
|
int fd;
|
|
|
|
fclose(stdin);
|
|
fp = fopen("try.c", "r");
|
|
if (fp == 0)
|
|
exit(1);
|
|
fd = fileno(fp);
|
|
if (fd < 0)
|
|
exit(2);
|
|
b = ($selecttype)s;
|
|
for (i = 0; i < NBITS; i++)
|
|
FD_SET(i, b);
|
|
t.tv_sec = 0;
|
|
t.tv_usec = 0;
|
|
select(fd + 1, b, 0, 0, &t);
|
|
for (i = NBITS - 1; i > fd && FD_ISSET(i, b); i--);
|
|
printf("%d\n", i + 1);
|
|
return 0;
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
selectminbits=`./try`
|
|
case "$selectminbits" in
|
|
'') cat >&4 <<EOM
|
|
Cannot figure out on how many bits at a time your select() operates.
|
|
I'll play safe and guess it is 32 bits.
|
|
EOM
|
|
selectminbits=32
|
|
bits="32 bits"
|
|
;;
|
|
1) bits="1 bit" ;;
|
|
*) bits="$selectminbits bits" ;;
|
|
esac
|
|
echo "Your select() operates on $bits at a time." >&4
|
|
else
|
|
rp='What is the minimum number of bits your select() operates on?'
|
|
case "$byteorder" in
|
|
1234|12345678) dflt=32 ;;
|
|
*) dflt=1 ;;
|
|
esac
|
|
. ./myread
|
|
val=$ans
|
|
selectminbits="$val"
|
|
fi
|
|
$rm -f try.* try
|
|
;;
|
|
*) : no select, so pick a harmless default
|
|
selectminbits='32'
|
|
;;
|
|
esac
|
|
;;
|
|
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'
|
|
else
|
|
xxx=`echo '#include <signal.h>' |
|
|
$cppstdin $cppminus $cppflags 2>/dev/null |
|
|
$grep '^[ ]*#.*include' |
|
|
$awk "{print \\$$fieldn}" | $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
|
|
xxx=`awk '
|
|
$1 ~ /^#define$/ && $2 ~ /^SIG[A-Z0-9]*$/ && $2 !~ /SIGARRAYSIZE/ && $2 !~ /SIGSTKSIZE/ && $2 !~ /SIGSTKSZ/ && $3 !~ /void/ {
|
|
print substr($2, 4, 20)
|
|
}
|
|
$1 == "#" && $2 ~ /^define$/ && $3 ~ /^SIG[A-Z0-9]*$/ && $3 !~ /SIGARRAYSIZE/ && $4 !~ /void/ {
|
|
print substr($3, 4, 20)
|
|
}' $xxxfiles`
|
|
: Append some common names just in case the awk scan failed.
|
|
xxx="$xxx ABRT ALRM BUS CANCEL CHLD CLD CONT DIL EMT FPE"
|
|
xxx="$xxx FREEZE HUP ILL INT IO IOT KILL LOST LWP PHONE"
|
|
xxx="$xxx PIPE POLL PROF PWR QUIT RTMAX RTMIN SEGV STKFLT STOP"
|
|
xxx="$xxx SYS TERM THAW TRAP TSTP TTIN TTOU URG USR1 USR2"
|
|
xxx="$xxx USR3 USR4 VTALRM WAITING WINCH WIND WINDOW XCPU XFSZ"
|
|
|
|
: generate a few handy files for later
|
|
$cat > signal.c <<'EOCP'
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
|
|
/* Strange style to avoid deeply-nested #if/#else/#endif */
|
|
#ifndef NSIG
|
|
# ifdef _NSIG
|
|
# define NSIG (_NSIG)
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
# ifdef SIGMAX
|
|
# define NSIG (SIGMAX+1)
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
# ifdef SIG_MAX
|
|
# define NSIG (SIG_MAX+1)
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
# ifdef MAXSIG
|
|
# define NSIG (MAXSIG+1)
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
# ifdef MAX_SIG
|
|
# define NSIG (MAX_SIG+1)
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
# ifdef SIGARRAYSIZE
|
|
# define NSIG (SIGARRAYSIZE+1) /* Not sure of the +1 */
|
|
# endif
|
|
#endif
|
|
|
|
#ifndef NSIG
|
|
# ifdef _sys_nsig
|
|
# define NSIG (_sys_nsig) /* Solaris 2.5 */
|
|
# endif
|
|
#endif
|
|
|
|
/* Default to some arbitrary number that's big enough to get most
|
|
of the common signals.
|
|
*/
|
|
#ifndef NSIG
|
|
# define NSIG 50
|
|
#endif
|
|
|
|
printf("NSIG %d\n", NSIG);
|
|
|
|
#ifndef JUST_NSIG
|
|
|
|
EOCP
|
|
|
|
echo $xxx | $tr ' ' $trnl | $sort | $uniq | $awk '
|
|
{
|
|
printf "#ifdef SIG"; printf $1; printf "\n"
|
|
printf "printf(\""; printf $1; printf " %%d\\n\",SIG";
|
|
printf $1; printf ");\n"
|
|
printf "#endif\n"
|
|
}
|
|
END {
|
|
printf "#endif /* JUST_NSIG */\n";
|
|
printf "exit(0);\n}\n";
|
|
}
|
|
' >>signal.c
|
|
$cat >signal.awk <<'EOP'
|
|
BEGIN { ndups = 0 }
|
|
$1 ~ /^NSIG$/ { nsig = $2 }
|
|
($1 !~ /^NSIG$/) && (NF == 2) {
|
|
if ($2 > maxsig) { maxsig = $2 }
|
|
if (sig_name[$2]) {
|
|
dup_name[ndups] = $1
|
|
dup_num[ndups] = $2
|
|
ndups++
|
|
}
|
|
else {
|
|
sig_name[$2] = $1
|
|
sig_num[$2] = $2
|
|
}
|
|
}
|
|
END {
|
|
if (nsig == 0) {
|
|
nsig = maxsig + 1
|
|
}
|
|
printf("NSIG %d\n", nsig);
|
|
for (n = 1; n < nsig; n++) {
|
|
if (sig_name[n]) {
|
|
printf("%s %d\n", sig_name[n], sig_num[n])
|
|
}
|
|
else {
|
|
printf("NUM%d %d\n", n, n)
|
|
}
|
|
}
|
|
for (n = 0; n < ndups; n++) {
|
|
printf("%s %d\n", dup_name[n], dup_num[n])
|
|
}
|
|
}
|
|
EOP
|
|
$cat >signal_cmd <<EOS
|
|
$startsh
|
|
if $test -s signal.lst; then
|
|
echo "Using your existing signal.lst file"
|
|
exit 0
|
|
fi
|
|
xxx="$xxx"
|
|
EOS
|
|
$cat >>signal_cmd <<'EOS'
|
|
|
|
set signal
|
|
if eval $compile_ok; then
|
|
./signal$_exe | $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
|
|
set signal -DJUST_NSIG
|
|
if eval $compile_ok; then
|
|
./signal$_exe > signal.nsg
|
|
$cat signal.nsg
|
|
else
|
|
echo "I can't seem to figure out how many signals you have." >&4
|
|
echo "Guessing 50." >&4
|
|
echo 'NSIG 50' > signal.nsg
|
|
fi
|
|
: Now look at all the signal names, one at a time.
|
|
for xx in `echo $xxx | $tr ' ' $trnl | $sort | $uniq`; do
|
|
$cat > signal.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <signal.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
printf("$xx %d\n", SIG${xx});
|
|
return 0;
|
|
}
|
|
EOCP
|
|
set signal
|
|
if eval $compile; then
|
|
echo "SIG${xx} found."
|
|
./signal$_exe >> signal.ls1
|
|
else
|
|
echo "SIG${xx} NOT found."
|
|
fi
|
|
done
|
|
if $test -s signal.ls1; then
|
|
$cat signal.nsg signal.ls1 |
|
|
$sort -n +1 | $uniq | $awk -f signal.awk >signal.lst
|
|
fi
|
|
|
|
fi
|
|
if $test -s signal.lst; then
|
|
:
|
|
else
|
|
echo "(AAK! I can't compile the test programs -- Guessing)" >&4
|
|
echo 'kill -l' >signal
|
|
set X `csh -f <signal`
|
|
$rm -f signal
|
|
shift
|
|
case $# in
|
|
0) set HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM;;
|
|
esac
|
|
echo $@ | $tr ' ' $trnl | \
|
|
$awk '{ printf "%s %d\n", $1, ++s; }
|
|
END { printf "NSIG %d\n", ++s }' >signal.lst
|
|
fi
|
|
$rm -f signal.c signal$_exe signal$_o signal.nsg signal.ls1
|
|
EOS
|
|
chmod a+x signal_cmd
|
|
$eunicefix signal_cmd
|
|
|
|
: generate list of signal names
|
|
echo " "
|
|
case "$sig_name_init" in
|
|
'') doinit=yes ;;
|
|
*) case "$sig_num_init" in
|
|
''|*,*) doinit=yes ;;
|
|
esac ;;
|
|
esac
|
|
case "$doinit" in
|
|
yes)
|
|
echo "Generating a list of signal names and numbers..." >&4
|
|
. ./signal_cmd
|
|
sig_count=`$awk '/^NSIG/ { printf "%d", $2 }' signal.lst`
|
|
sig_name=`$awk 'BEGIN { printf "ZERO " }
|
|
!/^NSIG/ { printf "%s ", $1 }' signal.lst`
|
|
sig_num=`$awk 'BEGIN { printf "0 " }
|
|
!/^NSIG/ { printf "%d ", $2 }' signal.lst`
|
|
sig_name_init=`$awk 'BEGIN { printf "\"ZERO\", " }
|
|
!/^NSIG/ { printf "\"%s\", ", $1 }
|
|
END { printf "0\n" }' signal.lst`
|
|
sig_num_init=`$awk 'BEGIN { printf "0, " }
|
|
!/^NSIG/ { printf "%d, ", $2}
|
|
END { printf "0\n"}' signal.lst`
|
|
;;
|
|
esac
|
|
echo "The following $sig_count signals are available:"
|
|
echo " "
|
|
echo $sig_name | $awk \
|
|
'BEGIN { linelen = 0 }
|
|
{
|
|
for (i = 1; i <= NF; i++) {
|
|
name = "SIG" $i " "
|
|
linelen = linelen + length(name)
|
|
if (linelen > 70) {
|
|
printf "\n"
|
|
linelen = length(name)
|
|
}
|
|
printf "%s", name
|
|
}
|
|
printf "\n"
|
|
}'
|
|
$rm -f signal signal.c signal.awk signal.lst signal_cmd
|
|
|
|
echo " "
|
|
case "$sizetype" in
|
|
*_t) zzz="$sizetype" ;;
|
|
*) zzz="filesize" ;;
|
|
esac
|
|
echo "Checking the size of $zzz..." >&4
|
|
cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
printf("%d\n", (int)sizeof($sizetype));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
'') sizesize=4
|
|
echo "(I can't execute the test program--guessing $sizesize.)" >&4
|
|
;;
|
|
*) sizesize=$yyy
|
|
echo "Your $zzz size is $sizesize bytes."
|
|
;;
|
|
esac
|
|
else
|
|
sizesize=4
|
|
echo "(I can't compile the test program--guessing $sizesize.)" >&4
|
|
fi
|
|
|
|
|
|
: check for socklen_t
|
|
echo " "
|
|
echo "Checking to see if you have socklen_t..." >&4
|
|
$cat >try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#$d_socket HAS_SOCKET
|
|
#ifdef HAS_SOCKET
|
|
#include <sys/socket.h>
|
|
#endif
|
|
int main() { socklen_t x = 16; }
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
val="$define"
|
|
echo "You have socklen_t."
|
|
else
|
|
val="$undef"
|
|
echo "You do not have socklen_t."
|
|
case "$sizetype" in
|
|
size_t) echo "(You do have size_t, that might work. Some people are happy with just an int.)" ;;
|
|
esac
|
|
fi
|
|
$rm -f try try.*
|
|
set d_socklen_t
|
|
eval $setvar
|
|
|
|
: see if this is a socks.h system
|
|
set socks.h i_socks
|
|
eval $inhdr
|
|
|
|
: check for type of the size argument to socket calls
|
|
case "$d_socket" in
|
|
"$define")
|
|
$cat <<EOM
|
|
|
|
Checking to see what type is the last argument of accept().
|
|
EOM
|
|
yyy=''
|
|
case "$d_socklen_t" in
|
|
"$define") yyy="$yyy socklen_t"
|
|
esac
|
|
yyy="$yyy $sizetype int long unsigned"
|
|
for xxx in $yyy; do
|
|
case "$socksizetype" in
|
|
'') try="extern 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
|
|
echo "Your system accepts '$xxx *' for the last argument of accept()."
|
|
socksizetype="$xxx"
|
|
fi
|
|
;;
|
|
*) if ./protochk "$try" $i_systypes sys/types.h $d_socket sys/socket.h; then
|
|
echo "Your system accepts '$xxx *' for the last argument of accept()."
|
|
socksizetype="$xxx"
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
done
|
|
: In case none of those worked, prompt the user.
|
|
case "$socksizetype" in
|
|
'') rp='What is the type for socket address structure sizes?'
|
|
dflt='int'
|
|
. ./myread
|
|
socksizetype=$ans
|
|
;;
|
|
esac
|
|
;;
|
|
*) : no sockets, so pick relatively harmless default
|
|
socksizetype='int'
|
|
;;
|
|
esac
|
|
|
|
: see what type is used for signed size_t
|
|
set ssize_t ssizetype int stdio.h sys/types.h
|
|
eval $typedef
|
|
dflt="$ssizetype"
|
|
$cat > ssize.c <<EOM
|
|
#include <stdio.h>
|
|
#include <sys/types.h>
|
|
#define Size_t $sizetype
|
|
#define SSize_t $dflt
|
|
int main()
|
|
{
|
|
if (sizeof(Size_t) == sizeof(SSize_t))
|
|
printf("$dflt\n");
|
|
else if (sizeof(Size_t) == sizeof(int))
|
|
printf("int\n");
|
|
else
|
|
printf("long\n");
|
|
exit(0);
|
|
}
|
|
EOM
|
|
echo " "
|
|
set ssize
|
|
if eval $compile_ok && ./ssize > /dev/null; then
|
|
ssizetype=`./ssize`
|
|
echo "I'll be using $ssizetype for functions returning a byte count." >&4
|
|
else
|
|
$cat >&4 <<EOM
|
|
Help! I can't compile and run the ssize_t test program: please enlighten me!
|
|
(This is probably a misconfiguration in your system or libraries, and
|
|
you really ought to fix it. Still, I'll try anyway.)
|
|
|
|
I need a type that is the same size as $sizetype, but is guaranteed to
|
|
be signed. Common values are ssize_t, int and long.
|
|
|
|
EOM
|
|
rp="What signed type is the same size as $sizetype?"
|
|
. ./myread
|
|
ssizetype="$ans"
|
|
fi
|
|
$rm -f ssize ssize.*
|
|
|
|
: see what type of char stdio uses.
|
|
echo " "
|
|
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"
|
|
else
|
|
echo "Your stdio uses signed chars." >&4
|
|
stdchar="char"
|
|
fi
|
|
$rm -f stdioh
|
|
|
|
: see if time exists
|
|
echo " "
|
|
if test "X$d_time" = X -o X"$timetype" = X; then
|
|
if set time val -f d_time; eval $csym; $val; then
|
|
echo 'time() found.' >&4
|
|
val="$define"
|
|
rp="What is the type returned by time() on this system?"
|
|
set time_t timetype long stdio.h sys/types.h
|
|
eval $typedef_ask
|
|
else
|
|
echo 'time() not found, hope that will do.' >&4
|
|
val="$undef"
|
|
timetype='int';
|
|
fi
|
|
set d_time
|
|
eval $setvar
|
|
fi
|
|
|
|
: see what type uids are declared as in the kernel
|
|
echo " "
|
|
echo "Looking for the type for user ids returned by getuid()."
|
|
set uid_t uidtype xxx stdio.h sys/types.h
|
|
eval $typedef
|
|
case "$uidtype" in
|
|
xxx)
|
|
xxx=`./findhdr sys/user.h`
|
|
set `grep '_ruid;' "$xxx" 2>/dev/null` unsigned short
|
|
case $1 in
|
|
unsigned) dflt="$1 $2" ;;
|
|
*) dflt="$1" ;;
|
|
esac
|
|
;;
|
|
*) dflt="$uidtype";;
|
|
esac
|
|
case "$uidtype" in
|
|
uid_t) echo "uid_t found." ;;
|
|
*) rp="What is the type for user ids returned by getuid()?"
|
|
. ./myread
|
|
uidtype="$ans"
|
|
;;
|
|
esac
|
|
|
|
echo " "
|
|
case "$uidtype" in
|
|
*_t) zzz="$uidtype" ;;
|
|
*) zzz="uid" ;;
|
|
esac
|
|
echo "Checking the size of $zzz..." >&4
|
|
cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
printf("%d\n", (int)sizeof($uidtype));
|
|
exit(0);
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile_ok; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
'') uidsize=4
|
|
echo "(I can't execute the test program--guessing $uidsize.)" >&4
|
|
;;
|
|
*) uidsize=$yyy
|
|
echo "Your $zzz is $uidsize bytes long."
|
|
;;
|
|
esac
|
|
else
|
|
uidsize=4
|
|
echo "(I can't compile the test program--guessing $uidsize.)" >&4
|
|
fi
|
|
|
|
echo " "
|
|
case "$uidtype" in
|
|
*_t) zzz="$uidtype" ;;
|
|
*) zzz="uid" ;;
|
|
esac
|
|
echo "Checking the sign of $zzz..." >&4
|
|
cat > try.c <<EOCP
|
|
#include <sys/types.h>
|
|
#include <stdio.h>
|
|
int main() {
|
|
$uidtype foo = -1;
|
|
if (foo < 0)
|
|
printf("-1\n");
|
|
else
|
|
printf("1\n");
|
|
}
|
|
EOCP
|
|
set try
|
|
if eval $compile; then
|
|
yyy=`./try`
|
|
case "$yyy" in
|
|
'') uidsign=1
|
|
echo "(I can't execute the test program--guessing unsigned.)" >&4
|
|
;;
|
|
*) uidsign=$yyy
|
|
case "$uidsign" in
|
|
1) echo "Your $zzz is unsigned." ;;
|
|
-1) echo "Your $zzz is signed." ;;
|
|
esac
|
|
;;
|
|
esac
|
|
else
|
|
uidsign=1
|
|
echo "(I can't compile the test program--guessing unsigned.)" >&4
|
|
fi
|
|
|
|
|
|
|
|
echo " "
|
|
$echo "Checking the format string to be used for uids..." >&4
|
|
|
|
case "$uidsign" in
|
|
-1) if $test X"$uidsize" = X"$ivsize"; then
|
|
uidformat="$ivdformat"
|
|
else
|
|
if $test X"$uidsize" = X"$longsize"; then
|
|
uidformat='"ld"'
|
|
else
|
|
if $test X"$uidsize" = X"$intsize"; then
|
|
uidformat='"d"'
|
|
else
|
|
if $test X"$uidsize" = X"$shortsize"; then
|
|
uidformat='"hd"'
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
;;
|
|
*) if $test X"$uidsize" = X"$uvsize"; then
|
|
uidformat="$uvuformat"
|
|
else
|
|
if $test X"$uidsize" = X"$longsize"; then
|
|
uidformat='"lu"'
|
|
else
|
|
if $test X"$uidsize" = X"$intsize"; then
|
|
uidformat='"u"'
|
|
else
|
|
if $test X"$uidsize" = X"$shortsize"; then
|
|
uidformat='"hu"'
|
|
fi
|
|
fi
|
|
fi
|
|
fi
|
|
;;
|
|
esac
|
|
|
|
: determine compiler compiler
|
|
case "$yacc" in
|
|
'')
|
|
dflt=yacc;;
|
|
*)
|
|
dflt="$yacc";;
|
|
esac
|
|
echo " "
|
|
comp='yacc'
|
|
if $test -f "$byacc"; then
|
|
dflt="$byacc"
|
|
comp="byacc or $comp"
|
|
fi
|
|
if $test -f "$bison"; then
|
|
comp="$comp or bison -y"
|
|
fi
|
|
rp="Which compiler compiler ($comp) shall I use?"
|
|
. ./myread
|
|
yacc="$ans"
|
|
case "$yacc" in
|
|
*bis*)
|
|
case "$yacc" in
|
|
*-y*) ;;
|
|
*)
|
|
yacc="$yacc -y"
|
|
echo "(Adding -y option to bison to get yacc-compatible behaviour.)"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: see if dbm.h is available
|
|
: see if dbmclose exists
|
|
set dbmclose d_dbmclose
|
|
eval $inlibc
|
|
|
|
case "$d_dbmclose" in
|
|
$define)
|
|
set dbm.h i_dbm
|
|
eval $inhdr
|
|
case "$i_dbm" in
|
|
$define)
|
|
val="$undef"
|
|
set i_rpcsvcdbm
|
|
eval $setvar
|
|
;;
|
|
*) set rpcsvc/dbm.h i_rpcsvcdbm
|
|
eval $inhdr
|
|
;;
|
|
esac
|
|
;;
|
|
*) echo "We won't be including <dbm.h>"
|
|
val="$undef"
|
|
set i_dbm
|
|
eval $setvar
|
|
val="$undef"
|
|
set i_rpcsvcdbm
|
|
eval $setvar
|
|
;;
|
|
esac
|
|
|
|
: see if this is a sys/file.h system
|
|
val=''
|
|
set sys/file.h val
|
|
eval $inhdr
|
|
|
|
: do we need to include sys/file.h ?
|
|
case "$val" in
|
|
"$define")
|
|
echo " "
|
|
if $h_sysfile; then
|
|
val="$define"
|
|
echo "We'll be including <sys/file.h>." >&4
|
|
else
|
|
val="$undef"
|
|
echo "We won't be including <sys/file.h>." >&4
|
|
fi
|
|
;;
|
|
*)
|
|
h_sysfile=false
|
|
;;
|
|
esac
|
|
set i_sysfile
|
|
eval $setvar
|
|
|
|
: see if fcntl.h is there
|
|
val=''
|
|
set fcntl.h val
|
|
eval $inhdr
|
|
|
|
: see if we can include fcntl.h
|
|
case "$val" in
|
|
"$define")
|
|
echo " "
|
|
if $h_fcntl; then
|
|
val="$define"
|
|
echo "We'll be including <fcntl.h>." >&4
|
|
else
|
|
val="$undef"
|
|
if $h_sysfile; then
|
|
echo "We don't need to include <fcntl.h> if we include <sys/file.h>." >&4
|
|
else
|
|
echo "We won't be including <fcntl.h>." >&4
|
|
fi
|
|
fi
|
|
;;
|
|
*)
|
|
h_fcntl=false
|
|
val="$undef"
|
|
;;
|
|
esac
|
|
set i_fcntl
|
|
eval $setvar
|
|
|
|
: see if this is a iconv.h system
|
|
set iconv.h i_iconv
|
|
eval $inhdr
|
|
|
|
: see if this is a ieeefp.h system
|
|
set ieeefp.h i_ieeefp
|
|
eval $inhdr
|
|
|
|
: see if this is a libutil.h system
|
|
set libutil.h i_libutil
|
|
eval $inhdr
|
|
|
|
: see if locale.h is available
|
|
set locale.h i_locale
|
|
eval $inhdr
|
|
|
|
: see if mach cthreads are available
|
|
if test "X$usethreads" = "X$define"; then
|
|
set mach/cthreads.h i_machcthr
|
|
eval $inhdr
|
|
else
|
|
i_machcthr="$undef"
|
|
fi
|
|
|
|
|
|
|
|
: see if this is a math.h system
|
|
set math.h i_math
|
|
eval $inhdr
|
|
|
|
: see if this is a mntent.h system
|
|
set mntent.h i_mntent
|
|
eval $inhdr
|
|
|
|
: see if ndbm.h is available
|
|
set ndbm.h t_ndbm
|
|
eval $inhdr
|
|
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
|
|
eval $inhdr
|
|
|
|
: Unfortunately, it causes problems on some systems. Arrgh.
|
|
case "$val" in
|
|
$define)
|
|
cat > try.c <<'EOM'
|
|
#include <stdio.h>
|
|
#include <errno.h>
|
|
#include <net/errno.h>
|
|
int func()
|
|
{
|
|
return ENOTSOCK;
|
|
}
|
|
EOM
|
|
if $cc $ccflags -c try.c >/dev/null 2>&1; then
|
|
echo "We'll be including <net/errno.h>." >&4
|
|
else
|
|
echo "We won't be including <net/errno.h>." >&4
|
|
val="$undef"
|
|
fi
|
|
$rm -f try.* try
|
|
;;
|
|
esac
|
|
set i_neterrno
|
|
eval $setvar
|
|
|
|
: see if netinet/tcp.h is available
|
|
set netinet/tcp.h i_netinettcp
|
|
eval $inhdr
|
|
|
|
: see if this is a poll.h system
|
|
set poll.h i_poll
|
|
eval $inhdr
|
|
|
|
: see if this is a prot.h system
|
|
set prot.h i_prot
|
|
eval $inhdr
|
|
|
|
echo " "
|
|
$echo "Guessing which symbols your C compiler and preprocessor define..." >&4
|
|
$cat <<'EOSH' > Cppsym.know
|
|
a29k ABI64 aegis AES_SOURCE AIX AIX32 AIX370
|
|
AIX41 AIX42 AIX43 AIX_SOURCE aixpc ALL_SOURCE
|
|
alliant alpha am29000 AM29000 AMD64 amiga AMIGAOS AMIX
|
|
ansi ANSI_C_SOURCE apollo ardent ARM32 atarist att386 att3b
|
|
BeOS BIG_ENDIAN BIT_MSF bsd BSD bsd43 bsd4_2 bsd4_3 BSD4_3 bsd4_4
|
|
BSD_4_3 BSD_4_4 BSD_NET2 BSD_TIME BSD_TYPES BSDCOMPAT bsdi
|
|
bull c cadmus clipper CMU COFF COMPILER_VERSION
|
|
concurrent convex cpu cray CRAY CRAYMPP ctix CX_UX
|
|
CYGWIN DGUX DGUX_SOURCE DJGPP dmert DOLPHIN DPX2 DSO
|
|
Dynix DynixPTX ELF encore EPI EXTENSIONS FILE_OFFSET_BITS
|
|
FreeBSD GCC_NEW_VARARGS gcos gcx gimpel
|
|
GNU_SOURCE GNUC GNUC_MINOR GO32 gould GOULD_PN
|
|
H3050R H3050RX hbullx20 hcx host_mips
|
|
hp200 hp300 hp700 HP700 hp800 hp9000
|
|
hp9000s200 hp9000s300 hp9000s400 hp9000s500
|
|
hp9000s700 hp9000s800 hp9k8 hp_osf hppa hpux HPUX_SOURCE
|
|
i186 i286 i386 i486 i586 i686 i8086 i80960 i860 I960
|
|
IA64 iAPX286 ibm ibm032 ibmesa IBMR2 ibmrt ILP32 ILP64
|
|
INLINE_INTRINSICS INTRINSICS INT64 interdata is68k ksr1
|
|
LANGUAGE_C LARGE_FILE_API LARGEFILE64_SOURCE
|
|
LARGEFILE_SOURCE LFS64_LARGEFILE LFS_LARGEFILE
|
|
Linux LITTLE_ENDIAN LONG64 LONG_DOUBLE LONG_LONG
|
|
LONGDOUBLE LONGLONG LP64 luna luna88k Lynx
|
|
M68000 m68k m88100 m88k M88KBCS_TARGET M_COFF
|
|
M_I186 M_I286 M_I386 M_I8086 M_I86 M_I86SM M_SYS3
|
|
M_SYS5 M_SYSIII M_SYSV M_UNIX M_XENIX MACH machine MachTen
|
|
MATH_HAS_NO_SIDE_EFFECTS
|
|
mc300 mc500 mc68000 mc68010 mc68020 mc68030 mc68040
|
|
mc68060 mc68k mc68k32 mc700 mc88000 mc88100 merlin
|
|
mert MiNT mips MIPS_FPSET MIPS_ISA MIPS_SIM MIPS_SZINT
|
|
MIPS_SZLONG MIPS_SZPTR MIPSEB MIPSEL MODERN_C motorola
|
|
mpeix MSDOS MTXINU MULTIMAX mvs MVS n16 ncl_el ncl_mr
|
|
NetBSD news1500 news1700 news1800 news1900 news3700
|
|
news700 news800 news900 NeXT NLS nonstopux ns16000 ns32000
|
|
ns32016 ns32332 ns32k nsc32000
|
|
OCS88 OEMVS OpenBSD os OS2 OS390 osf OSF1 OSF_SOURCE
|
|
pa_risc PA_RISC1_1 PA_RISC2_0 PARAGON parisc
|
|
pc532 pdp11 PGC PIC plexus PORTAR posix
|
|
POSIX1B_SOURCE POSIX2_SOURCE POSIX4_SOURCE
|
|
POSIX_C_SOURCE POSIX_SOURCE POWER
|
|
PROTOTYPES PWB pyr QNX R3000 REENTRANT RES Rhapsody RISC6000
|
|
riscix riscos RT S390 SA110 scs SCO sequent sgi SGI_SOURCE SH3 sinix
|
|
SIZE_INT SIZE_LONG SIZE_PTR SOCKET_SOURCE SOCKETS_SOURCE
|
|
sony sony_news sonyrisc sparc sparclite spectrum
|
|
stardent stdc STDC_EXT stratos sun sun3 sun386
|
|
Sun386i svr3 svr4 SVR4_2 SVR4_SOURCE svr5
|
|
SX system SYSTYPE_BSD SYSTYPE_BSD43 SYSTYPE_BSD44
|
|
SYSTYPE_SVR4 SYSTYPE_SVR5 SYSTYPE_SYSV SYSV SYSV3 SYSV4 SYSV5
|
|
sysV68 sysV88 Tek4132 Tek4300 titan
|
|
TM3200 TM5400 TM5600
|
|
tower tower32 tower32_200 tower32_600 tower32_700
|
|
tower32_800 tower32_850 tss
|
|
u370 u3b u3b2 u3b20 u3b200 u3b20d u3b5
|
|
ultrix UMAXV UnicomPBB UnicomPBD UNICOS UNICOSMK
|
|
unix UNIX95 UNIX99 unixpc unos USGr4 USGr4_2
|
|
Utek UTek UTS UWIN uxpm uxps vax venix VMESA vms xenix Xenix286
|
|
XOPEN_SOURCE XOPEN_SOURCE_EXTENDED XPG2 XPG2_EXTENDED
|
|
XPG3 XPG3_EXTENDED XPG4 XPG4_EXTENDED
|
|
z8000
|
|
EOSH
|
|
# Maybe put other stuff here too.
|
|
cat <<EOSH >>Cppsym.know
|
|
$osname
|
|
EOSH
|
|
./tr '[a-z]' '[A-Z]' < Cppsym.know > Cppsym.a
|
|
./tr '[A-Z]' '[a-z]' < Cppsym.know > Cppsym.b
|
|
$cat Cppsym.know > Cppsym.c
|
|
$cat Cppsym.a Cppsym.b Cppsym.c | $tr ' ' $trnl | $sort | $uniq > Cppsym.know
|
|
$rm -f Cppsym.a Cppsym.b Cppsym.c
|
|
cat <<EOSH > Cppsym
|
|
$startsh
|
|
if $test \$# -gt 0; then
|
|
echo \$* | $tr " " "$trnl" | ./Cppsym.try > Cppsym.got
|
|
if $test -s Cppsym.got; then
|
|
$rm -f Cppsym.got
|
|
exit 0
|
|
fi
|
|
$rm -f Cppsym.got
|
|
exit 1
|
|
else
|
|
$tr " " "$trnl" | ./Cppsym.try
|
|
exit 0
|
|
fi
|
|
EOSH
|
|
chmod +x Cppsym
|
|
$eunicefix Cppsym
|
|
cat <<EOSH > Cppsym.try
|
|
$startsh
|
|
cat <<'EOCP' > try.c
|
|
#include <stdio.h>
|
|
int main() {
|
|
EOCP
|
|
$awk \\
|
|
EOSH
|
|
cat <<'EOSH' >> Cppsym.try
|
|
'length($1) > 0 {
|
|
printf "#ifdef %s\n#if %s+0\nprintf(\"%s=%%ld\\n\", %s);\n#else\nprintf(\"%s\\n\");\n#endif\n#endif\n", $1, $1, $1, $1, $1
|
|
printf "#ifdef _%s\n#if _%s+0\nprintf(\"_%s=%%ld\\n\", _%s);\n#else\nprintf(\"_%s\\n\");\n#endif\n#endif\n", $1, $1, $1, $1, $1
|
|
printf "#ifdef __%s\n#if __%s+0\nprintf(\"__%s=%%ld\\n\", __%s);\n#else\nprintf(\"__%s\\n\");\n#endif\n#endif\n", $1, $1, $1, $1, $1
|
|
printf "#ifdef __%s__\n#if __%s__+0\nprintf(\"__%s__=%%ld\\n\", __%s__);\n#else\nprintf(\"__%s__\\n\");\n#endif\n#endif\n", $1, $1, $1, $1, $1
|
|
}' >> try.c
|
|
echo '}' >> try.c
|
|
EOSH
|
|
cat <<EOSH >> Cppsym.try
|
|
ccflags="$ccflags"
|
|
case "$osname-$gccversion" in
|
|
irix-) ccflags="\$ccflags -woff 1178" ;;
|
|
os2-*) ccflags="\$ccflags -Zlinker /PM:VIO" ;;
|
|
esac
|
|
$cc -o try $optimize \$ccflags $ldflags try.c $libs && ./try$exe_ext
|
|
EOSH
|
|
chmod +x Cppsym.try
|
|
$eunicefix Cppsym.try
|
|
./Cppsym < Cppsym.know > Cppsym.true
|
|
: now check the C compiler for additional symbols
|
|
postprocess_cc_v=''
|
|
case "$osname" in
|
|
aix) postprocess_cc_v="|$tr , ' '" ;;
|
|
esac
|
|
$cat >ccsym <<EOS
|
|
$startsh
|
|
$cat >tmp.c <<EOF
|
|
extern int foo;
|
|
EOF
|
|
for i in \`$cc -v -c tmp.c 2>&1 $postprocess_cc_v\`
|
|
do
|
|
case "\$i" in
|
|
-D*) echo "\$i" | $sed 's/^-D//';;
|
|
-A*) $test "$gccversion" && echo "\$i" | $sed 's/^-A\(.*\)(\(.*\))/\1=\2/';;
|
|
esac
|
|
done
|
|
$rm -f try.c
|
|
EOS
|
|
postprocess_cc_v=''
|
|
chmod +x ccsym
|
|
$eunicefix ccsym
|
|
./ccsym > ccsym1.raw
|
|
if $test -s ccsym1.raw; then
|
|
$sort ccsym1.raw | $uniq >ccsym.raw
|
|
else
|
|
mv ccsym1.raw ccsym.raw
|
|
fi
|
|
|
|
$awk '/\=/ { print $0; next }
|
|
{ print $0"=1" }' ccsym.raw >ccsym.list
|
|
$awk '/\=/ { print $0; next }
|
|
{ print $0"=1" }' Cppsym.true >ccsym.true
|
|
$comm -13 ccsym.true ccsym.list >ccsym.own
|
|
$comm -12 ccsym.true ccsym.list >ccsym.com
|
|
$comm -23 ccsym.true ccsym.list >ccsym.cpp
|
|
also=''
|
|
if $test -z ccsym.raw; then
|
|
echo "Your C compiler doesn't seem to define any symbols!" >&4
|
|
echo " "
|
|
echo "However, your C preprocessor defines the following symbols:"
|
|
$cat Cppsym.true
|
|
ccsymbols=''
|
|
cppsymbols=`$cat Cppsym.true`
|
|
cppsymbols=`echo $cppsymbols`
|
|
cppccsymbols="$cppsymbols"
|
|
else
|
|
if $test -s ccsym.com; then
|
|
echo "Your C compiler and pre-processor define these symbols:"
|
|
$sed -e 's/\(..*\)=.*/\1/' ccsym.com
|
|
also='also '
|
|
symbols='ones'
|
|
cppccsymbols=`$cat ccsym.com`
|
|
cppccsymbols=`echo $cppccsymbols`
|
|
$test "$silent" || sleep 1
|
|
fi
|
|
if $test -s ccsym.cpp; then
|
|
$test "$also" && echo " "
|
|
echo "Your C pre-processor ${also}defines the following symbols:"
|
|
$sed -e 's/\(..*\)=.*/\1/' ccsym.cpp
|
|
also='further '
|
|
cppsymbols=`$cat ccsym.cpp`
|
|
cppsymbols=`echo $cppsymbols`
|
|
$test "$silent" || sleep 1
|
|
fi
|
|
if $test -s ccsym.own; then
|
|
$test "$also" && echo " "
|
|
echo "Your C compiler ${also}defines the following cpp symbols:"
|
|
$sed -e 's/\(..*\)=1/\1/' ccsym.own
|
|
$sed -e 's/\(..*\)=.*/\1/' ccsym.own | $uniq >>Cppsym.true
|
|
ccsymbols=`$cat ccsym.own`
|
|
ccsymbols=`echo $ccsymbols`
|
|
$test "$silent" || sleep 1
|
|
fi
|
|
fi
|
|
$rm -f ccsym* Cppsym.*
|
|
|
|
: see if this is a termio system
|
|
val="$undef"
|
|
val2="$undef"
|
|
val3="$undef"
|
|
if $test `./findhdr termios.h`; then
|
|
set tcsetattr i_termios
|
|
eval $inlibc
|
|
val3="$i_termios"
|
|
fi
|
|
echo " "
|
|
case "$val3" in
|
|
"$define") echo "You have POSIX termios.h... good!" >&4;;
|
|
*) if ./Cppsym pyr; then
|
|
case "`/bin/universe`" in
|
|
ucb) if $test `./findhdr sgtty.h`; then
|
|
val2="$define"
|
|
echo "<sgtty.h> found." >&4
|
|
else
|
|
echo "System is pyramid with BSD universe."
|
|
echo "<sgtty.h> not found--you could have problems." >&4
|
|
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
|
|
fi;;
|
|
esac
|
|
elif ./usg; then
|
|
if $test `./findhdr termio.h`; then
|
|
echo "<termio.h> found." >&4
|
|
val="$define"
|
|
elif $test `./findhdr sgtty.h`; then
|
|
echo "<sgtty.h> found." >&4
|
|
val2="$define"
|
|
else
|
|
echo "Neither <termio.h> nor <sgtty.h> found--you could have problems." >&4
|
|
fi
|
|
else
|
|
if $test `./findhdr sgtty.h`; then
|
|
echo "<sgtty.h> found." >&4
|
|
val2="$define"
|
|
elif $test `./findhdr termio.h`; then
|
|
echo "<termio.h> found." >&4
|
|
val="$define"
|
|
else
|
|
echo "Neither <sgtty.h> nor <termio.h> found--you could have problems." >&4
|
|
fi
|
|
fi;;
|
|
esac
|
|
set i_termio; eval $setvar
|
|
val=$val2; set i_sgtty; eval $setvar
|
|
val=$val3; set i_termios; eval $setvar
|
|
|
|
: see if this is a shadow.h system
|
|
set shadow.h i_shadow
|
|
eval $inhdr
|
|
|
|
: see if stdarg is available
|
|
echo " "
|
|
if $test `./findhdr stdarg.h`; then
|
|
echo "<stdarg.h> found." >&4
|
|
valstd="$define"
|
|
else
|
|
echo "<stdarg.h> NOT found." >&4
|
|
valstd="$undef"
|
|
fi
|
|
|
|
: see if varags is available
|
|
echo " "
|
|
if $test `./findhdr varargs.h`; then
|
|
echo "<varargs.h> found." >&4
|
|
else
|
|
echo "<varargs.h> NOT found, but that's ok (I hope)." >&4
|
|
fi
|
|
|
|
: set up the varargs testing programs
|
|
$cat > varargs.c <<EOP
|
|
#ifdef I_STDARG
|
|
#include <stdarg.h>
|
|
#endif
|
|
#ifdef I_VARARGS
|
|
#include <varargs.h>
|
|
#endif
|
|
|
|
#ifdef I_STDARG
|
|
int f(char *p, ...)
|
|
#else
|
|
int f(va_alist)
|
|
va_dcl
|
|
#endif
|
|
{
|
|
va_list ap;
|
|
#ifndef I_STDARG
|
|
char *p;
|
|
#endif
|
|
#ifdef I_STDARG
|
|
va_start(ap,p);
|
|
#else
|
|
va_start(ap);
|
|
p = va_arg(ap, char *);
|
|
#endif
|
|
va_end(ap);
|
|
}
|
|
EOP
|
|
$cat > varargs <<EOP
|
|
$startsh
|
|
if $cc -c $ccflags -D\$1 varargs.c >/dev/null 2>&1; then
|
|
echo "true"
|
|
else
|
|
echo "false"
|
|
fi
|
|
$rm -f varargs$_o
|
|
EOP
|
|
chmod +x varargs
|
|
|
|
: now check which varargs header should be included
|
|
echo " "
|
|
i_varhdr=''
|
|
case "$valstd" in
|
|
"$define")
|
|
if `./varargs I_STDARG`; then
|
|
val='stdarg.h'
|
|
elif `./varargs I_VARARGS`; then
|
|
val='varargs.h'
|
|
fi
|
|
;;
|
|
*)
|
|
if `./varargs I_VARARGS`; then
|
|
val='varargs.h'
|
|
fi
|
|
;;
|
|
esac
|
|
case "$val" in
|
|
'')
|
|
echo "I could not find the definition for va_dcl... You have problems..." >&4
|
|
val="$undef"; set i_stdarg; eval $setvar
|
|
val="$undef"; set i_varargs; eval $setvar
|
|
;;
|
|
*)
|
|
set i_varhdr
|
|
eval $setvar
|
|
case "$i_varhdr" in
|
|
stdarg.h)
|
|
val="$define"; set i_stdarg; eval $setvar
|
|
val="$undef"; set i_varargs; eval $setvar
|
|
;;
|
|
varargs.h)
|
|
val="$undef"; set i_stdarg; eval $setvar
|
|
val="$define"; set i_varargs; eval $setvar
|
|
;;
|
|
esac
|
|
echo "We'll include <$i_varhdr> to get va_dcl definition." >&4;;
|
|
esac
|
|
$rm -f varargs*
|
|
|
|
: see if stddef is available
|
|
set stddef.h i_stddef
|
|
eval $inhdr
|
|
|
|
: see if this is a sunmath.h system
|
|
set sunmath.h i_sunmath
|
|
eval $inhdr
|
|
|
|
: see if sys/access.h is available
|
|
set sys/access.h i_sysaccess
|
|
eval $inhdr
|
|
|
|
: see if ioctl defs are in sgtty, termio, sys/filio or sys/ioctl
|
|
set sys/filio.h i_sysfilio
|
|
eval $inhdr
|
|
echo " "
|
|
if $test `./findhdr sys/ioctl.h`; then
|
|
val="$define"
|
|
echo '<sys/ioctl.h> found.' >&4
|
|
else
|
|
val="$undef"
|
|
if $test $i_sysfilio = "$define"; then
|
|
echo '<sys/ioctl.h> NOT found.' >&4
|
|
else
|
|
$test $i_sgtty = "$define" && xxx="sgtty.h"
|
|
$test $i_termio = "$define" && xxx="termio.h"
|
|
$test $i_termios = "$define" && xxx="termios.h"
|
|
echo "No <sys/ioctl.h> found, assuming ioctl args are defined in <$xxx>." >&4
|
|
fi
|
|
fi
|
|
set i_sysioctl
|
|
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 sys/resource.h has to be included
|
|
set sys/resource.h i_sysresrc
|
|
eval $inhdr
|
|
|
|
: see if sys/security.h is available
|
|
set sys/security.h i_syssecrt
|
|
eval $inhdr
|
|
|
|
: see if this is a sys/statvfs.h system
|
|
set sys/statvfs.h i_sysstatvfs
|
|
eval $inhdr
|
|
|
|
: see if this is a sys/uio.h system
|
|
set sys/uio.h i_sysuio
|
|
eval $inhdr
|
|
|
|
: see if this is a sys/un.h system
|
|
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
|
|
|
|
: see if this is a syswait system
|
|
set sys/wait.h i_syswait
|
|
eval $inhdr
|
|
|
|
: see if this is a ustat.h system
|
|
set ustat.h i_ustat
|
|
eval $inhdr
|
|
|
|
: see if this is an utime system
|
|
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")
|
|
set vfork.h i_vfork
|
|
eval $inhdr
|
|
;;
|
|
*)
|
|
i_vfork="$undef"
|
|
;;
|
|
esac
|
|
|
|
: see if gdbm.h is available
|
|
set gdbm.h t_gdbm
|
|
eval $inhdr
|
|
case "$t_gdbm" in
|
|
$define)
|
|
: see if gdbm_open exists
|
|
set gdbm_open d_gdbm_open
|
|
eval $inlibc
|
|
case "$d_gdbm_open" in
|
|
$undef)
|
|
t_gdbm="$undef"
|
|
echo "We won't be including <gdbm.h>"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
val="$t_gdbm"
|
|
set i_gdbm
|
|
eval $setvar
|
|
|
|
echo " "
|
|
echo "Looking for extensions..." >&4
|
|
: If we are using the old config.sh, known_extensions may contain
|
|
: old or inaccurate or duplicate values.
|
|
known_extensions=''
|
|
nonxs_extensions=''
|
|
: We do not use find because it might not be available.
|
|
: We do not just use MANIFEST because the user may have dropped
|
|
: some additional extensions into the source tree and expect them
|
|
: to be built.
|
|
|
|
: Function to recursively find available extensions, ignoring DynaLoader
|
|
: NOTE: recursion limit of 10 to prevent runaway in case of symlink madness
|
|
find_extensions='
|
|
for xxx in *; do
|
|
case "$xxx" in
|
|
DynaLoader|dynaload) ;;
|
|
*)
|
|
if $test -f $xxx/$xxx.xs; then
|
|
known_extensions="$known_extensions $1$xxx";
|
|
elif $test -f $xxx/Makefile.PL; then
|
|
nonxs_extensions="$nonxs_extensions $1$xxx";
|
|
else
|
|
if $test -d $xxx -a $# -lt 10; then
|
|
set $1$xxx/ $*;
|
|
cd $xxx;
|
|
eval $find_extensions;
|
|
cd ..;
|
|
shift;
|
|
fi;
|
|
fi
|
|
;;
|
|
esac;
|
|
done'
|
|
tdir=`pwd`
|
|
cd $rsrc/ext
|
|
set X
|
|
shift
|
|
eval $find_extensions
|
|
set X $nonxs_extensions
|
|
shift
|
|
nonxs_extensions="$*"
|
|
set X $known_extensions
|
|
shift
|
|
known_extensions="$*"
|
|
cd $tdir
|
|
|
|
: Now see which are supported on this system.
|
|
avail_ext=''
|
|
for xxx in $known_extensions ; do
|
|
case "$xxx" in
|
|
DB_File|db_file)
|
|
case "$i_db" in
|
|
$define) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
GDBM_File|gdbm_fil)
|
|
case "$i_gdbm" in
|
|
$define) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
NDBM_File|ndbm_fil)
|
|
case "$i_ndbm" in
|
|
$define)
|
|
case "$osname-$use64bitint" in
|
|
hpux-define)
|
|
case "$libs" in
|
|
*-lndbm*) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
*) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
ODBM_File|odbm_fil)
|
|
case "${i_dbm}${i_rpcsvcdbm}" in
|
|
*"${define}"*)
|
|
case "$osname-$use64bitint" in
|
|
hpux-define)
|
|
case "$libs" in
|
|
*-ldbm*) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
*) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
;;
|
|
POSIX|posix)
|
|
case "$useposix" in
|
|
true|define|y) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
Opcode|opcode)
|
|
case "$useopcode" in
|
|
true|define|y) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
Socket|socket)
|
|
case "$d_socket" in
|
|
true|$define|y) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
Sys/Syslog|sys/syslog)
|
|
: XXX syslog requires socket
|
|
case "$d_socket" in
|
|
true|$define|y) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
Thread|thread)
|
|
case "$usethreads" in
|
|
true|$define|y) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
IPC/SysV|ipc/sysv)
|
|
: XXX Do we need a useipcsysv variable here
|
|
case "${d_msg}${d_sem}${d_shm}" in
|
|
*"${define}"*) avail_ext="$avail_ext $xxx" ;;
|
|
esac
|
|
;;
|
|
*) avail_ext="$avail_ext $xxx"
|
|
;;
|
|
esac
|
|
done
|
|
|
|
set X $avail_ext
|
|
shift
|
|
avail_ext="$*"
|
|
|
|
: Now see which nonxs extensions are supported on this system.
|
|
: For now assume all are.
|
|
nonxs_ext=''
|
|
for xxx in $nonxs_extensions ; do
|
|
case "$xxx" in
|
|
*) nonxs_ext="$nonxs_ext $xxx"
|
|
;;
|
|
esac
|
|
done
|
|
|
|
set X $nonxs_ext
|
|
shift
|
|
nonxs_ext="$*"
|
|
|
|
case $usedl in
|
|
$define)
|
|
$cat <<EOM
|
|
A number of extensions are supplied with $package. You may choose to
|
|
compile these extensions for dynamic loading (the default), compile
|
|
them into the $package executable (static loading), or not include
|
|
them at all. Answer "none" to include no extensions.
|
|
Note that DynaLoader is always built and need not be mentioned here.
|
|
|
|
EOM
|
|
case "$dynamic_ext" in
|
|
'') dflt="$avail_ext" ;;
|
|
*) dflt="$dynamic_ext"
|
|
# Perhaps we are reusing an old out-of-date config.sh.
|
|
case "$hint" in
|
|
previous)
|
|
if test X"$dynamic_ext" != X"$avail_ext"; then
|
|
$cat <<EOM
|
|
NOTICE: Your previous config.sh list may be incorrect.
|
|
The extensions now available to you are
|
|
${avail_ext}
|
|
but the default list from your previous config.sh is
|
|
${dynamic_ext}
|
|
|
|
EOM
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
case "$dflt" in
|
|
'') dflt=none;;
|
|
esac
|
|
rp="What extensions do you wish to load dynamically?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) dynamic_ext=' ' ;;
|
|
*) dynamic_ext="$ans" ;;
|
|
esac
|
|
|
|
case "$static_ext" in
|
|
'')
|
|
: Exclude those already listed in dynamic linking
|
|
dflt=''
|
|
for xxx in $avail_ext; do
|
|
case " $dynamic_ext " in
|
|
*" $xxx "*) ;;
|
|
*) dflt="$dflt $xxx" ;;
|
|
esac
|
|
done
|
|
set X $dflt
|
|
shift
|
|
dflt="$*"
|
|
;;
|
|
*) dflt="$static_ext"
|
|
;;
|
|
esac
|
|
|
|
case "$dflt" in
|
|
'') dflt=none;;
|
|
esac
|
|
rp="What extensions do you wish to load statically?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) static_ext=' ' ;;
|
|
*) static_ext="$ans" ;;
|
|
esac
|
|
;;
|
|
*)
|
|
$cat <<EOM
|
|
A number of extensions are supplied with $package. Answer "none"
|
|
to include no extensions.
|
|
Note that DynaLoader is always built and need not be mentioned here.
|
|
|
|
EOM
|
|
case "$static_ext" in
|
|
'') dflt="$avail_ext" ;;
|
|
*) dflt="$static_ext"
|
|
# Perhaps we are reusing an old out-of-date config.sh.
|
|
case "$hint" in
|
|
previous)
|
|
if test X"$static_ext" != X"$avail_ext"; then
|
|
$cat <<EOM
|
|
NOTICE: Your previous config.sh list may be incorrect.
|
|
The extensions now available to you are
|
|
${avail_ext}
|
|
but the default list from your previous config.sh is
|
|
${static_ext}
|
|
|
|
EOM
|
|
fi
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
: Exclude those that are not xs extensions
|
|
case "$dflt" in
|
|
'') dflt=none;;
|
|
esac
|
|
rp="What extensions do you wish to include?"
|
|
. ./myread
|
|
case "$ans" in
|
|
none) static_ext=' ' ;;
|
|
*) static_ext="$ans" ;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
set X $dynamic_ext $static_ext $nonxs_ext
|
|
shift
|
|
extensions="$*"
|
|
|
|
: Remove libraries needed only for extensions
|
|
: The appropriate ext/Foo/Makefile.PL will add them back in, if necessary.
|
|
: The exception is SunOS 4.x, which needs them.
|
|
case "${osname}X${osvers}" in
|
|
sunos*X4*)
|
|
perllibs="$libs"
|
|
;;
|
|
*) case "$usedl" in
|
|
$define|true|[yY]*)
|
|
set X `echo " $libs " | sed -e 's@ -lndbm @ @' -e 's@ -lgdbm @ @' -e 's@ -ldbm @ @' -e 's@ -ldb @ @'`
|
|
shift
|
|
perllibs="$*"
|
|
;;
|
|
*) perllibs="$libs"
|
|
;;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: Remove build directory name from cppstdin so it can be used from
|
|
: either the present location or the final installed location.
|
|
echo " "
|
|
: Get out of the UU directory to get correct path name.
|
|
cd ..
|
|
case "$cppstdin" in
|
|
`pwd`/cppstdin)
|
|
echo "Stripping down cppstdin path name"
|
|
cppstdin=cppstdin
|
|
;;
|
|
esac
|
|
cd UU
|
|
|
|
: end of configuration questions
|
|
echo " "
|
|
echo "End of configuration questions."
|
|
echo " "
|
|
|
|
: back to where it started
|
|
if test -d ../UU; then
|
|
cd ..
|
|
fi
|
|
|
|
: configuration may be patched via a 'config.over' file
|
|
if $test -f config.over; then
|
|
echo " "
|
|
dflt=y
|
|
rp='I see a config.over file. Do you wish to load it?'
|
|
. UU/myread
|
|
case "$ans" in
|
|
n*) echo "OK, I'll ignore it.";;
|
|
*) . ./config.over
|
|
echo "Configuration override changes have been loaded."
|
|
;;
|
|
esac
|
|
fi
|
|
|
|
: in case they want portability, strip down executable paths
|
|
case "$d_portable" in
|
|
"$define")
|
|
echo " "
|
|
echo "Stripping down executable paths..." >&4
|
|
for file in $loclist $trylist; do
|
|
eval temp=\$$file
|
|
eval $file=`basename $temp`
|
|
done
|
|
;;
|
|
esac
|
|
|
|
: create config.sh file
|
|
echo " "
|
|
echo "Creating config.sh..." >&4
|
|
$spitshell <<EOT >config.sh
|
|
$startsh
|
|
#
|
|
# This file was produced by running the Configure script. It holds all the
|
|
# definitions figured out by Configure. Should you modify one of these values,
|
|
# do not forget to propagate your changes by running "Configure -der". You may
|
|
# instead choose to run each of the .SH files by yourself, or "Configure -S".
|
|
#
|
|
|
|
# Package name : $package
|
|
# Source directory : $src
|
|
# Configuration time: $cf_time
|
|
# Configured by : $cf_by
|
|
# Target system : $myuname
|
|
|
|
Author='$Author'
|
|
Date='$Date'
|
|
Header='$Header'
|
|
Id='$Id'
|
|
Locker='$Locker'
|
|
Log='$Log'
|
|
Mcc='$Mcc'
|
|
RCSfile='$RCSfile'
|
|
Revision='$Revision'
|
|
Source='$Source'
|
|
State='$State'
|
|
_a='$_a'
|
|
_exe='$_exe'
|
|
_o='$_o'
|
|
afs='$afs'
|
|
alignbytes='$alignbytes'
|
|
ansi2knr='$ansi2knr'
|
|
aphostname='$aphostname'
|
|
api_revision='$api_revision'
|
|
api_subversion='$api_subversion'
|
|
api_version='$api_version'
|
|
api_versionstring='$api_versionstring'
|
|
ar='$ar'
|
|
archlib='$archlib'
|
|
archlibexp='$archlibexp'
|
|
archname64='$archname64'
|
|
archname='$archname'
|
|
archobjs='$archobjs'
|
|
awk='$awk'
|
|
baserev='$baserev'
|
|
bash='$bash'
|
|
bin='$bin'
|
|
bincompat5005='$bincompat5005'
|
|
binexp='$binexp'
|
|
bison='$bison'
|
|
byacc='$byacc'
|
|
byteorder='$byteorder'
|
|
c='$c'
|
|
castflags='$castflags'
|
|
cat='$cat'
|
|
cc='$cc'
|
|
cccdlflags='$cccdlflags'
|
|
ccdlflags='$ccdlflags'
|
|
ccflags='$ccflags'
|
|
ccflags_uselargefiles='$ccflags_uselargefiles'
|
|
ccname='$ccname'
|
|
ccsymbols='$ccsymbols'
|
|
ccversion='$ccversion'
|
|
cf_by='$cf_by'
|
|
cf_email='$cf_email'
|
|
cf_time='$cf_time'
|
|
charsize='$charsize'
|
|
chgrp='$chgrp'
|
|
chmod='$chmod'
|
|
chown='$chown'
|
|
clocktype='$clocktype'
|
|
comm='$comm'
|
|
compress='$compress'
|
|
contains='$contains'
|
|
cp='$cp'
|
|
cpio='$cpio'
|
|
cpp='$cpp'
|
|
cpp_stuff='$cpp_stuff'
|
|
cppccsymbols='$cppccsymbols'
|
|
cppflags='$cppflags'
|
|
cpplast='$cpplast'
|
|
cppminus='$cppminus'
|
|
cpprun='$cpprun'
|
|
cppstdin='$cppstdin'
|
|
cppsymbols='$cppsymbols'
|
|
crosscompile='$crosscompile'
|
|
cryptlib='$cryptlib'
|
|
csh='$csh'
|
|
d_Gconvert='$d_Gconvert'
|
|
d_PRIEUldbl='$d_PRIEUldbl'
|
|
d_PRIFUldbl='$d_PRIFUldbl'
|
|
d_PRIGUldbl='$d_PRIGUldbl'
|
|
d_PRIXU64='$d_PRIXU64'
|
|
d_PRId64='$d_PRId64'
|
|
d_PRIeldbl='$d_PRIeldbl'
|
|
d_PRIfldbl='$d_PRIfldbl'
|
|
d_PRIgldbl='$d_PRIgldbl'
|
|
d_PRIi64='$d_PRIi64'
|
|
d_PRIo64='$d_PRIo64'
|
|
d_PRIu64='$d_PRIu64'
|
|
d_PRIx64='$d_PRIx64'
|
|
d_SCNfldbl='$d_SCNfldbl'
|
|
d__fwalk='$d__fwalk'
|
|
d_access='$d_access'
|
|
d_accessx='$d_accessx'
|
|
d_alarm='$d_alarm'
|
|
d_archlib='$d_archlib'
|
|
d_atolf='$d_atolf'
|
|
d_atoll='$d_atoll'
|
|
d_attribut='$d_attribut'
|
|
d_bcmp='$d_bcmp'
|
|
d_bcopy='$d_bcopy'
|
|
d_bincompat5005='$d_bincompat5005'
|
|
d_bsd='$d_bsd'
|
|
d_bsdgetpgrp='$d_bsdgetpgrp'
|
|
d_bsdsetpgrp='$d_bsdsetpgrp'
|
|
d_bzero='$d_bzero'
|
|
d_casti32='$d_casti32'
|
|
d_castneg='$d_castneg'
|
|
d_charvspr='$d_charvspr'
|
|
d_chown='$d_chown'
|
|
d_chroot='$d_chroot'
|
|
d_chsize='$d_chsize'
|
|
d_closedir='$d_closedir'
|
|
d_const='$d_const'
|
|
d_crypt='$d_crypt'
|
|
d_csh='$d_csh'
|
|
d_cuserid='$d_cuserid'
|
|
d_dbl_dig='$d_dbl_dig'
|
|
d_difftime='$d_difftime'
|
|
d_dirnamlen='$d_dirnamlen'
|
|
d_dlerror='$d_dlerror'
|
|
d_dlopen='$d_dlopen'
|
|
d_dlsymun='$d_dlsymun'
|
|
d_dosuid='$d_dosuid'
|
|
d_drand48proto='$d_drand48proto'
|
|
d_dup2='$d_dup2'
|
|
d_eaccess='$d_eaccess'
|
|
d_endgrent='$d_endgrent'
|
|
d_endhent='$d_endhent'
|
|
d_endnent='$d_endnent'
|
|
d_endpent='$d_endpent'
|
|
d_endpwent='$d_endpwent'
|
|
d_endsent='$d_endsent'
|
|
d_eofnblk='$d_eofnblk'
|
|
d_eunice='$d_eunice'
|
|
d_fchmod='$d_fchmod'
|
|
d_fchown='$d_fchown'
|
|
d_fcntl='$d_fcntl'
|
|
d_fcntl_can_lock='$d_fcntl_can_lock'
|
|
d_fd_macros='$d_fd_macros'
|
|
d_fd_set='$d_fd_set'
|
|
d_fds_bits='$d_fds_bits'
|
|
d_fgetpos='$d_fgetpos'
|
|
d_flexfnam='$d_flexfnam'
|
|
d_flock='$d_flock'
|
|
d_fork='$d_fork'
|
|
d_fpathconf='$d_fpathconf'
|
|
d_fpos64_t='$d_fpos64_t'
|
|
d_frexpl='$d_frexpl'
|
|
d_fs_data_s='$d_fs_data_s'
|
|
d_fseeko='$d_fseeko'
|
|
d_fsetpos='$d_fsetpos'
|
|
d_fstatfs='$d_fstatfs'
|
|
d_fstatvfs='$d_fstatvfs'
|
|
d_fsync='$d_fsync'
|
|
d_ftello='$d_ftello'
|
|
d_ftime='$d_ftime'
|
|
d_getcwd='$d_getcwd'
|
|
d_getespwnam='$d_getespwnam'
|
|
d_getfsstat='$d_getfsstat'
|
|
d_getgrent='$d_getgrent'
|
|
d_getgrps='$d_getgrps'
|
|
d_gethbyaddr='$d_gethbyaddr'
|
|
d_gethbyname='$d_gethbyname'
|
|
d_gethent='$d_gethent'
|
|
d_gethname='$d_gethname'
|
|
d_gethostprotos='$d_gethostprotos'
|
|
d_getlogin='$d_getlogin'
|
|
d_getmnt='$d_getmnt'
|
|
d_getmntent='$d_getmntent'
|
|
d_getnbyaddr='$d_getnbyaddr'
|
|
d_getnbyname='$d_getnbyname'
|
|
d_getnent='$d_getnent'
|
|
d_getnetprotos='$d_getnetprotos'
|
|
d_getpagsz='$d_getpagsz'
|
|
d_getpbyname='$d_getpbyname'
|
|
d_getpbynumber='$d_getpbynumber'
|
|
d_getpent='$d_getpent'
|
|
d_getpgid='$d_getpgid'
|
|
d_getpgrp2='$d_getpgrp2'
|
|
d_getpgrp='$d_getpgrp'
|
|
d_getppid='$d_getppid'
|
|
d_getprior='$d_getprior'
|
|
d_getprotoprotos='$d_getprotoprotos'
|
|
d_getprpwnam='$d_getprpwnam'
|
|
d_getpwent='$d_getpwent'
|
|
d_getsbyname='$d_getsbyname'
|
|
d_getsbyport='$d_getsbyport'
|
|
d_getsent='$d_getsent'
|
|
d_getservprotos='$d_getservprotos'
|
|
d_getspnam='$d_getspnam'
|
|
d_gettimeod='$d_gettimeod'
|
|
d_gnulibc='$d_gnulibc'
|
|
d_grpasswd='$d_grpasswd'
|
|
d_hasmntopt='$d_hasmntopt'
|
|
d_htonl='$d_htonl'
|
|
d_iconv='$d_iconv'
|
|
d_index='$d_index'
|
|
d_inetaton='$d_inetaton'
|
|
d_int64_t='$d_int64_t'
|
|
d_isascii='$d_isascii'
|
|
d_isnan='$d_isnan'
|
|
d_isnanl='$d_isnanl'
|
|
d_killpg='$d_killpg'
|
|
d_lchown='$d_lchown'
|
|
d_ldbl_dig='$d_ldbl_dig'
|
|
d_link='$d_link'
|
|
d_locconv='$d_locconv'
|
|
d_lockf='$d_lockf'
|
|
d_longdbl='$d_longdbl'
|
|
d_longlong='$d_longlong'
|
|
d_lseekproto='$d_lseekproto'
|
|
d_lstat='$d_lstat'
|
|
d_madvise='$d_madvise'
|
|
d_mblen='$d_mblen'
|
|
d_mbstowcs='$d_mbstowcs'
|
|
d_mbtowc='$d_mbtowc'
|
|
d_memchr='$d_memchr'
|
|
d_memcmp='$d_memcmp'
|
|
d_memcpy='$d_memcpy'
|
|
d_memmove='$d_memmove'
|
|
d_memset='$d_memset'
|
|
d_mkdir='$d_mkdir'
|
|
d_mkdtemp='$d_mkdtemp'
|
|
d_mkfifo='$d_mkfifo'
|
|
d_mkstemp='$d_mkstemp'
|
|
d_mkstemps='$d_mkstemps'
|
|
d_mktime='$d_mktime'
|
|
d_mmap='$d_mmap'
|
|
d_modfl='$d_modfl'
|
|
d_mprotect='$d_mprotect'
|
|
d_msg='$d_msg'
|
|
d_msg_ctrunc='$d_msg_ctrunc'
|
|
d_msg_dontroute='$d_msg_dontroute'
|
|
d_msg_oob='$d_msg_oob'
|
|
d_msg_peek='$d_msg_peek'
|
|
d_msg_proxy='$d_msg_proxy'
|
|
d_msgctl='$d_msgctl'
|
|
d_msgget='$d_msgget'
|
|
d_msgrcv='$d_msgrcv'
|
|
d_msgsnd='$d_msgsnd'
|
|
d_msync='$d_msync'
|
|
d_munmap='$d_munmap'
|
|
d_mymalloc='$d_mymalloc'
|
|
d_nice='$d_nice'
|
|
d_nv_preserves_uv='$d_nv_preserves_uv'
|
|
d_nv_preserves_uv_bits='$d_nv_preserves_uv_bits'
|
|
d_off64_t='$d_off64_t'
|
|
d_old_pthread_create_joinable='$d_old_pthread_create_joinable'
|
|
d_oldpthreads='$d_oldpthreads'
|
|
d_oldsock='$d_oldsock'
|
|
d_open3='$d_open3'
|
|
d_pathconf='$d_pathconf'
|
|
d_pause='$d_pause'
|
|
d_perl_otherlibdirs='$d_perl_otherlibdirs'
|
|
d_phostname='$d_phostname'
|
|
d_pipe='$d_pipe'
|
|
d_poll='$d_poll'
|
|
d_portable='$d_portable'
|
|
d_pthread_yield='$d_pthread_yield'
|
|
d_pwage='$d_pwage'
|
|
d_pwchange='$d_pwchange'
|
|
d_pwclass='$d_pwclass'
|
|
d_pwcomment='$d_pwcomment'
|
|
d_pwexpire='$d_pwexpire'
|
|
d_pwgecos='$d_pwgecos'
|
|
d_pwpasswd='$d_pwpasswd'
|
|
d_pwquota='$d_pwquota'
|
|
d_qgcvt='$d_qgcvt'
|
|
d_quad='$d_quad'
|
|
d_readdir='$d_readdir'
|
|
d_readlink='$d_readlink'
|
|
d_rename='$d_rename'
|
|
d_rewinddir='$d_rewinddir'
|
|
d_rmdir='$d_rmdir'
|
|
d_safebcpy='$d_safebcpy'
|
|
d_safemcpy='$d_safemcpy'
|
|
d_sanemcmp='$d_sanemcmp'
|
|
d_sbrkproto='$d_sbrkproto'
|
|
d_sched_yield='$d_sched_yield'
|
|
d_scm_rights='$d_scm_rights'
|
|
d_seekdir='$d_seekdir'
|
|
d_select='$d_select'
|
|
d_sem='$d_sem'
|
|
d_semctl='$d_semctl'
|
|
d_semctl_semid_ds='$d_semctl_semid_ds'
|
|
d_semctl_semun='$d_semctl_semun'
|
|
d_semget='$d_semget'
|
|
d_semop='$d_semop'
|
|
d_setegid='$d_setegid'
|
|
d_seteuid='$d_seteuid'
|
|
d_setgrent='$d_setgrent'
|
|
d_setgrps='$d_setgrps'
|
|
d_sethent='$d_sethent'
|
|
d_setlinebuf='$d_setlinebuf'
|
|
d_setlocale='$d_setlocale'
|
|
d_setnent='$d_setnent'
|
|
d_setpent='$d_setpent'
|
|
d_setpgid='$d_setpgid'
|
|
d_setpgrp2='$d_setpgrp2'
|
|
d_setpgrp='$d_setpgrp'
|
|
d_setprior='$d_setprior'
|
|
d_setproctitle='$d_setproctitle'
|
|
d_setpwent='$d_setpwent'
|
|
d_setregid='$d_setregid'
|
|
d_setresgid='$d_setresgid'
|
|
d_setresuid='$d_setresuid'
|
|
d_setreuid='$d_setreuid'
|
|
d_setrgid='$d_setrgid'
|
|
d_setruid='$d_setruid'
|
|
d_setsent='$d_setsent'
|
|
d_setsid='$d_setsid'
|
|
d_setvbuf='$d_setvbuf'
|
|
d_sfio='$d_sfio'
|
|
d_shm='$d_shm'
|
|
d_shmat='$d_shmat'
|
|
d_shmatprototype='$d_shmatprototype'
|
|
d_shmctl='$d_shmctl'
|
|
d_shmdt='$d_shmdt'
|
|
d_shmget='$d_shmget'
|
|
d_sigaction='$d_sigaction'
|
|
d_sigsetjmp='$d_sigsetjmp'
|
|
d_socket='$d_socket'
|
|
d_socklen_t='$d_socklen_t'
|
|
d_sockpair='$d_sockpair'
|
|
d_socks5_init='$d_socks5_init'
|
|
d_sqrtl='$d_sqrtl'
|
|
d_statblks='$d_statblks'
|
|
d_statfs_f_flags='$d_statfs_f_flags'
|
|
d_statfs_s='$d_statfs_s'
|
|
d_statvfs='$d_statvfs'
|
|
d_stdio_cnt_lval='$d_stdio_cnt_lval'
|
|
d_stdio_ptr_lval='$d_stdio_ptr_lval'
|
|
d_stdio_ptr_lval_nochange_cnt='$d_stdio_ptr_lval_nochange_cnt'
|
|
d_stdio_ptr_lval_sets_cnt='$d_stdio_ptr_lval_sets_cnt'
|
|
d_stdio_stream_array='$d_stdio_stream_array'
|
|
d_stdiobase='$d_stdiobase'
|
|
d_stdstdio='$d_stdstdio'
|
|
d_strchr='$d_strchr'
|
|
d_strcoll='$d_strcoll'
|
|
d_strctcpy='$d_strctcpy'
|
|
d_strerrm='$d_strerrm'
|
|
d_strerror='$d_strerror'
|
|
d_strtod='$d_strtod'
|
|
d_strtol='$d_strtol'
|
|
d_strtold='$d_strtold'
|
|
d_strtoll='$d_strtoll'
|
|
d_strtoul='$d_strtoul'
|
|
d_strtoull='$d_strtoull'
|
|
d_strtouq='$d_strtouq'
|
|
d_strxfrm='$d_strxfrm'
|
|
d_suidsafe='$d_suidsafe'
|
|
d_symlink='$d_symlink'
|
|
d_syscall='$d_syscall'
|
|
d_sysconf='$d_sysconf'
|
|
d_sysernlst='$d_sysernlst'
|
|
d_syserrlst='$d_syserrlst'
|
|
d_system='$d_system'
|
|
d_tcgetpgrp='$d_tcgetpgrp'
|
|
d_tcsetpgrp='$d_tcsetpgrp'
|
|
d_telldir='$d_telldir'
|
|
d_telldirproto='$d_telldirproto'
|
|
d_time='$d_time'
|
|
d_times='$d_times'
|
|
d_truncate='$d_truncate'
|
|
d_tzname='$d_tzname'
|
|
d_umask='$d_umask'
|
|
d_uname='$d_uname'
|
|
d_union_semun='$d_union_semun'
|
|
d_ustat='$d_ustat'
|
|
d_vendorarch='$d_vendorarch'
|
|
d_vendorbin='$d_vendorbin'
|
|
d_vendorlib='$d_vendorlib'
|
|
d_vfork='$d_vfork'
|
|
d_void_closedir='$d_void_closedir'
|
|
d_voidsig='$d_voidsig'
|
|
d_voidtty='$d_voidtty'
|
|
d_volatile='$d_volatile'
|
|
d_vprintf='$d_vprintf'
|
|
d_wait4='$d_wait4'
|
|
d_waitpid='$d_waitpid'
|
|
d_wcstombs='$d_wcstombs'
|
|
d_wctomb='$d_wctomb'
|
|
d_xenix='$d_xenix'
|
|
date='$date'
|
|
db_hashtype='$db_hashtype'
|
|
db_prefixtype='$db_prefixtype'
|
|
defvoidused='$defvoidused'
|
|
direntrytype='$direntrytype'
|
|
dlext='$dlext'
|
|
dlsrc='$dlsrc'
|
|
doublesize='$doublesize'
|
|
drand01='$drand01'
|
|
dynamic_ext='$dynamic_ext'
|
|
eagain='$eagain'
|
|
ebcdic='$ebcdic'
|
|
echo='$echo'
|
|
egrep='$egrep'
|
|
emacs='$emacs'
|
|
eunicefix='$eunicefix'
|
|
exe_ext='$exe_ext'
|
|
expr='$expr'
|
|
extensions='$extensions'
|
|
fflushNULL='$fflushNULL'
|
|
fflushall='$fflushall'
|
|
find='$find'
|
|
firstmakefile='$firstmakefile'
|
|
flex='$flex'
|
|
fpossize='$fpossize'
|
|
fpostype='$fpostype'
|
|
freetype='$freetype'
|
|
full_ar='$full_ar'
|
|
full_csh='$full_csh'
|
|
full_sed='$full_sed'
|
|
gccosandvers='$gccosandvers'
|
|
gccversion='$gccversion'
|
|
gidformat='$gidformat'
|
|
gidsign='$gidsign'
|
|
gidsize='$gidsize'
|
|
gidtype='$gidtype'
|
|
glibpth='$glibpth'
|
|
grep='$grep'
|
|
groupcat='$groupcat'
|
|
groupstype='$groupstype'
|
|
gzip='$gzip'
|
|
h_fcntl='$h_fcntl'
|
|
h_sysfile='$h_sysfile'
|
|
hint='$hint'
|
|
hostcat='$hostcat'
|
|
i16size='$i16size'
|
|
i16type='$i16type'
|
|
i32size='$i32size'
|
|
i32type='$i32type'
|
|
i64size='$i64size'
|
|
i64type='$i64type'
|
|
i8size='$i8size'
|
|
i8type='$i8type'
|
|
i_arpainet='$i_arpainet'
|
|
i_bsdioctl='$i_bsdioctl'
|
|
i_db='$i_db'
|
|
i_dbm='$i_dbm'
|
|
i_dirent='$i_dirent'
|
|
i_dld='$i_dld'
|
|
i_dlfcn='$i_dlfcn'
|
|
i_fcntl='$i_fcntl'
|
|
i_float='$i_float'
|
|
i_gdbm='$i_gdbm'
|
|
i_grp='$i_grp'
|
|
i_iconv='$i_iconv'
|
|
i_ieeefp='$i_ieeefp'
|
|
i_inttypes='$i_inttypes'
|
|
i_libutil='$i_libutil'
|
|
i_limits='$i_limits'
|
|
i_locale='$i_locale'
|
|
i_machcthr='$i_machcthr'
|
|
i_malloc='$i_malloc'
|
|
i_math='$i_math'
|
|
i_memory='$i_memory'
|
|
i_mntent='$i_mntent'
|
|
i_ndbm='$i_ndbm'
|
|
i_netdb='$i_netdb'
|
|
i_neterrno='$i_neterrno'
|
|
i_netinettcp='$i_netinettcp'
|
|
i_niin='$i_niin'
|
|
i_poll='$i_poll'
|
|
i_prot='$i_prot'
|
|
i_pthread='$i_pthread'
|
|
i_pwd='$i_pwd'
|
|
i_rpcsvcdbm='$i_rpcsvcdbm'
|
|
i_sfio='$i_sfio'
|
|
i_sgtty='$i_sgtty'
|
|
i_shadow='$i_shadow'
|
|
i_socks='$i_socks'
|
|
i_stdarg='$i_stdarg'
|
|
i_stddef='$i_stddef'
|
|
i_stdlib='$i_stdlib'
|
|
i_string='$i_string'
|
|
i_sunmath='$i_sunmath'
|
|
i_sysaccess='$i_sysaccess'
|
|
i_sysdir='$i_sysdir'
|
|
i_sysfile='$i_sysfile'
|
|
i_sysfilio='$i_sysfilio'
|
|
i_sysin='$i_sysin'
|
|
i_sysioctl='$i_sysioctl'
|
|
i_syslog='$i_syslog'
|
|
i_sysmman='$i_sysmman'
|
|
i_sysmode='$i_sysmode'
|
|
i_sysmount='$i_sysmount'
|
|
i_sysndir='$i_sysndir'
|
|
i_sysparam='$i_sysparam'
|
|
i_sysresrc='$i_sysresrc'
|
|
i_syssecrt='$i_syssecrt'
|
|
i_sysselct='$i_sysselct'
|
|
i_syssockio='$i_syssockio'
|
|
i_sysstat='$i_sysstat'
|
|
i_sysstatfs='$i_sysstatfs'
|
|
i_sysstatvfs='$i_sysstatvfs'
|
|
i_systime='$i_systime'
|
|
i_systimek='$i_systimek'
|
|
i_systimes='$i_systimes'
|
|
i_systypes='$i_systypes'
|
|
i_sysuio='$i_sysuio'
|
|
i_sysun='$i_sysun'
|
|
i_sysutsname='$i_sysutsname'
|
|
i_sysvfs='$i_sysvfs'
|
|
i_syswait='$i_syswait'
|
|
i_termio='$i_termio'
|
|
i_termios='$i_termios'
|
|
i_time='$i_time'
|
|
i_unistd='$i_unistd'
|
|
i_ustat='$i_ustat'
|
|
i_utime='$i_utime'
|
|
i_values='$i_values'
|
|
i_varargs='$i_varargs'
|
|
i_varhdr='$i_varhdr'
|
|
i_vfork='$i_vfork'
|
|
ignore_versioned_solibs='$ignore_versioned_solibs'
|
|
inc_version_list='$inc_version_list'
|
|
inc_version_list_init='$inc_version_list_init'
|
|
incpath='$incpath'
|
|
inews='$inews'
|
|
installarchlib='$installarchlib'
|
|
installbin='$installbin'
|
|
installman1dir='$installman1dir'
|
|
installman3dir='$installman3dir'
|
|
installprefix='$installprefix'
|
|
installprefixexp='$installprefixexp'
|
|
installprivlib='$installprivlib'
|
|
installscript='$installscript'
|
|
installsitearch='$installsitearch'
|
|
installsitebin='$installsitebin'
|
|
installsitelib='$installsitelib'
|
|
installstyle='$installstyle'
|
|
installusrbinperl='$installusrbinperl'
|
|
installvendorarch='$installvendorarch'
|
|
installvendorbin='$installvendorbin'
|
|
installvendorlib='$installvendorlib'
|
|
intsize='$intsize'
|
|
issymlink='$issymlink'
|
|
ivdformat='$ivdformat'
|
|
ivsize='$ivsize'
|
|
ivtype='$ivtype'
|
|
known_extensions='$known_extensions'
|
|
ksh='$ksh'
|
|
ld='$ld'
|
|
lddlflags='$lddlflags'
|
|
ldflags='$ldflags'
|
|
ldflags_uselargefiles='$ldflags_uselargefiles'
|
|
ldlibpthname='$ldlibpthname'
|
|
less='$less'
|
|
lib_ext='$lib_ext'
|
|
libc='$libc'
|
|
libperl='$libperl'
|
|
libpth='$libpth'
|
|
libs='$libs'
|
|
libsdirs='$libsdirs'
|
|
libsfiles='$libsfiles'
|
|
libsfound='$libsfound'
|
|
libspath='$libspath'
|
|
libswanted='$libswanted'
|
|
libswanted_uselargefiles='$libswanted_uselargefiles'
|
|
line='$line'
|
|
lint='$lint'
|
|
lkflags='$lkflags'
|
|
ln='$ln'
|
|
lns='$lns'
|
|
locincpth='$locincpth'
|
|
loclibpth='$loclibpth'
|
|
longdblsize='$longdblsize'
|
|
longlongsize='$longlongsize'
|
|
longsize='$longsize'
|
|
lp='$lp'
|
|
lpr='$lpr'
|
|
ls='$ls'
|
|
lseeksize='$lseeksize'
|
|
lseektype='$lseektype'
|
|
mail='$mail'
|
|
mailx='$mailx'
|
|
make='$make'
|
|
make_set_make='$make_set_make'
|
|
mallocobj='$mallocobj'
|
|
mallocsrc='$mallocsrc'
|
|
malloctype='$malloctype'
|
|
man1dir='$man1dir'
|
|
man1direxp='$man1direxp'
|
|
man1ext='$man1ext'
|
|
man3dir='$man3dir'
|
|
man3direxp='$man3direxp'
|
|
man3ext='$man3ext'
|
|
mips_type='$mips_type'
|
|
mkdir='$mkdir'
|
|
mmaptype='$mmaptype'
|
|
modetype='$modetype'
|
|
more='$more'
|
|
multiarch='$multiarch'
|
|
mv='$mv'
|
|
myarchname='$myarchname'
|
|
mydomain='$mydomain'
|
|
myhostname='$myhostname'
|
|
myuname='$myuname'
|
|
n='$n'
|
|
netdb_hlen_type='$netdb_hlen_type'
|
|
netdb_host_type='$netdb_host_type'
|
|
netdb_name_type='$netdb_name_type'
|
|
netdb_net_type='$netdb_net_type'
|
|
nm='$nm'
|
|
nm_opt='$nm_opt'
|
|
nm_so_opt='$nm_so_opt'
|
|
nonxs_ext='$nonxs_ext'
|
|
nroff='$nroff'
|
|
nvEUformat='$nvEUformat'
|
|
nvFUformat='$nvFUformat'
|
|
nvGUformat='$nvGUformat'
|
|
nveformat='$nveformat'
|
|
nvfformat='$nvfformat'
|
|
nvgformat='$nvgformat'
|
|
nvsize='$nvsize'
|
|
nvtype='$nvtype'
|
|
o_nonblock='$o_nonblock'
|
|
obj_ext='$obj_ext'
|
|
old_pthread_create_joinable='$old_pthread_create_joinable'
|
|
optimize='$optimize'
|
|
orderlib='$orderlib'
|
|
osname='$osname'
|
|
osvers='$osvers'
|
|
otherlibdirs='$otherlibdirs'
|
|
package='$package'
|
|
pager='$pager'
|
|
passcat='$passcat'
|
|
patchlevel='$patchlevel'
|
|
path_sep='$path_sep'
|
|
perl5='$perl5'
|
|
perl='$perl'
|
|
perladmin='$perladmin'
|
|
perllibs='$perllibs'
|
|
perlpath='$perlpath'
|
|
pg='$pg'
|
|
phostname='$phostname'
|
|
pidtype='$pidtype'
|
|
plibpth='$plibpth'
|
|
pm_apiversion='$pm_apiversion'
|
|
pmake='$pmake'
|
|
pr='$pr'
|
|
prefix='$prefix'
|
|
prefixexp='$prefixexp'
|
|
privlib='$privlib'
|
|
privlibexp='$privlibexp'
|
|
prototype='$prototype'
|
|
ptrsize='$ptrsize'
|
|
quadkind='$quadkind'
|
|
quadtype='$quadtype'
|
|
randbits='$randbits'
|
|
randfunc='$randfunc'
|
|
randseedtype='$randseedtype'
|
|
ranlib='$ranlib'
|
|
rd_nodata='$rd_nodata'
|
|
revision='$revision'
|
|
rm='$rm'
|
|
rmail='$rmail'
|
|
runnm='$runnm'
|
|
sPRIEUldbl='$sPRIEUldbl'
|
|
sPRIFUldbl='$sPRIFUldbl'
|
|
sPRIGUldbl='$sPRIGUldbl'
|
|
sPRIXU64='$sPRIXU64'
|
|
sPRId64='$sPRId64'
|
|
sPRIeldbl='$sPRIeldbl'
|
|
sPRIfldbl='$sPRIfldbl'
|
|
sPRIgldbl='$sPRIgldbl'
|
|
sPRIi64='$sPRIi64'
|
|
sPRIo64='$sPRIo64'
|
|
sPRIu64='$sPRIu64'
|
|
sPRIx64='$sPRIx64'
|
|
sSCNfldbl='$sSCNfldbl'
|
|
sched_yield='$sched_yield'
|
|
scriptdir='$scriptdir'
|
|
scriptdirexp='$scriptdirexp'
|
|
sed='$sed'
|
|
seedfunc='$seedfunc'
|
|
selectminbits='$selectminbits'
|
|
selecttype='$selecttype'
|
|
sendmail='$sendmail'
|
|
sh='$sh'
|
|
shar='$shar'
|
|
sharpbang='$sharpbang'
|
|
shmattype='$shmattype'
|
|
shortsize='$shortsize'
|
|
shrpenv='$shrpenv'
|
|
shsharp='$shsharp'
|
|
sig_count='$sig_count'
|
|
sig_name='$sig_name'
|
|
sig_name_init='$sig_name_init'
|
|
sig_num='$sig_num'
|
|
sig_num_init='$sig_num_init'
|
|
signal_t='$signal_t'
|
|
sitearch='$sitearch'
|
|
sitearchexp='$sitearchexp'
|
|
sitebin='$sitebin'
|
|
sitebinexp='$sitebinexp'
|
|
sitelib='$sitelib'
|
|
sitelib_stem='$sitelib_stem'
|
|
sitelibexp='$sitelibexp'
|
|
siteprefix='$siteprefix'
|
|
siteprefixexp='$siteprefixexp'
|
|
sizesize='$sizesize'
|
|
sizetype='$sizetype'
|
|
sleep='$sleep'
|
|
smail='$smail'
|
|
so='$so'
|
|
sockethdr='$sockethdr'
|
|
socketlib='$socketlib'
|
|
socksizetype='$socksizetype'
|
|
sort='$sort'
|
|
spackage='$spackage'
|
|
spitshell='$spitshell'
|
|
src='$src'
|
|
ssizetype='$ssizetype'
|
|
startperl='$startperl'
|
|
startsh='$startsh'
|
|
static_ext='$static_ext'
|
|
stdchar='$stdchar'
|
|
stdio_base='$stdio_base'
|
|
stdio_bufsiz='$stdio_bufsiz'
|
|
stdio_cnt='$stdio_cnt'
|
|
stdio_filbuf='$stdio_filbuf'
|
|
stdio_ptr='$stdio_ptr'
|
|
stdio_stream_array='$stdio_stream_array'
|
|
strings='$strings'
|
|
submit='$submit'
|
|
subversion='$subversion'
|
|
sysman='$sysman'
|
|
tail='$tail'
|
|
tar='$tar'
|
|
tbl='$tbl'
|
|
tee='$tee'
|
|
test='$test'
|
|
timeincl='$timeincl'
|
|
timetype='$timetype'
|
|
touch='$touch'
|
|
tr='$tr'
|
|
trnl='$trnl'
|
|
troff='$troff'
|
|
u16size='$u16size'
|
|
u16type='$u16type'
|
|
u32size='$u32size'
|
|
u32type='$u32type'
|
|
u64size='$u64size'
|
|
u64type='$u64type'
|
|
u8size='$u8size'
|
|
u8type='$u8type'
|
|
uidformat='$uidformat'
|
|
uidsign='$uidsign'
|
|
uidsize='$uidsize'
|
|
uidtype='$uidtype'
|
|
uname='$uname'
|
|
uniq='$uniq'
|
|
uquadtype='$uquadtype'
|
|
use5005threads='$use5005threads'
|
|
use64bitall='$use64bitall'
|
|
use64bitint='$use64bitint'
|
|
usedl='$usedl'
|
|
useithreads='$useithreads'
|
|
uselargefiles='$uselargefiles'
|
|
uselongdouble='$uselongdouble'
|
|
usemorebits='$usemorebits'
|
|
usemultiplicity='$usemultiplicity'
|
|
usemymalloc='$usemymalloc'
|
|
usenm='$usenm'
|
|
useopcode='$useopcode'
|
|
useperlio='$useperlio'
|
|
useposix='$useposix'
|
|
usesfio='$usesfio'
|
|
useshrplib='$useshrplib'
|
|
usesocks='$usesocks'
|
|
usethreads='$usethreads'
|
|
usevendorprefix='$usevendorprefix'
|
|
usevfork='$usevfork'
|
|
usrinc='$usrinc'
|
|
uuname='$uuname'
|
|
uvXUformat='$uvXUformat'
|
|
uvoformat='$uvoformat'
|
|
uvsize='$uvsize'
|
|
uvtype='$uvtype'
|
|
uvuformat='$uvuformat'
|
|
uvxformat='$uvxformat'
|
|
vendorarch='$vendorarch'
|
|
vendorarchexp='$vendorarchexp'
|
|
vendorbin='$vendorbin'
|
|
vendorbinexp='$vendorbinexp'
|
|
vendorlib='$vendorlib'
|
|
vendorlib_stem='$vendorlib_stem'
|
|
vendorlibexp='$vendorlibexp'
|
|
vendorprefix='$vendorprefix'
|
|
vendorprefixexp='$vendorprefixexp'
|
|
version='$version'
|
|
versiononly='$versiononly'
|
|
vi='$vi'
|
|
voidflags='$voidflags'
|
|
xlibpth='$xlibpth'
|
|
xs_apiversion='$xs_apiversion'
|
|
yacc='$yacc'
|
|
yaccflags='$yaccflags'
|
|
zcat='$zcat'
|
|
zip='$zip'
|
|
EOT
|
|
|
|
: Add in command line options if available
|
|
$test -f UU/cmdline.opt && $cat UU/cmdline.opt >> config.sh
|
|
|
|
: add special variables
|
|
$test -f $src/patchlevel.h && \
|
|
awk '/^#define[ ]+PERL_/ {printf "%s=%s\n",$2,$3}' $src/patchlevel.h >>config.sh
|
|
echo "CONFIGDOTSH=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
|
|
set X `cat UU/oldsyms`
|
|
shift
|
|
case $# in
|
|
0) ;;
|
|
*)
|
|
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
|
|
for sym in `cat UU/oldsyms`; do
|
|
echo " Propagating $hint variable "'$'"$sym..."
|
|
eval 'tmp="$'"${sym}"'"'
|
|
echo "$tmp" | \
|
|
sed -e "s/'/'\"'\"'/g" -e "s/^/$sym='/" -e "s/$/'/" >>config.sh
|
|
done
|
|
;;
|
|
esac
|
|
fi
|
|
|
|
: Finish up by extracting the .SH files
|
|
case "$alldone" in
|
|
exit)
|
|
$rm -rf UU
|
|
echo "Done."
|
|
exit 0
|
|
;;
|
|
cont)
|
|
;;
|
|
'')
|
|
dflt=''
|
|
nostick=true
|
|
$cat <<EOM
|
|
|
|
If you'd like to make any changes to the config.sh file before I begin
|
|
to configure things, do it as a shell escape now (e.g. !vi config.sh).
|
|
|
|
EOM
|
|
rp="Press return or use a shell escape to edit config.sh:"
|
|
. UU/myread
|
|
nostick=''
|
|
case "$ans" in
|
|
'') ;;
|
|
*) : in case they cannot read
|
|
sh 1>&4 -c "$ans";;
|
|
esac
|
|
;;
|
|
esac
|
|
|
|
: if this fails, just run all the .SH files by hand
|
|
. ./config.sh
|
|
|
|
echo " "
|
|
exec 1>&4
|
|
. ./UU/extract
|
|
|
|
if $contains '^depend:' [Mm]akefile >/dev/null 2>&1; then
|
|
dflt=y
|
|
case "$silent" in
|
|
true) ;;
|
|
*)
|
|
$cat <<EOM
|
|
|
|
Now you need to generate make dependencies by running "$make depend".
|
|
You might prefer to run it in background: "$make depend > makedepend.out &"
|
|
It can take a while, so you might not want to run it right now.
|
|
|
|
EOM
|
|
;;
|
|
esac
|
|
rp="Run $make depend now?"
|
|
. UU/myread
|
|
case "$ans" in
|
|
y*)
|
|
$make depend && echo "Now you must run '$make'."
|
|
;;
|
|
*)
|
|
echo "You must run '$make depend' then '$make'."
|
|
;;
|
|
esac
|
|
elif test -f [Mm]akefile; then
|
|
echo " "
|
|
echo "Now you must run a $make."
|
|
else
|
|
echo "Done."
|
|
fi
|
|
|
|
if $test -f Policy.sh; then
|
|
$cat <<EOM
|
|
|
|
If you compile $package on a different machine or from a different object
|
|
directory, copy the Policy.sh file from this object directory to the
|
|
new one before you run Configure -- this will help you with most of
|
|
the policy defaults.
|
|
|
|
EOM
|
|
fi
|
|
if $test -f config.msg; then
|
|
echo "Hmm. I also noted the following information while running:"
|
|
echo " "
|
|
$cat config.msg >&4
|
|
$rm -f config.msg
|
|
fi
|
|
$rm -f kit*isdone ark*isdone
|
|
$rm -rf UU
|
|
|
|
: End of Configure
|
|
|