1/*
2 * AIFF/AIFF-C muxer and demuxer
3 * Copyright (c) 2006  Patrick Guimond
4 *
5 * This file is part of FFmpeg.
6 *
7 * FFmpeg is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * FFmpeg is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with FFmpeg; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20 */
21
22#include "libavutil/intfloat_readwrite.h"
23#include "avformat.h"
24#include "raw.h"
25#include "riff.h"
26
27static const AVCodecTag codec_aiff_tags[] = {
28    { CODEC_ID_PCM_S16BE,    MKTAG('N','O','N','E') },
29    { CODEC_ID_PCM_S8,       MKTAG('N','O','N','E') },
30    { CODEC_ID_PCM_S24BE,    MKTAG('N','O','N','E') },
31    { CODEC_ID_PCM_S32BE,    MKTAG('N','O','N','E') },
32    { CODEC_ID_PCM_F32BE,    MKTAG('f','l','3','2') },
33    { CODEC_ID_PCM_F64BE,    MKTAG('f','l','6','4') },
34    { CODEC_ID_PCM_ALAW,     MKTAG('a','l','a','w') },
35    { CODEC_ID_PCM_MULAW,    MKTAG('u','l','a','w') },
36    { CODEC_ID_MACE3,        MKTAG('M','A','C','3') },
37    { CODEC_ID_MACE6,        MKTAG('M','A','C','6') },
38    { CODEC_ID_GSM,          MKTAG('G','S','M',' ') },
39    { CODEC_ID_ADPCM_G726,   MKTAG('G','7','2','6') },
40    { CODEC_ID_PCM_S16LE,    MKTAG('s','o','w','t') },
41    { CODEC_ID_ADPCM_IMA_QT, MKTAG('i','m','a','4') },
42    { CODEC_ID_QDM2,         MKTAG('Q','D','M','2') },
43    { 0, 0 },
44};
45
46#define AIFF                    0
47#define AIFF_C_VERSION1         0xA2805140
48
49static enum CodecID aiff_codec_get_id(int bps)
50{
51    if (bps <= 8)
52        return CODEC_ID_PCM_S8;
53    if (bps <= 16)
54        return CODEC_ID_PCM_S16BE;
55    if (bps <= 24)
56        return CODEC_ID_PCM_S24BE;
57    if (bps <= 32)
58        return CODEC_ID_PCM_S32BE;
59
60    /* bigger than 32 isn't allowed  */
61    return CODEC_ID_NONE;
62}
63
64/* returns the size of the found tag */
65static int get_tag(ByteIOContext *pb, uint32_t * tag)
66{
67    int size;
68
69    if (url_feof(pb))
70        return AVERROR(EIO);
71
72    *tag = get_le32(pb);
73    size = get_be32(pb);
74
75    if (size < 0)
76        size = 0x7fffffff;
77
78    return size;
79}
80
81/* Metadata string read */
82static void get_meta(AVFormatContext *s, const char *key, int size)
83{
84    uint8_t str[1024];
85    int res = get_buffer(s->pb, str, FFMIN(sizeof(str)-1, size));
86    if (res < 0)
87        return;
88
89    str[res] = 0;
90    if (size & 1)
91        size++;
92    size -= res;
93    if (size)
94        url_fskip(s->pb, size);
95
96    av_metadata_set(&s->metadata, key, str);
97}
98
99/* Returns the number of sound data frames or negative on error */
100static unsigned int get_aiff_header(ByteIOContext *pb, AVCodecContext *codec,
101                             int size, unsigned version)
102{
103    AVExtFloat ext;
104    double sample_rate;
105    unsigned int num_frames;
106
107    if (size & 1)
108        size++;
109    codec->codec_type = CODEC_TYPE_AUDIO;
110    codec->channels = get_be16(pb);
111    num_frames = get_be32(pb);
112    codec->bits_per_coded_sample = get_be16(pb);
113
114    get_buffer(pb, (uint8_t*)&ext, sizeof(ext));/* Sample rate is in */
115    sample_rate = av_ext2dbl(ext);          /* 80 bits BE IEEE extended float */
116    codec->sample_rate = sample_rate;
117    size -= 18;
118
119    /* Got an AIFF-C? */
120    if (version == AIFF_C_VERSION1) {
121        codec->codec_tag = get_le32(pb);
122        codec->codec_id  = codec_get_id(codec_aiff_tags, codec->codec_tag);
123
124        switch (codec->codec_id) {
125        case CODEC_ID_PCM_S16BE:
126            codec->codec_id = aiff_codec_get_id(codec->bits_per_coded_sample);
127            codec->bits_per_coded_sample = av_get_bits_per_sample(codec->codec_id);
128            break;
129        case CODEC_ID_ADPCM_IMA_QT:
130            codec->block_align = 34*codec->channels;
131            codec->frame_size = 64;
132            break;
133        case CODEC_ID_MACE3:
134            codec->block_align = 2*codec->channels;
135            codec->frame_size = 6;
136            break;
137        case CODEC_ID_MACE6:
138            codec->block_align = 1*codec->channels;
139            codec->frame_size = 6;
140            break;
141        case CODEC_ID_GSM:
142            codec->block_align = 33;
143            codec->frame_size = 160;
144            break;
145        default:
146            break;
147        }
148        size -= 4;
149    } else {
150        /* Need the codec type */
151        codec->codec_id = aiff_codec_get_id(codec->bits_per_coded_sample);
152        codec->bits_per_coded_sample = av_get_bits_per_sample(codec->codec_id);
153    }
154
155    /* Block align needs to be computed in all cases, as the definition
156     * is specific to applications -> here we use the WAVE format definition */
157    if (!codec->block_align)
158        codec->block_align = (codec->bits_per_coded_sample * codec->channels) >> 3;
159
160    codec->bit_rate = (codec->frame_size ? codec->sample_rate/codec->frame_size :
161                       codec->sample_rate) * (codec->block_align << 3);
162
163    /* Chunk is over */
164    if (size)
165        url_fseek(pb, size, SEEK_CUR);
166
167    return num_frames;
168}
169
170#if CONFIG_AIFF_MUXER
171typedef struct {
172    int64_t form;
173    int64_t frames;
174    int64_t ssnd;
175} AIFFOutputContext;
176
177static int aiff_write_header(AVFormatContext *s)
178{
179    AIFFOutputContext *aiff = s->priv_data;
180    ByteIOContext *pb = s->pb;
181    AVCodecContext *enc = s->streams[0]->codec;
182    AVExtFloat sample_rate;
183    int aifc = 0;
184
185    /* First verify if format is ok */
186    if (!enc->codec_tag)
187        return -1;
188    if (enc->codec_tag != MKTAG('N','O','N','E'))
189        aifc = 1;
190
191    /* FORM AIFF header */
192    put_tag(pb, "FORM");
193    aiff->form = url_ftell(pb);
194    put_be32(pb, 0);                    /* file length */
195    put_tag(pb, aifc ? "AIFC" : "AIFF");
196
197    if (aifc) { // compressed audio
198        enc->bits_per_coded_sample = 16;
199        if (!enc->block_align) {
200            av_log(s, AV_LOG_ERROR, "block align not set\n");
201            return -1;
202        }
203        /* Version chunk */
204        put_tag(pb, "FVER");
205        put_be32(pb, 4);
206        put_be32(pb, 0xA2805140);
207    }
208
209    /* Common chunk */
210    put_tag(pb, "COMM");
211    put_be32(pb, aifc ? 24 : 18); /* size */
212    put_be16(pb, enc->channels);  /* Number of channels */
213
214    aiff->frames = url_ftell(pb);
215    put_be32(pb, 0);              /* Number of frames */
216
217    if (!enc->bits_per_coded_sample)
218        enc->bits_per_coded_sample = av_get_bits_per_sample(enc->codec_id);
219    if (!enc->bits_per_coded_sample) {
220        av_log(s, AV_LOG_ERROR, "could not compute bits per sample\n");
221        return -1;
222    }
223    if (!enc->block_align)
224        enc->block_align = (enc->bits_per_coded_sample * enc->channels) >> 3;
225
226    put_be16(pb, enc->bits_per_coded_sample); /* Sample size */
227
228    sample_rate = av_dbl2ext((double)enc->sample_rate);
229    put_buffer(pb, (uint8_t*)&sample_rate, sizeof(sample_rate));
230
231    if (aifc) {
232        put_le32(pb, enc->codec_tag);
233        put_be16(pb, 0);
234    }
235
236    /* Sound data chunk */
237    put_tag(pb, "SSND");
238    aiff->ssnd = url_ftell(pb);         /* Sound chunk size */
239    put_be32(pb, 0);                    /* Sound samples data size */
240    put_be32(pb, 0);                    /* Data offset */
241    put_be32(pb, 0);                    /* Block-size (block align) */
242
243    av_set_pts_info(s->streams[0], 64, 1, s->streams[0]->codec->sample_rate);
244
245    /* Data is starting here */
246    put_flush_packet(pb);
247
248    return 0;
249}
250
251static int aiff_write_packet(AVFormatContext *s, AVPacket *pkt)
252{
253    ByteIOContext *pb = s->pb;
254    put_buffer(pb, pkt->data, pkt->size);
255    return 0;
256}
257
258static int aiff_write_trailer(AVFormatContext *s)
259{
260    ByteIOContext *pb = s->pb;
261    AIFFOutputContext *aiff = s->priv_data;
262    AVCodecContext *enc = s->streams[0]->codec;
263
264    /* Chunks sizes must be even */
265    int64_t file_size, end_size;
266    end_size = file_size = url_ftell(pb);
267    if (file_size & 1) {
268        put_byte(pb, 0);
269        end_size++;
270    }
271
272    if (!url_is_streamed(s->pb)) {
273        /* File length */
274        url_fseek(pb, aiff->form, SEEK_SET);
275        put_be32(pb, file_size - aiff->form - 4);
276
277        /* Number of sample frames */
278        url_fseek(pb, aiff->frames, SEEK_SET);
279        put_be32(pb, (file_size-aiff->ssnd-12)/enc->block_align);
280
281        /* Sound Data chunk size */
282        url_fseek(pb, aiff->ssnd, SEEK_SET);
283        put_be32(pb, file_size - aiff->ssnd - 4);
284
285        /* return to the end */
286        url_fseek(pb, end_size, SEEK_SET);
287
288        put_flush_packet(pb);
289    }
290
291    return 0;
292}
293#endif /* CONFIG_AIFF_MUXER */
294
295static int aiff_probe(AVProbeData *p)
296{
297    /* check file header */
298    if (p->buf[0] == 'F' && p->buf[1] == 'O' &&
299        p->buf[2] == 'R' && p->buf[3] == 'M' &&
300        p->buf[8] == 'A' && p->buf[9] == 'I' &&
301        p->buf[10] == 'F' && (p->buf[11] == 'F' || p->buf[11] == 'C'))
302        return AVPROBE_SCORE_MAX;
303    else
304        return 0;
305}
306
307/* aiff input */
308static int aiff_read_header(AVFormatContext *s,
309                            AVFormatParameters *ap)
310{
311    int size, filesize;
312    int64_t offset = 0;
313    uint32_t tag;
314    unsigned version = AIFF_C_VERSION1;
315    ByteIOContext *pb = s->pb;
316    AVStream * st = s->streams[0];
317
318    /* check FORM header */
319    filesize = get_tag(pb, &tag);
320    if (filesize < 0 || tag != MKTAG('F', 'O', 'R', 'M'))
321        return AVERROR_INVALIDDATA;
322
323    /* AIFF data type */
324    tag = get_le32(pb);
325    if (tag == MKTAG('A', 'I', 'F', 'F'))       /* Got an AIFF file */
326        version = AIFF;
327    else if (tag != MKTAG('A', 'I', 'F', 'C'))  /* An AIFF-C file then */
328        return AVERROR_INVALIDDATA;
329
330    filesize -= 4;
331
332    st = av_new_stream(s, 0);
333    if (!st)
334        return AVERROR(ENOMEM);
335
336    while (filesize > 0) {
337        /* parse different chunks */
338        size = get_tag(pb, &tag);
339        if (size < 0)
340            return size;
341
342        filesize -= size + 8;
343
344        switch (tag) {
345        case MKTAG('C', 'O', 'M', 'M'):     /* Common chunk */
346            /* Then for the complete header info */
347            st->nb_frames = get_aiff_header(pb, st->codec, size, version);
348            if (st->nb_frames < 0)
349                return st->nb_frames;
350            if (offset > 0) // COMM is after SSND
351                goto got_sound;
352            break;
353        case MKTAG('F', 'V', 'E', 'R'):     /* Version chunk */
354            version = get_be32(pb);
355            break;
356        case MKTAG('N', 'A', 'M', 'E'):     /* Sample name chunk */
357            get_meta(s, "title"    , size);
358            break;
359        case MKTAG('A', 'U', 'T', 'H'):     /* Author chunk */
360            get_meta(s, "author"   , size);
361            break;
362        case MKTAG('(', 'c', ')', ' '):     /* Copyright chunk */
363            get_meta(s, "copyright", size);
364            break;
365        case MKTAG('A', 'N', 'N', 'O'):     /* Annotation chunk */
366            get_meta(s, "comment"  , size);
367            break;
368        case MKTAG('S', 'S', 'N', 'D'):     /* Sampled sound chunk */
369            offset = get_be32(pb);      /* Offset of sound data */
370            get_be32(pb);               /* BlockSize... don't care */
371            offset += url_ftell(pb);    /* Compute absolute data offset */
372            if (st->codec->block_align)    /* Assume COMM already parsed */
373                goto got_sound;
374            if (url_is_streamed(pb)) {
375                av_log(s, AV_LOG_ERROR, "file is not seekable\n");
376                return -1;
377            }
378            url_fskip(pb, size - 8);
379            break;
380        case MKTAG('w', 'a', 'v', 'e'):
381            if ((uint64_t)size > (1<<30))
382                return -1;
383            st->codec->extradata = av_mallocz(size + FF_INPUT_BUFFER_PADDING_SIZE);
384            if (!st->codec->extradata)
385                return AVERROR(ENOMEM);
386            st->codec->extradata_size = size;
387            get_buffer(pb, st->codec->extradata, size);
388            break;
389        default: /* Jump */
390            if (size & 1)   /* Always even aligned */
391                size++;
392            url_fskip (pb, size);
393        }
394    }
395
396    if (!st->codec->block_align) {
397        av_log(s, AV_LOG_ERROR, "could not find COMM tag\n");
398        return -1;
399    }
400
401got_sound:
402    /* Now positioned, get the sound data start and end */
403    if (st->nb_frames)
404        s->file_size = st->nb_frames * st->codec->block_align;
405
406    av_set_pts_info(st, 64, 1, st->codec->sample_rate);
407    st->start_time = 0;
408    st->duration = st->codec->frame_size ?
409        st->nb_frames * st->codec->frame_size : st->nb_frames;
410
411    /* Position the stream at the first block */
412    url_fseek(pb, offset, SEEK_SET);
413
414    return 0;
415}
416
417#define MAX_SIZE 4096
418
419static int aiff_read_packet(AVFormatContext *s,
420                            AVPacket *pkt)
421{
422    AVStream *st = s->streams[0];
423    int res;
424
425    /* End of stream may be reached */
426    if (url_feof(s->pb))
427        return AVERROR(EIO);
428
429    /* Now for that packet */
430    res = av_get_packet(s->pb, pkt, (MAX_SIZE / st->codec->block_align) * st->codec->block_align);
431    if (res < 0)
432        return res;
433
434    /* Only one stream in an AIFF file */
435    pkt->stream_index = 0;
436    return 0;
437}
438
439#if CONFIG_AIFF_DEMUXER
440AVInputFormat aiff_demuxer = {
441    "aiff",
442    NULL_IF_CONFIG_SMALL("Audio IFF"),
443    0,
444    aiff_probe,
445    aiff_read_header,
446    aiff_read_packet,
447    NULL,
448    pcm_read_seek,
449    .codec_tag= (const AVCodecTag* const []){codec_aiff_tags, 0},
450};
451#endif
452
453#if CONFIG_AIFF_MUXER
454AVOutputFormat aiff_muxer = {
455    "aiff",
456    NULL_IF_CONFIG_SMALL("Audio IFF"),
457    "audio/aiff",
458    "aif,aiff,afc,aifc",
459    sizeof(AIFFOutputContext),
460    CODEC_ID_PCM_S16BE,
461    CODEC_ID_NONE,
462    aiff_write_header,
463    aiff_write_packet,
464    aiff_write_trailer,
465    .codec_tag= (const AVCodecTag* const []){codec_aiff_tags, 0},
466};
467#endif
468