[ViewVC] Annotation of: cvsroot/COMP/SCRAM/src/DependencyMangler

#!/usr/local/bin/perl
#
# Take a standard dependency file (output from a makedepend)
# Add additional targets to reflect mangled names of objects
#

@manglenames=qw(_d _pic _PIC);
open ( INFILE, "<$ARGV[0]" );
open (OUTFILE, ">>$ARGV[0]");
while ( <INFILE> ) {
        foreach $mang ( @manglenames ) {
         ($out=$_)=~s/(.*)(.o :)/\1$mang\2/;
         print OUTFILE $out;
        }
}
close INFILE;
Revision:	1.1
Committed:	Fri Mar 19 16:05:46 1999 UTC (26 years, 1 month ago) by williamc
Branch:	MAIN
Log Message:	Make sure we have all the different objectfile types accounted for in the dependency file
#	User	Rev	Content
1	williamc	1.1	#!/usr/local/bin/perl
2			#
3			# Take a standard dependency file (output from a makedepend)
4			# Add additional targets to reflect mangled names of objects
5			#
6
7			@manglenames=qw(_d _pic _PIC);
8			open ( INFILE, "<$ARGV[0]" );
9			open (OUTFILE, ">>$ARGV[0]");
10			while ( <INFILE> ) {
11			foreach $mang ( @manglenames ) {
12			($out=$_)=~s/(.*)(.o :)/\1$mang\2/;
13			print OUTFILE $out;
14			}
15			}
16			close INFILE;