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
|
#! /usr/bin/perl -w
use strict;
use warnings;
use Combiner;
my ($cmd, $dir);
my @combs = (
[
["-b 8", "-b 16", "-b 24", "-b 32", ""],
["-R 11025", "-R 22050", "-R 44100", ""],
],
[
["-d", "--downsample", "-d --downsample"],
],
[
["-1", "-2", "-m", "-S"],
],
);
my @inits = (\&nop, \&init_w32);
my @ends = (\&newline, \&newline);
my @callbacks = (
sub($$) {
my ($name, $opts) = @_;
print "madplay $opts -o wave:linux32/$name.wav 1.mp3\n";
},
sub($$) {
my ($name, $opts) = @_;
print "build_win32/madplay.exe $opts -o wave:win32/$name.wav 1.mp3\n";
}
);
print qq[#! /bin/sh -ex
rm -rf linux32 win32
mkdir linux32 win32
];
combiners(\@inits, \@ends, \@callbacks, \@combs);
print qq[
pushd linux32
for w in *.wav; do
md5sum \$w ../win32/\$w
cmp \$w ../win32/\$w
echo
done
popd
];
|