[perl5.git] / makedepend_file.SH

#! /bin/sh
case $PERL_CONFIG_SH in
'')
	if test -f config.sh; then TOP=.;
	elif test -f ../config.sh; then TOP=..;
	elif test -f ../../config.sh; then TOP=../..;
	elif test -f ../../../config.sh; then TOP=../../..;
	elif test -f ../../../../config.sh; then TOP=../../../..;
	else
		echo "Can't find config.sh."; exit 1
	fi
	. $TOP/config.sh
	;;
esac
: This forces SH files to create target in same directory as SH file.
: This is so that make depend always knows where to find SH derivatives.
case "$0" in
*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
esac

echo "Extracting makedepend_file (with variable substitutions)"
rm -f makedepend_file
$spitshell >makedepend_file <<!GROK!THIS!
$startsh
# makedepend_file.SH
#
MAKE=$make
trnl='$trnl'
!GROK!THIS!
$spitshell >>makedepend_file <<'!NO!SUBS!'

file=$1
shift
outfile=$1
shift

case $PERL_CONFIG_SH in
'')
	if test -f config.sh; then TOP=.;
	elif test -f ../config.sh; then TOP=..;
	elif test -f ../../config.sh; then TOP=../..;
	elif test -f ../../../config.sh; then TOP=../../..;
	elif test -f ../../../../config.sh; then TOP=../../../..;
	else
		echo "Can't find config.sh."; exit 1
	fi
	. $TOP/config.sh
	;;
esac

# Avoid localized gcc messages
case "$ccname" in
    gcc) LC_ALL=C ; export LC_ALL ;;
esac

# We need .. when we are in the x2p directory if we are using the
# cppstdin wrapper script.
# Put .. and . first so that we pick up the present cppstdin, not
# an older one lying about in /usr/local/bin.
PATH=".$path_sep..$path_sep$PATH"
export PATH

case "$osname" in
amigaos) cat=/bin/cat ;; # must be absolute
esac

    case "$osname" in
    os2)      uwinfix="-e s,\\\\\\\\,/,g" ;;
    cygwin)   uwinfix="-e s,\\\\\\\\,/,g" ;;
    posix-bc) uwinfix="-e s/\\*POSIX(\\(.*\\))/\\1/" ;;
    vos)      uwinfix="-e s/\#/\\\#/" ;;
    *)        uwinfix="" ;;
    esac
    case "$file" in
    *.c) filebase=`basename $file .c` ;;
    *.y) filebase=`basename $file .y` ;;
    esac
    case "$file" in
    */*) finc="-I`echo $file | sed 's#/[^/]*$##'`" ;;
    *)   finc= ;;
    esac
    $echo "Finding dependencies for $filebase$_o"
    # Below, we strip out all but preprocessor directives.
    # We have to take care of situations like
    #       #if defined(FOO) BAR   /* comment line 1
    #                                 more comment lines */
    # If we just delete text starting from the '/*' to the end of line, we will
    # screw up cases like
    #      #if defined(FOO)    /* comment */ \
    #          && defined(BAR) /* comment */ \
    #          && defined(BAZ) /* comment */ \
    #               etc.
    # Also, in lines like
    #      #defined FOO(a,b)    a/**/b
    # the comment may be important and so needs to be retained.
    # This code processes the single-line comments first; it assumes there is
    # at most one straightforward comment per continued preprocessor line,
    # replacing each non-empty comment (and its surrounding white space) by a
    # single space.  (sed only has a greedy '*' quantifier, so this doesn't
    # work right if there are multiple comments per line, and strings can look
    # like comments to it; both are unlikely in a preprocessor statement.) Any
    # continuation line is joined, and the process repeated on the enlarged
    # line as long as there are continuations.  At the end, if there are any
    # comments remaining, they are either completely empty or are like the
    # first situation.  The latter are just deleted by first deleting to the
    # end of line (including preceding white space) things that start with '/*'
    # and the next char isn't a '*'; then things that start with '/**', but the
    # next char isn't a '/'.  (Subsequent lines of the comment are irrelevant
    # and get dropped.)  At the end, we unjoin very long lines to avoid
    # preprocessor limitations
    ( $echo "#line 2 \"$file\"";                               \
      $sed -n <$file                                           \
	-e "/^${filebase}_init(/q"                             \
        -e ': tstcont'                                         \
	-e '/^[ 	]*#/s|[ 	]*/\*..*\*/[ 	]*| |' \
        -e '/\\$/{'                                            \
            -e 'N'                                             \
            -e 'b tstcont'                                     \
        -e '}'                                                 \
	-e 's/\\\n//g'                                         \
	-e '/^#line/d'                                         \
	-e '/^[ 	]*#/{'                                 \
	    -e 's|[ 	]*/\*[^*].*$||'                        \
	    -e 's|[ 	]*/\*\*[^/].*$||'                      \
            -e 's/.\{255\}/&\\\n/g'                           \
	    -e p                                               \
	-e '}' | $grep -v ":" ) >UU/$file.c

    # We're not sure why this was there; the #endif is extraneous on modern z/OS
    #if [ "$osname" = os390 -a "$file" = perly.c ]; then
    #   $echo '#endif' >>UU/$file.c
    #fi

    if [ "$osname" = os390 ]; then
        $cppstdin -DPERL_CORE $finc -I. $cppflags $cppminus <UU/$file.c |
        $sed \
    	    -e '/^#.*<stdin>/d' \
	    -e '/^#.*"-"/d' \
	    -e '/^#.*git_version\.h/d' \
	    -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
	    -e 's/^[	 ]*#[	 ]*line/#/' \
	    -e '/^# *[0-9][0-9]* *[".\/]/!d' \
	    -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
	    -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
	    -e 's|: \./|: |' \
	    -e 's|\.c\.c|.c|' $uwinfix | \
        $uniq | $sort | $uniq >>$outfile
    else
        $cppstdin -DPERL_CORE $finc -I. $cppflags $cppminus <UU/$file.c >$$.cout 2>$$.cerr
        $sed \
	    -e '1d' \
	    -e '/^#.*<stdin>/d' \
            -e '/^#.*<builtin>/d' \
            -e '/^#.*<built-in>/d' \
            -e '/^#.*<command line>/d' \
            -e '/^#.*<command-line>/d' \
	    -e '/^#.*"-"/d' \
	    -e '/^#.*"\/.*\/"/d' \
	    -e '/: file path prefix .* never used$/d' \
	    -e '/^#.*git_version\.h/d' \
	    -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
	    -e 's/^[	 ]*#[	 ]*line/#/' \
	    -e '/^# *[0-9][0-9]* *[".\/]/!d' \
	    -e 's/^.*"\(.*\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
	    -e 's/^# *[0-9][0-9]* \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
	    -e 's|: \./|: |' \
           -e 's|\.c\.c|.c|' $uwinfix $$.cout $$.cerr| \
        $uniq | $sort | $uniq >>$outfile
        rm $$.cout
        rm $$.cerr
    fi
    $echo "$filebase\$(OBJ_EXT): $@" >>$outfile

!NO!SUBS!
$eunicefix makedepend_file
chmod +x makedepend_file
Commit	Line	Data
8d469d0e MM	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_file (with variable substitutions)"
	22	rm -f makedepend_file
	23	$spitshell >makedepend_file <<!GROK!THIS!
	24	$startsh
	25	# makedepend_file.SH
	26	#
	27	MAKE=$make
	28	trnl='$trnl'
	29	!GROK!THIS!
	30	$spitshell >>makedepend_file <<'!NO!SUBS!'
	31
	32	file=$1
	33	shift
	34	outfile=$1
	35	shift
	36
	37	case $PERL_CONFIG_SH in
	38	'')
	39	if test -f config.sh; then TOP=.;
	40	elif test -f ../config.sh; then TOP=..;
	41	elif test -f ../../config.sh; then TOP=../..;
	42	elif test -f ../../../config.sh; then TOP=../../..;
	43	elif test -f ../../../../config.sh; then TOP=../../../..;
	44	else
	45	echo "Can't find config.sh."; exit 1
	46	fi
	47	. $TOP/config.sh
	48	;;
	49	esac
	50
	51	# Avoid localized gcc messages
	52	case "$ccname" in
	53	gcc) LC_ALL=C ; export LC_ALL ;;
	54	esac
	55
	56	# We need .. when we are in the x2p directory if we are using the
	57	# cppstdin wrapper script.
	58	# Put .. and . first so that we pick up the present cppstdin, not
	59	# an older one lying about in /usr/local/bin.
	60	PATH=".$path_sep..$path_sep$PATH"
	61	export PATH
	62
	63	case "$osname" in
	64	amigaos) cat=/bin/cat ;; # must be absolute
65	esac
66
67	case "$osname" in
8d469d0e MM	68	os2) uwinfix="-e s,\\\\\\\\,/,g" ;;
	69	cygwin) uwinfix="-e s,\\\\\\\\,/,g" ;;
	70	posix-bc) uwinfix="-e s/\\POSIX(\\(.\\))/\\1/" ;;
	71	vos) uwinfix="-e s/\#/\\\#/" ;;
	72	*) uwinfix="" ;;
	73	esac
	74	case "$file" in
	75	*.c) filebase=`basename $file .c` ;;
	76	*.y) filebase=`basename $file .y` ;;
	77	esac
	78	case "$file" in
	79	/) finc="-I`echo $file \| sed 's#/[^/]*$##'`" ;;
	80	*) finc= ;;
	81	esac
	82	$echo "Finding dependencies for $filebase$_o"
	83	# Below, we strip out all but preprocessor directives.
	84	# We have to take care of situations like
	85	# #if defined(FOO) BAR /* comment line 1
	86	# more comment lines */
	87	# If we just delete text starting from the '/*' to the end of line, we will
	88	# screw up cases like
	89	# #if defined(FOO) /* comment */ \
	90	# && defined(BAR) /* comment */ \
	91	# && defined(BAZ) /* comment */ \
	92	# etc.
	93	# Also, in lines like
	94	# #defined FOO(a,b) a/**/b
	95	# the comment may be important and so needs to be retained.
	96	# This code processes the single-line comments first; it assumes there is
	97	# at most one straightforward comment per continued preprocessor line,
	98	# replacing each non-empty comment (and its surrounding white space) by a
	99	# single space. (sed only has a greedy '*' quantifier, so this doesn't
	100	# work right if there are multiple comments per line, and strings can look
	101	# like comments to it; both are unlikely in a preprocessor statement.) Any
	102	# continuation line is joined, and the process repeated on the enlarged
	103	# line as long as there are continuations. At the end, if there are any
	104	# comments remaining, they are either completely empty or are like the
	105	# first situation. The latter are just deleted by first deleting to the
	106	# end of line (including preceding white space) things that start with '/*'
	107	# and the next char isn't a ''; then things that start with '/*', but the
	108	# next char isn't a '/'. (Subsequent lines of the comment are irrelevant
	109	# and get dropped.) At the end, we unjoin very long lines to avoid
	110	# preprocessor limitations
	111	( $echo "#line 2 \"$file\""; \
	112	$sed -n <$file \
	113	-e "/^${filebase}_init(/q" \
	114	-e ': tstcont' \
	115	-e '/^[ ]#/s\|[ ]/\..\/[ ]\| \|' \
	116	-e '/\\$/{' \
	117	-e 'N' \
	118	-e 'b tstcont' \
	119	-e '}' \
	120	-e 's/\\\n//g' \
	121	-e '/^#line/d' \
	122	-e '/^[ ]*#/{' \
	123	-e 's\|[ ]/\[^].$\|\|' \
	124	-e 's\|[ ]/\\[^/].$\|\|' \
	125	-e 's/.\{255\}/&\\\n/g' \
	126	-e p \
	127	-e '}' \| $grep -v ":" ) >UU/$file.c
	128
	129	# We're not sure why this was there; the #endif is extraneous on modern z/OS
	130	#if [ "$osname" = os390 -a "$file" = perly.c ]; then
	131	# $echo '#endif' >>UU/$file.c
132	#fi
133
134	if [ "$osname" = os390 ]; then
bf80053f	135	$cppstdin -DPERL_CORE $finc -I. $cppflags $cppminus <UU/$file.c \|
8d469d0e MM	136	$sed \
	137	-e '/^#.*<stdin>/d' \
	138	-e '/^#.*"-"/d' \
	139	-e '/^#.*git_version\.h/d' \
	140	-e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
	141	-e 's/^[ ]#[ ]line/#/' \
	142	-e '/^# [0-9][0-9] *[".\/]/!d' \
	143	-e 's/^."\(.\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
	144	-e 's/^# [0-9][0-9] \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
	145	-e 's\|: \./\|: \|' \
	146	-e 's\|\.c\.c\|.c\|' $uwinfix \| \
	147	$uniq \| $sort \| $uniq >>$outfile
	148	else
bf80053f	149	$cppstdin -DPERL_CORE $finc -I. $cppflags $cppminus <UU/$file.c >$$.cout 2>$$.cerr
8d469d0e MM	150	$sed \
	151	-e '1d' \
	152	-e '/^#.*<stdin>/d' \
	153	-e '/^#.*<builtin>/d' \
	154	-e '/^#.*<built-in>/d' \
	155	-e '/^#.*<command line>/d' \
	156	-e '/^#.*<command-line>/d' \
	157	-e '/^#.*"-"/d' \
	158	-e '/^#."\/.\/"/d' \
	159	-e '/: file path prefix .* never used$/d' \
	160	-e '/^#.*git_version\.h/d' \
	161	-e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
	162	-e 's/^[ ]#[ ]line/#/' \
	163	-e '/^# [0-9][0-9] *[".\/]/!d' \
	164	-e 's/^."\(.\)".*$/'$filebase'\$(OBJ_EXT): \1/' \
	165	-e 's/^# [0-9][0-9] \(.*\)$/'$filebase'\$(OBJ_EXT): \1/' \
	166	-e 's\|: \./\|: \|' \
	167	-e 's\|\.c\.c\|.c\|' $uwinfix $$.cout $$.cerr\| \
	168	$uniq \| $sort \| $uniq >>$outfile
	169	rm $$.cout
	170	rm $$.cerr
	171	fi
	172	$echo "$filebase\$(OBJ_EXT): $@" >>$outfile
	173
	174	!NO!SUBS!
	175	$eunicefix makedepend_file
	176	chmod +x makedepend_file