* all: moved Get(D/Q)WLE and Get(D/Q)WBE to include/vlc_common.h.
[vlc.git] / modules / demux / wav.c
1 /*****************************************************************************
2  * wav.c : wav file input module for vlc
3  *****************************************************************************
4  * Copyright (C) 2001 VideoLAN
5  * $Id: wav.c,v 1.3 2003/08/17 23:02:52 fenrir Exp $
6  *
7  * Authors: Laurent Aimar <fenrir@via.ecp.fr>
8  *
9  * This program is free software; you can redistribute it and/or modify
10  * it under the terms of the GNU General Public License as published by
11  * the Free Software Foundation; either version 2 of the License, or
12  * (at your option) any later version.
13  *
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  *
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111, USA.
22  *****************************************************************************/
23
24 /*****************************************************************************
25  * Preamble
26  *****************************************************************************/
27 #include <stdlib.h>                                      /* malloc(), free() */
28
29 #include <vlc/vlc.h>
30 #include <vlc/input.h>
31
32 #include <codecs.h>
33 #include <ninput.h>
34
35 /*****************************************************************************
36  * Module descriptor
37  *****************************************************************************/
38
39 static int  Open    ( vlc_object_t * );
40 static void Close  ( vlc_object_t * );
41
42 vlc_module_begin();
43     set_description( _("WAV demuxer") );
44     set_capability( "demux", 142 );
45     set_callbacks( Open, Close );
46 vlc_module_end();
47
48 /*****************************************************************************
49  * Local prototypes
50  *****************************************************************************/
51
52 static int  Demux       ( input_thread_t * );
53
54 struct demux_sys_t
55 {
56     stream_t        *s;
57
58     WAVEFORMATEX    *p_wf;
59     es_descriptor_t *p_es;
60
61     int64_t         i_data_pos;
62     unsigned int    i_data_size;
63
64     mtime_t         i_time;
65     unsigned int    i_frame_size;
66     mtime_t         i_frame_length;
67 };
68
69
70 /*****************************************************************************
71  * Declaration of local function
72  *****************************************************************************/
73 #define __EVEN( x ) ( ( (x)%2 != 0 ) ? ((x)+1) : (x) )
74
75 static int ChunkFind( input_thread_t *, char *, unsigned int * );
76
77 static void FrameInfo_IMA_ADPCM( input_thread_t *, unsigned int *, mtime_t * );
78 static void FrameInfo_MS_ADPCM ( input_thread_t *, unsigned int *, mtime_t * );
79 static void FrameInfo_PCM      ( input_thread_t *, unsigned int *, mtime_t * );
80
81 /*****************************************************************************
82  * Open: check file and initializes structures
83  *****************************************************************************/
84 static int Open( vlc_object_t * p_this )
85 {
86     input_thread_t *p_input = (input_thread_t *)p_this;
87     demux_sys_t    *p_sys;
88
89     uint8_t        *p_peek;
90     unsigned int   i_size;
91     vlc_fourcc_t   i_fourcc;
92
93     /* Is it a wav file ? */
94     if( input_Peek( p_input, &p_peek, 12 ) < 12 )
95     {
96         msg_Warn( p_input, "WAV module discarded (cannot peek)" );
97         return VLC_EGENERIC;
98     }
99     if( strncmp( p_peek, "RIFF", 4 ) || strncmp( &p_peek[8], "WAVE", 4 ) )
100     {
101         msg_Warn( p_input, "WAV module discarded (not a valid file)" );
102         return VLC_EGENERIC;
103     }
104
105     p_input->pf_demux     = Demux;
106     p_input->p_demux_data = p_sys = malloc( sizeof( demux_sys_t ) );
107     p_sys->p_wf           = NULL;
108     p_sys->p_es           = NULL;
109     p_sys->i_time         = 0;
110
111     if( ( p_sys->s = stream_OpenInput( p_input ) ) == NULL )
112     {
113         msg_Err( p_input, "cannot create stream" );
114         goto error;
115     }
116
117     /* skip riff header */
118     stream_Read( p_sys->s, NULL, 12 );  /* cannot fail as peek succeed */
119
120     /* search fmt chunk */
121     if( ChunkFind( p_input, "fmt ", &i_size ) )
122     {
123         msg_Err( p_input, "cannot find 'fmt ' chunk" );
124         goto error;
125     }
126     if( i_size < sizeof( WAVEFORMATEX ) - 2 )   /* XXX -2 isn't a typo */
127     {
128         msg_Err( p_input, "invalid 'fmt ' chunk" );
129         goto error;
130     }
131     stream_Read( p_sys->s, NULL, 8 );   /* cannot fail */
132
133     /* load waveformatex */
134     p_sys->p_wf = malloc( __EVEN( i_size ) + 2 ); /* +2, for raw audio -> no cbSize */
135     p_sys->p_wf->cbSize = 0;
136     if( stream_Read( p_sys->s, p_sys->p_wf, __EVEN( i_size ) ) < (int)__EVEN( i_size ) )
137     {
138         msg_Err( p_input, "cannot load 'fmt ' chunk" );
139         goto error;
140     }
141
142     /* le->me */
143     p_sys->p_wf->wFormatTag      = GetWLE ( &p_sys->p_wf->wFormatTag );
144     p_sys->p_wf->nChannels       = GetWLE ( &p_sys->p_wf->nChannels );
145     p_sys->p_wf->nSamplesPerSec  = GetDWLE( &p_sys->p_wf->nSamplesPerSec );
146     p_sys->p_wf->nAvgBytesPerSec = GetDWLE( &p_sys->p_wf->nAvgBytesPerSec );
147     p_sys->p_wf->nBlockAlign     = GetWLE ( &p_sys->p_wf->nBlockAlign );
148     p_sys->p_wf->wBitsPerSample  = GetWLE ( &p_sys->p_wf->wBitsPerSample );
149     p_sys->p_wf->cbSize          = GetWLE ( &p_sys->p_wf->cbSize );
150
151     msg_Dbg( p_input, "format:0x%4.4x channels:%d %dHz %dKo/s blockalign:%d bits/samples:%d extra size:%d",
152             p_sys->p_wf->wFormatTag,
153             p_sys->p_wf->nChannels,
154             p_sys->p_wf->nSamplesPerSec,
155             p_sys->p_wf->nAvgBytesPerSec / 1024,
156             p_sys->p_wf->nBlockAlign,
157             p_sys->p_wf->wBitsPerSample,
158             p_sys->p_wf->cbSize );
159
160     if( ChunkFind( p_input, "data", &p_sys->i_data_size ) )
161     {
162         msg_Err( p_input, "cannot find 'data' chunk" );
163         goto error;
164     }
165
166     stream_Control( p_sys->s, STREAM_GET_POSITION, &p_sys->i_data_pos );
167
168     stream_Read( p_sys->s, NULL, 8 );   /* cannot fail */
169
170     /* XXX p_sys->psz_demux shouldn't be NULL ! */
171     switch( p_sys->p_wf->wFormatTag )
172     {
173         case( WAVE_FORMAT_PCM ):
174             msg_Dbg( p_input,"found raw pcm audio format" );
175             i_fourcc = VLC_FOURCC( 'a', 'r', 'a', 'w' );
176             FrameInfo_PCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
177             break;
178         case( WAVE_FORMAT_MULAW ):
179             msg_Dbg( p_input,"found mulaw pcm audio format" );
180             i_fourcc = VLC_FOURCC( 'u', 'l', 'a', 'w' );
181             FrameInfo_PCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
182             break;
183         case( WAVE_FORMAT_ALAW ):
184             msg_Dbg( p_input,"found alaw pcm audio format" );
185             i_fourcc = VLC_FOURCC( 'a', 'l', 'a', 'w' );
186             FrameInfo_PCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
187             break;
188         case( WAVE_FORMAT_ADPCM ):
189             msg_Dbg( p_input, "found ms adpcm audio format" );
190             i_fourcc = VLC_FOURCC( 'm', 's', 0x00, 0x02 );
191             FrameInfo_MS_ADPCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
192             break;
193         case( WAVE_FORMAT_IMA_ADPCM ):
194             msg_Dbg( p_input, "found ima adpcm audio format" );
195             i_fourcc = VLC_FOURCC( 'm', 's', 0x00, 0x11 );
196             FrameInfo_IMA_ADPCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
197             break;
198
199         case( WAVE_FORMAT_MPEG ):
200         case( WAVE_FORMAT_MPEGLAYER3 ):
201             msg_Dbg( p_input, "found mpeg audio format (relaying to another demux)" );
202             /* FIXME set end of area FIXME */
203             goto relay;
204         case( WAVE_FORMAT_A52 ):
205             msg_Dbg( p_input,"found a52 audio format (relaying to another demux)" );
206             /* FIXME set end of area FIXME */
207             goto relay;
208
209         default:
210             msg_Err( p_input,"unrecognize audio format(0x%x)",
211                      p_sys->p_wf->wFormatTag );
212             goto error;
213     }
214
215
216     /*  create one program */
217     vlc_mutex_lock( &p_input->stream.stream_lock );
218     if( input_InitStream( p_input, 0 ) == -1)
219     {
220         vlc_mutex_unlock( &p_input->stream.stream_lock );
221         msg_Err( p_input, "cannot init stream" );
222         goto error;
223     }
224     if( input_AddProgram( p_input, 0, 0) == NULL )
225     {
226         vlc_mutex_unlock( &p_input->stream.stream_lock );
227         msg_Err( p_input, "cannot add program" );
228         goto error;
229     }
230     p_input->stream.p_selected_program = p_input->stream.pp_programs[0];
231
232     if( p_sys->i_data_size > 0 )
233     {
234         p_input->stream.i_mux_rate = (mtime_t)p_sys->i_frame_size * (mtime_t)1000000 / 50 / p_sys->i_frame_length;
235     }
236     else
237     {
238         p_input->stream.i_mux_rate = 0;
239     }
240
241     p_sys->p_es = input_AddES( p_input,
242                                  p_input->stream.p_selected_program,
243                                  1, AUDIO_ES, NULL, 0 );
244     p_sys->p_es->i_stream_id = 1;
245     p_sys->p_es->i_fourcc = i_fourcc;
246     p_sys->p_es->p_waveformatex = malloc( sizeof( WAVEFORMATEX ) + p_sys->p_wf->cbSize );
247     memcpy( p_sys->p_es->p_waveformatex,
248             p_sys->p_wf,
249             sizeof( WAVEFORMATEX ) + p_sys->p_wf->cbSize );
250
251     input_SelectES( p_input, p_sys->p_es );
252
253     p_input->stream.p_selected_program->b_is_ok = 1;
254     vlc_mutex_unlock( &p_input->stream.stream_lock );
255
256     return VLC_SUCCESS;
257
258 error:
259 relay:
260     if( p_sys->p_wf )
261     {
262         free( p_sys->p_wf );
263     }
264     if( p_sys->s )
265     {
266         stream_Release( p_sys->s );
267     }
268     free( p_sys );
269
270     return VLC_EGENERIC;
271 }
272
273 /*****************************************************************************
274  * Demux: read packet and send them to decoders
275  *****************************************************************************
276  * Returns -1 in case of error, 0 in case of EOF, 1 otherwise
277  *****************************************************************************/
278 static int Demux( input_thread_t *p_input )
279 {
280     demux_sys_t  *p_sys = p_input->p_demux_data;
281     int64_t      i_pos;
282     pes_packet_t *p_pes;
283
284     if( p_input->stream.p_selected_program->i_synchro_state == SYNCHRO_REINIT )
285     {
286         stream_Control( p_sys->s, STREAM_GET_POSITION, &i_pos );
287         if( p_sys->p_wf->nBlockAlign != 0 )
288         {
289             i_pos += p_sys->p_wf->nBlockAlign - i_pos % p_sys->p_wf->nBlockAlign;
290             if( stream_Control( p_sys->s, STREAM_SET_POSITION, i_pos ) )
291             {
292                 msg_Err( p_input, "STREAM_SET_POSITION failed (cannot resync)" );
293             }
294         }
295     }
296
297     input_ClockManageRef( p_input,
298                           p_input->stream.p_selected_program,
299                           p_sys->i_time * 9 / 100 );
300
301     stream_Control( p_sys->s, STREAM_GET_POSITION, &i_pos );
302
303     if( p_sys->i_data_size > 0 &&
304         i_pos >= p_sys->i_data_pos + p_sys->i_data_size )
305     {
306         /* EOF */
307         return 0;
308     }
309
310     if( ( p_pes = stream_PesPacket( p_sys->s, p_sys->i_frame_size ) ) == NULL )
311     {
312         msg_Warn( p_input, "cannot read data" );
313         return 0;
314     }
315     p_pes->i_dts =
316     p_pes->i_pts = input_ClockGetTS( p_input,
317                                      p_input->stream.p_selected_program,
318                                      p_sys->i_time * 9 / 100 );
319
320     if( !p_sys->p_es->p_decoder_fifo )
321     {
322         msg_Err( p_input, "no audio decoder" );
323         input_DeletePES( p_input->p_method_data, p_pes );
324         return( -1 );
325     }
326
327     input_DecodePES( p_sys->p_es->p_decoder_fifo, p_pes );
328     p_sys->i_time += p_sys->i_frame_length;
329     return( 1 );
330 }
331
332 /*****************************************************************************
333  * Close: frees unused data
334  *****************************************************************************/
335 static void Close ( vlc_object_t * p_this )
336 {
337     input_thread_t *p_input = (input_thread_t *)p_this;
338     demux_sys_t    *p_sys = p_input->p_demux_data;
339
340     stream_Release( p_sys->s );
341     free( p_sys->p_wf );
342     free( p_sys );
343 }
344
345
346 /*****************************************************************************
347  * Local functions
348  *****************************************************************************/
349 static int ChunkFind( input_thread_t *p_input,
350                       char *fcc, unsigned int *pi_size )
351 {
352     demux_sys_t *p_sys = p_input->p_demux_data;
353     uint8_t     *p_peek;
354
355     for( ;; )
356     {
357         int i_size;
358
359         if( stream_Peek( p_sys->s, &p_peek, 8 ) < 8 )
360         {
361             msg_Err( p_input, "cannot peek()" );
362             return VLC_EGENERIC;
363         }
364
365         i_size = GetDWLE( p_peek + 4 );
366
367         msg_Dbg( p_input, "Chunk: fcc=`%4.4s` size=%d", p_peek, i_size );
368
369         if( !strncmp( p_peek, fcc, 4 ) )
370         {
371             if( pi_size )
372             {
373                 *pi_size = i_size;
374             }
375             return VLC_SUCCESS;
376         }
377
378         i_size = __EVEN( i_size ) + 8;
379         if( stream_Read( p_sys->s, NULL, i_size ) != i_size )
380         {
381             return VLC_EGENERIC;
382         }
383     }
384 }
385
386 static void FrameInfo_PCM( input_thread_t *p_input,
387                            unsigned int   *pi_size,
388                            mtime_t        *pi_length )
389 {
390     WAVEFORMATEX *p_wf = p_input->p_demux_data->p_wf;
391     int i_samples;
392
393     int i_bytes;
394     int i_modulo;
395
396     /* read samples for 50ms of */
397     i_samples = __MAX( p_wf->nSamplesPerSec / 20, 1 );
398
399
400     *pi_length = (mtime_t)1000000 *
401                  (mtime_t)i_samples /
402                  (mtime_t)p_wf->nSamplesPerSec;
403
404     i_bytes = i_samples * p_wf->nChannels * ( (p_wf->wBitsPerSample + 7) / 8 );
405
406     if( p_wf->nBlockAlign > 0 )
407     {
408         if( ( i_modulo = i_bytes % p_wf->nBlockAlign ) != 0 )
409         {
410             i_bytes += p_wf->nBlockAlign - i_modulo;
411         }
412     }
413     *pi_size = i_bytes;
414 }
415
416 static void FrameInfo_MS_ADPCM( input_thread_t *p_input,
417                               unsigned int   *pi_size,
418                               mtime_t        *pi_length )
419 {
420     WAVEFORMATEX *p_wf = p_input->p_demux_data->p_wf;
421     int i_samples;
422
423     i_samples = 2 + 2 * ( p_wf->nBlockAlign -
424                                 7 * p_wf->nChannels ) / p_wf->nChannels;
425
426     *pi_length = (mtime_t)1000000 *
427                  (mtime_t)i_samples /
428                  (mtime_t)p_wf->nSamplesPerSec;
429
430     *pi_size = p_wf->nBlockAlign;
431 }
432
433 static void FrameInfo_IMA_ADPCM( input_thread_t *p_input,
434                                unsigned int   *pi_size,
435                                mtime_t        *pi_length )
436 {
437     WAVEFORMATEX *p_wf = p_input->p_demux_data->p_wf;
438     int i_samples;
439
440     i_samples = 2 * ( p_wf->nBlockAlign -
441                         4 * p_wf->nChannels ) / p_wf->nChannels;
442
443     *pi_length = (mtime_t)1000000 *
444                  (mtime_t)i_samples /
445                  (mtime_t)p_wf->nSamplesPerSec;
446
447     *pi_size = p_wf->nBlockAlign;
448 }
449