correct AUDIO strf parsing patch by (Roman Shaposhnick <rvs at sun dot com>)
[ffmpeg.git] / libavformat / wav.c
1 /* 
2  * WAV encoder and decoder
3  * Copyright (c) 2001, 2002 Fabrice Bellard.
4  *
5  * This library is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Lesser General Public
7  * License as published by the Free Software Foundation; either
8  * version 2 of the License, or (at your option) any later version.
9  *
10  * This library is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * Lesser General Public License for more details.
14  *
15  * You should have received a copy of the GNU Lesser General Public
16  * License along with this library; if not, write to the Free Software
17  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18  */
19 #include "avformat.h"
20 #include "avi.h"
21
22 const CodecTag codec_wav_tags[] = {
23     { CODEC_ID_MP2, 0x50 },
24     { CODEC_ID_MP3LAME, 0x55 },
25     { CODEC_ID_AC3, 0x2000 },
26     { CODEC_ID_PCM_S16LE, 0x01 },
27     { CODEC_ID_PCM_U8, 0x01 }, /* must come after s16le in this list */
28     { CODEC_ID_PCM_ALAW, 0x06 },
29     { CODEC_ID_PCM_MULAW, 0x07 },
30     { CODEC_ID_ADPCM_MS, 0x02 },
31     { CODEC_ID_ADPCM_IMA_WAV, 0x11 },
32     { CODEC_ID_WMAV1, 0x160 },
33     { CODEC_ID_WMAV2, 0x161 },
34     { 0, 0 },
35 };
36
37 /* WAVEFORMATEX header */
38 /* returns the size or -1 on error */
39 int put_wav_header(ByteIOContext *pb, AVCodecContext *enc)
40 {
41     int tag, bps, blkalign, bytespersec;
42     int hdrsize = 18;
43
44     tag = codec_get_tag(codec_wav_tags, enc->codec_id);
45     if (tag == 0)
46         return -1;
47     put_le16(pb, tag);
48     put_le16(pb, enc->channels);
49     put_le32(pb, enc->sample_rate);
50     if (enc->codec_id == CODEC_ID_PCM_U8 ||
51         enc->codec_id == CODEC_ID_PCM_ALAW ||
52         enc->codec_id == CODEC_ID_PCM_MULAW) {
53         bps = 8;
54     } else if (enc->codec_id == CODEC_ID_MP2 || enc->codec_id == CODEC_ID_MP3LAME) {
55         bps = 0;
56     } else if (enc->codec_id == CODEC_ID_ADPCM_IMA_WAV || enc->codec_id == CODEC_ID_ADPCM_MS) {
57         bps = 4;
58     } else {
59         bps = 16;
60     }
61     
62     if (enc->codec_id == CODEC_ID_MP2 || enc->codec_id == CODEC_ID_MP3LAME) {
63         blkalign = 1;
64         //blkalign = 144 * enc->bit_rate/enc->sample_rate;
65     } else if (enc->block_align != 0) { /* specified by the codec */
66         blkalign = enc->block_align;
67     } else
68         blkalign = enc->channels*bps >> 3;
69     if (enc->codec_id == CODEC_ID_PCM_U8 ||
70         enc->codec_id == CODEC_ID_PCM_S16LE) {
71         bytespersec = enc->sample_rate * blkalign;
72     } else {
73         bytespersec = enc->bit_rate / 8;
74     }
75     put_le32(pb, bytespersec); /* bytes per second */
76     put_le16(pb, blkalign); /* block align */
77     put_le16(pb, bps); /* bits per sample */
78     if (enc->codec_id == CODEC_ID_MP3LAME) {
79         put_le16(pb, 12); /* wav_extra_size */
80         hdrsize += 12;
81         put_le16(pb, 1); /* wID */
82         put_le32(pb, 2); /* fdwFlags */
83         put_le16(pb, 1152); /* nBlockSize */
84         put_le16(pb, 1); /* nFramesPerBlock */
85         put_le16(pb, 1393); /* nCodecDelay */
86     } else if (enc->codec_id == CODEC_ID_MP2) {
87         put_le16(pb, 22); /* wav_extra_size */
88         hdrsize += 22;
89         put_le16(pb, 2);  /* fwHeadLayer */
90         put_le32(pb, enc->bit_rate); /* dwHeadBitrate */
91         put_le16(pb, enc->channels == 2 ? 1 : 8); /* fwHeadMode */
92         put_le16(pb, 0);  /* fwHeadModeExt */
93         put_le16(pb, 1);  /* wHeadEmphasis */
94         put_le16(pb, 16); /* fwHeadFlags */
95         put_le32(pb, 0);  /* dwPTSLow */
96         put_le32(pb, 0);  /* dwPTSHigh */
97     } else if (enc->codec_id == CODEC_ID_ADPCM_IMA_WAV) {
98         put_le16(pb, 2); /* wav_extra_size */
99         put_le16(pb, ((enc->block_align - 4 * enc->channels) / (4 * enc->channels)) * 8 + 1); /* wSamplesPerBlock */
100     } else
101         put_le16(pb, 0); /* wav_extra_size */
102
103     return hdrsize;
104 }
105
106 /* We could be given one of the three possible structures here:
107  * WAVEFORMAT, PCMWAVEFORMAT or WAVEFORMATEX. Each structure
108  * is an expansion of the previous one with the fields added
109  * at the bottom. PCMWAVEFORMAT adds 'WORD wBitsPerSample' and
110  * WAVEFORMATEX adds 'WORD  cbSize' and basically makes itself
111  * an openended structure.
112  */
113 void get_wav_header(ByteIOContext *pb, AVCodecContext *codec, int size) 
114 {
115     int id;
116
117     id = get_le16(pb);
118     codec->codec_id = wav_codec_get_id(id, codec->frame_bits);
119     codec->codec_type = CODEC_TYPE_AUDIO;
120     codec->codec_tag = id;
121     codec->channels = get_le16(pb);
122     codec->sample_rate = get_le32(pb);
123     codec->bit_rate = get_le32(pb) * 8;
124     codec->block_align = get_le16(pb);
125     if (size == 14) {  /* We're dealing with plain vanilla WAVEFORMAT */
126         codec->bits_per_sample = 8;
127         return;
128     }
129     
130     codec->bits_per_sample = get_le16(pb);
131     if (size > 16) {  /* We're obviously dealing with WAVEFORMATEX */
132         codec->extradata_size = get_le16(pb);
133         if (codec->extradata_size > 0) {
134             if (codec->extradata_size > size - 18)
135                 codec->extradata_size = size - 18;
136             codec->extradata = av_mallocz(codec->extradata_size);
137             get_buffer(pb, codec->extradata, codec->extradata_size);
138         } else
139             codec->extradata_size = 0;
140         
141         /* It is possible for the chunk to contain garbage at the end */
142         if (size - codec->extradata_size - 18 > 0)
143             url_fskip(pb, size - codec->extradata_size - 18);
144     }
145 }
146
147
148 int wav_codec_get_id(unsigned int tag, int bps)
149 {
150     int id;
151     id = codec_get_id(codec_wav_tags, tag);
152     if (id <= 0)
153         return id;
154     /* handle specific u8 codec */
155     if (id == CODEC_ID_PCM_S16LE && bps == 8)
156         id = CODEC_ID_PCM_U8;
157     return id;
158 }
159
160 typedef struct {
161     offset_t data;
162 } WAVContext;
163
164 static int wav_write_header(AVFormatContext *s)
165 {
166     WAVContext *wav = s->priv_data;
167     ByteIOContext *pb = &s->pb;
168     offset_t fmt;
169
170     put_tag(pb, "RIFF");
171     put_le32(pb, 0); /* file length */
172     put_tag(pb, "WAVE");
173
174     /* format header */
175     fmt = start_tag(pb, "fmt ");
176     if (put_wav_header(pb, &s->streams[0]->codec) < 0) {
177         av_free(wav);
178         return -1;
179     }
180     end_tag(pb, fmt);
181
182     /* data header */
183     wav->data = start_tag(pb, "data");
184     
185     put_flush_packet(pb);
186
187     return 0;
188 }
189
190 static int wav_write_packet(AVFormatContext *s, int stream_index_ptr,
191                            uint8_t *buf, int size, int force_pts)
192 {
193     ByteIOContext *pb = &s->pb;
194     put_buffer(pb, buf, size);
195     return 0;
196 }
197
198 static int wav_write_trailer(AVFormatContext *s)
199 {
200     ByteIOContext *pb = &s->pb;
201     WAVContext *wav = s->priv_data;
202     offset_t file_size;
203
204     if (!url_is_streamed(&s->pb)) {
205         end_tag(pb, wav->data);
206
207         /* update file size */
208         file_size = url_ftell(pb);
209         url_fseek(pb, 4, SEEK_SET);
210         put_le32(pb, (uint32_t)(file_size - 8));
211         url_fseek(pb, file_size, SEEK_SET);
212
213         put_flush_packet(pb);
214     }
215     return 0;
216 }
217
218 /* return the size of the found tag */
219 /* XXX: > 2GB ? */
220 static int find_tag(ByteIOContext *pb, uint32_t tag1)
221 {
222     unsigned int tag;
223     int size;
224
225     for(;;) {
226         if (url_feof(pb))
227             return -1;
228         tag = get_le32(pb);
229         size = get_le32(pb);
230         if (tag == tag1)
231             break;
232         url_fseek(pb, size, SEEK_CUR);
233     }
234     if (size < 0)
235         size = 0x7fffffff;
236     return size;
237 }
238
239 static int wav_probe(AVProbeData *p)
240 {
241     /* check file header */
242     if (p->buf_size <= 32)
243         return 0;
244     if (p->buf[0] == 'R' && p->buf[1] == 'I' &&
245         p->buf[2] == 'F' && p->buf[3] == 'F' &&
246         p->buf[8] == 'W' && p->buf[9] == 'A' &&
247         p->buf[10] == 'V' && p->buf[11] == 'E')
248         return AVPROBE_SCORE_MAX;
249     else
250         return 0;
251 }
252
253 /* wav input */
254 static int wav_read_header(AVFormatContext *s,
255                            AVFormatParameters *ap)
256 {
257     int size;
258     unsigned int tag;
259     ByteIOContext *pb = &s->pb;
260     AVStream *st;
261
262     /* check RIFF header */
263     tag = get_le32(pb);
264
265     if (tag != MKTAG('R', 'I', 'F', 'F'))
266         return -1;
267     get_le32(pb); /* file size */
268     tag = get_le32(pb);
269     if (tag != MKTAG('W', 'A', 'V', 'E'))
270         return -1;
271     
272     /* parse fmt header */
273     size = find_tag(pb, MKTAG('f', 'm', 't', ' '));
274     if (size < 0)
275         return -1;
276     st = av_new_stream(s, 0);
277     if (!st)
278         return AVERROR_NOMEM;
279
280     get_wav_header(pb, &st->codec, size);
281     
282     size = find_tag(pb, MKTAG('d', 'a', 't', 'a'));
283     if (size < 0)
284         return -1;
285     return 0;
286 }
287
288 #define MAX_SIZE 4096
289
290 static int wav_read_packet(AVFormatContext *s,
291                            AVPacket *pkt)
292 {
293     int ret;
294
295     if (url_feof(&s->pb))
296         return -EIO;
297     if (av_new_packet(pkt, MAX_SIZE))
298         return -EIO;
299     pkt->stream_index = 0;
300
301     ret = get_buffer(&s->pb, pkt->data, pkt->size);
302     if (ret < 0)
303         av_free_packet(pkt);
304     /* note: we need to modify the packet size here to handle the last
305        packet */
306     pkt->size = ret;
307     return ret;
308 }
309
310 static int wav_read_close(AVFormatContext *s)
311 {
312     return 0;
313 }
314
315 static AVInputFormat wav_iformat = {
316     "wav",
317     "wav format",
318     0,
319     wav_probe,
320     wav_read_header,
321     wav_read_packet,
322     wav_read_close,
323 };
324
325 static AVOutputFormat wav_oformat = {
326     "wav",
327     "wav format",
328     "audio/x-wav",
329     "wav",
330     sizeof(WAVContext),
331     CODEC_ID_PCM_S16LE,
332     CODEC_ID_NONE,
333     wav_write_header,
334     wav_write_packet,
335     wav_write_trailer,
336 };
337
338 int wav_init(void)
339 {
340     av_register_input_format(&wav_iformat);
341     av_register_output_format(&wav_oformat);
342     return 0;
343 }