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
|
#! /usr/bin/perl -w
use strict;
use warnings;
use Combiner;
my $w32 = '/usr/i686-w64-mingw32/sys-root/mingw/bin/';
my $w64 = '/usr/x86_64-w64-mingw32/sys-root/mingw/bin/';
my ($cmd, $dir);
my @combs = (
[
["-f", "-h", ""],
],
[
["-b24", "-b4812", "-b9600"],
["-c"],
["-cc", ""],
["-f", "-h", ""],
],
[
["-b2418"],
["-c"],
["-p", ""],
["--use-dns", ""],
],
[
["-x2", "-x4", "-x6"],
]
);
my @inits = (\&nop, \&init_w32, \&init_w64);
my @callbacks = (
sub($$) {
my ($name, $opts) = @_;
print "wavpack $opts 1.wav -o linux/$name.wv\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w32}wavpack.exe $opts 1.wav -o win32/$name.wv\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w64}wavpack.exe $opts 1.wav -o win64/$name.wv\n";
}
);
my @callbacks_dec = (
sub($$) {
my ($name, $opts) = @_;
print "wvunpack linux/$name.wv -o linux/$name.wav\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w32}wvunpack.exe win32/$name.wv -o win32/$name.wav\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w64}wvunpack.exe win64/$name.wv -o win64/$name.wav\n";
},
);
print qq[#! /bin/sh -ex
rm -rf linux win32 win64
mkdir linux win32 win64
];
combiners(\@inits, \@callbacks, \@combs);
combiners(\@inits, \@callbacks_dec, \@combs);
|