/*
*
* This file is part of libmpeg3
*
* LibMPEG3
* Author: Adam Williams <broadcast@earthling.net>
* Page: heroine.linuxbox.com
* Page: http://www.smalltalkconsulting.com/html/mpeg3source.html (for Squeak)
*
LibMPEG3 was originally licenced under GPL. It was relicensed by
the author under the LGPL and the Squeak license on Nov 1st, 2000
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Also licensed under the Squeak license.
http://www.squeak.org/license.html
*/
#include "huffman.h"
#include "mpeg3audio.h"
#include "tables.h"
#include <stdio.h>
#include <string.h>
struct gr_info_s {
int scfsi;
unsigned part2_3_length;
unsigned big_values;
unsigned scalefac_compress;
unsigned block_type;
unsigned mixed_block_flag;
unsigned table_select[3];
unsigned subblock_gain[3];
unsigned maxband[3];
unsigned maxbandl;
unsigned maxb;
unsigned region1start;
unsigned region2start;
unsigned preflag;
unsigned scalefac_scale;
unsigned count1table_select;
float *full_gain[3];
float *pow2gain;
};
struct mpeg3_III_sideinfo
{
unsigned main_data_begin;
unsigned private_bits;
struct
{
struct gr_info_s gr[2];
} ch[2];
};
int mpeg3audio_III_get_scale_factors_1(mpeg3audio_t *audio,
int *scf,
struct gr_info_s *gr_info,
int ch,
int gr)
{
static unsigned char slen[2][16] =
{{0, 0, 0, 0, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4},
{0, 1, 2, 3, 0, 1, 2, 3, 1, 2, 3, 1, 2, 3, 2, 3}};
int numbits;
int num0 = slen[0][gr_info->scalefac_compress];
int num1 = slen[1][gr_info->scalefac_compress];
if (gr_info->block_type == 2)
{
int i = 18;
numbits = (num0 + num1) * 18;
if (gr_info->mixed_block_flag)
{
for(i = 8; i; i--)
*scf++ = mpeg3bits_getbits(audio->astream, num0);
i = 9;
/* num0 * 17 + num1 * 18 */
numbits -= num0;
}
for( ; i; i--)
*scf++ = mpeg3bits_getbits(audio->astream, num0);
for(i = 18; i; i--)
*scf++ = mpeg3bits_getbits(audio->astream, num1);
/* short[13][0..2] = 0 */
*scf++ = 0;
*scf++ = 0;
*scf++ = 0;
}
else
{
int i;
int scfsi = gr_info->scfsi;
if(scfsi < 0)
{
/* scfsi < 0 => granule == 0 */
for(i = 11; i; i--)
{
*scf++ = mpeg3bits_getbits(audio->astream, num0);
}
for(i = 10; i; i--)
*scf++ = mpeg3bits_getbits(audio->astream, num1);
numbits = (num0 + num1) * 10 + num0;
*scf++ = 0;
}
else
{
numbits = 0;
if(!(scfsi & 0x8))
{
for(i = 0; i < 6; i++)
{
*scf++ = mpeg3bits_getbits(audio->astream, num0);
}
numbits += num0 * 6;
}
else
{
scf += 6;
}
if(!(scfsi & 0x4))
{
for(i = 0; i < 5; i++)
*scf++ = mpeg3bits_getbits(audio->astream, num0);
numbits += num0 * 5;
}
else
{
scf += 5;
}
if(!(scfsi & 0x2))
{
for(i = 0; i < 5; i++)
*scf++ = mpeg3bits_getbits(audio->astream, num1);
numbits += num1 * 5;
}
else
{
scf += 5;
}
if(!(scfsi & 0x1))
{
for(i = 0; i < 5; i++)
*scf++ = mpeg3bits_getbits(audio->astream, num1);
numbits += num1 * 5;
}
else
{
scf += 5;
}
*scf++ = 0; /* no l[21] in original sources */
}
}
return numbits;
}
int mpeg3audio_III_get_scale_factors_2(mpeg3audio_t *audio,
int *scf,
struct gr_info_s *gr_info,
int i_stereo)
{
unsigned char *pnt;
int i, j, n = 0, numbits = 0;
unsigned int slen;
static unsigned char stab[3][6][4] =
{{{ 6, 5, 5,5 }, { 6, 5, 7,3 }, { 11,10,0,0},
{ 7, 7, 7,0 }, { 6, 6, 6,3 }, { 8, 8,5,0}},
{{ 9, 9, 9,9 }, { 9, 9,12,6 }, { 18,18,0,0},
{12,12,12,0 }, {12, 9, 9,6 }, { 15,12,9,0}},
{{ 6, 9, 9,9 }, { 6, 9,12,6 }, { 15,18,0,0},
{ 6,15,12,0 }, { 6,12, 9,6 }, { 6,18,9,0}}};
/* i_stereo AND second channel -> do_layer3() checks this */
if(i_stereo)
slen = mpeg3_i_slen2[gr_info->scalefac_compress >> 1];
else
slen = mpeg3_n_slen2[gr_info->scalefac_compress];
gr_info->preflag = (slen >> 15) & 0x1;
n = 0;
if(gr_info->block_type == 2 )
{
n++;
if(gr_info->mixed_block_flag)
n++;
}
pnt = stab[n][(slen >> 12) & 0x7];
for(i = 0; i < 4; i++)
{
int num = slen & 0x7;
slen >>= 3;
if(num)
{
for(j = 0; j < (int)(pnt[i]); j++)
*scf++ = mpeg3bits_getbits(audio->astream, num);
numbits += pnt[i] * num;
}
else
{
for(j = 0; j < (int)(pnt[i]); j++)
*scf++ = 0;
}
}
n = (n << 1) + 1;
for(i = 0; i < n; i++)
*scf++ = 0;
return numbits;
}
static int pretab1[22] = {0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,2,2,3,3,3,2,0};
static int pretab2[22] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};
/*
* Dequantize samples (includes huffman decoding)
*
* 24 is enough because tab13 has max. a 19 bit huffvector
*/
#define BITSHIFT ((sizeof(long) - 1) * 8)
#define REFRESH_MASK \
while(num < BITSHIFT) \
{ \
mask |= mpeg3bits_getbits(audio->astream, 8) << (BITSHIFT - num); \
num += 8; \
part2remain -= 8; \
}
int mpeg3audio_III_dequantize_sample(mpeg3audio_t *audio,
float xr[SBLIMIT][SSLIMIT],
int *scf,
struct gr_info_s *gr_info,
int sfreq,
int part2bits)
{
int shift = 1 + gr_info->scalefac_scale;
float *xrpnt = (float*)xr;
int l[3],l3;
int part2remain = gr_info->part2_3_length - part2bits;
int *me;
int num = mpeg3bits_getbitoffset(audio->astream);
long mask = mpeg3bits_getbits(audio->astream, num);
//printf("III_dequantize_sample 1 %08x %d\n", mask, num);
mask = mask << (BITSHIFT + 8 - num);
part2remain -= num;
{
int bv = gr_info->big_values;
int region1 = gr_info->region1start;
int region2 = gr_info->region2start;
l3 = ((576 >> 1) - bv) >> 1;
/*
* we may lose the 'odd' bit here !!
* check this later again
*/
if(bv <= region1)
{
l[0] = bv;
l[1] = 0;
l[2] = 0;
}
else
{
l[0] = region1;
if(bv <= region2)
{
l[1] = bv - l[0]; l[2] = 0;
}
else
{
l[1] = region2 - l[0];
l[2] = bv - region2;
}
}
}
if(gr_info->block_type == 2)
{
/*
* decoding with short or mixed mode BandIndex table
*/
int i, max[4];
int step = 0, lwin = 3, cb = 0;
register float v = 0.0;
register int *m, mc;
if(gr_info->mixed_block_flag)
{
max[3] = -1;
max[0] = max[1] = max[2] = 2;
m = mpeg3_map[sfreq][0];
me = mpeg3_mapend[sfreq][0];
}
else
{
max[0] = max[1] = max[2] = max[3] = -1;
/* max[3] not floatly needed in this case */
m = mpeg3_map[sfreq][1];
me = mpeg3_mapend[sfreq][1];
}
mc = 0;
for(i = 0; i < 2; i++)
{
int lp = l[i];
struct newhuff *h = mpeg3_ht + gr_info->table_select[i];
for( ; lp; lp--, mc--)
{
register int x,y;
if(!mc)
{
mc = *m++;
xrpnt = ((float*)xr) + (*m++);
lwin = *m++;
cb = *m++;
if(lwin == 3)
{
v = gr_info->pow2gain[(*scf++) << shift];
step = 1;
}
else
{
v = gr_info->full_gain[lwin][(*scf++) << shift];
step = 3;
}
}
{
register short *val = h->table;
REFRESH_MASK;
while((y = *val++) < 0)
{
if (mask < 0)
val -= y;
num--;
mask <<= 1;
}
x = y >> 4;
y &= 0xf;
}
if(x == 15 && h->linbits)
{
max[lwin] = cb;
REFRESH_MASK;
x += ((unsigned long)mask) >> (BITSHIFT + 8 - h->linbits);
num -= h->linbits + 1;
mask <<= h->linbits;
if(mask < 0)
*xrpnt = -mpeg3_ispow[x] * v;
else
*xrpnt = mpeg3_ispow[x] * v;
mask <<= 1;
}
else
if(x)
{
max[lwin] = cb;
if(mask < 0)
*xrpnt = -mpeg3_ispow[x] * v;
else
*xrpnt = mpeg3_ispow[x] * v;
num--;
mask <<= 1;
}
else
*xrpnt = 0.0;
xrpnt += step;
if(y == 15 && h->linbits)
{
max[lwin] = cb;
REFRESH_MASK;
y += ((unsigned long) mask) >> (BITSHIFT + 8 - h->linbits);
num -= h->linbits + 1;
mask <<= h->linbits;
if(mask < 0)
*xrpnt = -mpeg3_ispow[y] * v;
else
*xrpnt = mpeg3_ispow[y] * v;
mask <<= 1;
}
else
if(y)
{
max[lwin] = cb;
if(mask < 0)
*xrpnt = -mpeg3_ispow[y] * v;
else
*xrpnt = mpeg3_ispow[y] * v;
num--;
mask <<= 1;
}
else
*xrpnt = 0.0;
xrpnt += step;
}
}
for( ;l3 && (part2remain + num > 0); l3--)
{
struct newhuff *h = mpeg3_htc + gr_info->count1table_select;
register short *val = h->table, a;
REFRESH_MASK;
while((a = *val++) < 0)
{
if (mask < 0)
val -= a;
num--;
mask <<= 1;
}
if(part2remain + num <= 0)
{
num -= part2remain + num;
break;
}
for(i = 0; i < 4; i++)
{
if(!(i & 1))
{
if(!mc)
{
mc = *m++;
xrpnt = ((float*)xr) + (*m++);
lwin = *m++;
cb = *m++;
if(lwin == 3)
{
v = gr_info->pow2gain[(*scf++) << shift];
step = 1;
}
else
{
v = gr_info->full_gain[lwin][(*scf++) << shift];
step = 3;
}
}
mc--;
}
if((a & (0x8 >> i)))
{
max[lwin] = cb;
if(part2remain + num <= 0)
{
break;
}
if(mask < 0)
*xrpnt = -v;
else
*xrpnt = v;
num--;
mask <<= 1;
}
else
*xrpnt = 0.0;
xrpnt += step;
}
}
if(lwin < 3)
{
/* short band? */
while(1)
{
for( ;mc > 0; mc--)
{
/* short band -> step=3 */
*xrpnt = 0.0;
xrpnt += 3;
*xrpnt = 0.0;
xrpnt += 3;
}
if(m >= me)
break;
mc = *m++;
xrpnt = ((float*)xr) + *m++;
/* optimize: field will be set to zero at the end of the function */
if(*m++ == 0)
break;
/* cb */
m++;
}
}
gr_info->maxband[0] = max[0] + 1;
gr_info->maxband[1] = max[1] + 1;
gr_info->maxband[2] = max[2] + 1;
gr_info->maxbandl = max[3] + 1;
{
int rmax = max[0] > max[1] ? max[0] : max[1];
rmax = (rmax > max[2] ? rmax : max[2]) + 1;
gr_info->maxb = rmax ? mpeg3_shortLimit[sfreq][rmax] : mpeg3_longLimit[sfreq][max[3] + 1];
}
}
else
{
/*
* decoding with 'long' BandIndex table (block_type != 2)
*/
int *pretab = gr_info->preflag ? pretab1 : pretab2;
int i, max = -1;
int cb = 0;
int *m = mpeg3_map[sfreq][2];
register float v = 0.0;
int mc = 0;
/*
* long hash table values
*/
for(i = 0; i < 3; i++)
{
int lp = l[i];
struct newhuff *h = mpeg3_ht + gr_info->table_select[i];
for(; lp; lp--, mc--)
{
int x, y;
if(!mc)
{
mc = *m++;
cb = *m++;
if(cb == 21)
v = 0.0;
else
v = gr_info->pow2gain[((*scf++) + (*pretab++)) << shift];
}
{
register short *val = h->table;
REFRESH_MASK;
while((y = *val++) < 0)
{
if(mask < 0)
val -= y;
num--;
mask <<= 1;
}
x = y >> 4;
y &= 0xf;
}
if(x == 15 && h->linbits)
{
max = cb;
REFRESH_MASK;
x += ((unsigned long) mask) >> (BITSHIFT + 8 - h->linbits);
num -= h->linbits + 1;
mask <<= h->linbits;
if(mask < 0)
*xrpnt++ = -mpeg3_ispow[x] * v;
else
*xrpnt++ = mpeg3_ispow[x] * v;
mask <<= 1;
}
else
if(x)
{
max = cb;
if(mask < 0)
*xrpnt++ = -mpeg3_ispow[x] * v;
else
*xrpnt++ = mpeg3_ispow[x] * v;
num--;
mask <<= 1;
}
else
*xrpnt++ = 0.0;
if(y == 15 && h->linbits)
{
max = cb;
REFRESH_MASK;
y += ((unsigned long) mask) >> (BITSHIFT + 8 - h->linbits);
num -= h->linbits + 1;
mask <<= h->linbits;
if(mask < 0)
*xrpnt++ = -mpeg3_ispow[y] * v;
else
*xrpnt++ = mpeg3_ispow[y] * v;
mask <<= 1;
}
else
if(y)
{
max = cb;
if(mask < 0)
*xrpnt++ = -mpeg3_ispow[y] * v;
else
*xrpnt++ = mpeg3_ispow[y] * v;
num--;
mask <<= 1;
}
else
*xrpnt++ = 0.0;
}
}
/*
* short (count1table) values
*/
for( ; l3 && (part2remain + num > 0); l3--)
{
struct newhuff *h = mpeg3_htc + gr_info->count1table_select;
register short *val = h->table, a;
REFRESH_MASK;
while((a = *val++) < 0)
{
if(mask < 0)
val -= a;
num--;
mask <<= 1;
}
if(part2remain + num <= 0)
{
num -= part2remain + num;
break;
}
for(i = 0; i < 4; i++)
{
if(!(i & 1))
{
if(!mc)
{
mc = *m++;
cb = *m++;
if(cb == 21)
v = 0.0;
else
v = gr_info->pow2gain[((*scf++) + (*pretab++)) << shift];
}
mc--;
}
if((a & (0x8 >> i)))
{
max = cb;
if(part2remain + num <= 0)
{
break;
}
if(mask < 0)
*xrpnt++ = -v;
else
*xrpnt++ = v;
num--;
mask <<= 1;
}
else
*xrpnt++ = 0.0;
}
}
gr_info->maxbandl = max + 1;
gr_info->maxb = mpeg3_longLimit[sfreq][gr_info->maxbandl];
}
part2remain += num;
//printf("III_dequantize_sample 2 %d %04x\n", num, mpeg3bits_showbits(audio->astream, 16));
mpeg3bits_start_reverse(audio->astream);
mpeg3bits_getbits_reverse(audio->astream, num);
mpeg3bits_start_forward(audio->astream);
//printf("III_dequantize_sample 3 %d %04x\n", audio->astream->bit_number, mpeg3bits_showbits(audio->astream, 16));
num = 0;
while(xrpnt < &xr[SBLIMIT][0])
*xrpnt++ = 0.0;
while(part2remain > 16)
{
mpeg3bits_getbits(audio->astream, 16); /* Dismiss stuffing Bits */
part2remain -= 16;
}
if(part2remain > 0)
{
mpeg3bits_getbits(audio->astream, part2remain);
}
else
if(part2remain < 0)
{
fprintf(stderr,"mpeg3audio_III_dequantize_sample: Can't rewind stream %d bits!\n", -part2remain);
return 1; /* -> error */
}
return 0;
}
int mpeg3audio_III_get_side_info(mpeg3audio_t *audio,
struct mpeg3_III_sideinfo *si,
int channels,
int ms_stereo,
long sfreq,
int single,
int lsf)
{
int ch, gr;
int powdiff = (single == 3) ? 4 : 0;
static const int tabs[2][5] = { { 2,9,5,3,4 } , { 1,8,1,2,9 } };
const int *tab = tabs[lsf];
si->main_data_begin = mpeg3bits_getbits(audio->astream, tab[1]);
if(channels == 1)
si->private_bits = mpeg3bits_getbits(audio->astream, tab[2]);
else
si->private_bits = mpeg3bits_getbits(audio->astream, tab[3]);
if(!lsf)
{
for(ch = 0; ch < channels; ch++)
{
si->ch[ch].gr[0].scfsi = -1;
si->ch[ch].gr[1].scfsi = mpeg3bits_getbits(audio->astream, 4);
}
}
for(gr = 0; gr < tab[0]; gr++)
{
for(ch = 0; ch < channels; ch++)
{
register struct gr_info_s *gr_info = &(si->ch[ch].gr[gr]);
gr_info->part2_3_length = mpeg3bits_getbits(audio->astream, 12);
gr_info->big_values = mpeg3bits_getbits(audio->astream, 9);
if(gr_info->big_values > 288)
{
fprintf(stderr,"mpeg3_III_get_side_info: big_values too large!\n");
gr_info->big_values = 288;
}
gr_info->pow2gain = mpeg3_gainpow2 + 256 - mpeg3bits_getbits(audio->astream, 8) + powdiff;
if(ms_stereo)
gr_info->pow2gain += 2;
gr_info->scalefac_compress = mpeg3bits_getbits(audio->astream, tab[4]);
if(mpeg3bits_getbits(audio->astream, 1))
{
/* window switch flag */
int i;
gr_info->block_type = mpeg3bits_getbits(audio->astream, 2);
gr_info->mixed_block_flag = mpeg3bits_getbits(audio->astream, 1);
gr_info->table_select[0] = mpeg3bits_getbits(audio->astream, 5);
gr_info->table_select[1] = mpeg3bits_getbits(audio->astream, 5);
/*
* table_select[2] not needed, because there is no region2,
* but to satisfy some verifications tools we set it either.
*/
gr_info->table_select[2] = 0;
for(i = 0; i < 3; i++)
gr_info->full_gain[i] = gr_info->pow2gain + (mpeg3bits_getbits(audio->astream, 3) << 3);
if(gr_info->block_type == 0)
{
fprintf(stderr,"Blocktype == 0 and window-switching == 1 not allowed.\n");
return 1;
}
/* region_count/start parameters are implicit in this case. */
if(!lsf || gr_info->block_type == 2)
gr_info->region1start = 36 >> 1;
else
{
/* check this again for 2.5 and sfreq=8 */
if(sfreq == 8)
gr_info->region1start = 108 >> 1;
else
gr_info->region1start = 54 >> 1;
}
gr_info->region2start = 576 >> 1;
}
else
{
int i, r0c, r1c;
for(i = 0; i < 3; i++)
gr_info->table_select[i] = mpeg3bits_getbits(audio->astream, 5);
r0c = mpeg3bits_getbits(audio->astream, 4);
r1c = mpeg3bits_getbits(audio->astream, 3);
gr_info->region1start = mpeg3_bandInfo[sfreq].longIdx[r0c + 1] >> 1 ;
gr_info->region2start = mpeg3_bandInfo[sfreq].longIdx[r0c + 1 + r1c + 1] >> 1;
gr_info->block_type = 0;
gr_info->mixed_block_flag = 0;
}
if(!lsf) gr_info->preflag = mpeg3bits_getbits(audio->astream, 1);
gr_info->scalefac_scale = mpeg3bits_getbits(audio->astream, 1);
gr_info->count1table_select = mpeg3bits_getbits(audio->astream, 1);
}
}
return 0;
}
int mpeg3audio_III_hybrid(mpeg3audio_t *audio,
float fsIn[SBLIMIT][SSLIMIT],
float tsOut[SSLIMIT][SBLIMIT],
int ch,
struct gr_info_s *gr_info)
{
float *tspnt = (float *) tsOut;
float *rawout1,*rawout2;
int bt, sb = 0;
{
int b = audio->mp3_blc[ch];
rawout1 = audio->mp3_block[b][ch];
b = -b + 1;
rawout2 = audio->mp3_block[b][ch];
audio->mp3_blc[ch] = b;
}
if(gr_info->mixed_block_flag)
{
sb = 2;
mpeg3audio_dct36(fsIn[0], rawout1, rawout2, mpeg3_win[0], tspnt);
mpeg3audio_dct36(fsIn[1], rawout1 + 18, rawout2 + 18, mpeg3_win1[0], tspnt + 1);
rawout1 += 36;
rawout2 += 36;
tspnt += 2;
}
bt = gr_info->block_type;
if(bt == 2)
{
for( ; sb < gr_info->maxb; sb += 2, tspnt += 2, rawout1 += 36, rawout2 += 36)
{
mpeg3audio_dct12(fsIn[sb] ,rawout1 ,rawout2 ,mpeg3_win[2] ,tspnt);
mpeg3audio_dct12(fsIn[sb + 1], rawout1 + 18, rawout2 + 18, mpeg3_win1[2], tspnt + 1);
}
}
else
{
for( ; sb < gr_info->maxb; sb += 2, tspnt += 2, rawout1 += 36, rawout2 += 36)
{
mpeg3audio_dct36(fsIn[sb], rawout1, rawout2, mpeg3_win[bt], tspnt);
mpeg3audio_dct36(fsIn[sb + 1], rawout1 + 18, rawout2 + 18, mpeg3_win1[bt], tspnt + 1);
}
}
for( ; sb < SBLIMIT; sb++, tspnt++)
{
int i;
for(i = 0; i < SSLIMIT; i++)
{
tspnt[i * SBLIMIT] = *rawout1++;
*rawout2++ = 0.0;
}
}
return 0;
}
int mpeg3audio_III_antialias(mpeg3audio_t *audio,
float xr[SBLIMIT][SSLIMIT],
struct gr_info_s *gr_info)
{
int sblim;
if(gr_info->block_type == 2)
{
if(!gr_info->mixed_block_flag)
return;
sblim = 1;
}
else
{
sblim = gr_info->maxb-1;
}
/* 31 alias-reduction operations between each pair of sub-bands */
/* with 8 butterflies between each pair */
{
int sb;
float *xr1 = (float*)xr[1];
for(sb = sblim; sb; sb--, xr1 += 10)
{
int ss;
float *cs, *ca;
float *xr2;
cs = mpeg3_aa_cs;
ca = mpeg3_aa_ca;
xr2 = xr1;
for(ss = 7; ss >= 0; ss--)
{
/* upper and lower butterfly inputs */
register float bu, bd;
bu = *--xr2;
bd = *xr1;
*xr2 = (bu * (*cs) ) - (bd * (*ca) );
*xr1++ = (bd * (*cs++) ) + (bu * (*ca++) );
}
}
}
return 0;
}
/*
* III_stereo: calculate float channel values for Joint-I-Stereo-mode
*/
int mpeg3audio_III_i_stereo(mpeg3audio_t *audio,
float xr_buf[2][SBLIMIT][SSLIMIT],
int *scalefac,
struct gr_info_s *gr_info,
int sfreq,
int ms_stereo,
int lsf)
{
float (*xr)[SBLIMIT*SSLIMIT] = (float (*)[SBLIMIT*SSLIMIT] ) xr_buf;
struct mpeg3_bandInfoStruct *bi = &mpeg3_bandInfo[sfreq];
const float *tab1, *tab2;
int tab;
/* TODO: optimize as static */
static const float *tabs[3][2][2] =
{
{ { mpeg3_tan1_1, mpeg3_tan2_1 } , { mpeg3_tan1_2, mpeg3_tan2_2 } },
{ { mpeg3_pow1_1[0], mpeg3_pow2_1[0] } , { mpeg3_pow1_2[0], mpeg3_pow2_2[0] } } ,
{ { mpeg3_pow1_1[1], mpeg3_pow2_1[1] } , { mpeg3_pow1_2[1], mpeg3_pow2_2[1] } }
};
tab = lsf + (gr_info->scalefac_compress & lsf);
tab1 = tabs[tab][ms_stereo][0];
tab2 = tabs[tab][ms_stereo][1];
if(gr_info->block_type == 2)
{
int lwin,do_l = 0;
if(gr_info->mixed_block_flag)
do_l = 1;
for(lwin = 0; lwin < 3; lwin++)
{
/* process each window */
/* get first band with zero values */
/* sfb is minimal 3 for mixed mode */
int is_p, sb, idx, sfb = gr_info->maxband[lwin];
if(sfb > 3) do_l = 0;
for( ; sfb < 12 ; sfb++)
{
/* scale: 0-15 */
is_p = scalefac[sfb * 3 + lwin - gr_info->mixed_block_flag];
if(is_p != 7)
{
float t1, t2;
sb = bi->shortDiff[sfb];
idx = bi->shortIdx[sfb] + lwin;
t1 = tab1[is_p];
t2 = tab2[is_p];
for( ; sb > 0; sb--, idx += 3)
{
float v = xr[0][idx];
xr[0][idx] = v * t1;
xr[1][idx] = v * t2;
}
}
}
/* in the original: copy 10 to 11 , here: copy 11 to 12
maybe still wrong??? (copy 12 to 13?) */
/* scale: 0-15 */
is_p = scalefac[11 * 3 + lwin - gr_info->mixed_block_flag];
sb = bi->shortDiff[12];
idx = bi->shortIdx[12] + lwin;
if(is_p != 7)
{
float t1, t2;
t1 = tab1[is_p];
t2 = tab2[is_p];
for( ; sb > 0; sb--, idx += 3)
{
float v = xr[0][idx];
xr[0][idx] = v * t1;
xr[1][idx] = v * t2;
}
}
} /* end for(lwin; .. ; . ) */
/* also check l-part, if ALL bands in the three windows are 'empty'
* and mode = mixed_mode
*/
if(do_l)
{
int sfb = gr_info->maxbandl;
int idx = bi->longIdx[sfb];
for ( ; sfb < 8; sfb++)
{
int sb = bi->longDiff[sfb];
/* scale: 0-15 */
int is_p = scalefac[sfb];
if(is_p != 7)
{
float t1, t2;
t1 = tab1[is_p];
t2 = tab2[is_p];
for( ; sb > 0; sb--, idx++)
{
float v = xr[0][idx];
xr[0][idx] = v * t1;
xr[1][idx] = v * t2;
}
}
else
idx += sb;
}
}
}
else
{
/* ((gr_info->block_type != 2)) */
int sfb = gr_info->maxbandl;
int is_p, idx = bi->longIdx[sfb];
for( ; sfb < 21; sfb++)
{
int sb = bi->longDiff[sfb];
/* scale: 0-15 */
is_p = scalefac[sfb];
if(is_p != 7)
{
float t1, t2;
t1 = tab1[is_p];
t2 = tab2[is_p];
for( ; sb > 0; sb--, idx++)
{
float v = xr[0][idx];
xr[0][idx] = v * t1;
xr[1][idx] = v * t2;
}
}
else
idx += sb;
}
is_p = scalefac[20];
if(is_p != 7)
{
/* copy l-band 20 to l-band 21 */
int sb;
float t1 = tab1[is_p], t2 = tab2[is_p];
for(sb = bi->longDiff[21]; sb > 0; sb--, idx++)
{
float v = xr[0][idx];
xr[0][idx] = v * t1;
xr[1][idx] = v * t2;
}
}
} /* ... */
}
/* Read just the frame after a seek. */
int mpeg3audio_read_layer3_frame(mpeg3audio_t *audio)
{
int result = 0;
result = mpeg3audio_read_header(audio);
if(!result)
{
audio->bsbufold = audio->bsbuf;
audio->bsbuf = audio->bsspace[audio->bsnum] + 512;
audio->bsnum ^= 1;
result = mpeg3bits_read_buffer(audio->astream, audio->bsbuf, audio->framesize);
}
return result;
}
int mpeg3audio_dolayer3(mpeg3audio_t *audio)
{
int gr, ch, ss;
int scalefacs[2][39]; /* max 39 for short[13][3] mode, mixed: 38, long: 22 */
struct mpeg3_III_sideinfo sideinfo;
int channels = audio->channels;
int single = audio->single;
int ms_stereo, i_stereo;
int sfreq = audio->sampling_frequency_code;
int stereo1, granules;
int i;
/* flip/init buffer */
audio->bsbufold = audio->bsbuf;
audio->bsbuf = audio->bsspace[audio->bsnum] + 512;
audio->bsnum ^= 1;
/* read main data into memory */
if(mpeg3bits_read_buffer(audio->astream, audio->bsbuf, audio->framesize))
return 1;
mpeg3bits_use_ptr(audio->astream, audio->bsbuf);
/* CRC must be skipped here for proper alignment with the backstep */
if(audio->error_protection)
mpeg3bits_getbits(audio->astream, 16);
if(channels == 1)
{
/* stream is mono */
stereo1 = 1;
single = 0;
}
else
{
/* Stereo */
stereo1 = 2;
}
if(audio->mode == MPG_MD_JOINT_STEREO)
{
ms_stereo = (audio->mode_ext & 0x2) >> 1;
i_stereo = audio->mode_ext & 0x1;
}
else
ms_stereo = i_stereo = 0;
if(audio->lsf)
{
granules = 1;
}
else
{
granules = 2;
}
if(mpeg3audio_III_get_side_info(audio, &sideinfo, channels, ms_stereo, sfreq, single, audio->lsf))
return 1;
/* Step back */
if(sideinfo.main_data_begin >= 512)
return 1;
if(sideinfo.main_data_begin)
{
memcpy(audio->bsbuf + audio->ssize - sideinfo.main_data_begin,
audio->bsbufold + audio->prev_framesize - sideinfo.main_data_begin,
sideinfo.main_data_begin);
mpeg3bits_use_ptr(audio->astream, audio->bsbuf + audio->ssize - sideinfo.main_data_begin);
}
for(gr = 0; gr < granules; gr++)
{
float hybridIn [2][SBLIMIT][SSLIMIT];
float hybridOut[2][SSLIMIT][SBLIMIT];
{
struct gr_info_s *gr_info = &(sideinfo.ch[0].gr[gr]);
long part2bits;
if(audio->lsf)
part2bits = mpeg3audio_III_get_scale_factors_2(audio, scalefacs[0], gr_info, 0);
else
part2bits = mpeg3audio_III_get_scale_factors_1(audio, scalefacs[0], gr_info, 0, gr);
//printf("dolayer3 4 %04x\n", mpeg3bits_showbits(audio->astream, 16));
if(mpeg3audio_III_dequantize_sample(audio, hybridIn[0], scalefacs[0], gr_info, sfreq, part2bits))
{
mpeg3bits_use_demuxer(audio->astream);
return 1;
}
//printf("dolayer3 5 %04x\n", mpeg3bits_showbits(audio->astream, 16));
}
if(channels == 2)
{
struct gr_info_s *gr_info = &(sideinfo.ch[1].gr[gr]);
long part2bits;
if(audio->lsf)
part2bits = mpeg3audio_III_get_scale_factors_2(audio, scalefacs[1], gr_info, i_stereo);
else
part2bits = mpeg3audio_III_get_scale_factors_1(audio, scalefacs[1], gr_info, 1, gr);
if(mpeg3audio_III_dequantize_sample(audio, hybridIn[1], scalefacs[1], gr_info, sfreq, part2bits))
{
mpeg3bits_use_demuxer(audio->astream);
return 1;
}
if(ms_stereo)
{
int i;
int maxb = sideinfo.ch[0].gr[gr].maxb;
if(sideinfo.ch[1].gr[gr].maxb > maxb)
maxb = sideinfo.ch[1].gr[gr].maxb;
for(i = 0; i < SSLIMIT * maxb; i++)
{
float tmp0 = ((float*)hybridIn[0])[i];
float tmp1 = ((float*)hybridIn[1])[i];
((float*)hybridIn[0])[i] = tmp0 + tmp1;
((float*)hybridIn[1])[i] = tmp0 - tmp1;
}
}
if(i_stereo)
mpeg3audio_III_i_stereo(audio, hybridIn, scalefacs[1], gr_info, sfreq, ms_stereo, audio->lsf);
if(ms_stereo || i_stereo || (single == 3))
{
if(gr_info->maxb > sideinfo.ch[0].gr[gr].maxb)
sideinfo.ch[0].gr[gr].maxb = gr_info->maxb;
else
gr_info->maxb = sideinfo.ch[0].gr[gr].maxb;
}
switch(single)
{
case 3:
{
register int i;
register float *in0 = (float*)hybridIn[0], *in1 = (float*)hybridIn[1];
/* *0.5 done by pow-scale */
for(i = 0; i < SSLIMIT * gr_info->maxb; i++, in0++)
*in0 = (*in0 + *in1++);
}
break;
case 1:
{
register int i;
register float *in0 = (float*)hybridIn[0], *in1 = (float*)hybridIn[1];
for(i = 0; i < SSLIMIT * gr_info->maxb; i++)
*in0++ = *in1++;
}
break;
}
}
for(ch = 0; ch < stereo1; ch++)
{
struct gr_info_s *gr_info = &(sideinfo.ch[ch].gr[gr]);
mpeg3audio_III_antialias(audio, hybridIn[ch], gr_info);
mpeg3audio_III_hybrid(audio, hybridIn[ch], hybridOut[ch], ch, gr_info);
}
for(ss = 0; ss < SSLIMIT; ss++)
{
if(single >= 0)
{
mpeg3audio_synth_mono(audio, hybridOut[0][ss], audio->pcm_sample, &(audio->pcm_point));
}
else
{
int p1 = audio->pcm_point;
mpeg3audio_synth_stereo(audio, hybridOut[0][ss], 0, audio->pcm_sample, &p1);
mpeg3audio_synth_stereo(audio, hybridOut[1][ss], 1, audio->pcm_sample, &(audio->pcm_point));
}
if(audio->pcm_point / audio->channels >= audio->pcm_allocated - MPEG3AUDIO_PADDING * audio->channels)
{
/* Need more room */
mpeg3audio_replace_buffer(audio, audio->pcm_allocated + MPEG3AUDIO_PADDING * audio->channels);
}
}
}
mpeg3bits_use_demuxer(audio->astream);
return 0;
}
|
