xref: /openbsd/gnu/usr.bin/perl/makedepend.SH (revision 4cfece93) 
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; shift ;;
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    # 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
222done
223
224$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
225
226if $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
237else
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
255fi
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
263rmdir .depending
264
265!NO!SUBS!
266$eunicefix makedepend
267chmod +x makedepend
268