This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
update the links to freenode
[perl5.git] / makedepend.SH
CommitLineData
1e2cbf11 1#! /bin/sh
a02608de 2case $PERL_CONFIG_SH 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'
1aef975c
AD
29!GROK!THIS!
30$spitshell >>makedepend <<'!NO!SUBS!'
8d063cd8 31
7fedbb54
JH
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
3ae7e562 42 MAKE=*) eval $1; shift ;;
fb73857a
PP
43esac
44
8d063cd8
LW
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
LW
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
RGS
61# Avoid localized gcc messages
62case "$ccname" in
63 gcc) LC_ALL=C ; export LC_ALL ;;
64esac
65
16d20bd9
AD
66# We need .. when we are in the x2p directory if we are using the
67# cppstdin wrapper script.
8e07c86e
AD
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
LW
71export PATH
72
47359646
JH
73case "$osname" in
74amigaos) cat=/bin/cat ;; # must be absolute
75esac
76
8d063cd8
LW
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
PP
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
8d063cd8 88fi
337e9004 89mf=$firstmakefile
8d063cd8
LW
90if test -f $mf; then
91 defrule=`<$mf sed -n \
2d9864fe 92 -e '/^\.c\$(OBJ_EXT):.*;/{' \
8d063cd8
LW
93 -e 's/\$\*\.c//' \
94 -e 's/^[^;]*;[ ]*//p' \
95 -e q \
96 -e '}' \
2d9864fe 97 -e '/^\.c\$(OBJ_EXT): *$/{' \
8d063cd8
LW
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
85e6fe83
LW
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
3b5ca523
GS
113$MAKE clist || ($echo "Searching for .c files..."; \
114 $echo *.c | $tr ' ' $trnl | $egrep -v '\*' >.clist)
115for file in `$cat .clist`; do
8d063cd8 116# for file in `cat /dev/null`; do
865cd44c
JH
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
8d063cd8 125 case "$file" in
3b5ca523
GS
126 *.c) filebase=`basename $file .c` ;;
127 *.y) filebase=`basename $file .y` ;;
128 esac
129 case "$file" in
96a8704c 130 */*) finc="-I`echo $file | sed 's#/[^/]*$##'`" ;;
7b0cd887 131 *) finc= ;;
8d063cd8 132 esac
c10193ec 133 $echo "Finding dependencies for $filebase$_o"
3c65df45
KW
134 # Below, we strip out all but preprocessor directives.
135 # We have to take care of situations like
136 # #if defined(FOO) BAR /* comment line 1
137 # more comment lines */
138 # If we just delete text starting from the '/*' to the end of line, we will
139 # screw up cases like
140 # #if defined(FOO) /* comment */ \
141 # && defined(BAR) /* comment */ \
142 # && defined(BAZ) /* comment */ \
143 # etc.
86c3d61a
KW
144 # Also, in lines like
145 # #defined FOO(a,b) a/**/b
146 # the comment may be important and so needs to be retained.
147 # This code processes the single-line comments first; it assumes there is
148 # at most one straightforward comment per continued preprocessor line,
149 # replacing each non-empty comment (and its surrounding white space) by a
150 # single space. (sed only has a greedy '*' quantifier, so this doesn't
151 # work right if there are multiple comments per line, and strings can look
152 # like comments to it; both are unlikely in a preprocessor statement.) Any
153 # continuation line is joined, and the process repeated on the enlarged
154 # line as long as there are continuations. At the end, if there are any
155 # comments remaining, they are either completely empty or are like the
156 # first situation. The latter are just deleted by first deleting to the
157 # end of line (including preceding white space) things that start with '/*'
158 # and the next char isn't a '*'; then things that start with '/**', but the
159 # next char isn't a '/'. (Subsequent lines of the comment are irrelevant
d1138973
KW
160 # and get dropped.) At the end, we unjoin very long lines to avoid
161 # preprocessor limitations
0e058004
KW
162 ( $echo "#line 2 \"$file\""; \
163 $sed -n <$file \
164 -e "/^${filebase}_init(/q" \
7d2d29f6 165 -e ': tstcont' \
0e058004
KW
166 -e '/^[ ]*#/s|[ ]*/\*..*\*/[ ]*| |' \
167 -e '/\\$/{' \
168 -e 'N' \
7d2d29f6 169 -e 'b tstcont' \
0e058004 170 -e '}' \
d1138973 171 -e 's/\\\n//g' \
0e058004
KW
172 -e '/^#line/d' \
173 -e '/^[ ]*#/{' \
174 -e 's|[ ]*/\*[^*].*$||' \
175 -e 's|[ ]*/\*\*[^/].*$||' \
d1138973 176 -e 's/.\{255\}/&\\\n/g' \
0e058004 177 -e p \
3b5ca523 178 -e '}' ) >UU/$file.c
4902b9ac 179
6edd329f
KW
180 # We're not sure why this was there; the #endif is extraneous on modern z/OS
181 #if [ "$osname" = os390 -a "$file" = perly.c ]; then
182 # $echo '#endif' >>UU/$file.c
183 #fi
4902b9ac 184
ceda4f9b 185 if [ "$osname" = os390 ]; then
ceda4f9b
GS
186 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c |
187 $sed \
188 -e '/^#.*<stdin>/d' \
189 -e '/^#.*"-"/d' \
486cd780 190 -e '/^#.*git_version\.h/d' \
ceda4f9b
GS
191 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
192 -e 's/^[ ]*#[ ]*line/#/' \
193 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
194 -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
195 -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
196 -e 's|: \./|: |' \
197 -e 's|\.c\.c|.c|' $uwinfix | \
198 $uniq | $sort | $uniq >> .deptmp
199 else
0fcc65bb 200 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c >.cout 2>.cerr
ceda4f9b
GS
201 $sed \
202 -e '1d' \
203 -e '/^#.*<stdin>/d' \
7a0953c3 204 -e '/^#.*<builtin>/d' \
d41056c8 205 -e '/^#.*<built-in>/d' \
7a0953c3 206 -e '/^#.*<command line>/d' \
cf14425e 207 -e '/^#.*<command-line>/d' \
ceda4f9b 208 -e '/^#.*"-"/d' \
a3d1be69 209 -e '/^#.*"\/.*\/"/d' \
8ad4a856 210 -e '/: file path prefix .* never used$/d' \
486cd780 211 -e '/^#.*git_version\.h/d' \
ceda4f9b
GS
212 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
213 -e 's/^[ ]*#[ ]*line/#/' \
214 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
215 -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
216 -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
217 -e 's|: \./|: |' \
0fcc65bb 218 -e 's|\.c\.c|.c|' $uwinfix .cout .cerr| \
ceda4f9b 219 $uniq | $sort | $uniq >> .deptmp
5920a0ba 220 fi
3ae7e562 221 echo "$filebase\$(OBJ_EXT): $@" >> .deptmp
8d063cd8
LW
222done
223
352d5a3a 224$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
8d063cd8 225
8d063cd8 226if $test -s .deptmp; then
352d5a3a 227 $echo "Updating $mf..."
8d063cd8 228 $echo "# If this runs make out of memory, delete /usr/include lines." \
352d5a3a 229 >> $mf.new
3722f0dc 230 if [ "$osname" = vos ]; then
ef314d29 231 $sed 's|\.incl\.c|.h|' .deptmp >.deptmp.vos
3722f0dc
PG
232 mv -f .deptmp.vos .deptmp
233 fi
d58d97f6
TC
234 $sed -e 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" \
235 -e 'h; s/mini\(perlmain\)/\1/p; g' \
236 .deptmp >>$mf.new
8d063cd8 237else
3b5ca523
GS
238 $MAKE hlist || ($echo "Searching for .h files..."; \
239 $echo *.h | $tr ' ' $trnl | $egrep -v '\*' >.hlist)
8d063cd8
LW
240 $echo "You don't seem to have a proper C preprocessor. Using grep instead."
241 $egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
352d5a3a 242 $echo "Updating $mf..."
8d063cd8
LW
243 <.clist $sed -n \
244 -e '/\//{' \
337e9004 245 -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
8d063cd8
LW
246 -e d \
247 -e '}' \
337e9004 248 -e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
8d063cd8
LW
249 <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
250 <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
251 $sed 's|^[^;]*/||' | \
352d5a3a 252 $sed -f .hsed >> $mf.new
8d063cd8 253 <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
352d5a3a 254 $sed -f .hsed >> $mf.new
8d063cd8 255fi
352d5a3a
LW
256$rm -f $mf.old
257$cp $mf $mf.old
1e2cbf11 258$rm -f $mf
352d5a3a
LW
259$cp $mf.new $mf
260$rm $mf.new
261$echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
9719c95b 262$rm -rf .deptmp UU .clist .hlist .hsed .cout .cerr
7fedbb54 263rmdir .depending
8d063cd8
LW
264
265!NO!SUBS!
266$eunicefix makedepend
378cc40b 267chmod +x makedepend