/*
  * SoX native format muxer
  * Copyright (c) 2009 Daniel Verkamp <daniel@drv.nu>
  *
  * Based on libSoX sox-fmt.c
  * Copyright (c) 2008 robs@users.sourceforge.net
  *
  * This file is part of FFmpeg.
  *
  * FFmpeg is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * FFmpeg is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with FFmpeg; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 /**
  * SoX native format muxer

  * @file

  * @author Daniel Verkamp
  * @sa http://wiki.multimedia.cx/index.php?title=SoX_native_intermediate_format
  */
 
 #include "libavutil/intreadwrite.h"

 #include "libavutil/dict.h"

 #include "avformat.h"

 #include "avio_internal.h"

 #include "sox.h"
 
 typedef struct {
     int64_t header_size;
 } SoXContext;
 
 static int sox_write_header(AVFormatContext *s)
 {
     SoXContext *sox = s->priv_data;

     AVIOContext *pb = s->pb;

     AVCodecContext *enc = s->streams[0]->codec;

     AVDictionaryEntry *comment;

     size_t comment_len = 0, comment_size;
 

     comment = av_dict_get(s->metadata, "comment", NULL, 0);

     if (comment)
         comment_len = strlen(comment->value);
     comment_size = (comment_len + 7) & ~7;
 
     sox->header_size = SOX_FIXED_HDR + comment_size;
 
     if (enc->codec_id == CODEC_ID_PCM_S32LE) {

         ffio_wfourcc(pb, ".SoX");

         avio_wl32(pb, sox->header_size);
         avio_wl64(pb, 0); /* number of samples */
         avio_wl64(pb, av_dbl2int(enc->sample_rate));
         avio_wl32(pb, enc->channels);
         avio_wl32(pb, comment_size);

     } else if (enc->codec_id == CODEC_ID_PCM_S32BE) {

         ffio_wfourcc(pb, "XoS.");

         avio_wb32(pb, sox->header_size);
         avio_wb64(pb, 0); /* number of samples */
         avio_wb64(pb, av_dbl2int(enc->sample_rate));
         avio_wb32(pb, enc->channels);
         avio_wb32(pb, comment_size);

     } else {
         av_log(s, AV_LOG_ERROR, "invalid codec; use pcm_s32le or pcm_s32be\n");
         return -1;
     }
 
     if (comment_len)

         avio_write(pb, comment->value, comment_len);

 
     for ( ; comment_size > comment_len; comment_len++)

         avio_w8(pb, 0);

     avio_flush(pb);

 
     return 0;
 }
 
 static int sox_write_packet(AVFormatContext *s, AVPacket *pkt)
 {

     AVIOContext *pb = s->pb;

     avio_write(pb, pkt->data, pkt->size);

     return 0;
 }
 
 static int sox_write_trailer(AVFormatContext *s)
 {
     SoXContext *sox = s->priv_data;

     AVIOContext *pb = s->pb;

     AVCodecContext *enc = s->streams[0]->codec;
 

     if (s->pb->seekable) {

         /* update number of samples */

         int64_t file_size = avio_tell(pb);

         int64_t num_samples = (file_size - sox->header_size - 4LL) >> 2LL;

         avio_seek(pb, 8, SEEK_SET);

         if (enc->codec_id == CODEC_ID_PCM_S32LE) {

             avio_wl64(pb, num_samples);

         } else

             avio_wb64(pb, num_samples);

         avio_seek(pb, file_size, SEEK_SET);

         avio_flush(pb);

     }
 
     return 0;
 }
 

 AVOutputFormat ff_sox_muxer = {

     "sox",
     NULL_IF_CONFIG_SMALL("SoX native format"),
     NULL,
     "sox",
     sizeof(SoXContext),
     CODEC_ID_PCM_S32LE,
     CODEC_ID_NONE,
     sox_write_header,
     sox_write_packet,
     sox_write_trailer,
 };