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

#
# Take a standard dependency file (output from a makedepend)
# Add additional targets to reflect mangled names of objects
#

@manglenames=qw(_d _o _pic _picd _PIC _Insure);
open ( INFILE, "<$ARGV[0]" );
open (OUTFILE, ">$ARGV[0]_tmp");
while ( <INFILE> ) {
        chomp;
        $orig=$_;
        if ( $_=~/.*\.o *:/ ) {
         ($file=$_)=~s/(.*)\.o *:.*/\1/;
         $out="";
         foreach $mang ( @manglenames ) {
           $out=$out." ".$file.$mang.".o";
         }
         $out=~s/^ //;
         $orig=$out." ".$orig;
        }
        print OUTFILE $orig."\n";
}
close INFILE;
close OUTFILE;
use File::Copy;
copy "$ARGV[0]_tmp", "$ARGV[0]";
Revision:	1.4.2.4.2.1
Committed:	Tue Aug 22 18:14:57 2000 UTC (24 years, 8 months ago) by williamc
Branch:	HPWbranch
CVS Tags:	BuildSystemProto1, V0_18_0, V0_18_0model, V0_17_1, V0_18_0alpha, V0_17_0, V0_16_4, V0_16_3, V0_16_2, V0_16_1, V0_16_0, V0_15_1, V0_15_0, V0_15_0beta
Branch point for:	V0_17branch, V0_16branch, V0_15branch
Changes since 1.4.2.4:	+0 -1 lines
Log Message:	remove perl5 location dependence
#	User	Rev	Content
1	williamc	1.1	#
2			# Take a standard dependency file (output from a makedepend)
3			# Add additional targets to reflect mangled names of objects
4			#
5
6	williamc	1.4.2.4	@manglenames=qw(_d _o _pic _picd _PIC _Insure);
7	williamc	1.1	open ( INFILE, "<$ARGV[0]" );
8	williamc	1.4	open (OUTFILE, ">$ARGV[0]_tmp");
9	williamc	1.1	while ( <INFILE> ) {
10	williamc	1.4.2.1	chomp;
11			$orig=$_;
12			if ( $_=~/.\.o :/ ) {
13			($file=$_)=~s/(.)\.o :.*/\1/;
14			$out="";
15			foreach $mang ( @manglenames ) {
16			$out=$out." ".$file.$mang.".o";
17			}
18			$out=~s/^ //;
19			$orig=$out." ".$orig;
20	williamc	1.1	}
21	williamc	1.4.2.1	print OUTFILE $orig."\n";
22	williamc	1.1	}
23			close INFILE;
24	williamc	1.2	close OUTFILE;
25			use File::Copy;
26			copy "$ARGV[0]_tmp", "$ARGV[0]";