delibtoolize.pl revision 577
98N/A# ident "@(#)delibtoolize.pl 1.12 08/08/28 SMI"
98N/A# Usage: delibtoolize.pl [-P] <path>
1276N/Amy $single_file;
1276N/Amy %so_versions = ();
my %ltlib_names = ();
my @Makefiles;
sub rulename_to_filename {
return $rulename;
sub scan_file {
my $old_file = $_;
my %makefile_macros = ();
my %makefile_ldflags = ();
while (my $n = <$OLD>) {
close($OLD) or die;
my $vers;
} elsif ($v =~ m/^(\d+)[:\d]*$/ms) {
$vers = $v;
if ($single_file) {
sub modify_file {
my ($filename) = @_;
my $compiler;
my @inlines = ();
while (my $n = <$OLD>) {
if ($l =~ m/^\s*CC\s*=\s*(\S*)/) {
push @inlines, $l;
close($OLD) or die;
foreach $l (@inlines) {
$l =~ s{\$\(LIBTOOL\)
(?:[\\\s]+ \$\(LT_QUIET\))?
$l =~ s{\$\(LIBTOOL\)
(?:[\\\s]+ \$\(LT_QUIET\))?
[\\\s]+ --mode=link
}{}xs;
if ($l =~ m/_la_LDFLAGS\s*=/) {
if ($single_file) {
fi; \
$l .= $installrule;
if ($curtarget =~ m/^.*\.a$/) {
close($NEW) or die;