DProf fixes
[p5sagit/p5-mst-13.2.git] / makedepend.SH
CommitLineData
1e2cbf11 1#! /bin/sh
a02608de 2case $PERL_CONFIG_SH in
8d063cd8 3'')
a0d0e21e 4 if test -f config.sh; then TOP=.;
5 elif test -f ../config.sh; then TOP=..;
6 elif test -f ../../config.sh; then TOP=../..;
7 elif test -f ../../../config.sh; then TOP=../../..;
8 elif test -f ../../../../config.sh; then TOP=../../../..;
9 else
10 echo "Can't find config.sh."; exit 1
11 fi
12 . $TOP/config.sh
13 ;;
8d063cd8 14esac
a0d0e21e 15: This forces SH files to create target in same directory as SH file.
16: This is so that make depend always knows where to find SH derivatives.
8d063cd8 17case "$0" in
18*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
19esac
1e2cbf11 20
8d063cd8 21echo "Extracting makedepend (with variable substitutions)"
7b0cd887 22rm -f makedepend
75f92628 23$spitshell >makedepend <<!GROK!THIS!
24$startsh
a0d0e21e 25# makedepend.SH
8d063cd8 26#
6b9d15cb 27MAKE=$make
28e8609d 28trnl='$trnl'
1aef975c 29!GROK!THIS!
30$spitshell >>makedepend <<'!NO!SUBS!'
8d063cd8 31
7fedbb54 32if test -d .depending; then
33 echo "$0: Already running, exiting."
34 exit 0
35fi
36
37mkdir .depending
38
fb73857a 39# This script should be called with
3b5ca523 40# sh ./makedepend MAKE=$(MAKE)
fb73857a 41case "$1" in
3b5ca523 42 MAKE=*) eval $1 ;;
fb73857a 43esac
44
8d063cd8 45export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
46
a02608de 47case $PERL_CONFIG_SH in
a0d0e21e 48'')
49 if test -f config.sh; then TOP=.;
50 elif test -f ../config.sh; then TOP=..;
51 elif test -f ../../config.sh; then TOP=../..;
52 elif test -f ../../../config.sh; then TOP=../../..;
53 elif test -f ../../../../config.sh; then TOP=../../../..;
54 else
55 echo "Can't find config.sh."; exit 1
56 fi
57 . $TOP/config.sh
58 ;;
59esac
8d063cd8 60
ed9a7c0a 61# Avoid localized gcc messages
62case "$ccname" in
63 gcc) LC_ALL=C ; export LC_ALL ;;
64esac
65
16d20bd9 66# We need .. when we are in the x2p directory if we are using the
67# cppstdin wrapper script.
8e07c86e 68# Put .. and . first so that we pick up the present cppstdin, not
69# an older one lying about in /usr/local/bin.
39e571d4 70PATH=".$path_sep..$path_sep$PATH"
7b0cd887 71export PATH
72
47359646 73case "$osname" in
74amigaos) cat=/bin/cat ;; # must be absolute
75esac
76
8d063cd8 77$cat /dev/null >.deptmp
78$rm -f *.c.c c/*.c.c
79if test -f Makefile; then
1e2cbf11 80 rm -f $firstmakefile
337e9004 81 cp Makefile $firstmakefile
ae26f3f3 82 # On QNX, 'cp' preserves timestamp, so $firstmakefile appears
83 # to be out of date. I don't know if OS/2 has touch, so do this:
84 case "$osname" in
85 os2) ;;
099685bc 86 netbsd) ;;
ae26f3f3 87 *) $touch $firstmakefile ;;
88 esac
8d063cd8 89fi
337e9004 90mf=$firstmakefile
8d063cd8 91if test -f $mf; then
92 defrule=`<$mf sed -n \
2d9864fe 93 -e '/^\.c\$(OBJ_EXT):.*;/{' \
8d063cd8 94 -e 's/\$\*\.c//' \
95 -e 's/^[^;]*;[ ]*//p' \
96 -e q \
97 -e '}' \
2d9864fe 98 -e '/^\.c\$(OBJ_EXT): *$/{' \
8d063cd8 99 -e N \
100 -e 's/\$\*\.c//' \
101 -e 's/^.*\n[ ]*//p' \
102 -e q \
103 -e '}'`
104fi
105case "$defrule" in
106'') defrule='$(CC) -c $(CFLAGS)' ;;
107esac
108
85e6fe83 109: Create files in UU directory to avoid problems with long filenames
110: on systems with 14 character filename limits so file.c.c and file.c
111: might be identical
112$test -d UU || mkdir UU
113
3b5ca523 114$MAKE clist || ($echo "Searching for .c files..."; \
115 $echo *.c | $tr ' ' $trnl | $egrep -v '\*' >.clist)
116for file in `$cat .clist`; do
8d063cd8 117# for file in `cat /dev/null`; do
865cd44c 118 case "$osname" in
119 uwin) uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g" ;;
120 os2) uwinfix="-e s,\\\\\\\\,/,g" ;;
121 cygwin) uwinfix="-e s,\\\\\\\\,/,g" ;;
122 posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;
123 vos) uwinfix="-e s/\#/\\\#/" ;;
124 *) uwinfix="" ;;
125 esac
8d063cd8 126 case "$file" in
3b5ca523 127 *.c) filebase=`basename $file .c` ;;
128 *.y) filebase=`basename $file .y` ;;
129 esac
130 case "$file" in
7b0cd887 131 */*) finc="-I`echo $file | sed 's#/[^/]*$##`" ;;
132 *) finc= ;;
8d063cd8 133 esac
3b5ca523 134 $echo "Finding dependencies for $filebase$_o."
7b0cd887 135 ( $echo "#line 1 \"$file\""; \
136 $sed -n <$file \
8d063cd8 137 -e "/^${filebase}_init(/q" \
2304df62 138 -e '/^#line/d' \
8d063cd8 139 -e '/^#/{' \
140 -e 's|/\*.*$||' \
141 -e 's|\\$||' \
142 -e p \
3b5ca523 143 -e '}' ) >UU/$file.c
4902b9ac 144
145 if [ "$osname" = os390 -a "$file" = perly.c ]; then
146 $echo '#endif' >>UU/$file.c
147 fi
148
ceda4f9b 149 if [ "$osname" = os390 ]; then
ceda4f9b 150 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c |
151 $sed \
152 -e '/^#.*<stdin>/d' \
153 -e '/^#.*"-"/d' \
154 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
155 -e 's/^[ ]*#[ ]*line/#/' \
156 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
157 -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
158 -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
159 -e 's|: \./|: |' \
160 -e 's|\.c\.c|.c|' $uwinfix | \
161 $uniq | $sort | $uniq >> .deptmp
162 else
0fcc65bb 163 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c >.cout 2>.cerr
ceda4f9b 164 $sed \
165 -e '1d' \
166 -e '/^#.*<stdin>/d' \
7a0953c3 167 -e '/^#.*<builtin>/d' \
d41056c8 168 -e '/^#.*<built-in>/d' \
7a0953c3 169 -e '/^#.*<command line>/d' \
ceda4f9b 170 -e '/^#.*"-"/d' \
8ad4a856 171 -e '/: file path prefix .* never used$/d' \
ceda4f9b 172 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
173 -e 's/^[ ]*#[ ]*line/#/' \
174 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
175 -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
176 -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
177 -e 's|: \./|: |' \
0fcc65bb 178 -e 's|\.c\.c|.c|' $uwinfix .cout .cerr| \
ceda4f9b 179 $uniq | $sort | $uniq >> .deptmp
5920a0ba 180 fi
8d063cd8 181done
182
352d5a3a 183$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
8d063cd8 184
3b5ca523 185$MAKE shlist || ($echo "Searching for .SH files..."; \
186 $echo *.SH | $tr ' ' $trnl | $egrep -v '\*' >.shlist)
337e9004 187
760ac839 188# Now extract the dependencies on makedepend.SH and Makefile.SH
189# (they should reside in the main Makefile):
28e8609d 190rm -f .shlist.old
337e9004 191mv .shlist .shlist.old
192$egrep -v '^makedepend\.SH' <.shlist.old >.shlist
28e8609d 193rm -f .shlist.old
760ac839 194mv .shlist .shlist.old
195$egrep -v '^Makefile\.SH' <.shlist.old >.shlist
28e8609d 196rm -f .shlist.old
1c77a109 197mv .shlist .shlist.old
198$egrep -v '^perl_exp\.SH' <.shlist.old >.shlist
28e8609d 199rm -f .shlist.old
1c77a109 200mv .shlist .shlist.old
201$egrep -v '^config_h\.SH' <.shlist.old >.shlist
337e9004 202rm .shlist.old
203
8d063cd8 204if $test -s .deptmp; then
205 for file in `cat .shlist`; do
a0d0e21e 206 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
6b9d15cb 207 $sh $file >> .deptmp
8d063cd8 208 done
352d5a3a 209 $echo "Updating $mf..."
8d063cd8 210 $echo "# If this runs make out of memory, delete /usr/include lines." \
352d5a3a 211 >> $mf.new
2d9864fe 212 $sed 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
352d5a3a 213 >>$mf.new
8d063cd8 214else
3b5ca523 215 $MAKE hlist || ($echo "Searching for .h files..."; \
216 $echo *.h | $tr ' ' $trnl | $egrep -v '\*' >.hlist)
8d063cd8 217 $echo "You don't seem to have a proper C preprocessor. Using grep instead."
218 $egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
352d5a3a 219 $echo "Updating $mf..."
8d063cd8 220 <.clist $sed -n \
221 -e '/\//{' \
337e9004 222 -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
8d063cd8 223 -e d \
224 -e '}' \
337e9004 225 -e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
8d063cd8 226 <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
227 <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
228 $sed 's|^[^;]*/||' | \
352d5a3a 229 $sed -f .hsed >> $mf.new
8d063cd8 230 <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
352d5a3a 231 $sed -f .hsed >> $mf.new
8d063cd8 232 for file in `$cat .shlist`; do
a0d0e21e 233 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
6b9d15cb 234 $sh $file >> $mf.new
8d063cd8 235 done
236fi
352d5a3a 237$rm -f $mf.old
238$cp $mf $mf.old
1e2cbf11 239$rm -f $mf
352d5a3a 240$cp $mf.new $mf
241$rm $mf.new
242$echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
0fcc65bb 243$rm -rf .deptmp UU .shlist .clist .hlist .hsed .cout .cerr
7fedbb54 244rmdir .depending
8d063cd8 245
246!NO!SUBS!
247$eunicefix makedepend
378cc40b 248chmod +x makedepend
8d063cd8 249case `pwd` in
250*SH)
251 $rm -f ../makedepend
252 ln makedepend ../makedepend
253 ;;
254esac