This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make ExtUtils::ParseXS use ExtUtils::Typemaps
[perl5.git] / makedepend.SH
... / ...
CommitLineData
1#! /bin/sh
2case $PERL_CONFIG_SH in
3'')
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 ;;
14esac
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.
17case "$0" in
18*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
19esac
20
21echo "Extracting makedepend (with variable substitutions)"
22rm -f makedepend
23$spitshell >makedepend <<!GROK!THIS!
24$startsh
25# makedepend.SH
26#
27MAKE=$make
28trnl='$trnl'
29!GROK!THIS!
30$spitshell >>makedepend <<'!NO!SUBS!'
31
32if test -d .depending; then
33 echo "$0: Already running, exiting."
34 exit 0
35fi
36
37mkdir .depending
38
39# This script should be called with
40# sh ./makedepend MAKE=$(MAKE)
41case "$1" in
42 MAKE=*) eval $1 ;;
43esac
44
45export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
46
47case $PERL_CONFIG_SH in
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
60
61# Avoid localized gcc messages
62case "$ccname" in
63 gcc) LC_ALL=C ; export LC_ALL ;;
64esac
65
66# We need .. when we are in the x2p directory if we are using the
67# cppstdin wrapper script.
68# Put .. and . first so that we pick up the present cppstdin, not
69# an older one lying about in /usr/local/bin.
70PATH=".$path_sep..$path_sep$PATH"
71export PATH
72
73case "$osname" in
74amigaos) cat=/bin/cat ;; # must be absolute
75esac
76
77$cat /dev/null >.deptmp
78$rm -f *.c.c c/*.c.c
79if test -f Makefile; then
80 rm -f $firstmakefile
81 cp Makefile $firstmakefile
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) ;;
86 *) $touch $firstmakefile ;;
87 esac
88fi
89mf=$firstmakefile
90if test -f $mf; then
91 defrule=`<$mf sed -n \
92 -e '/^\.c\$(OBJ_EXT):.*;/{' \
93 -e 's/\$\*\.c//' \
94 -e 's/^[^;]*;[ ]*//p' \
95 -e q \
96 -e '}' \
97 -e '/^\.c\$(OBJ_EXT): *$/{' \
98 -e N \
99 -e 's/\$\*\.c//' \
100 -e 's/^.*\n[ ]*//p' \
101 -e q \
102 -e '}'`
103fi
104case "$defrule" in
105'') defrule='$(CC) -c $(CFLAGS)' ;;
106esac
107
108: Create files in UU directory to avoid problems with long filenames
109: on systems with 14 character filename limits so file.c.c and file.c
110: might be identical
111$test -d UU || mkdir UU
112
113$MAKE clist || ($echo "Searching for .c files..."; \
114 $echo *.c | $tr ' ' $trnl | $egrep -v '\*' >.clist)
115for file in `$cat .clist`; do
116# for file in `cat /dev/null`; do
117 case "$osname" in
118 uwin) uwinfix="-e s,\\\\\\\\,/,g -e s,\\([a-zA-Z]\\):/,/\\1/,g" ;;
119 os2) uwinfix="-e s,\\\\\\\\,/,g" ;;
120 cygwin) uwinfix="-e s,\\\\\\\\,/,g" ;;
121 posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;
122 vos) uwinfix="-e s/\#/\\\#/" ;;
123 *) uwinfix="" ;;
124 esac
125 case "$file" in
126 *.c) filebase=`basename $file .c` ;;
127 *.y) filebase=`basename $file .y` ;;
128 esac
129 case "$file" in
130 */*) finc="-I`echo $file | sed 's#/[^/]*$##'`" ;;
131 *) finc= ;;
132 esac
133 $echo "Finding dependencies for $filebase$_o."
134 ( $echo "#line 1 \"$file\""; \
135 $sed -n <$file \
136 -e "/^${filebase}_init(/q" \
137 -e '/^#line/d' \
138 -e '/^#/{' \
139 -e 's|/\*.*$||' \
140 -e 's|\\$||' \
141 -e p \
142 -e '}' ) >UU/$file.c
143
144 if [ "$osname" = os390 -a "$file" = perly.c ]; then
145 $echo '#endif' >>UU/$file.c
146 fi
147
148 if [ "$osname" = os390 ]; then
149 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c |
150 $sed \
151 -e '/^#.*<stdin>/d' \
152 -e '/^#.*"-"/d' \
153 -e '/^#.*git_version\.h/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
163 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c >.cout 2>.cerr
164 $sed \
165 -e '1d' \
166 -e '/^#.*<stdin>/d' \
167 -e '/^#.*<builtin>/d' \
168 -e '/^#.*<built-in>/d' \
169 -e '/^#.*<command line>/d' \
170 -e '/^#.*<command-line>/d' \
171 -e '/^#.*"-"/d' \
172 -e '/^#.*"\/.*\/"/d' \
173 -e '/: file path prefix .* never used$/d' \
174 -e '/^#.*git_version\.h/d' \
175 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
176 -e 's/^[ ]*#[ ]*line/#/' \
177 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
178 -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
179 -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
180 -e 's|: \./|: |' \
181 -e 's|\.c\.c|.c|' $uwinfix .cout .cerr| \
182 $uniq | $sort | $uniq >> .deptmp
183 fi
184 echo "$filebase\$(OBJ_EXT): cflags" >> .deptmp
185done
186
187$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
188
189$MAKE shlist || ($echo "Searching for .SH files..."; \
190 $echo *.SH | $tr ' ' $trnl | $egrep -v '\*' >.shlist)
191
192# Now extract the dependencies on makedepend.SH and Makefile.SH
193# (they should reside in the main Makefile):
194rm -f .shlist.old
195mv .shlist .shlist.old
196$egrep -v '^makedepend\.SH' <.shlist.old >.shlist
197rm -f .shlist.old
198mv .shlist .shlist.old
199$egrep -v '^Makefile\.SH' <.shlist.old >.shlist
200rm -f .shlist.old
201mv .shlist .shlist.old
202$egrep -v '^perl_exp\.SH' <.shlist.old >.shlist
203rm -f .shlist.old
204mv .shlist .shlist.old
205$egrep -v '^config_h\.SH' <.shlist.old >.shlist
206rm .shlist.old
207
208if $test -s .deptmp; then
209 for file in `cat .shlist`; do
210 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
211 $sh $file >> .deptmp
212 done
213 $echo "Updating $mf..."
214 $echo "# If this runs make out of memory, delete /usr/include lines." \
215 >> $mf.new
216 if [ "$osname" = vos ]; then
217 $sed 's|\.incl\.c|.h|' .deptmp >.deptmp.vos
218 mv -f .deptmp.vos .deptmp
219 fi
220 $sed 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
221 >>$mf.new
222else
223 $MAKE hlist || ($echo "Searching for .h files..."; \
224 $echo *.h | $tr ' ' $trnl | $egrep -v '\*' >.hlist)
225 $echo "You don't seem to have a proper C preprocessor. Using grep instead."
226 $egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
227 $echo "Updating $mf..."
228 <.clist $sed -n \
229 -e '/\//{' \
230 -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
231 -e d \
232 -e '}' \
233 -e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
234 <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
235 <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
236 $sed 's|^[^;]*/||' | \
237 $sed -f .hsed >> $mf.new
238 <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
239 $sed -f .hsed >> $mf.new
240 for file in `$cat .shlist`; do
241 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
242 $sh $file >> $mf.new
243 done
244fi
245$rm -f $mf.old
246$cp $mf $mf.old
247$rm -f $mf
248$cp $mf.new $mf
249$rm $mf.new
250$echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
251$rm -rf .deptmp UU .shlist .clist .hlist .hsed .cout .cerr
252rmdir .depending
253
254!NO!SUBS!
255$eunicefix makedepend
256chmod +x makedepend
257case `pwd` in
258*SH)
259 $rm -f ../makedepend
260 ln makedepend ../makedepend
261 ;;
262esac