2 case $PERL_CONFIG_SH in
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=../../../..;
10 echo "Can't find config.sh."; exit 1
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.
18 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
21 echo "Extracting makedepend (with variable substitutions)"
23 $spitshell >makedepend <<!GROK!THIS!
30 $spitshell >>makedepend <<'!NO!SUBS!'
32 if test -d .depending; then
33 echo "$0: Already running, exiting."
39 # This script should be called with
40 # sh ./makedepend MAKE=$(MAKE)
42 MAKE=*) eval $1; shift ;;
45 export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
47 case $PERL_CONFIG_SH in
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=../../../..;
55 echo "Can't find config.sh."; exit 1
61 # Avoid localized gcc messages
63 gcc) LC_ALL=C ; export LC_ALL ;;
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.
70 PATH=".$path_sep..$path_sep$PATH"
74 amigaos) cat=/bin/cat ;; # must be absolute
77 $cat /dev/null >.deptmp
79 if test -f Makefile; then
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:
86 *) $touch $firstmakefile ;;
91 defrule=`<$mf sed -n \
92 -e '/^\.c\$(OBJ_EXT):.*;/{' \
94 -e 's/^[^;]*;[ ]*//p' \
97 -e '/^\.c\$(OBJ_EXT): *$/{' \
100 -e 's/^.*\n[ ]*//p' \
105 '') defrule='$(CC) -c $(CFLAGS)' ;;
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
111 $test -d UU || mkdir UU
113 $MAKE clist || ($echo "Searching for .c files..."; \
114 $echo *.c | $tr ' ' $trnl | $egrep -v '\*' >.clist)
115 for file in `$cat .clist`; do
116 # for file in `cat /dev/null`; do
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/\#/\\\#/" ;;
126 *.c) filebase=`basename $file .c` ;;
127 *.y) filebase=`basename $file .y` ;;
130 */*) finc="-I`echo $file | sed 's#/[^/]*$##'`" ;;
133 $echo "Finding dependencies for $filebase$_o"
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 */ \
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
160 # and get dropped.) At the end, we unjoin very long lines to avoid
161 # preprocessor limitations
162 ( $echo "#line 2 \"$file\""; \
164 -e "/^${filebase}_init(/q" \
166 -e '/^[ ]*#/s|[ ]*/\*..*\*/[ ]*| |' \
174 -e 's|[ ]*/\*[^*].*$||' \
175 -e 's|[ ]*/\*\*[^/].*$||' \
176 -e 's/.\{255\}/&\\\n/g' \
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
185 if [ "$osname" = os390 ]; then
186 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c |
188 -e '/^#.*<stdin>/d' \
190 -e '/^#.*git_version\.h/d' \
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/' \
197 -e 's|\.c\.c|.c|' $uwinfix | \
198 $uniq | $sort | $uniq >> .deptmp
200 $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c >.cout 2>.cerr
203 -e '/^#.*<stdin>/d' \
204 -e '/^#.*<builtin>/d' \
205 -e '/^#.*<built-in>/d' \
206 -e '/^#.*<command line>/d' \
207 -e '/^#.*<command-line>/d' \
209 -e '/^#.*"\/.*\/"/d' \
210 -e '/: file path prefix .* never used$/d' \
211 -e '/^#.*git_version\.h/d' \
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/' \
218 -e 's|\.c\.c|.c|' $uwinfix .cout .cerr| \
219 $uniq | $sort | $uniq >> .deptmp
221 echo "$filebase\$(OBJ_EXT): $@" >> .deptmp
224 $sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
226 if $test -s .deptmp; then
227 $echo "Updating $mf..."
228 $echo "# If this runs make out of memory, delete /usr/include lines." \
230 if [ "$osname" = vos ]; then
231 $sed 's|\.incl\.c|.h|' .deptmp >.deptmp.vos
232 mv -f .deptmp.vos .deptmp
234 $sed -e 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" \
235 -e 'h; s/mini\(perlmain\)/\1/p; g' \
238 $MAKE hlist || ($echo "Searching for .h files..."; \
239 $echo *.h | $tr ' ' $trnl | $egrep -v '\*' >.hlist)
240 $echo "You don't seem to have a proper C preprocessor. Using grep instead."
241 $egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
242 $echo "Updating $mf..."
245 -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
248 -e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
249 <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
250 <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
251 $sed 's|^[^;]*/||' | \
252 $sed -f .hsed >> $mf.new
253 <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
254 $sed -f .hsed >> $mf.new
261 $echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
262 $rm -rf .deptmp UU .clist .hlist .hsed .cout .cerr
266 $eunicefix makedepend