This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: dereferencing a hash from the debugger won't work
[perl5.git] / makedepend.SH
CommitLineData
1e2cbf11 1#! /bin/sh
8d063cd8
LW
2case $CONFIG in
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
1aef975c
AD
28!GROK!THIS!
29$spitshell >>makedepend <<'!NO!SUBS!'
8d063cd8
LW
30
31export PATH || (echo "OOPS, this isn't sh. Desperation time. I will feed myself to sh."; sh \$0; kill \$\$)
32
a0d0e21e
LW
33case $CONFIG in
34'')
35 if test -f config.sh; then TOP=.;
36 elif test -f ../config.sh; then TOP=..;
37 elif test -f ../../config.sh; then TOP=../..;
38 elif test -f ../../../config.sh; then TOP=../../..;
39 elif test -f ../../../../config.sh; then TOP=../../../..;
40 else
41 echo "Can't find config.sh."; exit 1
42 fi
43 . $TOP/config.sh
44 ;;
45esac
8d063cd8 46
16d20bd9
AD
47# We need .. when we are in the x2p directory if we are using the
48# cppstdin wrapper script.
8e07c86e
AD
49# Put .. and . first so that we pick up the present cppstdin, not
50# an older one lying about in /usr/local/bin.
51PATH=".:..:$PATH"
7b0cd887
LW
52export PATH
53
8d063cd8
LW
54$cat /dev/null >.deptmp
55$rm -f *.c.c c/*.c.c
56if test -f Makefile; then
1e2cbf11 57 rm -f $firstmakefile
337e9004 58 cp Makefile $firstmakefile
8d063cd8 59fi
337e9004 60mf=$firstmakefile
8d063cd8
LW
61if test -f $mf; then
62 defrule=`<$mf sed -n \
2d9864fe 63 -e '/^\.c\$(OBJ_EXT):.*;/{' \
8d063cd8
LW
64 -e 's/\$\*\.c//' \
65 -e 's/^[^;]*;[ ]*//p' \
66 -e q \
67 -e '}' \
2d9864fe 68 -e '/^\.c\$(OBJ_EXT): *$/{' \
8d063cd8
LW
69 -e N \
70 -e 's/\$\*\.c//' \
71 -e 's/^.*\n[ ]*//p' \
72 -e q \
73 -e '}'`
74fi
75case "$defrule" in
76'') defrule='$(CC) -c $(CFLAGS)' ;;
77esac
78
85e6fe83
LW
79: Create files in UU directory to avoid problems with long filenames
80: on systems with 14 character filename limits so file.c.c and file.c
81: might be identical
82$test -d UU || mkdir UU
83
1aef975c 84$MAKE clist || ($echo "Searching for .c files..."; \
a687059c 85 $echo *.c | $tr ' ' '\012' | $egrep -v '\*' >.clist)
8d063cd8
LW
86for file in `$cat .clist`; do
87# for file in `cat /dev/null`; do
88 case "$file" in
89 *.c) filebase=`basename $file .c` ;;
7b0cd887
LW
90 *.y) filebase=`basename $file .y` ;;
91 esac
92 case "$file" in
93 */*) finc="-I`echo $file | sed 's#/[^/]*$##`" ;;
94 *) finc= ;;
8d063cd8 95 esac
337e9004 96 $echo "Finding dependencies for $filebase$obj_ext."
7b0cd887
LW
97 ( $echo "#line 1 \"$file\""; \
98 $sed -n <$file \
8d063cd8 99 -e "/^${filebase}_init(/q" \
2304df62 100 -e '/^#line/d' \
8d063cd8
LW
101 -e '/^#/{' \
102 -e 's|/\*.*$||' \
103 -e 's|\\$||' \
104 -e p \
85e6fe83
LW
105 -e '}' ) >UU/$file.c
106 $cppstdin $finc -I/usr/local/include -I. $cppflags $cppminus <UU/$file.c |
8d063cd8 107 $sed \
75f92628 108 -e '/^#.*<stdin>/d' \
7b0cd887 109 -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
55204971 110 -e 's/^[ ]*#[ ]*line/#/' \
7b0cd887 111 -e '/^# *[0-9][0-9]* *[".\/]/!d' \
337e9004
PP
112 -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
113 -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
8d063cd8
LW
114 -e 's|: \./|: |' \
115 -e 's|\.c\.c|.c|' | \
116 $uniq | $sort | $uniq >> .deptmp
117done
118
352d5a3a 119$sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
8d063cd8 120
1aef975c 121$MAKE shlist || ($echo "Searching for .SH files..."; \
a687059c 122 $echo *.SH | $tr ' ' '\012' | $egrep -v '\*' >.shlist)
337e9004 123
760ac839
LW
124# Now extract the dependencies on makedepend.SH and Makefile.SH
125# (they should reside in the main Makefile):
337e9004
PP
126mv .shlist .shlist.old
127$egrep -v '^makedepend\.SH' <.shlist.old >.shlist
760ac839
LW
128mv .shlist .shlist.old
129$egrep -v '^Makefile\.SH' <.shlist.old >.shlist
337e9004
PP
130rm .shlist.old
131
8d063cd8
LW
132if $test -s .deptmp; then
133 for file in `cat .shlist`; do
a0d0e21e 134 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
6b9d15cb 135 $sh $file >> .deptmp
8d063cd8 136 done
352d5a3a 137 $echo "Updating $mf..."
8d063cd8 138 $echo "# If this runs make out of memory, delete /usr/include lines." \
352d5a3a 139 >> $mf.new
2d9864fe 140 $sed 's|^\(.*\$(OBJ_EXT):\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
352d5a3a 141 >>$mf.new
8d063cd8 142else
1aef975c 143 $MAKE hlist || ($echo "Searching for .h files..."; \
a687059c 144 $echo *.h | $tr ' ' '\012' | $egrep -v '\*' >.hlist)
8d063cd8
LW
145 $echo "You don't seem to have a proper C preprocessor. Using grep instead."
146 $egrep '^#include ' `cat .clist` `cat .hlist` >.deptmp
352d5a3a 147 $echo "Updating $mf..."
8d063cd8
LW
148 <.clist $sed -n \
149 -e '/\//{' \
337e9004 150 -e 's|^\(.*\)/\(.*\)\.c|\2\$(OBJ_EXT): \1/\2.c; '"$defrule \1/\2.c|p" \
8d063cd8
LW
151 -e d \
152 -e '}' \
337e9004 153 -e 's|^\(.*\)\.c|\1\$(OBJ_EXT): \1.c|p' >> $mf.new
8d063cd8
LW
154 <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
155 <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
156 $sed 's|^[^;]*/||' | \
352d5a3a 157 $sed -f .hsed >> $mf.new
8d063cd8 158 <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
352d5a3a 159 $sed -f .hsed >> $mf.new
8d063cd8 160 for file in `$cat .shlist`; do
a0d0e21e 161 $echo `$expr X$file : 'X\(.*\).SH'`: $file $TOP/config.sh \; \
6b9d15cb 162 $sh $file >> $mf.new
8d063cd8
LW
163 done
164fi
352d5a3a
LW
165$rm -f $mf.old
166$cp $mf $mf.old
1e2cbf11 167$rm -f $mf
352d5a3a
LW
168$cp $mf.new $mf
169$rm $mf.new
170$echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
85e6fe83 171$rm -rf .deptmp UU .shlist .clist .hlist .hsed
8d063cd8
LW
172
173!NO!SUBS!
174$eunicefix makedepend
378cc40b 175chmod +x makedepend
8d063cd8
LW
176case `pwd` in
177*SH)
178 $rm -f ../makedepend
179 ln makedepend ../makedepend
180 ;;
181esac