forked from KolibriOS/kolibrios
1047 lines
31 KiB
C
1047 lines
31 KiB
C
/*
|
|
frame: Heap of routines dealing with the core mpg123 data structure.
|
|
|
|
copyright 2008-2010 by the mpg123 project - free software under the terms of the LGPL 2.1
|
|
see COPYING and AUTHORS files in distribution or http://mpg123.org
|
|
initially written by Thomas Orgis
|
|
*/
|
|
|
|
#include "mpg123lib_intern.h"
|
|
#include "getcpuflags.h"
|
|
#include "debug.h"
|
|
|
|
static void frame_fixed_reset(mpg123_handle *fr);
|
|
|
|
/* that's doubled in decode_ntom.c */
|
|
#define NTOM_MUL (32768)
|
|
|
|
#define aligned_pointer(p, type, alignment) align_the_pointer(p, alignment)
|
|
static void *align_the_pointer(void *base, unsigned int alignment)
|
|
{
|
|
/*
|
|
Work in unsigned integer realm, explicitly.
|
|
Tricking the compiler into integer operations like % by invoking base-NULL is dangerous: It results into ptrdiff_t, which gets negative on big addresses. Big screw up, that.
|
|
I try to do it "properly" here: Casting only to uintptr_t and no artihmethic with void*.
|
|
*/
|
|
uintptr_t baseval = (uintptr_t)(char*)base;
|
|
uintptr_t aoff = baseval % alignment;
|
|
|
|
debug3("align_the_pointer: pointer %p is off by %u from %u",
|
|
base, (unsigned int)aoff, alignment);
|
|
|
|
if(aoff) return (char*)base+alignment-aoff;
|
|
else return base;
|
|
}
|
|
|
|
static void frame_default_pars(mpg123_pars *mp)
|
|
{
|
|
mp->outscale = 1.0;
|
|
mp->flags = 0;
|
|
#ifdef GAPLESS
|
|
mp->flags |= MPG123_GAPLESS;
|
|
#endif
|
|
mp->flags |= MPG123_AUTO_RESAMPLE;
|
|
#ifndef NO_NTOM
|
|
mp->force_rate = 0;
|
|
#endif
|
|
mp->down_sample = 0;
|
|
mp->rva = 0;
|
|
mp->halfspeed = 0;
|
|
mp->doublespeed = 0;
|
|
mp->verbose = 0;
|
|
#ifndef NO_ICY
|
|
mp->icy_interval = 0;
|
|
#endif
|
|
mp->timeout = 0;
|
|
mp->resync_limit = 1024;
|
|
#ifdef FRAME_INDEX
|
|
mp->index_size = INDEX_SIZE;
|
|
#endif
|
|
mp->preframes = 4; /* That's good for layer 3 ISO compliance bitstream. */
|
|
mpg123_fmt_all(mp);
|
|
/* Default of keeping some 4K buffers at hand, should cover the "usual" use case (using 16K pipe buffers as role model). */
|
|
#ifndef NO_FEEDER
|
|
mp->feedpool = 5;
|
|
mp->feedbuffer = 4096;
|
|
#endif
|
|
}
|
|
|
|
void frame_init(mpg123_handle *fr)
|
|
{
|
|
frame_init_par(fr, NULL);
|
|
}
|
|
|
|
void frame_init_par(mpg123_handle *fr, mpg123_pars *mp)
|
|
{
|
|
fr->own_buffer = TRUE;
|
|
fr->buffer.data = NULL;
|
|
fr->buffer.rdata = NULL;
|
|
fr->buffer.fill = 0;
|
|
fr->buffer.size = 0;
|
|
fr->rawbuffs = NULL;
|
|
fr->rawbuffss = 0;
|
|
fr->rawdecwin = NULL;
|
|
fr->rawdecwins = 0;
|
|
#ifndef NO_8BIT
|
|
fr->conv16to8_buf = NULL;
|
|
#endif
|
|
#ifdef OPT_DITHER
|
|
fr->dithernoise = NULL;
|
|
#endif
|
|
fr->layerscratch = NULL;
|
|
fr->xing_toc = NULL;
|
|
fr->cpu_opts.type = defdec();
|
|
fr->cpu_opts.class = decclass(fr->cpu_opts.type);
|
|
#ifndef NO_NTOM
|
|
/* these two look unnecessary, check guarantee for synth_ntom_set_step (in control_generic, even)! */
|
|
fr->ntom_val[0] = NTOM_MUL>>1;
|
|
fr->ntom_val[1] = NTOM_MUL>>1;
|
|
fr->ntom_step = NTOM_MUL;
|
|
#endif
|
|
/* unnecessary: fr->buffer.size = fr->buffer.fill = 0; */
|
|
mpg123_reset_eq(fr);
|
|
init_icy(&fr->icy);
|
|
init_id3(fr);
|
|
/* frame_outbuffer is missing... */
|
|
/* frame_buffers is missing... that one needs cpu opt setting! */
|
|
/* after these... frame_reset is needed before starting full decode */
|
|
invalidate_format(&fr->af);
|
|
fr->rdat.r_read = NULL;
|
|
fr->rdat.r_lseek = NULL;
|
|
fr->rdat.iohandle = NULL;
|
|
fr->rdat.r_read_handle = NULL;
|
|
fr->rdat.r_lseek_handle = NULL;
|
|
fr->rdat.cleanup_handle = NULL;
|
|
fr->wrapperdata = NULL;
|
|
fr->wrapperclean = NULL;
|
|
fr->decoder_change = 1;
|
|
fr->err = MPG123_OK;
|
|
if(mp == NULL) frame_default_pars(&fr->p);
|
|
else memcpy(&fr->p, mp, sizeof(struct mpg123_pars_struct));
|
|
|
|
#ifndef NO_FEEDER
|
|
bc_prepare(&fr->rdat.buffer, fr->p.feedpool, fr->p.feedbuffer);
|
|
#endif
|
|
|
|
fr->down_sample = 0; /* Initialize to silence harmless errors when debugging. */
|
|
frame_fixed_reset(fr); /* Reset only the fixed data, dynamic buffers are not there yet! */
|
|
fr->synth = NULL;
|
|
fr->synth_mono = NULL;
|
|
fr->make_decode_tables = NULL;
|
|
#ifdef FRAME_INDEX
|
|
fi_init(&fr->index);
|
|
frame_index_setup(fr); /* Apply the size setting. */
|
|
#endif
|
|
}
|
|
|
|
#ifdef OPT_DITHER
|
|
/* Also, only allocate the memory for the table on demand.
|
|
In future, one could create special noise for different sampling frequencies(?). */
|
|
int frame_dither_init(mpg123_handle *fr)
|
|
{
|
|
/* run-time dither noise table generation */
|
|
if(fr->dithernoise == NULL)
|
|
{
|
|
fr->dithernoise = malloc(sizeof(float)*DITHERSIZE);
|
|
if(fr->dithernoise == NULL) return 0;
|
|
|
|
dither_table_init(fr->dithernoise);
|
|
}
|
|
return 1;
|
|
}
|
|
#endif
|
|
|
|
mpg123_pars attribute_align_arg *mpg123_new_pars(int *error)
|
|
{
|
|
mpg123_pars *mp = malloc(sizeof(struct mpg123_pars_struct));
|
|
if(mp != NULL){ frame_default_pars(mp); if(error != NULL) *error = MPG123_OK; }
|
|
else if(error != NULL) *error = MPG123_OUT_OF_MEM;
|
|
return mp;
|
|
}
|
|
|
|
void attribute_align_arg mpg123_delete_pars(mpg123_pars* mp)
|
|
{
|
|
if(mp != NULL) free(mp);
|
|
}
|
|
|
|
int attribute_align_arg mpg123_reset_eq(mpg123_handle *mh)
|
|
{
|
|
int i;
|
|
mh->have_eq_settings = 0;
|
|
for(i=0; i < 32; ++i) mh->equalizer[0][i] = mh->equalizer[1][i] = DOUBLE_TO_REAL(1.0);
|
|
|
|
return MPG123_OK;
|
|
}
|
|
|
|
int frame_outbuffer(mpg123_handle *fr)
|
|
{
|
|
size_t size = fr->outblock;
|
|
if(!fr->own_buffer)
|
|
{
|
|
if(fr->buffer.size < size)
|
|
{
|
|
fr->err = MPG123_BAD_BUFFER;
|
|
if(NOQUIET) error2("have external buffer of size %"SIZE_P", need %"SIZE_P, (size_p)fr->buffer.size, size);
|
|
|
|
return MPG123_ERR;
|
|
}
|
|
}
|
|
|
|
debug1("need frame buffer of %"SIZE_P, (size_p)size);
|
|
if(fr->buffer.rdata != NULL && fr->buffer.size != size)
|
|
{
|
|
free(fr->buffer.rdata);
|
|
fr->buffer.rdata = NULL;
|
|
}
|
|
fr->buffer.size = size;
|
|
fr->buffer.data = NULL;
|
|
/* be generous: use 16 byte alignment */
|
|
if(fr->buffer.rdata == NULL) fr->buffer.rdata = (unsigned char*) malloc(fr->buffer.size+15);
|
|
if(fr->buffer.rdata == NULL)
|
|
{
|
|
fr->err = MPG123_OUT_OF_MEM;
|
|
return MPG123_ERR;
|
|
}
|
|
fr->buffer.data = aligned_pointer(fr->buffer.rdata, unsigned char*, 16);
|
|
fr->own_buffer = TRUE;
|
|
fr->buffer.fill = 0;
|
|
return MPG123_OK;
|
|
}
|
|
|
|
int attribute_align_arg mpg123_replace_buffer(mpg123_handle *mh, unsigned char *data, size_t size)
|
|
{
|
|
debug2("replace buffer with %p size %"SIZE_P, data, (size_p)size);
|
|
/* Will accept any size, the error comes later... */
|
|
if(data == NULL)
|
|
{
|
|
mh->err = MPG123_BAD_BUFFER;
|
|
return MPG123_ERR;
|
|
}
|
|
if(mh->buffer.rdata != NULL) free(mh->buffer.rdata);
|
|
mh->own_buffer = FALSE;
|
|
mh->buffer.rdata = NULL;
|
|
mh->buffer.data = data;
|
|
mh->buffer.size = size;
|
|
mh->buffer.fill = 0;
|
|
return MPG123_OK;
|
|
}
|
|
|
|
#ifdef FRAME_INDEX
|
|
int frame_index_setup(mpg123_handle *fr)
|
|
{
|
|
int ret = MPG123_ERR;
|
|
if(fr->p.index_size >= 0)
|
|
{ /* Simple fixed index. */
|
|
fr->index.grow_size = 0;
|
|
debug1("resizing index to %li", fr->p.index_size);
|
|
ret = fi_resize(&fr->index, (size_t)fr->p.index_size);
|
|
debug2("index resized... %lu at %p", (unsigned long)fr->index.size, (void*)fr->index.data);
|
|
}
|
|
else
|
|
{ /* A growing index. We give it a start, though. */
|
|
fr->index.grow_size = (size_t)(- fr->p.index_size);
|
|
if(fr->index.size < fr->index.grow_size)
|
|
ret = fi_resize(&fr->index, fr->index.grow_size);
|
|
else
|
|
ret = MPG123_OK; /* We have minimal size already... and since growing is OK... */
|
|
}
|
|
debug2("set up frame index of size %lu (ret=%i)", (unsigned long)fr->index.size, ret);
|
|
|
|
return ret;
|
|
}
|
|
#endif
|
|
|
|
static void frame_decode_buffers_reset(mpg123_handle *fr)
|
|
{
|
|
memset(fr->rawbuffs, 0, fr->rawbuffss);
|
|
}
|
|
|
|
int frame_buffers(mpg123_handle *fr)
|
|
{
|
|
int buffssize = 0;
|
|
debug1("frame %p buffer", (void*)fr);
|
|
/*
|
|
the used-to-be-static buffer of the synth functions, has some subtly different types/sizes
|
|
|
|
2to1, 4to1, ntom, generic, i386: real[2][2][0x110]
|
|
mmx, sse: short[2][2][0x110]
|
|
i586(_dither): 4352 bytes; int/long[2][2][0x110]
|
|
i486: int[2][2][17*FIR_BUFFER_SIZE]
|
|
altivec: static real __attribute__ ((aligned (16))) buffs[4][4][0x110]
|
|
|
|
Huh, altivec looks like fun. Well, let it be large... then, the 16 byte alignment seems to be implicit on MacOSX malloc anyway.
|
|
Let's make a reasonable attempt to allocate enough memory...
|
|
Keep in mind: biggest ones are i486 and altivec (mutually exclusive!), then follows i586 and normal real.
|
|
mmx/sse use short but also real for resampling.
|
|
Thus, minimum is 2*2*0x110*sizeof(real).
|
|
*/
|
|
if(fr->cpu_opts.type == altivec) buffssize = 4*4*0x110*sizeof(real);
|
|
#ifdef OPT_I486
|
|
else if(fr->cpu_opts.type == ivier) buffssize = 2*2*17*FIR_BUFFER_SIZE*sizeof(int);
|
|
#endif
|
|
else if(fr->cpu_opts.type == ifuenf || fr->cpu_opts.type == ifuenf_dither || fr->cpu_opts.type == dreidnow)
|
|
buffssize = 2*2*0x110*4; /* don't rely on type real, we need 4352 bytes */
|
|
|
|
if(2*2*0x110*sizeof(real) > buffssize)
|
|
buffssize = 2*2*0x110*sizeof(real);
|
|
buffssize += 15; /* For 16-byte alignment (SSE likes that). */
|
|
|
|
if(fr->rawbuffs != NULL && fr->rawbuffss != buffssize)
|
|
{
|
|
free(fr->rawbuffs);
|
|
fr->rawbuffs = NULL;
|
|
}
|
|
|
|
if(fr->rawbuffs == NULL) fr->rawbuffs = (unsigned char*) malloc(buffssize);
|
|
if(fr->rawbuffs == NULL) return -1;
|
|
fr->rawbuffss = buffssize;
|
|
fr->short_buffs[0][0] = aligned_pointer(fr->rawbuffs,short,16);
|
|
fr->short_buffs[0][1] = fr->short_buffs[0][0] + 0x110;
|
|
fr->short_buffs[1][0] = fr->short_buffs[0][1] + 0x110;
|
|
fr->short_buffs[1][1] = fr->short_buffs[1][0] + 0x110;
|
|
fr->real_buffs[0][0] = aligned_pointer(fr->rawbuffs,real,16);
|
|
fr->real_buffs[0][1] = fr->real_buffs[0][0] + 0x110;
|
|
fr->real_buffs[1][0] = fr->real_buffs[0][1] + 0x110;
|
|
fr->real_buffs[1][1] = fr->real_buffs[1][0] + 0x110;
|
|
#ifdef OPT_I486
|
|
if(fr->cpu_opts.type == ivier)
|
|
{
|
|
fr->int_buffs[0][0] = (int*) fr->rawbuffs;
|
|
fr->int_buffs[0][1] = fr->int_buffs[0][0] + 17*FIR_BUFFER_SIZE;
|
|
fr->int_buffs[1][0] = fr->int_buffs[0][1] + 17*FIR_BUFFER_SIZE;
|
|
fr->int_buffs[1][1] = fr->int_buffs[1][0] + 17*FIR_BUFFER_SIZE;
|
|
}
|
|
#endif
|
|
#ifdef OPT_ALTIVEC
|
|
if(fr->cpu_opts.type == altivec)
|
|
{
|
|
int i,j;
|
|
fr->areal_buffs[0][0] = (real*) fr->rawbuffs;
|
|
for(i=0; i<4; ++i) for(j=0; j<4; ++j)
|
|
fr->areal_buffs[i][j] = fr->areal_buffs[0][0] + (i*4+j)*0x110;
|
|
}
|
|
#endif
|
|
/* now the different decwins... all of the same size, actually */
|
|
/* The MMX ones want 32byte alignment, which I'll try to ensure manually */
|
|
{
|
|
int decwin_size = (512+32)*sizeof(real);
|
|
#ifdef OPT_MMXORSSE
|
|
#ifdef OPT_MULTI
|
|
if(fr->cpu_opts.class == mmxsse)
|
|
{
|
|
#endif
|
|
/* decwin_mmx will share, decwins will be appended ... sizeof(float)==4 */
|
|
if(decwin_size < (512+32)*4) decwin_size = (512+32)*4;
|
|
|
|
/* the second window + alignment zone -- we align for 32 bytes for SSE as
|
|
requirement, 64 byte for matching cache line size (that matters!) */
|
|
decwin_size += (512+32)*4 + 63;
|
|
/* (512+32)*4/32 == 2176/32 == 68, so one decwin block retains alignment for 32 or 64 bytes */
|
|
#ifdef OPT_MULTI
|
|
}
|
|
#endif
|
|
#endif
|
|
#if defined(OPT_ALTIVEC) || defined(OPT_ARM)
|
|
/* sizeof(real) >= 4 ... yes, it could be 8, for example.
|
|
We got it intialized to at least (512+32)*sizeof(real).*/
|
|
decwin_size += 512*sizeof(real);
|
|
#endif
|
|
/* Hm, that's basically realloc() ... */
|
|
if(fr->rawdecwin != NULL && fr->rawdecwins != decwin_size)
|
|
{
|
|
free(fr->rawdecwin);
|
|
fr->rawdecwin = NULL;
|
|
}
|
|
|
|
if(fr->rawdecwin == NULL)
|
|
fr->rawdecwin = (unsigned char*) malloc(decwin_size);
|
|
|
|
if(fr->rawdecwin == NULL) return -1;
|
|
|
|
fr->rawdecwins = decwin_size;
|
|
fr->decwin = (real*) fr->rawdecwin;
|
|
#ifdef OPT_MMXORSSE
|
|
#ifdef OPT_MULTI
|
|
if(fr->cpu_opts.class == mmxsse)
|
|
{
|
|
#endif
|
|
/* align decwin, assign that to decwin_mmx, append decwins */
|
|
/* I need to add to decwin what is missing to the next full 64 byte -- also I want to make gcc -pedantic happy... */
|
|
fr->decwin = aligned_pointer(fr->rawdecwin,real,64);
|
|
debug1("aligned decwin: %p", (void*)fr->decwin);
|
|
fr->decwin_mmx = (float*)fr->decwin;
|
|
fr->decwins = fr->decwin_mmx+512+32;
|
|
#ifdef OPT_MULTI
|
|
}
|
|
else debug("no decwins/decwin_mmx for that class");
|
|
#endif
|
|
#endif
|
|
}
|
|
|
|
/* Layer scratch buffers are of compile-time fixed size, so allocate only once. */
|
|
if(fr->layerscratch == NULL)
|
|
{
|
|
/* Allocate specific layer1/2/3 buffers, so that we know they'll work for SSE. */
|
|
size_t scratchsize = 0;
|
|
real *scratcher;
|
|
#ifndef NO_LAYER1
|
|
scratchsize += sizeof(real) * 2 * SBLIMIT;
|
|
#endif
|
|
#ifndef NO_LAYER2
|
|
scratchsize += sizeof(real) * 2 * 4 * SBLIMIT;
|
|
#endif
|
|
#ifndef NO_LAYER3
|
|
scratchsize += sizeof(real) * 2 * SBLIMIT * SSLIMIT; /* hybrid_in */
|
|
scratchsize += sizeof(real) * 2 * SSLIMIT * SBLIMIT; /* hybrid_out */
|
|
#endif
|
|
/*
|
|
Now figure out correct alignment:
|
|
We need 16 byte minimum, smallest unit of the blocks is 2*SBLIMIT*sizeof(real), which is 64*4=256. Let's do 64bytes as heuristic for cache line (as proven useful in buffs above).
|
|
*/
|
|
fr->layerscratch = malloc(scratchsize+63);
|
|
if(fr->layerscratch == NULL) return -1;
|
|
|
|
/* Get aligned part of the memory, then divide it up. */
|
|
scratcher = aligned_pointer(fr->layerscratch,real,64);
|
|
/* Those funky pointer casts silence compilers...
|
|
One might change the code at hand to really just use 1D arrays, but in practice, that would not make a (positive) difference. */
|
|
#ifndef NO_LAYER1
|
|
fr->layer1.fraction = (real(*)[SBLIMIT])scratcher;
|
|
scratcher += 2 * SBLIMIT;
|
|
#endif
|
|
#ifndef NO_LAYER2
|
|
fr->layer2.fraction = (real(*)[4][SBLIMIT])scratcher;
|
|
scratcher += 2 * 4 * SBLIMIT;
|
|
#endif
|
|
#ifndef NO_LAYER3
|
|
fr->layer3.hybrid_in = (real(*)[SBLIMIT][SSLIMIT])scratcher;
|
|
scratcher += 2 * SBLIMIT * SSLIMIT;
|
|
fr->layer3.hybrid_out = (real(*)[SSLIMIT][SBLIMIT])scratcher;
|
|
scratcher += 2 * SSLIMIT * SBLIMIT;
|
|
#endif
|
|
/* Note: These buffers don't need resetting here. */
|
|
}
|
|
|
|
/* Only reset the buffers we created just now. */
|
|
frame_decode_buffers_reset(fr);
|
|
|
|
debug1("frame %p buffer done", (void*)fr);
|
|
return 0;
|
|
}
|
|
|
|
int frame_buffers_reset(mpg123_handle *fr)
|
|
{
|
|
fr->buffer.fill = 0; /* hm, reset buffer fill... did we do a flush? */
|
|
fr->bsnum = 0;
|
|
/* Wondering: could it be actually _wanted_ to retain buffer contents over different files? (special gapless / cut stuff) */
|
|
fr->bsbuf = fr->bsspace[1];
|
|
fr->bsbufold = fr->bsbuf;
|
|
fr->bitreservoir = 0;
|
|
frame_decode_buffers_reset(fr);
|
|
memset(fr->bsspace, 0, 2*(MAXFRAMESIZE+512));
|
|
memset(fr->ssave, 0, 34);
|
|
fr->hybrid_blc[0] = fr->hybrid_blc[1] = 0;
|
|
memset(fr->hybrid_block, 0, sizeof(real)*2*2*SBLIMIT*SSLIMIT);
|
|
return 0;
|
|
}
|
|
|
|
static void frame_icy_reset(mpg123_handle* fr)
|
|
{
|
|
#ifndef NO_ICY
|
|
if(fr->icy.data != NULL) free(fr->icy.data);
|
|
fr->icy.data = NULL;
|
|
fr->icy.interval = 0;
|
|
fr->icy.next = 0;
|
|
#endif
|
|
}
|
|
|
|
static void frame_free_toc(mpg123_handle *fr)
|
|
{
|
|
if(fr->xing_toc != NULL){ free(fr->xing_toc); fr->xing_toc = NULL; }
|
|
}
|
|
|
|
/* Just copy the Xing TOC over... */
|
|
int frame_fill_toc(mpg123_handle *fr, unsigned char* in)
|
|
{
|
|
if(fr->xing_toc == NULL) fr->xing_toc = malloc(100);
|
|
if(fr->xing_toc != NULL)
|
|
{
|
|
memcpy(fr->xing_toc, in, 100);
|
|
#ifdef DEBUG
|
|
debug("Got a TOC! Showing the values...");
|
|
{
|
|
int i;
|
|
for(i=0; i<100; ++i)
|
|
debug2("entry %i = %i", i, fr->xing_toc[i]);
|
|
}
|
|
#endif
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
/* Prepare the handle for a new track.
|
|
Reset variables, buffers... */
|
|
int frame_reset(mpg123_handle* fr)
|
|
{
|
|
frame_buffers_reset(fr);
|
|
frame_fixed_reset(fr);
|
|
frame_free_toc(fr);
|
|
#ifdef FRAME_INDEX
|
|
fi_reset(&fr->index);
|
|
#endif
|
|
|
|
return 0;
|
|
}
|
|
|
|
/* Reset everythign except dynamic memory. */
|
|
static void frame_fixed_reset(mpg123_handle *fr)
|
|
{
|
|
frame_icy_reset(fr);
|
|
open_bad(fr);
|
|
fr->to_decode = FALSE;
|
|
fr->to_ignore = FALSE;
|
|
fr->metaflags = 0;
|
|
fr->outblock = 0; /* This will be set before decoding! */
|
|
fr->num = -1;
|
|
fr->input_offset = -1;
|
|
fr->playnum = -1;
|
|
fr->state_flags = FRAME_ACCURATE;
|
|
fr->silent_resync = 0;
|
|
fr->audio_start = 0;
|
|
fr->clip = 0;
|
|
fr->oldhead = 0;
|
|
fr->firsthead = 0;
|
|
fr->vbr = MPG123_CBR;
|
|
fr->abr_rate = 0;
|
|
fr->track_frames = 0;
|
|
fr->track_samples = -1;
|
|
fr->framesize=0;
|
|
fr->mean_frames = 0;
|
|
fr->mean_framesize = 0;
|
|
fr->freesize = 0;
|
|
fr->lastscale = -1;
|
|
fr->rva.level[0] = -1;
|
|
fr->rva.level[1] = -1;
|
|
fr->rva.gain[0] = 0;
|
|
fr->rva.gain[1] = 0;
|
|
fr->rva.peak[0] = 0;
|
|
fr->rva.peak[1] = 0;
|
|
fr->fsizeold = 0;
|
|
fr->firstframe = 0;
|
|
fr->ignoreframe = fr->firstframe-fr->p.preframes;
|
|
fr->lastframe = -1;
|
|
fr->fresh = 1;
|
|
fr->new_format = 0;
|
|
#ifdef GAPLESS
|
|
frame_gapless_init(fr,-1,0,0);
|
|
fr->lastoff = 0;
|
|
fr->firstoff = 0;
|
|
#endif
|
|
#ifdef OPT_I486
|
|
fr->i486bo[0] = fr->i486bo[1] = FIR_SIZE-1;
|
|
#endif
|
|
fr->bo = 1; /* the usual bo */
|
|
#ifdef OPT_DITHER
|
|
fr->ditherindex = 0;
|
|
#endif
|
|
reset_id3(fr);
|
|
reset_icy(&fr->icy);
|
|
/* ICY stuff should go into icy.c, eh? */
|
|
#ifndef NO_ICY
|
|
fr->icy.interval = 0;
|
|
fr->icy.next = 0;
|
|
#endif
|
|
fr->halfphase = 0; /* here or indeed only on first-time init? */
|
|
fr->error_protection = 0;
|
|
fr->freeformat_framesize = -1;
|
|
}
|
|
|
|
static void frame_free_buffers(mpg123_handle *fr)
|
|
{
|
|
if(fr->rawbuffs != NULL) free(fr->rawbuffs);
|
|
fr->rawbuffs = NULL;
|
|
fr->rawbuffss = 0;
|
|
if(fr->rawdecwin != NULL) free(fr->rawdecwin);
|
|
fr->rawdecwin = NULL;
|
|
fr->rawdecwins = 0;
|
|
#ifndef NO_8BIT
|
|
if(fr->conv16to8_buf != NULL) free(fr->conv16to8_buf);
|
|
fr->conv16to8_buf = NULL;
|
|
#endif
|
|
if(fr->layerscratch != NULL) free(fr->layerscratch);
|
|
}
|
|
|
|
void frame_exit(mpg123_handle *fr)
|
|
{
|
|
if(fr->buffer.rdata != NULL)
|
|
{
|
|
debug1("freeing buffer at %p", (void*)fr->buffer.rdata);
|
|
free(fr->buffer.rdata);
|
|
}
|
|
fr->buffer.rdata = NULL;
|
|
frame_free_buffers(fr);
|
|
frame_free_toc(fr);
|
|
#ifdef FRAME_INDEX
|
|
fi_exit(&fr->index);
|
|
#endif
|
|
#ifdef OPT_DITHER
|
|
if(fr->dithernoise != NULL)
|
|
{
|
|
free(fr->dithernoise);
|
|
fr->dithernoise = NULL;
|
|
}
|
|
#endif
|
|
exit_id3(fr);
|
|
clear_icy(&fr->icy);
|
|
/* Clean up possible mess from LFS wrapper. */
|
|
if(fr->wrapperclean != NULL)
|
|
{
|
|
fr->wrapperclean(fr->wrapperdata);
|
|
fr->wrapperdata = NULL;
|
|
}
|
|
#ifndef NO_FEEDER
|
|
bc_cleanup(&fr->rdat.buffer);
|
|
#endif
|
|
}
|
|
|
|
int attribute_align_arg mpg123_info(mpg123_handle *mh, struct mpg123_frameinfo *mi)
|
|
{
|
|
if(mh == NULL) return MPG123_ERR;
|
|
if(mi == NULL)
|
|
{
|
|
mh->err = MPG123_ERR_NULL;
|
|
return MPG123_ERR;
|
|
}
|
|
mi->version = mh->mpeg25 ? MPG123_2_5 : (mh->lsf ? MPG123_2_0 : MPG123_1_0);
|
|
mi->layer = mh->lay;
|
|
mi->rate = frame_freq(mh);
|
|
switch(mh->mode)
|
|
{
|
|
case 0: mi->mode = MPG123_M_STEREO; break;
|
|
case 1: mi->mode = MPG123_M_JOINT; break;
|
|
case 2: mi->mode = MPG123_M_DUAL; break;
|
|
case 3: mi->mode = MPG123_M_MONO; break;
|
|
default: error("That mode cannot be!");
|
|
}
|
|
mi->mode_ext = mh->mode_ext;
|
|
mi->framesize = mh->framesize+4; /* Include header. */
|
|
mi->flags = 0;
|
|
if(mh->error_protection) mi->flags |= MPG123_CRC;
|
|
if(mh->copyright) mi->flags |= MPG123_COPYRIGHT;
|
|
if(mh->extension) mi->flags |= MPG123_PRIVATE;
|
|
if(mh->original) mi->flags |= MPG123_ORIGINAL;
|
|
mi->emphasis = mh->emphasis;
|
|
mi->bitrate = frame_bitrate(mh);
|
|
mi->abr_rate = mh->abr_rate;
|
|
mi->vbr = mh->vbr;
|
|
return MPG123_OK;
|
|
}
|
|
|
|
int attribute_align_arg mpg123_framedata(mpg123_handle *mh, unsigned long *header, unsigned char **bodydata, size_t *bodybytes)
|
|
{
|
|
if(mh == NULL) return MPG123_ERR;
|
|
if(!mh->to_decode) return MPG123_ERR;
|
|
|
|
if(header != NULL) *header = mh->oldhead;
|
|
if(bodydata != NULL) *bodydata = mh->bsbuf;
|
|
if(bodybytes != NULL) *bodybytes = mh->framesize;
|
|
|
|
return MPG123_OK;
|
|
}
|
|
|
|
/*
|
|
Fuzzy frame offset searching (guessing).
|
|
When we don't have an accurate position, we may use an inaccurate one.
|
|
Possibilities:
|
|
- use approximate positions from Xing TOC (not yet parsed)
|
|
- guess wildly from mean framesize and offset of first frame / beginning of file.
|
|
*/
|
|
|
|
static off_t frame_fuzzy_find(mpg123_handle *fr, off_t want_frame, off_t* get_frame)
|
|
{
|
|
/* Default is to go to the beginning. */
|
|
off_t ret = fr->audio_start;
|
|
*get_frame = 0;
|
|
|
|
/* But we try to find something better. */
|
|
/* Xing VBR TOC works with relative positions, both in terms of audio frames and stream bytes.
|
|
Thus, it only works when whe know the length of things.
|
|
Oh... I assume the offsets are relative to the _total_ file length. */
|
|
if(fr->xing_toc != NULL && fr->track_frames > 0 && fr->rdat.filelen > 0)
|
|
{
|
|
/* One could round... */
|
|
int toc_entry = (int) ((double)want_frame*100./fr->track_frames);
|
|
/* It is an index in the 100-entry table. */
|
|
if(toc_entry < 0) toc_entry = 0;
|
|
if(toc_entry > 99) toc_entry = 99;
|
|
|
|
/* Now estimate back what frame we get. */
|
|
*get_frame = (off_t) ((double)toc_entry/100. * fr->track_frames);
|
|
fr->state_flags &= ~FRAME_ACCURATE;
|
|
fr->silent_resync = 1;
|
|
/* Question: Is the TOC for whole file size (with/without ID3) or the "real" audio data only?
|
|
ID3v1 info could also matter. */
|
|
ret = (off_t) ((double)fr->xing_toc[toc_entry]/256.* fr->rdat.filelen);
|
|
}
|
|
else if(fr->mean_framesize > 0)
|
|
{ /* Just guess with mean framesize (may be exact with CBR files). */
|
|
/* Query filelen here or not? */
|
|
fr->state_flags &= ~FRAME_ACCURATE; /* Fuzzy! */
|
|
fr->silent_resync = 1;
|
|
*get_frame = want_frame;
|
|
ret = (off_t) (fr->audio_start+fr->mean_framesize*want_frame);
|
|
}
|
|
debug5("fuzzy: want %li of %li, get %li at %li B of %li B",
|
|
(long)want_frame, (long)fr->track_frames, (long)*get_frame, (long)ret, (long)(fr->rdat.filelen-fr->audio_start));
|
|
return ret;
|
|
}
|
|
|
|
/*
|
|
find the best frame in index just before the wanted one, seek to there
|
|
then step to just before wanted one with read_frame
|
|
do not care tabout the stuff that was in buffer but not played back
|
|
everything that left the decoder is counted as played
|
|
|
|
Decide if you want low latency reaction and accurate timing info or stable long-time playback with buffer!
|
|
*/
|
|
|
|
off_t frame_index_find(mpg123_handle *fr, off_t want_frame, off_t* get_frame)
|
|
{
|
|
/* default is file start if no index position */
|
|
off_t gopos = 0;
|
|
*get_frame = 0;
|
|
#ifdef FRAME_INDEX
|
|
/* Possibly use VBRI index, too? I'd need an example for this... */
|
|
if(fr->index.fill)
|
|
{
|
|
/* find in index */
|
|
size_t fi;
|
|
/* at index fi there is frame step*fi... */
|
|
fi = want_frame/fr->index.step;
|
|
if(fi >= fr->index.fill) /* If we are beyond the end of frame index...*/
|
|
{
|
|
/* When fuzzy seek is allowed, we have some limited tolerance for the frames we want to read rather then jump over. */
|
|
if(fr->p.flags & MPG123_FUZZY && want_frame - (fr->index.fill-1)*fr->index.step > 10)
|
|
{
|
|
gopos = frame_fuzzy_find(fr, want_frame, get_frame);
|
|
if(gopos > fr->audio_start) return gopos; /* Only in that case, we have a useful guess. */
|
|
/* Else... just continue, fuzzyness didn't help. */
|
|
}
|
|
/* Use the last available position, slowly advancing from that one. */
|
|
fi = fr->index.fill - 1;
|
|
}
|
|
/* We have index position, that yields frame and byte offsets. */
|
|
*get_frame = fi*fr->index.step;
|
|
gopos = fr->index.data[fi];
|
|
fr->state_flags |= FRAME_ACCURATE; /* When using the frame index, we are accurate. */
|
|
}
|
|
else
|
|
{
|
|
#endif
|
|
if(fr->p.flags & MPG123_FUZZY)
|
|
return frame_fuzzy_find(fr, want_frame, get_frame);
|
|
/* A bit hackish here... but we need to be fresh when looking for the first header again. */
|
|
fr->firsthead = 0;
|
|
fr->oldhead = 0;
|
|
#ifdef FRAME_INDEX
|
|
}
|
|
#endif
|
|
debug2("index: 0x%lx for frame %li", (unsigned long)gopos, (long) *get_frame);
|
|
return gopos;
|
|
}
|
|
|
|
off_t frame_ins2outs(mpg123_handle *fr, off_t ins)
|
|
{
|
|
off_t outs = 0;
|
|
switch(fr->down_sample)
|
|
{
|
|
case 0:
|
|
# ifndef NO_DOWNSAMPLE
|
|
case 1:
|
|
case 2:
|
|
# endif
|
|
outs = ins>>fr->down_sample;
|
|
break;
|
|
# ifndef NO_NTOM
|
|
case 3: outs = ntom_ins2outs(fr, ins); break;
|
|
# endif
|
|
default: error1("Bad down_sample (%i) ... should not be possible!!", fr->down_sample);
|
|
}
|
|
return outs;
|
|
}
|
|
|
|
off_t frame_outs(mpg123_handle *fr, off_t num)
|
|
{
|
|
off_t outs = 0;
|
|
switch(fr->down_sample)
|
|
{
|
|
case 0:
|
|
# ifndef NO_DOWNSAMPLE
|
|
case 1:
|
|
case 2:
|
|
# endif
|
|
outs = (spf(fr)>>fr->down_sample)*num;
|
|
break;
|
|
#ifndef NO_NTOM
|
|
case 3: outs = ntom_frmouts(fr, num); break;
|
|
#endif
|
|
default: error1("Bad down_sample (%i) ... should not be possible!!", fr->down_sample);
|
|
}
|
|
return outs;
|
|
}
|
|
|
|
/* Compute the number of output samples we expect from this frame.
|
|
This is either simple spf() or a tad more elaborate for ntom. */
|
|
off_t frame_expect_outsamples(mpg123_handle *fr)
|
|
{
|
|
off_t outs = 0;
|
|
switch(fr->down_sample)
|
|
{
|
|
case 0:
|
|
# ifndef NO_DOWNSAMPLE
|
|
case 1:
|
|
case 2:
|
|
# endif
|
|
outs = spf(fr)>>fr->down_sample;
|
|
break;
|
|
#ifndef NO_NTOM
|
|
case 3: outs = ntom_frame_outsamples(fr); break;
|
|
#endif
|
|
default: error1("Bad down_sample (%i) ... should not be possible!!", fr->down_sample);
|
|
}
|
|
return outs;
|
|
}
|
|
|
|
off_t frame_offset(mpg123_handle *fr, off_t outs)
|
|
{
|
|
off_t num = 0;
|
|
switch(fr->down_sample)
|
|
{
|
|
case 0:
|
|
# ifndef NO_DOWNSAMPLE
|
|
case 1:
|
|
case 2:
|
|
# endif
|
|
num = outs/(spf(fr)>>fr->down_sample);
|
|
break;
|
|
#ifndef NO_NTOM
|
|
case 3: num = ntom_frameoff(fr, outs); break;
|
|
#endif
|
|
default: error("Bad down_sample ... should not be possible!!");
|
|
}
|
|
return num;
|
|
}
|
|
|
|
#ifdef GAPLESS
|
|
/* input in _input_ samples */
|
|
void frame_gapless_init(mpg123_handle *fr, off_t framecount, off_t bskip, off_t eskip)
|
|
{
|
|
debug3("frame_gaples_init: given %"OFF_P" frames, skip %"OFF_P" and %"OFF_P, (off_p)framecount, (off_p)bskip, (off_p)eskip);
|
|
fr->gapless_frames = framecount;
|
|
if(fr->gapless_frames > 0)
|
|
{
|
|
fr->begin_s = bskip+GAPLESS_DELAY;
|
|
fr->end_s = framecount*spf(fr)-eskip+GAPLESS_DELAY;
|
|
}
|
|
else fr->begin_s = fr->end_s = 0;
|
|
/* These will get proper values later, from above plus resampling info. */
|
|
fr->begin_os = 0;
|
|
fr->end_os = 0;
|
|
fr->fullend_os = 0;
|
|
debug2("frame_gapless_init: from %"OFF_P" to %"OFF_P" samples", (off_p)fr->begin_s, (off_p)fr->end_s);
|
|
}
|
|
|
|
void frame_gapless_realinit(mpg123_handle *fr)
|
|
{
|
|
fr->begin_os = frame_ins2outs(fr, fr->begin_s);
|
|
fr->end_os = frame_ins2outs(fr, fr->end_s);
|
|
fr->fullend_os = frame_ins2outs(fr, fr->gapless_frames*spf(fr));
|
|
debug2("frame_gapless_realinit: from %"OFF_P" to %"OFF_P" samples", (off_p)fr->begin_os, (off_p)fr->end_os);
|
|
}
|
|
|
|
/* At least note when there is trouble... */
|
|
void frame_gapless_update(mpg123_handle *fr, off_t total_samples)
|
|
{
|
|
off_t gapless_samples = fr->gapless_frames*spf(fr);
|
|
debug2("gapless update with new sample count %"OFF_P" as opposed to known %"OFF_P, total_samples, gapless_samples);
|
|
if(NOQUIET && total_samples != gapless_samples)
|
|
fprintf(stderr, "\nWarning: Real sample count differs from given gapless sample count. Frankenstein stream?\n");
|
|
|
|
if(gapless_samples > total_samples)
|
|
{
|
|
if(NOQUIET) error2("End sample count smaller than gapless end! (%"OFF_P" < %"OFF_P"). Disabling gapless mode from now on.", (off_p)total_samples, (off_p)fr->end_s);
|
|
/* This invalidates the current position... but what should I do? */
|
|
frame_gapless_init(fr, -1, 0, 0);
|
|
frame_gapless_realinit(fr);
|
|
fr->lastframe = -1;
|
|
fr->lastoff = 0;
|
|
}
|
|
}
|
|
|
|
#endif
|
|
|
|
/* Compute the needed frame to ignore from, for getting accurate/consistent output for intended firstframe. */
|
|
static off_t ignoreframe(mpg123_handle *fr)
|
|
{
|
|
off_t preshift = fr->p.preframes;
|
|
/* Layer 3 _really_ needs at least one frame before. */
|
|
if(fr->lay==3 && preshift < 1) preshift = 1;
|
|
/* Layer 1 & 2 reall do not need more than 2. */
|
|
if(fr->lay!=3 && preshift > 2) preshift = 2;
|
|
|
|
return fr->firstframe - preshift;
|
|
}
|
|
|
|
/* The frame seek... This is not simply the seek to fe*spf(fr) samples in output because we think of _input_ frames here.
|
|
Seek to frame offset 1 may be just seek to 200 samples offset in output since the beginning of first frame is delay/padding.
|
|
Hm, is that right? OK for the padding stuff, but actually, should the decoder delay be better totally hidden or not?
|
|
With gapless, even the whole frame position could be advanced further than requested (since Homey don't play dat). */
|
|
void frame_set_frameseek(mpg123_handle *fr, off_t fe)
|
|
{
|
|
fr->firstframe = fe;
|
|
#ifdef GAPLESS
|
|
if(fr->p.flags & MPG123_GAPLESS && fr->gapless_frames > 0)
|
|
{
|
|
/* Take care of the beginning... */
|
|
off_t beg_f = frame_offset(fr, fr->begin_os);
|
|
if(fe <= beg_f)
|
|
{
|
|
fr->firstframe = beg_f;
|
|
fr->firstoff = fr->begin_os - frame_outs(fr, beg_f);
|
|
}
|
|
else fr->firstoff = 0;
|
|
/* The end is set once for a track at least, on the frame_set_frameseek called in get_next_frame() */
|
|
if(fr->end_os > 0)
|
|
{
|
|
fr->lastframe = frame_offset(fr,fr->end_os);
|
|
fr->lastoff = fr->end_os - frame_outs(fr, fr->lastframe);
|
|
} else {fr->lastframe = -1; fr->lastoff = 0; }
|
|
} else { fr->firstoff = fr->lastoff = 0; fr->lastframe = -1; }
|
|
#endif
|
|
fr->ignoreframe = ignoreframe(fr);
|
|
#ifdef GAPLESS
|
|
debug5("frame_set_frameseek: begin at %li frames and %li samples, end at %li and %li; ignore from %li",
|
|
(long) fr->firstframe, (long) fr->firstoff,
|
|
(long) fr->lastframe, (long) fr->lastoff, (long) fr->ignoreframe);
|
|
#else
|
|
debug3("frame_set_frameseek: begin at %li frames, end at %li; ignore from %li",
|
|
(long) fr->firstframe, (long) fr->lastframe, (long) fr->ignoreframe);
|
|
#endif
|
|
}
|
|
|
|
void frame_skip(mpg123_handle *fr)
|
|
{
|
|
#ifndef NO_LAYER3
|
|
if(fr->lay == 3) set_pointer(fr, 512);
|
|
#endif
|
|
}
|
|
|
|
/* Sample accurate seek prepare for decoder. */
|
|
/* This gets unadjusted output samples and takes resampling into account */
|
|
void frame_set_seek(mpg123_handle *fr, off_t sp)
|
|
{
|
|
fr->firstframe = frame_offset(fr, sp);
|
|
debug1("frame_set_seek: from %"OFF_P, fr->num);
|
|
#ifndef NO_NTOM
|
|
if(fr->down_sample == 3) ntom_set_ntom(fr, fr->firstframe);
|
|
#endif
|
|
fr->ignoreframe = ignoreframe(fr);
|
|
#ifdef GAPLESS /* The sample offset is used for non-gapless mode, too! */
|
|
fr->firstoff = sp - frame_outs(fr, fr->firstframe);
|
|
debug5("frame_set_seek: begin at %li frames and %li samples, end at %li and %li; ignore from %li",
|
|
(long) fr->firstframe, (long) fr->firstoff,
|
|
(long) fr->lastframe, (long) fr->lastoff, (long) fr->ignoreframe);
|
|
#else
|
|
debug3("frame_set_seek: begin at %li frames, end at %li; ignore from %li",
|
|
(long) fr->firstframe, (long) fr->lastframe, (long) fr->ignoreframe);
|
|
#endif
|
|
}
|
|
|
|
int attribute_align_arg mpg123_volume_change(mpg123_handle *mh, double change)
|
|
{
|
|
if(mh == NULL) return MPG123_ERR;
|
|
return mpg123_volume(mh, change + (double) mh->p.outscale);
|
|
}
|
|
|
|
int attribute_align_arg mpg123_volume(mpg123_handle *mh, double vol)
|
|
{
|
|
if(mh == NULL) return MPG123_ERR;
|
|
|
|
if(vol >= 0) mh->p.outscale = vol;
|
|
else mh->p.outscale = 0.;
|
|
|
|
do_rva(mh);
|
|
return MPG123_OK;
|
|
}
|
|
|
|
static int get_rva(mpg123_handle *fr, double *peak, double *gain)
|
|
{
|
|
double p = -1;
|
|
double g = 0;
|
|
int ret = 0;
|
|
if(fr->p.rva)
|
|
{
|
|
int rt = 0;
|
|
/* Should one assume a zero RVA as no RVA? */
|
|
if(fr->p.rva == 2 && fr->rva.level[1] != -1) rt = 1;
|
|
if(fr->rva.level[rt] != -1)
|
|
{
|
|
p = fr->rva.peak[rt];
|
|
g = fr->rva.gain[rt];
|
|
ret = 1; /* Success. */
|
|
}
|
|
}
|
|
if(peak != NULL) *peak = p;
|
|
if(gain != NULL) *gain = g;
|
|
return ret;
|
|
}
|
|
|
|
/* adjust the volume, taking both fr->outscale and rva values into account */
|
|
void do_rva(mpg123_handle *fr)
|
|
{
|
|
double peak = 0;
|
|
double gain = 0;
|
|
double newscale;
|
|
double rvafact = 1;
|
|
if(get_rva(fr, &peak, &gain))
|
|
{
|
|
if(NOQUIET && fr->p.verbose > 1) fprintf(stderr, "Note: doing RVA with gain %f\n", gain);
|
|
rvafact = pow(10,gain/20);
|
|
}
|
|
|
|
newscale = fr->p.outscale*rvafact;
|
|
|
|
/* if peak is unknown (== 0) this check won't hurt */
|
|
if((peak*newscale) > 1.0)
|
|
{
|
|
newscale = 1.0/peak;
|
|
warning2("limiting scale value to %f to prevent clipping with indicated peak factor of %f", newscale, peak);
|
|
}
|
|
/* first rva setting is forced with fr->lastscale < 0 */
|
|
if(newscale != fr->lastscale || fr->decoder_change)
|
|
{
|
|
debug3("changing scale value from %f to %f (peak estimated to %f)", fr->lastscale != -1 ? fr->lastscale : fr->p.outscale, newscale, (double) (newscale*peak));
|
|
fr->lastscale = newscale;
|
|
/* It may be too early, actually. */
|
|
if(fr->make_decode_tables != NULL) fr->make_decode_tables(fr); /* the actual work */
|
|
}
|
|
}
|
|
|
|
|
|
int attribute_align_arg mpg123_getvolume(mpg123_handle *mh, double *base, double *really, double *rva_db)
|
|
{
|
|
if(mh == NULL) return MPG123_ERR;
|
|
if(base) *base = mh->p.outscale;
|
|
if(really) *really = mh->lastscale;
|
|
get_rva(mh, NULL, rva_db);
|
|
return MPG123_OK;
|
|
}
|
|
|
|
off_t attribute_align_arg mpg123_framepos(mpg123_handle *mh)
|
|
{
|
|
if(mh == NULL) return MPG123_ERR;
|
|
|
|
return mh->input_offset;
|
|
}
|