tiertexseqv.c 7.65 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
/*
 * Tiertex Limited SEQ Video Decoder
 * Copyright (c) 2006 Gregory Montoir (cyx@users.sourceforge.net)
 *
 * This file is part of FFmpeg.
 *
 * FFmpeg is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * FFmpeg is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with FFmpeg; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

/**
23
 * @file
24 25 26 27
 * Tiertex Limited SEQ video decoder
 */

#include "avcodec.h"
28
#define BITSTREAM_READER_LE
29
#include "get_bits.h"
30
#include "internal.h"
31 32 33 34 35 36 37 38


typedef struct SeqVideoContext {
    AVCodecContext *avctx;
    AVFrame frame;
} SeqVideoContext;


39 40 41
static const unsigned char *seq_unpack_rle_block(const unsigned char *src,
                                                 const unsigned char *src_end,
                                                 unsigned char *dst, int dst_size)
42 43 44 45 46
{
    int i, len, sz;
    GetBitContext gb;
    int code_table[64];

47 48
    /* get the rle codes */
    init_get_bits(&gb, src, (src_end - src) * 8);
49
    for (i = 0, sz = 0; i < 64 && sz < dst_size; i++) {
50 51
        if (get_bits_left(&gb) < 4)
            return NULL;
52 53 54 55 56 57 58 59 60 61
        code_table[i] = get_sbits(&gb, 4);
        sz += FFABS(code_table[i]);
    }
    src += (get_bits_count(&gb) + 7) / 8;

    /* do the rle unpacking */
    for (i = 0; i < 64 && dst_size > 0; i++) {
        len = code_table[i];
        if (len < 0) {
            len = -len;
62 63
            if (src_end - src < 1)
                return NULL;
64 65
            memset(dst, *src++, FFMIN(len, dst_size));
        } else {
66 67
            if (src_end - src < len)
                return NULL;
68 69 70 71 72 73 74 75 76
            memcpy(dst, src, FFMIN(len, dst_size));
            src += len;
        }
        dst += len;
        dst_size -= len;
    }
    return src;
}

77 78 79 80
static const unsigned char *seq_decode_op1(SeqVideoContext *seq,
                                           const unsigned char *src,
                                           const unsigned char *src_end,
                                           unsigned char *dst)
81
{
Michael Niedermayer's avatar
Michael Niedermayer committed
82
    const unsigned char *color_table;
83 84
    int b, i, len, bits;
    GetBitContext gb;
85
    unsigned char block[8 * 8];
86

87 88
    if (src_end - src < 1)
        return NULL;
89 90 91 92
    len = *src++;
    if (len & 0x80) {
        switch (len & 3) {
        case 1:
93
            src = seq_unpack_rle_block(src, src_end, block, sizeof(block));
94
            for (b = 0; b < 8; b++) {
95
                memcpy(dst, &block[b * 8], 8);
96 97 98 99
                dst += seq->frame.linesize[0];
            }
            break;
        case 2:
100
            src = seq_unpack_rle_block(src, src_end, block, sizeof(block));
101 102
            for (i = 0; i < 8; i++) {
                for (b = 0; b < 8; b++)
103
                    dst[b * seq->frame.linesize[0]] = block[i * 8 + b];
104 105 106 107 108
                ++dst;
            }
            break;
        }
    } else {
109 110 111 112 113
        if (len <= 0)
            return NULL;
        bits = ff_log2_tab[len - 1] + 1;
        if (src_end - src < len + 8 * bits)
            return NULL;
114 115 116 117 118 119 120 121 122 123 124 125 126
        color_table = src;
        src += len;
        init_get_bits(&gb, src, bits * 8 * 8); src += bits * 8;
        for (b = 0; b < 8; b++) {
            for (i = 0; i < 8; i++)
                dst[i] = color_table[get_bits(&gb, bits)];
            dst += seq->frame.linesize[0];
        }
    }

    return src;
}

127 128 129 130
static const unsigned char *seq_decode_op2(SeqVideoContext *seq,
                                           const unsigned char *src,
                                           const unsigned char *src_end,
                                           unsigned char *dst)
131 132 133
{
    int i;

134 135 136
    if (src_end - src < 8 * 8)
        return NULL;

137 138 139 140 141 142 143 144 145
    for (i = 0; i < 8; i++) {
        memcpy(dst, src, 8);
        src += 8;
        dst += seq->frame.linesize[0];
    }

    return src;
}

146 147 148 149
static const unsigned char *seq_decode_op3(SeqVideoContext *seq,
                                           const unsigned char *src,
                                           const unsigned char *src_end,
                                           unsigned char *dst)
150 151 152 153
{
    int pos, offset;

    do {
154 155
        if (src_end - src < 2)
            return NULL;
156 157 158 159 160 161 162 163
        pos = *src++;
        offset = ((pos >> 3) & 7) * seq->frame.linesize[0] + (pos & 7);
        dst[offset] = *src++;
    } while (!(pos & 0x80));

    return src;
}

164
static int seqvideo_decode(SeqVideoContext *seq, const unsigned char *data, int data_size)
165
{
166
    const unsigned char *data_end = data + data_size;
167 168 169 170
    GetBitContext gb;
    int flags, i, j, x, y, op;
    unsigned char c[3];
    unsigned char *dst;
171
    uint32_t *palette;
172 173 174 175

    flags = *data++;

    if (flags & 1) {
176
        palette = (uint32_t *)seq->frame.data[1];
177 178
        if (data_end - data < 256 * 3)
            return AVERROR_INVALIDDATA;
179 180 181
        for (i = 0; i < 256; i++) {
            for (j = 0; j < 3; j++, data++)
                c[j] = (*data << 2) | (*data >> 4);
182
            palette[i] = 0xFFU << 24 | AV_RB24(c);
183 184 185 186 187
        }
        seq->frame.palette_has_changed = 1;
    }

    if (flags & 2) {
188 189
        if (data_end - data < 128)
            return AVERROR_INVALIDDATA;
190 191 192 193 194 195 196
        init_get_bits(&gb, data, 128 * 8); data += 128;
        for (y = 0; y < 128; y += 8)
            for (x = 0; x < 256; x += 8) {
                dst = &seq->frame.data[0][y * seq->frame.linesize[0] + x];
                op = get_bits(&gb, 2);
                switch (op) {
                case 1:
197
                    data = seq_decode_op1(seq, data, data_end, dst);
198 199
                    break;
                case 2:
200
                    data = seq_decode_op2(seq, data, data_end, dst);
201 202
                    break;
                case 3:
203
                    data = seq_decode_op3(seq, data, data_end, dst);
204 205
                    break;
                }
206 207
                if (!data)
                    return AVERROR_INVALIDDATA;
208 209
            }
    }
210
    return 0;
211 212
}

213
static av_cold int seqvideo_decode_init(AVCodecContext *avctx)
214
{
215
    SeqVideoContext *seq = avctx->priv_data;
216 217

    seq->avctx = avctx;
218
    avctx->pix_fmt = AV_PIX_FMT_PAL8;
219

220
    avcodec_get_frame_defaults(&seq->frame);
221 222 223 224

    return 0;
}

225
static int seqvideo_decode_frame(AVCodecContext *avctx,
226
                                 void *data, int *got_frame,
227
                                 AVPacket *avpkt)
228
{
229 230
    const uint8_t *buf = avpkt->data;
    int buf_size = avpkt->size;
231
    int ret;
232

233
    SeqVideoContext *seq = avctx->priv_data;
234

235
    if ((ret = ff_reget_buffer(avctx, &seq->frame)) < 0)
236
        return ret;
237

238 239
    if (seqvideo_decode(seq, buf, buf_size))
        return AVERROR_INVALIDDATA;
240

241 242
    if ((ret = av_frame_ref(data, &seq->frame)) < 0)
        return ret;
243
    *got_frame       = 1;
244 245 246 247

    return buf_size;
}

248
static av_cold int seqvideo_decode_end(AVCodecContext *avctx)
249
{
250
    SeqVideoContext *seq = avctx->priv_data;
251

252
    av_frame_unref(&seq->frame);
253 254 255 256

    return 0;
}

257
AVCodec ff_tiertexseqvideo_decoder = {
258 259
    .name           = "tiertexseqvideo",
    .type           = AVMEDIA_TYPE_VIDEO,
260
    .id             = AV_CODEC_ID_TIERTEXSEQVIDEO,
261 262 263 264 265
    .priv_data_size = sizeof(SeqVideoContext),
    .init           = seqvideo_decode_init,
    .close          = seqvideo_decode_end,
    .decode         = seqvideo_decode_frame,
    .capabilities   = CODEC_CAP_DR1,
266
    .long_name      = NULL_IF_CONFIG_SMALL("Tiertex Limited SEQ video"),
267
};