Mercurial > mplayer.hg
annotate libmpcodecs/ad_realaud.c @ 7558:f89b4a70dbda
warning fix - hope it don't break it
author | arpi |
---|---|
date | Sun, 29 Sep 2002 19:23:21 +0000 |
parents | f296ff05bcd0 |
children | 18f8233094da |
rev | line source |
---|---|
6367 | 1 |
2 #include <stdio.h> | |
3 #include <stdlib.h> | |
4 #include <unistd.h> | |
5 | |
6 #include "config.h" | |
7 | |
8 #ifdef USE_REALCODECS | |
9 | |
10 #include <stddef.h> | |
11 #include <dlfcn.h> | |
12 | |
13 #include "ad_internal.h" | |
14 | |
15 static ad_info_t info = { | |
6380 | 16 "RealAudio decoder", |
7174 | 17 "realaud", |
6380 | 18 "A'rpi", |
19 "Florian Schneider", | |
20 "binary real audio codecs" | |
6367 | 21 }; |
22 | |
7174 | 23 LIBAD_EXTERN(realaud) |
6367 | 24 |
25 static void *handle=NULL; | |
26 | |
27 void *__builtin_new(unsigned long size) { | |
28 return malloc(size); | |
29 } | |
30 | |
6404
83b3315c679b
Implement Nilmoni's and Bernd Ernesti's patches for:
atmos4
parents:
6380
diff
changeset
|
31 #if defined(__FreeBSD__) || defined(__NetBSD__) |
83b3315c679b
Implement Nilmoni's and Bernd Ernesti's patches for:
atmos4
parents:
6380
diff
changeset
|
32 void *__ctype_b=NULL; |
6377 | 33 #endif |
6367 | 34 |
7472
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
35 static unsigned long (*raCloseCodec)(void*); |
7557 | 36 static unsigned long (*raDecode)(void*, char*,unsigned long,char*,unsigned int*,long); |
6745
9734bfbb200a
Avoid ulong typedef clash and replace if by unsigned long, patch by Joey Parrish.
atmos4
parents:
6428
diff
changeset
|
37 static unsigned long (*raFlush)(unsigned long,unsigned long,unsigned long); |
7472
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
38 static unsigned long (*raFreeDecoder)(void*); |
7557 | 39 static void* (*raGetFlavorProperty)(void*,unsigned long,unsigned long,int*); |
6745
9734bfbb200a
Avoid ulong typedef clash and replace if by unsigned long, patch by Joey Parrish.
atmos4
parents:
6428
diff
changeset
|
40 //static unsigned long (*raGetNumberOfFlavors2)(void); |
7472
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
41 static unsigned long (*raInitDecoder)(void*, void*); |
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
42 static unsigned long (*raOpenCodec2)(void*); |
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
43 static unsigned long (*raSetFlavor)(void*,unsigned long); |
7097
5c87f14ad947
SetDLLAccessPath isn't used. Patch by Andres Hess <jaska@gmx.net>
alex
parents:
7086
diff
changeset
|
44 //static void (*raSetDLLAccessPath)(unsigned long); |
7086
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
45 static void (*raSetPwd)(char*,char*); |
6367 | 46 |
47 typedef struct { | |
48 int samplerate; | |
49 short bits; | |
50 short channels; | |
51 int unk1; | |
52 int unk2; | |
53 int packetsize; | |
54 int unk3; | |
55 void* unk4; | |
56 } ra_init_t; | |
57 | |
58 static int preinit(sh_audio_t *sh){ | |
59 // let's check if the driver is available, return 0 if not. | |
60 // (you should do that if you use external lib(s) which is optional) | |
61 unsigned int result; | |
7472
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
62 int len=0; |
6380 | 63 void* prop; |
6376 | 64 char path[4096]; |
6404
83b3315c679b
Implement Nilmoni's and Bernd Ernesti's patches for:
atmos4
parents:
6380
diff
changeset
|
65 sprintf(path, REALCODEC_PATH "/%s", sh->codec->dll); |
6376 | 66 handle = dlopen (path, RTLD_LAZY); |
6367 | 67 if(!handle){ |
68 mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Cannot open dll: %s\n",dlerror()); | |
69 return 0; | |
70 } | |
71 | |
72 raCloseCodec = dlsym(handle, "RACloseCodec"); | |
73 raDecode = dlsym(handle, "RADecode"); | |
74 raFlush = dlsym(handle, "RAFlush"); | |
75 raFreeDecoder = dlsym(handle, "RAFreeDecoder"); | |
76 raGetFlavorProperty = dlsym(handle, "RAGetFlavorProperty"); | |
77 raOpenCodec2 = dlsym(handle, "RAOpenCodec2"); | |
78 raInitDecoder = dlsym(handle, "RAInitDecoder"); | |
79 raSetFlavor = dlsym(handle, "RASetFlavor"); | |
7097
5c87f14ad947
SetDLLAccessPath isn't used. Patch by Andres Hess <jaska@gmx.net>
alex
parents:
7086
diff
changeset
|
80 // raSetDLLAccessPath = dlsym(handle, "SetDLLAccessPath"); |
7086
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
81 raSetPwd = dlsym(handle, "RASetPwd"); // optional, used by SIPR |
6367 | 82 |
83 if(!raCloseCodec || !raDecode || !raFlush || !raFreeDecoder || | |
84 !raGetFlavorProperty || !raOpenCodec2 || !raSetFlavor || | |
7097
5c87f14ad947
SetDLLAccessPath isn't used. Patch by Andres Hess <jaska@gmx.net>
alex
parents:
7086
diff
changeset
|
85 /*!raSetDLLAccessPath ||*/ !raInitDecoder){ |
6367 | 86 mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Cannot resolve symbols - incompatible dll\n"); |
87 return 0; | |
88 } | |
89 | |
90 result=raOpenCodec2(&sh->context); | |
91 if(result){ | |
92 mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Decoder open failed, error code: 0x%X\n",result); | |
93 return 0; | |
94 } | |
95 | |
96 sh->samplerate=sh->wf->nSamplesPerSec; | |
97 sh->samplesize=sh->wf->wBitsPerSample/8; | |
98 sh->channels=sh->wf->nChannels; | |
99 | |
7472
c4434bdf6e51
tons of warning fixes, also some 10l bugfixes, including Dominik's PVA bug
arpi
parents:
7180
diff
changeset
|
100 { |
6367 | 101 ra_init_t init_data={ |
102 sh->wf->nSamplesPerSec,sh->wf->wBitsPerSample,sh->wf->nChannels, | |
6373 | 103 100, // ??? |
104 ((short*)(sh->wf+1))[0], // subpacket size | |
6367 | 105 sh->wf->nBlockAlign, |
106 16, // ?? | |
6373 | 107 ((char*)(sh->wf+1))+6+8 |
6367 | 108 }; |
109 result=raInitDecoder(sh->context,&init_data); | |
110 if(result){ | |
111 mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Decoder init failed, error code: 0x%X\n",result); | |
112 return 0; | |
113 } | |
114 } | |
7086
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
115 |
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
116 if(raSetPwd){ |
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
117 // used by 'SIPR' |
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
118 raSetPwd(sh->context,"Ardubancel Quazanga"); // set password... lol. |
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
119 } |
6367 | 120 |
6373 | 121 result=raSetFlavor(sh->context,((short*)(sh->wf+1))[2]); |
6367 | 122 if(result){ |
123 mp_msg(MSGT_DECAUDIO,MSGL_WARN,"Decoder flavor setup failed, error code: 0x%X\n",result); | |
124 return 0; | |
125 } | |
126 | |
6380 | 127 prop=raGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],0,&len); |
128 mp_msg(MSGT_DECAUDIO,MSGL_INFO,"Audio codec: [%d] %s\n",((short*)(sh->wf+1))[2],prop); | |
129 | |
130 prop=raGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],1,&len); | |
131 sh->i_bps=((*((int*)prop))+4)/8; | |
132 mp_msg(MSGT_DECAUDIO,MSGL_INFO,"Audio bitrate: %5.3f kbit/s (%d bps) \n",(*((int*)prop))*0.001f,sh->i_bps); | |
133 | |
134 // prop=raGetFlavorProperty(sh->context,((short*)(sh->wf+1))[2],0x13,&len); | |
135 // mp_msg(MSGT_DECAUDIO,MSGL_INFO,"Samples/block?: %d \n",(*((int*)prop))); | |
136 | |
137 sh->audio_out_minsize=128000; // no idea how to get... :( | |
6373 | 138 sh->audio_in_minsize=((short*)(sh->wf+1))[1]*sh->wf->nBlockAlign; |
6367 | 139 |
140 return 1; // return values: 1=OK 0=ERROR | |
141 } | |
142 | |
143 static int init(sh_audio_t *sh_audio){ | |
144 // initialize the decoder, set tables etc... | |
145 | |
146 // you can store HANDLE or private struct pointer at sh->context | |
147 // you can access WAVEFORMATEX header at sh->wf | |
148 | |
149 // set sample format/rate parameters if you didn't do it in preinit() yet. | |
150 | |
151 return 1; // return values: 1=OK 0=ERROR | |
152 } | |
153 | |
154 static void uninit(sh_audio_t *sh){ | |
155 // uninit the decoder etc... | |
156 // again: you don't have to free() a_in_buffer here! it's done by the core. | |
157 } | |
158 | |
7104
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
159 static unsigned char sipr_swaps[38][2]={ |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
160 {0,63},{1,22},{2,44},{3,90},{5,81},{7,31},{8,86},{9,58},{10,36},{12,68}, |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
161 {13,39},{14,73},{15,53},{16,69},{17,57},{19,88},{20,34},{21,71},{24,46}, |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
162 {25,94},{26,54},{28,75},{29,50},{32,70},{33,92},{35,74},{38,85},{40,56}, |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
163 {42,87},{43,65},{45,59},{48,79},{49,93},{51,89},{55,95},{61,76},{67,83}, |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
164 {77,80} }; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
165 |
6367 | 166 static int decode_audio(sh_audio_t *sh,unsigned char *buf,int minlen,int maxlen){ |
167 int result; | |
168 int len=-1; | |
6373 | 169 int sps=((short*)(sh->wf+1))[0]; |
7086
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
170 int w=sh->wf->nBlockAlign; // 5 |
6373 | 171 int h=((short*)(sh->wf+1))[1]; |
7104
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
172 |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
173 // printf("bs=%d sps=%d w=%d h=%d \n",sh->wf->nBlockAlign,sps,w,h); |
7086
f0886fe4be89
support for 'sipr' codec - descrambling/reorder not yet fixed.
arpi
parents:
6745
diff
changeset
|
174 |
6373 | 175 #if 1 |
6368
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
176 if(sh->a_in_buffer_len<=0){ |
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
177 // fill the buffer! |
7104
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
178 if(!sps){ |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
179 // 'sipr' way |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
180 int j,n; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
181 int bs=h*w*2/96; // nibbles per subpacket |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
182 unsigned char *p=sh->a_in_buffer; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
183 demux_read_data(sh->ds, p, h*w); |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
184 for(n=0;n<38;n++){ |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
185 int i=bs*sipr_swaps[n][0]; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
186 int o=bs*sipr_swaps[n][1]; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
187 // swap nibbles of block 'i' with 'o' TODO: optimize |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
188 for(j=0;j<bs;j++){ |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
189 int x=(i&1) ? (p[(i>>1)]>>4) : (p[(i>>1)]&15); |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
190 int y=(o&1) ? (p[(o>>1)]>>4) : (p[(o>>1)]&15); |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
191 if(o&1) p[(o>>1)]=(p[(o>>1)]&0x0F)|(x<<4); |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
192 else p[(o>>1)]=(p[(o>>1)]&0xF0)|x; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
193 if(i&1) p[(i>>1)]=(p[(i>>1)]&0x0F)|(y<<4); |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
194 else p[(i>>1)]=(p[(i>>1)]&0xF0)|y; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
195 ++i;++o; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
196 } |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
197 } |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
198 sh->a_in_buffer_size= |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
199 sh->a_in_buffer_len=w*h; |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
200 } else { |
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
201 // 'cook' way |
6368
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
202 int x,y; |
7104
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
203 w/=sps; |
6373 | 204 for(y=0;y<h;y++) |
205 for(x=0;x<w;x++){ | |
6428
88a06ebb3287
audio subpacket reordering fixed for odd matrix height
arpi
parents:
6404
diff
changeset
|
206 demux_read_data(sh->ds, sh->a_in_buffer+sps*(h*x+((h+1)/2)*(y&1)+(y>>1)), sps); |
6368
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
207 } |
6373 | 208 sh->a_in_buffer_size= |
209 sh->a_in_buffer_len=w*h*sps; | |
7104
6d784b2812b9
'sipr' descrambling implemented, at least for 16*6 matrix
arpi
parents:
7097
diff
changeset
|
210 } |
6368
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
211 } |
6373 | 212 |
213 #else | |
214 if(sh->a_in_buffer_len<=0){ | |
215 // fill the buffer! | |
216 demux_read_data(sh->ds, sh->a_in_buffer, sh->wf->nBlockAlign); | |
217 sh->a_in_buffer_size= | |
218 sh->a_in_buffer_len=sh->wf->nBlockAlign; | |
219 } | |
220 #endif | |
6367 | 221 |
6373 | 222 result=raDecode(sh->context, sh->a_in_buffer+sh->a_in_buffer_size-sh->a_in_buffer_len, sh->wf->nBlockAlign, |
6367 | 223 buf, &len, -1); |
6368
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
224 sh->a_in_buffer_len-=sh->wf->nBlockAlign; |
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
225 |
6376 | 226 // printf("radecode: %d bytes, res=0x%X \n",len,result); |
6367 | 227 |
6368
9511fffdb8c6
yeah, it worx! but needs a big cleanup and removal of hardcoded stuff
arpi
parents:
6367
diff
changeset
|
228 return len; // return value: number of _bytes_ written to output buffer, |
6367 | 229 // or -1 for EOF (or uncorrectable error) |
230 } | |
231 | |
232 static int control(sh_audio_t *sh,int cmd,void* arg, ...){ | |
233 // various optional functions you MAY implement: | |
234 switch(cmd){ | |
235 case ADCTRL_RESYNC_STREAM: | |
236 // it is called once after seeking, to resync. | |
237 // Note: sh_audio->a_in_buffer_len=0; is done _before_ this call! | |
238 return CONTROL_TRUE; | |
239 case ADCTRL_SKIP_FRAME: | |
240 // it is called to skip (jump over) small amount (1/10 sec or 1 frame) | |
241 // of audio data - used to sync audio to video after seeking | |
242 // if you don't return CONTROL_TRUE, it will defaults to: | |
243 // ds_fill_buffer(sh_audio->ds); // skip 1 demux packet | |
244 return CONTROL_TRUE; | |
245 } | |
246 return CONTROL_UNKNOWN; | |
247 } | |
248 | |
249 #endif |