text: /*
   * muxing functions for use within FFmpeg
   * Copyright (c) 2000, 2001, 2002 Fabrice Bellard
   *
   * 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
   */
  
  #include "avformat.h"
  #include "internal.h"
  #include "libavcodec/internal.h"
  #include "libavutil/opt.h"
  #include "libavutil/dict.h"
  #include "libavutil/pixdesc.h"
  #include "libavutil/timestamp.h"
  #include "libavutil/avassert.h"
  #include "libavutil/avstring.h"
  #include "libavutil/internal.h"
  #include "libavutil/mathematics.h"
  
  /**
   * @file
   * muxing functions for use within libavformat
   */
  
  /* fraction handling */
  
  /**
   * f = val + (num / den) + 0.5.
   *
   * 'num' is normalized so that it is such as 0 <= num < den.
   *
   * @param f fractional number
   * @param val integer value
   * @param num must be >= 0
   * @param den must be >= 1
   */
  static void frac_init(FFFrac *f, int64_t val, int64_t num, int64_t den)
  {
      num += (den >> 1);
      if (num >= den) {
          val += num / den;
          num  = num % den;
      }
      f->val = val;
      f->num = num;
      f->den = den;
  }
  
  /**
   * Fractional addition to f: f = f + (incr / f->den).
   *
   * @param f fractional number
   * @param incr increment, can be positive or negative
   */
  static void frac_add(FFFrac *f, int64_t incr)
  {
      int64_t num, den;
  
      num = f->num + incr;
      den = f->den;
      if (num < 0) {
          f->val += num / den;
          num     = num % den;
          if (num < 0) {
              num += den;
              f->val--;
          }
      } else if (num >= den) {
          f->val += num / den;
          num     = num % den;
      }
      f->num = num;
  }
  
  AVRational ff_choose_timebase(AVFormatContext *s, AVStream *st, int min_precision)
  {
      AVRational q;
      int j;
  
      q = st->time_base;
  
      for (j=2; j<14; j+= 1+(j>2))
          while (q.den / q.num < min_precision && q.num % j == 0)
              q.num /= j;
      while (q.den / q.num < min_precision && q.den < (1<<24))
          q.den <<= 1;
  
      return q;
  }
  
  enum AVChromaLocation ff_choose_chroma_location(AVFormatContext *s, AVStream *st)
  {
      AVCodecParameters *par = st->codecpar;
      const AVPixFmtDescriptor *pix_desc = av_pix_fmt_desc_get(par->format);
  
      if (par->chroma_location != AVCHROMA_LOC_UNSPECIFIED)
          return par->chroma_location;
  
      if (pix_desc) {
          if (pix_desc->log2_chroma_h == 0) {
              return AVCHROMA_LOC_TOPLEFT;
          } else if (pix_desc->log2_chroma_w == 1 && pix_desc->log2_chroma_h == 1) {
              if (par->field_order == AV_FIELD_UNKNOWN || par->field_order == AV_FIELD_PROGRESSIVE) {
                  switch (par->codec_id) {
                  case AV_CODEC_ID_MJPEG:
                  case AV_CODEC_ID_MPEG1VIDEO: return AVCHROMA_LOC_CENTER;
                  }
              }
              if (par->field_order == AV_FIELD_UNKNOWN || par->field_order != AV_FIELD_PROGRESSIVE) {
                  switch (par->codec_id) {
                  case AV_CODEC_ID_MPEG2VIDEO: return AVCHROMA_LOC_LEFT;
                  }
              }
          }
      }
  
      return AVCHROMA_LOC_UNSPECIFIED;
  
  }
  
  int avformat_alloc_output_context2(AVFormatContext **avctx, ff_const59 AVOutputFormat *oformat,
                                     const char *format, const char *filename)
  {
      AVFormatContext *s = avformat_alloc_context();
      int ret = 0;
  
      *avctx = NULL;
      if (!s)
          goto nomem;
  
      if (!oformat) {
          if (format) {
              oformat = av_guess_format(format, NULL, NULL);
              if (!oformat) {
                  av_log(s, AV_LOG_ERROR, "Requested output format '%s' is not a suitable output format\n", format);
                  ret = AVERROR(EINVAL);
                  goto error;
              }
          } else {
              oformat = av_guess_format(NULL, filename, NULL);
              if (!oformat) {
                  ret = AVERROR(EINVAL);
                  av_log(s, AV_LOG_ERROR, "Unable to find a suitable output format for '%s'\n",
                         filename);
                  goto error;
              }
          }
      }
  
      s->oformat = oformat;
      if (s->oformat->priv_data_size > 0) {
          s->priv_data = av_mallocz(s->oformat->priv_data_size);
          if (!s->priv_data)
              goto nomem;
          if (s->oformat->priv_class) {
              *(const AVClass**)s->priv_data= s->oformat->priv_class;
              av_opt_set_defaults(s->priv_data);
          }
      } else
          s->priv_data = NULL;
  
      if (filename) {
  #if FF_API_FORMAT_FILENAME
  FF_DISABLE_DEPRECATION_WARNINGS
          av_strlcpy(s->filename, filename, sizeof(s->filename));
  FF_ENABLE_DEPRECATION_WARNINGS
  #endif
          if (!(s->url = av_strdup(filename)))
              goto nomem;
  
      }
      *avctx = s;
      return 0;
  nomem:
      av_log(s, AV_LOG_ERROR, "Out of memory\n");
      ret = AVERROR(ENOMEM);
  error:
      avformat_free_context(s);
      return ret;
  }
  
  static int validate_codec_tag(AVFormatContext *s, AVStream *st)
  {
      const AVCodecTag *avctag;
      int n;
      enum AVCodecID id = AV_CODEC_ID_NONE;
      int64_t tag  = -1;
  
      /**
       * Check that tag + id is in the table
       * If neither is in the table -> OK
       * If tag is in the table with another id -> FAIL
       * If id is in the table with another tag -> FAIL unless strict < normal
       */
      for (n = 0; s->oformat->codec_tag[n]; n++) {
          avctag = s->oformat->codec_tag[n];
          while (avctag->id != AV_CODEC_ID_NONE) {
              if (avpriv_toupper4(avctag->tag) == avpriv_toupper4(st->codecpar->codec_tag)) {
                  id = avctag->id;
                  if (id == st->codecpar->codec_id)
                      return 1;
              }
              if (avctag->id == st->codecpar->codec_id)
                  tag = avctag->tag;
              avctag++;
          }
      }
      if (id != AV_CODEC_ID_NONE)
          return 0;
      if (tag >= 0 && (s->strict_std_compliance >= FF_COMPLIANCE_NORMAL))
          return 0;
      return 1;
  }
  
  
  static int init_muxer(AVFormatContext *s, AVDictionary **options)
  {
      int ret = 0, i;
      AVStream *st;
      AVDictionary *tmp = NULL;
      AVCodecParameters *par = NULL;
      const AVOutputFormat *of = s->oformat;
      const AVCodecDescriptor *desc;
      AVDictionaryEntry *e;
  
      if (options)
          av_dict_copy(&tmp, *options, 0);
  
      if ((ret = av_opt_set_dict(s, &tmp)) < 0)
          goto fail;
      if (s->priv_data && s->oformat->priv_class && *(const AVClass**)s->priv_data==s->oformat->priv_class &&
          (ret = av_opt_set_dict2(s->priv_data, &tmp, AV_OPT_SEARCH_CHILDREN)) < 0)
          goto fail;
  
  #if FF_API_FORMAT_FILENAME
  FF_DISABLE_DEPRECATION_WARNINGS
      if (!s->url && !(s->url = av_strdup(s->filename))) {
  FF_ENABLE_DEPRECATION_WARNINGS
  #else
      if (!s->url && !(s->url = av_strdup(""))) {
  #endif
          ret = AVERROR(ENOMEM);
          goto fail;
      }
  
  #if FF_API_LAVF_AVCTX
  FF_DISABLE_DEPRECATION_WARNINGS
      if (s->nb_streams && s->streams[0]->codec->flags & AV_CODEC_FLAG_BITEXACT) {
          if (!(s->flags & AVFMT_FLAG_BITEXACT)) {
              av_log(s, AV_LOG_WARNING,
                     "The AVFormatContext is not in set to bitexact mode, only "
                     "the AVCodecContext. If this is not intended, set "
                     "AVFormatContext.flags |= AVFMT_FLAG_BITEXACT.\n");
          }
      }
  FF_ENABLE_DEPRECATION_WARNINGS
  #endif
  
      // some sanity checks
      if (s->nb_streams == 0 && !(of->flags & AVFMT_NOSTREAMS)) {
          av_log(s, AV_LOG_ERROR, "No streams to mux were specified\n");
          ret = AVERROR(EINVAL);
          goto fail;
      }
  
      for (i = 0; i < s->nb_streams; i++) {
          st  = s->streams[i];
          par = st->codecpar;
  
  #if FF_API_LAVF_AVCTX
  FF_DISABLE_DEPRECATION_WARNINGS
          if (st->codecpar->codec_type == AVMEDIA_TYPE_UNKNOWN &&
              st->codec->codec_type    != AVMEDIA_TYPE_UNKNOWN) {
              av_log(s, AV_LOG_WARNING, "Using AVStream.codec to pass codec "
                     "parameters to muxers is deprecated, use AVStream.codecpar "
                     "instead.\n");
              ret = avcodec_parameters_from_context(st->codecpar, st->codec);
              if (ret < 0)
                  goto fail;
          }
  FF_ENABLE_DEPRECATION_WARNINGS
  #endif
  
          if (!st->time_base.num) {
              /* fall back on the default timebase values */
              if (par->codec_type == AVMEDIA_TYPE_AUDIO && par->sample_rate)
                  avpriv_set_pts_info(st, 64, 1, par->sample_rate);
              else
                  avpriv_set_pts_info(st, 33, 1, 90000);
          }
  
          switch (par->codec_type) {
          case AVMEDIA_TYPE_AUDIO:
              if (par->sample_rate <= 0) {
                  av_log(s, AV_LOG_ERROR, "sample rate not set\n");
                  ret = AVERROR(EINVAL);
                  goto fail;
              }
              if (!par->block_align)
                  par->block_align = par->channels *
                                     av_get_bits_per_sample(par->codec_id) >> 3;
              break;
          case AVMEDIA_TYPE_VIDEO:
              if ((par->width <= 0 || par->height <= 0) &&
                  !(of->flags & AVFMT_NODIMENSIONS)) {
                  av_log(s, AV_LOG_ERROR, "dimensions not set\n");
                  ret = AVERROR(EINVAL);
                  goto fail;
              }
              if (av_cmp_q(st->sample_aspect_ratio, par->sample_aspect_ratio)
                  && fabs(av_q2d(st->sample_aspect_ratio) - av_q2d(par->sample_aspect_ratio)) > 0.004*av_q2d(st->sample_aspect_ratio)
              ) {
                  if (st->sample_aspect_ratio.num != 0 &&
                      st->sample_aspect_ratio.den != 0 &&
                      par->sample_aspect_ratio.num != 0 &&
                      par->sample_aspect_ratio.den != 0) {
                      av_log(s, AV_LOG_ERROR, "Aspect ratio mismatch between muxer "
                             "(%d/%d) and encoder layer (%d/%d)\n",
                             st->sample_aspect_ratio.num, st->sample_aspect_ratio.den,
                             par->sample_aspect_ratio.num,
                             par->sample_aspect_ratio.den);
                      ret = AVERROR(EINVAL);
                      goto fail;
                  }
              }
              break;
          }
  
          desc = avcodec_descriptor_get(par->codec_id);
          if (desc && desc->props & AV_CODEC_PROP_REORDER)
              st->internal->reorder = 1;
  
          st->internal->is_intra_only = ff_is_intra_only(par->codec_id);
  
          if (of->codec_tag) {
              if (   par->codec_tag
                  && par->codec_id == AV_CODEC_ID_RAWVIDEO
                  && (   av_codec_get_tag(of->codec_tag, par->codec_id) == 0
                      || av_codec_get_tag(of->codec_tag, par->codec_id) == MKTAG('r', 'a', 'w', ' '))
                  && !validate_codec_tag(s, st)) {
                  // the current rawvideo encoding system ends up setting
                  // the wrong codec_tag for avi/mov, we override it here
                  par->codec_tag = 0;
              }
              if (par->codec_tag) {
                  if (!validate_codec_tag(s, st)) {
                      const uint32_t otag = av_codec_get_tag(s->oformat->codec_tag, par->codec_id);
                      av_log(s, AV_LOG_ERROR,
                             "Tag %s incompatible with output codec id '%d' (%s)\n",
                             av_fourcc2str(par->codec_tag), par->codec_id, av_fourcc2str(otag));
                      ret = AVERROR_INVALIDDATA;
                      goto fail;
                  }
              } else
                  par->codec_tag = av_codec_get_tag(of->codec_tag, par->codec_id);
          }
  
          if (par->codec_type != AVMEDIA_TYPE_ATTACHMENT)
              s->internal->nb_interleaved_streams++;
      }
  
      if (!s->priv_data && of->priv_data_size > 0) {
          s->priv_data = av_mallocz(of->priv_data_size);
          if (!s->priv_data) {
              ret = AVERROR(ENOMEM);
              goto fail;
          }
          if (of->priv_class) {
              *(const AVClass **)s->priv_data = of->priv_class;
              av_opt_set_defaults(s->priv_data);
              if ((ret = av_opt_set_dict2(s->priv_data, &tmp, AV_OPT_SEARCH_CHILDREN)) < 0)
                  goto fail;
          }
      }
  
      /* set muxer identification string */
      if (!(s->flags & AVFMT_FLAG_BITEXACT)) {
          av_dict_set(&s->metadata, "encoder", LIBAVFORMAT_IDENT, 0);
      } else {
          av_dict_set(&s->metadata, "encoder", NULL, 0);
      }
  
      for (e = NULL; e = av_dict_get(s->metadata, "encoder-", e, AV_DICT_IGNORE_SUFFIX); ) {
          av_dict_set(&s->metadata, e->key, NULL, 0);
      }
  
      if (options) {
           av_dict_free(options);
           *options = tmp;
      }
  
      if (s->oformat->init) {
          if ((ret = s->oformat->init(s)) < 0) {
              if (s->oformat->deinit)
                  s->oformat->deinit(s);
              return ret;
          }
          return ret == 0;
      }
  
      return 0;
  
  fail:
      av_dict_free(&tmp);
      return ret;
  }
  
  static int init_pts(AVFormatContext *s)
  {
      int i;
      AVStream *st;
  
      /* init PTS generation */
      for (i = 0; i < s->nb_streams; i++) {
          int64_t den = AV_NOPTS_VALUE;
          st = s->streams[i];
  
          switch (st->codecpar->codec_type) {
          case AVMEDIA_TYPE_AUDIO:
              den = (int64_t)st->time_base.num * st->codecpar->sample_rate;
              break;
          case AVMEDIA_TYPE_VIDEO:
              den = (int64_t)st->time_base.num * st->time_base.den;
              break;
          default:
              break;
          }
  
          if (!st->internal->priv_pts)
              st->internal->priv_pts = av_mallocz(sizeof(*st->internal->priv_pts));
          if (!st->internal->priv_pts)
              return AVERROR(ENOMEM);
  
          if (den != AV_NOPTS_VALUE) {
              if (den <= 0)
                  return AVERROR_INVALIDDATA;
  
              frac_init(st->internal->priv_pts, 0, 0, den);
          }
      }
  
      if (s->avoid_negative_ts < 0) {
          av_assert2(s->avoid_negative_ts == AVFMT_AVOID_NEG_TS_AUTO);
          if (s->oformat->flags & (AVFMT_TS_NEGATIVE | AVFMT_NOTIMESTAMPS)) {
              s->avoid_negative_ts = 0;
          } else
              s->avoid_negative_ts = AVFMT_AVOID_NEG_TS_MAKE_NON_NEGATIVE;
      }
  
      return 0;
  }
  
  static void flush_if_needed(AVFormatContext *s)
  {
      if (s->pb && s->pb->error >= 0) {
          if (s->flush_packets == 1 || s->flags & AVFMT_FLAG_FLUSH_PACKETS)
              avio_flush(s->pb);
          else if (s->flush_packets && !(s->oformat->flags & AVFMT_NOFILE))
              avio_write_marker(s->pb, AV_NOPTS_VALUE, AVIO_DATA_MARKER_FLUSH_POINT);
      }
  }
  
  static void deinit_muxer(AVFormatContext *s)
  {
      if (s->oformat && s->oformat->deinit && s->internal->initialized)
          s->oformat->deinit(s);
      s->internal->initialized =
      s->internal->streams_initialized = 0;
  }
  
  int avformat_init_output(AVFormatContext *s, AVDictionary **options)
  {
      int ret = 0;
  
      if ((ret = init_muxer(s, options)) < 0)
          return ret;
  
      s->internal->initialized = 1;
      s->internal->streams_initialized = ret;
  
      if (s->oformat->init && ret) {
          if ((ret = init_pts(s)) < 0)
              return ret;
  
          return AVSTREAM_INIT_IN_INIT_OUTPUT;
      }
  
      return AVSTREAM_INIT_IN_WRITE_HEADER;
  }
  
  int avformat_write_header(AVFormatContext *s, AVDictionary **options)
  {
      int ret = 0;
      int already_initialized = s->internal->initialized;
      int streams_already_initialized = s->internal->streams_initialized;
  
      if (!already_initialized)
          if ((ret = avformat_init_output(s, options)) < 0)
              return ret;
  
      if (!(s->oformat->flags & AVFMT_NOFILE) && s->pb)
          avio_write_marker(s->pb, AV_NOPTS_VALUE, AVIO_DATA_MARKER_HEADER);
      if (s->oformat->write_header) {
          ret = s->oformat->write_header(s);
          if (ret >= 0 && s->pb && s->pb->error < 0)
              ret = s->pb->error;
          if (ret < 0)
              goto fail;
          flush_if_needed(s);
      }
      if (!(s->oformat->flags & AVFMT_NOFILE) && s->pb)
          avio_write_marker(s->pb, AV_NOPTS_VALUE, AVIO_DATA_MARKER_UNKNOWN);
  
      if (!s->internal->streams_initialized) {
          if ((ret = init_pts(s)) < 0)
              goto fail;
      }
  
      return streams_already_initialized;
  
  fail:
      deinit_muxer(s);
      return ret;
  }
  
  #define AV_PKT_FLAG_UNCODED_FRAME 0x2000
  
  
  #if FF_API_COMPUTE_PKT_FIELDS2 && FF_API_LAVF_AVCTX
  FF_DISABLE_DEPRECATION_WARNINGS
  //FIXME merge with compute_pkt_fields
  static int compute_muxer_pkt_fields(AVFormatContext *s, AVStream *st, AVPacket *pkt)
  {
      int delay = FFMAX(st->codecpar->video_delay, st->internal->avctx->max_b_frames > 0);
      int num, den, i;
      int frame_size;
  
      if (!s->internal->missing_ts_warning &&
          !(s->oformat->flags & AVFMT_NOTIMESTAMPS) &&
          (!(st->disposition & AV_DISPOSITION_ATTACHED_PIC) || (st->disposition & AV_DISPOSITION_TIMED_THUMBNAILS)) &&
          (pkt->pts == AV_NOPTS_VALUE || pkt->dts == AV_NOPTS_VALUE)) {
          av_log(s, AV_LOG_WARNING,
                 "Timestamps are unset in a packet for stream %d. "
                 "This is deprecated and will stop working in the future. "
                 "Fix your code to set the timestamps properly\n", st->index);
          s->internal->missing_ts_warning = 1;
      }
  
      if (s->debug & FF_FDEBUG_TS)
          av_log(s, AV_LOG_DEBUG, "compute_muxer_pkt_fields: pts:%s dts:%s cur_dts:%s b:%d size:%d st:%d\n",
              av_ts2str(pkt->pts), av_ts2str(pkt->dts), av_ts2str(st->cur_dts), delay, pkt->size, pkt->stream_index);
  
      if (pkt->duration < 0 && st->codecpar->codec_type != AVMEDIA_TYPE_SUBTITLE) {
          av_log(s, AV_LOG_WARNING, "Packet with invalid duration %"PRId64" in stream %d\n",
                 pkt->duration, pkt->stream_index);
          pkt->duration = 0;
      }
  
      /* duration field */
      if (pkt->duration == 0) {
          ff_compute_frame_duration(s, &num, &den, st, NULL, pkt);
          if (den && num) {
              pkt->duration = av_rescale(1, num * (int64_t)st->time_base.den * st->codec->ticks_per_frame, den * (int64_t)st->time_base.num);
          }
      }
  
      if (pkt->pts == AV_NOPTS_VALUE && pkt->dts != AV_NOPTS_VALUE && delay == 0)
          pkt->pts = pkt->dts;
  
      //XXX/FIXME this is a temporary hack until all encoders output pts
      if ((pkt->pts == 0 || pkt->pts == AV_NOPTS_VALUE) && pkt->dts == AV_NOPTS_VALUE && !delay) {
          static int warned;
          if (!warned) {
              av_log(s, AV_LOG_WARNING, "Encoder did not produce proper pts, making some up.\n");
              warned = 1;
          }
          pkt->dts =
  //        pkt->pts= st->cur_dts;
              pkt->pts = st->internal->priv_pts->val;
      }
  
      //calculate dts from pts
      if (pkt->pts != AV_NOPTS_VALUE && pkt->dts == AV_NOPTS_VALUE && delay <= MAX_REORDER_DELAY) {
          st->pts_buffer[0] = pkt->pts;
          for (i = 1; i < delay + 1 && st->pts_buffer[i] == AV_NOPTS_VALUE; i++)
              st->pts_buffer[i] = pkt->pts + (i - delay - 1) * pkt->duration;
          for (i = 0; i<delay && st->pts_buffer[i] > st->pts_buffer[i + 1]; i++)
              FFSWAP(int64_t, st->pts_buffer[i], st->pts_buffer[i + 1]);
  
          pkt->dts = st->pts_buffer[0];
      }
  
      if (st->cur_dts && st->cur_dts != AV_NOPTS_VALUE &&
          ((!(s->oformat->flags & AVFMT_TS_NONSTRICT) &&
            st->codecpar->codec_type != AVMEDIA_TYPE_SUBTITLE &&
            st->codecpar->codec_type != AVMEDIA_TYPE_DATA &&
            st->cur_dts >= pkt->dts) || st->cur_dts > pkt->dts)) {
          av_log(s, AV_LOG_ERROR,
                 "Application provided invalid, non monotonically increasing dts to muxer in stream %d: %s >= %s\n",
                 st->index, av_ts2str(st->cur_dts), av_ts2str(pkt->dts));
          return AVERROR(EINVAL);
      }
      if (pkt->dts != AV_NOPTS_VALUE && pkt->pts != AV_NOPTS_VALUE && pkt->pts < pkt->dts) {
          av_log(s, AV_LOG_ERROR,
                 "pts (%s) < dts (%s) in stream %d\n",
                 av_ts2str(pkt->pts), av_ts2str(pkt->dts),
                 st->index);
          return AVERROR(EINVAL);
      }
  
      if (s->debug & FF_FDEBUG_TS)
          av_log(s, AV_LOG_DEBUG, "av_write_frame: pts2:%s dts2:%s\n",
              av_ts2str(pkt->pts), av_ts2str(pkt->dts));
  
      st->cur_dts = pkt->dts;
      st->internal->priv_pts->val = pkt->dts;
  
      /* update pts */
      switch (st->codecpar->codec_type) {
      case AVMEDIA_TYPE_AUDIO:
          frame_size = (pkt->flags & AV_PKT_FLAG_UNCODED_FRAME) ?
                       (*(AVFrame **)pkt->data)->nb_samples :
                       av_get_audio_frame_duration(st->codec, pkt->size);
  
          /* HACK/FIXME, we skip the initial 0 size packets as they are most
           * likely equal to the encoder delay, but it would be better if we
           * had the real timestamps from the encoder */
          if (frame_size >= 0 && (pkt->size || st->internal->priv_pts->num != st->internal->priv_pts->den >> 1 || st->internal->priv_pts->val)) {
              frac_add(st->internal->priv_pts, (int64_t)st->time_base.den * frame_size);
          }
          break;
      case AVMEDIA_TYPE_VIDEO:
          frac_add(st->internal->priv_pts, (int64_t)st->time_base.den * st->time_base.num);
          break;
      }
      return 0;
  }
  FF_ENABLE_DEPRECATION_WARNINGS
  #endif
  
  /**
   * Shift timestamps and call muxer; the original pts/dts are not kept.
   *
   * FIXME: this function should NEVER get undefined pts/dts beside when the
   * AVFMT_NOTIMESTAMPS is set.
   * Those additional safety checks should be dropped once the correct checks
   * are set in the callers.
   */
  static int write_packet(AVFormatContext *s, AVPacket *pkt)
  {
      int ret;
  
      // If the timestamp offsetting below is adjusted, adjust
      // ff_interleaved_peek similarly.
      if (s->output_ts_offset) {
          AVStream *st = s->streams[pkt->stream_index];
          int64_t offset = av_rescale_q(s->output_ts_offset, AV_TIME_BASE_Q, st->time_base);
  
          if (pkt->dts != AV_NOPTS_VALUE)
              pkt->dts += offset;
          if (pkt->pts != AV_NOPTS_VALUE)
              pkt->pts += offset;
      }
  
      if (s->avoid_negative_ts > 0) {
          AVStream *st = s->streams[pkt->stream_index];
          int64_t offset = st->mux_ts_offset;
          int64_t ts = s->internal->avoid_negative_ts_use_pts ? pkt->pts : pkt->dts;
  
          if (s->internal->offset == AV_NOPTS_VALUE && ts != AV_NOPTS_VALUE &&
              (ts < 0 || s->avoid_negative_ts == AVFMT_AVOID_NEG_TS_MAKE_ZERO)) {
              s->internal->offset = -ts;
              s->internal->offset_timebase = st->time_base;
          }
  
          if (s->internal->offset != AV_NOPTS_VALUE && !offset) {
              offset = st->mux_ts_offset =
                  av_rescale_q_rnd(s->internal->offset,
                                   s->internal->offset_timebase,
                                   st->time_base,
                                   AV_ROUND_UP);
          }
  
          if (pkt->dts != AV_NOPTS_VALUE)
              pkt->dts += offset;
          if (pkt->pts != AV_NOPTS_VALUE)
              pkt->pts += offset;
  
          if (s->internal->avoid_negative_ts_use_pts) {
              if (pkt->pts != AV_NOPTS_VALUE && pkt->pts < 0) {
                  av_log(s, AV_LOG_WARNING, "failed to avoid negative "
                      "pts %s in stream %d.\n"
                      "Try -avoid_negative_ts 1 as a possible workaround.\n",
                      av_ts2str(pkt->pts),
                      pkt->stream_index
                  );
              }
          } else {
              av_assert2(pkt->dts == AV_NOPTS_VALUE || pkt->dts >= 0 || s->max_interleave_delta > 0);
              if (pkt->dts != AV_NOPTS_VALUE && pkt->dts < 0) {
                  av_log(s, AV_LOG_WARNING,
                      "Packets poorly interleaved, failed to avoid negative "
                      "timestamp %s in stream %d.\n"
                      "Try -max_interleave_delta 0 as a possible workaround.\n",
                      av_ts2str(pkt->dts),
                      pkt->stream_index
                  );
              }
          }
      }
  
      if ((pkt->flags & AV_PKT_FLAG_UNCODED_FRAME)) {
          AVFrame **frame = (AVFrame **)pkt->data;
          av_assert0(pkt->size == sizeof(*frame));
          ret = s->oformat->write_uncoded_frame(s, pkt->stream_index, frame, 0);
      } else {
          ret = s->oformat->write_packet(s, pkt);
      }
  
      if (s->pb && ret >= 0) {
          flush_if_needed(s);
          if (s->pb->error < 0)
              ret = s->pb->error;
      }
  
      if (ret >= 0)
          s->streams[pkt->stream_index]->nb_frames++;
  
      return ret;
  }
  
  static int check_packet(AVFormatContext *s, AVPacket *pkt)
  {
      if (pkt->stream_index < 0 || pkt->stream_index >= s->nb_streams) {
          av_log(s, AV_LOG_ERROR, "Invalid packet stream index: %d\n",
                 pkt->stream_index);
          return AVERROR(EINVAL);
      }
  
      if (s->streams[pkt->stream_index]->codecpar->codec_type == AVMEDIA_TYPE_ATTACHMENT) {
          av_log(s, AV_LOG_ERROR, "Received a packet for an attachment stream.\n");
          return AVERROR(EINVAL);
      }
  
      return 0;
  }
  
  static int prepare_input_packet(AVFormatContext *s, AVStream *st, AVPacket *pkt)
  {
  #if !FF_API_COMPUTE_PKT_FIELDS2 || !FF_API_LAVF_AVCTX
      /* sanitize the timestamps */
      if (!(s->oformat->flags & AVFMT_NOTIMESTAMPS)) {
  
          /* when there is no reordering (so dts is equal to pts), but
           * only one of them is set, set the other as well */
          if (!st->internal->reorder) {
              if (pkt->pts == AV_NOPTS_VALUE && pkt->dts != AV_NOPTS_VALUE)
                  pkt->pts = pkt->dts;
              if (pkt->dts == AV_NOPTS_VALUE && pkt->pts != AV_NOPTS_VALUE)
                  pkt->dts = pkt->pts;
          }
  
          /* check that the timestamps are set */
          if (pkt->pts == AV_NOPTS_VALUE || pkt->dts == AV_NOPTS_VALUE) {
              av_log(s, AV_LOG_ERROR,
                     "Timestamps are unset in a packet for stream %d\n", st->index);
              return AVERROR(EINVAL);
          }
  
          /* check that the dts are increasing (or at least non-decreasing,
           * if the format allows it */
          if (st->cur_dts != AV_NOPTS_VALUE &&
              ((!(s->oformat->flags & AVFMT_TS_NONSTRICT) && st->cur_dts >= pkt->dts) ||
               st->cur_dts > pkt->dts)) {
              av_log(s, AV_LOG_ERROR,
                     "Application provided invalid, non monotonically increasing "
                     "dts to muxer in stream %d: %" PRId64 " >= %" PRId64 "\n",
                     st->index, st->cur_dts, pkt->dts);
              return AVERROR(EINVAL);
          }
  
          if (pkt->pts < pkt->dts) {
              av_log(s, AV_LOG_ERROR, "pts %" PRId64 " < dts %" PRId64 " in stream %d\n",
                     pkt->pts, pkt->dts, st->index);
              return AVERROR(EINVAL);
          }
      }
  #endif
      /* update flags */
      if (st->internal->is_intra_only)
          pkt->flags |= AV_PKT_FLAG_KEY;
  
      return 0;
  }
  
  #define CHUNK_START 0x1000
  
  int ff_interleave_add_packet(AVFormatContext *s, AVPacket *pkt,
                               int (*compare)(AVFormatContext *, const AVPacket *, const AVPacket *))
  {
      int ret;
      AVPacketList **next_point, *this_pktl;
      AVStream *st = s->streams[pkt->stream_index];
      int chunked  = s->max_chunk_size || s->max_chunk_duration;
  
      this_pktl    = av_malloc(sizeof(AVPacketList));
      if (!this_pktl) {
          av_packet_unref(pkt);
          return AVERROR(ENOMEM);
      }
      if ((ret = av_packet_make_refcounted(pkt)) < 0) {
          av_free(this_pktl);
          av_packet_unref(pkt);
          return ret;
      }
  
      av_packet_move_ref(&this_pktl->pkt, pkt);
      pkt = &this_pktl->pkt;
  
      if (st->last_in_packet_buffer) {
          next_point = &(st->last_in_packet_buffer->next);
      } else {
          next_point = &s->internal->packet_buffer;
      }
  
      if (chunked) {
          uint64_t max= av_rescale_q_rnd(s->max_chunk_duration, AV_TIME_BASE_Q, st->time_base, AV_ROUND_UP);
          st->interleaver_chunk_size     += pkt->size;
          st->interleaver_chunk_duration += pkt->duration;
          if (   (s->max_chunk_size && st->interleaver_chunk_size > s->max_chunk_size)
              || (max && st->interleaver_chunk_duration           > max)) {
              st->interleaver_chunk_size = 0;
              pkt->flags |= CHUNK_START;
              if (max && st->interleaver_chunk_duration > max) {
                  int64_t syncoffset = (st->codecpar->codec_type == AVMEDIA_TYPE_VIDEO)*max/2;
                  int64_t syncto = av_rescale(pkt->dts + syncoffset, 1, max)*max - syncoffset;
  
                  st->interleaver_chunk_duration += (pkt->dts - syncto)/8 - max;
              } else
                  st->interleaver_chunk_duration = 0;
          }
      }
      if (*next_point) {
          if (chunked && !(pkt->flags & CHUNK_START))
              goto next_non_null;
  
          if (compare(s, &s->internal->packet_buffer_end->pkt, pkt)) {
              while (   *next_point
                     && ((chunked && !((*next_point)->pkt.flags&CHUNK_START))
                         || !compare(s, &(*next_point)->pkt, pkt)))
                  next_point = &(*next_point)->next;
              if (*next_point)
                  goto next_non_null;
          } else {
              next_point = &(s->internal->packet_buffer_end->next);
          }
      }
      av_assert1(!*next_point);
  
      s->internal->packet_buffer_end = this_pktl;
  next_non_null:
  
      this_pktl->next = *next_point;
  
      st->last_in_packet_buffer = *next_point = this_pktl;
  
      return 0;
  }
  
  static int interleave_compare_dts(AVFormatContext *s, const AVPacket *next,
                                                        const AVPacket *pkt)
  {
      AVStream *st  = s->streams[pkt->stream_index];
      AVStream *st2 = s->streams[next->stream_index];
      int comp      = av_compare_ts(next->dts, st2->time_base, pkt->dts,
                                    st->time_base);
      if (s->audio_preload) {
          int preload  = st ->codecpar->codec_type == AVMEDIA_TYPE_AUDIO;
          int preload2 = st2->codecpar->codec_type == AVMEDIA_TYPE_AUDIO;
          if (preload != preload2) {
              int64_t ts, ts2;
              preload  *= s->audio_preload;
              preload2 *= s->audio_preload;
              ts = av_rescale_q(pkt ->dts, st ->time_base, AV_TIME_BASE_Q) - preload;
              ts2= av_rescale_q(next->dts, st2->time_base, AV_TIME_BASE_Q) - preload2;
              if (ts == ts2) {
                  ts  = ((uint64_t)pkt ->dts*st ->time_base.num*AV_TIME_BASE - (uint64_t)preload *st ->time_base.den)*st2->time_base.den
                      - ((uint64_t)next->dts*st2->time_base.num*AV_TIME_BASE - (uint64_t)preload2*st2->time_base.den)*st ->time_base.den;
                  ts2 = 0;
              }
              comp = (ts2 > ts) - (ts2 < ts);
          }
      }
  
      if (comp == 0)
          return pkt->stream_index < next->stream_index;
      return comp > 0;
  }
  
  int ff_interleave_packet_per_dts(AVFormatContext *s, AVPacket *out,
                                   AVPacket *pkt, int flush)
  {
      AVPacketList *pktl;
      int stream_count = 0;
      int noninterleaved_count = 0;
      int i, ret;
      int eof = flush;
  
      if (pkt) {
          if ((ret = ff_interleave_add_packet(s, pkt, interleave_compare_dts)) < 0)
              return ret;
      }
  
      for (i = 0; i < s->nb_streams; i++) {
          if (s->streams[i]->last_in_packet_buffer) {
              ++stream_count;
          } else if (s->streams[i]->codecpar->codec_type != AVMEDIA_TYPE_ATTACHMENT &&
                     s->streams[i]->codecpar->codec_id != AV_CODEC_ID_VP8 &&
                     s->streams[i]->codecpar->codec_id != AV_CODEC_ID_VP9) {
              ++noninterleaved_count;
          }
      }
  
      if (s->internal->nb_interleaved_streams == stream_count)
          flush = 1;
  
      if (s->max_interleave_delta > 0 &&
          s->internal->packet_buffer &&
          !flush &&
          s->internal->nb_interleaved_streams == stream_count+noninterleaved_count
      ) {
          AVPacket *top_pkt = &s->internal->packet_buffer->pkt;
          int64_t delta_dts = INT64_MIN;
          int64_t top_dts = av_rescale_q(top_pkt->dts,
                                         s->streams[top_pkt->stream_index]->time_base,
                                         AV_TIME_BASE_Q);
  
          for (i = 0; i < s->nb_streams; i++) {
              int64_t last_dts;
              const AVPacketList *last = s->streams[i]->last_in_packet_buffer;
  
              if (!last)
                  continue;
  
              last_dts = av_rescale_q(last->pkt.dts,
                                      s->streams[i]->time_base,
                                      AV_TIME_BASE_Q);
              delta_dts = FFMAX(delta_dts, last_dts - top_dts);
          }
  
          if (delta_dts > s->max_interleave_delta) {
              av_log(s, AV_LOG_DEBUG,
                     "Delay between the first packet and last packet in the "
                     "muxing queue is %"PRId64" > %"PRId64": forcing output\n",
                     delta_dts, s->max_interleave_delta);
              flush = 1;
          }
      }
  
      if (s->internal->packet_buffer &&
          eof &&
          (s->flags & AVFMT_FLAG_SHORTEST) &&
          s->internal->shortest_end == AV_NOPTS_VALUE) {
          AVPacket *top_pkt = &s->internal->packet_buffer->pkt;
  
          s->internal->shortest_end = av_rescale_q(top_pkt->dts,
                                         s->streams[top_pkt->stream_index]->time_base,
                                         AV_TIME_BASE_Q);
      }
  
      if (s->internal->shortest_end != AV_NOPTS_VALUE) {
          while (s->internal->packet_buffer) {
              AVPacket *top_pkt = &s->internal->packet_buffer->pkt;
              AVStream *st;
              int64_t top_dts = av_rescale_q(top_pkt->dts,
                                          s->streams[top_pkt->stream_index]->time_base,
                                          AV_TIME_BASE_Q);
  
              if (s->internal->shortest_end + 1 >= top_dts)
                  break;
  
              pktl = s->internal->packet_buffer;
              st   = s->streams[pktl->pkt.stream_index];
  
              s->internal->packet_buffer = pktl->next;
              if (!s->internal->packet_buffer)
                  s->internal->packet_buffer_end = NULL;
  
              if (st->last_in_packet_buffer == pktl)
                  st->last_in_packet_buffer = NULL;
  
              av_packet_unref(&pktl->pkt);
              av_freep(&pktl);
              flush = 0;
          }
      }
  
      if (stream_count && flush) {
          AVStream *st;
          pktl = s->internal->packet_buffer;
          *out = pktl->pkt;
          st   = s->streams[out->stream_index];
  
          s->internal->packet_buffer = pktl->next;
          if (!s->internal->packet_buffer)
              s->internal->packet_buffer_end = NULL;
  
          if (st->last_in_packet_buffer == pktl)
              st->last_in_packet_buffer = NULL;
          av_freep(&pktl);
  
          return 1;
      } else {
          return 0;
      }
  }
  
  int ff_interleaved_peek(AVFormatContext *s, int stream,
                          AVPacket *pkt, int add_offset)
  {
      AVPacketList *pktl = s->internal->packet_buffer;
      while (pktl) {
          if (pktl->pkt.stream_index == stream) {
              *pkt = pktl->pkt;
              if (add_offset) {
                  AVStream *st = s->streams[pkt->stream_index];
                  int64_t offset = st->mux_ts_offset;
  
                  if (s->output_ts_offset)
                      offset += av_rescale_q(s->output_ts_offset, AV_TIME_BASE_Q, st->time_base);
  
                  if (pkt->dts != AV_NOPTS_VALUE)
                      pkt->dts += offset;
                  if (pkt->pts != AV_NOPTS_VALUE)
                      pkt->pts += offset;
              }
              return 0;
          }
          pktl = pktl->next;
      }
      return AVERROR(ENOENT);
  }
  
  /**
   * Interleave an AVPacket correctly so it can be muxed.
   * @param out the interleaved packet will be output here
   * @param in the input packet; will always be blank on return if not NULL
   * @param flush 1 if no further packets are available as input and all
   *              remaining packets should be output
   * @return 1 if a packet was output, 0 if no packet could be output,
   *         < 0 if an error occurred
   */
  static int interleave_packet(AVFormatContext *s, AVPacket *out, AVPacket *in, int flush)
  {
      if (s->oformat->interleave_packet) {
          return s->oformat->interleave_packet(s, out, in, flush);
      } else
          return ff_interleave_packet_per_dts(s, out, in, flush);
  }
  
  static int check_bitstream(AVFormatContext *s, AVStream *st, AVPacket *pkt)
  {
      int ret;
  
      if (!(s->flags & AVFMT_FLAG_AUTO_BSF))
          return 1;
  
      if (s->oformat->check_bitstream) {
          if (!st->internal->bitstream_checked) {
              if ((ret = s->oformat->check_bitstream(s, pkt)) < 0)
                  return ret;
              else if (ret == 1)
                  st->internal->bitstream_checked = 1;
          }
      }
  
      return 1;
  }
  
  static int interleaved_write_packet(AVFormatContext *s, AVPacket *pkt, int flush)
  {
      for (;; ) {
          AVPacket opkt;
          int ret = interleave_packet(s, &opkt, pkt, flush);
          if (ret <= 0)
              return ret;
  
          pkt = NULL;
  
          ret = write_packet(s, &opkt);
  
          av_packet_unref(&opkt);
  
          if (ret < 0)
              return ret;
      }
  }
  
  static int write_packet_common(AVFormatContext *s, AVStream *st, AVPacket *pkt, int interleaved)
  {
      int ret;
  
      if (s->debug & FF_FDEBUG_TS)
          av_log(s, AV_LOG_DEBUG, "%s size:%d dts:%s pts:%s\n", __FUNCTION__,
                 pkt->size, av_ts2str(pkt->dts), av_ts2str(pkt->pts));
  
  #if FF_API_COMPUTE_PKT_FIELDS2 && FF_API_LAVF_AVCTX
      if ((ret = compute_muxer_pkt_fields(s, st, pkt)) < 0 && !(s->oformat->flags & AVFMT_NOTIMESTAMPS))
          return ret;
  #endif
  
      if (interleaved) {
          if (pkt->dts == AV_NOPTS_VALUE && !(s->oformat->flags & AVFMT_NOTIMESTAMPS))
              return AVERROR(EINVAL);
          return interleaved_write_packet(s, pkt, 0);
      } else {
          return write_packet(s, pkt);
      }
  }
  
  static int write_packets_from_bsfs(AVFormatContext *s, AVStream *st, AVPacket *pkt, int interleaved)
  {
      AVBSFContext *bsfc = st->internal->bsfc;
      int ret;
  
      if ((ret = av_bsf_send_packet(bsfc, pkt)) < 0) {
          av_log(s, AV_LOG_ERROR,
                  "Failed to send packet to filter %s for stream %d\n",
                  bsfc->filter->name, st->index);
          return ret;
      }
  
      do {
          ret = av_bsf_receive_packet(bsfc, pkt);
          if (ret < 0) {
              if (ret == AVERROR(EAGAIN) || ret == AVERROR_EOF)
                  return 0;
              av_log(s, AV_LOG_ERROR, "Error applying bitstream filters to an output "
                     "packet for stream #%d: %s\n", st->index, av_err2str(ret));
              if (!(s->error_recognition & AV_EF_EXPLODE) && ret != AVERROR(ENOMEM))
                  continue;
              return ret;
          }
          av_packet_rescale_ts(pkt, bsfc->time_base_out, st->time_base);
          ret = write_packet_common(s, st, pkt, interleaved);
          if (ret >= 0 && !interleaved) // a successful write_packet_common already unrefed pkt for interleaved
              av_packet_unref(pkt);
      } while (ret >= 0);
  
      return ret;
  }
  
  static int write_packets_common(AVFormatContext *s, AVPacket *pkt, int interleaved)
  {
      AVStream *st;
      int ret = check_packet(s, pkt);
      if (ret < 0)
          return ret;
      st = s->streams[pkt->stream_index];
  
      ret = prepare_input_packet(s, st, pkt);
      if (ret < 0)
          return ret;
  
      ret = check_bitstream(s, st, pkt);
      if (ret < 0)
          return ret;
  
      if (st->internal->bsfc) {
          return write_packets_from_bsfs(s, st, pkt, interleaved);
      } else {
          return write_packet_common(s, st, pkt, interleaved);
      }
  }
  
  int av_write_frame(AVFormatContext *s, AVPacket *in)
  {
      AVPacket local_pkt, *pkt = &local_pkt;
      int ret;
  
      if (!in) {
          if (s->oformat->flags & AVFMT_ALLOW_FLUSH) {
              ret = s->oformat->write_packet(s, NULL);
              flush_if_needed(s);
              if (ret >= 0 && s->pb && s->pb->error < 0)
                  ret = s->pb->error;
              return ret;
          }
          return 1;
      }
  
      if (in->flags & AV_PKT_FLAG_UNCODED_FRAME) {
          pkt = in;
      } else {
          /* We don't own in, so we have to make sure not to modify it.
           * The following avoids copying in's data unnecessarily.
           * Copying side data is unavoidable as a bitstream filter
           * may change it, e.g. free it on errors. */
          pkt->buf  = NULL;
          pkt->data = in->data;
          pkt->size = in->size;
          ret = av_packet_copy_props(pkt, in);
          if (ret < 0)
              return ret;
          if (in->buf) {
              pkt->buf = av_buffer_ref(in->buf);
              if (!pkt->buf) {
                  ret = AVERROR(ENOMEM);
                  goto fail;
              }
          }
      }
  
      ret = write_packets_common(s, pkt, 0/*non-interleaved*/);
  
  fail:
      // Uncoded frames using the noninterleaved codepath are also freed here
      av_packet_unref(pkt);
      return ret;
  }
  
  int av_interleaved_write_frame(AVFormatContext *s, AVPacket *pkt)
  {
      int ret;
  
      if (pkt) {
          ret = write_packets_common(s, pkt, 1/*interleaved*/);
          if (ret < 0)
              av_packet_unref(pkt);
          return ret;
      } else {
          av_log(s, AV_LOG_TRACE, "av_interleaved_write_frame FLUSH\n");
          return interleaved_write_packet(s, NULL, 1/*flush*/);
      }
  }
  
  int av_write_trailer(AVFormatContext *s)
  {
      int i, ret1, ret = 0;
      AVPacket pkt = {0};
      av_init_packet(&pkt);
  
      for (i = 0; i < s->nb_streams; i++) {
          if (s->streams[i]->internal->bsfc) {
              ret1 = write_packets_from_bsfs(s, s->streams[i], &pkt, 1/*interleaved*/);
              if (ret1 < 0)
                  av_packet_unref(&pkt);
              if (ret >= 0)
                  ret = ret1;
          }
      }
      ret1 = interleaved_write_packet(s, NULL, 1);
      if (ret >= 0)
          ret = ret1;
  
      if (s->oformat->write_trailer) {
          if (!(s->oformat->flags & AVFMT_NOFILE) && s->pb)
              avio_write_marker(s->pb, AV_NOPTS_VALUE, AVIO_DATA_MARKER_TRAILER);
          if (ret >= 0) {
          ret = s->oformat->write_trailer(s);
          } else {
              s->oformat->write_trailer(s);
          }
      }
  
      deinit_muxer(s);
  
      if (s->pb)
         avio_flush(s->pb);
      if (ret == 0)
         ret = s->pb ? s->pb->error : 0;
      for (i = 0; i < s->nb_streams; i++) {
          av_freep(&s->streams[i]->priv_data);
          av_freep(&s->streams[i]->index_entries);
      }
      if (s->oformat->priv_class)
          av_opt_free(s->priv_data);
      av_freep(&s->priv_data);
      return ret;
  }
  
  int av_get_output_timestamp(struct AVFormatContext *s, int stream,
                              int64_t *dts, int64_t *wall)
  {
      if (!s->oformat || !s->oformat->get_output_timestamp)
          return AVERROR(ENOSYS);
      s->oformat->get_output_timestamp(s, stream, dts, wall);
      return 0;
  }
  
  int ff_write_chained(AVFormatContext *dst, int dst_stream, AVPacket *pkt,
                       AVFormatContext *src, int interleave)
  {
      AVPacket local_pkt;
      int ret;
  
      local_pkt = *pkt;
      local_pkt.stream_index = dst_stream;
  
      av_packet_rescale_ts(&local_pkt,
                           src->streams[pkt->stream_index]->time_base,
                           dst->streams[dst_stream]->time_base);
  
      if (interleave) ret = av_interleaved_write_frame(dst, &local_pkt);
      else            ret = av_write_frame(dst, &local_pkt);
      pkt->buf = local_pkt.buf;
      pkt->side_data       = local_pkt.side_data;
      pkt->side_data_elems = local_pkt.side_data_elems;
      return ret;
  }
  
  static void uncoded_frame_free(void *unused, uint8_t *data)
  {
      av_frame_free((AVFrame **)data);
      av_free(data);
  }
  
  static int write_uncoded_frame_internal(AVFormatContext *s, int stream_index,
                                          AVFrame *frame, int interleaved)
  {
      AVPacket pkt, *pktp;
  
      av_assert0(s->oformat);
      if (!s->oformat->write_uncoded_frame) {
          av_frame_free(&frame);
          return AVERROR(ENOSYS);
      }
  
      if (!frame) {
          pktp = NULL;
      } else {
          size_t   bufsize = sizeof(frame) + AV_INPUT_BUFFER_PADDING_SIZE;
          AVFrame **framep = av_mallocz(bufsize);
  
          if (!framep)
              goto fail;
          pktp = &pkt;
          av_init_packet(&pkt);
          pkt.buf = av_buffer_create((void *)framep, bufsize,
                                     uncoded_frame_free, NULL, 0);
          if (!pkt.buf) {
              av_free(framep);
      fail:
              av_frame_free(&frame);
              return AVERROR(ENOMEM);
          }
          *framep = frame;
  
          pkt.data         = (void *)framep;
          pkt.size         = sizeof(frame);
          pkt.pts          =
          pkt.dts          = frame->pts;
          pkt.duration     = frame->pkt_duration;
          pkt.stream_index = stream_index;
          pkt.flags |= AV_PKT_FLAG_UNCODED_FRAME;
      }
  
      return interleaved ? av_interleaved_write_frame(s, pktp) :
                           av_write_frame(s, pktp);
  }
  
  int av_write_uncoded_frame(AVFormatContext *s, int stream_index,
                             AVFrame *frame)
  {
      return write_uncoded_frame_internal(s, stream_index, frame, 0);
  }
  
  int av_interleaved_write_uncoded_frame(AVFormatContext *s, int stream_index,
                                         AVFrame *frame)
  {
      return write_uncoded_frame_internal(s, stream_index, frame, 1);
  }
  
  int av_write_uncoded_frame_query(AVFormatContext *s, int stream_index)
  {
      av_assert0(s->oformat);
      if (!s->oformat->write_uncoded_frame)
          return AVERROR(ENOSYS);
      return s->oformat->write_uncoded_frame(s, stream_index, NULL,
                                             AV_WRITE_UNCODED_FRAME_QUERY);
  }
  