yading@11: /*
yading@11:  * Yamaha SMAF format
yading@11:  * Copyright (c) 2005 Vidar Madsen
yading@11:  *
yading@11:  * This file is part of FFmpeg.
yading@11:  *
yading@11:  * FFmpeg is free software; you can redistribute it and/or
yading@11:  * modify it under the terms of the GNU Lesser General Public
yading@11:  * License as published by the Free Software Foundation; either
yading@11:  * version 2.1 of the License, or (at your option) any later version.
yading@11:  *
yading@11:  * FFmpeg is distributed in the hope that it will be useful,
yading@11:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
yading@11:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
yading@11:  * Lesser General Public License for more details.
yading@11:  *
yading@11:  * You should have received a copy of the GNU Lesser General Public
yading@11:  * License along with FFmpeg; if not, write to the Free Software
yading@11:  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
yading@11:  */
yading@11: 
yading@11: #include "libavutil/channel_layout.h"
yading@11: #include "avformat.h"
yading@11: #include "internal.h"
yading@11: #include "avio_internal.h"
yading@11: #include "pcm.h"
yading@11: #include "rawenc.h"
yading@11: #include "riff.h"
yading@11: 
yading@11: typedef struct {
yading@11:     int64_t atrpos, atsqpos, awapos;
yading@11:     int64_t data_end;
yading@11:     int stereo;
yading@11: } MMFContext;
yading@11: 
yading@11: static const int mmf_rates[] = { 4000, 8000, 11025, 22050, 44100 };
yading@11: 
yading@11: static int mmf_rate(int code)
yading@11: {
yading@11:     if((code < 0) || (code > 4))
yading@11:         return -1;
yading@11:     return mmf_rates[code];
yading@11: }
yading@11: 
yading@11: #if CONFIG_MMF_MUXER
yading@11: static int mmf_rate_code(int rate)
yading@11: {
yading@11:     int i;
yading@11:     for(i = 0; i < 5; i++)
yading@11:         if(mmf_rates[i] == rate)
yading@11:             return i;
yading@11:     return -1;
yading@11: }
yading@11: 
yading@11: /* Copy of end_tag() from avienc.c, but for big-endian chunk size */
yading@11: static void end_tag_be(AVIOContext *pb, int64_t start)
yading@11: {
yading@11:     int64_t pos;
yading@11: 
yading@11:     pos = avio_tell(pb);
yading@11:     avio_seek(pb, start - 4, SEEK_SET);
yading@11:     avio_wb32(pb, (uint32_t)(pos - start));
yading@11:     avio_seek(pb, pos, SEEK_SET);
yading@11: }
yading@11: 
yading@11: static int mmf_write_header(AVFormatContext *s)
yading@11: {
yading@11:     MMFContext *mmf = s->priv_data;
yading@11:     AVIOContext *pb = s->pb;
yading@11:     int64_t pos;
yading@11:     int rate;
yading@11:     const char *version = s->streams[0]->codec->flags & CODEC_FLAG_BITEXACT ?
yading@11:                           "VN:Lavf," :
yading@11:                           "VN:"LIBAVFORMAT_IDENT",";
yading@11: 
yading@11:     rate = mmf_rate_code(s->streams[0]->codec->sample_rate);
yading@11:     if(rate < 0) {
yading@11:         av_log(s, AV_LOG_ERROR, "Unsupported sample rate %d, supported are 4000, 8000, 11025, 22050 and 44100\n", s->streams[0]->codec->sample_rate);
yading@11:         return AVERROR(EINVAL);
yading@11:     }
yading@11: 
yading@11:     mmf->stereo = s->streams[0]->codec->channels > 1;
yading@11:     if (mmf->stereo &&
yading@11:         s->streams[0]->codec->strict_std_compliance > FF_COMPLIANCE_EXPERIMENTAL) {
yading@11:         av_log(s, AV_LOG_ERROR, "Yamaha SMAF stereo is experimental, "
yading@11:                "add '-strict %d' if you want to use it.\n",
yading@11:                FF_COMPLIANCE_EXPERIMENTAL);
yading@11:         return AVERROR(EINVAL);
yading@11:     }
yading@11: 
yading@11:     ffio_wfourcc(pb, "MMMD");
yading@11:     avio_wb32(pb, 0);
yading@11:     pos = ff_start_tag(pb, "CNTI");
yading@11:     avio_w8(pb, 0); /* class */
yading@11:     avio_w8(pb, 1); /* type */
yading@11:     avio_w8(pb, 1); /* code type */
yading@11:     avio_w8(pb, 0); /* status */
yading@11:     avio_w8(pb, 0); /* counts */
yading@11:     end_tag_be(pb, pos);
yading@11:     pos = ff_start_tag(pb, "OPDA");
yading@11:     avio_write(pb, version, strlen(version)); /* metadata ("ST:songtitle,VN:version,...") */
yading@11:     end_tag_be(pb, pos);
yading@11: 
yading@11:     avio_write(pb, "ATR\x00", 4);
yading@11:     avio_wb32(pb, 0);
yading@11:     mmf->atrpos = avio_tell(pb);
yading@11:     avio_w8(pb, 0); /* format type */
yading@11:     avio_w8(pb, 0); /* sequence type */
yading@11:     avio_w8(pb, (mmf->stereo << 7) | (1 << 4) | rate); /* (channel << 7) | (format << 4) | rate */
yading@11:     avio_w8(pb, 0); /* wave base bit */
yading@11:     avio_w8(pb, 2); /* time base d */
yading@11:     avio_w8(pb, 2); /* time base g */
yading@11: 
yading@11:     ffio_wfourcc(pb, "Atsq");
yading@11:     avio_wb32(pb, 16);
yading@11:     mmf->atsqpos = avio_tell(pb);
yading@11:     /* Will be filled on close */
yading@11:     avio_write(pb, "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 16);
yading@11: 
yading@11:     mmf->awapos = ff_start_tag(pb, "Awa\x01");
yading@11: 
yading@11:     avpriv_set_pts_info(s->streams[0], 64, 1, s->streams[0]->codec->sample_rate);
yading@11: 
yading@11:     avio_flush(pb);
yading@11: 
yading@11:     return 0;
yading@11: }
yading@11: 
yading@11: /* Write a variable-length symbol */
yading@11: static void put_varlength(AVIOContext *pb, int val)
yading@11: {
yading@11:     if(val < 128)
yading@11:         avio_w8(pb, val);
yading@11:     else {
yading@11:         val -= 128;
yading@11:         avio_w8(pb, 0x80 | val >> 7);
yading@11:         avio_w8(pb, 0x7f & val);
yading@11:     }
yading@11: }
yading@11: 
yading@11: static int mmf_write_trailer(AVFormatContext *s)
yading@11: {
yading@11:     AVIOContext *pb = s->pb;
yading@11:     MMFContext *mmf = s->priv_data;
yading@11:     int64_t pos, size;
yading@11:     int gatetime;
yading@11: 
yading@11:     if (s->pb->seekable) {
yading@11:         /* Fill in length fields */
yading@11:         end_tag_be(pb, mmf->awapos);
yading@11:         end_tag_be(pb, mmf->atrpos);
yading@11:         end_tag_be(pb, 8);
yading@11: 
yading@11:         pos = avio_tell(pb);
yading@11:         size = pos - mmf->awapos;
yading@11: 
yading@11:         /* Fill Atsq chunk */
yading@11:         avio_seek(pb, mmf->atsqpos, SEEK_SET);
yading@11: 
yading@11:         /* "play wav" */
yading@11:         avio_w8(pb, 0); /* start time */
yading@11:         avio_w8(pb, (mmf->stereo << 6) | 1); /* (channel << 6) | wavenum */
yading@11:         gatetime = size * 500 / s->streams[0]->codec->sample_rate;
yading@11:         put_varlength(pb, gatetime); /* duration */
yading@11: 
yading@11:         /* "nop" */
yading@11:         put_varlength(pb, gatetime); /* start time */
yading@11:         avio_write(pb, "\xff\x00", 2); /* nop */
yading@11: 
yading@11:         /* "end of sequence" */
yading@11:         avio_write(pb, "\x00\x00\x00\x00", 4);
yading@11: 
yading@11:         avio_seek(pb, pos, SEEK_SET);
yading@11: 
yading@11:         avio_flush(pb);
yading@11:     }
yading@11:     return 0;
yading@11: }
yading@11: #endif /* CONFIG_MMF_MUXER */
yading@11: 
yading@11: static int mmf_probe(AVProbeData *p)
yading@11: {
yading@11:     /* check file header */
yading@11:     if (p->buf[0] == 'M' && p->buf[1] == 'M' &&
yading@11:         p->buf[2] == 'M' && p->buf[3] == 'D' &&
yading@11:         p->buf[8] == 'C' && p->buf[9] == 'N' &&
yading@11:         p->buf[10] == 'T' && p->buf[11] == 'I')
yading@11:         return AVPROBE_SCORE_MAX;
yading@11:     else
yading@11:         return 0;
yading@11: }
yading@11: 
yading@11: /* mmf input */
yading@11: static int mmf_read_header(AVFormatContext *s)
yading@11: {
yading@11:     MMFContext *mmf = s->priv_data;
yading@11:     unsigned int tag;
yading@11:     AVIOContext *pb = s->pb;
yading@11:     AVStream *st;
yading@11:     int64_t size;
yading@11:     int rate, params;
yading@11: 
yading@11:     tag = avio_rl32(pb);
yading@11:     if (tag != MKTAG('M', 'M', 'M', 'D'))
yading@11:         return AVERROR_INVALIDDATA;
yading@11:     avio_skip(pb, 4); /* file_size */
yading@11: 
yading@11:     /* Skip some unused chunks that may or may not be present */
yading@11:     for(;; avio_skip(pb, size)) {
yading@11:         tag = avio_rl32(pb);
yading@11:         size = avio_rb32(pb);
yading@11:         if(tag == MKTAG('C','N','T','I')) continue;
yading@11:         if(tag == MKTAG('O','P','D','A')) continue;
yading@11:         break;
yading@11:     }
yading@11: 
yading@11:     /* Tag = "ATRx", where "x" = track number */
yading@11:     if ((tag & 0xffffff) == MKTAG('M', 'T', 'R', 0)) {
yading@11:         av_log(s, AV_LOG_ERROR, "MIDI like format found, unsupported\n");
yading@11:         return AVERROR_PATCHWELCOME;
yading@11:     }
yading@11:     if ((tag & 0xffffff) != MKTAG('A', 'T', 'R', 0)) {
yading@11:         av_log(s, AV_LOG_ERROR, "Unsupported SMAF chunk %08x\n", tag);
yading@11:         return AVERROR_PATCHWELCOME;
yading@11:     }
yading@11: 
yading@11:     avio_r8(pb); /* format type */
yading@11:     avio_r8(pb); /* sequence type */
yading@11:     params = avio_r8(pb); /* (channel << 7) | (format << 4) | rate */
yading@11:     rate = mmf_rate(params & 0x0f);
yading@11:     if(rate  < 0) {
yading@11:         av_log(s, AV_LOG_ERROR, "Invalid sample rate\n");
yading@11:         return AVERROR_INVALIDDATA;
yading@11:     }
yading@11:     avio_r8(pb); /* wave base bit */
yading@11:     avio_r8(pb); /* time base d */
yading@11:     avio_r8(pb); /* time base g */
yading@11: 
yading@11:     /* Skip some unused chunks that may or may not be present */
yading@11:     for(;; avio_skip(pb, size)) {
yading@11:         tag = avio_rl32(pb);
yading@11:         size = avio_rb32(pb);
yading@11:         if(tag == MKTAG('A','t','s','q')) continue;
yading@11:         if(tag == MKTAG('A','s','p','I')) continue;
yading@11:         break;
yading@11:     }
yading@11: 
yading@11:     /* Make sure it's followed by an Awa chunk, aka wave data */
yading@11:     if ((tag & 0xffffff) != MKTAG('A', 'w', 'a', 0)) {
yading@11:         av_log(s, AV_LOG_ERROR, "Unexpected SMAF chunk %08x\n", tag);
yading@11:         return AVERROR_INVALIDDATA;
yading@11:     }
yading@11:     mmf->data_end = avio_tell(pb) + size;
yading@11: 
yading@11:     st = avformat_new_stream(s, NULL);
yading@11:     if (!st)
yading@11:         return AVERROR(ENOMEM);
yading@11: 
yading@11:     st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
yading@11:     st->codec->codec_id = AV_CODEC_ID_ADPCM_YAMAHA;
yading@11:     st->codec->sample_rate = rate;
yading@11:     st->codec->channels = (params >> 7) + 1;
yading@11:     st->codec->channel_layout = params >> 7 ? AV_CH_LAYOUT_STEREO : AV_CH_LAYOUT_MONO;
yading@11:     st->codec->bits_per_coded_sample = 4;
yading@11:     st->codec->bit_rate = st->codec->sample_rate * st->codec->bits_per_coded_sample;
yading@11: 
yading@11:     avpriv_set_pts_info(st, 64, 1, st->codec->sample_rate);
yading@11: 
yading@11:     return 0;
yading@11: }
yading@11: 
yading@11: #define MAX_SIZE 4096
yading@11: 
yading@11: static int mmf_read_packet(AVFormatContext *s,
yading@11:                            AVPacket *pkt)
yading@11: {
yading@11:     MMFContext *mmf = s->priv_data;
yading@11:     int64_t left, size;
yading@11:     int ret;
yading@11: 
yading@11:     left = mmf->data_end - avio_tell(s->pb);
yading@11:     size = FFMIN(left, MAX_SIZE);
yading@11:     if (url_feof(s->pb) || size <= 0)
yading@11:         return AVERROR_EOF;
yading@11: 
yading@11:     ret = av_get_packet(s->pb, pkt, size);
yading@11:     if (ret < 0)
yading@11:         return ret;
yading@11: 
yading@11:     pkt->stream_index = 0;
yading@11: 
yading@11:     return ret;
yading@11: }
yading@11: 
yading@11: #if CONFIG_MMF_DEMUXER
yading@11: AVInputFormat ff_mmf_demuxer = {
yading@11:     .name           = "mmf",
yading@11:     .long_name      = NULL_IF_CONFIG_SMALL("Yamaha SMAF"),
yading@11:     .priv_data_size = sizeof(MMFContext),
yading@11:     .read_probe     = mmf_probe,
yading@11:     .read_header    = mmf_read_header,
yading@11:     .read_packet    = mmf_read_packet,
yading@11:     .flags          = AVFMT_GENERIC_INDEX,
yading@11: };
yading@11: #endif
yading@11: #if CONFIG_MMF_MUXER
yading@11: AVOutputFormat ff_mmf_muxer = {
yading@11:     .name              = "mmf",
yading@11:     .long_name         = NULL_IF_CONFIG_SMALL("Yamaha SMAF"),
yading@11:     .mime_type         = "application/vnd.smaf",
yading@11:     .extensions        = "mmf",
yading@11:     .priv_data_size    = sizeof(MMFContext),
yading@11:     .audio_codec       = AV_CODEC_ID_ADPCM_YAMAHA,
yading@11:     .video_codec       = AV_CODEC_ID_NONE,
yading@11:     .write_header      = mmf_write_header,
yading@11:     .write_packet      = ff_raw_write_packet,
yading@11:     .write_trailer     = mmf_write_trailer,
yading@11: };
yading@11: #endif