[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]_tmp");
while ( <INFILE> ) {
        print OUTFILE $_;
        foreach $mang ( @manglenames ) {
         ($out=$_)=~s/(.*)(.o :)/\1$mang\2/;
         print OUTFILE $out;
        }
}
close INFILE;
close OUTFILE;
use File::Copy;
copy "$ARGV[0]_tmp", "$ARGV[0]";
Revision:	1.2
Committed:	Fri Mar 19 16:55:38 1999 UTC (26 years, 1 month ago) by williamc
Branch:	MAIN
CVS Tags:	V0_5, V0_4, V0_3, V0_2, V0_1
Changes since 1.1:	+5 -1 lines
Log Message:	Add dependency generation
#	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	williamc	1.2	open (OUTFILE, ">>$ARGV[0]_tmp");
10	williamc	1.1	while ( <INFILE> ) {
11	williamc	1.2	print OUTFILE $_;
12	williamc	1.1	foreach $mang ( @manglenames ) {
13			($out=$_)=~s/(.*)(.o :)/\1$mang\2/;
14			print OUTFILE $out;
15			}
16			}
17			close INFILE;
18	williamc	1.2	close OUTFILE;
19			use File::Copy;
20			copy "$ARGV[0]_tmp", "$ARGV[0]";