/*
  * AVPacket functions for libavcodec
  * 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 <string.h>
 

 #include "libavutil/avassert.h"

 #include "libavutil/common.h"

 #include "libavutil/internal.h"

 #include "libavutil/mathematics.h"

 #include "libavutil/mem.h"

 #include "avcodec.h"

 #include "bytestream.h"
 #include "internal.h"

 #if FF_API_DESTRUCT_PACKET

 void av_destruct_packet(AVPacket *pkt)
 {

     av_freep(&pkt->data);

     pkt->size = 0;

 }
 

 /* a dummy destruct callback for the callers that assume AVPacket.destruct ==
  * NULL => static data */
 static void dummy_destruct_packet(AVPacket *pkt)
 {
     av_assert0(0);
 }
 #endif
 

 void av_init_packet(AVPacket *pkt)
 {

     pkt->pts                  = AV_NOPTS_VALUE;
     pkt->dts                  = AV_NOPTS_VALUE;
     pkt->pos                  = -1;
     pkt->duration             = 0;

     pkt->convergence_duration = 0;

     pkt->flags                = 0;
     pkt->stream_index         = 0;

 #if FF_API_DESTRUCT_PACKET

 FF_DISABLE_DEPRECATION_WARNINGS

     pkt->destruct             = NULL;

 FF_ENABLE_DEPRECATION_WARNINGS

 #endif
     pkt->buf                  = NULL;

     pkt->side_data            = NULL;
     pkt->side_data_elems      = 0;

 }
 

 static int packet_alloc(AVBufferRef **buf, int size)

 {

     int ret;

     if ((unsigned)size >= (unsigned)size + AV_INPUT_BUFFER_PADDING_SIZE)

         return AVERROR(EINVAL);
 

     ret = av_buffer_realloc(buf, size + AV_INPUT_BUFFER_PADDING_SIZE);

     if (ret < 0)
         return ret;

     memset((*buf)->data + size, 0, AV_INPUT_BUFFER_PADDING_SIZE);

 
     return 0;
 }
 
 int av_new_packet(AVPacket *pkt, int size)
 {
     AVBufferRef *buf = NULL;
     int ret = packet_alloc(&buf, size);
     if (ret < 0)
         return ret;

 
     av_init_packet(pkt);

     pkt->buf      = buf;
     pkt->data     = buf->data;

     pkt->size     = size;

 #if FF_API_DESTRUCT_PACKET

 FF_DISABLE_DEPRECATION_WARNINGS

     pkt->destruct = dummy_destruct_packet;

 FF_ENABLE_DEPRECATION_WARNINGS

 #endif
 

     return 0;
 }
 

 void av_shrink_packet(AVPacket *pkt, int size)
 {

     if (pkt->size <= size)
         return;

     pkt->size = size;

     memset(pkt->data + size, 0, AV_INPUT_BUFFER_PADDING_SIZE);

 }
 

 int av_grow_packet(AVPacket *pkt, int grow_by)
 {

     int new_size;

     av_assert0((unsigned)pkt->size <= INT_MAX - AV_INPUT_BUFFER_PADDING_SIZE);

     if (!pkt->size)
         return av_new_packet(pkt, grow_by);

     if ((unsigned)grow_by >

         INT_MAX - (pkt->size + AV_INPUT_BUFFER_PADDING_SIZE))

         return -1;

     new_size = pkt->size + grow_by + AV_INPUT_BUFFER_PADDING_SIZE;

     if (pkt->buf) {
         int ret = av_buffer_realloc(&pkt->buf, new_size);
         if (ret < 0)
             return ret;
     } else {
         pkt->buf = av_buffer_alloc(new_size);
         if (!pkt->buf)
             return AVERROR(ENOMEM);
         memcpy(pkt->buf->data, pkt->data, FFMIN(pkt->size, pkt->size + grow_by));
 #if FF_API_DESTRUCT_PACKET

 FF_DISABLE_DEPRECATION_WARNINGS

         pkt->destruct = dummy_destruct_packet;

 FF_ENABLE_DEPRECATION_WARNINGS

 #endif
     }
     pkt->data  = pkt->buf->data;

     pkt->size += grow_by;

     memset(pkt->data + pkt->size, 0, AV_INPUT_BUFFER_PADDING_SIZE);

     return 0;
 }
 

 int av_packet_from_data(AVPacket *pkt, uint8_t *data, int size)
 {

     if (size >= INT_MAX - AV_INPUT_BUFFER_PADDING_SIZE)

         return AVERROR(EINVAL);
 

     pkt->buf = av_buffer_create(data, size + AV_INPUT_BUFFER_PADDING_SIZE,

                                 av_buffer_default_free, NULL, 0);
     if (!pkt->buf)
         return AVERROR(ENOMEM);
 
     pkt->data = data;
     pkt->size = size;
 #if FF_API_DESTRUCT_PACKET

 FF_DISABLE_DEPRECATION_WARNINGS

     pkt->destruct = dummy_destruct_packet;

 FF_ENABLE_DEPRECATION_WARNINGS

 #endif
 

     return 0;
 }
 

 #define ALLOC_MALLOC(data, size) data = av_malloc(size)
 #define ALLOC_BUF(data, size)                \
 do {                                         \
     av_buffer_realloc(&pkt->buf, size);      \
     data = pkt->buf ? pkt->buf->data : NULL; \
 } while (0)
 
 #define DUP_DATA(dst, src, size, padding, ALLOC)                        \

     do {                                                                \
         void *data;                                                     \
         if (padding) {                                                  \
             if ((unsigned)(size) >                                      \

                 (unsigned)(size) + AV_INPUT_BUFFER_PADDING_SIZE)        \

                 goto failed_alloc;                                      \

             ALLOC(data, size + AV_INPUT_BUFFER_PADDING_SIZE);           \

         } else {                                                        \

             ALLOC(data, size);                                          \

         }                                                               \
         if (!data)                                                      \
             goto failed_alloc;                                          \
         memcpy(data, src, size);                                        \
         if (padding)                                                    \
             memset((uint8_t *)data + size, 0,                           \

                    AV_INPUT_BUFFER_PADDING_SIZE);                       \

         dst = data;                                                     \
     } while (0)

 /* Makes duplicates of data, side_data, but does not copy any other fields */

 static int copy_packet_data(AVPacket *pkt, const AVPacket *src, int dup)

 {

     pkt->data      = NULL;
     pkt->side_data = NULL;

     if (pkt->buf) {
         AVBufferRef *ref = av_buffer_ref(src->buf);
         if (!ref)
             return AVERROR(ENOMEM);
         pkt->buf  = ref;
         pkt->data = ref->data;
     } else {
         DUP_DATA(pkt->data, src->data, pkt->size, 1, ALLOC_BUF);
     }

 #if FF_API_DESTRUCT_PACKET

 FF_DISABLE_DEPRECATION_WARNINGS

     pkt->destruct = dummy_destruct_packet;

 FF_ENABLE_DEPRECATION_WARNINGS

 #endif

     if (pkt->side_data_elems && dup)
         pkt->side_data = src->side_data;
     if (pkt->side_data_elems && !dup) {

         return av_copy_packet_side_data(pkt, src);
     }
     return 0;
 
 failed_alloc:

     av_free_packet(pkt);

     return AVERROR(ENOMEM);
 }

 int av_copy_packet_side_data(AVPacket *pkt, const AVPacket *src)

 {
     if (src->side_data_elems) {
         int i;

         DUP_DATA(pkt->side_data, src->side_data,

                 src->side_data_elems * sizeof(*src->side_data), 0, ALLOC_MALLOC);

         if (src != pkt) {
             memset(pkt->side_data, 0,
                    src->side_data_elems * sizeof(*src->side_data));
         }

         for (i = 0; i < src->side_data_elems; i++) {

             DUP_DATA(pkt->side_data[i].data, src->side_data[i].data,
                     src->side_data[i].size, 1, ALLOC_MALLOC);
             pkt->side_data[i].size = src->side_data[i].size;
             pkt->side_data[i].type = src->side_data[i].type;

         }
     }

     pkt->side_data_elems = src->side_data_elems;

     return 0;
 
 failed_alloc:

     av_free_packet(pkt);

     return AVERROR(ENOMEM);
 }
 

 int av_dup_packet(AVPacket *pkt)
 {

     AVPacket tmp_pkt;
 

 FF_DISABLE_DEPRECATION_WARNINGS

     if (!pkt->buf && pkt->data
 #if FF_API_DESTRUCT_PACKET
         && !pkt->destruct
 #endif
         ) {

 FF_ENABLE_DEPRECATION_WARNINGS

         tmp_pkt = *pkt;

         return copy_packet_data(pkt, &tmp_pkt, 1);

     }
     return 0;
 }

 int av_copy_packet(AVPacket *dst, const AVPacket *src)

 {
     *dst = *src;

     return copy_packet_data(dst, src, 0);

 }
 

 void av_packet_free_side_data(AVPacket *pkt)
 {
     int i;
     for (i = 0; i < pkt->side_data_elems; i++)

         av_freep(&pkt->side_data[i].data);

     av_freep(&pkt->side_data);
     pkt->side_data_elems = 0;
 }
 

 void av_free_packet(AVPacket *pkt)
 {
     if (pkt) {

 FF_DISABLE_DEPRECATION_WARNINGS

         if (pkt->buf)
             av_buffer_unref(&pkt->buf);
 #if FF_API_DESTRUCT_PACKET
         else if (pkt->destruct)

             pkt->destruct(pkt);

         pkt->destruct = NULL;
 #endif

 FF_ENABLE_DEPRECATION_WARNINGS

         pkt->data            = NULL;
         pkt->size            = 0;

         av_packet_free_side_data(pkt);

     }
 }
 

 uint8_t *av_packet_new_side_data(AVPacket *pkt, enum AVPacketSideDataType type,

                                  int size)
 {
     int elems = pkt->side_data_elems;
 
     if ((unsigned)elems + 1 > INT_MAX / sizeof(*pkt->side_data))
         return NULL;

     if ((unsigned)size > INT_MAX - AV_INPUT_BUFFER_PADDING_SIZE)

         return NULL;
 

     pkt->side_data = av_realloc(pkt->side_data,
                                 (elems + 1) * sizeof(*pkt->side_data));

     if (!pkt->side_data)
         return NULL;
 

     pkt->side_data[elems].data = av_mallocz(size + AV_INPUT_BUFFER_PADDING_SIZE);

     if (!pkt->side_data[elems].data)
         return NULL;
     pkt->side_data[elems].size = size;
     pkt->side_data[elems].type = type;
     pkt->side_data_elems++;
 
     return pkt->side_data[elems].data;
 }
 

 uint8_t *av_packet_get_side_data(AVPacket *pkt, enum AVPacketSideDataType type,

                                  int *size)
 {
     int i;
 
     for (i = 0; i < pkt->side_data_elems; i++) {
         if (pkt->side_data[i].type == type) {
             if (size)
                 *size = pkt->side_data[i].size;
             return pkt->side_data[i].data;
         }

     }

     return NULL;

 }

 const char *av_packet_side_data_name(enum AVPacketSideDataType type)
 {
     switch(type) {
     case AV_PKT_DATA_PALETTE:                   return "Palette";
     case AV_PKT_DATA_NEW_EXTRADATA:             return "New Extradata";
     case AV_PKT_DATA_PARAM_CHANGE:              return "Param Change";
     case AV_PKT_DATA_H263_MB_INFO:              return "H263 MB Info";
     case AV_PKT_DATA_REPLAYGAIN:                return "Replay Gain";
     case AV_PKT_DATA_DISPLAYMATRIX:             return "Display Matrix";
     case AV_PKT_DATA_STEREO3D:                  return "Stereo 3D";
     case AV_PKT_DATA_AUDIO_SERVICE_TYPE:        return "Audio Service Type";
     case AV_PKT_DATA_SKIP_SAMPLES:              return "Skip Samples";
     case AV_PKT_DATA_JP_DUALMONO:               return "JP Dual Mono";
     case AV_PKT_DATA_STRINGS_METADATA:          return "Strings Metadata";
     case AV_PKT_DATA_SUBTITLE_POSITION:         return "Subtitle Position";
     case AV_PKT_DATA_MATROSKA_BLOCKADDITIONAL:  return "Matroska BlockAdditional";
     case AV_PKT_DATA_WEBVTT_IDENTIFIER:         return "WebVTT ID";
     case AV_PKT_DATA_WEBVTT_SETTINGS:           return "WebVTT Settings";
     case AV_PKT_DATA_METADATA_UPDATE:           return "Metadata Update";
     }
     return NULL;
 }
 

 #define FF_MERGE_MARKER 0x8c4d9d108e25e9feULL
 
 int av_packet_merge_side_data(AVPacket *pkt){
     if(pkt->side_data_elems){

         AVBufferRef *buf;

         int i;
         uint8_t *p;

         uint64_t size= pkt->size + 8LL + AV_INPUT_BUFFER_PADDING_SIZE;

         AVPacket old= *pkt;
         for (i=0; i<old.side_data_elems; i++) {
             size += old.side_data[i].size + 5LL;
         }
         if (size > INT_MAX)
             return AVERROR(EINVAL);

         buf = av_buffer_alloc(size);
         if (!buf)

             return AVERROR(ENOMEM);

         pkt->buf = buf;
         pkt->data = p = buf->data;
 #if FF_API_DESTRUCT_PACKET

 FF_DISABLE_DEPRECATION_WARNINGS

         pkt->destruct = dummy_destruct_packet;

 FF_ENABLE_DEPRECATION_WARNINGS

 #endif

         pkt->size = size - AV_INPUT_BUFFER_PADDING_SIZE;

         bytestream_put_buffer(&p, old.data, old.size);
         for (i=old.side_data_elems-1; i>=0; i--) {
             bytestream_put_buffer(&p, old.side_data[i].data, old.side_data[i].size);
             bytestream_put_be32(&p, old.side_data[i].size);
             *p++ = old.side_data[i].type | ((i==old.side_data_elems-1)*128);
         }
         bytestream_put_be64(&p, FF_MERGE_MARKER);
         av_assert0(p-pkt->data == pkt->size);

         memset(p, 0, AV_INPUT_BUFFER_PADDING_SIZE);

         av_free_packet(&old);
         pkt->side_data_elems = 0;
         pkt->side_data = NULL;
         return 1;
     }
     return 0;
 }
 
 int av_packet_split_side_data(AVPacket *pkt){
     if (!pkt->side_data_elems && pkt->size >12 && AV_RB64(pkt->data + pkt->size - 8) == FF_MERGE_MARKER){
         int i;

         unsigned int size;

         uint8_t *p;

         p = pkt->data + pkt->size - 8 - 5;

         for (i=1; ; i++){
             size = AV_RB32(p);

             if (size>INT_MAX || p - pkt->data < size)

                 return 0;
             if (p[4]&128)
                 break;
             p-= size+5;
         }
 

         pkt->side_data = av_malloc_array(i, sizeof(*pkt->side_data));

         if (!pkt->side_data)
             return AVERROR(ENOMEM);
 
         p= pkt->data + pkt->size - 8 - 5;
         for (i=0; ; i++){
             size= AV_RB32(p);

             av_assert0(size<=INT_MAX && p - pkt->data >= size);

             pkt->side_data[i].data = av_mallocz(size + AV_INPUT_BUFFER_PADDING_SIZE);

             pkt->side_data[i].size = size;
             pkt->side_data[i].type = p[4]&127;
             if (!pkt->side_data[i].data)
                 return AVERROR(ENOMEM);
             memcpy(pkt->side_data[i].data, p-size, size);
             pkt->size -= size + 5;
             if(p[4]&128)
                 break;
             p-= size+5;
         }
         pkt->size -= 8;
         pkt->side_data_elems = i+1;
         return 1;
     }
     return 0;
 }

 uint8_t *av_packet_pack_dictionary(AVDictionary *dict, int *size)
 {
     AVDictionaryEntry *t = NULL;
     uint8_t *data = NULL;
     *size = 0;
 
     if (!dict)
         return NULL;
 
     while ((t = av_dict_get(dict, "", t, AV_DICT_IGNORE_SUFFIX))) {

         const size_t keylen   = strlen(t->key);
         const size_t valuelen = strlen(t->value);

         const size_t new_size = *size + keylen + 1 + valuelen + 1;
         uint8_t *const new_data = av_realloc(data, new_size);
 

         if (!new_data)

             goto fail;
         data = new_data;

         if (new_size > INT_MAX)
             goto fail;

 
         memcpy(data + *size, t->key, keylen + 1);
         memcpy(data + *size + keylen + 1, t->value, valuelen + 1);
 
         *size = new_size;
     }
 
     return data;
 
 fail:
     av_freep(&data);
     *size = 0;
     return NULL;
 }
 
 int av_packet_unpack_dictionary(const uint8_t *data, int size, AVDictionary **dict)
 {
     const uint8_t *end = data + size;
     int ret = 0;
 
     if (!dict || !data || !size)
         return ret;
     if (size && end[-1])
         return AVERROR_INVALIDDATA;
     while (data < end) {
         const uint8_t *key = data;
         const uint8_t *val = data + strlen(key) + 1;
 
         if (val >= end)
             return AVERROR_INVALIDDATA;
 
         ret = av_dict_set(dict, key, val, 0);
         if (ret < 0)
             break;
         data = val + strlen(val) + 1;
     }
 
     return ret;
 }
 

 int av_packet_shrink_side_data(AVPacket *pkt, enum AVPacketSideDataType type,
                                int size)
 {
     int i;
 
     for (i = 0; i < pkt->side_data_elems; i++) {
         if (pkt->side_data[i].type == type) {
             if (size > pkt->side_data[i].size)
                 return AVERROR(ENOMEM);
             pkt->side_data[i].size = size;
             return 0;
         }
     }
     return AVERROR(ENOENT);
 }

 
 int av_packet_copy_props(AVPacket *dst, const AVPacket *src)
 {
     int i;
 
     dst->pts                  = src->pts;
     dst->dts                  = src->dts;
     dst->pos                  = src->pos;
     dst->duration             = src->duration;
     dst->convergence_duration = src->convergence_duration;
     dst->flags                = src->flags;
     dst->stream_index         = src->stream_index;
 
     for (i = 0; i < src->side_data_elems; i++) {
          enum AVPacketSideDataType type = src->side_data[i].type;
          int size          = src->side_data[i].size;
          uint8_t *src_data = src->side_data[i].data;
          uint8_t *dst_data = av_packet_new_side_data(dst, type, size);
 
         if (!dst_data) {
             av_packet_free_side_data(dst);
             return AVERROR(ENOMEM);
         }
         memcpy(dst_data, src_data, size);
     }
 
     return 0;
 }
 
 void av_packet_unref(AVPacket *pkt)
 {
     av_packet_free_side_data(pkt);
     av_buffer_unref(&pkt->buf);
     av_init_packet(pkt);
     pkt->data = NULL;
     pkt->size = 0;
 }
 

 int av_packet_ref(AVPacket *dst, const AVPacket *src)

 {
     int ret;
 
     ret = av_packet_copy_props(dst, src);
     if (ret < 0)
         return ret;
 
     if (!src->buf) {
         ret = packet_alloc(&dst->buf, src->size);
         if (ret < 0)
             goto fail;
         memcpy(dst->buf->data, src->data, src->size);

     } else {

         dst->buf = av_buffer_ref(src->buf);

         if (!dst->buf) {
             ret = AVERROR(ENOMEM);

             goto fail;

         }

     }

 
     dst->size = src->size;
     dst->data = dst->buf->data;
     return 0;
 fail:
     av_packet_free_side_data(dst);
     return ret;
 }
 
 void av_packet_move_ref(AVPacket *dst, AVPacket *src)
 {
     *dst = *src;
     av_init_packet(src);
 }

 
 void av_packet_rescale_ts(AVPacket *pkt, AVRational src_tb, AVRational dst_tb)
 {
     if (pkt->pts != AV_NOPTS_VALUE)
         pkt->pts = av_rescale_q(pkt->pts, src_tb, dst_tb);
     if (pkt->dts != AV_NOPTS_VALUE)
         pkt->dts = av_rescale_q(pkt->dts, src_tb, dst_tb);
     if (pkt->duration > 0)
         pkt->duration = av_rescale_q(pkt->duration, src_tb, dst_tb);
     if (pkt->convergence_duration > 0)
         pkt->convergence_duration = av_rescale_q(pkt->convergence_duration, src_tb, dst_tb);
 }

 
 int ff_side_data_set_encoder_stats(AVPacket *pkt, int quality, int64_t *error, int error_count, int pict_type)
 {
     uint8_t *side_data;
     int side_data_size;
     int i;
 
     side_data = av_packet_get_side_data(pkt, AV_PKT_DATA_QUALITY_STATS, &side_data_size);
     if (!side_data) {
         side_data_size = 4+4+8*error_count;
         side_data = av_packet_new_side_data(pkt, AV_PKT_DATA_QUALITY_STATS,
                                             side_data_size);
     }
 
     if (!side_data || side_data_size < 4+4+8*error_count)
         return AVERROR(ENOMEM);
 
     AV_WL32(side_data   , quality  );
     side_data[4] = pict_type;
     side_data[5] = error_count;
     for (i = 0; i<error_count; i++)
         AV_WL64(side_data+8 + 8*i , error[i]);
 
     return 0;
 }