[ViewVC] Contents 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
#	Content
1	#
2	# Take a standard dependency file (output from a makedepend)
3	# Add additional targets to reflect mangled names of objects
4	#
5
6	@manglenames=qw(_d _o _pic _picd _PIC _Insure);
7	open ( INFILE, "<$ARGV[0]" );
8	open (OUTFILE, ">$ARGV[0]_tmp");
9	while ( <INFILE> ) {
10	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	}
21	print OUTFILE $orig."\n";
22	}
23	close INFILE;
24	close OUTFILE;
25	use File::Copy;
26	copy "$ARGV[0]_tmp", "$ARGV[0]";