Testing libmad.

2 files changed, 106 insertions, 0 deletions

diff --git a/combiner/libmad.pl b/combiner/libmad.pl
new file mode 100755
index 0000000..266a9c1
--- /dev/null
+++ b/combiner/libmad.pl
@@ -0,0 +1,53 @@
+#! /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_w64);
+
+my @callbacks = (
+	sub($$) {
+		my ($name, $opts) = @_;
+
+		print "madplay $opts -o wave:linux/$name.wav 1.mp3\n";
+	},
+	sub($$) {
+		my ($name, $opts) = @_;
+
+		print "build_win64/madplay.exe $opts -o wave:win64/$name.wav 1.mp3\n";
+	}
+);
+
+print qq[#! /bin/sh -ex
+rm -rf linux win64
+mkdir linux win64
+
+];
+
+combiners(\@inits, \@callbacks, \@combs);
+
+print qq[
+pushd linux
+for w in *.wav; do
+	md5sum \$w ../win64/\$w
+	cmp \$w ../win64/\$w
+	echo
+done
+popd
+];
diff --git a/combiner/libmad32.pl b/combiner/libmad32.pl
new file mode 100755
index 0000000..0c8bd27
--- /dev/null
+++ b/combiner/libmad32.pl
@@ -0,0 +1,53 @@
+#! /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 @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, \@callbacks, \@combs);
+
+print qq[
+pushd linux32
+for w in *.wav; do
+	md5sum \$w ../win32/\$w
+	cmp \$w ../win32/\$w
+	echo
+done
+popd
+];