/*
  * - CrystalHD decoder module -
  *

  * Copyright(C) 2010,2011 Philip Langdale <ffmpeg.philipl@overt.org>

  *
  * 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
  */
 
 /*
  * - Principles of Operation -
  *
  * The CrystalHD decoder operates at the bitstream level - which is an even
  * higher level than the decoding hardware you typically see in modern GPUs.
  * This means it has a very simple interface, in principle. You feed demuxed
  * packets in one end and get decoded picture (fields/frames) out the other.
  *
  * Of course, nothing is ever that simple. Due, at the very least, to b-frame
  * dependencies in the supported formats, the hardware has a delay between
  * when a packet goes in, and when a picture comes out. Furthermore, this delay
  * is not just a function of time, but also one of the dependency on additional
  * frames being fed into the decoder to satisfy the b-frame dependencies.
  *
  * As such, a pipeline will build up that is roughly equivalent to the required
  * DPB for the file being played. If that was all it took, things would still
  * be simple - so, of course, it isn't.
  *
  * The hardware has a way of indicating that a picture is ready to be copied out,
  * but this is unreliable - and sometimes the attempt will still fail so, based
  * on testing, the code will wait until 3 pictures are ready before starting
  * to copy out - and this has the effect of extending the pipeline.
  *

  * Finally, while it is tempting to say that once the decoder starts outputting

  * frames, the software should never fail to return a frame from a decode(),
  * this is a hard assertion to make, because the stream may switch between
  * differently encoded content (number of b-frames, interlacing, etc) which
  * might require a longer pipeline than before. If that happened, you could
  * deadlock trying to retrieve a frame that can't be decoded without feeding
  * in additional packets.
  *
  * As such, the code will return in the event that a picture cannot be copied
  * out, leading to an increase in the length of the pipeline. This in turn,
  * means we have to be sensitive to the time it takes to decode a picture;
  * We do not want to give up just because the hardware needed a little more
  * time to prepare the picture! For this reason, there are delays included
  * in the decode() path that ensure that, under normal conditions, the hardware
  * will only fail to return a frame if it really needs additional packets to
  * complete the decoding.
  *
  * Finally, to be explicit, we do not want the pipeline to grow without bound
  * for two reasons: 1) The hardware can only buffer a finite number of packets,
  * and 2) The client application may not be able to cope with arbitrarily long
  * delays in the video path relative to the audio path. For example. MPlayer
  * can only handle a 20 picture delay (although this is arbitrary, and needs
  * to be extended to fully support the CrystalHD where the delay could be up
  * to 32 pictures - consider PAFF H.264 content with 16 b-frames).
  */
 
 /*****************************************************************************
  * Includes
  ****************************************************************************/
 
 #define _XOPEN_SOURCE 600
 #include <inttypes.h>
 #include <stdio.h>
 #include <stdlib.h>
 
 #include <libcrystalhd/bc_dts_types.h>
 #include <libcrystalhd/bc_dts_defs.h>
 #include <libcrystalhd/libcrystalhd_if.h>
 
 #include "avcodec.h"

 #include "h264.h"

 #include "internal.h"

 #include "libavutil/imgutils.h"
 #include "libavutil/intreadwrite.h"

 #include "libavutil/opt.h"

 #if HAVE_UNISTD_H
 #include <unistd.h>
 #endif
 

 /** Timeout parameter passed to DtsProcOutput() in us */

 #define OUTPUT_PROC_TIMEOUT 50

 /** Step between fake timestamps passed to hardware in units of 100ns */

 #define TIMESTAMP_UNIT 100000

 /** Initial value in us of the wait in decode() */

 #define BASE_WAIT 10000

 /** Increment in us to adjust wait in decode() */

 #define WAIT_UNIT 1000
 
 
 /*****************************************************************************
  * Module private data
  ****************************************************************************/
 
 typedef enum {

     RET_ERROR           = -1,
     RET_OK              = 0,
     RET_COPY_AGAIN      = 1,
     RET_SKIP_NEXT_COPY  = 2,
     RET_COPY_NEXT_FIELD = 3,

 } CopyRet;
 
 typedef struct OpaqueList {
     struct OpaqueList *next;
     uint64_t fake_timestamp;
     uint64_t reordered_opaque;

     uint8_t pic_type;

 } OpaqueList;
 
 typedef struct {

     AVClass *av_class;

     AVCodecContext *avctx;

     AVFrame *pic;

     HANDLE dev;
 

     uint8_t *orig_extradata;
     uint32_t orig_extradata_size;
 

     AVBitStreamFilterContext *bsfc;

     AVCodecParserContext *parser;
 

     uint8_t is_70012;
     uint8_t *sps_pps_buf;
     uint32_t sps_pps_size;
     uint8_t is_nal;
     uint8_t output_ready;
     uint8_t need_second_field;
     uint8_t skip_next_output;
     uint64_t decode_wait;
 
     uint64_t last_picture;
 
     OpaqueList *head;
     OpaqueList *tail;

 
     /* Options */
     uint32_t sWidth;

     uint8_t bframe_bug;

 } CHDContext;
 

 static const AVOption options[] = {
     { "crystalhd_downscale_width",
       "Turn on downscaling to the specified width",
       offsetof(CHDContext, sWidth),

       AV_OPT_TYPE_INT, {.i64 = 0}, 0, UINT32_MAX,

       AV_OPT_FLAG_VIDEO_PARAM | AV_OPT_FLAG_DECODING_PARAM, },
     { NULL, },
 };
 

 
 /*****************************************************************************
  * Helper functions
  ****************************************************************************/
 

 static inline BC_MEDIA_SUBTYPE id2subtype(CHDContext *priv, enum AVCodecID id)

 {
     switch (id) {

     case AV_CODEC_ID_MPEG4:

         return BC_MSUBTYPE_DIVX;

     case AV_CODEC_ID_MSMPEG4V3:

         return BC_MSUBTYPE_DIVX311;

     case AV_CODEC_ID_MPEG2VIDEO:

         return BC_MSUBTYPE_MPEG2VIDEO;

     case AV_CODEC_ID_VC1:

         return BC_MSUBTYPE_VC1;

     case AV_CODEC_ID_WMV3:

         return BC_MSUBTYPE_WMV3;

     case AV_CODEC_ID_H264:

         return priv->is_nal ? BC_MSUBTYPE_AVC1 : BC_MSUBTYPE_H264;
     default:
         return BC_MSUBTYPE_INVALID;
     }
 }
 
 static inline void print_frame_info(CHDContext *priv, BC_DTS_PROC_OUT *output)
 {
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tYBuffSz: %u\n", output->YbuffSz);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tYBuffDoneSz: %u\n",
            output->YBuffDoneSz);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tUVBuffDoneSz: %u\n",
            output->UVBuffDoneSz);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tTimestamp: %"PRIu64"\n",
            output->PicInfo.timeStamp);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tPicture Number: %u\n",
            output->PicInfo.picture_number);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tWidth: %u\n",
            output->PicInfo.width);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tHeight: %u\n",
            output->PicInfo.height);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tChroma: 0x%03x\n",
            output->PicInfo.chroma_format);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tPulldown: %u\n",
            output->PicInfo.pulldown);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tFlags: 0x%08x\n",
            output->PicInfo.flags);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tFrame Rate/Res: %u\n",
            output->PicInfo.frame_rate);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tAspect Ratio: %u\n",
            output->PicInfo.aspect_ratio);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tColor Primaries: %u\n",
            output->PicInfo.colour_primaries);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tMetaData: %u\n",
            output->PicInfo.picture_meta_payload);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tSession Number: %u\n",
            output->PicInfo.sess_num);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tycom: %u\n",
            output->PicInfo.ycom);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tCustom Aspect: %u\n",
            output->PicInfo.custom_aspect_ratio_width_height);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tFrames to Drop: %u\n",
            output->PicInfo.n_drop);
     av_log(priv->avctx, AV_LOG_VERBOSE, "\tH264 Valid Fields: 0x%08x\n",
            output->PicInfo.other.h264.valid);
 }
 
 
 /*****************************************************************************
  * OpaqueList functions
  ****************************************************************************/
 

 static uint64_t opaque_list_push(CHDContext *priv, uint64_t reordered_opaque,
                                  uint8_t pic_type)

 {
     OpaqueList *newNode = av_mallocz(sizeof (OpaqueList));
     if (!newNode) {
         av_log(priv->avctx, AV_LOG_ERROR,
                "Unable to allocate new node in OpaqueList.\n");
         return 0;
     }
     if (!priv->head) {
         newNode->fake_timestamp = TIMESTAMP_UNIT;
         priv->head              = newNode;
     } else {
         newNode->fake_timestamp = priv->tail->fake_timestamp + TIMESTAMP_UNIT;
         priv->tail->next        = newNode;
     }
     priv->tail = newNode;
     newNode->reordered_opaque = reordered_opaque;

     newNode->pic_type = pic_type;

 
     return newNode->fake_timestamp;
 }
 
 /*
  * The OpaqueList is built in decode order, while elements will be removed
  * in presentation order. If frames are reordered, this means we must be
  * able to remove elements that are not the first element.

  *
  * Returned node must be freed by caller.

  */

 static OpaqueList *opaque_list_pop(CHDContext *priv, uint64_t fake_timestamp)

 {
     OpaqueList *node = priv->head;
 
     if (!priv->head) {
         av_log(priv->avctx, AV_LOG_ERROR,
                "CrystalHD: Attempted to query non-existent timestamps.\n");

         return NULL;

     }
 
     /*
      * The first element is special-cased because we have to manipulate
      * the head pointer rather than the previous element in the list.
      */
     if (priv->head->fake_timestamp == fake_timestamp) {
         priv->head = node->next;
 
         if (!priv->head->next)
             priv->tail = priv->head;
 

         node->next = NULL;
         return node;

     }
 
     /*
      * The list is processed at arm's length so that we have the
      * previous element available to rewrite its next pointer.
      */
     while (node->next) {

         OpaqueList *current = node->next;
         if (current->fake_timestamp == fake_timestamp) {
             node->next = current->next;

 
             if (!node->next)
                priv->tail = node;
 

             current->next = NULL;
             return current;

         } else {

             node = current;

         }
     }
 
     av_log(priv->avctx, AV_LOG_VERBOSE,
            "CrystalHD: Couldn't match fake_timestamp.\n");

     return NULL;

 }
 
 
 /*****************************************************************************
  * Video decoder API function definitions
  ****************************************************************************/
 
 static void flush(AVCodecContext *avctx)
 {
     CHDContext *priv = avctx->priv_data;
 
     avctx->has_b_frames     = 0;
     priv->last_picture      = -1;
     priv->output_ready      = 0;
     priv->need_second_field = 0;
     priv->skip_next_output  = 0;
     priv->decode_wait       = BASE_WAIT;
 

     av_frame_unref (priv->pic);

 
     /* Flush mode 4 flushes all software and hardware buffers. */
     DtsFlushInput(priv->dev, 4);
 }
 
 
 static av_cold int uninit(AVCodecContext *avctx)
 {
     CHDContext *priv = avctx->priv_data;
     HANDLE device;
 
     device = priv->dev;
     DtsStopDecoder(device);
     DtsCloseDecoder(device);
     DtsDeviceClose(device);
 

     /*
      * Restore original extradata, so that if the decoder is
      * reinitialised, the bitstream detection and filtering
      * will work as expected.
      */
     if (priv->orig_extradata) {
         av_free(avctx->extradata);
         avctx->extradata = priv->orig_extradata;
         avctx->extradata_size = priv->orig_extradata_size;
         priv->orig_extradata = NULL;
         priv->orig_extradata_size = 0;
     }
 

     av_parser_close(priv->parser);

     if (priv->bsfc) {
         av_bitstream_filter_close(priv->bsfc);
     }

     av_freep(&priv->sps_pps_buf);

     av_frame_free (&priv->pic);

 
     if (priv->head) {
        OpaqueList *node = priv->head;
        while (node) {
           OpaqueList *next = node->next;
           av_free(node);
           node = next;
        }
     }
 
     return 0;
 }
 
 
 static av_cold int init(AVCodecContext *avctx)
 {
     CHDContext* priv;
     BC_STATUS ret;
     BC_INFO_CRYSTAL version;
     BC_INPUT_FORMAT format = {
         .FGTEnable   = FALSE,
         .Progressive = TRUE,
         .OptFlags    = 0x80000000 | vdecFrameRate59_94 | 0x40,
         .width       = avctx->width,
         .height      = avctx->height,
     };
 
     BC_MEDIA_SUBTYPE subtype;
 
     uint32_t mode = DTS_PLAYBACK_MODE |
                     DTS_LOAD_FILE_PLAY_FW |
                     DTS_SKIP_TX_CHK_CPB |
                     DTS_PLAYBACK_DROP_RPT_MODE |
                     DTS_SINGLE_THREADED_MODE |
                     DTS_DFLT_RESOLUTION(vdecRESOLUTION_1080p23_976);
 
     av_log(avctx, AV_LOG_VERBOSE, "CrystalHD Init for %s\n",
            avctx->codec->name);
 

     avctx->pix_fmt = AV_PIX_FMT_YUYV422;

 
     /* Initialize the library */
     priv               = avctx->priv_data;
     priv->avctx        = avctx;
     priv->is_nal       = avctx->extradata_size > 0 && *(avctx->extradata) == 1;
     priv->last_picture = -1;
     priv->decode_wait  = BASE_WAIT;

     priv->pic          = av_frame_alloc();

 
     subtype = id2subtype(priv, avctx->codec->id);
     switch (subtype) {
     case BC_MSUBTYPE_AVC1:
         {
             uint8_t *dummy_p;
             int dummy_int;
 

             /* Back up the extradata so it can be restored at close time. */

             priv->orig_extradata = av_malloc(avctx->extradata_size + AV_INPUT_BUFFER_PADDING_SIZE);

             if (!priv->orig_extradata) {
                 av_log(avctx, AV_LOG_ERROR,
                        "Failed to allocate copy of extradata\n");
                 return AVERROR(ENOMEM);
             }
             priv->orig_extradata_size = avctx->extradata_size;
             memcpy(priv->orig_extradata, avctx->extradata, avctx->extradata_size);
 

             priv->bsfc = av_bitstream_filter_init("h264_mp4toannexb");
             if (!priv->bsfc) {

                 av_log(avctx, AV_LOG_ERROR,
                        "Cannot open the h264_mp4toannexb BSF!\n");
                 return AVERROR_BSF_NOT_FOUND;
             }

             av_bitstream_filter_filter(priv->bsfc, avctx, NULL, &dummy_p,

                                        &dummy_int, NULL, 0, 0);
         }

         subtype = BC_MSUBTYPE_H264;
         // Fall-through

     case BC_MSUBTYPE_H264:
         format.startCodeSz = 4;
         // Fall-through
     case BC_MSUBTYPE_VC1:
     case BC_MSUBTYPE_WVC1:
     case BC_MSUBTYPE_WMV3:
     case BC_MSUBTYPE_WMVA:
     case BC_MSUBTYPE_MPEG2VIDEO:
     case BC_MSUBTYPE_DIVX:
     case BC_MSUBTYPE_DIVX311:
         format.pMetaData  = avctx->extradata;
         format.metaDataSz = avctx->extradata_size;
         break;
     default:
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: Unknown codec name\n");
         return AVERROR(EINVAL);
     }
     format.mSubtype = subtype;
 

     if (priv->sWidth) {
         format.bEnableScaling = 1;
         format.ScalingParams.sWidth = priv->sWidth;
     }
 

     /* Get a decoder instance */
     av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: starting up\n");
     // Initialize the Link and Decoder devices
     ret = DtsDeviceOpen(&priv->dev, mode);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: DtsDeviceOpen failed\n");
         goto fail;
     }
 
     ret = DtsCrystalHDVersion(priv->dev, &version);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_VERBOSE,
                "CrystalHD: DtsCrystalHDVersion failed\n");
         goto fail;
     }
     priv->is_70012 = version.device == 0;
 
     if (priv->is_70012 &&
         (subtype == BC_MSUBTYPE_DIVX || subtype == BC_MSUBTYPE_DIVX311)) {
         av_log(avctx, AV_LOG_VERBOSE,
                "CrystalHD: BCM70012 doesn't support MPEG4-ASP/DivX/Xvid\n");
         goto fail;
     }
 
     ret = DtsSetInputFormat(priv->dev, &format);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: SetInputFormat failed\n");
         goto fail;
     }
 
     ret = DtsOpenDecoder(priv->dev, BC_STREAM_TYPE_ES);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: DtsOpenDecoder failed\n");
         goto fail;
     }
 
     ret = DtsSetColorSpace(priv->dev, OUTPUT_MODE422_YUY2);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: DtsSetColorSpace failed\n");
         goto fail;
     }
     ret = DtsStartDecoder(priv->dev);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: DtsStartDecoder failed\n");
         goto fail;
     }
     ret = DtsStartCapture(priv->dev);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: DtsStartCapture failed\n");
         goto fail;
     }
 

     if (avctx->codec->id == AV_CODEC_ID_H264) {

         priv->parser = av_parser_init(avctx->codec->id);
         if (!priv->parser)
             av_log(avctx, AV_LOG_WARNING,
                    "Cannot open the h.264 parser! Interlaced h.264 content "
                    "will not be detected reliably.\n");

         priv->parser->flags = PARSER_FLAG_COMPLETE_FRAMES;

     }

     av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: Init complete.\n");
 
     return 0;
 
  fail:
     uninit(avctx);
     return -1;
 }
 
 
 static inline CopyRet copy_frame(AVCodecContext *avctx,
                                  BC_DTS_PROC_OUT *output,

                                  void *data, int *got_frame)

 {
     BC_STATUS ret;

     BC_DTS_STATUS decoder_status = { 0, };

     uint8_t trust_interlaced;

     uint8_t interlaced;
 
     CHDContext *priv = avctx->priv_data;

     int64_t pkt_pts  = AV_NOPTS_VALUE;

     uint8_t pic_type = 0;

 
     uint8_t bottom_field = (output->PicInfo.flags & VDEC_FLAG_BOTTOMFIELD) ==
                            VDEC_FLAG_BOTTOMFIELD;
     uint8_t bottom_first = !!(output->PicInfo.flags & VDEC_FLAG_BOTTOM_FIRST);
 
     int width    = output->PicInfo.width;
     int height   = output->PicInfo.height;
     int bwidth;
     uint8_t *src = output->Ybuff;
     int sStride;
     uint8_t *dst;
     int dStride;
 

     if (output->PicInfo.timeStamp != 0) {
         OpaqueList *node = opaque_list_pop(priv, output->PicInfo.timeStamp);
         if (node) {
             pkt_pts = node->reordered_opaque;

             pic_type = node->pic_type;

             av_free(node);

         } else {
             /*
              * We will encounter a situation where a timestamp cannot be
              * popped if a second field is being returned. In this case,
              * each field has the same timestamp and the first one will
              * cause it to be popped. To keep subsequent calculations
              * simple, pic_type should be set a FIELD value - doesn't
              * matter which, but I chose BOTTOM.
              */
             pic_type = PICT_BOTTOM_FIELD;

         }
         av_log(avctx, AV_LOG_VERBOSE, "output \"pts\": %"PRIu64"\n",
                output->PicInfo.timeStamp);

         av_log(avctx, AV_LOG_VERBOSE, "output picture type %d\n",
                pic_type);

     }
 

     ret = DtsGetDriverStatus(priv->dev, &decoder_status);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR,
                "CrystalHD: GetDriverStatus failed: %u\n", ret);
        return RET_ERROR;
     }
 

     /*
      * For most content, we can trust the interlaced flag returned
      * by the hardware, but sometimes we can't. These are the
      * conditions under which we can trust the flag:
      *
      * 1) It's not h.264 content
      * 2) The UNKNOWN_SRC flag is not set
      * 3) We know we're expecting a second field
      * 4) The hardware reports this picture and the next picture
      *    have the same picture number.
      *
      * Note that there can still be interlaced content that will
      * fail this check, if the hardware hasn't decoded the next
      * picture or if there is a corruption in the stream. (In either
      * case a 0 will be returned for the next picture number)
      */

     trust_interlaced = avctx->codec->id != AV_CODEC_ID_H264 ||

                        !(output->PicInfo.flags & VDEC_FLAG_UNKNOWN_SRC) ||
                        priv->need_second_field ||
                        (decoder_status.picNumFlags & ~0x40000000) ==
                        output->PicInfo.picture_number;
 
     /*
      * If we got a false negative for trust_interlaced on the first field,
      * we will realise our mistake here when we see that the picture number is that
      * of the previous picture. We cannot recover the frame and should discard the
      * second field to keep the correct number of output frames.
      */
     if (output->PicInfo.picture_number == priv->last_picture && !priv->need_second_field) {
         av_log(avctx, AV_LOG_WARNING,
                "Incorrectly guessed progressive frame. Discarding second field\n");
         /* Returning without providing a picture. */
         return RET_OK;
     }
 
     interlaced = (output->PicInfo.flags & VDEC_FLAG_INTERLACED_SRC) &&
                  trust_interlaced;

     if (!trust_interlaced && (decoder_status.picNumFlags & ~0x40000000) == 0) {
         av_log(avctx, AV_LOG_VERBOSE,
                "Next picture number unknown. Assuming progressive frame.\n");
     }
 
     av_log(avctx, AV_LOG_VERBOSE, "Interlaced state: %d | trust_interlaced %d\n",
            interlaced, trust_interlaced);

     if (priv->pic->data[0] && !priv->need_second_field)
         av_frame_unref(priv->pic);

 
     priv->need_second_field = interlaced && !priv->need_second_field;
 

     if (!priv->pic->data[0]) {

         if (ff_get_buffer(avctx, priv->pic, AV_GET_BUFFER_FLAG_REF) < 0)

             return RET_ERROR;
     }
 
     bwidth = av_image_get_linesize(avctx->pix_fmt, width, 0);
     if (priv->is_70012) {
         int pStride;
 
         if (width <= 720)
             pStride = 720;
         else if (width <= 1280)
             pStride = 1280;

         else pStride = 1920;

         sStride = av_image_get_linesize(avctx->pix_fmt, pStride, 0);
     } else {
         sStride = bwidth;
     }
 

     dStride = priv->pic->linesize[0];
     dst     = priv->pic->data[0];

 
     av_log(priv->avctx, AV_LOG_VERBOSE, "CrystalHD: Copying out frame\n");
 
     if (interlaced) {
         int dY = 0;
         int sY = 0;
 
         height /= 2;
         if (bottom_field) {
             av_log(priv->avctx, AV_LOG_VERBOSE, "Interlaced: bottom field\n");
             dY = 1;
         } else {
             av_log(priv->avctx, AV_LOG_VERBOSE, "Interlaced: top field\n");
             dY = 0;
         }
 
         for (sY = 0; sY < height; dY++, sY++) {
             memcpy(&(dst[dY * dStride]), &(src[sY * sStride]), bwidth);

             dY++;

         }
     } else {
         av_image_copy_plane(dst, dStride, src, sStride, bwidth, height);
     }
 

     priv->pic->interlaced_frame = interlaced;

     if (interlaced)

         priv->pic->top_field_first = !bottom_first;

     priv->pic->pkt_pts = pkt_pts;

 
     if (!priv->need_second_field) {

         *got_frame       = 1;

         if ((ret = av_frame_ref(data, priv->pic)) < 0) {
             return ret;
         }

     }
 

     /*
      * Two types of PAFF content have been observed. One form causes the
      * hardware to return a field pair and the other individual fields,
      * even though the input is always individual fields. We must skip
      * copying on the next decode() call to maintain pipeline length in
      * the first case.
      */
     if (!interlaced && (output->PicInfo.flags & VDEC_FLAG_UNKNOWN_SRC) &&
         (pic_type == PICT_TOP_FIELD || pic_type == PICT_BOTTOM_FIELD)) {

         av_log(priv->avctx, AV_LOG_VERBOSE, "Fieldpair from two packets.\n");
         return RET_SKIP_NEXT_COPY;
     }
 

     /*

      * The logic here is purely based on empirical testing with samples.
      * If we need a second field, it could come from a second input packet,
      * or it could come from the same field-pair input packet at the current
      * field. In the first case, we should return and wait for the next time
      * round to get the second field, while in the second case, we should
      * ask the decoder for it immediately.
      *
      * Testing has shown that we are dealing with the fieldpair -> two fields
      * case if the VDEC_FLAG_UNKNOWN_SRC is not set or if the input picture
      * type was PICT_FRAME (in this second case, the flag might still be set)

      */
     return priv->need_second_field &&

            (!(output->PicInfo.flags & VDEC_FLAG_UNKNOWN_SRC) ||
             pic_type == PICT_FRAME) ?

            RET_COPY_NEXT_FIELD : RET_OK;

 }
 
 
 static inline CopyRet receive_frame(AVCodecContext *avctx,

                                     void *data, int *got_frame)

 {
     BC_STATUS ret;
     BC_DTS_PROC_OUT output = {
         .PicInfo.width  = avctx->width,
         .PicInfo.height = avctx->height,
     };
     CHDContext *priv = avctx->priv_data;
     HANDLE dev       = priv->dev;
 

     *got_frame = 0;

 
     // Request decoded data from the driver
     ret = DtsProcOutputNoCopy(dev, OUTPUT_PROC_TIMEOUT, &output);
     if (ret == BC_STS_FMT_CHANGE) {
         av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: Initial format change\n");
         avctx->width  = output.PicInfo.width;
         avctx->height = output.PicInfo.height;

         switch ( output.PicInfo.aspect_ratio ) {
         case vdecAspectRatioSquare:
             avctx->sample_aspect_ratio = (AVRational) {  1,  1};
             break;
         case vdecAspectRatio12_11:
             avctx->sample_aspect_ratio = (AVRational) { 12, 11};
             break;
         case vdecAspectRatio10_11:
             avctx->sample_aspect_ratio = (AVRational) { 10, 11};
             break;
         case vdecAspectRatio16_11:
             avctx->sample_aspect_ratio = (AVRational) { 16, 11};
             break;
         case vdecAspectRatio40_33:
             avctx->sample_aspect_ratio = (AVRational) { 40, 33};
             break;
         case vdecAspectRatio24_11:
             avctx->sample_aspect_ratio = (AVRational) { 24, 11};
             break;
         case vdecAspectRatio20_11:
             avctx->sample_aspect_ratio = (AVRational) { 20, 11};
             break;
         case vdecAspectRatio32_11:
             avctx->sample_aspect_ratio = (AVRational) { 32, 11};
             break;
         case vdecAspectRatio80_33:
             avctx->sample_aspect_ratio = (AVRational) { 80, 33};
             break;
         case vdecAspectRatio18_11:
             avctx->sample_aspect_ratio = (AVRational) { 18, 11};
             break;
         case vdecAspectRatio15_11:
             avctx->sample_aspect_ratio = (AVRational) { 15, 11};
             break;
         case vdecAspectRatio64_33:
             avctx->sample_aspect_ratio = (AVRational) { 64, 33};
             break;
         case vdecAspectRatio160_99:
             avctx->sample_aspect_ratio = (AVRational) {160, 99};
             break;
         case vdecAspectRatio4_3:
             avctx->sample_aspect_ratio = (AVRational) {  4,  3};
             break;
         case vdecAspectRatio16_9:
             avctx->sample_aspect_ratio = (AVRational) { 16,  9};
             break;
         case vdecAspectRatio221_1:
             avctx->sample_aspect_ratio = (AVRational) {221,  1};
             break;
         }

         return RET_COPY_AGAIN;
     } else if (ret == BC_STS_SUCCESS) {
         int copy_ret = -1;
         if (output.PoutFlags & BC_POUT_FLAGS_PIB_VALID) {
             if (priv->last_picture == -1) {
                 /*
                  * Init to one less, so that the incrementing code doesn't
                  * need to be special-cased.
                  */
                 priv->last_picture = output.PicInfo.picture_number - 1;
             }
 

             if (avctx->codec->id == AV_CODEC_ID_MPEG4 &&

                 output.PicInfo.timeStamp == 0 && priv->bframe_bug) {

                 av_log(avctx, AV_LOG_VERBOSE,
                        "CrystalHD: Not returning packed frame twice.\n");
                 priv->last_picture++;
                 DtsReleaseOutputBuffs(dev, NULL, FALSE);
                 return RET_COPY_AGAIN;
             }
 
             print_frame_info(priv, &output);
 
             if (priv->last_picture + 1 < output.PicInfo.picture_number) {
                 av_log(avctx, AV_LOG_WARNING,
                        "CrystalHD: Picture Number discontinuity\n");
                 /*
                  * Have we lost frames? If so, we need to shrink the
                  * pipeline length appropriately.
                  *
                  * XXX: I have no idea what the semantics of this situation
                  * are so I don't even know if we've lost frames or which
                  * ones.
                  *
                  * In any case, only warn the first time.
                  */
                priv->last_picture = output.PicInfo.picture_number - 1;
             }
 

             copy_ret = copy_frame(avctx, &output, data, got_frame);
             if (*got_frame > 0) {

                 avctx->has_b_frames--;
                 priv->last_picture++;
                 av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: Pipeline length: %u\n",
                        avctx->has_b_frames);
             }
         } else {
             /*
              * An invalid frame has been consumed.
              */
             av_log(avctx, AV_LOG_ERROR, "CrystalHD: ProcOutput succeeded with "
                                         "invalid PIB\n");
             avctx->has_b_frames--;
             copy_ret = RET_OK;
         }
         DtsReleaseOutputBuffs(dev, NULL, FALSE);
 
         return copy_ret;
     } else if (ret == BC_STS_BUSY) {
         return RET_COPY_AGAIN;
     } else {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: ProcOutput failed %d\n", ret);
         return RET_ERROR;
     }
 }
 
 

 static int decode(AVCodecContext *avctx, void *data, int *got_frame, AVPacket *avpkt)

 {
     BC_STATUS ret;

     BC_DTS_STATUS decoder_status = { 0, };

     CopyRet rec_ret;
     CHDContext *priv   = avctx->priv_data;
     HANDLE dev         = priv->dev;

     uint8_t *in_data   = avpkt->data;

     int len            = avpkt->size;

     int free_data      = 0;

     uint8_t pic_type   = 0;

 
     av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: decode_frame\n");
 

     if (avpkt->size == 7 && !priv->bframe_bug) {
         /*
          * The use of a drop frame triggers the bug
          */
         av_log(avctx, AV_LOG_INFO,
                "CrystalHD: Enabling work-around for packed b-frame bug\n");
         priv->bframe_bug = 1;
     } else if (avpkt->size == 8 && priv->bframe_bug) {
         /*
          * Delay frames don't trigger the bug
          */
         av_log(avctx, AV_LOG_INFO,
                "CrystalHD: Disabling work-around for packed b-frame bug\n");
         priv->bframe_bug = 0;
     }
 

     if (len) {
         int32_t tx_free = (int32_t)DtsTxFreeSize(dev);

 
         if (priv->parser) {

             int ret = 0;

             if (priv->bsfc) {
                 ret = av_bitstream_filter_filter(priv->bsfc, avctx, NULL,

                                                  &in_data, &len,

                                                  avpkt->data, len, 0);
             }

             free_data = ret > 0;

 
             if (ret >= 0) {
                 uint8_t *pout;
                 int psize;

                 int index;

                 H264Context *h = priv->parser->priv_data;
 

                 index = av_parser_parse2(priv->parser, avctx, &pout, &psize,

                                          in_data, len, avctx->internal->pkt->pts,
                                          avctx->internal->pkt->dts, 0);

                 if (index < 0) {
                     av_log(avctx, AV_LOG_WARNING,
                            "CrystalHD: Failed to parse h.264 packet to "
                            "detect interlacing.\n");

                 } else if (index != len) {

                     av_log(avctx, AV_LOG_WARNING,
                            "CrystalHD: Failed to parse h.264 packet "
                            "completely. Interlaced frames may be "

                            "incorrectly detected.\n");

                 } else {
                     av_log(avctx, AV_LOG_VERBOSE,
                            "CrystalHD: parser picture type %d\n",

                            h->picture_structure);
                     pic_type = h->picture_structure;

                 }
             } else {
                 av_log(avctx, AV_LOG_WARNING,
                        "CrystalHD: mp4toannexb filter failed to filter "
                        "packet. Interlaced frames may be incorrectly "
                        "detected.\n");
             }

         }
 

         if (len < tx_free - 1024) {
             /*
              * Despite being notionally opaque, either libcrystalhd or
              * the hardware itself will mangle pts values that are too
              * small or too large. The docs claim it should be in units
              * of 100ns. Given that we're nominally dealing with a black
              * box on both sides, any transform we do has no guarantee of
              * avoiding mangling so we need to build a mapping to values
              * we know will not be mangled.
              */

             uint64_t pts = opaque_list_push(priv, avctx->internal->pkt->pts, pic_type);

             if (!pts) {

                 if (free_data) {
                     av_freep(&in_data);
                 }

                 return AVERROR(ENOMEM);
             }
             av_log(priv->avctx, AV_LOG_VERBOSE,
                    "input \"pts\": %"PRIu64"\n", pts);

             ret = DtsProcInput(dev, in_data, len, pts, 0);
             if (free_data) {
                 av_freep(&in_data);
             }

             if (ret == BC_STS_BUSY) {
                 av_log(avctx, AV_LOG_WARNING,
                        "CrystalHD: ProcInput returned busy\n");
                 usleep(BASE_WAIT);
                 return AVERROR(EBUSY);
             } else if (ret != BC_STS_SUCCESS) {
                 av_log(avctx, AV_LOG_ERROR,
                        "CrystalHD: ProcInput failed: %u\n", ret);
                 return -1;
             }
             avctx->has_b_frames++;
         } else {
             av_log(avctx, AV_LOG_WARNING, "CrystalHD: Input buffer full\n");
             len = 0; // We didn't consume any bytes.
         }
     } else {
         av_log(avctx, AV_LOG_INFO, "CrystalHD: No more input data\n");
     }
 
     if (priv->skip_next_output) {
         av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: Skipping next output.\n");
         priv->skip_next_output = 0;
         avctx->has_b_frames--;
         return len;
     }
 
     ret = DtsGetDriverStatus(dev, &decoder_status);
     if (ret != BC_STS_SUCCESS) {
         av_log(avctx, AV_LOG_ERROR, "CrystalHD: GetDriverStatus failed\n");
         return -1;
     }
 
     /*
      * No frames ready. Don't try to extract.
      *
      * Empirical testing shows that ReadyListCount can be a damn lie,
      * and ProcOut still fails when count > 0. The same testing showed
      * that two more iterations were needed before ProcOutput would
      * succeed.
      */
     if (priv->output_ready < 2) {
         if (decoder_status.ReadyListCount != 0)
             priv->output_ready++;
         usleep(BASE_WAIT);
         av_log(avctx, AV_LOG_INFO, "CrystalHD: Filling pipeline.\n");
         return len;
     } else if (decoder_status.ReadyListCount == 0) {
         /*
          * After the pipeline is established, if we encounter a lack of frames
          * that probably means we're not giving the hardware enough time to
          * decode them, so start increasing the wait time at the end of a
          * decode call.
          */
         usleep(BASE_WAIT);
         priv->decode_wait += WAIT_UNIT;
         av_log(avctx, AV_LOG_INFO, "CrystalHD: No frames ready. Returning\n");
         return len;
     }
 
     do {

         rec_ret = receive_frame(avctx, data, got_frame);
         if (rec_ret == RET_OK && *got_frame == 0) {

             /*
              * This case is for when the encoded fields are stored
              * separately and we get a separate avpkt for each one. To keep
              * the pipeline stable, we should return nothing and wait for
              * the next time round to grab the second field.
              * H.264 PAFF is an example of this.
              */
             av_log(avctx, AV_LOG_VERBOSE, "Returning after first field.\n");
             avctx->has_b_frames--;

         } else if (rec_ret == RET_COPY_NEXT_FIELD) {

             /*
              * This case is for when the encoded fields are stored in a
              * single avpkt but the hardware returns then separately. Unless
              * we grab the second field before returning, we'll slip another
              * frame in the pipeline and if that happens a lot, we're sunk.
              * So we have to get that second field now.
              * Interlaced mpeg2 and vc1 are examples of this.
              */
             av_log(avctx, AV_LOG_VERBOSE, "Trying to get second field.\n");
             while (1) {
                 usleep(priv->decode_wait);
                 ret = DtsGetDriverStatus(dev, &decoder_status);
                 if (ret == BC_STS_SUCCESS &&
                     decoder_status.ReadyListCount > 0) {

                     rec_ret = receive_frame(avctx, data, got_frame);
                     if ((rec_ret == RET_OK && *got_frame > 0) ||

                         rec_ret == RET_ERROR)
                         break;

                 }

             }
             av_log(avctx, AV_LOG_VERBOSE, "CrystalHD: Got second field.\n");

         } else if (rec_ret == RET_SKIP_NEXT_COPY) {
             /*
              * Two input packets got turned into a field pair. Gawd.
              */
             av_log(avctx, AV_LOG_VERBOSE,
                    "Don't output on next decode call.\n");
             priv->skip_next_output = 1;
         }
         /*
          * If rec_ret == RET_COPY_AGAIN, that means that either we just handled
          * a FMT_CHANGE event and need to go around again for the actual frame,
          * we got a busy status and need to try again, or we're dealing with
          * packed b-frames, where the hardware strangely returns the packed
          * p-frame twice. We choose to keep the second copy as it carries the
          * valid pts.
          */
     } while (rec_ret == RET_COPY_AGAIN);
     usleep(priv->decode_wait);
     return len;
 }
 
 
 #if CONFIG_H264_CRYSTALHD_DECODER

 static AVClass h264_class = {
     "h264_crystalhd",
     av_default_item_name,
     options,
     LIBAVUTIL_VERSION_INT,
 };
 

 AVCodec ff_h264_crystalhd_decoder = {
     .name           = "h264_crystalhd",

     .long_name      = NULL_IF_CONFIG_SMALL("H.264 / AVC / MPEG-4 AVC / MPEG-4 part 10 (CrystalHD acceleration)"),

     .type           = AVMEDIA_TYPE_VIDEO,

     .id             = AV_CODEC_ID_H264,

     .priv_data_size = sizeof(CHDContext),
     .init           = init,
     .close          = uninit,
     .decode         = decode,

     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_DELAY,

     .flush          = flush,

     .pix_fmts       = (const enum AVPixelFormat[]){AV_PIX_FMT_YUYV422, AV_PIX_FMT_NONE},

     .priv_class     = &h264_class,

 };
 #endif
 
 #if CONFIG_MPEG2_CRYSTALHD_DECODER

 static AVClass mpeg2_class = {
     "mpeg2_crystalhd",
     av_default_item_name,
     options,
     LIBAVUTIL_VERSION_INT,
 };
 

 AVCodec ff_mpeg2_crystalhd_decoder = {
     .name           = "mpeg2_crystalhd",

     .long_name      = NULL_IF_CONFIG_SMALL("MPEG-2 Video (CrystalHD acceleration)"),

     .type           = AVMEDIA_TYPE_VIDEO,

     .id             = AV_CODEC_ID_MPEG2VIDEO,

     .priv_data_size = sizeof(CHDContext),
     .init           = init,
     .close          = uninit,
     .decode         = decode,

     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_DELAY,

     .flush          = flush,

     .pix_fmts       = (const enum AVPixelFormat[]){AV_PIX_FMT_YUYV422, AV_PIX_FMT_NONE},

     .priv_class     = &mpeg2_class,

 };
 #endif
 
 #if CONFIG_MPEG4_CRYSTALHD_DECODER

 static AVClass mpeg4_class = {
     "mpeg4_crystalhd",
     av_default_item_name,
     options,
     LIBAVUTIL_VERSION_INT,
 };
 

 AVCodec ff_mpeg4_crystalhd_decoder = {
     .name           = "mpeg4_crystalhd",

     .long_name      = NULL_IF_CONFIG_SMALL("MPEG-4 Part 2 (CrystalHD acceleration)"),

     .type           = AVMEDIA_TYPE_VIDEO,

     .id             = AV_CODEC_ID_MPEG4,

     .priv_data_size = sizeof(CHDContext),
     .init           = init,
     .close          = uninit,
     .decode         = decode,

     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_DELAY,

     .flush          = flush,

     .pix_fmts       = (const enum AVPixelFormat[]){AV_PIX_FMT_YUYV422, AV_PIX_FMT_NONE},

     .priv_class     = &mpeg4_class,

 };
 #endif
 
 #if CONFIG_MSMPEG4_CRYSTALHD_DECODER

 static AVClass msmpeg4_class = {
     "msmpeg4_crystalhd",
     av_default_item_name,
     options,
     LIBAVUTIL_VERSION_INT,
 };
 

 AVCodec ff_msmpeg4_crystalhd_decoder = {
     .name           = "msmpeg4_crystalhd",

     .long_name      = NULL_IF_CONFIG_SMALL("MPEG-4 Part 2 Microsoft variant version 3 (CrystalHD acceleration)"),

     .type           = AVMEDIA_TYPE_VIDEO,

     .id             = AV_CODEC_ID_MSMPEG4V3,

     .priv_data_size = sizeof(CHDContext),
     .init           = init,
     .close          = uninit,
     .decode         = decode,

     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_DELAY | AV_CODEC_CAP_EXPERIMENTAL,

     .flush          = flush,

     .pix_fmts       = (const enum AVPixelFormat[]){AV_PIX_FMT_YUYV422, AV_PIX_FMT_NONE},

     .priv_class     = &msmpeg4_class,

 };
 #endif
 
 #if CONFIG_VC1_CRYSTALHD_DECODER

 static AVClass vc1_class = {
     "vc1_crystalhd",
     av_default_item_name,
     options,
     LIBAVUTIL_VERSION_INT,
 };
 

 AVCodec ff_vc1_crystalhd_decoder = {
     .name           = "vc1_crystalhd",

     .long_name      = NULL_IF_CONFIG_SMALL("SMPTE VC-1 (CrystalHD acceleration)"),

     .type           = AVMEDIA_TYPE_VIDEO,

     .id             = AV_CODEC_ID_VC1,

     .priv_data_size = sizeof(CHDContext),
     .init           = init,
     .close          = uninit,
     .decode         = decode,

     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_DELAY,

     .flush          = flush,

     .pix_fmts       = (const enum AVPixelFormat[]){AV_PIX_FMT_YUYV422, AV_PIX_FMT_NONE},

     .priv_class     = &vc1_class,

 };
 #endif
 
 #if CONFIG_WMV3_CRYSTALHD_DECODER

 static AVClass wmv3_class = {
     "wmv3_crystalhd",
     av_default_item_name,
     options,
     LIBAVUTIL_VERSION_INT,
 };
 

 AVCodec ff_wmv3_crystalhd_decoder = {
     .name           = "wmv3_crystalhd",

     .long_name      = NULL_IF_CONFIG_SMALL("Windows Media Video 9 (CrystalHD acceleration)"),

     .type           = AVMEDIA_TYPE_VIDEO,

     .id             = AV_CODEC_ID_WMV3,

     .priv_data_size = sizeof(CHDContext),
     .init           = init,
     .close          = uninit,
     .decode         = decode,

     .capabilities   = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_DELAY,

     .flush          = flush,

     .pix_fmts       = (const enum AVPixelFormat[]){AV_PIX_FMT_YUYV422, AV_PIX_FMT_NONE},

     .priv_class     = &wmv3_class,

 };
 #endif