| #!/usr/bin/perl -w |
| |
| use warnings; |
| use strict; |
| |
| my @audiotypes = qw( |
| U8 |
| S8 |
| U16LSB |
| S16LSB |
| U16MSB |
| S16MSB |
| S32LSB |
| S32MSB |
| F32LSB |
| F32MSB |
| ); |
| |
| my @channels = ( 1, 2, 4, 6, 8 ); |
| my %funcs; |
| my $custom_converters = 0; |
| |
| |
| sub getTypeConvertHashId { |
| my ($from, $to) = @_; |
| return "TYPECONVERTER $from/$to"; |
| } |
| |
| |
| sub getResamplerHashId { |
| my ($from, $channels, $upsample, $multiple) = @_; |
| return "RESAMPLER $from/$channels/$upsample/$multiple"; |
| } |
| |
| |
| sub outputHeader { |
| print <<EOF; |
| /* DO NOT EDIT! This file is generated by sdlgenaudiocvt.pl */ |
| /* |
| Simple DirectMedia Layer |
| Copyright (C) 1997-2014 Sam Lantinga <slouken\@libsdl.org> |
| |
| This software is provided 'as-is', without any express or implied |
| warranty. In no event will the authors be held liable for any damages |
| arising from the use of this software. |
| |
| Permission is granted to anyone to use this software for any purpose, |
| including commercial applications, and to alter it and redistribute it |
| freely, subject to the following restrictions: |
| |
| 1. The origin of this software must not be misrepresented; you must not |
| claim that you wrote the original software. If you use this software |
| in a product, an acknowledgment in the product documentation would be |
| appreciated but is not required. |
| 2. Altered source versions must be plainly marked as such, and must not be |
| misrepresented as being the original software. |
| 3. This notice may not be removed or altered from any source distribution. |
| */ |
| |
| #include "../SDL_internal.h" |
| #include "SDL_audio.h" |
| #include "SDL_audio_c.h" |
| |
| #ifndef DEBUG_CONVERT |
| #define DEBUG_CONVERT 0 |
| #endif |
| |
| |
| /* If you can guarantee your data and need space, you can eliminate code... */ |
| |
| /* Just build the arbitrary resamplers if you're saving code space. */ |
| #ifndef LESS_RESAMPLERS |
| #define LESS_RESAMPLERS 0 |
| #endif |
| |
| /* Don't build any resamplers if you're REALLY saving code space. */ |
| #ifndef NO_RESAMPLERS |
| #define NO_RESAMPLERS 0 |
| #endif |
| |
| /* Don't build any type converters if you're saving code space. */ |
| #ifndef NO_CONVERTERS |
| #define NO_CONVERTERS 0 |
| #endif |
| |
| |
| /* *INDENT-OFF* */ |
| |
| EOF |
| |
| my @vals = ( 127, 32767, 2147483647 ); |
| foreach (@vals) { |
| my $val = $_; |
| my $fval = 1.0 / $val; |
| print("#define DIVBY${val} ${fval}f\n"); |
| } |
| |
| print("\n"); |
| } |
| |
| sub outputFooter { |
| print <<EOF; |
| /* $custom_converters converters generated. */ |
| |
| /* *INDENT-ON* */ |
| |
| /* vi: set ts=4 sw=4 expandtab: */ |
| EOF |
| } |
| |
| sub splittype { |
| my $t = shift; |
| my ($signed, $size, $endian) = $t =~ /([USF])(\d+)([LM]SB|)/; |
| my $float = ($signed eq 'F') ? 1 : 0; |
| $signed = (($float) or ($signed eq 'S')) ? 1 : 0; |
| $endian = 'NONE' if ($endian eq ''); |
| |
| my $ctype = ''; |
| if ($float) { |
| $ctype = (($size == 32) ? 'float' : 'double'); |
| } else { |
| $ctype = (($signed) ? 'S' : 'U') . "int${size}"; |
| } |
| |
| return ($signed, $float, $size, $endian, $ctype); |
| } |
| |
| sub getSwapFunc { |
| my ($size, $signed, $float, $endian, $val) = @_; |
| my $BEorLE = (($endian eq 'MSB') ? 'BE' : 'LE'); |
| my $code = ''; |
| |
| if ($float) { |
| $code = "SDL_SwapFloat${BEorLE}($val)"; |
| } else { |
| if ($size > 8) { |
| $code = "SDL_Swap${BEorLE}${size}($val)"; |
| } else { |
| $code = $val; |
| } |
| |
| if (($signed) and (!$float)) { |
| $code = "((Sint${size}) $code)"; |
| } |
| } |
| |
| return "${code}"; |
| } |
| |
| |
| sub maxIntVal { |
| my $size = shift; |
| if ($size == 8) { |
| return 0x7F; |
| } elsif ($size == 16) { |
| return 0x7FFF; |
| } elsif ($size == 32) { |
| return 0x7FFFFFFF; |
| } |
| |
| die("bug in script.\n"); |
| } |
| |
| sub getFloatToIntMult { |
| my $size = shift; |
| my $val = maxIntVal($size) . '.0'; |
| $val .= 'f' if ($size < 32); |
| return $val; |
| } |
| |
| sub getIntToFloatDivBy { |
| my $size = shift; |
| return 'DIVBY' . maxIntVal($size); |
| } |
| |
| sub getSignFlipVal { |
| my $size = shift; |
| if ($size == 8) { |
| return '0x80'; |
| } elsif ($size == 16) { |
| return '0x8000'; |
| } elsif ($size == 32) { |
| return '0x80000000'; |
| } |
| |
| die("bug in script.\n"); |
| } |
| |
| sub buildCvtFunc { |
| my ($from, $to) = @_; |
| my ($fsigned, $ffloat, $fsize, $fendian, $fctype) = splittype($from); |
| my ($tsigned, $tfloat, $tsize, $tendian, $tctype) = splittype($to); |
| my $diffs = 0; |
| $diffs++ if ($fsize != $tsize); |
| $diffs++ if ($fsigned != $tsigned); |
| $diffs++ if ($ffloat != $tfloat); |
| $diffs++ if ($fendian ne $tendian); |
| |
| return if ($diffs == 0); |
| |
| my $hashid = getTypeConvertHashId($from, $to); |
| if (1) { # !!! FIXME: if ($diffs > 1) { |
| my $sym = "SDL_Convert_${from}_to_${to}"; |
| $funcs{$hashid} = $sym; |
| $custom_converters++; |
| |
| # Always unsigned for ints, for possible byteswaps. |
| my $srctype = (($ffloat) ? 'float' : "Uint${fsize}"); |
| |
| print <<EOF; |
| static void SDLCALL |
| ${sym}(SDL_AudioCVT * cvt, SDL_AudioFormat format) |
| { |
| int i; |
| const $srctype *src; |
| $tctype *dst; |
| |
| #if DEBUG_CONVERT |
| fprintf(stderr, "Converting AUDIO_${from} to AUDIO_${to}.\\n"); |
| #endif |
| |
| EOF |
| |
| if ($fsize < $tsize) { |
| my $mult = $tsize / $fsize; |
| print <<EOF; |
| src = ((const $srctype *) (cvt->buf + cvt->len_cvt)) - 1; |
| dst = (($tctype *) (cvt->buf + cvt->len_cvt * $mult)) - 1; |
| for (i = cvt->len_cvt / sizeof ($srctype); i; --i, --src, --dst) { |
| EOF |
| } else { |
| print <<EOF; |
| src = (const $srctype *) cvt->buf; |
| dst = ($tctype *) cvt->buf; |
| for (i = cvt->len_cvt / sizeof ($srctype); i; --i, ++src, ++dst) { |
| EOF |
| } |
| |
| # Have to convert to/from float/int. |
| # !!! FIXME: cast through double for int32<->float? |
| my $code = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, '*src'); |
| if ($ffloat != $tfloat) { |
| if ($ffloat) { |
| my $mult = getFloatToIntMult($tsize); |
| if (!$tsigned) { # bump from -1.0f/1.0f to 0.0f/2.0f |
| $code = "($code + 1.0f)"; |
| } |
| $code = "(($tctype) ($code * $mult))"; |
| } else { |
| # $divby will be the reciprocal, to avoid pipeline stalls |
| # from floating point division...so multiply it. |
| my $divby = getIntToFloatDivBy($fsize); |
| $code = "(((float) $code) * $divby)"; |
| if (!$fsigned) { # bump from 0.0f/2.0f to -1.0f/1.0f. |
| $code = "($code - 1.0f)"; |
| } |
| } |
| } else { |
| # All integer conversions here. |
| if ($fsigned != $tsigned) { |
| my $signflipval = getSignFlipVal($fsize); |
| $code = "(($code) ^ $signflipval)"; |
| } |
| |
| my $shiftval = abs($fsize - $tsize); |
| if ($fsize < $tsize) { |
| $code = "((($tctype) $code) << $shiftval)"; |
| } elsif ($fsize > $tsize) { |
| $code = "(($tctype) ($code >> $shiftval))"; |
| } |
| } |
| |
| my $swap = getSwapFunc($tsize, $tsigned, $tfloat, $tendian, 'val'); |
| |
| print <<EOF; |
| const $tctype val = $code; |
| *dst = ${swap}; |
| } |
| |
| EOF |
| |
| if ($fsize > $tsize) { |
| my $divby = $fsize / $tsize; |
| print(" cvt->len_cvt /= $divby;\n"); |
| } elsif ($fsize < $tsize) { |
| my $mult = $tsize / $fsize; |
| print(" cvt->len_cvt *= $mult;\n"); |
| } |
| |
| print <<EOF; |
| if (cvt->filters[++cvt->filter_index]) { |
| cvt->filters[cvt->filter_index] (cvt, AUDIO_$to); |
| } |
| } |
| |
| EOF |
| |
| } else { |
| if ($fsigned != $tsigned) { |
| $funcs{$hashid} = 'SDL_ConvertSigned'; |
| } elsif ($ffloat != $tfloat) { |
| $funcs{$hashid} = 'SDL_ConvertFloat'; |
| } elsif ($fsize != $tsize) { |
| $funcs{$hashid} = 'SDL_ConvertSize'; |
| } elsif ($fendian ne $tendian) { |
| $funcs{$hashid} = 'SDL_ConvertEndian'; |
| } else { |
| die("error in script.\n"); |
| } |
| } |
| } |
| |
| |
| sub buildTypeConverters { |
| print "#if !NO_CONVERTERS\n\n"; |
| foreach (@audiotypes) { |
| my $from = $_; |
| foreach (@audiotypes) { |
| my $to = $_; |
| buildCvtFunc($from, $to); |
| } |
| } |
| print "#endif /* !NO_CONVERTERS */\n\n\n"; |
| |
| print "const SDL_AudioTypeFilters sdl_audio_type_filters[] =\n{\n"; |
| print "#if !NO_CONVERTERS\n"; |
| foreach (@audiotypes) { |
| my $from = $_; |
| foreach (@audiotypes) { |
| my $to = $_; |
| if ($from ne $to) { |
| my $hashid = getTypeConvertHashId($from, $to); |
| my $sym = $funcs{$hashid}; |
| print(" { AUDIO_$from, AUDIO_$to, $sym },\n"); |
| } |
| } |
| } |
| print "#endif /* !NO_CONVERTERS */\n"; |
| |
| print(" { 0, 0, NULL }\n"); |
| print "};\n\n\n"; |
| } |
| |
| sub getBiggerCtype { |
| my ($isfloat, $size) = @_; |
| |
| if ($isfloat) { |
| if ($size == 32) { |
| return 'double'; |
| } |
| die("bug in script.\n"); |
| } |
| |
| if ($size == 8) { |
| return 'Sint16'; |
| } elsif ($size == 16) { |
| return 'Sint32' |
| } elsif ($size == 32) { |
| return 'Sint64' |
| } |
| |
| die("bug in script.\n"); |
| } |
| |
| |
| # These handle arbitrary resamples...44100Hz to 48000Hz, for example. |
| # Man, this code is skanky. |
| sub buildArbitraryResampleFunc { |
| # !!! FIXME: we do a lot of unnecessary and ugly casting in here, due to getSwapFunc(). |
| my ($from, $channels, $upsample) = @_; |
| my ($fsigned, $ffloat, $fsize, $fendian, $fctype) = splittype($from); |
| |
| my $bigger = getBiggerCtype($ffloat, $fsize); |
| my $interp = ($ffloat) ? '* 0.5' : '>> 1'; |
| |
| my $resample = ($upsample) ? 'Upsample' : 'Downsample'; |
| my $hashid = getResamplerHashId($from, $channels, $upsample, 0); |
| my $sym = "SDL_${resample}_${from}_${channels}c"; |
| $funcs{$hashid} = $sym; |
| $custom_converters++; |
| |
| my $fudge = $fsize * $channels * 2; # !!! FIXME |
| my $eps_adjust = ($upsample) ? 'dstsize' : 'srcsize'; |
| my $incr = ''; |
| my $incr2 = ''; |
| |
| |
| # !!! FIXME: DEBUG_CONVERT should report frequencies. |
| print <<EOF; |
| static void SDLCALL |
| ${sym}(SDL_AudioCVT * cvt, SDL_AudioFormat format) |
| { |
| #if DEBUG_CONVERT |
| fprintf(stderr, "$resample arbitrary (x%f) AUDIO_${from}, ${channels} channels.\\n", cvt->rate_incr); |
| #endif |
| |
| const int srcsize = cvt->len_cvt - $fudge; |
| const int dstsize = (int) (((double)cvt->len_cvt) * cvt->rate_incr); |
| register int eps = 0; |
| EOF |
| |
| my $endcomparison = '!='; |
| |
| # Upsampling (growing the buffer) needs to work backwards, since we |
| # overwrite the buffer as we go. |
| if ($upsample) { |
| $endcomparison = '>='; # dst > target |
| print <<EOF; |
| $fctype *dst = (($fctype *) (cvt->buf + dstsize)) - $channels; |
| const $fctype *src = (($fctype *) (cvt->buf + cvt->len_cvt)) - $channels; |
| const $fctype *target = ((const $fctype *) cvt->buf); |
| EOF |
| } else { |
| $endcomparison = '<'; # dst < target |
| print <<EOF; |
| $fctype *dst = ($fctype *) cvt->buf; |
| const $fctype *src = ($fctype *) cvt->buf; |
| const $fctype *target = (const $fctype *) (cvt->buf + dstsize); |
| EOF |
| } |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| my $val = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, "src[$idx]"); |
| print <<EOF; |
| $fctype sample${idx} = $val; |
| EOF |
| } |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| print <<EOF; |
| $fctype last_sample${idx} = sample${idx}; |
| EOF |
| } |
| |
| print <<EOF; |
| while (dst $endcomparison target) { |
| EOF |
| |
| if ($upsample) { |
| for (my $i = 0; $i < $channels; $i++) { |
| # !!! FIXME: don't do this swap every write, just when the samples change. |
| my $idx = (($channels - $i) - 1); |
| my $val = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, "sample${idx}"); |
| print <<EOF; |
| dst[$idx] = $val; |
| EOF |
| } |
| |
| $incr = ($channels == 1) ? 'dst--' : "dst -= $channels"; |
| $incr2 = ($channels == 1) ? 'src--' : "src -= $channels"; |
| |
| print <<EOF; |
| $incr; |
| eps += srcsize; |
| if ((eps << 1) >= dstsize) { |
| $incr2; |
| EOF |
| } else { # downsample. |
| $incr = ($channels == 1) ? 'src++' : "src += $channels"; |
| print <<EOF; |
| $incr; |
| eps += dstsize; |
| if ((eps << 1) >= srcsize) { |
| EOF |
| for (my $i = 0; $i < $channels; $i++) { |
| my $val = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, "sample${i}"); |
| print <<EOF; |
| dst[$i] = $val; |
| EOF |
| } |
| |
| $incr = ($channels == 1) ? 'dst++' : "dst += $channels"; |
| print <<EOF; |
| $incr; |
| EOF |
| } |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| my $swapped = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, "src[$idx]"); |
| print <<EOF; |
| sample${idx} = ($fctype) (((($bigger) $swapped) + (($bigger) last_sample${idx})) $interp); |
| EOF |
| } |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| print <<EOF; |
| last_sample${idx} = sample${idx}; |
| EOF |
| } |
| |
| print <<EOF; |
| eps -= $eps_adjust; |
| } |
| } |
| EOF |
| |
| print <<EOF; |
| cvt->len_cvt = dstsize; |
| if (cvt->filters[++cvt->filter_index]) { |
| cvt->filters[cvt->filter_index] (cvt, format); |
| } |
| } |
| |
| EOF |
| |
| } |
| |
| # These handle clean resamples...doubling and quadrupling the sample rate, etc. |
| sub buildMultipleResampleFunc { |
| # !!! FIXME: we do a lot of unnecessary and ugly casting in here, due to getSwapFunc(). |
| my ($from, $channels, $upsample, $multiple) = @_; |
| my ($fsigned, $ffloat, $fsize, $fendian, $fctype) = splittype($from); |
| |
| my $bigger = getBiggerCtype($ffloat, $fsize); |
| my $interp = ($ffloat) ? '* 0.5' : '>> 1'; |
| my $interp2 = ($ffloat) ? '* 0.25' : '>> 2'; |
| my $mult3 = ($ffloat) ? '3.0' : '3'; |
| my $lencvtop = ($upsample) ? '*' : '/'; |
| |
| my $resample = ($upsample) ? 'Upsample' : 'Downsample'; |
| my $hashid = getResamplerHashId($from, $channels, $upsample, $multiple); |
| my $sym = "SDL_${resample}_${from}_${channels}c_x${multiple}"; |
| $funcs{$hashid} = $sym; |
| $custom_converters++; |
| |
| # !!! FIXME: DEBUG_CONVERT should report frequencies. |
| print <<EOF; |
| static void SDLCALL |
| ${sym}(SDL_AudioCVT * cvt, SDL_AudioFormat format) |
| { |
| #if DEBUG_CONVERT |
| fprintf(stderr, "$resample (x${multiple}) AUDIO_${from}, ${channels} channels.\\n"); |
| #endif |
| |
| const int dstsize = cvt->len_cvt $lencvtop $multiple; |
| EOF |
| |
| my $endcomparison = '!='; |
| |
| # Upsampling (growing the buffer) needs to work backwards, since we |
| # overwrite the buffer as we go. |
| if ($upsample) { |
| $endcomparison = '>='; # dst > target |
| print <<EOF; |
| $fctype *dst = (($fctype *) (cvt->buf + dstsize)) - $channels * $multiple; |
| const $fctype *src = (($fctype *) (cvt->buf + cvt->len_cvt)) - $channels; |
| const $fctype *target = ((const $fctype *) cvt->buf); |
| EOF |
| } else { |
| $endcomparison = '<'; # dst < target |
| print <<EOF; |
| $fctype *dst = ($fctype *) cvt->buf; |
| const $fctype *src = ($fctype *) cvt->buf; |
| const $fctype *target = (const $fctype *) (cvt->buf + dstsize); |
| EOF |
| } |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| my $val = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, "src[$idx]"); |
| print <<EOF; |
| $bigger last_sample${idx} = ($bigger) $val; |
| EOF |
| } |
| |
| print <<EOF; |
| while (dst $endcomparison target) { |
| EOF |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| my $val = getSwapFunc($fsize, $fsigned, $ffloat, $fendian, "src[$idx]"); |
| print <<EOF; |
| const $bigger sample${idx} = ($bigger) $val; |
| EOF |
| } |
| |
| my $incr = ''; |
| if ($upsample) { |
| $incr = ($channels == 1) ? 'src--' : "src -= $channels"; |
| } else { |
| my $amount = $channels * $multiple; |
| $incr = "src += $amount"; # can't ever be 1, so no "++" version. |
| } |
| |
| |
| print <<EOF; |
| $incr; |
| EOF |
| |
| # !!! FIXME: This really begs for some Altivec or SSE, etc. |
| if ($upsample) { |
| if ($multiple == 2) { |
| for (my $i = $channels-1; $i >= 0; $i--) { |
| my $dsti = $i + $channels; |
| print <<EOF; |
| dst[$dsti] = ($fctype) ((sample${i} + last_sample${i}) $interp); |
| EOF |
| } |
| for (my $i = $channels-1; $i >= 0; $i--) { |
| my $dsti = $i; |
| print <<EOF; |
| dst[$dsti] = ($fctype) sample${i}; |
| EOF |
| } |
| } elsif ($multiple == 4) { |
| for (my $i = $channels-1; $i >= 0; $i--) { |
| my $dsti = $i + ($channels * 3); |
| print <<EOF; |
| dst[$dsti] = ($fctype) ((sample${i} + ($mult3 * last_sample${i})) $interp2); |
| EOF |
| } |
| |
| for (my $i = $channels-1; $i >= 0; $i--) { |
| my $dsti = $i + ($channels * 2); |
| print <<EOF; |
| dst[$dsti] = ($fctype) ((sample${i} + last_sample${i}) $interp); |
| EOF |
| } |
| |
| for (my $i = $channels-1; $i >= 0; $i--) { |
| my $dsti = $i + ($channels * 1); |
| print <<EOF; |
| dst[$dsti] = ($fctype) ((($mult3 * sample${i}) + last_sample${i}) $interp2); |
| EOF |
| } |
| |
| for (my $i = $channels-1; $i >= 0; $i--) { |
| my $dsti = $i + ($channels * 0); |
| print <<EOF; |
| dst[$dsti] = ($fctype) sample${i}; |
| EOF |
| } |
| } else { |
| die('bug in program.'); # we only handle x2 and x4. |
| } |
| } else { # downsample. |
| if ($multiple == 2) { |
| for (my $i = 0; $i < $channels; $i++) { |
| print <<EOF; |
| dst[$i] = ($fctype) ((sample${i} + last_sample${i}) $interp); |
| EOF |
| } |
| } elsif ($multiple == 4) { |
| # !!! FIXME: interpolate all 4 samples? |
| for (my $i = 0; $i < $channels; $i++) { |
| print <<EOF; |
| dst[$i] = ($fctype) ((sample${i} + last_sample${i}) $interp); |
| EOF |
| } |
| } else { |
| die('bug in program.'); # we only handle x2 and x4. |
| } |
| } |
| |
| for (my $i = 0; $i < $channels; $i++) { |
| my $idx = ($upsample) ? (($channels - $i) - 1) : $i; |
| print <<EOF; |
| last_sample${idx} = sample${idx}; |
| EOF |
| } |
| |
| if ($upsample) { |
| my $amount = $channels * $multiple; |
| $incr = "dst -= $amount"; # can't ever be 1, so no "--" version. |
| } else { |
| $incr = ($channels == 1) ? 'dst++' : "dst += $channels"; |
| } |
| |
| print <<EOF; |
| $incr; |
| } |
| |
| cvt->len_cvt = dstsize; |
| if (cvt->filters[++cvt->filter_index]) { |
| cvt->filters[cvt->filter_index] (cvt, format); |
| } |
| } |
| |
| EOF |
| |
| } |
| |
| sub buildResamplers { |
| print "#if !NO_RESAMPLERS\n\n"; |
| foreach (@audiotypes) { |
| my $from = $_; |
| foreach (@channels) { |
| my $channel = $_; |
| buildArbitraryResampleFunc($from, $channel, 1); |
| buildArbitraryResampleFunc($from, $channel, 0); |
| } |
| } |
| |
| print "\n#if !LESS_RESAMPLERS\n\n"; |
| foreach (@audiotypes) { |
| my $from = $_; |
| foreach (@channels) { |
| my $channel = $_; |
| for (my $multiple = 2; $multiple <= 4; $multiple += 2) { |
| buildMultipleResampleFunc($from, $channel, 1, $multiple); |
| buildMultipleResampleFunc($from, $channel, 0, $multiple); |
| } |
| } |
| } |
| |
| print "#endif /* !LESS_RESAMPLERS */\n"; |
| print "#endif /* !NO_RESAMPLERS */\n\n\n"; |
| |
| print "const SDL_AudioRateFilters sdl_audio_rate_filters[] =\n{\n"; |
| print "#if !NO_RESAMPLERS\n"; |
| foreach (@audiotypes) { |
| my $from = $_; |
| foreach (@channels) { |
| my $channel = $_; |
| for (my $upsample = 0; $upsample <= 1; $upsample++) { |
| my $hashid = getResamplerHashId($from, $channel, $upsample, 0); |
| my $sym = $funcs{$hashid}; |
| print(" { AUDIO_$from, $channel, $upsample, 0, $sym },\n"); |
| } |
| } |
| } |
| |
| print "#if !LESS_RESAMPLERS\n"; |
| foreach (@audiotypes) { |
| my $from = $_; |
| foreach (@channels) { |
| my $channel = $_; |
| for (my $multiple = 2; $multiple <= 4; $multiple += 2) { |
| for (my $upsample = 0; $upsample <= 1; $upsample++) { |
| my $hashid = getResamplerHashId($from, $channel, $upsample, $multiple); |
| my $sym = $funcs{$hashid}; |
| print(" { AUDIO_$from, $channel, $upsample, $multiple, $sym },\n"); |
| } |
| } |
| } |
| } |
| |
| print "#endif /* !LESS_RESAMPLERS */\n"; |
| print "#endif /* !NO_RESAMPLERS */\n"; |
| print(" { 0, 0, 0, 0, NULL }\n"); |
| print "};\n\n"; |
| } |
| |
| |
| # mainline ... |
| |
| outputHeader(); |
| buildTypeConverters(); |
| buildResamplers(); |
| outputFooter(); |
| |
| exit 0; |
| |
| # end of sdlgenaudiocvt.pl ... |
| |
