webp.c

Go to the documentation of this file.

/*
 * WebP (.webp) image decoder
 * Copyright (c) 2013 Aneesh Dogra <aneesh@sugarlabs.org>
 * Copyright (c) 2013 Justin Ruggles <justin.ruggles@gmail.com>
 * Copyright (c) 2020 Pexeso Inc.
 *
 * 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
 */
 
/**
 * @file
 * WebP image decoder
 *
 * @author Aneesh Dogra <aneesh@sugarlabs.org>
 * Container and Lossy decoding
 *
 * @author Justin Ruggles <justin.ruggles@gmail.com>
 * Lossless decoder
 * Compressed alpha for lossy
 *
 * @author James Almer <jamrial@gmail.com>
 * Exif metadata
 * ICC profile
 *
 * @author Thilo Borgmann <thilo.borgmann _at_ mail.de>
 * XMP metadata
 *
 * @author Josef Zlomek, Pexeso Inc. <josef@pex.com>
 * Animation
 */
 
#include "config_components.h"
 
#include "libavutil/colorspace.h"
#include "libavutil/imgutils.h"
#include "libavutil/mem.h"
 
#define BITSTREAM_READER_LE
#include "avcodec.h"
#include "bytestream.h"
#include "codec_internal.h"
#include "decode.h"
#include "exif_internal.h"
#include "get_bits.h"
#include "thread.h"
#include "tiff_common.h"
#include "vp8.h"
 
#define VP8X_FLAG_ANIMATION             0x02
#define VP8X_FLAG_XMP_METADATA          0x04
#define VP8X_FLAG_EXIF_METADATA         0x08
#define VP8X_FLAG_ALPHA                 0x10
#define VP8X_FLAG_ICC                   0x20
 
#define MAX_PALETTE_SIZE                256
#define MAX_CACHE_BITS                  11
#define NUM_CODE_LENGTH_CODES           19
#define HUFFMAN_CODES_PER_META_CODE     5
#define NUM_LITERAL_CODES               256
#define NUM_LENGTH_CODES                24
#define NUM_DISTANCE_CODES              40
#define NUM_SHORT_DISTANCES             120
#define MAX_HUFFMAN_CODE_LENGTH         15
 
static const uint16_t alphabet_sizes[HUFFMAN_CODES_PER_META_CODE] = {
    NUM_LITERAL_CODES + NUM_LENGTH_CODES,
    NUM_LITERAL_CODES, NUM_LITERAL_CODES, NUM_LITERAL_CODES,
    NUM_DISTANCE_CODES
};
 
static const uint8_t code_length_code_order[NUM_CODE_LENGTH_CODES] = {
    17, 18, 0, 1, 2, 3, 4, 5, 16, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
};
 
static const int8_t lz77_distance_offsets[NUM_SHORT_DISTANCES][2] = {
    {  0, 1 }, {  1, 0 }, {  1, 1 }, { -1, 1 }, {  0, 2 }, {  2, 0 }, {  1, 2 }, { -1, 2 },
    {  2, 1 }, { -2, 1 }, {  2, 2 }, { -2, 2 }, {  0, 3 }, {  3, 0 }, {  1, 3 }, { -1, 3 },
    {  3, 1 }, { -3, 1 }, {  2, 3 }, { -2, 3 }, {  3, 2 }, { -3, 2 }, {  0, 4 }, {  4, 0 },
    {  1, 4 }, { -1, 4 }, {  4, 1 }, { -4, 1 }, {  3, 3 }, { -3, 3 }, {  2, 4 }, { -2, 4 },
    {  4, 2 }, { -4, 2 }, {  0, 5 }, {  3, 4 }, { -3, 4 }, {  4, 3 }, { -4, 3 }, {  5, 0 },
    {  1, 5 }, { -1, 5 }, {  5, 1 }, { -5, 1 }, {  2, 5 }, { -2, 5 }, {  5, 2 }, { -5, 2 },
    {  4, 4 }, { -4, 4 }, {  3, 5 }, { -3, 5 }, {  5, 3 }, { -5, 3 }, {  0, 6 }, {  6, 0 },
    {  1, 6 }, { -1, 6 }, {  6, 1 }, { -6, 1 }, {  2, 6 }, { -2, 6 }, {  6, 2 }, { -6, 2 },
    {  4, 5 }, { -4, 5 }, {  5, 4 }, { -5, 4 }, {  3, 6 }, { -3, 6 }, {  6, 3 }, { -6, 3 },
    {  0, 7 }, {  7, 0 }, {  1, 7 }, { -1, 7 }, {  5, 5 }, { -5, 5 }, {  7, 1 }, { -7, 1 },
    {  4, 6 }, { -4, 6 }, {  6, 4 }, { -6, 4 }, {  2, 7 }, { -2, 7 }, {  7, 2 }, { -7, 2 },
    {  3, 7 }, { -3, 7 }, {  7, 3 }, { -7, 3 }, {  5, 6 }, { -5, 6 }, {  6, 5 }, { -6, 5 },
    {  8, 0 }, {  4, 7 }, { -4, 7 }, {  7, 4 }, { -7, 4 }, {  8, 1 }, {  8, 2 }, {  6, 6 },
    { -6, 6 }, {  8, 3 }, {  5, 7 }, { -5, 7 }, {  7, 5 }, { -7, 5 }, {  8, 4 }, {  6, 7 },
    { -6, 7 }, {  7, 6 }, { -7, 6 }, {  8, 5 }, {  7, 7 }, { -7, 7 }, {  8, 6 }, {  8, 7 }
};
 
enum AlphaCompression {
    ALPHA_COMPRESSION_NONE,
    ALPHA_COMPRESSION_VP8L,
};
 
enum AlphaFilter {
    ALPHA_FILTER_NONE,
    ALPHA_FILTER_HORIZONTAL,
    ALPHA_FILTER_VERTICAL,
    ALPHA_FILTER_GRADIENT,
};
 
enum TransformType {
    PREDICTOR_TRANSFORM      = 0,
    COLOR_TRANSFORM          = 1,
    SUBTRACT_GREEN           = 2,
    COLOR_INDEXING_TRANSFORM = 3,
};
 
enum PredictionMode {
    PRED_MODE_BLACK,
    PRED_MODE_L,
    PRED_MODE_T,
    PRED_MODE_TR,
    PRED_MODE_TL,
    PRED_MODE_AVG_T_AVG_L_TR,
    PRED_MODE_AVG_L_TL,
    PRED_MODE_AVG_L_T,
    PRED_MODE_AVG_TL_T,
    PRED_MODE_AVG_T_TR,
    PRED_MODE_AVG_AVG_L_TL_AVG_T_TR,
    PRED_MODE_SELECT,
    PRED_MODE_ADD_SUBTRACT_FULL,
    PRED_MODE_ADD_SUBTRACT_HALF,
};
 
enum HuffmanIndex {
    HUFF_IDX_GREEN = 0,
    HUFF_IDX_RED   = 1,
    HUFF_IDX_BLUE  = 2,
    HUFF_IDX_ALPHA = 3,
    HUFF_IDX_DIST  = 4
};
 
/* The structure of WebP lossless is an optional series of transformation data,
 * followed by the primary image. The primary image also optionally contains
 * an entropy group mapping if there are multiple entropy groups. There is a
 * basic image type called an "entropy coded image" that is used for all of
 * these. The type of each entropy coded image is referred to by the
 * specification as its role. */
enum ImageRole {
    /* Primary Image: Stores the actual pixels of the image. */
    IMAGE_ROLE_ARGB,
 
    /* Entropy Image: Defines which Huffman group to use for different areas of
     *                the primary image. */
    IMAGE_ROLE_ENTROPY,
 
    /* Predictors: Defines which predictor type to use for different areas of
     *             the primary image. */
    IMAGE_ROLE_PREDICTOR,
 
    /* Color Transform Data: Defines the color transformation for different
     *                       areas of the primary image. */
    IMAGE_ROLE_COLOR_TRANSFORM,
 
    /* Color Index: Stored as an image of height == 1. */
    IMAGE_ROLE_COLOR_INDEXING,
 
    IMAGE_ROLE_NB,
};
 
typedef struct HuffReader {
    VLC vlc;                            /* Huffman decoder context */
    int simple;                         /* whether to use simple mode */
    int nb_symbols;                     /* number of coded symbols */
    uint16_t simple_symbols[2];         /* symbols for simple mode */
} HuffReader;
 
typedef struct ImageContext {
    enum ImageRole role;                /* role of this image */
    AVFrame *frame;                     /* AVFrame for data */
    int color_cache_bits;               /* color cache size, log2 */
    uint32_t *color_cache;              /* color cache data */
    int nb_huffman_groups;              /* number of huffman groups */
    HuffReader *huffman_groups;         /* reader for each huffman group */
    /* relative size compared to primary image, log2.
     * for IMAGE_ROLE_COLOR_INDEXING with <= 16 colors, this is log2 of the
     * number of pixels per byte in the primary image (pixel packing) */
    int size_reduction;
    int is_alpha_primary;
} ImageContext;
 
typedef struct WebPContext {
    VP8Context v;                       /* VP8 Context used for lossy decoding */
    GetBitContext gb;                   /* bitstream reader for main image chunk */
    AVFrame *alpha_frame;               /* AVFrame for alpha data decompressed from VP8L */
    AVPacket *pkt;                      /* AVPacket to be passed to the underlying VP8 decoder */
    AVCodecContext *avctx;              /* parent AVCodecContext */
    int initialized;                    /* set once the VP8 context is initialized */
    int has_alpha;                      /* has a separate alpha chunk */
    enum AlphaCompression alpha_compression; /* compression type for alpha chunk */
    enum AlphaFilter alpha_filter;      /* filtering method for alpha chunk */
    const uint8_t *alpha_data;          /* alpha chunk data */
    int alpha_data_size;                /* alpha chunk data size */
    int has_exif;                       /* set after an EXIF chunk has been processed */
    int has_iccp;                       /* set after an ICCP chunk has been processed */
    int has_xmp;                        /* set after an XMP chunk has been processed */
    int width;                          /* image width */
    int height;                         /* image height */
 
    int nb_transforms;                  /* number of transforms */
    enum TransformType transforms[4];   /* transformations used in the image, in order */
    /* reduced width when using a color indexing transform with <= 16 colors (pixel packing)
     * before pixels are unpacked, or same as width otherwise. */
    int reduced_width;
    int nb_huffman_groups;              /* number of huffman groups in the primary image */
    ImageContext image[IMAGE_ROLE_NB];  /* image context for each role */
} WebPContext;
 
#define GET_PIXEL(frame, x, y) \
    ((frame)->data[0] + (y) * frame->linesize[0] + 4 * (x))
 
#define GET_PIXEL_COMP(frame, x, y, c) \
    (*((frame)->data[0] + (y) * frame->linesize[0] + 4 * (x) + c))
 
static void image_ctx_free(ImageContext *img)
{
    int i, j;
 
    av_free(img->color_cache);
    if (img->role != IMAGE_ROLE_ARGB && !img->is_alpha_primary)
        av_frame_free(&img->frame);
    if (img->huffman_groups) {
        for (i = 0; i < img->nb_huffman_groups; i++) {
            for (j = 0; j < HUFFMAN_CODES_PER_META_CODE; j++)
                ff_vlc_free(&img->huffman_groups[i * HUFFMAN_CODES_PER_META_CODE + j].vlc);
        }
        av_free(img->huffman_groups);
    }
    memset(img, 0, sizeof(*img));
}
 
static int huff_reader_get_symbol(HuffReader *r, GetBitContext *gb)
{
    if (r->simple) {
        if (r->nb_symbols == 1)
            return r->simple_symbols[0];
        else
            return r->simple_symbols[get_bits1(gb)];
    } else
        return get_vlc2(gb, r->vlc.table, 8, 2);
}
 
static int huff_reader_build_canonical(HuffReader *r, const uint8_t *code_lengths,
                                       uint16_t len_counts[MAX_HUFFMAN_CODE_LENGTH + 1],
                                       uint8_t lens[], uint16_t syms[],
                                       int alphabet_size, void *logctx)
{
    unsigned nb_codes = 0;
    int ret;
 
    // Count the number of symbols of each length and transform len_counts
    // into an array of offsets.
    for (int len = 1; len <= MAX_HUFFMAN_CODE_LENGTH; ++len) {
        unsigned cnt = len_counts[len];
        len_counts[len] = nb_codes;
        nb_codes += cnt;
    }
 
    for (int sym = 0; sym < alphabet_size; ++sym) {
        if (code_lengths[sym]) {
            unsigned idx = len_counts[code_lengths[sym]]++;
            syms[idx] = sym;
            lens[idx] = code_lengths[sym];
        }
    }
 
    if (nb_codes == 0) {
        // No symbols
        return AVERROR_INVALIDDATA;
    }
    if (nb_codes == 1) {
        // Special-case 1 symbol since the VLC reader cannot handle it
        r->nb_symbols = 1;
        r->simple = 1;
        r->simple_symbols[0] = syms[0];
        return 0;
    }
 
    ret = ff_vlc_init_from_lengths(&r->vlc, 8, nb_codes, lens, 1,
                                   syms, 2, 2, 0, VLC_INIT_OUTPUT_LE, logctx);
    if (ret < 0)
        return ret;
    r->simple = 0;
 
    return 0;
}
 
static void read_huffman_code_simple(WebPContext *s, HuffReader *hc)
{
    hc->nb_symbols = get_bits1(&s->gb) + 1;
 
    if (get_bits1(&s->gb))
        hc->simple_symbols[0] = get_bits(&s->gb, 8);
    else
        hc->simple_symbols[0] = get_bits1(&s->gb);
 
    if (hc->nb_symbols == 2)
        hc->simple_symbols[1] = get_bits(&s->gb, 8);
 
    hc->simple = 1;
}
 
static int read_huffman_code_normal(WebPContext *s, HuffReader *hc,
                                    int alphabet_size)
{
    HuffReader code_len_hc = { { 0 }, 0, 0, { 0 } };
    uint8_t *code_lengths;
    uint8_t code_length_code_lengths[NUM_CODE_LENGTH_CODES] = { 0 };
    uint8_t reordered_code_length_code_lengths[NUM_CODE_LENGTH_CODES];
    uint16_t reordered_code_length_syms[NUM_CODE_LENGTH_CODES];
    uint16_t len_counts[MAX_HUFFMAN_CODE_LENGTH + 1] = { 0 };
    int symbol, max_symbol, prev_code_len, ret;
    int num_codes = 4 + get_bits(&s->gb, 4);
 
    av_assert1(num_codes <= NUM_CODE_LENGTH_CODES);
 
    for (int i = 0; i < num_codes; i++) {
        unsigned len = get_bits(&s->gb, 3);
        code_length_code_lengths[code_length_code_order[i]] = len;
        len_counts[len]++;
    }
 
    if (get_bits1(&s->gb)) {
        int bits   = 2 + 2 * get_bits(&s->gb, 3);
        max_symbol = 2 + get_bits(&s->gb, bits);
        if (max_symbol > alphabet_size) {
            av_log(s->avctx, AV_LOG_ERROR, "max symbol %d > alphabet size %d\n",
                   max_symbol, alphabet_size);
            return AVERROR_INVALIDDATA;
        }
    } else {
        max_symbol = alphabet_size;
    }
 
    ret = huff_reader_build_canonical(&code_len_hc, code_length_code_lengths, len_counts,
                                      reordered_code_length_code_lengths,
                                      reordered_code_length_syms,
                                      NUM_CODE_LENGTH_CODES, s->avctx);
    if (ret < 0)
        return ret;
 
    code_lengths = av_malloc_array(alphabet_size, 2 * sizeof(uint8_t) + sizeof(uint16_t));
    if (!code_lengths) {
        ret = AVERROR(ENOMEM);
        goto finish;
    }
 
    prev_code_len = 8;
    symbol        = 0;
    memset(len_counts, 0, sizeof(len_counts));
    while (symbol < alphabet_size) {
        int code_len;
 
        if (!max_symbol--)
            break;
        code_len = huff_reader_get_symbol(&code_len_hc, &s->gb);
        if (code_len < 16U) {
            /* Code length code [0..15] indicates literal code lengths. */
            code_lengths[symbol++] = code_len;
            len_counts[code_len]++;
            if (code_len)
                prev_code_len = code_len;
        } else {
            int repeat = 0, length = 0;
            switch (code_len) {
            default:
                ret = AVERROR_INVALIDDATA;
                goto finish;
            case 16:
                /* Code 16 repeats the previous non-zero value [3..6] times,
                 * i.e., 3 + ReadBits(2) times. If code 16 is used before a
                 * non-zero value has been emitted, a value of 8 is repeated. */
                repeat = 3 + get_bits(&s->gb, 2);
                length = prev_code_len;
                len_counts[length] += repeat;
                break;
            case 17:
                /* Code 17 emits a streak of zeros [3..10], i.e.,
                 * 3 + ReadBits(3) times. */
                repeat = 3 + get_bits(&s->gb, 3);
                break;
            case 18:
                /* Code 18 emits a streak of zeros of length [11..138], i.e.,
                 * 11 + ReadBits(7) times. */
                repeat = 11 + get_bits(&s->gb, 7);
                break;
            }
            if (symbol + repeat > alphabet_size) {
                av_log(s->avctx, AV_LOG_ERROR,
                       "invalid symbol %d + repeat %d > alphabet size %d\n",
                       symbol, repeat, alphabet_size);
                ret = AVERROR_INVALIDDATA;
                goto finish;
            }
            while (repeat-- > 0)
                code_lengths[symbol++] = length;
        }
    }
 
    ret = huff_reader_build_canonical(hc, code_lengths, len_counts,
                                      code_lengths + symbol,
                                      (uint16_t*)(code_lengths + 2 * symbol),
                                      symbol, s->avctx);
 
finish:
    ff_vlc_free(&code_len_hc.vlc);
    av_free(code_lengths);
    return ret;
}
 
static int decode_entropy_coded_image(WebPContext *s, enum ImageRole role,
                                      int w, int h);
 
#define PARSE_BLOCK_SIZE(w, h) do {                                         \
    block_bits = get_bits(&s->gb, 3) + 2;                                   \
    blocks_w   = FFALIGN((w), 1 << block_bits) >> block_bits;               \
    blocks_h   = FFALIGN((h), 1 << block_bits) >> block_bits;               \
} while (0)
 
static int decode_entropy_image(WebPContext *s)
{
    ImageContext *img;
    int ret, block_bits, blocks_w, blocks_h, x, y, max;
 
    PARSE_BLOCK_SIZE(s->reduced_width, s->height);
 
    ret = decode_entropy_coded_image(s, IMAGE_ROLE_ENTROPY, blocks_w, blocks_h);
    if (ret < 0)
        return ret;
 
    img = &s->image[IMAGE_ROLE_ENTROPY];
    img->size_reduction = block_bits;
 
    /* the number of huffman groups is determined by the maximum group number
     * coded in the entropy image */
    max = 0;
    for (y = 0; y < img->frame->height; y++) {
        for (x = 0; x < img->frame->width; x++) {
            int p0 = GET_PIXEL_COMP(img->frame, x, y, 1);
            int p1 = GET_PIXEL_COMP(img->frame, x, y, 2);
            int p  = p0 << 8 | p1;
            max = FFMAX(max, p);
        }
    }
    s->nb_huffman_groups = max + 1;
 
    return 0;
}
 
static int parse_transform_predictor(WebPContext *s)
{
    int block_bits, blocks_w, blocks_h, ret;
 
    PARSE_BLOCK_SIZE(s->reduced_width, s->height);
 
    ret = decode_entropy_coded_image(s, IMAGE_ROLE_PREDICTOR, blocks_w,
                                     blocks_h);
    if (ret < 0)
        return ret;
 
    s->image[IMAGE_ROLE_PREDICTOR].size_reduction = block_bits;
 
    return 0;
}
 
static int parse_transform_color(WebPContext *s)
{
    int block_bits, blocks_w, blocks_h, ret;
 
    PARSE_BLOCK_SIZE(s->reduced_width, s->height);
 
    ret = decode_entropy_coded_image(s, IMAGE_ROLE_COLOR_TRANSFORM, blocks_w,
                                     blocks_h);
    if (ret < 0)
        return ret;
 
    s->image[IMAGE_ROLE_COLOR_TRANSFORM].size_reduction = block_bits;
 
    return 0;
}
 
static int parse_transform_color_indexing(WebPContext *s)
{
    ImageContext *img;
    int width_bits, index_size, ret, x;
    uint8_t *ct;
 
    index_size = get_bits(&s->gb, 8) + 1;
 
    if (index_size <= 2)
        width_bits = 3;
    else if (index_size <= 4)
        width_bits = 2;
    else if (index_size <= 16)
        width_bits = 1;
    else
        width_bits = 0;
 
    ret = decode_entropy_coded_image(s, IMAGE_ROLE_COLOR_INDEXING,
                                     index_size, 1);
    if (ret < 0)
        return ret;
 
    img = &s->image[IMAGE_ROLE_COLOR_INDEXING];
    img->size_reduction = width_bits;
    if (width_bits > 0)
        s->reduced_width = (s->width + ((1 << width_bits) - 1)) >> width_bits;
 
    /* color index values are delta-coded */
    ct  = img->frame->data[0] + 4;
    for (x = 4; x < img->frame->width * 4; x++, ct++)
        ct[0] += ct[-4];
 
    return 0;
}
 
static HuffReader *get_huffman_group(WebPContext *s, ImageContext *img,
                                     int x, int y)
{
    ImageContext *gimg = &s->image[IMAGE_ROLE_ENTROPY];
    int group = 0;
 
    if (gimg->size_reduction > 0) {
        int group_x = x >> gimg->size_reduction;
        int group_y = y >> gimg->size_reduction;
        int g0      = GET_PIXEL_COMP(gimg->frame, group_x, group_y, 1);
        int g1      = GET_PIXEL_COMP(gimg->frame, group_x, group_y, 2);
        group       = g0 << 8 | g1;
    }
 
    return &img->huffman_groups[group * HUFFMAN_CODES_PER_META_CODE];
}
 
static av_always_inline void color_cache_put(ImageContext *img, uint32_t c)
{
    uint32_t cache_idx = (0x1E35A7BD * c) >> (32 - img->color_cache_bits);
    img->color_cache[cache_idx] = c;
}
 
static int decode_entropy_coded_image(WebPContext *s, enum ImageRole role,
                                      int w, int h)
{
    ImageContext *img;
    HuffReader *hg;
    int i, j, ret, x, y, width;
 
    img       = &s->image[role];
    img->role = role;
 
    if (!img->frame) {
        img->frame = av_frame_alloc();
        if (!img->frame)
            return AVERROR(ENOMEM);
    }
 
    img->frame->format = AV_PIX_FMT_ARGB;
    img->frame->width  = w;
    img->frame->height = h;
 
    if (role == IMAGE_ROLE_ARGB && !img->is_alpha_primary) {
        ret = ff_thread_get_buffer(s->avctx, img->frame, 0);
    } else
        ret = av_frame_get_buffer(img->frame, 1);
    if (ret < 0)
        return ret;
 
    if (get_bits1(&s->gb)) {
        img->color_cache_bits = get_bits(&s->gb, 4);
        if (img->color_cache_bits < 1 || img->color_cache_bits > 11) {
            av_log(s->avctx, AV_LOG_ERROR, "invalid color cache bits: %d\n",
                   img->color_cache_bits);
            return AVERROR_INVALIDDATA;
        }
        img->color_cache = av_calloc(1 << img->color_cache_bits,
                                     sizeof(*img->color_cache));
        if (!img->color_cache)
            return AVERROR(ENOMEM);
    } else {
        img->color_cache_bits = 0;
    }
 
    img->nb_huffman_groups = 1;
    if (role == IMAGE_ROLE_ARGB && get_bits1(&s->gb)) {
        ret = decode_entropy_image(s);
        if (ret < 0)
            return ret;
        img->nb_huffman_groups = s->nb_huffman_groups;
    }
    img->huffman_groups = av_calloc(img->nb_huffman_groups,
                                    HUFFMAN_CODES_PER_META_CODE *
                                    sizeof(*img->huffman_groups));
    if (!img->huffman_groups)
        return AVERROR(ENOMEM);
 
    for (i = 0; i < img->nb_huffman_groups; i++) {
        hg = &img->huffman_groups[i * HUFFMAN_CODES_PER_META_CODE];
        for (j = 0; j < HUFFMAN_CODES_PER_META_CODE; j++) {
            int alphabet_size = alphabet_sizes[j];
            if (!j && img->color_cache_bits > 0)
                alphabet_size += 1 << img->color_cache_bits;
 
            if (get_bits1(&s->gb)) {
                read_huffman_code_simple(s, &hg[j]);
            } else {
                ret = read_huffman_code_normal(s, &hg[j], alphabet_size);
                if (ret < 0)
                    return ret;
            }
        }
    }
 
    width = img->frame->width;
    if (role == IMAGE_ROLE_ARGB)
        width = s->reduced_width;
 
    x = 0; y = 0;
    while (y < img->frame->height) {
        int v;
 
        if (get_bits_left(&s->gb) < 0)
            return AVERROR_INVALIDDATA;
 
        hg = get_huffman_group(s, img, x, y);
        v = huff_reader_get_symbol(&hg[HUFF_IDX_GREEN], &s->gb);
        if (v < NUM_LITERAL_CODES) {
            /* literal pixel values */
            uint8_t *p = GET_PIXEL(img->frame, x, y);
            p[2] = v;
            p[1] = huff_reader_get_symbol(&hg[HUFF_IDX_RED],   &s->gb);
            p[3] = huff_reader_get_symbol(&hg[HUFF_IDX_BLUE],  &s->gb);
            p[0] = huff_reader_get_symbol(&hg[HUFF_IDX_ALPHA], &s->gb);
            if (img->color_cache_bits)
                color_cache_put(img, AV_RB32(p));
            x++;
            if (x == width) {
                x = 0;
                y++;
            }
        } else if (v < NUM_LITERAL_CODES + NUM_LENGTH_CODES) {
            /* LZ77 backwards mapping */
            int prefix_code, length, distance, ref_x, ref_y;
 
            /* parse length and distance */
            prefix_code = v - NUM_LITERAL_CODES;
            if (prefix_code < 4) {
                length = prefix_code + 1;
            } else {
                int extra_bits = (prefix_code - 2) >> 1;
                int offset     = 2 + (prefix_code & 1) << extra_bits;
                length = offset + get_bits(&s->gb, extra_bits) + 1;
            }
            prefix_code = huff_reader_get_symbol(&hg[HUFF_IDX_DIST], &s->gb);
            if (prefix_code > 39U) {
                av_log(s->avctx, AV_LOG_ERROR,
                       "distance prefix code too large: %d\n", prefix_code);
                return AVERROR_INVALIDDATA;
            }
            if (prefix_code < 4) {
                distance = prefix_code + 1;
            } else {
                int extra_bits = prefix_code - 2 >> 1;
                int offset     = 2 + (prefix_code & 1) << extra_bits;
                distance = offset + get_bits(&s->gb, extra_bits) + 1;
            }
 
            /* find reference location */
            if (distance <= NUM_SHORT_DISTANCES) {
                int xi = lz77_distance_offsets[distance - 1][0];
                int yi = lz77_distance_offsets[distance - 1][1];
                distance = FFMAX(1, xi + yi * width);
            } else {
                distance -= NUM_SHORT_DISTANCES;
            }
            ref_x = x;
            ref_y = y;
            if (distance <= x) {
                ref_x -= distance;
                distance = 0;
            } else {
                ref_x = 0;
                distance -= x;
            }
            while (distance >= width) {
                ref_y--;
                distance -= width;
            }
            if (distance > 0) {
                ref_x = width - distance;
                ref_y--;
            }
            ref_x = FFMAX(0, ref_x);
            ref_y = FFMAX(0, ref_y);
 
            if (ref_y == y && ref_x >= x)
                return AVERROR_INVALIDDATA;
 
            /* copy pixels
             * source and dest regions can overlap and wrap lines, so just
             * copy per-pixel */
            for (i = 0; i < length; i++) {
                uint8_t *p_ref = GET_PIXEL(img->frame, ref_x, ref_y);
                uint8_t *p     = GET_PIXEL(img->frame,     x,     y);
 
                AV_COPY32(p, p_ref);
                if (img->color_cache_bits)
                    color_cache_put(img, AV_RB32(p));
                x++;
                ref_x++;
                if (x == width) {
                    x = 0;
                    y++;
                }
                if (ref_x == width) {
                    ref_x = 0;
                    ref_y++;
                }
                if (y == img->frame->height || ref_y == img->frame->height)
                    break;
            }
        } else {
            /* read from color cache */
            uint8_t *p = GET_PIXEL(img->frame, x, y);
            int cache_idx = v - (NUM_LITERAL_CODES + NUM_LENGTH_CODES);
 
            if (!img->color_cache_bits) {
                av_log(s->avctx, AV_LOG_ERROR, "color cache not found\n");
                return AVERROR_INVALIDDATA;
            }
            if (cache_idx >= 1 << img->color_cache_bits) {
                av_log(s->avctx, AV_LOG_ERROR,
                       "color cache index out-of-bounds\n");
                return AVERROR_INVALIDDATA;
            }
            AV_WB32(p, img->color_cache[cache_idx]);
            x++;
            if (x == width) {
                x = 0;
                y++;
            }
        }
    }
 
    return 0;
}
 
/* PRED_MODE_BLACK */
static void inv_predict_0(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    AV_WB32(p, 0xFF000000);
}
 
/* PRED_MODE_L */
static void inv_predict_1(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    AV_COPY32(p, p_l);
}
 
/* PRED_MODE_T */
static void inv_predict_2(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    AV_COPY32(p, p_t);
}
 
/* PRED_MODE_TR */
static void inv_predict_3(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    AV_COPY32(p, p_tr);
}
 
/* PRED_MODE_TL */
static void inv_predict_4(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    AV_COPY32(p, p_tl);
}
 
/* PRED_MODE_AVG_T_AVG_L_TR */
static void inv_predict_5(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = p_t[0] + (p_l[0] + p_tr[0] >> 1) >> 1;
    p[1] = p_t[1] + (p_l[1] + p_tr[1] >> 1) >> 1;
    p[2] = p_t[2] + (p_l[2] + p_tr[2] >> 1) >> 1;
    p[3] = p_t[3] + (p_l[3] + p_tr[3] >> 1) >> 1;
}
 
/* PRED_MODE_AVG_L_TL */
static void inv_predict_6(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = p_l[0] + p_tl[0] >> 1;
    p[1] = p_l[1] + p_tl[1] >> 1;
    p[2] = p_l[2] + p_tl[2] >> 1;
    p[3] = p_l[3] + p_tl[3] >> 1;
}
 
/* PRED_MODE_AVG_L_T */
static void inv_predict_7(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = p_l[0] + p_t[0] >> 1;
    p[1] = p_l[1] + p_t[1] >> 1;
    p[2] = p_l[2] + p_t[2] >> 1;
    p[3] = p_l[3] + p_t[3] >> 1;
}
 
/* PRED_MODE_AVG_TL_T */
static void inv_predict_8(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = p_tl[0] + p_t[0] >> 1;
    p[1] = p_tl[1] + p_t[1] >> 1;
    p[2] = p_tl[2] + p_t[2] >> 1;
    p[3] = p_tl[3] + p_t[3] >> 1;
}
 
/* PRED_MODE_AVG_T_TR */
static void inv_predict_9(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                          const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = p_t[0] + p_tr[0] >> 1;
    p[1] = p_t[1] + p_tr[1] >> 1;
    p[2] = p_t[2] + p_tr[2] >> 1;
    p[3] = p_t[3] + p_tr[3] >> 1;
}
 
/* PRED_MODE_AVG_AVG_L_TL_AVG_T_TR */
static void inv_predict_10(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                           const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = (p_l[0] + p_tl[0] >> 1) + (p_t[0] + p_tr[0] >> 1) >> 1;
    p[1] = (p_l[1] + p_tl[1] >> 1) + (p_t[1] + p_tr[1] >> 1) >> 1;
    p[2] = (p_l[2] + p_tl[2] >> 1) + (p_t[2] + p_tr[2] >> 1) >> 1;
    p[3] = (p_l[3] + p_tl[3] >> 1) + (p_t[3] + p_tr[3] >> 1) >> 1;
}
 
/* PRED_MODE_SELECT */
static void inv_predict_11(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                           const uint8_t *p_t, const uint8_t *p_tr)
{
    int diff = (FFABS(p_l[0] - p_tl[0]) - FFABS(p_t[0] - p_tl[0])) +
               (FFABS(p_l[1] - p_tl[1]) - FFABS(p_t[1] - p_tl[1])) +
               (FFABS(p_l[2] - p_tl[2]) - FFABS(p_t[2] - p_tl[2])) +
               (FFABS(p_l[3] - p_tl[3]) - FFABS(p_t[3] - p_tl[3]));
    if (diff <= 0)
        AV_COPY32(p, p_t);
    else
        AV_COPY32(p, p_l);
}
 
/* PRED_MODE_ADD_SUBTRACT_FULL */
static void inv_predict_12(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                           const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = av_clip_uint8(p_l[0] + p_t[0] - p_tl[0]);
    p[1] = av_clip_uint8(p_l[1] + p_t[1] - p_tl[1]);
    p[2] = av_clip_uint8(p_l[2] + p_t[2] - p_tl[2]);
    p[3] = av_clip_uint8(p_l[3] + p_t[3] - p_tl[3]);
}
 
static av_always_inline uint8_t clamp_add_subtract_half(int a, int b, int c)
{
    int d = a + b >> 1;
    return av_clip_uint8(d + (d - c) / 2);
}
 
/* PRED_MODE_ADD_SUBTRACT_HALF */
static void inv_predict_13(uint8_t *p, const uint8_t *p_l, const uint8_t *p_tl,
                           const uint8_t *p_t, const uint8_t *p_tr)
{
    p[0] = clamp_add_subtract_half(p_l[0], p_t[0], p_tl[0]);
    p[1] = clamp_add_subtract_half(p_l[1], p_t[1], p_tl[1]);
    p[2] = clamp_add_subtract_half(p_l[2], p_t[2], p_tl[2]);
    p[3] = clamp_add_subtract_half(p_l[3], p_t[3], p_tl[3]);
}
 
typedef void (*inv_predict_func)(uint8_t *p, const uint8_t *p_l,
                                 const uint8_t *p_tl, const uint8_t *p_t,
                                 const uint8_t *p_tr);
 
static const inv_predict_func inverse_predict[14] = {
    inv_predict_0,  inv_predict_1,  inv_predict_2,  inv_predict_3,
    inv_predict_4,  inv_predict_5,  inv_predict_6,  inv_predict_7,
    inv_predict_8,  inv_predict_9,  inv_predict_10, inv_predict_11,
    inv_predict_12, inv_predict_13,
};
 
static void inverse_prediction(AVFrame *frame, enum PredictionMode m, int x, int y)
{
    uint8_t *dec, *p_l, *p_tl, *p_t, *p_tr;
    uint8_t p[4];
 
    dec  = GET_PIXEL(frame, x,     y);
    p_l  = GET_PIXEL(frame, x - 1, y);
    p_tl = GET_PIXEL(frame, x - 1, y - 1);
    p_t  = GET_PIXEL(frame, x,     y - 1);
    if (x == frame->width - 1)
        p_tr = GET_PIXEL(frame, 0, y);
    else
        p_tr = GET_PIXEL(frame, x + 1, y - 1);
 
    inverse_predict[m](p, p_l, p_tl, p_t, p_tr);
 
    dec[0] += p[0];
    dec[1] += p[1];
    dec[2] += p[2];
    dec[3] += p[3];
}
 
static int apply_predictor_transform(WebPContext *s)
{
    ImageContext *img  = &s->image[IMAGE_ROLE_ARGB];
    ImageContext *pimg = &s->image[IMAGE_ROLE_PREDICTOR];
    int x, y;
 
    for (y = 0; y < img->frame->height; y++) {
        for (x = 0; x < s->reduced_width; x++) {
            int tx = x >> pimg->size_reduction;
            int ty = y >> pimg->size_reduction;
            enum PredictionMode m = GET_PIXEL_COMP(pimg->frame, tx, ty, 2);
 
            if (x == 0) {
                if (y == 0)
                    m = PRED_MODE_BLACK;
                else
                    m = PRED_MODE_T;
            } else if (y == 0)
                m = PRED_MODE_L;
 
            if (m > 13) {
                av_log(s->avctx, AV_LOG_ERROR,
                       "invalid predictor mode: %d\n", m);
                return AVERROR_INVALIDDATA;
            }
            inverse_prediction(img->frame, m, x, y);
        }
    }
    return 0;
}
 
static av_always_inline uint8_t color_transform_delta(uint8_t color_pred,
                                                      uint8_t color)
{
    return (int)ff_u8_to_s8(color_pred) * ff_u8_to_s8(color) >> 5;
}
 
static int apply_color_transform(WebPContext *s)
{
    ImageContext *img, *cimg;
    int x, y, cx, cy;
    uint8_t *p, *cp;
 
    img  = &s->image[IMAGE_ROLE_ARGB];
    cimg = &s->image[IMAGE_ROLE_COLOR_TRANSFORM];
 
    for (y = 0; y < img->frame->height; y++) {
        for (x = 0; x < s->reduced_width; x++) {
            cx = x >> cimg->size_reduction;
            cy = y >> cimg->size_reduction;
            cp = GET_PIXEL(cimg->frame, cx, cy);
            p  = GET_PIXEL(img->frame,   x,  y);
 
            p[1] += color_transform_delta(cp[3], p[2]);
            p[3] += color_transform_delta(cp[2], p[2]) +
                    color_transform_delta(cp[1], p[1]);
        }
    }
    return 0;
}
 
static int apply_subtract_green_transform(WebPContext *s)
{
    int x, y;
    ImageContext *img = &s->image[IMAGE_ROLE_ARGB];
 
    for (y = 0; y < img->frame->height; y++) {
        for (x = 0; x < s->reduced_width; x++) {
            uint8_t *p = GET_PIXEL(img->frame, x, y);
            p[1] += p[2];
            p[3] += p[2];
        }
    }
    return 0;
}
 
static int apply_color_indexing_transform(WebPContext *s)
{
    ImageContext *img;
    ImageContext *pal;
    int i, x, y;
    uint8_t *p;
 
    img = &s->image[IMAGE_ROLE_ARGB];
    pal = &s->image[IMAGE_ROLE_COLOR_INDEXING];
 
    if (pal->size_reduction > 0) { // undo pixel packing
        GetBitContext gb_g;
        uint8_t *line;
        int pixel_bits = 8 >> pal->size_reduction;
 
        line = av_malloc(img->frame->linesize[0] + AV_INPUT_BUFFER_PADDING_SIZE);
        if (!line)
            return AVERROR(ENOMEM);
 
        for (y = 0; y < img->frame->height; y++) {
            p = GET_PIXEL(img->frame, 0, y);
            memcpy(line, p, img->frame->linesize[0]);
            init_get_bits(&gb_g, line, img->frame->linesize[0] * 8);
            skip_bits(&gb_g, 16);
            i = 0;
            for (x = 0; x < img->frame->width; x++) {
                p    = GET_PIXEL(img->frame, x, y);
                p[2] = get_bits(&gb_g, pixel_bits);
                i++;
                if (i == 1 << pal->size_reduction) {
                    skip_bits(&gb_g, 24);
                    i = 0;
                }
            }
        }
        av_free(line);
        s->reduced_width = s->width; // we are back to full size
    }
 
    // switch to local palette if it's worth initializing it
    if (img->frame->height * img->frame->width > 300) {
        uint8_t palette[256 * 4];
        const int size = pal->frame->width * 4;
        av_assert0(size <= 1024U);
        memcpy(palette, GET_PIXEL(pal->frame, 0, 0), size);   // copy palette
        // set extra entries to transparent black
        memset(palette + size, 0, 256 * 4 - size);
        for (y = 0; y < img->frame->height; y++) {
            for (x = 0; x < img->frame->width; x++) {
                p = GET_PIXEL(img->frame, x, y);
                i = p[2];
                AV_COPY32(p, &palette[i * 4]);
            }
        }
    } else {
        for (y = 0; y < img->frame->height; y++) {
            for (x = 0; x < img->frame->width; x++) {
                p = GET_PIXEL(img->frame, x, y);
                i = p[2];
                if (i >= pal->frame->width) {
                    AV_WB32(p, 0x00000000);
                } else {
                    const uint8_t *pi = GET_PIXEL(pal->frame, i, 0);
                    AV_COPY32(p, pi);
                }
            }
        }
    }
 
    return 0;
}
 
static void update_canvas_size(AVCodecContext *avctx, int w, int h)
{
    WebPContext *s = avctx->priv_data;
    if (s->width && s->width != w) {
        av_log(avctx, AV_LOG_WARNING, "Width mismatch. %d != %d\n",
               s->width, w);
    }
    s->width = w;
    if (s->height && s->height != h) {
        av_log(avctx, AV_LOG_WARNING, "Height mismatch. %d != %d\n",
               s->height, h);
    }
    s->height = h;
}
 
static int vp8_lossless_decode_frame(AVCodecContext *avctx, AVFrame *p,
                                     int *got_frame, const uint8_t *data_start,
                                     unsigned int data_size, int is_alpha_chunk)
{
    WebPContext *s = avctx->priv_data;
    int w, h, ret, i, used;
 
    if (!is_alpha_chunk)
        avctx->pix_fmt = AV_PIX_FMT_ARGB;
 
    ret = init_get_bits8(&s->gb, data_start, data_size);
    if (ret < 0)
        return ret;
 
    if (!is_alpha_chunk) {
        if (get_bits(&s->gb, 8) != 0x2F) {
            av_log(avctx, AV_LOG_ERROR, "Invalid WebP Lossless signature\n");
            return AVERROR_INVALIDDATA;
        }
 
        w = get_bits(&s->gb, 14) + 1;
        h = get_bits(&s->gb, 14) + 1;
 
        update_canvas_size(avctx, w, h);
 
        ret = ff_set_dimensions(avctx, s->width, s->height);
        if (ret < 0)
            return ret;
 
        s->has_alpha = get_bits1(&s->gb);
 
        if (get_bits(&s->gb, 3) != 0x0) {
            av_log(avctx, AV_LOG_ERROR, "Invalid WebP Lossless version\n");
            return AVERROR_INVALIDDATA;
        }
    } else {
        if (!s->width || !s->height)
            return AVERROR_BUG;
        w = s->width;
        h = s->height;
    }
 
    /* parse transformations */
    s->nb_transforms = 0;
    s->reduced_width = s->width;
    used = 0;
    while (get_bits1(&s->gb)) {
        enum TransformType transform = get_bits(&s->gb, 2);
        if (used & (1 << transform)) {
            av_log(avctx, AV_LOG_ERROR, "Transform %d used more than once\n",
                   transform);
            ret = AVERROR_INVALIDDATA;
            goto free_and_return;
        }
        used |= (1 << transform);
        s->transforms[s->nb_transforms++] = transform;
        switch (transform) {
        case PREDICTOR_TRANSFORM:
            ret = parse_transform_predictor(s);
            break;
        case COLOR_TRANSFORM:
            ret = parse_transform_color(s);
            break;
        case COLOR_INDEXING_TRANSFORM:
            ret = parse_transform_color_indexing(s);
            break;
        }
        if (ret < 0)
            goto free_and_return;
    }
 
    /* decode primary image */
    s->image[IMAGE_ROLE_ARGB].frame = p;
    if (is_alpha_chunk)
        s->image[IMAGE_ROLE_ARGB].is_alpha_primary = 1;
    ret = decode_entropy_coded_image(s, IMAGE_ROLE_ARGB, w, h);
    if (ret < 0)
        goto free_and_return;
 
    /* apply transformations */
    for (i = s->nb_transforms - 1; i >= 0; i--) {
        switch (s->transforms[i]) {
        case PREDICTOR_TRANSFORM:
            ret = apply_predictor_transform(s);
            break;
        case COLOR_TRANSFORM:
            ret = apply_color_transform(s);
            break;
        case SUBTRACT_GREEN:
            ret = apply_subtract_green_transform(s);
            break;
        case COLOR_INDEXING_TRANSFORM:
            ret = apply_color_indexing_transform(s);
            break;
        }
        if (ret < 0)
            goto free_and_return;
    }
 
    *got_frame   = 1;
    p->pict_type = AV_PICTURE_TYPE_I;
    p->flags |= AV_FRAME_FLAG_KEY;
    p->flags |= AV_FRAME_FLAG_LOSSLESS;
    ret          = data_size;
 
free_and_return:
    for (i = 0; i < IMAGE_ROLE_NB; i++)
        image_ctx_free(&s->image[i]);
 
    return ret;
}
 
static void alpha_inverse_prediction(AVFrame *frame, enum AlphaFilter m)
{
    int x, y, ls;
    uint8_t *dec;
 
    ls = frame->linesize[3];
 
    /* filter first row using horizontal filter */
    dec = frame->data[3] + 1;
    for (x = 1; x < frame->width; x++, dec++)
        *dec += *(dec - 1);
 
    /* filter first column using vertical filter */
    dec = frame->data[3] + ls;
    for (y = 1; y < frame->height; y++, dec += ls)
        *dec += *(dec - ls);
 
    /* filter the rest using the specified filter */
    switch (m) {
    case ALPHA_FILTER_HORIZONTAL:
        for (y = 1; y < frame->height; y++) {
            dec = frame->data[3] + y * ls + 1;
            for (x = 1; x < frame->width; x++, dec++)
                *dec += *(dec - 1);
        }
        break;
    case ALPHA_FILTER_VERTICAL:
        for (y = 1; y < frame->height; y++) {
            dec = frame->data[3] + y * ls + 1;
            for (x = 1; x < frame->width; x++, dec++)
                *dec += *(dec - ls);
        }
        break;
    case ALPHA_FILTER_GRADIENT:
        for (y = 1; y < frame->height; y++) {
            dec = frame->data[3] + y * ls + 1;
            for (x = 1; x < frame->width; x++, dec++)
                dec[0] += av_clip_uint8(*(dec - 1) + *(dec - ls) - *(dec - ls - 1));
        }
        break;
    }
}
 
static int vp8_lossy_decode_alpha(AVCodecContext *avctx, AVFrame *p,
                                  const uint8_t *data_start,
                                  unsigned int data_size)
{
    WebPContext *s = avctx->priv_data;
    int x, y, ret;
 
    if (s->alpha_compression == ALPHA_COMPRESSION_NONE) {
        GetByteContext gb;
 
        bytestream2_init(&gb, data_start, data_size);
        for (y = 0; y < s->height; y++)
            bytestream2_get_buffer(&gb, p->data[3] + p->linesize[3] * y,
                                   s->width);
    } else if (s->alpha_compression == ALPHA_COMPRESSION_VP8L) {
        uint8_t *ap, *pp;
        int alpha_got_frame = 0;
 
        s->alpha_frame = av_frame_alloc();
        if (!s->alpha_frame)
            return AVERROR(ENOMEM);
 
        ret = vp8_lossless_decode_frame(avctx, s->alpha_frame, &alpha_got_frame,
                                        data_start, data_size, 1);
        if (ret < 0) {
            av_frame_free(&s->alpha_frame);
            return ret;
        }
        if (!alpha_got_frame) {
            av_frame_free(&s->alpha_frame);
            return AVERROR_INVALIDDATA;
        }
 
        /* copy green component of alpha image to alpha plane of primary image */
        for (y = 0; y < s->height; y++) {
            ap = GET_PIXEL(s->alpha_frame, 0, y) + 2;
            pp = p->data[3] + p->linesize[3] * y;
            for (x = 0; x < s->width; x++) {
                *pp = *ap;
                pp++;
                ap += 4;
            }
        }
        av_frame_free(&s->alpha_frame);
    }
 
    /* apply alpha filtering */
    if (s->alpha_filter)
        alpha_inverse_prediction(p, s->alpha_filter);
 
    return 0;
}
 
static int vp8_lossy_decode_frame(AVCodecContext *avctx, AVFrame *p,
                                  int *got_frame, uint8_t *data_start,
                                  unsigned int data_size)
{
    WebPContext *s = avctx->priv_data;
    int ret;
 
    if (!s->initialized) {
        ff_vp8_decode_init(avctx);
        s->initialized = 1;
        s->v.actually_webp = 1;
    }
    avctx->pix_fmt = s->has_alpha ? AV_PIX_FMT_YUVA420P : AV_PIX_FMT_YUV420P;
 
    if (data_size > INT_MAX) {
        av_log(avctx, AV_LOG_ERROR, "unsupported chunk size\n");
        return AVERROR_PATCHWELCOME;
    }
 
    av_packet_unref(s->pkt);
    s->pkt->data = data_start;
    s->pkt->size = data_size;
 
    ret = ff_vp8_decode_frame(avctx, p, got_frame, s->pkt);
    if (ret < 0)
        return ret;
 
    if (!*got_frame)
        return AVERROR_INVALIDDATA;
 
    update_canvas_size(avctx, avctx->width, avctx->height);
 
    if (s->has_alpha) {
        ret = vp8_lossy_decode_alpha(avctx, p, s->alpha_data,
                                     s->alpha_data_size);
        if (ret < 0)
            return ret;
    }
    return ret;
}
 
static int webp_decode_frame(AVCodecContext *avctx, AVFrame *p,
                             int *got_frame, AVPacket *avpkt)
{
    WebPContext *s = avctx->priv_data;
    GetByteContext gb;
    int ret;
    uint32_t chunk_type, chunk_size;
    int vp8x_flags = 0;
 
    s->avctx     = avctx;
    s->width     = 0;
    s->height    = 0;
    *got_frame   = 0;
    s->has_alpha = 0;
    s->has_exif  = 0;
    s->has_iccp  = 0;
    s->has_xmp   = 0;
    bytestream2_init(&gb, avpkt->data, avpkt->size);
 
    if (bytestream2_get_bytes_left(&gb) < 12)
        return AVERROR_INVALIDDATA;
 
    if (bytestream2_get_le32(&gb) != MKTAG('R', 'I', 'F', 'F')) {
        av_log(avctx, AV_LOG_ERROR, "missing RIFF tag\n");
        return AVERROR_INVALIDDATA;
    }
 
    chunk_size = bytestream2_get_le32(&gb);
    if (bytestream2_get_bytes_left(&gb) < chunk_size)
        return AVERROR_INVALIDDATA;
 
    if (bytestream2_get_le32(&gb) != MKTAG('W', 'E', 'B', 'P')) {
        av_log(avctx, AV_LOG_ERROR, "missing WEBP tag\n");
        return AVERROR_INVALIDDATA;
    }
 
    while (bytestream2_get_bytes_left(&gb) > 8) {
        chunk_type = bytestream2_get_le32(&gb);
        chunk_size = bytestream2_get_le32(&gb);
        if (chunk_size == UINT32_MAX)
            return AVERROR_INVALIDDATA;
        chunk_size += chunk_size & 1;
 
        if (bytestream2_get_bytes_left(&gb) < chunk_size) {
           /* we seem to be running out of data, but it could also be that the
              bitstream has trailing junk leading to bogus chunk_size. */
            break;
        }
 
        switch (chunk_type) {
        case MKTAG('V', 'P', '8', ' '):
            if (!*got_frame) {
                ret = vp8_lossy_decode_frame(avctx, p, got_frame,
                                             avpkt->data + bytestream2_tell(&gb),
                                             chunk_size);
                if (ret < 0)
                    return ret;
            }
            bytestream2_skip(&gb, chunk_size);
            break;
        case MKTAG('V', 'P', '8', 'L'):
            if (!*got_frame) {
                ret = vp8_lossless_decode_frame(avctx, p, got_frame,
                                                avpkt->data + bytestream2_tell(&gb),
                                                chunk_size, 0);
                if (ret < 0)
                    return ret;
            }
            bytestream2_skip(&gb, chunk_size);
            break;
        case MKTAG('V', 'P', '8', 'X'):
            if (s->width || s->height || *got_frame) {
                av_log(avctx, AV_LOG_ERROR, "Canvas dimensions are already set\n");
                return AVERROR_INVALIDDATA;
            }
            vp8x_flags = bytestream2_get_byte(&gb);
            bytestream2_skip(&gb, 3);
            s->width  = bytestream2_get_le24(&gb) + 1;
            s->height = bytestream2_get_le24(&gb) + 1;
            ret = av_image_check_size(s->width, s->height, 0, avctx);
            if (ret < 0)
                return ret;
            break;
        case MKTAG('A', 'L', 'P', 'H'): {
            int alpha_header, filter_m, compression;
 
            if (!(vp8x_flags & VP8X_FLAG_ALPHA)) {
                av_log(avctx, AV_LOG_WARNING,
                       "ALPHA chunk present, but alpha bit not set in the "
                       "VP8X header\n");
            }
            if (chunk_size == 0) {
                av_log(avctx, AV_LOG_ERROR, "invalid ALPHA chunk size\n");
                return AVERROR_INVALIDDATA;
            }
            alpha_header       = bytestream2_get_byte(&gb);
            s->alpha_data      = avpkt->data + bytestream2_tell(&gb);
            s->alpha_data_size = chunk_size - 1;
            bytestream2_skip(&gb, s->alpha_data_size);
 
            filter_m    = (alpha_header >> 2) & 0x03;
            compression =  alpha_header       & 0x03;
 
            if (compression > ALPHA_COMPRESSION_VP8L) {
                av_log(avctx, AV_LOG_VERBOSE,
                       "skipping unsupported ALPHA chunk\n");
            } else {
                s->has_alpha         = 1;
                s->alpha_compression = compression;
                s->alpha_filter      = filter_m;
            }
 
            break;
        }
        case MKTAG('E', 'X', 'I', 'F'): {
            AVBufferRef *exif_buf = NULL;
 
            if (s->has_exif) {
                av_log(avctx, AV_LOG_VERBOSE, "Ignoring extra EXIF chunk\n");
                goto exif_end;
            }
 
            if (!(vp8x_flags & VP8X_FLAG_EXIF_METADATA))
                av_log(avctx, AV_LOG_WARNING,
                       "EXIF chunk present, but Exif bit not set in the "
                       "VP8X header\n");
 
            exif_buf = av_buffer_alloc(chunk_size);
            if (!exif_buf) {
                av_log(avctx, AV_LOG_WARNING, "unable to allocate EXIF buffer\n");
                goto exif_end;
            }
            s->has_exif = 1;
            memcpy(exif_buf->data, gb.buffer, chunk_size);
 
            ret = ff_decode_exif_attach_buffer(avctx, p, &exif_buf, AV_EXIF_TIFF_HEADER);
            if (ret < 0)
                av_log(avctx, AV_LOG_WARNING, "unable to attach EXIF buffer\n");
 
exif_end:
            bytestream2_skip(&gb, chunk_size);
            break;
        }
        case MKTAG('I', 'C', 'C', 'P'): {
            AVFrameSideData *sd;
 
            if (s->has_iccp) {
                av_log(avctx, AV_LOG_VERBOSE, "Ignoring extra ICCP chunk\n");
                bytestream2_skip(&gb, chunk_size);
                break;
            }
            if (!(vp8x_flags & VP8X_FLAG_ICC))
                av_log(avctx, AV_LOG_WARNING,
                       "ICCP chunk present, but ICC Profile bit not set in the "
                       "VP8X header\n");
 
            s->has_iccp = 1;
 
            ret = ff_frame_new_side_data(avctx, p, AV_FRAME_DATA_ICC_PROFILE, chunk_size, &sd);
            if (ret < 0)
                return ret;
 
            if (sd) {
                bytestream2_get_buffer(&gb, sd->data, chunk_size);
            } else {
                bytestream2_skip(&gb, chunk_size);
            }
            break;
        }
        case MKTAG('A', 'N', 'I', 'M'):
        case MKTAG('A', 'N', 'M', 'F'):
            av_log(avctx, AV_LOG_WARNING, "skipping unsupported chunk: %s\n",
                   av_fourcc2str(chunk_type));
            bytestream2_skip(&gb, chunk_size);
            break;
        case MKTAG('X', 'M', 'P', ' '): {
            if (s->has_xmp) {
                av_log(avctx, AV_LOG_VERBOSE, "Ignoring extra XMP chunk\n");
                bytestream2_skip(&gb, chunk_size);
                break;
            }
            if (!(vp8x_flags & VP8X_FLAG_XMP_METADATA))
                av_log(avctx, AV_LOG_WARNING,
                       "XMP chunk present, but XMP bit not set in the "
                       "VP8X header\n");
 
            s->has_xmp = 1;
 
            // there are at least chunk_size bytes left to read
            uint8_t *buffer = av_malloc(chunk_size + 1);
            if (!buffer)
                return AVERROR(ENOMEM);
 
            bytestream2_get_buffer(&gb, buffer, chunk_size);
            buffer[chunk_size] = '\0';
 
            av_dict_set(&p->metadata, "xmp", buffer, AV_DICT_DONT_STRDUP_VAL);
            break;
        }
        default:
            av_log(avctx, AV_LOG_VERBOSE, "skipping unknown chunk: %s\n",
                   av_fourcc2str(chunk_type));
            bytestream2_skip(&gb, chunk_size);
            break;
        }
    }
 
    if (!*got_frame) {
        av_log(avctx, AV_LOG_ERROR, "image data not found\n");
        return AVERROR_INVALIDDATA;
    }
 
    return avpkt->size;
}
 
static av_cold int webp_decode_init(AVCodecContext *avctx)
{
    WebPContext *s = avctx->priv_data;
 
    s->pkt = av_packet_alloc();
    if (!s->pkt)
        return AVERROR(ENOMEM);
 
    return 0;
}
 
static av_cold int webp_decode_close(AVCodecContext *avctx)
{
    WebPContext *s = avctx->priv_data;
 
    av_packet_free(&s->pkt);
 
    if (s->initialized)
        return ff_vp8_decode_free(avctx);
 
    return 0;
}
 
const FFCodec ff_webp_decoder = {
    .p.name         = "webp",
    CODEC_LONG_NAME("WebP image"),
    .p.type         = AVMEDIA_TYPE_VIDEO,
    .p.id           = AV_CODEC_ID_WEBP,
    .priv_data_size = sizeof(WebPContext),
    .init           = webp_decode_init,
    FF_CODEC_DECODE_CB(webp_decode_frame),
    .close          = webp_decode_close,
    .p.capabilities = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_FRAME_THREADS,
    .caps_internal  = FF_CODEC_CAP_ICC_PROFILES |
                      FF_CODEC_CAP_USES_PROGRESSFRAMES,
};
 
#if CONFIG_WEBP_ANIM_DECODER
 
#define ANMF_FLAG_DISPOSE  (1 << 0)
#define ANMF_FLAG_NO_BLEND (1 << 1)
 
typedef struct AnimatedWebPContext {
    WebPContext w;
 
    AVFrame *canvas;                    /* AVFrame for canvas */
    AVFrame *subframe;                  /* AVFrame for subframe */
    int canvas_width;                   /* canvas width */
    int canvas_height;                  /* canvas height */
    int anmf_flags;                     /* frame flags from ANMF chunk */
    int pos_x;                          /* frame position X */
    int pos_y;                          /* frame position Y */
    int duration;                       /* frame duration */
    int prev_anmf_flags;                /* previous frame flags from ANMF chunk */
    int prev_width;                     /* previous frame width */
    int prev_height;                    /* previous frame height */
    int prev_pos_x;                     /* previous frame position X */
    int prev_pos_y;                     /* previous frame position Y */
    uint8_t background_argb[4];         /* background color in ARGB format */
    uint8_t background_yuva[4];         /* background color in YUVA format */
} AnimatedWebPContext;
 
/*
 * Blend src (foreground) into dst (background), in ARGB format.
 * pos_x, pos_y is the position in dst.
 */
static void blend_alpha_argb(AVFrame *dst, AVFrame *src, int pos_x, int pos_y)
{
    for (int y = 0; y < src->height; y++) {
        const uint8_t *src_argb = src->data[0] +          y  * src->linesize[0];
        uint8_t       *dst_argb = dst->data[0] + (pos_y + y) * dst->linesize[0] + pos_x * sizeof(uint32_t);
        for (int x = 0; x < src->width; x++) {
            int src_alpha = src_argb[0];
            int dst_alpha = dst_argb[0];
 
            if (src_alpha == 255) {
                memcpy(dst_argb, src_argb, sizeof(uint32_t));
            } else if (src_alpha == 0) {
                // no-op
            } else {
                int tmp_alpha = (dst_alpha * (256 - src_alpha)) >> 8;
                int blend_alpha = src_alpha + tmp_alpha;
                int scale = (1UL << 24) / blend_alpha;
 
                dst_argb[0] = blend_alpha;
                dst_argb[1] = (((uint32_t) (src_argb[1] * src_alpha + dst_argb[1] * tmp_alpha)) * scale) >> 24;
                dst_argb[2] = (((uint32_t) (src_argb[2] * src_alpha + dst_argb[2] * tmp_alpha)) * scale) >> 24;
                dst_argb[3] = (((uint32_t) (src_argb[3] * src_alpha + dst_argb[3] * tmp_alpha)) * scale) >> 24;
            }
            src_argb += sizeof(uint32_t);
            dst_argb += sizeof(uint32_t);
        }
    }
}
 
/*
 * Blend src (foreground) into dst (background), in YUVA format.
 * pos_x, pos_y is the position in dst.
 */
static void blend_alpha_yuva(AVFrame *dst, AVFrame *src, int pos_x, int pos_y)
{
    const AVPixFmtDescriptor *desc = av_pix_fmt_desc_get(src->format);
 
    int plane_y = desc->comp[0].plane;
    int plane_u = desc->comp[1].plane;
    int plane_v = desc->comp[2].plane;
    int plane_a = desc->comp[3].plane;
 
    // blend U & V planes first, because the later step may modify alpha plane
    for (int y = 0; y < AV_CEIL_RSHIFT(src->height, 1); y++) {
        int tile_h = FFMIN(src->height - y * 2, 2);
        const uint8_t *src_u = src->data[plane_u] +                 y  * src->linesize[plane_u];
        const uint8_t *src_v = src->data[plane_v] +                 y  * src->linesize[plane_v];
        uint8_t       *dst_u = dst->data[plane_u] + ((pos_y >> 1) + y) * dst->linesize[plane_u] + (pos_x >> 1);
        uint8_t       *dst_v = dst->data[plane_v] + ((pos_y >> 1) + y) * dst->linesize[plane_v] + (pos_x >> 1);
        for (int x = 0; x < AV_CEIL_RSHIFT(src->width, 1); x++) {
            int tile_w = FFMIN(src->width - x * 2, 2);
            // calculate the average alpha of the tile
            int src_alpha = 0;
            int dst_alpha = 0;
            for (int yy = 0; yy < tile_h; yy++) {
                for (int xx = 0; xx < tile_w; xx++) {
                    src_alpha += src->data[plane_a][(y * 2 + yy) * src->linesize[plane_a] +
                                                    (x * 2 + xx)];
                    dst_alpha += dst->data[plane_a][(((pos_y >> 1) + y) * 2 + yy) * dst->linesize[plane_a] +
                                                    (((pos_x >> 1) + x) * 2 + xx)];
                }
            }
            int shift = (tile_h == 2) + (tile_w == 2);
            src_alpha = AV_CEIL_RSHIFT(src_alpha, shift);
            dst_alpha = AV_CEIL_RSHIFT(dst_alpha, shift);
 
            if (src_alpha == 255) {
                *dst_u = *src_u;
                *dst_v = *src_v;
            } else if (src_alpha == 0) {
                // no-op
            } else {
                int tmp_alpha = (dst_alpha * (256 - src_alpha)) >> 8;
                int blend_alpha = src_alpha + tmp_alpha;
                int scale = (1UL << 24) / blend_alpha;
                *dst_u = (((uint32_t) (*src_u * src_alpha + *dst_u * tmp_alpha)) * scale) >> 24;
                *dst_v = (((uint32_t) (*src_v * src_alpha + *dst_v * tmp_alpha)) * scale) >> 24;
            }
            src_u += 1;
            src_v += 1;
            dst_u += 1;
            dst_v += 1;
        }
    }
 
    // blend Y & A planes
    for (int y = 0; y < src->height; y++) {
        const uint8_t *src_y = src->data[plane_y] +          y  * src->linesize[plane_y];
        const uint8_t *src_a = src->data[plane_a] +          y  * src->linesize[plane_a];
        uint8_t       *dst_y = dst->data[plane_y] + (pos_y + y) * dst->linesize[plane_y] + pos_x;
        uint8_t       *dst_a = dst->data[plane_a] + (pos_y + y) * dst->linesize[plane_a] + pos_x;
        for (int x = 0; x < src->width; x++) {
            int src_alpha = *src_a;
            int dst_alpha = *dst_a;
 
            if (src_alpha == 255) {
                *dst_y = *src_y;
                *dst_a = 255;
            } else if (src_alpha == 0) {
                // no-op
            } else {
                int tmp_alpha = (dst_alpha * (256 - src_alpha)) >> 8;
                int blend_alpha = src_alpha + tmp_alpha;
                int scale = (1UL << 24) / blend_alpha;
                *dst_y = (((uint32_t) (*src_y * src_alpha + *dst_y * tmp_alpha)) * scale) >> 24;
                *dst_a = blend_alpha;
            }
            src_y += 1;
            src_a += 1;
            dst_y += 1;
            dst_a += 1;
        }
    }
}
 
static av_always_inline void webp_yuva2argb(uint8_t *out, int Y, int U, int V, int A)
{
    // variables used in macros
    const uint8_t *cm = ff_crop_tab + MAX_NEG_CROP;
    uint8_t r, g, b;
    int y, cb, cr;
    int r_add, g_add, b_add;
 
    YUV_TO_RGB1_CCIR(U, V);
    YUV_TO_RGB2_CCIR(r, g, b, Y);
 
    out[0] = av_clip_uint8(A);
    out[1] = av_clip_uint8(r);
    out[2] = av_clip_uint8(g);
    out[3] = av_clip_uint8(b);
}
 
static void copy_yuva2argb(AVFrame *dst, AVFrame *src, int pos_x, int pos_y)
{
    const AVPixFmtDescriptor *src_desc = av_pix_fmt_desc_get(src->format);
 
    int alpha   = src_desc->nb_components > 3;
    int plane_y = src_desc->comp[0].plane;
    int plane_u = src_desc->comp[1].plane;
    int plane_v = src_desc->comp[2].plane;
    int plane_a = src_desc->comp[3].plane;
 
    for (int y = 0; y < src->height; y++) {
        const uint8_t *src_y = src->data[plane_y] +  y       * src->linesize[plane_y];
        const uint8_t *src_u = src->data[plane_u] + (y >> 1) * src->linesize[plane_u];
        const uint8_t *src_v = src->data[plane_v] + (y >> 1) * src->linesize[plane_v];
        const uint8_t *src_a = NULL;
        uint8_t       *dst_argb = dst->data[0] + (pos_y + y) * dst->linesize[0] + pos_x * 4;
        if (alpha)
            src_a = src->data[plane_a] + y * src->linesize[plane_a];
 
        for (int x = 0; x < src->width; x++) {
            webp_yuva2argb(dst_argb, *src_y, *src_u, *src_v, (alpha ? *src_a : 255));
            src_y += 1;
            src_u += x & 1;
            src_v += x & 1;
            if (alpha)
                src_a += 1;
            dst_argb += sizeof(uint32_t);
        }
    }
}
 
static void blend_yuva2argb(AVFrame *dst, AVFrame *src, int pos_x, int pos_y)
{
    const AVPixFmtDescriptor *src_desc = av_pix_fmt_desc_get(src->format);
 
    int plane_y = src_desc->comp[0].plane;
    int plane_u = src_desc->comp[1].plane;
    int plane_v = src_desc->comp[2].plane;
    int plane_a = src_desc->comp[3].plane;
 
    for (int y = 0; y < src->height; y++) {
        const uint8_t *src_y = src->data[plane_y] +  y       * src->linesize[plane_y];
        const uint8_t *src_u = src->data[plane_u] + (y >> 1) * src->linesize[plane_u];
        const uint8_t *src_v = src->data[plane_v] + (y >> 1) * src->linesize[plane_v];
        const uint8_t *src_a = src->data[plane_a] +  y       * src->linesize[plane_a];
        uint8_t       *dst_argb = dst->data[0] + (pos_y + y) * dst->linesize[0] + pos_x * 4;
 
        for (int x = 0; x < src->width; x++) {
            int src_alpha = *src_a;
            int dst_alpha = dst_argb[0];
 
            if (src_alpha == 255) {
                webp_yuva2argb(dst_argb, *src_y, *src_u, *src_v, src_alpha);
            } else if (src_alpha == 0) {
                // no-op
            } else {
                uint8_t tmp[4];
                int tmp_alpha = (dst_alpha * (256 - src_alpha)) >> 8;
                int blend_alpha = src_alpha + tmp_alpha;
                int scale = (1UL << 24) / blend_alpha;
 
                webp_yuva2argb(tmp, *src_y, *src_u, *src_v, src_alpha);
 
                dst_argb[0] = blend_alpha;
                dst_argb[1] = (((uint32_t) (tmp[1] * src_alpha + dst_argb[1] * tmp_alpha)) * scale) >> 24;
                dst_argb[2] = (((uint32_t) (tmp[2] * src_alpha + dst_argb[2] * tmp_alpha)) * scale) >> 24;
                dst_argb[3] = (((uint32_t) (tmp[3] * src_alpha + dst_argb[3] * tmp_alpha)) * scale) >> 24;
            }
 
            src_y += 1;
            src_u += x & 1;
            src_v += x & 1;
            src_a += 1;
            dst_argb += sizeof(uint32_t);
        }
    }
}
 
static int blend_subframe_into_canvas(AnimatedWebPContext *s)
{
    AVFrame *canvas = s->canvas;
    AVFrame *frame = s->subframe;
 
    if ((s->anmf_flags & ANMF_FLAG_NO_BLEND)
        || frame->format == AV_PIX_FMT_YUV420P) {
        // do not blend, overwrite
 
        if (canvas->format == AV_PIX_FMT_ARGB) {
            if (canvas->format == frame->format) {
                const uint8_t *src = frame->data[0];
                uint8_t       *dst = canvas->data[0] +
                                     s->pos_y * canvas->linesize[0] +
                                     s->pos_x * sizeof(uint32_t);
                for (int y = 0; y < s->w.height; y++) {
                    memcpy(dst, src, s->w.width * sizeof(uint32_t));
                    src += frame->linesize[0];
                    dst += canvas->linesize[0];
                }
            } else {
                copy_yuva2argb(canvas, frame, s->pos_x, s->pos_y);
            }
        } else /* if (canvas->format == AV_PIX_FMT_YUVA420P) */ {
            const AVPixFmtDescriptor *desc = av_pix_fmt_desc_get(frame->format);
 
            for (int comp = 0; comp < desc->nb_components; comp++) {
                int plane = desc->comp[comp].plane;
                int shift = (comp == 1 || comp == 2) ? 1 : 0;
                const uint8_t *src = frame->data[plane];
                uint8_t       *dst = canvas->data[plane] +
                                     (s->pos_y >> shift) * canvas->linesize[plane] +
                                     (s->pos_x >> shift);
                for (int y = 0; y < AV_CEIL_RSHIFT(s->w.height, shift); y++) {
                    memcpy(dst, src, AV_CEIL_RSHIFT(s->w.width, shift));
                    src += frame->linesize[plane];
                    dst += canvas->linesize[plane];
                }
            }
 
            if (canvas->format == AV_PIX_FMT_YUVA420P && desc->nb_components < 4) {
                // frame does not have alpha, set alpha to 255
                const AVPixFmtDescriptor *canvas_desc = av_pix_fmt_desc_get(canvas->format);
                int plane = canvas_desc->comp[3].plane;
                uint8_t *dst = canvas->data[plane] + s->pos_y * canvas->linesize[plane] + s->pos_x;
                for (int y = 0; y < s->w.height; y++) {
                    memset(dst, 255, s->w.width);
                    dst += canvas->linesize[plane];
                }
            }
        }
    } else {
        // alpha blending
 
        if (canvas->format == AV_PIX_FMT_ARGB) {
            if (canvas->format == frame->format) {
                blend_alpha_argb(canvas, frame, s->pos_x, s->pos_y);
            } else {
                blend_yuva2argb(canvas, frame, s->pos_x, s->pos_y);
            }
        } else /* if (canvas->format == AV_PIX_FMT_YUVA420P) */ {
            blend_alpha_yuva(canvas, frame, s->pos_x, s->pos_y);
        }
    }
 
    return 0;
}
 
/**
 * Fill a rectangle on the canvas with the background color (transparent black
 * by default, or the color from the ANIM chunk if provided by the demuxer).
 */
static void fill_canvas_rect(AnimatedWebPContext *s, int pos_x, int pos_y, int width, int height)
{
    AVFrame *canvas = s->canvas;
 
    if (canvas->format == AV_PIX_FMT_ARGB) {
        uint32_t bg_color = AV_RN32(s->background_argb);
        int is_repeatable = (bg_color == ((bg_color & 0xff) * 0x01010101));
        for (int y = 0; y < height; y++) {
            uint32_t *dst = (uint32_t *) (canvas->data[0] + (pos_y + y) * canvas->linesize[0]) + pos_x;
            if (is_repeatable) {
                memset(dst, bg_color, width * sizeof(uint32_t));
            } else {
                for (int x = 0; x < width; x++)
                    dst[x] = bg_color;
            }
        }
    } else /* if (canvas->format == AV_PIX_FMT_YUVA420P) */ {
        const AVPixFmtDescriptor *desc = av_pix_fmt_desc_get(canvas->format);
        for (int comp = 0; comp < desc->nb_components; comp++) {
            int shift = (comp == 1 || comp == 2) ? 1 : 0;
            int plane = desc->comp[comp].plane;
            uint8_t *dst = canvas->data[plane] + (pos_y >> shift) * canvas->linesize[plane] + (pos_x >> shift);
            for (int y = 0; y < AV_CEIL_RSHIFT(height, shift); y++) {
                memset(dst, s->background_yuva[plane], AV_CEIL_RSHIFT(width, shift));
                dst += canvas->linesize[plane];
            }
        }
    }
}
 
static int allocate_canvas(AnimatedWebPContext *s, int format)
{
    s->w.avctx->pix_fmt = format;
    int ret = ff_set_dimensions(s->w.avctx, s->canvas_width, s->canvas_height);
    if (ret < 0)
        return ret;
    return ff_reget_buffer(s->w.avctx, s->canvas, 0);
}
 
static int prepare_canvas(AnimatedWebPContext *s, int key_frame, int format)
{
    int ret;
 
    /**
     * Clear the canvas on keyframes and frames that overwrite the entire
     * canvas.
     */
    if (key_frame ||
        ((s->anmf_flags & ANMF_FLAG_NO_BLEND) &&
         (s->pos_x == 0) && (s->pos_x + s->w.width == s->canvas_width) &&
         (s->pos_y == 0) && (s->pos_y + s->w.height == s->canvas_height)))
        av_frame_unref(s->canvas);
 
    if (!s->canvas->buf[0]) {
        /* Allocate new canvas frame */
        ret = allocate_canvas(s, format);
        if (ret < 0)
            return ret;
        /* ... and initialize it. */
        fill_canvas_rect(s, 0, 0, s->canvas->width, s->canvas->height);
    } else {
        if (format == AV_PIX_FMT_ARGB && s->canvas->format == AV_PIX_FMT_YUVA420P) {
            /**
             * If we have a lossless frame following a lossy frame, we upgrade
             * the canvas to ARGB, but we don't convert the canvas back to YUVA
             * if there is a lossy frame following a lossless frame.
             */
            AVFrame *yuva_canvas = av_frame_clone(s->canvas);
            if (!yuva_canvas)
                return AVERROR(ENOMEM);
            av_frame_unref(s->canvas);
            ret = allocate_canvas(s, AV_PIX_FMT_ARGB);
            if (ret < 0) {
                av_frame_free(&yuva_canvas);
                return ret;
            }
            copy_yuva2argb(s->canvas, yuva_canvas, 0, 0);
            av_frame_free(&yuva_canvas);
        } else {
            /**
             * The decode frame function returns a reference to the canvas,
             * therefore we have to ensure it is writable before using it
             * for a new frame.
             */
            ret = av_frame_make_writable(s->canvas);
            if (ret < 0)
                return ret;
        }
        /* Dispose of previous frame if needed. */
        if (s->prev_anmf_flags & ANMF_FLAG_DISPOSE)
            fill_canvas_rect(s, s->prev_pos_x, s->prev_pos_y, s->prev_width, s->prev_height);
    }
 
    return 0;
}
 
static int webp_anim_decode_frame(AVCodecContext *avctx, AVFrame *p,
                                  int *got_frame, AVPacket *avpkt)
{
    AnimatedWebPContext *s = avctx->priv_data;
    int key_frame = (avpkt->flags & AV_PKT_FLAG_KEY);
    int ret;
 
    GetByteContext gb;
    bytestream2_init(&gb, avpkt->data, avpkt->size);
 
    /* Parse ANMF header. */
    s->pos_x      = bytestream2_get_le24(&gb) * 2;
    s->pos_y      = bytestream2_get_le24(&gb) * 2;
    s->w.width    = bytestream2_get_le24(&gb) + 1;
    s->w.height   = bytestream2_get_le24(&gb) + 1;
    s->duration   = bytestream2_get_le24(&gb);
    s->anmf_flags = bytestream2_get_byte(&gb);
 
    av_log(avctx, AV_LOG_DEBUG,
           "ANMF frame pos: %dx%d size: %dx%d duration: %d\n",
           s->pos_x, s->pos_y, s->w.width, s->w.height, s->duration);
 
    /* Reset alpha field from previous frame. */
    s->w.has_alpha = 0;
 
    /* Parse ANMF subchunks. */
    while (bytestream2_get_bytes_left(&gb) > 8) {
        uint32_t chunk_type = bytestream2_get_le32(&gb);
        uint32_t chunk_size = bytestream2_get_le32(&gb);
 
        if (chunk_size == UINT32_MAX) {
            ret = AVERROR_INVALIDDATA;
            goto end;
        }
        chunk_size += chunk_size & 1;
 
        if (bytestream2_get_bytes_left(&gb) < chunk_size) {
            /* we seem to be running out of data, but it could also be that the
             * bitstream has trailing junk leading to bogus chunk_size. */
            break;
        }
 
        switch (chunk_type) {
        case MKTAG('A', 'L', 'P', 'H'): {
            if (chunk_size == 0) {
                av_log(avctx, AV_LOG_ERROR, "invalid ALPHA chunk size\n");
                ret = AVERROR_INVALIDDATA;
                goto end;
            }
            int alpha_header     = bytestream2_get_byte(&gb);
            s->w.alpha_data      = avpkt->data + bytestream2_tell(&gb);
            s->w.alpha_data_size = chunk_size - 1;
            bytestream2_skip(&gb, s->w.alpha_data_size);
 
            int filter_m    = (alpha_header >> 2) & 0x03;
            int compression =  alpha_header       & 0x03;
 
            if (compression > ALPHA_COMPRESSION_VP8L) {
                av_log(avctx, AV_LOG_VERBOSE,
                       "skipping unsupported ALPHA chunk\n");
            } else {
                s->w.has_alpha         = 1;
                s->w.alpha_compression = compression;
                s->w.alpha_filter      = filter_m;
            }
 
            break;
        }
        case MKTAG('V', 'P', '8', ' '):
            if (*got_frame) {
                av_log(avctx, AV_LOG_VERBOSE, "Ignoring extra VP8 chunk\n");
                bytestream2_skip(&gb, chunk_size);
                break;
            }
            ret = vp8_lossy_decode_frame(avctx, s->subframe, got_frame,
                                         avpkt->data + bytestream2_tell(&gb),
                                         chunk_size);
            if (ret < 0)
                goto end;
            ret = prepare_canvas(s, key_frame, AV_PIX_FMT_YUVA420P);
            if (ret < 0)
                goto end;
            bytestream2_skip(&gb, chunk_size);
            break;
        case MKTAG('V', 'P', '8', 'L'):
            if (*got_frame) {
                av_log(avctx, AV_LOG_VERBOSE, "Ignoring extra VP8L chunk\n");
                bytestream2_skip(&gb, chunk_size);
                break;
            }
            ret = vp8_lossless_decode_frame(avctx, s->subframe, got_frame,
                                            avpkt->data + bytestream2_tell(&gb),
                                            chunk_size, 0);
            if (ret < 0)
                goto end;
            ret = prepare_canvas(s, key_frame, AV_PIX_FMT_ARGB);
            if (ret < 0)
                goto end;
            bytestream2_skip(&gb, chunk_size);
            break;
        default:
            av_log(avctx, AV_LOG_VERBOSE, "skipping unknown chunk: %s\n",
                   av_fourcc2str(chunk_type));
            bytestream2_skip(&gb, chunk_size);
            break;
        }
    }
 
    if (!*got_frame) {
        av_log(avctx, AV_LOG_ERROR, "image data not found\n");
        ret = AVERROR_INVALIDDATA;
        goto end;
    }
 
    /* The subframe dimensions may have been modified by update_canvas_size() */
    if (s->pos_x + s->w.width  > s->canvas_width ||
        s->pos_y + s->w.height > s->canvas_height) {
        av_log(avctx, AV_LOG_ERROR,
               "Frame (%dx%d at pos %dx%d) does not fit into canvas (%dx%d)\n",
               s->w.width, s->w.height, s->pos_x, s->pos_y,
               s->canvas_width, s->canvas_height);
        ret = AVERROR_INVALIDDATA;
        goto end;
    }
 
    ret = blend_subframe_into_canvas(s);
    if (ret < 0)
        goto end;
 
    ret = av_frame_ref(p, s->canvas);
    if (ret < 0)
        goto end;
 
    p->pict_type = key_frame ? AV_PICTURE_TYPE_I : AV_PICTURE_TYPE_P;
    p->pts       = avpkt->pts;
    p->duration  = s->duration;
 
    s->prev_anmf_flags = s->anmf_flags;
    s->prev_width      = s->w.width;
    s->prev_height     = s->w.height;
    s->prev_pos_x      = s->pos_x;
    s->prev_pos_y      = s->pos_y;
 
    ret = avpkt->size;
 
end:
    av_frame_unref(s->subframe);
    return ret;
}
 
static av_cold int webp_anim_decode_init(AVCodecContext *avctx)
{
    AnimatedWebPContext *s = avctx->priv_data;
 
    s->w.avctx = avctx;
    s->canvas_width  = avctx->width;
    s->canvas_height = avctx->height;
 
    s->canvas = av_frame_alloc();
    if (!s->canvas)
        return AVERROR(ENOMEM);
 
    s->subframe = av_frame_alloc();
    if (!s->subframe)
        return AVERROR(ENOMEM);
 
    /**
     * Use background color if it was provided by the demuxer. Otherwise, the
     * background color will be 0x00000000 (transparent black).
     */
    if (avctx->extradata_size >= 4) {
        s->background_argb[0] = avctx->extradata[3];
        s->background_argb[1] = avctx->extradata[2];
        s->background_argb[2] = avctx->extradata[1];
        s->background_argb[3] = avctx->extradata[0];
    }
 
    /* Convert background color to YUVA. */
    const uint8_t *argb = s->background_argb;
    s->background_yuva[0] = RGB_TO_Y_CCIR(argb[1], argb[2], argb[3]);
    s->background_yuva[1] = RGB_TO_U_CCIR(argb[1], argb[2], argb[3], 0);
    s->background_yuva[2] = RGB_TO_V_CCIR(argb[1], argb[2], argb[3], 0);
    s->background_yuva[3] = argb[0];
 
    return webp_decode_init(avctx);
}
 
static av_cold int webp_anim_decode_close(AVCodecContext *avctx)
{
    AnimatedWebPContext *s = avctx->priv_data;
 
    av_frame_free(&s->canvas);
    av_frame_free(&s->subframe);
 
    return webp_decode_close(avctx);
}
 
const FFCodec ff_webp_anim_decoder = {
    .p.name         = "webp_anim",
    CODEC_LONG_NAME("Animated WebP image"),
    .p.type         = AVMEDIA_TYPE_VIDEO,
    .p.id           = AV_CODEC_ID_WEBP_ANIM,
    .priv_data_size = sizeof(AnimatedWebPContext),
    .init           = webp_anim_decode_init,
    FF_CODEC_DECODE_CB(webp_anim_decode_frame),
    .close          = webp_anim_decode_close,
    .p.capabilities = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_SLICE_THREADS,
    .caps_internal  = FF_CODEC_CAP_USES_PROGRESSFRAMES,
};
#endif /* CONFIG_WEBP_ANIM_DECODER */