[packages/gcc.git] / gcc-optimize-la.pl

#!/usr/bin/perl

sub trim
{
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}

open(F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n");
@lines = <F>;
close(F);

@deps = ();

foreach (@lines)
{
    if (/(^dependency_libs='(.*)')/)
    {
	@libs = split(/[\ \t\n]+/, trim($2));
	@L = grep(/^-L.*gcc\/.*\/\d\.\d\.\d(\/32)*$/, @libs);
	@l = grep(/^-l.*/, @libs);
	$opt_L = join(' ', @L);
	$opt_l = join(' ', @l);
	print("dependency_libs='");
	print($opt_L);
	if (scalar(@L))
	{
	    print(" ");
	}
	print($opt_l);
	print("'\n");
    }
    elsif (/^libdir='(.*)'/)
    {
	print("libdir='$ARGV[1]'\n");
    }
    else
    {
	print($_);
    }
}
Commit	Line	Data
1f122d95 PS	1	#!/usr/bin/perl
	2
	3	sub trim
	4	{
	5	my $string = shift;
	6	$string =~ s/^\s+//;
	7	$string =~ s/\s+$//;
	8	return $string;
	9	}
	10
	11	open(F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n");
	12	@lines = <F>;
	13	close(F);
	14
	15	@deps = ();
	16
	17	foreach (@lines)
	18	{
	19	if (/(^dependency_libs='(.*)')/)
	20	{
	21	@libs = split(/[\ \t\n]+/, trim($2));
	22	@L = grep(/^-L.gcc\/.\/\d\.\d\.\d(\/32)*$/, @libs);
	23	@l = grep(/^-l.*/, @libs);
	24	$opt_L = join(' ', @L);
	25	$opt_l = join(' ', @l);
	26	print("dependency_libs='");
	27	print($opt_L);
	28	if (scalar(@L))
	29	{
	30	print(" ");
	31	}
	32	print($opt_l);
	33	print("'\n");
	34	}
	35	elsif (/^libdir='(.*)'/)
	36	{
	37	print("libdir='$ARGV[1]'\n");
	38	}
	39	else
	40	{
	41	print($_);
	42	}
	43	}