mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
7d2d29f684
You will just get a bunch of these from makedepend: Finding dependencies for av.o. Label too long: : testcont According to POSIX, it should, eight being the minimum supported length. Shoulda woulda coulda. Label of length seven seems to be fine.
267 lines
9.0 KiB
Bash
Executable File
267 lines
9.0 KiB
Bash
Executable File
#! /bin/sh
|
|
case $PERL_CONFIG_SH in
|
|
'')
|
|
if test -f config.sh; then TOP=.;
|
|
elif test -f ../config.sh; then TOP=..;
|
|
elif test -f ../../config.sh; then TOP=../..;
|
|
elif test -f ../../../config.sh; then TOP=../../..;
|
|
elif test -f ../../../../config.sh; then TOP=../../../..;
|
|
else
|
|
echo "Can't find config.sh."; exit 1
|
|
fi
|
|
. $TOP/config.sh
|
|
;;
|
|
esac
|
|
: This forces SH files to create target in same directory as SH file.
|
|
: This is so that make depend always knows where to find SH derivatives.
|
|
case "$0" in
|
|
*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
|
|
esac
|
|
|
|
echo "Extracting makedepend (with variable substitutions)"
|
|
rm -f makedepend
|
|
$spitshell >makedepend <<!GROK!THIS!
|
|
$startsh
|
|
# makedepend.SH
|
|
#
|
|
MAKE=$make
|
|
trnl='$trnl'
|
|
!GROK!THIS!
|
|
$spitshell >>makedepend <<'!NO!SUBS!'
|
|
|
|
if test -d .depending; then
|
|
echo "$0: Already running, exiting."
|
|
exit 0
|
|
fi
|
|
|
|
mkdir .depending
|
|
|
|
# This script should be called with
|
|
# sh ./makedepend MAKE=$(MAKE)
|
|
case "$1" in
|
|
MAKE=*) eval $1; shift ;;
|
|
esac
|
|
|
|
export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
|
|
|
|
case $PERL_CONFIG_SH in
|
|
'')
|
|
if test -f config.sh; then TOP=.;
|
|
elif test -f ../config.sh; then TOP=..;
|
|
elif test -f ../../config.sh; then TOP=../..;
|
|
elif test -f ../../../config.sh; then TOP=../../..;
|
|
elif test -f ../../../../config.sh; then TOP=../../../..;
|
|
else
|
|
echo "Can't find config.sh."; exit 1
|
|
fi
|
|
. $TOP/config.sh
|
|
;;
|
|
esac
|
|
|
|
# Avoid localized gcc messages
|
|
case "$ccname" in
|
|
gcc) LC_ALL=C ; export LC_ALL ;;
|
|
esac
|
|
|
|
# We need .. when we are in the x2p directory if we are using the
|
|
# cppstdin wrapper script.
|
|
# Put .. and . first so that we pick up the present cppstdin, not
|
|
# an older one lying about in /usr/local/bin.
|
|
PATH=".$path_sep..$path_sep$PATH"
|
|
export PATH
|
|
|
|
case "$osname" in
|
|
amigaos) cat=/bin/cat ;; # must be absolute
|
|
esac
|
|
|
|
$cat /dev/null >.deptmp
|
|
$rm -f *.c.c c/*.c.c
|
|
if test -f Makefile; then
|
|
rm -f $firstmakefile
|
|
cp Makefile $firstmakefile
|
|
# On QNX, 'cp' preserves timestamp, so $firstmakefile appears
|
|
# to be out of date. I don't know if OS/2 has touch, so do this:
|
|
case "$osname" in
|
|
os2) ;;
|
|
*) $touch $firstmakefile ;;
|
|
esac
|
|
fi
|
|
mf=$firstmakefile
|
|
if test -f $mf; then
|
|
defrule=`<$mf sed -n \
|
|
-e '/^\.c\$(OBJ_EXT):.*;/{' \
|
|
-e 's/\$\*\.c//' \
|
|
-e 's/^[^;]*;[ ]*//p' \
|
|
-e q \
|
|
-e '}' \
|
|
-e '/^\.c\$(OBJ_EXT): *$/{' \
|
|
-e N \
|
|
-e 's/\$\*\.c//' \
|
|
-e 's/^.*\n[ ]*//p' \
|
|
-e q \
|
|
-e '}'`
|
|
fi
|
|
case "$defrule" in
|
|
'') defrule='$(CC) -c $(CFLAGS)' ;;
|
|
esac
|
|
|
|
: Create files in UU directory to avoid problems with long filenames
|
|
: on systems with 14 character filename limits so file.c.c and file.c
|
|
: might be identical
|
|
$test -d UU || mkdir UU
|
|
|
|
$MAKE clist || ($echo "Searching for .c files..."; \
|
|
$echo *.c | $tr ' ' $trnl | $egrep -v '\*' >.clist)
|
|
for file in `$cat .clist`; do
|
|
# for file in `cat /dev/null`; do
|
|
case "$osname" in
|
|
uwin) uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g" ;;
|
|
os2) uwinfix="-e s,\\\\\\\\,/,g" ;;
|
|
cygwin) uwinfix="-e s,\\\\\\\\,/,g" ;;
|
|
posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;
|
|
vos) uwinfix="-e s/\#/\\\#/" ;;
|
|
*) uwinfix="" ;;
|
|
esac
|
|
case "$file" in
|
|
*.c) filebase=`basename $file .c` ;;
|
|
*.y) filebase=`basename $file .y` ;;
|
|
esac
|
|
case "$file" in
|
|
*/*) finc="-I`echo $file | sed 's#/[^/]*$##'`" ;;
|
|
*) finc= ;;
|
|
esac
|
|
$echo "Finding dependencies for $filebase$_o."
|
|
# Below, we strip out all but preprocessor directives.
|
|
# We have to take care of situations like
|
|
# #if defined(FOO) BAR /* comment line 1
|
|
# more comment lines */
|
|
# If we just delete text starting from the '/*' to the end of line, we will
|
|
# screw up cases like
|
|
# #if defined(FOO) /* comment */ \
|
|
# && defined(BAR) /* comment */ \
|
|
# && defined(BAZ) /* comment */ \
|
|
# etc.
|
|
# Also, in lines like
|
|
# #defined FOO(a,b) a/**/b
|
|
# the comment may be important and so needs to be retained.
|
|
# This code processes the single-line comments first; it assumes there is
|
|
# at most one straightforward comment per continued preprocessor line,
|
|
# replacing each non-empty comment (and its surrounding white space) by a
|
|
# single space. (sed only has a greedy '*' quantifier, so this doesn't
|
|
# work right if there are multiple comments per line, and strings can look
|
|
# like comments to it; both are unlikely in a preprocessor statement.) Any
|
|
# continuation line is joined, and the process repeated on the enlarged
|
|
# line as long as there are continuations. At the end, if there are any
|
|
# comments remaining, they are either completely empty or are like the
|
|
# first situation. The latter are just deleted by first deleting to the
|
|
# end of line (including preceding white space) things that start with '/*'
|
|
# and the next char isn't a '*'; then things that start with '/**', but the
|
|
# next char isn't a '/'. (Subsequent lines of the comment are irrelevant
|
|
# and get dropped.) At the end, we unjoin very long lines to avoid
|
|
# preprocessor limitations
|
|
( $echo "#line 2 \"$file\""; \
|
|
$sed -n <$file \
|
|
-e "/^${filebase}_init(/q" \
|
|
-e ': tstcont' \
|
|
-e '/^[ ]*#/s|[ ]*/\*..*\*/[ ]*| |' \
|
|
-e '/\\$/{' \
|
|
-e 'N' \
|
|
-e 'b tstcont' \
|
|
-e '}' \
|
|
-e 's/\\\n//g' \
|
|
-e '/^#line/d' \
|
|
-e '/^[ ]*#/{' \
|
|
-e 's|[ ]*/\*[^*].*$||' \
|
|
-e 's|[ ]*/\*\*[^/].*$||' \
|
|
-e 's/.\{255\}/&\\\n/g' \
|
|
-e p \
|
|
-e '}' ) >UU/$file.c
|
|
|
|
# We're not sure why this was there; the #endif is extraneous on modern z/OS
|
|
#if [ "$osname" = os390 -a "$file" = perly.c ]; then
|
|
# $echo '#endif' >>UU/$file.c
|
|
#fi
|
|
|
|
if [ "$osname" = os390 ]; then
|
|
$cppstdin $finc -I. $cppflags $cppminus <UU/$file.c |
|
|
$sed \
|
|
-e '/^#.*<stdin>/d' \
|
|
-e '/^#.*"-"/d' \
|
|
-e '/^#.*git_version\.h/d' \
|
|
-e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
|
|
-e 's/^[ ]*#[ ]*line/#/' \
|
|
-e '/^# *[0-9][0-9]* *[".\/]/!d' \
|
|
-e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
|
|
-e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
|
|
-e 's|: \./|: |' \
|
|
-e 's|\.c\.c|.c|' $uwinfix | \
|
|
$uniq | $sort | $uniq >> .deptmp
|
|
else
|
|
$cppstdin $finc -I. $cppflags $cppminus <UU/$file.c >.cout 2>.cerr
|
|
$sed \
|
|
-e '1d' \
|
|
-e '/^#.*<stdin>/d' \
|
|
-e '/^#.*<builtin>/d' \
|
|
-e '/^#.*<built-in>/d' \
|
|
-e '/^#.*<command line>/d' \
|
|
-e '/^#.*<command-line>/d' \
|
|
-e '/^#.*"-"/d' \
|
|
-e '/^#.*"\/.*\/"/d' \
|
|
-e '/: file path prefix .* never used$/d' \
|
|
-e '/^#.*git_version\.h/d' \
|
|
-e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
|
|
-e 's/^[ ]*#[ ]*line/#/' \
|
|
-e '/^# *[0-9][0-9]* *[".\/]/!d' \
|
|
-e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
|
|
-e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
|
|
-e 's|: \./|: |' \
|
|
-e 's|\.c\.c|.c|' $uwinfix .cout .cerr| \
|
|
$uniq | $sort | $uniq >> .deptmp
|
|
fi
|
|
echo "$filebase\$(OBJ_EXT): $@" >> .deptmp
|
|
done
|
|
|
|
$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
|
|
|
|
if $test -s .deptmp; then
|
|
$echo "Updating $mf..."
|
|
$echo "# If this runs make out of memory, delete /usr/include lines." \
|
|
>> $mf.new
|
|
if [ "$osname" = vos ]; then
|
|
$sed 's|\.incl\.c|.h|' .deptmp >.deptmp.vos
|
|
mv -f .deptmp.vos .deptmp
|
|
fi
|
|
$sed 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
|
|
>>$mf.new
|
|
else
|
|
$MAKE hlist || ($echo "Searching for .h files..."; \
|
|
$echo *.h | $tr ' ' $trnl | $egrep -v '\*' >.hlist)
|
|
$echo "You don't seem to have a proper C preprocessor. Using grep instead."
|
|
$egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
|
|
$echo "Updating $mf..."
|
|
<.clist $sed -n \
|
|
-e '/\//{' \
|
|
-e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
|
|
-e d \
|
|
-e '}' \
|
|
-e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
|
|
<.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
|
|
<.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
|
|
$sed 's|^[^;]*/||' | \
|
|
$sed -f .hsed >> $mf.new
|
|
<.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
|
|
$sed -f .hsed >> $mf.new
|
|
fi
|
|
$rm -f $mf.old
|
|
$cp $mf $mf.old
|
|
$rm -f $mf
|
|
$cp $mf.new $mf
|
|
$rm $mf.new
|
|
$echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
|
|
$rm -rf .deptmp UU .clist .hlist .hsed .cout .cerr
|
|
rmdir .depending
|
|
|
|
!NO!SUBS!
|
|
$eunicefix makedepend
|
|
chmod +x makedepend
|