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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/usr/bin/perl -w
sub testfile($$$$$) {
my($cvse,$master,$compare,$dir,$file) = @_;
if(!(-e "$cvse/$master/$dir/$file")) {
print "No such file for master $cvse/$master/$dir/$file\n";
return 0;
}
if(!(-e "$cvse/$compare/$dir/$file")) {
print "No such file for '$compare' $cvse/$master/$dir/$file\n";
return 0;
}
system "diff $cvse/$master/$dir/$file $cvse/$compare/$dir/$file > x.test";
if(-s "x.test") {
$ok = 1;
open(X, "x.test");
$block = "";
$savefile = "";
$badblock = 0;
while(<X>) {
if(/File \S+ differs:/) {next}
if(/^\d+(,\d+)?([acd])\d+(,\d+)?/) {
if($badblock) {$savefile .= $block}
$type = $2;
$badblock = 0;
$block = "";
}
elsif(/^[<>] AC_INIT[\(](source|src)\/\w+[.][ch][\)]$/) {
}
elsif(/^[<>] AM_INIT_AUTOMAKE[\(]\w+, [\d.]+[a-z]?[\)]$/) {
}
elsif(/^[<>]\s+$/ && $type eq "c") {
}
elsif(/^---$/) {
}
elsif(/^[<>] AC_OUTPUT[\(]Makefile .*$/) {
}
else {
$ok = 0;
$badblock = 1;
# print "bad block $_";
}
$block .= $_;
}
if($badblock) {$savefile .= $block}
close X;
if(!$ok) {
print "File $file differs:\n";
print $savefile;
return 0;
}
}
system "rm x.test";
return 1;
}
# where the original distribution lives
my $distribtop = "./";
# where the installed package lives
my $installtop = "./";
open (VERS, "embossversion -full -auto|") || die "Cannot run embossversion";
while (<VERS>) {
if(/InstallDirectory: +(\S+)/) {
$installtop = $1;
$installtop =~ s/\/$//;
}
if(/BaseDirectory: +(\S+)/) {
$distribtop = $1;
$distribtop =~ s/\/$//;
}
}
close VERS;
my $cvse = "$distribtop/embassy";
my $masterembassy = "appendixd";
my @embassylist = ("appendixd",
"cbstools",
"clustalomega",
"domainatrix",
"domalign",
"domsearch",
"emnu",
"esim4",
"hmmer",
"hmmernew",
"iprscan",
"meme",
"memenew",
"mira",
"mse",
"myemboss", # we avoid documenting these examples
"myembossdemo", # we avoid documenting these examples
"phylip",
"phylipnew",
"signature",
"structure",
"topo",
"vienna",
"vienna2",
);
foreach $e (@embassylist) {
if($e eq $masterembassy) {next}
print "$e:\n";
testfile($cvse, $masterembassy, $e, "m4", "amd64.m4");
testfile($cvse, $masterembassy, $e, "m4", "general.m4");
testfile($cvse, $masterembassy, $e, "m4", "grout.m4");
testfile($cvse, $masterembassy, $e, "m4", "java.m4");
testfile($cvse, $masterembassy, $e, "m4", "pngdriver.m4");
testfile($cvse, $masterembassy, $e, "m4", "sgi.m4");
testfile($cvse, $masterembassy, $e, "", "configure.in");
}
|
