makedepend in Perl

[Chip Salzenberg]

Here's our makedepend.  It understands C and C++ as well as Informix
ESQL/C source files.  It also allows you to omit header files from
/usr/include to speed subsequent compilations.

Tricks to be gleaned:
   * The one-liner that sets $ME from $0.
   * The BYPATH sorting subroutine.
   * Delay of output (&DEP and &DEPDONE), in case of interruption.

Shar and enjoy.

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  makedeps
# Wrapped by chip at count on Tue Mar 19 08:18:11 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'makedeps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'makedeps'\"
else
echo shar: Extracting \"'makedeps'\" \(3205 characters\)
sed "s/^X//" >'makedeps' <<'END_OF_FILE'
Xeval 'exec /bin/perl -wS $0 ${1+"$@"}'
X	if 0;
X
X# $Id: makedeps,v 1.6 1991/03/08 22:27:10 chip Exp $
X#
X# Make a list of dependencies for the given file(s).
X#
X# $Log: makedeps,v $
X# Revision 1.6  1991/03/08  22:27:10  chip
X# Add "-o" and "-u" options.
X#
X# Revision 1.5  1990/11/29  13:39:37  chip
X# Fix typo.
X#
X# Revision 1.4  90/09/28  11:01:51  chip
X# Handle C++.
X# 
X# Revision 1.3  90/05/03  16:49:30  chip
X# checked in with -k by chip at 90.08.17.15.17.16.
X# 
X# Revision 1.3  90/05/03  16:49:30  chip
X# Remove temp files each time around the loop.
X# Never mention temp files in output.
X# 
X# Revision 1.2  90/05/02  16:43:07  chip
X# Oops.  Write deps for the object file.
X# 
X# Revision 1.1  90/05/02  16:24:39  chip
X# Initial revision
X# 
X
X($ME = $0) =~ s#^.*/##;
X
X################################################################
X## Configuration.
X################################################################
X
X$INF = "/usr/informix" unless $INF = $ENV{'INFORMIXDIR'};
Xchop($HOME = `pwd`) unless $HOME = $ENV{'HOME'};
X
X at COPY = ("cp");
X at CPP = ("cc", "-E");
X at CPLUSPP = ("g++", "-E");
X at ESQLC = ("$INF/lib/esqlc", "-e");
X
X$T = "dep_$$";
X
X################################################################
X## Options.
X################################################################
X
Xundef $OPT_OUTPUT;
X$OPT_USER = 0;
X at CPPOPTS = ();
Xwhile (@ARGV) {
X	$_ = $ARGV[0];
X	last unless /^-/;
X	if (/^-o(.*)$/) {
X		shift;
X		die "$ME: -o needs argument"
X		    unless defined($OPT_OUTPUT = length($1) ? $1 : shift);
X	}
X	elsif (/^-u$/) {
X		shift;
X		$OPT_USER = 1;
X	}
X	else {
X		push(@CPPOPTS, shift);
X	}
X}
X
X# Avoid warnings
X at CPP, @CPLUSPP;
X
X&DEP("## These dependences were generated by the \"$ME\" program.\n");
X&DEP("## Any changes made by hand will be lost!\n");
X
Xforeach $file (@ARGV) {
X	unless (-f $file) {
X		print STDERR "$ME: $file: no such file\n";
X		next;
X	}
X
X	if (($basename) = ($file =~ /^(\S+)\.c$/)) {
X		open(CPP, "@CPP @CPPOPTS $file |");
X	}
X	elsif (($basename) = ($file =~ /^(\S+)\.(C|cc|cxx|cpp)$/)) {
X		open(CPP, "@CPLUSPP @CPPOPTS $file |");
X	}
X	elsif (($basename) = ($file =~ /^(\S+)\.ec$/)) {
X		if (system(@COPY, $file, "$T.ec")
X		 || system(@ESQLC, "$T.ec")) {
X			print STDERR "$ME: can't compile $file\n";
X			next;
X		}
X		open(CPP, "@CPP @CPPOPTS $T.c |");
X	}
X	else {
X		print STDERR "$ME: $file: not C, C++ or ESQL/C\n";
X		next;
X	}
X
X	undef %D;
X	while (<CPP>) {
X		next unless @F = /^#\s*(line\s*)?(\d+)\s+"(.+)"/;
X		$i = @F[2];
X
X		# Perform transformations on include filename here.
X		$i =~ s#//*#/#g;
X		$i =~ s#^\./##;
X
X		$D{$i} = 1 unless grep($i eq $_, $file, "$T.c", "$T.ec");
X	}
X	close(CPP);
X
X	&DEP("\n");
X	&DEP("# $file\n");
X	foreach (sort BYPATH keys(%D)) {
X		next if $OPT_USER && m#^/usr/include/#;
X		&DEP("$basename.o: $_\n");
X	}
X
X	unlink("$T.ec", "$T.c");
X}
X
X&DEPDONE;
Xexit(0);
X
Xsub BYPATH {
X	$_ = 0;
X	--$_ if $a =~ m#^/#;
X	++$_ if $b =~ m#^/#;
X	return $_ if $_;
X	return -1 if $a lt $b;
X	return 1 if $a gt $b;
X	return 0;
X}
X
Xsub DEP {
X	$DEP = "" unless defined($DEP);
X	for $x (@_) { $DEP .= $x; }
X}
X
Xsub DEPDONE {
X	if (defined($OPT_OUTPUT)) {
X		die "$ME: can't create $OUT: $!\n"
X		    unless open(OUT, "> $OPT_OUTPUT");
X		print OUT $DEP;
X		close(OUT);
X	}
X	else {
X		print $DEP;
X	}
X	$DEP = "";
X}
END_OF_FILE
if test 3205 -ne `wc -c <'makedeps'`; then
    echo shar: \"'makedeps'\" unpacked with wrong size!
fi
chmod +x 'makedeps'
# end of 'makedeps'
fi
echo shar: End of shell archive.
exit 0
-- 
Chip Salzenberg at Teltronics/TCT     <chip at tct.uucp>, <uunet!pdn!tct!chip>
 "Most of my code is written by myself.  That is why so little gets done."
                 -- Herman "HLLs will never fly" Rubin