mirror of
https://github.com/mpv-player/mpv
synced 2024-12-15 03:15:52 +00:00
e68b46b244
- added __builtin_delete() for cook (rp9 version at least) - use OpenCodec2 when avaialble, 2nd param is codecpath (traced from rp8) - fallback to i_bps=12000 when raGetFlavorProperty(1) fails (some rp9 cook flavors) - disabled dlclose, caused memcorruption (FIXME) inspired by bugreports/patches by Balatoni Denes <pnis@coder.hu> git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@9552 b3059339-0415-0410-9bf9-f77b7e298cf2
485 lines
14 KiB
C
485 lines
14 KiB
C
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
|
|
#include "config.h"
|
|
|
|
#ifdef USE_REALCODECS
|
|
|
|
//#include <stddef.h>
|
|
#include <dlfcn.h>
|
|
#include "help_mp.h"
|
|
|
|
#include "ad_internal.h"
|
|
|
|
static ad_info_t info = {
|
|
"RealAudio decoder",
|
|
"realaud",
|
|
"A'rpi", // win32 dlls support by alex
|
|
"Florian Schneider",
|
|
"binary real audio codecs"
|
|
};
|
|
|
|
LIBAD_EXTERN(realaud)
|
|
|
|
void *__builtin_new(unsigned long size) {
|
|
return malloc(size);
|
|
}
|
|
|
|
// required for cook's uninit:
|
|
void __builtin_delete(void* ize) {
|
|
free(ize);
|
|
}
|
|
|
|
#if defined(__FreeBSD__) || defined(__NetBSD__)
|
|
void *__ctype_b=NULL;
|
|
#endif
|
|
|
|
static unsigned long (*raCloseCodec)(void*);
|
|
static unsigned long (*raDecode)(void*, char*,unsigned long,char*,unsigned int*,long);
|
|
static unsigned long (*raFlush)(unsigned long,unsigned long,unsigned long);
|
|
static unsigned long (*raFreeDecoder)(void*);
|
|
static void* (*raGetFlavorProperty)(void*,unsigned long,unsigned long,int*);
|
|
//static unsigned long (*raGetNumberOfFlavors2)(void);
|
|
static unsigned long (*raInitDecoder)(void*, void*);
|
|
static unsigned long (*raOpenCodec)(void*);
|
|
static unsigned long (*raOpenCodec2)(void*, void*);
|
|
static unsigned long (*raSetFlavor)(void*,unsigned long);
|
|
static void (*raSetDLLAccessPath)(char*);
|
|
static void (*raSetPwd)(char*,char*);
|
|
#ifdef USE_WIN32DLL
|
|
static unsigned long WINAPI (*wraCloseCodec)(void*);
|
|
static unsigned long WINAPI (*wraDecode)(void*, char*,unsigned long,char*,unsigned int*,long);
|
|
static unsigned long WINAPI (*wraFlush)(unsigned long,unsigned long,unsigned long);
|
|
static unsigned long WINAPI (*wraFreeDecoder)(void*);
|
|
static void* WINAPI (*wraGetFlavorProperty)(void*,unsigned long,unsigned long,int*);
|
|
static unsigned long WINAPI (*wraInitDecoder)(void*, void*);
|
|
static unsigned long WINAPI (*wraOpenCodec)(void*);
|
|
static unsigned long WINAPI (*wraOpenCodec2)(void*, void*);
|
|
static unsigned long WINAPI (*wraSetFlavor)(void*,unsigned long);
|
|
static void WINAPI (*wraSetDLLAccessPath)(char*);
|
|
static void WINAPI (*wraSetPwd)(char*,char*);
|
|
|
|
static int dll_type = 0; /* 0 = unix dlopen, 1 = win32 dll */
|
|
#endif
|
|
static void *rv_handle = NULL;
|
|
|
|
#if 0
|
|
typedef struct {
|
|
int samplerate;
|
|
short bits;
|
|
short channels;
|
|
int unk1;
|
|
int unk2;
|
|
int packetsize;
|
|
int unk3;
|
|
void* unk4;
|
|
} ra_init_t ;
|
|
#else
|
|
|
|
/*
|
|
Probably the linux .so-s were compiled with old GCC without setting
|
|
packing, so it adds 2 bytes padding after the quality field.
|
|
In windows it seems that there's no padding in it.
|
|
|
|
-- alex
|
|
*/
|
|
|
|
/* linux dlls doesn't need packing */
|
|
typedef struct /*__attribute__((__packed__))*/ {
|
|
int samplerate;
|
|
short bits;
|
|
short channels;
|
|
short quality;
|
|
/* 2bytes padding here, by gcc */
|
|
int bits_per_frame;
|
|
int packetsize;
|
|
int extradata_len;
|
|
void* extradata;
|
|
} ra_init_t;
|
|
|
|
/* windows dlls need packed structs (no padding) */
|
|
typedef struct __attribute__((__packed__)) {
|
|
int samplerate;
|
|
short bits;
|
|
short channels;
|
|
short quality;
|
|
int bits_per_frame;
|
|
int packetsize;
|
|
int extradata_len;
|
|
void* extradata;
|
|
} wra_init_t;
|
|
#endif
|
|
|
|
static int load_syms_linux(char *path)
|
|
{
|
|
void *handle;
|
|
|
|
mp_msg(MSGT_DECVIDEO, MSGL_INFO, "opening shared obj '%s'\n", path);
|
|
handle = dlopen(path, RTLD_LAZY);
|
|
if (!handle)
|
|
{
|
|
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "Error: %s\n", dlerror());
|
|
return 0;
|
|
}
|
|
|
|
raCloseCodec = dlsym(handle, "RACloseCodec");
|
|
raDecode = dlsym(handle, "RADecode");
|
|
raFlush = dlsym(handle, "RAFlush");
|
|
raFreeDecoder = dlsym(handle, "RAFreeDecoder");
|
|
raGetFlavorProperty = dlsym(handle, "RAGetFlavorProperty");
|
|
raOpenCodec = dlsym(handle, "RAOpenCodec");
|
|
raOpenCodec2 = dlsym(handle, "RAOpenCodec2");
|
|
raInitDecoder = dlsym(handle, "RAInitDecoder");
|
|
raSetFlavor = dlsym(handle, "RASetFlavor");
|
|
raSetDLLAccessPath = dlsym(handle, "SetDLLAccessPath");
|
|
raSetPwd = dlsym(handle, "RASetPwd"); // optional, used by SIPR
|
|
|
|
if (raCloseCodec && raDecode && raFlush && raFreeDecoder &&
|
|
raGetFlavorProperty && (raOpenCodec||raOpenCodec2) && raSetFlavor &&
|
|
/*raSetDLLAccessPath &&*/ raInitDecoder)
|
|
{
|
|
rv_handle = handle;
|
|
return 1;
|
|
}
|
|
|
|
mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Cannot resolve symbols - incompatible dll: %s\n",path);
|
|
dlclose(handle);
|
|
return 0;
|
|
}
|
|
|
|
#ifdef USE_WIN32DLL
|
|
|
|
#include "../loader/ldt_keeper.h"
|
|
void* WINAPI LoadLibraryA(char* name);
|
|
void* WINAPI GetProcAddress(void* handle,char *func);
|
|
int WINAPI FreeLibrary(void *handle);
|
|
|
|
static int load_sysm_windows(char *path)
|
|
{
|
|
void *handle;
|
|
|
|
mp_msg(MSGT_DECVIDEO, MSGL_INFO, "opening win32 dll '%s'\n", path);
|
|
Setup_LDT_Keeper();
|
|
handle = LoadLibraryA(path);
|
|
if (!handle)
|
|
{
|
|
mp_msg(MSGT_DECVIDEO, MSGL_WARN, "Error loading dll\n");
|
|
return 0;
|
|
}
|
|
|
|
wraCloseCodec = GetProcAddress(handle, "RACloseCodec");
|
|
wraDecode = GetProcAddress(handle, "RADecode");
|
|
wraFlush = GetProcAddress(handle, "RAFlush");
|
|
wraFreeDecoder = GetProcAddress(handle, "RAFreeDecoder");
|
|
wraGetFlavorProperty = GetProcAddress(handle, "RAGetFlavorProperty");
|
|
wraOpenCodec = GetProcAddress(handle, "RAOpenCodec");
|
|
wraOpenCodec2 = GetProcAddress(handle, "RAOpenCodec2");
|
|
wraInitDecoder = GetProcAddress(handle, "RAInitDecoder");
|
|
wraSetFlavor = GetProcAddress(handle, "RASetFlavor");
|
|
wraSetDLLAccessPath = GetProcAddress(handle, "SetDLLAccessPath");
|
|
wraSetPwd = GetProcAddress(handle, "RASetPwd"); // optional, used by SIPR
|
|
|
|
if (wraCloseCodec && wraDecode && wraFlush && wraFreeDecoder &&
|
|
wraGetFlavorProperty && (wraOpenCodec || wraOpenCodec2) && wraSetFlavor &&
|
|
/*wraSetDLLAccessPath &&*/ wraInitDecoder)
|
|
{
|
|
rv_handle = handle;
|
|
dll_type = 1;
|
|
return 1;
|
|
}
|
|
|
|
mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Cannot resolve symbols - incompatible dll: %s\n",path);
|
|
FreeLibrary(handle);
|
|
return 0;
|
|
|
|
}
|
|
#endif
|
|
|
|
static int preinit(sh_audio_t *sh){
|
|
// let's check if the driver is available, return 0 if not.
|
|
// (you should do that if you use external lib(s) which is optional)
|
|
unsigned int result;
|
|
int len=0;
|
|
void* prop;
|
|
char path[4096];
|
|
|
|
sprintf(path, REALCODEC_PATH "/%s", sh->codec->dll);
|
|
|
|
/* first try to load linux dlls, if failed and we're supporting win32 dlls,
|
|
then try to load the windows ones */
|
|
if (!load_syms_linux(path))
|
|
#ifdef USE_WIN32DLL
|
|
if (!load_sysm_windows(path))
|
|
#endif
|
|
{
|
|
mp_msg(MSGT_DECVIDEO, MSGL_ERR, MSGTR_MissingDLLcodec, sh->codec->dll);
|
|
mp_msg(MSGT_DECVIDEO, MSGL_HINT, "Read the RealAudio section of the DOCS!\n");
|
|
return 0;
|
|
}
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if((raSetDLLAccessPath && dll_type == 0) || (wraSetDLLAccessPath && dll_type == 1)){
|
|
#else
|
|
if(raSetDLLAccessPath){
|
|
#endif
|
|
// used by 'SIPR'
|
|
sprintf(path, "DT_Codecs=" REALCODEC_PATH);
|
|
if(path[strlen(path)-1]!='/'){
|
|
path[strlen(path)+1]=0;
|
|
path[strlen(path)]='/';
|
|
}
|
|
path[strlen(path)+1]=0;
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
wraSetDLLAccessPath(path);
|
|
else
|
|
#endif
|
|
raSetDLLAccessPath(path);
|
|
}
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1){
|
|
if(wraOpenCodec2)
|
|
result=wraOpenCodec2(&sh->context,REALCODEC_PATH "\\");
|
|
else
|
|
result=wraOpenCodec(&sh->context);
|
|
} else
|
|
#endif
|
|
if(raOpenCodec2)
|
|
result=raOpenCodec2(&sh->context,REALCODEC_PATH "/");
|
|
else
|
|
result=raOpenCodec(&sh->context);
|
|
if(result){
|
|
mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Decoder open failed, error code: 0x%X\n",result);
|
|
return 0;
|
|
}
|
|
// printf("opencodec ok (result: %x)\n", result);
|
|
|
|
sh->samplerate=sh->wf->nSamplesPerSec;
|
|
sh->samplesize=sh->wf->wBitsPerSample/8;
|
|
sh->channels=sh->wf->nChannels;
|
|
|
|
{
|
|
ra_init_t init_data={
|
|
sh->wf->nSamplesPerSec,
|
|
sh->wf->wBitsPerSample,
|
|
sh->wf->nChannels,
|
|
100, // quality
|
|
((short*)(sh->wf+1))[0], // subpacket size
|
|
((short*)(sh->wf+1))[3], // coded frame size
|
|
((short*)(sh->wf+1))[4], // codec data length
|
|
((char*)(sh->wf+1))+10 // extras
|
|
};
|
|
#ifdef USE_WIN32DLL
|
|
wra_init_t winit_data={
|
|
sh->wf->nSamplesPerSec,
|
|
sh->wf->wBitsPerSample,
|
|
sh->wf->nChannels,
|
|
100, // quality
|
|
((short*)(sh->wf+1))[0], // subpacket size
|
|
((short*)(sh->wf+1))[3], // coded frame size
|
|
((short*)(sh->wf+1))[4], // codec data length
|
|
((char*)(sh->wf+1))+10 // extras
|
|
};
|
|
if (dll_type == 1)
|
|
result=wraInitDecoder(sh->context,&winit_data);
|
|
else
|
|
#endif
|
|
result=raInitDecoder(sh->context,&init_data);
|
|
if(result){
|
|
mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Decoder init failed, error code: 0x%X\n",result);
|
|
return 0;
|
|
}
|
|
// printf("initdecoder ok (result: %x)\n", result);
|
|
}
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if((raSetPwd && dll_type == 0) || (wraSetPwd && dll_type == 1)){
|
|
#else
|
|
if(raSetPwd){
|
|
#endif
|
|
// used by 'SIPR'
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
wraSetPwd(sh->context,"Ardubancel Quazanga");
|
|
else
|
|
#endif
|
|
raSetPwd(sh->context,"Ardubancel Quazanga"); // set password... lol.
|
|
}
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
result=wraSetFlavor(sh->context,((short*)(sh->wf+1))[2]);
|
|
else
|
|
#endif
|
|
result=raSetFlavor(sh->context,((short*)(sh->wf+1))[2]);
|
|
if(result){
|
|
mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Decoder flavor setup failed, error code: 0x%X\n",result);
|
|
return 0;
|
|
}
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
prop=wraGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],0,&len);
|
|
else
|
|
#endif
|
|
prop=raGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],0,&len);
|
|
mp_msg(MSGT_DECAUDIO,MSGL_INFO,"Audio codec: [%d] %s\n",((short*)(sh->wf+1))[2],prop);
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
prop=wraGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],1,&len);
|
|
else
|
|
#endif
|
|
prop=raGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],1,&len);
|
|
if(prop){
|
|
sh->i_bps=((*((int*)prop))+4)/8;
|
|
mp_msg(MSGT_DECAUDIO,MSGL_INFO,"Audio bitrate: %5.3f kbit/s (%d bps) \n",(*((int*)prop))*0.001f,sh->i_bps);
|
|
} else
|
|
sh->i_bps=12000; // dunno :((( [12000 seems to be OK for crash.rmvb too]
|
|
|
|
// prop=raGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],0x13,&len);
|
|
// mp_msg(MSGT_DECAUDIO,MSGL_INFO,"Samples/block?: %d \n",(*((int*)prop)));
|
|
|
|
sh->audio_out_minsize=128000; // no idea how to get... :(
|
|
sh->audio_in_minsize=((short*)(sh->wf+1))[1]*sh->wf->nBlockAlign;
|
|
|
|
return 1; // return values: 1=OK 0=ERROR
|
|
}
|
|
|
|
static int init(sh_audio_t *sh_audio){
|
|
// initialize the decoder, set tables etc...
|
|
|
|
// you can store HANDLE or private struct pointer at sh->context
|
|
// you can access WAVEFORMATEX header at sh->wf
|
|
|
|
// set sample format/rate parameters if you didn't do it in preinit() yet.
|
|
|
|
return 1; // return values: 1=OK 0=ERROR
|
|
}
|
|
|
|
static void uninit(sh_audio_t *sh){
|
|
// uninit the decoder etc...
|
|
// again: you don't have to free() a_in_buffer here! it's done by the core.
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
{
|
|
if (wraFreeDecoder) wraFreeDecoder(sh->context);
|
|
if (wraCloseCodec) wraCloseCodec(sh->context);
|
|
}
|
|
#endif
|
|
|
|
if (raFreeDecoder) raFreeDecoder(sh->context);
|
|
if (raCloseCodec) raCloseCodec(sh->context);
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
{
|
|
if (rv_handle) FreeLibrary(rv_handle);
|
|
} else
|
|
#endif
|
|
// this dlclose() causes some memory corruption, and crashes soon (in caller):
|
|
// if (rv_handle) dlclose(rv_handle);
|
|
rv_handle = NULL;
|
|
}
|
|
|
|
static unsigned char sipr_swaps[38][2]={
|
|
{0,63},{1,22},{2,44},{3,90},{5,81},{7,31},{8,86},{9,58},{10,36},{12,68},
|
|
{13,39},{14,73},{15,53},{16,69},{17,57},{19,88},{20,34},{21,71},{24,46},
|
|
{25,94},{26,54},{28,75},{29,50},{32,70},{33,92},{35,74},{38,85},{40,56},
|
|
{42,87},{43,65},{45,59},{48,79},{49,93},{51,89},{55,95},{61,76},{67,83},
|
|
{77,80} };
|
|
|
|
static int decode_audio(sh_audio_t *sh,unsigned char *buf,int minlen,int maxlen){
|
|
int result;
|
|
int len=-1;
|
|
int sps=((short*)(sh->wf+1))[0];
|
|
int w=sh->wf->nBlockAlign; // 5
|
|
int h=((short*)(sh->wf+1))[1];
|
|
|
|
// printf("bs=%d sps=%d w=%d h=%d \n",sh->wf->nBlockAlign,sps,w,h);
|
|
|
|
#if 1
|
|
if(sh->a_in_buffer_len<=0){
|
|
// fill the buffer!
|
|
if(!sps){
|
|
// 'sipr' way
|
|
int j,n;
|
|
int bs=h*w*2/96; // nibbles per subpacket
|
|
unsigned char *p=sh->a_in_buffer;
|
|
demux_read_data(sh->ds, p, h*w);
|
|
for(n=0;n<38;n++){
|
|
int i=bs*sipr_swaps[n][0];
|
|
int o=bs*sipr_swaps[n][1];
|
|
// swap nibbles of block 'i' with 'o' TODO: optimize
|
|
for(j=0;j<bs;j++){
|
|
int x=(i&1) ? (p[(i>>1)]>>4) : (p[(i>>1)]&15);
|
|
int y=(o&1) ? (p[(o>>1)]>>4) : (p[(o>>1)]&15);
|
|
if(o&1) p[(o>>1)]=(p[(o>>1)]&0x0F)|(x<<4);
|
|
else p[(o>>1)]=(p[(o>>1)]&0xF0)|x;
|
|
if(i&1) p[(i>>1)]=(p[(i>>1)]&0x0F)|(y<<4);
|
|
else p[(i>>1)]=(p[(i>>1)]&0xF0)|y;
|
|
++i;++o;
|
|
}
|
|
}
|
|
sh->a_in_buffer_size=
|
|
sh->a_in_buffer_len=w*h;
|
|
} else {
|
|
// 'cook' way
|
|
int x,y;
|
|
w/=sps;
|
|
for(y=0;y<h;y++)
|
|
for(x=0;x<w;x++){
|
|
demux_read_data(sh->ds, sh->a_in_buffer+sps*(h*x+((h+1)/2)*(y&1)+(y>>1)), sps);
|
|
}
|
|
sh->a_in_buffer_size=
|
|
sh->a_in_buffer_len=w*h*sps;
|
|
}
|
|
}
|
|
|
|
#else
|
|
if(sh->a_in_buffer_len<=0){
|
|
// fill the buffer!
|
|
demux_read_data(sh->ds, sh->a_in_buffer, sh->wf->nBlockAlign);
|
|
sh->a_in_buffer_size=
|
|
sh->a_in_buffer_len=sh->wf->nBlockAlign;
|
|
}
|
|
#endif
|
|
|
|
#ifdef USE_WIN32DLL
|
|
if (dll_type == 1)
|
|
result=wraDecode(sh->context, sh->a_in_buffer+sh->a_in_buffer_size-sh->a_in_buffer_len, sh->wf->nBlockAlign,
|
|
buf, &len, -1);
|
|
else
|
|
#endif
|
|
result=raDecode(sh->context, sh->a_in_buffer+sh->a_in_buffer_size-sh->a_in_buffer_len, sh->wf->nBlockAlign,
|
|
buf, &len, -1);
|
|
sh->a_in_buffer_len-=sh->wf->nBlockAlign;
|
|
|
|
// printf("radecode: %d bytes, res=0x%X \n",len,result);
|
|
|
|
return len; // return value: number of _bytes_ written to output buffer,
|
|
// or -1 for EOF (or uncorrectable error)
|
|
}
|
|
|
|
static int control(sh_audio_t *sh,int cmd,void* arg, ...){
|
|
// various optional functions you MAY implement:
|
|
switch(cmd){
|
|
case ADCTRL_RESYNC_STREAM:
|
|
// it is called once after seeking, to resync.
|
|
// Note: sh_audio->a_in_buffer_len=0; is done _before_ this call!
|
|
return CONTROL_TRUE;
|
|
case ADCTRL_SKIP_FRAME:
|
|
// it is called to skip (jump over) small amount (1/10 sec or 1 frame)
|
|
// of audio data - used to sync audio to video after seeking
|
|
// if you don't return CONTROL_TRUE, it will defaults to:
|
|
// ds_fill_buffer(sh_audio->ds); // skip 1 demux packet
|
|
return CONTROL_TRUE;
|
|
}
|
|
return CONTROL_UNKNOWN;
|
|
}
|
|
|
|
#endif
|