| | 1 | #! /bin/sh |
| | 2 | case $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 | ;; |
| | 14 | esac |
| | 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. |
| | 17 | case "$0" in |
| | 18 | */*) cd `expr X$0 : 'X\(.*\)/'` ;; |
| | 19 | esac |
| | 20 | |
| | 21 | echo "Extracting makedepend (with variable substitutions)" |
| | 22 | rm -f makedepend |
| | 23 | $spitshell >makedepend <<!GROK!THIS! |
| | 24 | $startsh |
| | 25 | # makedepend.SH |
| | 26 | # |
| | 27 | MAKE=$make |
| | 28 | trnl='$trnl' |
| | 29 | !GROK!THIS! |
| | 30 | $spitshell >>makedepend <<'!NO!SUBS!' |
| | 31 | |
| | 32 | if test -d .depending; then |
| | 33 | echo "$0: Already running, exiting." |
| | 34 | exit 0 |
| | 35 | fi |
| | 36 | |
| | 37 | mkdir .depending |
| | 38 | |
| | 39 | # This script should be called with |
| | 40 | # sh ./makedepend MAKE=$(MAKE) |
| | 41 | case "$1" in |
| | 42 | MAKE=*) eval $1; shift ;; |
| | 43 | esac |
| | 44 | |
| | 45 | export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$) |
| | 46 | |
| | 47 | case $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 | ;; |
| | 59 | esac |
| | 60 | |
| | 61 | # Avoid localized gcc messages |
| | 62 | case "$ccname" in |
| | 63 | gcc) LC_ALL=C ; export LC_ALL ;; |
| | 64 | esac |
| | 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. |
| | 70 | PATH=".$path_sep..$path_sep$PATH" |
| | 71 | export PATH |
| | 72 | |
| | 73 | case "$osname" in |
| | 74 | amigaos) cat=/bin/cat ;; # must be absolute |
| | 75 | esac |
| | 76 | |
| | 77 | $cat /dev/null >.deptmp |
| | 78 | $rm -f *.c.c c/*.c.c |
| | 79 | if 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 |
| | 88 | fi |
| | 89 | mf=$firstmakefile |
| | 90 | if 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 '}'` |
| | 103 | fi |
| | 104 | case "$defrule" in |
| | 105 | '') defrule='$(CC) -c $(CFLAGS)' ;; |
| | 106 | esac |
| | 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) |
| | 115 | for 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 | # 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. |
| | 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\""; \ |
| | 163 | $sed -n <$file \ |
| | 164 | -e "/^${filebase}_init(/q" \ |
| | 165 | -e ': tstcont' \ |
| | 166 | -e '/^[ ]*#/s|[ ]*/\*..*\*/[ ]*| |' \ |
| | 167 | -e '/\\$/{' \ |
| | 168 | -e 'N' \ |
| | 169 | -e 'b tstcont' \ |
| | 170 | -e '}' \ |
| | 171 | -e 's/\\\n//g' \ |
| | 172 | -e '/^#line/d' \ |
| | 173 | -e '/^[ ]*#/{' \ |
| | 174 | -e 's|[ ]*/\*[^*].*$||' \ |
| | 175 | -e 's|[ ]*/\*\*[^/].*$||' \ |
| | 176 | -e 's/.\{255\}/&\\\n/g' \ |
| | 177 | -e p \ |
| | 178 | -e '}' ) >UU/$file.c |
| | 179 | |
| | 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 |
| | 184 | |
| | 185 | if [ "$osname" = os390 ]; then |
| | 186 | $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c | |
| | 187 | $sed \ |
| | 188 | -e '/^#.*<stdin>/d' \ |
| | 189 | -e '/^#.*"-"/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/' \ |
| | 196 | -e 's|: \./|: |' \ |
| | 197 | -e 's|\.c\.c|.c|' $uwinfix | \ |
| | 198 | $uniq | $sort | $uniq >> .deptmp |
| | 199 | else |
| | 200 | $cppstdin $finc -I. $cppflags $cppminus <UU/$file.c >.cout 2>.cerr |
| | 201 | $sed \ |
| | 202 | -e '1d' \ |
| | 203 | -e '/^#.*<stdin>/d' \ |
| | 204 | -e '/^#.*<builtin>/d' \ |
| | 205 | -e '/^#.*<built-in>/d' \ |
| | 206 | -e '/^#.*<command line>/d' \ |
| | 207 | -e '/^#.*<command-line>/d' \ |
| | 208 | -e '/^#.*"-"/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/' \ |
| | 217 | -e 's|: \./|: |' \ |
| | 218 | -e 's|\.c\.c|.c|' $uwinfix .cout .cerr| \ |
| | 219 | $uniq | $sort | $uniq >> .deptmp |
| | 220 | fi |
| | 221 | echo "$filebase\$(OBJ_EXT): $@" >> .deptmp |
| | 222 | done |
| | 223 | |
| | 224 | $sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d' |
| | 225 | |
| | 226 | if $test -s .deptmp; then |
| | 227 | $echo "Updating $mf..." |
| | 228 | $echo "# If this runs make out of memory, delete /usr/include lines." \ |
| | 229 | >> $mf.new |
| | 230 | if [ "$osname" = vos ]; then |
| | 231 | $sed 's|\.incl\.c|.h|' .deptmp >.deptmp.vos |
| | 232 | mv -f .deptmp.vos .deptmp |
| | 233 | fi |
| | 234 | $sed -e 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" \ |
| | 235 | -e 'h; s/mini\(perlmain\)/\1/p; g' \ |
| | 236 | .deptmp >>$mf.new |
| | 237 | else |
| | 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..." |
| | 243 | <.clist $sed -n \ |
| | 244 | -e '/\//{' \ |
| | 245 | -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \ |
| | 246 | -e d \ |
| | 247 | -e '}' \ |
| | 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 |
| | 255 | fi |
| | 256 | $rm -f $mf.old |
| | 257 | $cp $mf $mf.old |
| | 258 | $rm -f $mf |
| | 259 | $cp $mf.new $mf |
| | 260 | $rm $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 |
| | 263 | rmdir .depending |
| | 264 | |
| | 265 | !NO!SUBS! |
| | 266 | $eunicefix makedepend |
| | 267 | chmod +x makedepend |
https://perl5.git.perl.org / perl5.git / blame_incremental