?T:inctest thisincl xxx inclwanted ftry previous thislibdir
?T:EBUGGING DEBUGGING
?T:check flag callback checkccflag
+?F:!cpp.c !gcctest !try
?D:cppflags=''
?D:ccflags=''
?D:ldflags=''
?X: when run from within `backticks`. What fun.
?X: --Andy Dougherty 2/13/1998
if $sh -c "$cc -o try $optimize $ccflags $ldflags try.c $libs" >>try.msg 2>&1; then
- if $sh -c "$run ./try" >>try.msg 2>&1; then
+ if $sh -c "$run ./try " >>try.msg 2>&1; then
xxx=`$run ./try`
case "$xxx" in
"Ok") dflt=n ;;
;;
n) echo "OK, that should do.";;
esac
-$rm_try gcctest.out
+$rm_try gcctest gcctest.out
?RCS: $Id: d_eofpipe.U,v 3.0.1.1 1994/10/29 16:12:40 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
?C:.
?H:#$d_eofpipe EOFPIPE /**/
?H:.
+?F:!mpipe
: see if pipe correctly gives the EOF condition
echo " "
case "$d_eofpipe" in
select(32, &mask, (int *) 0, (int *) 0, (char *) 0);
if (0 == read(pd[0], &mask, 1))
exit(0);
-
+
exit(1);
}
EOP
?H:#$d_eofnblk EOF_NONBLOCK
?H:.
?T:status
-?F:!try.out !try.ret !try.err !try
+?F:!try.out !try.ret !try.err !try !mtry
?LINT:use d_open3
: check for non-blocking I/O stuff
case "$h_sysfile" in
?S: needed to generate random libraries. Set to ":" if ar can generate
?S: random libraries or if random libraries are not supported
?S:.
+?F:!foobar
: see if ar generates random libraries by itself
echo " "
echo "Checking how to generate random libraries on your machine..." >&4
?RCS: $Id: sbrksmart.U,v 3.0.1.2 1995/01/11 15:35:41 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:#$sbrksmart HAS_SMART_SBRK /**/
?H:.
?T:dumb
+?F:!sbrk
: see if sbrk can release core to the kernel
echo " "
case "$d_sbrk" in
?RCS: $Id: sockopt.U,v 3.0.1.1 1995/07/25 14:16:14 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
?C:.
?H:#$d_keepalive CAN_KEEPALIVE /**/
?H:.
+?F:!socket
?LINT:set d_keepalive
: see if setsockopt with SO_KEEPALIVE works as advertised
echo " "
prefix prefixexp installprefix installprefixexp
?MAKE: -pick add $@ %<
?LINT:extern prefixvar
-?T:exp
+?X: metalins still sees "`\$${prefixvar}exp`" as variable :(
+?T:prefixvarexp
?F:./setprefixvar
?F:./installprefix
: Perform the prefixexp/installprefixexp correction if necessary
EOS
cat <<'EOSC' >>setprefixvar
eval "${prefixvar}=\"\$ans\""
-?X: metalint will see the next line as one that assigns to $exp
-?X: declaring exp as a temp with ?T: variable exp will catch that.
eval "${prefixvar}exp=\"\$ansexp\""
. ./installprefix
EOSC
?C:.
?H:#$d_inc_version_list PERL_INC_VERSION_LIST $inc_version_list_init /**/
?H:.
-?T: stem d pversion aversion vsn5005 _
+?T:stem
: Determine list of previous versions to include in @INC
$cat > getverlist <<EOPL
#!$perl5 -w
?RCS: $Id: Oldsym.U,v 3.0.1.1 1997/02/28 15:06:58 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:13 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
-?X:
+?X:
?X: This unit follows the creation of the config.sh file. It adds some
?X: special symbols: defines from patchlevel.h file if any and PERL_CONFIG_SH,
?X: which is set to true. Then, we try to keep all the new symbols that
?X: may come from a hint file or a previous config.sh file.
-?X:
+?X:
?MAKE:Oldsym: Config_sh cat test hint src sort uniq perl_patchlevel
?MAKE: -pick add $@ %<
?T:PERL_CONFIG_SH PERL_PATCHLEVEL sym tmp s
+?F:!UU
?X: Command line options can be saved by the Options.U unit in the
?X: temporary file UU/cmdline.opt.
: Add in command line options if available
?X: the uniq -u command. The oldsyms file thus contains all the symbols
?X: that did not appear in the produced config.sh (Larry Wall).
?X:
-?X: Do not touch the -u flag of uniq. This means you too, Jarkko.
+?X: Do not touch the -u flag of uniq. This means you too, Jarkko.
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`
?RCS: $Id: Signal.U,v 3.0.1.1 1997/02/28 15:20:01 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
?X: signal.cmd vs. signal.
?X: The signal_cmd script also falls back on checking signals one at a
?X: time in case the signal.c program fails. On at least one version of
-?X: Linux 2.1.x, the header file #define'd SIGRTMAX to a symbol that
+?X: Linux 2.1.x, the header file #define'd SIGRTMAX to a symbol that
?X: is not defined by the compiler/linker. :-(. Further, on that same
-?X: version of Linux, the user had a defective C-shell that gave an
+?X: version of Linux, the user had a defective C-shell that gave an
?X: incorrect list for kill -l, so the fall-back didn't work.
?X:
?X: This unit is then used by sig_name.U.
else
xxx=`echo '#include <signal.h>' |
$cppstdin $cppminus $cppflags 2>/dev/null |
- $grep '^[ ]*#.*include' |
+ $grep '^[ ]*#.*include' |
$awk "{print \\$$fieldn}" | $sed 's!"!!g' | $sed 's!\\\\\\\\!/!g' | $sort | $uniq`
fi
: Check this list of files to be sure we have parsed the cpp output ok.
-: This will also avoid potentially non-existent files, such
+: This will also avoid potentially non-existent files, such
: as ../foo/bar.h
xxxfiles=''
?X: Add /dev/null in case the $xxx list is empty.
if (sig_name[$2]) {
dup_name[ndups] = $1
dup_num[ndups] = $2
- ndups++
+ ndups++
}
else {
sig_name[$2] = $1
sig_num[$2] = $2
}
}
-END {
+END {
if (nsig == 0) {
nsig = maxsig + 1
}
printf("%s %d\n", sig_name[n], sig_num[n])
}
else {
- printf("NUM%d %d\n", n, n)
+ printf("NUM%d %d\n", n, n)
}
}
for (n = 0; n < ndups; n++) {
?RCS: $Id: cpp_stuff.U,v 3.0.1.1 1994/10/29 16:08:24 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
?C: It might not exist, so #ifdef it in your code!
?C:.
?X: Dist pl70 included the following, but AIX's xlc compiler
-?X: (which is ANSI-ish and has cpp_stuff == 42)) rejects
+?X: (which is ANSI-ish and has cpp_stuff == 42)) rejects
?X: The SQuoTe/EQuoTe stuff because the string literals are on
?X: separate lines. Sigh.
?X: Andy Dougherty 24 Feb 1998
?H:?%<: /* If you can get stringification with catify, tell me how! */
?H:?%<:#endif
?H:?%<:#if $cpp_stuff == 42
-?H:?%<:#define PeRl_CaTiFy(a, b) a ## b
+?H:?%<:#define PeRl_CaTiFy(a, b) a ## b
?H:?%<:#define PeRl_StGiFy(a) #a
?H:?%<:/* the additional level of indirection enables these macros to be
?H:?%<: * used as arguments to other macros. See K&R 2nd ed., page 231. */
?RCS: $Id: cppstdin.U,v 3.0.1.4 1994/10/29 16:08:34 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: $Id: d_attribut.U,v 3.0.1.3 1995/01/30 14:33:45 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: $Id: d_dosuid.U,v 3.0.1.2 1997/02/28 15:33:03 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: Tye McQueen <tye@metronet.com> added safe setuid script checks.
?RCS:
?RCS: $Log: d_dosuid.U,v $
?RCS: $Id: d_htonl.U,v 3.0.1.2 1994/08/29 16:09:25 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: $Id: d_socket.U,v 3.0.1.2 1997/02/28 15:46:00 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: $Id: i_varhdr.U,v 3.0.1.3 1997/02/28 15:54:42 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
val="$undef"; set i_stdarg; eval $setvar
val="$undef"; set i_varargs; eval $setvar
;;
-*)
+*)
set i_varhdr
eval $setvar
case "$i_varhdr" in
?RCS: $Id: models.U,v 3.0.1.2 1997/02/28 16:13:17 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
*) dflt="$models";;
esac
$cat <<EOM
-
+
Some systems have different model sizes. On most systems they are called
small, medium, large, and huge. On the PDP11 they are called unsplit and
split. If your system doesn't support different memory models, say "none".
?RCS: $Id: sig_name.U,v 3.0.1.5 1997/02/28 16:21:25 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: $Id: spitshell.U,v 3.0.1.4 1997/02/28 16:22:12 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: $Id: stdchar.U,v 3.0 1993/08/18 12:09:52 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:.
?LINT:set d_dlsymun
?T: xxx
+?F:!fred
: Check if dlsym need a leading underscore
echo " "
val="$undef"
}
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 $ldflags $lddlflags tmp-dyna${_o} > /dev/null 2>&1 &&
+ 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 $ldflags $lddlflags tmp-dyna${_o} > /dev/null 2>&1 &&
$cc -o fred $ccflags $ldflags $cccdlflags $ccdlflags fred.c $libs > /dev/null 2>&1 && $to dyna.$dlext; then
xxx=`$run ./fred`
case $xxx in
fi
;;
esac
-
+
$rm -f fred fred.* dyna.$dlext dyna.* tmp-dyna.*
set d_dlsymun
?RCS: $Id$
?RCS:
?RCS: Copyright (c) 1999, Jarkko Hietaniemi
-?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
?C:.
?H:#$d_ldbl_dig HAS_LDBL_DIG /* */
?H:.
+?F:!ldbl_dig.c
?LINT:set d_ldbl_dig
: See if number of significant digits in a double precision number is known
echo " "
?H:.
?W:%<:dlopen
?T:dldir thisflag tdir
+?F:!a.out
: determine which dynamic loading, if any, to compile in
echo " "
dldir="ext/DynaLoader"
?H:#$fflushall FFLUSH_ALL /**/
?H:.
?T:output code
-?F:!try.out !try
+?F:!try.out !try !tryp
: Check how to flush
echo " "
$cat >&4 <<EOM
EOM
;;
esac
-$rm_try
+$rm_try tryp
?LINT: set man5ext man6ext man7ext man8ext
?T: num s ts text
?X: eval fools metalint
-?T: ext man
+?T: man
: Determine locations for other man pages. For example, programs
: should place man4 pages in $prefix/man/$man4 with an extension
: of $man4ext. Use bsd naming conventions. See mandirstyle.
?RCS: You may distribute under the terms of either the GNU General Public
?RCS: License or the Artistic License, as specified in the README file.
?RCS:
-?MAKE:uselonglong: Myread Oldconfig Setvar cat test usemorebits ccflags
+?MAKE:uselonglong: Myread Oldconfig Setvar cat test ccflags
?MAKE: -pick add $@ %<
?Y:TOP
?S:uselonglong:
?RCS: You may distribute under the terms of either the GNU General Public
?RCS: License or the Artistic License, as specified in the README file.
?RCS:
-?X: This unit generates a $hasproto string that is used internally
-?X: by Configure to check if this system has a prototype for a
+?X: This unit generates a $hasproto string that is used internally
+?X: by Configure to check if this system has a prototype for a
?X: particular function
?X:
?X: To use it, say something like:
?X: eval $hasproto
?X: Or, for more complicated sets of headers, do something like
?X: hdrs="$define sys/types.h
-?X: $i_systime sys/time.h
+?X: $i_systime sys/time.h
?X: $i_sysselct sys/select.h
?X: $i_netdb netdb.h"
?X: set d_getnetent_proto getnetent $hdrs
?MAKE:Hasproto: Setvar cppstdin cppflags cppminus contains rm_try test
?MAKE: -pick add $@ %<
?T:func varname
+?F:!try.c
?V:hasproto
hasproto='varname=$1; func=$2; shift; shift;
while $test $# -ge 2; do
?RCS: $Id: Typedef.U,v 3.0.1.3 1995/07/25 13:42:07 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: it will call myread with a default of 'long', and a prompt of $rp.
?S:.
?T:type var def inclist varval inc
+?F:!temp.c
: define an is-a-typedef? function
typedef='type=$1; var=$2; def=$3; shift; shift; shift; inclist=$@;
case "$inclist" in