?RCS: $Id: Config_h.U,v 3.0.1.5 1997/02/28 14:57:43 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: Revision 3.0 1993/08/18 12:04:47 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
-?X:
+?X:
?X: This file ends up producing the config_h.SH script, which is run to produce
?X: the config.h file. The file ./.Config_h below contains all the ?H: lines
?X: extracted out of all the units. Metaconfig itself adds the !GROK!THIS!.
?X: 'dot' is allowed within the file name, as it is part of the "extension" of
?X: the file. MS-DOG will not let you have two 'dots' because that would mean
?X: two "extensions".
-?X:
+?X:
?MAKE:Config_h: Id End Config_sh Obsol_h myuname cf_time cf_by package src
?MAKE: -pick c_h_weed $@ %<
?MAKE: -pick c_h_weed $@ ./Config_h
?LINT:change CONFIG_H
?LINT:change CONFIG_SH
?T:PERL_CONFIG_SH TOP
+: Set up for generating config_h.SH
case "$CONFIG_SH" in
'') CONFIG_SH=config.sh ;;
esac
?X: is provision here for #un-def, which is translated back into #undef after
?X: all original #undef have been processed.
?X:
-?X: Previously, we changed all
-?X: #undef FOO /**/
+?X: Previously, we changed all
+?X: #undef FOO /**/
?X: into
-?X: /*#define FOO /**/
+?X: /*#define FOO /**/
?X: The xlc compiler (available on IBM's AIX) complains that this is
?X: an illegal attempt to write a nested comment, and warns against it.
?X: There's apparently no way to shut the compiler up, either.
?X: This sed command from Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
?X: changes it to
-?X: /*#define FOO / **/
+?X: /*#define FOO / **/
sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-def!#undef!'
/*
* This file was produced by running the config_h.SH script, which
?RCS: $Id: Init.U,v 3.0.1.1 1994/10/31 09:45:59 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: Revision 3.0 1993/08/18 12:05:02 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
-?X:
+?X:
?X: This file initializes certain default variables used by Configure. They
?X: may be overridden or added to by definitions in Myinit.U.
?X:
?LINT:extern _exe
?LINT:change _exe
?LINT:extern is_os2
+: Detect odd OSs
define='define'
undef='undef'
smallmach='pdp11 i8086 z8000 i80286 iAPX286'
?RCS: $Id: afs.U,v 3.0.1.2 1997/02/28 15:23:06 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?S: This variable is by default set to '/afs'. In the unlikely case
?S: this is not the correct root, it is possible to override this with
?S: a hint value or command line option. This will be used in subsequent
-?S: tests for AFSness in the Perl configure and test process.
+?S: tests for AFSness in the Perl configure and test process.
?S:.
+: is AFS running?
case "$afsroot" in
'') afsroot=/afs ;;
*) afsroot=$afsroot ;;
esac
-: is AFS running?
echo " "
case "$afs" in
$define|true) afs=true ;;
?RCS: $Id: cc.U,v 3.0.1.4 1995/05/12 12:06:47 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?D:cc='cc'
?LINT:change cpp
?LINT:extern ldflags
+: Checking the C compiler
case "$cc" in
'') dflt=cc;;
*) dflt="$cc";;
?RCS: $Id: cf_email.U,v 3.0.1.1 1994/01/24 14:05:06 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: that same Artistic Licence; a copy of which may be found at the root
?RCS: of the source tree for dist 3.0.
-?RCS:
+?RCS:
?RCS: $Log: cf_email.U,v $
?RCS: Revision 3.0.1.1 1994/01/24 14:05:06 ram
?RCS: patch16: created
?S: used by units that require the user's e-mail, like MailList.U.
?S:.
?T:cont
+: Ask for e-mail
$cat <<EOM
I need to get your e-mail address in Internet format if possible, i.e.
?MAKE:d_getpbyname d_getpbynumber: Inlibc
?MAKE: -pick add $@ %<
?S:d_getpbyname:
-?S: This variable conditionally defines the HAS_GETPROTOBYNAME
-?S: symbol, which indicates to the C program that the
+?S: This variable conditionally defines the HAS_GETPROTOBYNAME
+?S: symbol, which indicates to the C program that the
?S: getprotobyname() routine is available to look up protocols
?S: by their name.
?S:.
?S:d_getpbynumber:
-?S: This variable conditionally defines the HAS_GETPROTOBYNUMBER
-?S: symbol, which indicates to the C program that the
+?S: This variable conditionally defines the HAS_GETPROTOBYNUMBER
+?S: symbol, which indicates to the C program that the
?S: getprotobynumber() routine is available to look up protocols
?S: by their number.
?S:.
?H:#$d_getpbynumber HAS_GETPROTOBYNUMBER /**/
?H:.
?LINT:set d_getpbyname d_getpbynumber
+: Optional checks for getprotobyname and getprotobynumber
@if d_getpbyname || HAS_GETPROTOBYNAME
: see if getprotobyname exists
?MAKE:d_getsbyname d_getsbyport: Inlibc
?MAKE: -pick add $@ %<
?S:d_getsbyname:
-?S: This variable conditionally defines the HAS_GETSERVBYNAME
-?S: symbol, which indicates to the C program that the
+?S: This variable conditionally defines the HAS_GETSERVBYNAME
+?S: symbol, which indicates to the C program that the
?S: getservbyname() routine is available to look up services
?S: by their name.
?S:.
?S:d_getsbyport:
-?S: This variable conditionally defines the HAS_GETSERVBYPORT
-?S: symbol, which indicates to the C program that the
+?S: This variable conditionally defines the HAS_GETSERVBYPORT
+?S: symbol, which indicates to the C program that the
?S: getservbyport() routine is available to look up services
?S: by their port.
?S:.
?H:#$d_getsbyport HAS_GETSERVBYPORT /**/
?H:.
?LINT:set d_getsbyname d_getsbyport
+: Optional checks for getsbyname and getsbyport
@if d_getsbyname || HAS_GETSERVBYNAME
: see if getservbyname exists
?LINT:set d_sockpair
?LINT:set d_msg_ctrunc d_msg_dontroute d_msg_oob d_msg_peek d_msg_proxy
?LINT:set d_scm_rights
+: see whether socket exists
socketlib=''
sockethdr=''
-: see whether socket exists
echo " "
$echo $n "Hmm... $c" >&4
if set socket val -f d_socket; eval $csym; $val; then
?RCS: $Id: d_statblks.U,v 3.0 1993/08/18 12:07:29 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?H:?%<:#endif
?H:.
?LINT:set d_statblks
-
: see if stat knows about block sizes
echo " "
echo "Checking to see if your struct stat has st_blocks field..." >&4
?RCS: $Id: groupstype.U,v 3.0.1.2 1994/10/29 16:18:08 ram Exp $
?RCS:
?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS:
+?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?H:?%<:#endif
?H:.
?W:%<:getgroups HAS_GETGROUPS setgroups HAS_SETGROUPS
-
: Find type of 2nd arg to 'getgroups()' and 'setgroups()'
echo " "
case "$d_getgrps$d_setgrps" in
?LINT:extern libnames
?LINT:change nm_opt
?INIT:libnames=''
+: get list of predefined functions in a handy place
case "$runnm" in
true)
?X: indentation is wrong on purpose--RAM
-: get list of predefined functions in a handy place
echo " "
case "$libc" in
'') libc=unknown
?RCS: $Id$
?RCS:
?RCS: Copyright (c) 2000, Jarkko Hietaniemi
-?RCS:
-?X:
+?RCS:
+?X:
?X: This unit produces a bit of shell code that must be dotted in order
?X: to make quick check on whether the current C compiler is working.
-?X:
+?X:
?MAKE:Mksymlinks: lns issymlink src
?MAKE: -pick add $@ %<
?T: directory filename
?LINT:extern mksymlinks
-
+: Make symlinks util
case "$mksymlinks" in
$define|true|[yY]*)
case "$src" in
?H:#$d_cmsghdr_s HAS_STRUCT_CMSGHDR /**/
?H:.
?LINT:set d_cmsghdr_s
-
+: Check for cmsghdr support
echo " "
echo "Checking to see if your system supports struct cmsghdr..." >&4
set d_cmsghdr_s cmsghdr $i_systypes sys/types.h $d_socket sys/socket.h $i_sysuio sys/uio.h
?H:#$d_fpos64_t HAS_FPOS64_T /**/
?H:.
?LINT:set d_fpos64_t
-
: check for fpos64_t
echo " "
echo "Checking to see if you have fpos64_t..." >&4
?H:#$d_fs_data_s HAS_STRUCT_FS_DATA /**/
?H:.
?LINT:set d_fs_data_s
-
+: Check for fs_data_s
echo " "
echo "Checking to see if your system supports struct fs_data..." >&4
set d_fs_data_s fs_data $i_systypes sys/types.h $i_sysparam sys/param.h $i_sysmount sys/mount.h
?H:#$d_fstatfs HAS_FSTATFS /**/
?H:.
?LINT:set d_fstatfs
-
: see if fstatfs exists
set fstatfs d_fstatfs
eval $inlibc
?H:#$d_getfsstat HAS_GETFSSTAT /**/
?H:.
?LINT:set d_getfsstat
-
: see if getfsstat exists
set getfsstat d_getfsstat
eval $inlibc
?H:#$d_iovec_s HAS_STRUCT_IOVEC /**/
?H:.
?LINT:set d_iovec_s
+: Check for iovec_s
echo "Checking to see if your system supports struct iovec..." >&4
set d_iovec_s iovec iov_base $i_sysuio sys/uio.h
eval $hasfield
?H:#$d_msghdr_s HAS_STRUCT_MSGHDR /**/
?H:.
?LINT:set d_msghdr_s
-
+: Check for msghdr_s
echo " "
echo "Checking to see if your system supports struct msghdr..." >&4
set d_msghdr_s msghdr $i_systypes sys/types.h $d_socket sys/socket.h $i_sysuio sys/uio.h
?LINT:set d_sfio
?LINT:change libs
?LINT:change useperlio
-
: see if sfio library is available
case "$i_sfio" in
$define)
?H:?%<:#endif
?H:?%<:@end
?H:.
-
+: Check if site customization support was requested
case "$usesitecustomize" in
$define|true|[Yy]*)
usesitecustomize="$define"
?H:#$d_statfs HAS_STATFS /**/
?H:.
?LINT:set d_statfs
-
: see if statfs exists
set statfs d_statfs
eval $inlibc
?H:#$d_statfs3 HAS_STATFS3 /**/
?H:.
?LINT:set d_statfs3
-
+: Check for statfs3
case "$d_statfs" in
define)
$cat >try.h <<EOCP
?H:#$d_statfs4 HAS_STATFS4 /**/
?H:.
?LINT:set d_statfs4
-
+: Check for statfs4
case "$d_statfs" in
define)
$cat >try.h <<EOCP
?H:#$d_statfs_f_flags HAS_STRUCT_STATFS_F_FLAGS /**/
?H:.
?LINT:set d_statfs_f_flags
-
: see if struct statfs knows about f_flags
case "$d_statfs_s" in
-define)
+define)
echo " "
echo "Checking to see if your struct statfs has f_flags field..." >&4
set d_statfs_f_flags statfs f_flags $i_systypes sys/types.h $i_sysparam sys/param.h $i_sysmount sys/mount.h $i_sysvfs sys/vfs.h $i_sysstatfs sys/statfs.h
?H:#$d_statfs_s HAS_STRUCT_STATFS /**/
?H:.
?LINT:set d_statfs_s
-
+: Check for statfs_s
echo " "
echo "Checking to see if your system supports struct statfs..." >&4
set d_statfs_s statfs $i_systypes sys/types.h $i_sysparam sys/param.h $i_sysmount sys/mount.h $i_sysvfs sys/vfs.h $i_sysstatfs sys/statfs.h
?H:.
?LINT:set d_statvfs
?LINT:set d_fstatvfs
-
: see if statvfs exists
set statvfs d_statvfs
eval $inlibc
?LINT:set d_delete64
?LINT:set d_firstkey64
?LINT:set d_nextkey64
-
+: Check if DBM has 64bit functions
if $test X"$use64bitint" = X"$define"; then
: see if dbminit64 exists
set dbminit64 d_dbminit64
?RCS: $Log: dlext.U,v $
?RCS:
?X: hpux support thanks to Jeff Okamoto <okamoto@hpcc101.corp.hp.com>
-?X:
+?X:
?X: To create a shared library, you must compile ALL source files in the
?X: library with +z (or possibly +Z if the library is whopping huge),
?X: then link the library with -b. Example:
?X: cc -c +z module_a.c
?X: cc -c +z module_b.c
?X: ld -b module_a.o module_b.o -o module.sl
-?X:
+?X:
?MAKE:dlext: \
Getfile Myread cat usedl so
?MAKE: -pick add $@ %<
?S: This variable contains the extension that is to be used for the
?S: dynamically loaded modules that perl generaties.
?S:.
+: Check what extension to use for shared libs
case "$usedl" in
$define|y|true)
$cat << EOM
?H:#$i_assert I_ASSERT /**/
?H:.
?LINT:set i_assert
-
: see if this is a assert.h system
set assert.h i_assert
eval $inhdr
?H:#$i_syslog I_SYSLOG /**/
?H:.
?LINT:set i_syslog
-
: see if this is a syslog.h system
set syslog.h i_syslog
eval $inhdr
?H:#$i_sysmode I_SYSMODE /**/
?H:.
?LINT:set i_sysmode
-
: see if this is a sys/mode.h system
set sys/mode.h i_sysmode
eval $inhdr
?H:#$i_sysrusage I_SYSRUSAGE /**/
?H:.
?LINT:set i_sysrusage
-
: see if this is a sys/rusage.h system
set sys/rusage.h i_sysrusage
eval $inhdr
?H:#$i_sysstatfs I_SYS_STATFS /**/
?H:.
?LINT:set i_sysstatfs
-
: see if this is a sys/statfs.h system
set sys/statfs.h i_sysstatfs
eval $inhdr
?H:#$i_sysutsname I_SYSUTSNAME /**/
?H:.
?LINT:set i_sysutsname
-
: see if this is a sys/utsname.h system
set sys/utsname.h i_sysutsname
eval $inhdr
?H:#$i_sysvfs I_SYS_VFS /**/
?H:.
?LINT:set i_sysvfs
-
: see if this is a sys/vfs.h system
set sys/vfs.h i_sysvfs
eval $inhdr
?S:.
?S:shrpenv:
?S: If the user builds a shared libperl.so, then we need to tell the
-?S: 'perl' executable where it will be able to find the installed libperl.so.
+?S: 'perl' executable where it will be able to find the installed libperl.so.
?S: One way to do this on some systems is to set the environment variable
?S: LD_RUN_PATH to the directory that will be the final location of the
?S: shared libperl.so. The makefile can use this with something like
?LINT:change ccdlflags
?LINT:extern maintloc maintname
?Y:top
+: Do we want a share libperl?
also=''
case "$usedl" in
$undef)
xxx=''
tmp_shrpenv=''
if "$useshrplib"; then
- case "$osname" in
+ case "$osname" in
aix)
# We'll set it in Makefile.SH...
;;
esac
case "$xxx" in
'') ;;
- *)
+ *)
# Only add $xxx if it isn't already in ccdlflags.
case " $ccdlflags " in
*" $xxx "*) ;;
cat <<EOM >&4
Adding $xxx to the flags
-passed to $ld so that the perl executable will find the
+passed to $ld so that the perl executable will find the
installed shared $libperl.
EOM
?S:perladmin:
?S: Electronic mail address of the perl5 administrator.
?S:.
+: Ask e-mail of administrator
$cat <<EOM
If you or somebody else will be maintaining perl at your site, please
?MAKE: -pick add $@ %<
?S:ivdformat:
?S: This variable contains the format string used for printing
-?S: a Perl IV as a signed decimal integer.
+?S: a Perl IV as a signed decimal integer.
?S:.
?S:uvuformat:
?S: This variable contains the format string used for printing
-?S: a Perl UV as an unsigned decimal integer.
+?S: a Perl UV as an unsigned decimal integer.
?S:.
?S:uvoformat:
?S: This variable contains the format string used for printing
-?S: a Perl UV as an unsigned octal integer.
+?S: a Perl UV as an unsigned octal integer.
?S:.
?S:uvxformat:
?S: This variable contains the format string used for printing
?H:#define NVFf $nvFUformat /**/
?H:#define NVGf $nvGUformat /**/
?H:.
-
+: Check format strings for internal types
echo " "
$echo "Checking the format strings to be used for Perl's internal types..." >&4
?LINT:set d_ftell64
?LINT:set d_ftello64
?LINT:set d_tmpfile64
-
+: Check for 64bit versions of basic file IO
if $test X"$use64bitint" = X"$define"; then
: see if fgetpos64 exists
set fgetpos64 d_fgetpos64
?LINT:extern use64bitsall
?F:!use64bitint.cbu
?F:!use64bitall.cbu
-
+: Do we want 64bit support
case "$uselonglong" in
"$define"|true|[yY]*)
cat <<EOM >&4
?INIT:: set usecjk on the Configure command line to enable cjk.
?X: We should really have some explanatory text here, and some
?X: automatic setting of sensible defaults.
+: Check for CJK support
case "$usecjk" in
''|$define|true|[yY]*) dflt='y';;
*) dflt='n';;
?H:.
?T:xversion
?LINT:set usefaststdio
+: Check if faststdio is requested and available
case "$usefaststdio" in
$define|true|[yY]*|'')
xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
rp='Use the "fast stdio" if available?'
. ./myread
case "$ans" in
-y|Y) val="$define" ;;
+y|Y) val="$define" ;;
*) val="$undef" ;;
esac
set usefaststdio
?LINT:extern ccflags
?LINT:use usemorebits
?F:!uselongdouble.cbu
+: Check for uselongdouble support
case "$ccflags" in
*-DUSE_LONG_DOUBLE*|*-DUSE_MORE_BITS*) uselongdouble="$define" ;;
esac
?H:.
?LINT:extern ccflags
?F:!uselonglong.cbu
+: Check for longlong support
case "$uselonglong" in
''|true|[yY]*) uselonglong="$define" ;;
*) case "$ccflags" in
?LINT:change use64bitint
?LINT:extern uselongdouble
?LINT:change uselongdouble
-
+: Check if morebits is requested
case "$usemorebits" in
"$define"|true|[yY]*)
use64bitint="$define"
?H:.
?LINT:set usemultiplicity
?INIT:: set usemultiplicity on the Configure command line to enable multiplicity.
+: Check if multiplicity is required
?X: We should really have some explanatory text here, and some
?X: automatic setting of sensible defaults.
cat <<EOM
?H:?%<:#endif
?H:.
?LINT:set useperlio
+: Check if we want perlio
case "$useperlio" in
$define|true|[yY]*|'') dflt='y';;
*) dflt='n';;
rp='Use the PerlIO abstraction layer?'
. ./myread
case "$ans" in
-y|Y)
+y|Y)
val="$define"
;;
-*)
+*)
echo "Ok, doing things the stdio way."
val="$undef"
;;
esac
set useperlio
-eval $setvar
+eval $setvar
case "$usesocks" in
$define|true|[yY]*)
;;
esac
-
?LINT:extern useperlio
?LINT:change useperlio
?INIT:: set usesocks on the Configure command line to enable socks.
+: Check is we will use socks
?X: We should really have some explanatory text here, and some
?X: automatic setting of sensible defaults.
case "$usesocks" in
?MAKE: -pick add $@ %<
?T:varname struct field
?V:hasfield
+: Define hasfield macro for Configure internal use
hasfield='varname=$1; struct=$2; field=$3; shift; shift; shift;
while $test $# -ge 2; do
case "$1" in
?T:func varname
?F:!try.c
?V:hasproto
+: Define hasproto macro for Configure internal use
hasproto='varname=$1; func=$2; shift; shift;
while $test $# -ge 2; do
case "$1" in
?MAKE: -pick add $@ %<
?T:varname struct
?V:hasstruct
+: Define hasstruct macro for Configure internal use
hasstruct='varname=$1; struct=$2; shift; shift;
while $test $# -ge 2; do
case "$1" in
?H:#$d_sched_yield HAS_SCHED_YIELD /**/
?H:.
?LINT: set d_pthread_yield d_sched_yield
-
: see whether the various POSIXish _yields exist
$cat >try.c <<EOP
#include <pthread.h>
?C:.
?H:#define Gid_t_f $gidformat /**/
?H:.
+: Check format string for GID
echo " "
$echo "Checking the format string to be used for gids..." >&4
?C:.
?H:#define Uid_t_f $uidformat /**/
?H:.
-
+: Check format string for UID
echo " "
$echo "Checking the format string to be used for uids..." >&4
https://perl5.git.perl.org / metaconfig.git / commitdiff