You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.1 KiB
56 lines
1.1 KiB
15 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
my $here = `pwd`;
|
||
|
|
chomp $here;
|
||
|
|
my $outdir = $here;
|
||
|
|
my $tempfile = "$outdir/.Makefile.am.tmpfile";
|
||
|
|
|
||
|
|
# Update list of source files in $outdir/Makefile.am
|
||
|
|
open( MAKEFILE, "<$outdir/Makefile.am" ) or die;
|
||
|
|
my $makeFileData = '';
|
||
|
|
my $found = 0;
|
||
|
|
while (<MAKEFILE>) {
|
||
12 years ago
|
if (/^libsmoketqt_la_SOURCES/)
|
||
|
15 years ago
|
{
|
||
|
|
$found = 1;
|
||
|
12 years ago
|
$makeFileData .= "libsmoketqt_la_SOURCES = smokedata.cpp";
|
||
|
15 years ago
|
}
|
||
|
|
$makeFileData .= $_ if (!$found);
|
||
|
|
}
|
||
|
|
close MAKEFILE;
|
||
|
|
|
||
|
12 years ago
|
die "libsmoketqt_la_SOURCES not found" if (!$found);
|
||
|
15 years ago
|
|
||
|
|
open( MAKEFILE, ">$tempfile" ) or die;
|
||
|
|
print MAKEFILE $makeFileData;
|
||
|
|
|
||
|
|
my $count = 0;
|
||
|
|
opendir (FILES, $outdir) or die;
|
||
|
|
foreach $filename (readdir(FILES)) {
|
||
|
|
if ( $filename =~ /^x_.*\.cpp$/ ) {
|
||
|
|
if ( $count++ == 7 ) {
|
||
|
|
$count = 0;
|
||
|
|
print MAKEFILE " \\\n";
|
||
|
|
}
|
||
|
|
print MAKEFILE " $filename";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print MAKEFILE "\n";
|
||
|
|
close MAKEFILE;
|
||
|
|
closedir FILES;
|
||
|
|
|
||
|
|
system "cmp -s $tempfile $outdir/Makefile.am";
|
||
|
|
if ($? >> 8) {
|
||
|
|
system "cp -f $tempfile $outdir/Makefile.am";
|
||
|
|
print STDERR "Makefile.am updated.\n";
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
print STDERR "Makefile.am unchanged.\n";
|
||
|
|
}
|
||
|
|
system "rm -f $tempfile";
|
||
|
|
|
||
|
|
exit 0;
|