yading@10: /*
yading@10:  * Dirac decoder support via Schroedinger libraries
yading@10:  * Copyright (c) 2008 BBC, Anuradha Suraparaju <asuraparaju at gmail dot com >
yading@10:  *
yading@10:  * This file is part of FFmpeg.
yading@10:  *
yading@10:  * FFmpeg is free software; you can redistribute it and/or
yading@10:  * modify it under the terms of the GNU Lesser General Public
yading@10:  * License as published by the Free Software Foundation; either
yading@10:  * version 2.1 of the License, or (at your option) any later version.
yading@10:  *
yading@10:  * FFmpeg is distributed in the hope that it will be useful,
yading@10:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
yading@10:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
yading@10:  * Lesser General Public License for more details.
yading@10:  *
yading@10:  * You should have received a copy of the GNU Lesser General Public
yading@10:  * License along with FFmpeg; if not, write to the Free Software
yading@10:  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
yading@10:  */
yading@10: 
yading@10: /**
yading@10: * @file
yading@10: * Dirac decoder support via libschroedinger-1.0 libraries. More details about
yading@10: * the Schroedinger project can be found at http://www.diracvideo.org/.
yading@10: * The library implements Dirac Specification Version 2.2.
yading@10: * (http://dirac.sourceforge.net/specification.html).
yading@10: */
yading@10: 
yading@10: #include <string.h>
yading@10: 
yading@10: #include "libavutil/imgutils.h"
yading@10: #include "libavutil/internal.h"
yading@10: #include "libavutil/intreadwrite.h"
yading@10: #include "libavutil/mem.h"
yading@10: #include "avcodec.h"
yading@10: #include "internal.h"
yading@10: #include "libschroedinger.h"
yading@10: 
yading@10: #include <schroedinger/schro.h>
yading@10: #include <schroedinger/schrodebug.h>
yading@10: #include <schroedinger/schrovideoformat.h>
yading@10: 
yading@10: /** SchroFrame and Pts relation */
yading@10: typedef struct LibSchroFrameContext {
yading@10:      SchroFrame *frame;
yading@10:      int64_t pts;
yading@10: } LibSchroFrameContext;
yading@10: 
yading@10: /** libschroedinger decoder private data */
yading@10: typedef struct SchroDecoderParams {
yading@10:     /** Schroedinger video format */
yading@10:     SchroVideoFormat *format;
yading@10: 
yading@10:     /** Schroedinger frame format */
yading@10:     SchroFrameFormat frame_format;
yading@10: 
yading@10:     /** decoder handle */
yading@10:     SchroDecoder* decoder;
yading@10: 
yading@10:     /** queue storing decoded frames */
yading@10:     FFSchroQueue dec_frame_queue;
yading@10: 
yading@10:     /** end of sequence signalled */
yading@10:     int eos_signalled;
yading@10: 
yading@10:     /** end of sequence pulled */
yading@10:     int eos_pulled;
yading@10: } SchroDecoderParams;
yading@10: 
yading@10: typedef struct SchroParseUnitContext {
yading@10:     const uint8_t *buf;
yading@10:     int           buf_size;
yading@10: } SchroParseUnitContext;
yading@10: 
yading@10: 
yading@10: static void libschroedinger_decode_buffer_free(SchroBuffer *schro_buf,
yading@10:                                                void *priv)
yading@10: {
yading@10:     av_freep(&priv);
yading@10: }
yading@10: 
yading@10: static void parse_context_init(SchroParseUnitContext *parse_ctx,
yading@10:                                const uint8_t *buf, int buf_size)
yading@10: {
yading@10:     parse_ctx->buf           = buf;
yading@10:     parse_ctx->buf_size      = buf_size;
yading@10: }
yading@10: 
yading@10: static SchroBuffer *find_next_parse_unit(SchroParseUnitContext *parse_ctx)
yading@10: {
yading@10:     SchroBuffer *enc_buf = NULL;
yading@10:     int next_pu_offset = 0;
yading@10:     unsigned char *in_buf;
yading@10: 
yading@10:     if (parse_ctx->buf_size < 13 ||
yading@10:         parse_ctx->buf[0] != 'B' ||
yading@10:         parse_ctx->buf[1] != 'B' ||
yading@10:         parse_ctx->buf[2] != 'C' ||
yading@10:         parse_ctx->buf[3] != 'D')
yading@10:         return NULL;
yading@10: 
yading@10:     next_pu_offset = (parse_ctx->buf[5] << 24) +
yading@10:                      (parse_ctx->buf[6] << 16) +
yading@10:                      (parse_ctx->buf[7] <<  8) +
yading@10:                       parse_ctx->buf[8];
yading@10: 
yading@10:     if (next_pu_offset == 0 &&
yading@10:         SCHRO_PARSE_CODE_IS_END_OF_SEQUENCE(parse_ctx->buf[4]))
yading@10:         next_pu_offset = 13;
yading@10: 
yading@10:     if (next_pu_offset <= 0 || parse_ctx->buf_size < next_pu_offset)
yading@10:         return NULL;
yading@10: 
yading@10:     in_buf = av_malloc(next_pu_offset);
yading@10:     if (!in_buf) {
yading@10:         av_log(parse_ctx, AV_LOG_ERROR, "Unable to allocate input buffer\n");
yading@10:         return NULL;
yading@10:     }
yading@10: 
yading@10:     memcpy(in_buf, parse_ctx->buf, next_pu_offset);
yading@10:     enc_buf       = schro_buffer_new_with_data(in_buf, next_pu_offset);
yading@10:     enc_buf->free = libschroedinger_decode_buffer_free;
yading@10:     enc_buf->priv = in_buf;
yading@10: 
yading@10:     parse_ctx->buf      += next_pu_offset;
yading@10:     parse_ctx->buf_size -= next_pu_offset;
yading@10: 
yading@10:     return enc_buf;
yading@10: }
yading@10: 
yading@10: /**
yading@10: * Returns FFmpeg chroma format.
yading@10: */
yading@10: static enum AVPixelFormat get_chroma_format(SchroChromaFormat schro_pix_fmt)
yading@10: {
yading@10:     int num_formats = sizeof(schro_pixel_format_map) /
yading@10:                       sizeof(schro_pixel_format_map[0]);
yading@10:     int idx;
yading@10: 
yading@10:     for (idx = 0; idx < num_formats; ++idx)
yading@10:         if (schro_pixel_format_map[idx].schro_pix_fmt == schro_pix_fmt)
yading@10:             return schro_pixel_format_map[idx].ff_pix_fmt;
yading@10:     return AV_PIX_FMT_NONE;
yading@10: }
yading@10: 
yading@10: static av_cold int libschroedinger_decode_init(AVCodecContext *avctx)
yading@10: {
yading@10: 
yading@10:     SchroDecoderParams *p_schro_params = avctx->priv_data;
yading@10:     /* First of all, initialize our supporting libraries. */
yading@10:     schro_init();
yading@10: 
yading@10:     schro_debug_set_level(avctx->debug);
yading@10:     p_schro_params->decoder = schro_decoder_new();
yading@10:     schro_decoder_set_skip_ratio(p_schro_params->decoder, 1);
yading@10: 
yading@10:     if (!p_schro_params->decoder)
yading@10:         return -1;
yading@10: 
yading@10:     /* Initialize the decoded frame queue. */
yading@10:     ff_schro_queue_init(&p_schro_params->dec_frame_queue);
yading@10:     return 0;
yading@10: }
yading@10: 
yading@10: static void libschroedinger_decode_frame_free(void *frame)
yading@10: {
yading@10:     schro_frame_unref(frame);
yading@10: }
yading@10: 
yading@10: static void libschroedinger_handle_first_access_unit(AVCodecContext *avctx)
yading@10: {
yading@10:     SchroDecoderParams *p_schro_params = avctx->priv_data;
yading@10:     SchroDecoder *decoder = p_schro_params->decoder;
yading@10: 
yading@10:     p_schro_params->format = schro_decoder_get_video_format(decoder);
yading@10: 
yading@10:     /* Tell FFmpeg about sequence details. */
yading@10:     if (av_image_check_size(p_schro_params->format->width,
yading@10:                             p_schro_params->format->height, 0, avctx) < 0) {
yading@10:         av_log(avctx, AV_LOG_ERROR, "invalid dimensions (%dx%d)\n",
yading@10:                p_schro_params->format->width, p_schro_params->format->height);
yading@10:         avctx->height = avctx->width = 0;
yading@10:         return;
yading@10:     }
yading@10:     avctx->height  = p_schro_params->format->height;
yading@10:     avctx->width   = p_schro_params->format->width;
yading@10:     avctx->pix_fmt = get_chroma_format(p_schro_params->format->chroma_format);
yading@10: 
yading@10:     if (ff_get_schro_frame_format(p_schro_params->format->chroma_format,
yading@10:                                   &p_schro_params->frame_format) == -1) {
yading@10:         av_log(avctx, AV_LOG_ERROR,
yading@10:                "This codec currently only supports planar YUV 4:2:0, 4:2:2 "
yading@10:                "and 4:4:4 formats.\n");
yading@10:         return;
yading@10:     }
yading@10: 
yading@10:     avctx->time_base.den = p_schro_params->format->frame_rate_numerator;
yading@10:     avctx->time_base.num = p_schro_params->format->frame_rate_denominator;
yading@10: }
yading@10: 
yading@10: static int libschroedinger_decode_frame(AVCodecContext *avctx,
yading@10:                                         void *data, int *got_frame,
yading@10:                                         AVPacket *avpkt)
yading@10: {
yading@10:     const uint8_t *buf = avpkt->data;
yading@10:     int buf_size = avpkt->size;
yading@10:     int64_t pts  = avpkt->pts;
yading@10:     SchroTag *tag;
yading@10: 
yading@10:     SchroDecoderParams *p_schro_params = avctx->priv_data;
yading@10:     SchroDecoder *decoder = p_schro_params->decoder;
yading@10:     SchroBuffer *enc_buf;
yading@10:     SchroFrame* frame;
yading@10:     AVFrame *avframe = data;
yading@10:     int state;
yading@10:     int go = 1;
yading@10:     int outer = 1;
yading@10:     SchroParseUnitContext parse_ctx;
yading@10:     LibSchroFrameContext *framewithpts = NULL;
yading@10: 
yading@10:     *got_frame = 0;
yading@10: 
yading@10:     parse_context_init(&parse_ctx, buf, buf_size);
yading@10:     if (!buf_size) {
yading@10:         if (!p_schro_params->eos_signalled) {
yading@10:             state = schro_decoder_push_end_of_stream(decoder);
yading@10:             p_schro_params->eos_signalled = 1;
yading@10:         }
yading@10:     }
yading@10: 
yading@10:     /* Loop through all the individual parse units in the input buffer */
yading@10:     do {
yading@10:         if ((enc_buf = find_next_parse_unit(&parse_ctx))) {
yading@10:             /* Set Schrotag with the pts to be recovered after decoding*/
yading@10:             enc_buf->tag = schro_tag_new(av_malloc(sizeof(int64_t)), av_free);
yading@10:             if (!enc_buf->tag->value) {
yading@10:                 av_log(avctx, AV_LOG_ERROR, "Unable to allocate SchroTag\n");
yading@10:                 return AVERROR(ENOMEM);
yading@10:             }
yading@10:             AV_WN(64, enc_buf->tag->value, pts);
yading@10:             /* Push buffer into decoder. */
yading@10:             if (SCHRO_PARSE_CODE_IS_PICTURE(enc_buf->data[4]) &&
yading@10:                 SCHRO_PARSE_CODE_NUM_REFS(enc_buf->data[4]) > 0)
yading@10:                 avctx->has_b_frames = 1;
yading@10:             state = schro_decoder_push(decoder, enc_buf);
yading@10:             if (state == SCHRO_DECODER_FIRST_ACCESS_UNIT)
yading@10:                 libschroedinger_handle_first_access_unit(avctx);
yading@10:             go = 1;
yading@10:         } else
yading@10:             outer = 0;
yading@10: 
yading@10:         while (go) {
yading@10:             /* Parse data and process result. */
yading@10:             state = schro_decoder_wait(decoder);
yading@10:             switch (state) {
yading@10:             case SCHRO_DECODER_FIRST_ACCESS_UNIT:
yading@10:                 libschroedinger_handle_first_access_unit(avctx);
yading@10:                 break;
yading@10: 
yading@10:             case SCHRO_DECODER_NEED_BITS:
yading@10:                 /* Need more input data - stop iterating over what we have. */
yading@10:                 go = 0;
yading@10:                 break;
yading@10: 
yading@10:             case SCHRO_DECODER_NEED_FRAME:
yading@10:                 /* Decoder needs a frame - create one and push it in. */
yading@10:                 frame = ff_create_schro_frame(avctx,
yading@10:                                               p_schro_params->frame_format);
yading@10:                 schro_decoder_add_output_picture(decoder, frame);
yading@10:                 break;
yading@10: 
yading@10:             case SCHRO_DECODER_OK:
yading@10:                 /* Pull a frame out of the decoder. */
yading@10:                 tag   = schro_decoder_get_picture_tag(decoder);
yading@10:                 frame = schro_decoder_pull(decoder);
yading@10: 
yading@10:                 if (frame) {
yading@10:                     /* Add relation between schroframe and pts. */
yading@10:                     framewithpts = av_malloc(sizeof(LibSchroFrameContext));
yading@10:                     if (!framewithpts) {
yading@10:                         av_log(avctx, AV_LOG_ERROR, "Unable to allocate FrameWithPts\n");
yading@10:                         return AVERROR(ENOMEM);
yading@10:                     }
yading@10:                     framewithpts->frame = frame;
yading@10:                     framewithpts->pts   = AV_RN64(tag->value);
yading@10:                     ff_schro_queue_push_back(&p_schro_params->dec_frame_queue,
yading@10:                                              framewithpts);
yading@10:                 }
yading@10:                 break;
yading@10:             case SCHRO_DECODER_EOS:
yading@10:                 go = 0;
yading@10:                 p_schro_params->eos_pulled = 1;
yading@10:                 schro_decoder_reset(decoder);
yading@10:                 outer = 0;
yading@10:                 break;
yading@10: 
yading@10:             case SCHRO_DECODER_ERROR:
yading@10:                 return -1;
yading@10:                 break;
yading@10:             }
yading@10:         }
yading@10:     } while (outer);
yading@10: 
yading@10:     /* Grab next frame to be returned from the top of the queue. */
yading@10:     framewithpts = ff_schro_queue_pop(&p_schro_params->dec_frame_queue);
yading@10: 
yading@10:     if (framewithpts && framewithpts->frame) {
yading@10:         int ret;
yading@10: 
yading@10:         if ((ret = ff_get_buffer(avctx, avframe, 0)) < 0)
yading@10:             return ret;
yading@10: 
yading@10:         memcpy(avframe->data[0],
yading@10:                framewithpts->frame->components[0].data,
yading@10:                framewithpts->frame->components[0].length);
yading@10: 
yading@10:         memcpy(avframe->data[1],
yading@10:                framewithpts->frame->components[1].data,
yading@10:                framewithpts->frame->components[1].length);
yading@10: 
yading@10:         memcpy(avframe->data[2],
yading@10:                framewithpts->frame->components[2].data,
yading@10:                framewithpts->frame->components[2].length);
yading@10: 
yading@10:         /* Fill frame with current buffer data from Schroedinger. */
yading@10:         avframe->pkt_pts = framewithpts->pts;
yading@10:         avframe->linesize[0] = framewithpts->frame->components[0].stride;
yading@10:         avframe->linesize[1] = framewithpts->frame->components[1].stride;
yading@10:         avframe->linesize[2] = framewithpts->frame->components[2].stride;
yading@10: 
yading@10:         *got_frame      = 1;
yading@10: 
yading@10:         /* Now free the frame resources. */
yading@10:         libschroedinger_decode_frame_free(framewithpts->frame);
yading@10:         av_free(framewithpts);
yading@10:     } else {
yading@10:         data       = NULL;
yading@10:         *got_frame = 0;
yading@10:     }
yading@10:     return buf_size;
yading@10: }
yading@10: 
yading@10: 
yading@10: static av_cold int libschroedinger_decode_close(AVCodecContext *avctx)
yading@10: {
yading@10:     SchroDecoderParams *p_schro_params = avctx->priv_data;
yading@10:     /* Free the decoder. */
yading@10:     schro_decoder_free(p_schro_params->decoder);
yading@10:     av_freep(&p_schro_params->format);
yading@10: 
yading@10:     /* Free data in the output frame queue. */
yading@10:     ff_schro_queue_free(&p_schro_params->dec_frame_queue,
yading@10:                         libschroedinger_decode_frame_free);
yading@10: 
yading@10:     return 0;
yading@10: }
yading@10: 
yading@10: static void libschroedinger_flush(AVCodecContext *avctx)
yading@10: {
yading@10:     /* Got a seek request. Free the decoded frames queue and then reset
yading@10:      * the decoder */
yading@10:     SchroDecoderParams *p_schro_params = avctx->priv_data;
yading@10: 
yading@10:     /* Free data in the output frame queue. */
yading@10:     ff_schro_queue_free(&p_schro_params->dec_frame_queue,
yading@10:                         libschroedinger_decode_frame_free);
yading@10: 
yading@10:     ff_schro_queue_init(&p_schro_params->dec_frame_queue);
yading@10:     schro_decoder_reset(p_schro_params->decoder);
yading@10:     p_schro_params->eos_pulled = 0;
yading@10:     p_schro_params->eos_signalled = 0;
yading@10: }
yading@10: 
yading@10: AVCodec ff_libschroedinger_decoder = {
yading@10:     .name           = "libschroedinger",
yading@10:     .type           = AVMEDIA_TYPE_VIDEO,
yading@10:     .id             = AV_CODEC_ID_DIRAC,
yading@10:     .priv_data_size = sizeof(SchroDecoderParams),
yading@10:     .init           = libschroedinger_decode_init,
yading@10:     .close          = libschroedinger_decode_close,
yading@10:     .decode         = libschroedinger_decode_frame,
yading@10:     .capabilities   = CODEC_CAP_DELAY,
yading@10:     .flush          = libschroedinger_flush,
yading@10:     .long_name      = NULL_IF_CONFIG_SMALL("libschroedinger Dirac 2.2"),
yading@10: };