blob: 03f517471e0776aac2b4c65cfa50b61ab1e07b11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/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>) {
if (/^libsmokeqt_la_SOURCES/)
{
$found = 1;
$makeFileData .= "libsmokeqt_la_SOURCES = smokedata.cpp";
}
$makeFileData .= $_ if (!$found);
}
close MAKEFILE;
die "libsmokeqt_la_SOURCES not found" if (!$found);
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;
|
