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
|
#! /usr/bin/perl -w
use strict;
use warnings;
our @EXPORT_OK = qw(combiner);
use Combiner;
my $w32 = $Combiner::w32;
my $w64 = $Combiner::w64;
my ($cmd, $dir);
my @combs = (
[
["--fast", "--compression-level-5", ""],
["--lax", ""]
],
[
["", "--compression-level-8"],
["--qlp-coeff-precision-search"]
],
[
["--compression-level-1", "--compression-level-2", "--compression-level-3", "--compression-level-4", "--compression-level-6", "--compression-level-7", "--compression-level-8"],
],
[
["-l 0 -b 1152 -r 3", "-b 1152 -r 3", "-l 0 -r 3", "-l 0 -b 1152", "-l 0", "-b 1152", "-r 3"],
],
[
["-l 1", "-l 2"]
]
);
my @inits = (\&nop, \&init_w32, \&init_w64);
my @ends = (\&newline, \&newline, \&newline);
my @callbacks = (
sub($$) {
my ($name, $opts) = @_;
print "flac $opts -o linux/$name.flac 1.wav\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w32}flac.exe $opts -o win32/$name.flac 1.wav\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w64}flac.exe $opts -o win64/$name.flac 1.wav\n";
}
);
my @callbacks_dec = (
sub($$) {
my ($name, $opts) = @_;
print "flac -d -o linux/$name.wav linux/$name.flac\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w32}flac.exe -d -o win32/$name.wav win32/$name.flac\n";
},
sub($$) {
my ($name, $opts) = @_;
print "${w64}flac.exe -d -o win64/$name.wav win64/$name.flac\n";
},
# sub($$) {
# my ($name, $opts) = @_;
#
# print "${w32}flac.exe -d -o linux-win32/$name.wav linux/$name.flac\n";
# },
# sub($$) {
# my ($name, $opts) = @_;
#
# print "${w64}flac.exe -d -o linux-win64/$name.wav linux/$name.flac\n";
# }
);
print qq[#! /bin/sh -ex
rm -rf linux win32 win64 linux-win32 linux-win64
mkdir linux win32 win64
# linux-win32 linux-win64
];
combiners(\@inits, \@callbacks, \@combs);
combiners(\@inits, \@callbacks_dec, \@combs);
|