This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
typo in change#3768
[perl5.git] / makedepend.SH
CommitLineData
1e2cbf11 1#! /bin/sh
2000072c 2case $CONFIGDOTSH in
8d063cd8 3'')
a0d0e21e
LW
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
LW
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
LW
17case "$0" in
18*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
19esac
1e2cbf11 20
8d063cd8 21echo "Extracting makedepend (with variable substitutions)"
7b0cd887 22rm -f makedepend
75f92628
AD
23$spitshell >makedepend <<!GROK!THIS!
24$startsh
a0d0e21e 25# makedepend.SH
8d063cd8 26#
6b9d15cb 27MAKE=$make
28e8609d 28trnl='$trnl'
b233458b 29src=$src
1aef975c
AD
30!GROK!THIS!
31$spitshell >>makedepend <<'!NO!SUBS!'
8d063cd8 32
fb73857a 33# This script should be called with
b233458b 34# sh ./makedepend MAKE=$(MAKE) [src=$(src)]
fb73857a 35case "$1" in
b233458b 36 MAKE=*) eval $1 ; shift ;;
fb73857a
PP
37esac
38
8d063cd8
LW
39export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
40
2000072c 41case $CONFIGDOTSH in
a0d0e21e
LW
42'')
43 if test -f config.sh; then TOP=.;
44 elif test -f ../config.sh; then TOP=..;
45 elif test -f ../../config.sh; then TOP=../..;
46 elif test -f ../../../config.sh; then TOP=../../..;
47 elif test -f ../../../../config.sh; then TOP=../../../..;
48 else
49 echo "Can't find config.sh."; exit 1
50 fi
51 . $TOP/config.sh
52 ;;
53esac
8d063cd8 54
b233458b
JH
55case "$1" in
56 src=*) eval $1 ; shift ;;
57esac
58
16d20bd9
AD
59# We need .. when we are in the x2p directory if we are using the
60# cppstdin wrapper script.
8e07c86e
AD
61# Put .. and . first so that we pick up the present cppstdin, not
62# an older one lying about in /usr/local/bin.
39e571d4 63PATH=".$path_sep..$path_sep$PATH"
7b0cd887
LW
64export PATH
65
8d063cd8
LW
66$cat /dev/null >.deptmp
67$rm -f *.c.c c/*.c.c
68if test -f Makefile; then
1e2cbf11 69 rm -f $firstmakefile
337e9004 70 cp Makefile $firstmakefile
ae26f3f3
PP
71 # On QNX, 'cp' preserves timestamp, so $firstmakefile appears
72 # to be out of date. I don't know if OS/2 has touch, so do this:
73 case "$osname" in
74 os2) ;;
099685bc 75 netbsd) ;;
ae26f3f3
PP
76 *) $touch $firstmakefile ;;
77 esac
8d063cd8 78fi
337e9004 79mf=$firstmakefile
8d063cd8
LW
80if test -f $mf; then
81 defrule=`<$mf sed -n \
2d9864fe 82 -e '/^\.c\$(OBJ_EXT):.*;/{' \
8d063cd8
LW
83 -e 's/\$\*\.c//' \
84 -e 's/^[^;]*;[ ]*//p' \
85 -e q \
86 -e '}' \
2d9864fe 87 -e '/^\.c\$(OBJ_EXT): *$/{' \
8d063cd8
LW
88 -e N \
89 -e 's/\$\*\.c//' \
90 -e 's/^.*\n[ ]*//p' \
91 -e q \
92 -e '}'`
93fi
94case "$defrule" in
95'') defrule='$(CC) -c $(CFLAGS)' ;;
96esac
97
85e6fe83
LW
98: Create files in UU directory to avoid problems with long filenames
99: on systems with 14 character filename limits so file.c.c and file.c
100: might be identical
101$test -d UU || mkdir UU
102
b233458b
JH
103$MAKE clist || (cd $src; $echo "Searching for .c files..."; \
104 $echo *.c | $tr ' ' $trnl | $egrep -v '\*') >.clist
105for base in `$cat .clist`; do
106 case "$src" in
107 .) file="$base" ;;
108 *) if test -f "$base"; then
109 file="$base"
110 elif test -f "$src/$base"; then
111 file="$src/$base"
112 fi
113 ;;
114 esac
8d063cd8 115# for file in `cat /dev/null`; do
2ebcf328
JB
116 if [ "$osname" = uwin ]; then
117 uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g"
118 else
9e48464b
IZ
119 if [ "$osname" = os2 ]; then
120 uwinfix="-e s,\\\\\\\\,/,g"
121 else
8736538c
AS
122 if [ "$archname" = cygwin32 ]; then
123 uwinfix="-e s,\\\\\\\\,/,g"
124 else
125 uwinfix=
126 fi
9e48464b 127 fi
2ebcf328 128 fi
8d063cd8 129 case "$file" in
7b0cd887
LW
130 */*) finc="-I`echo $file | sed 's#/[^/]*$##`" ;;
131 *) finc= ;;
8d063cd8 132 esac
b233458b
JH
133 case "$src" in
134 '') ;;
135 *) finc="-I$src" ;;
136 esac
137 basebase=`basename $base .c`
138 $echo "Finding dependencies for $basebase$_o."
7b0cd887
LW
139 ( $echo "#line 1 \"$file\""; \
140 $sed -n <$file \
8d063cd8 141 -e "/^${filebase}_init(/q" \
2304df62 142 -e '/^#line/d' \
8d063cd8
LW
143 -e '/^#/{' \
144 -e 's|/\*.*$||' \
145 -e 's|\\$||' \
146 -e p \
b233458b
JH
147 -e '}' ) >UU/$base.c
148 $cppstdin $finc -I. $cppflags $cppminus <UU/$base.c |
8d063cd8 149 $sed \
75f92628 150 -e '/^#.*<stdin>/d' \
fb73857a 151 -e '/^#.*"-"/d' \
7b0cd887 152 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
55204971 153 -e 's/^[ ]*#[ ]*line/#/' \
7b0cd887 154 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
b233458b
JH
155 -e 's/^.*"\(.*\)".*$/'$base'\$(OBJ_EXT): \1/' \
156 -e 's/^# *[0-9][0-9]* \(.*\)$/'$base'\$(OBJ_EXT): \1/' \
8d063cd8 157 -e 's|: \./|: |' \
2ebcf328 158 -e 's|\.c\.c|.c|' $uwinfix | \
8d063cd8
LW
159 $uniq | $sort | $uniq >> .deptmp
160done
161
352d5a3a 162$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
8d063cd8 163
b233458b
JH
164$MAKE shlist || (cd $src; $echo "Searching for .SH files..."; \
165 $echo *.SH | $tr ' ' $trnl | $egrep -v '\*') >.shlist
337e9004 166
760ac839
LW
167# Now extract the dependencies on makedepend.SH and Makefile.SH
168# (they should reside in the main Makefile):
28e8609d 169rm -f .shlist.old
337e9004
PP
170mv .shlist .shlist.old
171$egrep -v '^makedepend\.SH' <.shlist.old >.shlist
28e8609d 172rm -f .shlist.old
760ac839
LW
173mv .shlist .shlist.old
174$egrep -v '^Makefile\.SH' <.shlist.old >.shlist
28e8609d 175rm -f .shlist.old
1c77a109
IZ
176mv .shlist .shlist.old
177$egrep -v '^perl_exp\.SH' <.shlist.old >.shlist
28e8609d 178rm -f .shlist.old
1c77a109
IZ
179mv .shlist .shlist.old
180$egrep -v '^config_h\.SH' <.shlist.old >.shlist
337e9004
PP
181rm .shlist.old
182
8d063cd8
LW
183if $test -s .deptmp; then
184 for file in `cat .shlist`; do
a0d0e21e 185 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
6b9d15cb 186 $sh $file >> .deptmp
8d063cd8 187 done
352d5a3a 188 $echo "Updating $mf..."
8d063cd8 189 $echo "# If this runs make out of memory, delete /usr/include lines." \
352d5a3a 190 >> $mf.new
2d9864fe 191 $sed 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
352d5a3a 192 >>$mf.new
8d063cd8 193else
b233458b
JH
194 $MAKE hlist || (cd $src; $echo "Searching for .h files..."; \
195 $echo *.h | $tr ' ' $trnl | $egrep -v '\*') >.hlist
8d063cd8
LW
196 $echo "You don't seem to have a proper C preprocessor. Using grep instead."
197 $egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
352d5a3a 198 $echo "Updating $mf..."
8d063cd8
LW
199 <.clist $sed -n \
200 -e '/\//{' \
337e9004 201 -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
8d063cd8
LW
202 -e d \
203 -e '}' \
337e9004 204 -e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
8d063cd8
LW
205 <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
206 <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
207 $sed 's|^[^;]*/||' | \
352d5a3a 208 $sed -f .hsed >> $mf.new
8d063cd8 209 <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
352d5a3a 210 $sed -f .hsed >> $mf.new
8d063cd8 211 for file in `$cat .shlist`; do
a0d0e21e 212 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
6b9d15cb 213 $sh $file >> $mf.new
8d063cd8
LW
214 done
215fi
352d5a3a
LW
216$rm -f $mf.old
217$cp $mf $mf.old
1e2cbf11 218$rm -f $mf
352d5a3a
LW
219$cp $mf.new $mf
220$rm $mf.new
221$echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
85e6fe83 222$rm -rf .deptmp UU .shlist .clist .hlist .hsed
8d063cd8
LW
223
224!NO!SUBS!
225$eunicefix makedepend
378cc40b 226chmod +x makedepend
8d063cd8
LW
227case `pwd` in
228*SH)
229 $rm -f ../makedepend
230 ln makedepend ../makedepend
231 ;;
232esac