* configure.ac: audio -> mpga
[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.2 2003/08/01 00:40:05 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 #define GetWLE( p ) __GetWLE( (uint8_t*)(p) )
76 static inline uint32_t __GetWLE( uint8_t *p )
77 {
78     return( p[0] + ( p[1] << 8 ) );
79 }
80 #define GetDWLE( p ) __GetDWLE( (uint8_t*)(p) )
81 static inline uint32_t __GetDWLE( uint8_t *p )
82 {
83     return( p[0] + ( p[1] << 8 ) + ( p[2] << 16 ) + ( p[3] << 24 ) );
84 }
85
86 static int ChunkFind( input_thread_t *, char *, unsigned int * );
87
88 static void FrameInfo_IMA_ADPCM( input_thread_t *, unsigned int *, mtime_t * );
89 static void FrameInfo_MS_ADPCM ( input_thread_t *, unsigned int *, mtime_t * );
90 static void FrameInfo_PCM      ( input_thread_t *, unsigned int *, mtime_t * );
91
92 /*****************************************************************************
93  * Open: check file and initializes structures
94  *****************************************************************************/
95 static int Open( vlc_object_t * p_this )
96 {
97     input_thread_t *p_input = (input_thread_t *)p_this;
98     demux_sys_t    *p_sys;
99
100     uint8_t        *p_peek;
101     unsigned int   i_size;
102     vlc_fourcc_t   i_fourcc;
103
104     /* Is it a wav file ? */
105     if( input_Peek( p_input, &p_peek, 12 ) < 12 )
106     {
107         msg_Warn( p_input, "WAV module discarded (cannot peek)" );
108         return VLC_EGENERIC;
109     }
110     if( strncmp( p_peek, "RIFF", 4 ) || strncmp( &p_peek[8], "WAVE", 4 ) )
111     {
112         msg_Warn( p_input, "WAV module discarded (not a valid file)" );
113         return VLC_EGENERIC;
114     }
115
116     p_input->pf_demux     = Demux;
117     p_input->p_demux_data = p_sys = malloc( sizeof( demux_sys_t ) );
118     p_sys->p_wf           = NULL;
119     p_sys->p_es           = NULL;
120     p_sys->i_time         = 0;
121
122     if( ( p_sys->s = stream_OpenInput( p_input ) ) == NULL )
123     {
124         msg_Err( p_input, "cannot create stream" );
125         goto error;
126     }
127
128     /* skip riff header */
129     stream_Read( p_sys->s, NULL, 12 );  /* cannot fail as peek succeed */
130
131     /* search fmt chunk */
132     if( ChunkFind( p_input, "fmt ", &i_size ) )
133     {
134         msg_Err( p_input, "cannot find 'fmt ' chunk" );
135         goto error;
136     }
137     if( i_size < sizeof( WAVEFORMATEX ) - 2 )   /* XXX -2 isn't a typo */
138     {
139         msg_Err( p_input, "invalid 'fmt ' chunk" );
140         goto error;
141     }
142     stream_Read( p_sys->s, NULL, 8 );   /* cannot fail */
143
144     /* load waveformatex */
145     p_sys->p_wf = malloc( __EVEN( i_size ) + 2 ); /* +2, for raw audio -> no cbSize */
146     p_sys->p_wf->cbSize = 0;
147     if( stream_Read( p_sys->s, p_sys->p_wf, __EVEN( i_size ) ) < (int)__EVEN( i_size ) )
148     {
149         msg_Err( p_input, "cannot load 'fmt ' chunk" );
150         goto error;
151     }
152
153     /* le->me */
154     p_sys->p_wf->wFormatTag      = GetWLE ( &p_sys->p_wf->wFormatTag );
155     p_sys->p_wf->nChannels       = GetWLE ( &p_sys->p_wf->nChannels );
156     p_sys->p_wf->nSamplesPerSec  = GetDWLE( &p_sys->p_wf->nSamplesPerSec );
157     p_sys->p_wf->nAvgBytesPerSec = GetDWLE( &p_sys->p_wf->nAvgBytesPerSec );
158     p_sys->p_wf->nBlockAlign     = GetWLE ( &p_sys->p_wf->nBlockAlign );
159     p_sys->p_wf->wBitsPerSample  = GetWLE ( &p_sys->p_wf->wBitsPerSample );
160     p_sys->p_wf->cbSize          = GetWLE ( &p_sys->p_wf->cbSize );
161
162     msg_Dbg( p_input, "format:0x%4.4x channels:%d %dHz %dKo/s blockalign:%d bits/samples:%d extra size:%d",
163             p_sys->p_wf->wFormatTag,
164             p_sys->p_wf->nChannels,
165             p_sys->p_wf->nSamplesPerSec,
166             p_sys->p_wf->nAvgBytesPerSec / 1024,
167             p_sys->p_wf->nBlockAlign,
168             p_sys->p_wf->wBitsPerSample,
169             p_sys->p_wf->cbSize );
170
171     if( ChunkFind( p_input, "data", &p_sys->i_data_size ) )
172     {
173         msg_Err( p_input, "cannot find 'data' chunk" );
174         goto error;
175     }
176
177     stream_Control( p_sys->s, STREAM_GET_POSITION, &p_sys->i_data_pos );
178
179     stream_Read( p_sys->s, NULL, 8 );   /* cannot fail */
180
181     /* XXX p_sys->psz_demux shouldn't be NULL ! */
182     switch( p_sys->p_wf->wFormatTag )
183     {
184         case( WAVE_FORMAT_PCM ):
185             msg_Dbg( p_input,"found raw pcm audio format" );
186             i_fourcc = VLC_FOURCC( 'a', 'r', 'a', 'w' );
187             FrameInfo_PCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
188             break;
189         case( WAVE_FORMAT_MULAW ):
190             msg_Dbg( p_input,"found mulaw pcm audio format" );
191             i_fourcc = VLC_FOURCC( 'u', 'l', 'a', 'w' );
192             FrameInfo_PCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
193             break;
194         case( WAVE_FORMAT_ALAW ):
195             msg_Dbg( p_input,"found alaw pcm audio format" );
196             i_fourcc = VLC_FOURCC( 'a', 'l', 'a', 'w' );
197             FrameInfo_PCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
198             break;
199         case( WAVE_FORMAT_ADPCM ):
200             msg_Dbg( p_input, "found ms adpcm audio format" );
201             i_fourcc = VLC_FOURCC( 'm', 's', 0x00, 0x02 );
202             FrameInfo_MS_ADPCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
203             break;
204         case( WAVE_FORMAT_IMA_ADPCM ):
205             msg_Dbg( p_input, "found ima adpcm audio format" );
206             i_fourcc = VLC_FOURCC( 'm', 's', 0x00, 0x11 );
207             FrameInfo_IMA_ADPCM( p_input, &p_sys->i_frame_size, &p_sys->i_frame_length );
208             break;
209
210         case( WAVE_FORMAT_MPEG ):
211         case( WAVE_FORMAT_MPEGLAYER3 ):
212             msg_Dbg( p_input, "found mpeg audio format (relaying to another demux)" );
213             /* FIXME set end of area FIXME */
214             goto relay;
215         case( WAVE_FORMAT_A52 ):
216             msg_Dbg( p_input,"found a52 audio format (relaying to another demux)" );
217             /* FIXME set end of area FIXME */
218             goto relay;
219
220         default:
221             msg_Err( p_input,"unrecognize audio format(0x%x)",
222                      p_sys->p_wf->wFormatTag );
223             goto error;
224     }
225
226
227     /*  create one program */
228     vlc_mutex_lock( &p_input->stream.stream_lock );
229     if( input_InitStream( p_input, 0 ) == -1)
230     {
231         vlc_mutex_unlock( &p_input->stream.stream_lock );
232         msg_Err( p_input, "cannot init stream" );
233         goto error;
234     }
235     if( input_AddProgram( p_input, 0, 0) == NULL )
236     {
237         vlc_mutex_unlock( &p_input->stream.stream_lock );
238         msg_Err( p_input, "cannot add program" );
239         goto error;
240     }
241     p_input->stream.p_selected_program = p_input->stream.pp_programs[0];
242
243     if( p_sys->i_data_size > 0 )
244     {
245         p_input->stream.i_mux_rate = (mtime_t)p_sys->i_frame_size * (mtime_t)1000000 / 50 / p_sys->i_frame_length;
246     }
247     else
248     {
249         p_input->stream.i_mux_rate = 0;
250     }
251
252     p_sys->p_es = input_AddES( p_input,
253                                  p_input->stream.p_selected_program,
254                                  1, AUDIO_ES, NULL, 0 );
255     p_sys->p_es->i_stream_id = 1;
256     p_sys->p_es->i_fourcc = i_fourcc;
257     p_sys->p_es->p_waveformatex = malloc( sizeof( WAVEFORMATEX ) + p_sys->p_wf->cbSize );
258     memcpy( p_sys->p_es->p_waveformatex,
259             p_sys->p_wf,
260             sizeof( WAVEFORMATEX ) + p_sys->p_wf->cbSize );
261
262     input_SelectES( p_input, p_sys->p_es );
263
264     p_input->stream.p_selected_program->b_is_ok = 1;
265     vlc_mutex_unlock( &p_input->stream.stream_lock );
266
267     return VLC_SUCCESS;
268
269 error:
270 relay:
271     if( p_sys->p_wf )
272     {
273         free( p_sys->p_wf );
274     }
275     if( p_sys->s )
276     {
277         stream_Release( p_sys->s );
278     }
279     free( p_sys );
280
281     return VLC_EGENERIC;
282 }
283
284 /*****************************************************************************
285  * Demux: read packet and send them to decoders
286  *****************************************************************************
287  * Returns -1 in case of error, 0 in case of EOF, 1 otherwise
288  *****************************************************************************/
289 static int Demux( input_thread_t *p_input )
290 {
291     demux_sys_t  *p_sys = p_input->p_demux_data;
292     int64_t      i_pos;
293     pes_packet_t *p_pes;
294
295     if( p_input->stream.p_selected_program->i_synchro_state == SYNCHRO_REINIT )
296     {
297         stream_Control( p_sys->s, STREAM_GET_POSITION, &i_pos );
298         if( p_sys->p_wf->nBlockAlign != 0 )
299         {
300             i_pos += p_sys->p_wf->nBlockAlign - i_pos % p_sys->p_wf->nBlockAlign;
301             if( stream_Control( p_sys->s, STREAM_SET_POSITION, i_pos ) )
302             {
303                 msg_Err( p_input, "STREAM_SET_POSITION failed (cannot resync)" );
304             }
305         }
306     }
307
308     input_ClockManageRef( p_input,
309                           p_input->stream.p_selected_program,
310                           p_sys->i_time * 9 / 100 );
311
312     stream_Control( p_sys->s, STREAM_GET_POSITION, &i_pos );
313
314     if( p_sys->i_data_size > 0 &&
315         i_pos >= p_sys->i_data_pos + p_sys->i_data_size )
316     {
317         /* EOF */
318         return 0;
319     }
320
321     if( ( p_pes = stream_PesPacket( p_sys->s, p_sys->i_frame_size ) ) == NULL )
322     {
323         msg_Warn( p_input, "cannot read data" );
324         return 0;
325     }
326     p_pes->i_dts =
327     p_pes->i_pts = input_ClockGetTS( p_input,
328                                      p_input->stream.p_selected_program,
329                                      p_sys->i_time * 9 / 100 );
330
331     if( !p_sys->p_es->p_decoder_fifo )
332     {
333         msg_Err( p_input, "no audio decoder" );
334         input_DeletePES( p_input->p_method_data, p_pes );
335         return( -1 );
336     }
337
338     input_DecodePES( p_sys->p_es->p_decoder_fifo, p_pes );
339     p_sys->i_time += p_sys->i_frame_length;
340     return( 1 );
341 }
342
343 /*****************************************************************************
344  * Close: frees unused data
345  *****************************************************************************/
346 static void Close ( vlc_object_t * p_this )
347 {
348     input_thread_t *p_input = (input_thread_t *)p_this;
349     demux_sys_t    *p_sys = p_input->p_demux_data;
350
351     stream_Release( p_sys->s );
352     free( p_sys->p_wf );
353     free( p_sys );
354 }
355
356
357 /*****************************************************************************
358  * Local functions
359  *****************************************************************************/
360 static int ChunkFind( input_thread_t *p_input,
361                       char *fcc, unsigned int *pi_size )
362 {
363     demux_sys_t *p_sys = p_input->p_demux_data;
364     uint8_t     *p_peek;
365
366     for( ;; )
367     {
368         int i_size;
369
370         if( stream_Peek( p_sys->s, &p_peek, 8 ) < 8 )
371         {
372             msg_Err( p_input, "cannot peek()" );
373             return VLC_EGENERIC;
374         }
375
376         i_size = GetDWLE( p_peek + 4 );
377
378         msg_Dbg( p_input, "Chunk: fcc=`%4.4s` size=%d", p_peek, i_size );
379
380         if( !strncmp( p_peek, fcc, 4 ) )
381         {
382             if( pi_size )
383             {
384                 *pi_size = i_size;
385             }
386             return VLC_SUCCESS;
387         }
388
389         i_size = __EVEN( i_size ) + 8;
390         if( stream_Read( p_sys->s, NULL, i_size ) != i_size )
391         {
392             return VLC_EGENERIC;
393         }
394     }
395 }
396
397 static void FrameInfo_PCM( input_thread_t *p_input,
398                            unsigned int   *pi_size,
399                            mtime_t        *pi_length )
400 {
401     WAVEFORMATEX *p_wf = p_input->p_demux_data->p_wf;
402     int i_samples;
403
404     int i_bytes;
405     int i_modulo;
406
407     /* read samples for 50ms of */
408     i_samples = __MAX( p_wf->nSamplesPerSec / 20, 1 );
409
410
411     *pi_length = (mtime_t)1000000 *
412                  (mtime_t)i_samples /
413                  (mtime_t)p_wf->nSamplesPerSec;
414
415     i_bytes = i_samples * p_wf->nChannels * ( (p_wf->wBitsPerSample + 7) / 8 );
416
417     if( p_wf->nBlockAlign > 0 )
418     {
419         if( ( i_modulo = i_bytes % p_wf->nBlockAlign ) != 0 )
420         {
421             i_bytes += p_wf->nBlockAlign - i_modulo;
422         }
423     }
424     *pi_size = i_bytes;
425 }
426
427 static void FrameInfo_MS_ADPCM( input_thread_t *p_input,
428                               unsigned int   *pi_size,
429                               mtime_t        *pi_length )
430 {
431     WAVEFORMATEX *p_wf = p_input->p_demux_data->p_wf;
432     int i_samples;
433
434     i_samples = 2 + 2 * ( p_wf->nBlockAlign -
435                                 7 * p_wf->nChannels ) / p_wf->nChannels;
436
437     *pi_length = (mtime_t)1000000 *
438                  (mtime_t)i_samples /
439                  (mtime_t)p_wf->nSamplesPerSec;
440
441     *pi_size = p_wf->nBlockAlign;
442 }
443
444 static void FrameInfo_IMA_ADPCM( input_thread_t *p_input,
445                                unsigned int   *pi_size,
446                                mtime_t        *pi_length )
447 {
448     WAVEFORMATEX *p_wf = p_input->p_demux_data->p_wf;
449     int i_samples;
450
451     i_samples = 2 * ( p_wf->nBlockAlign -
452                         4 * p_wf->nChannels ) / p_wf->nChannels;
453
454     *pi_length = (mtime_t)1000000 *
455                  (mtime_t)i_samples /
456                  (mtime_t)p_wf->nSamplesPerSec;
457
458     *pi_size = p_wf->nBlockAlign;
459 }
460