asvdec.c 9.95 KB
Newer Older
1 2 3
/*
 * Copyright (c) 2003 Michael Niedermayer
 *
4
 * This file is part of FFmpeg.
5
 *
6
 * FFmpeg is free software; you can redistribute it and/or
7 8 9 10
 * 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.
 *
11
 * FFmpeg is distributed in the hope that it will be useful,
12 13 14 15 16
 * 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
17
 * License along with FFmpeg; if not, write to the Free Software
18 19 20 21 22 23 24 25
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

/**
 * @file
 * ASUS V1/V2 decoder.
 */

26
#include "libavutil/attributes.h"
27 28 29 30
#include "libavutil/mem.h"

#include "asv.h"
#include "avcodec.h"
31
#include "internal.h"
32
#include "mathops.h"
33 34 35 36 37 38 39 40 41 42 43
#include "mpeg12data.h"

#define VLC_BITS 6
#define ASV2_LEVEL_VLC_BITS 10

static VLC ccp_vlc;
static VLC level_vlc;
static VLC dc_ccp_vlc;
static VLC ac_ccp_vlc;
static VLC asv2_level_vlc;

44 45
static av_cold void init_vlcs(ASV1Context *a)
{
46 47 48 49 50 51
    static int done = 0;

    if (!done) {
        done = 1;

        INIT_VLC_STATIC(&ccp_vlc, VLC_BITS, 17,
52 53
                        &ff_asv_ccp_tab[0][1], 2, 1,
                        &ff_asv_ccp_tab[0][0], 2, 1, 64);
54
        INIT_VLC_STATIC(&dc_ccp_vlc, VLC_BITS, 8,
55 56
                        &ff_asv_dc_ccp_tab[0][1], 2, 1,
                        &ff_asv_dc_ccp_tab[0][0], 2, 1, 64);
57
        INIT_VLC_STATIC(&ac_ccp_vlc, VLC_BITS, 16,
58 59
                        &ff_asv_ac_ccp_tab[0][1], 2, 1,
                        &ff_asv_ac_ccp_tab[0][0], 2, 1, 64);
60
        INIT_VLC_STATIC(&level_vlc,  VLC_BITS, 7,
61 62
                        &ff_asv_level_tab[0][1], 2, 1,
                        &ff_asv_level_tab[0][0], 2, 1, 64);
63
        INIT_VLC_STATIC(&asv2_level_vlc, ASV2_LEVEL_VLC_BITS, 63,
64 65
                        &ff_asv2_level_tab[0][1], 2, 1,
                        &ff_asv2_level_tab[0][0], 2, 1, 1024);
66 67 68 69
    }
}

//FIXME write a reversed bitstream reader to avoid the double reverse
70 71 72
static inline int asv2_get_bits(GetBitContext *gb, int n)
{
    return ff_reverse[get_bits(gb, n) << (8-n)];
73 74
}

75 76 77
static inline int asv1_get_level(GetBitContext *gb)
{
    int code = get_vlc2(gb, level_vlc.table, VLC_BITS, 1);
78

79 80 81 82
    if (code == 3)
        return get_sbits(gb, 8);
    else
        return code - 3;
83 84
}

85 86 87
static inline int asv2_get_level(GetBitContext *gb)
{
    int code = get_vlc2(gb, asv2_level_vlc.table, ASV2_LEVEL_VLC_BITS, 1);
88

89 90 91 92
    if (code == 31)
        return (int8_t)asv2_get_bits(gb, 8);
    else
        return code - 31;
93 94
}

Diego Biurrun's avatar
Diego Biurrun committed
95
static inline int asv1_decode_block(ASV1Context *a, int16_t block[64])
96
{
97 98
    int i;

99
    block[0] = 8 * get_bits(&a->gb, 8);
100

101 102
    for (i = 0; i < 11; i++) {
        const int ccp = get_vlc2(&a->gb, ccp_vlc.table, VLC_BITS, 1);
103

104 105 106 107
        if (ccp) {
            if (ccp == 16)
                break;
            if (ccp < 0 || i >= 10) {
108
                av_log(a->avctx, AV_LOG_ERROR, "coded coeff pattern damaged\n");
109
                return AVERROR_INVALIDDATA;
110 111
            }

112 113 114 115 116 117 118 119
            if (ccp & 8)
                block[a->scantable.permutated[4 * i + 0]] = (asv1_get_level(&a->gb) * a->intra_matrix[4 * i + 0]) >> 4;
            if (ccp & 4)
                block[a->scantable.permutated[4 * i + 1]] = (asv1_get_level(&a->gb) * a->intra_matrix[4 * i + 1]) >> 4;
            if (ccp & 2)
                block[a->scantable.permutated[4 * i + 2]] = (asv1_get_level(&a->gb) * a->intra_matrix[4 * i + 2]) >> 4;
            if (ccp & 1)
                block[a->scantable.permutated[4 * i + 3]] = (asv1_get_level(&a->gb) * a->intra_matrix[4 * i + 3]) >> 4;
120 121 122 123 124 125
        }
    }

    return 0;
}

Diego Biurrun's avatar
Diego Biurrun committed
126
static inline int asv2_decode_block(ASV1Context *a, int16_t block[64])
127
{
128 129
    int i, count, ccp;

130
    count = asv2_get_bits(&a->gb, 4);
131

132
    block[0] = 8 * asv2_get_bits(&a->gb, 8);
133

134 135 136 137 138 139 140 141
    ccp = get_vlc2(&a->gb, dc_ccp_vlc.table, VLC_BITS, 1);
    if (ccp) {
        if (ccp & 4)
            block[a->scantable.permutated[1]] = (asv2_get_level(&a->gb) * a->intra_matrix[1]) >> 4;
        if (ccp & 2)
            block[a->scantable.permutated[2]] = (asv2_get_level(&a->gb) * a->intra_matrix[2]) >> 4;
        if (ccp & 1)
            block[a->scantable.permutated[3]] = (asv2_get_level(&a->gb) * a->intra_matrix[3]) >> 4;
142 143
    }

144 145 146 147 148 149 150 151 152 153 154 155
    for (i = 1; i < count + 1; i++) {
        const int ccp = get_vlc2(&a->gb, ac_ccp_vlc.table, VLC_BITS, 1);

        if (ccp) {
            if (ccp & 8)
                block[a->scantable.permutated[4*i + 0]] = (asv2_get_level(&a->gb) * a->intra_matrix[4*i + 0]) >> 4;
            if (ccp & 4)
                block[a->scantable.permutated[4*i + 1]] = (asv2_get_level(&a->gb) * a->intra_matrix[4*i + 1]) >> 4;
            if (ccp & 2)
                block[a->scantable.permutated[4*i + 2]] = (asv2_get_level(&a->gb) * a->intra_matrix[4*i + 2]) >> 4;
            if (ccp & 1)
                block[a->scantable.permutated[4*i + 3]] = (asv2_get_level(&a->gb) * a->intra_matrix[4*i + 3]) >> 4;
156 157 158 159 160 161
        }
    }

    return 0;
}

Diego Biurrun's avatar
Diego Biurrun committed
162
static inline int decode_mb(ASV1Context *a, int16_t block[6][64])
163
{
164 165 166 167
    int i;

    a->dsp.clear_blocks(block[0]);

168 169 170
    if (a->avctx->codec_id == AV_CODEC_ID_ASV1) {
        for (i = 0; i < 6; i++) {
            if (asv1_decode_block(a, block[i]) < 0)
171 172
                return -1;
        }
173 174 175
    } else {
        for (i = 0; i < 6; i++) {
            if (asv2_decode_block(a, block[i]) < 0)
176 177 178 179 180 181
                return -1;
        }
    }
    return 0;
}

182
static inline void idct_put(ASV1Context *a, AVFrame *frame, int mb_x, int mb_y)
183
{
Diego Biurrun's avatar
Diego Biurrun committed
184
    int16_t (*block)[64] = a->block;
185
    int linesize         = frame->linesize[0];
186

187 188 189
    uint8_t *dest_y  = frame->data[0] + (mb_y * 16* linesize              ) + mb_x * 16;
    uint8_t *dest_cb = frame->data[1] + (mb_y * 8 * frame->linesize[1]) + mb_x * 8;
    uint8_t *dest_cr = frame->data[2] + (mb_y * 8 * frame->linesize[2]) + mb_x * 8;
190 191 192 193 194 195

    a->dsp.idct_put(dest_y                 , linesize, block[0]);
    a->dsp.idct_put(dest_y              + 8, linesize, block[1]);
    a->dsp.idct_put(dest_y + 8*linesize    , linesize, block[2]);
    a->dsp.idct_put(dest_y + 8*linesize + 8, linesize, block[3]);

196
    if (!(a->avctx->flags&CODEC_FLAG_GRAY)) {
197 198
        a->dsp.idct_put(dest_cb, frame->linesize[1], block[4]);
        a->dsp.idct_put(dest_cr, frame->linesize[2], block[5]);
199 200 201 202
    }
}

static int decode_frame(AVCodecContext *avctx,
203
                        void *data, int *got_frame,
204 205 206
                        AVPacket *avpkt)
{
    ASV1Context * const a = avctx->priv_data;
207 208
    const uint8_t *buf    = avpkt->data;
    int buf_size          = avpkt->size;
209
    AVFrame * const p     = data;
210
    int mb_x, mb_y, ret;
211

212
    if ((ret = ff_get_buffer(avctx, p, 0)) < 0)
213
        return ret;
214 215
    p->pict_type = AV_PICTURE_TYPE_I;
    p->key_frame = 1;
216 217 218 219 220 221

    av_fast_padded_malloc(&a->bitstream_buffer, &a->bitstream_buffer_size,
                          buf_size);
    if (!a->bitstream_buffer)
        return AVERROR(ENOMEM);

222
    if (avctx->codec_id == AV_CODEC_ID_ASV1)
223
        a->dsp.bswap_buf((uint32_t*)a->bitstream_buffer, (const uint32_t*)buf, buf_size/4);
224
    else {
225
        int i;
226 227
        for (i = 0; i < buf_size; i++)
            a->bitstream_buffer[i] = ff_reverse[buf[i]];
228 229 230 231
    }

    init_get_bits(&a->gb, a->bitstream_buffer, buf_size*8);

232 233
    for (mb_y = 0; mb_y < a->mb_height2; mb_y++) {
        for (mb_x = 0; mb_x < a->mb_width2; mb_x++) {
234 235
            if ((ret = decode_mb(a, a->block)) < 0)
                return ret;
236

237
            idct_put(a, p, mb_x, mb_y);
238 239 240
        }
    }

241 242 243
    if (a->mb_width2 != a->mb_width) {
        mb_x = a->mb_width2;
        for (mb_y = 0; mb_y < a->mb_height2; mb_y++) {
244 245
            if ((ret = decode_mb(a, a->block)) < 0)
                return ret;
246

247
            idct_put(a, p, mb_x, mb_y);
248 249 250
        }
    }

251 252 253
    if (a->mb_height2 != a->mb_height) {
        mb_y = a->mb_height2;
        for (mb_x = 0; mb_x < a->mb_width; mb_x++) {
254 255
            if ((ret = decode_mb(a, a->block)) < 0)
                return ret;
256

257
            idct_put(a, p, mb_x, mb_y);
258 259 260
        }
    }

261
    *got_frame = 1;
262 263 264

    emms_c();

265
    return (get_bits_count(&a->gb) + 31) / 32 * 4;
266 267
}

268 269
static av_cold int decode_init(AVCodecContext *avctx)
{
270
    ASV1Context * const a = avctx->priv_data;
271
    const int scale       = avctx->codec_id == AV_CODEC_ID_ASV1 ? 1 : 2;
272 273 274 275 276
    int i;

    ff_asv_common_init(avctx);
    init_vlcs(a);
    ff_init_scantable(a->dsp.idct_permutation, &a->scantable, ff_asv_scantab);
277
    avctx->pix_fmt = AV_PIX_FMT_YUV420P;
278

279
    if (avctx->extradata_size < 1 || (a->inv_qscale = avctx->extradata[0]) == 0) {
280
        av_log(avctx, AV_LOG_ERROR, "illegal qscale 0\n");
281 282
        if (avctx->codec_id == AV_CODEC_ID_ASV1)
            a->inv_qscale = 6;
283
        else
284
            a->inv_qscale = 10;
285 286
    }

287
    for (i = 0; i < 64; i++) {
288 289
        int index = ff_asv_scantab[i];

290
        a->intra_matrix[i] = 64 * scale * ff_mpeg1_default_intra_matrix[index] / a->inv_qscale;
291 292 293 294 295
    }

    return 0;
}

296 297
static av_cold int decode_end(AVCodecContext *avctx)
{
298 299 300
    ASV1Context * const a = avctx->priv_data;

    av_freep(&a->bitstream_buffer);
301
    a->bitstream_buffer_size = 0;
302 303 304 305

    return 0;
}

306
#if CONFIG_ASV1_DECODER
307 308 309 310 311 312 313 314 315 316 317
AVCodec ff_asv1_decoder = {
    .name           = "asv1",
    .type           = AVMEDIA_TYPE_VIDEO,
    .id             = AV_CODEC_ID_ASV1,
    .priv_data_size = sizeof(ASV1Context),
    .init           = decode_init,
    .close          = decode_end,
    .decode         = decode_frame,
    .capabilities   = CODEC_CAP_DR1,
    .long_name      = NULL_IF_CONFIG_SMALL("ASUS V1"),
};
318
#endif
319

320
#if CONFIG_ASV2_DECODER
321 322 323 324 325 326 327 328 329 330 331
AVCodec ff_asv2_decoder = {
    .name           = "asv2",
    .type           = AVMEDIA_TYPE_VIDEO,
    .id             = AV_CODEC_ID_ASV2,
    .priv_data_size = sizeof(ASV1Context),
    .init           = decode_init,
    .close          = decode_end,
    .decode         = decode_frame,
    .capabilities   = CODEC_CAP_DR1,
    .long_name      = NULL_IF_CONFIG_SMALL("ASUS V2"),
};
332
#endif
333