Commit | Line | Data |
---|---|---|
1e2cbf11 | 1 | #! /bin/sh |
a02608de | 2 | case $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 | 14 | esac |
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 |
17 | case "$0" in |
18 | */*) cd `expr X$0 : 'X\(.*\)/'` ;; | |
19 | esac | |
1e2cbf11 | 20 | |
8d063cd8 | 21 | echo "Extracting makedepend (with variable substitutions)" |
7b0cd887 | 22 | rm -f makedepend |
75f92628 AD |
23 | $spitshell >makedepend <<!GROK!THIS! |
24 | $startsh | |
a0d0e21e | 25 | # makedepend.SH |
8d063cd8 | 26 | # |
6b9d15cb | 27 | MAKE=$make |
28e8609d | 28 | trnl='$trnl' |
1aef975c AD |
29 | !GROK!THIS! |
30 | $spitshell >>makedepend <<'!NO!SUBS!' | |
8d063cd8 | 31 | |
7fedbb54 JH |
32 | if test -d .depending; then |
33 | echo "$0: Already running, exiting." | |
34 | exit 0 | |
35 | fi | |
36 | ||
37 | mkdir .depending | |
38 | ||
fb73857a | 39 | # This script should be called with |
3b5ca523 | 40 | # sh ./makedepend MAKE=$(MAKE) |
fb73857a | 41 | case "$1" in |
3ae7e562 | 42 | MAKE=*) eval $1; shift ;; |
fb73857a | 43 | esac |
44 | ||
8d063cd8 LW |
45 | export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$) |
46 | ||
a02608de | 47 | case $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 | ;; | |
59 | esac | |
8d063cd8 | 60 | |
ed9a7c0a RGS |
61 | # Avoid localized gcc messages |
62 | case "$ccname" in | |
63 | gcc) LC_ALL=C ; export LC_ALL ;; | |
64 | esac | |
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 | 70 | PATH=".$path_sep..$path_sep$PATH" |
7b0cd887 LW |
71 | export PATH |
72 | ||
47359646 JH |
73 | case "$osname" in |
74 | amigaos) cat=/bin/cat ;; # must be absolute | |
75 | esac | |
76 | ||
8d063cd8 LW |
77 | $cat /dev/null >.deptmp |
78 | $rm -f *.c.c c/*.c.c | |
79 | if 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) ;; | |
86 | *) $touch $firstmakefile ;; | |
87 | esac | |
8d063cd8 | 88 | fi |
337e9004 | 89 | mf=$firstmakefile |
8d063cd8 LW |
90 | if 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 '}'` | |
103 | fi | |
104 | case "$defrule" in | |
105 | '') defrule='$(CC) -c $(CFLAGS)' ;; | |
106 | esac | |
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) | |
115 | for 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 |
222 | done |
223 | ||
352d5a3a | 224 | $sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d' |
8d063cd8 | 225 | |
8d063cd8 | 226 | if $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 | 237 | else |
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 | 255 | fi |
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 | 263 | rmdir .depending |
8d063cd8 LW |
264 | |
265 | !NO!SUBS! | |
266 | $eunicefix makedepend | |
378cc40b | 267 | chmod +x makedepend |