/*****************************************************************************

 * png.c: png decoder module making use of libpng.

 *****************************************************************************

 * Copyright (C) 1999-2001 VLC authors and VideoLAN

 *

 * Authors: Gildas Bazin <gbazin@videolan.org>

 *

 * This program 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.

 *

 * This program 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 this program; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.

 *****************************************************************************/

/*****************************************************************************

 * Preamble

 *****************************************************************************/

#ifdef HAVE_CONFIG_H

# include "config.h"

#endif

#include <vlc_common.h>

#include <vlc_plugin.h>

#include <vlc_codec.h>

#include <vlc_rand.h>

#include <vlc_ancillary.h>

#include <png.h>

#include <stdckdint.h>

/* PNG_SYS_COMMON_MEMBERS:

 * members common to encoder and decoder descriptors

 */

#define PNG_SYS_COMMON_MEMBERS                              \

/**@{*/                                                     \

    bool b_error;                                           \

    vlc_object_t *p_obj;                                    \

/**@}*/                                                     \

/*

 * png common descriptor

 */

struct png_sys_t

{

    PNG_SYS_COMMON_MEMBERS

};

typedef struct png_sys_t png_sys_t;

/*****************************************************************************

 * decoder_sys_t : png decoder descriptor

 *****************************************************************************/

typedef struct

{

    PNG_SYS_COMMON_MEMBERS

} decoder_sys_t;

/*****************************************************************************

 * Local prototypes

 *****************************************************************************/

static int  OpenDecoder   ( vlc_object_t * );

static int DecodeBlock  ( decoder_t *, block_t * );

/*

 * png encoder descriptor

 */

typedef struct

{

    PNG_SYS_COMMON_MEMBERS

    size_t i_blocksize;

} encoder_sys_t;

static int  OpenEncoder(vlc_object_t *);

static block_t *EncodeBlock(encoder_t *, picture_t *);

/*****************************************************************************

 * Module descriptor

 *****************************************************************************/

vlc_module_begin ()

    set_subcategory( SUBCAT_INPUT_VCODEC )

    set_description( N_("PNG video decoder") )

    set_capability( "video decoder", 1000 )

    set_callback( OpenDecoder )

    add_shortcut( "png" )

#ifdef ENABLE_SOUT

    /* video encoder submodule */

    add_submodule()

    add_shortcut("png")

    set_section(N_("Encoding"), NULL)

    set_description(N_("PNG video encoder"))

    set_capability("video encoder", 1000)

    set_callback(OpenEncoder)

#endif

    /* image encoder submodule */

    add_submodule()

    add_shortcut("png")

    set_section(N_("Encoding"), NULL)

    set_description(N_("PNG image encoder"))

    set_capability("image encoder", 1000)

    set_callback(OpenEncoder)

vlc_module_end ()

/*****************************************************************************

 * OpenDecoder: probe the decoder and return score

 *****************************************************************************/

static int OpenDecoder( vlc_object_t *p_this )

{

    decoder_t *p_dec = (decoder_t*)p_this;

    if( p_dec->fmt_in->i_codec != VLC_CODEC_PNG &&

        p_dec->fmt_in->i_codec != VLC_FOURCC('M','P','N','G') )

    {

        return VLC_EGENERIC;

    }

    /* Allocate the memory needed to store the decoder's structure */

    decoder_sys_t *p_sys = vlc_obj_malloc( p_this, sizeof(decoder_sys_t) );

    if( p_sys == NULL )

        return VLC_ENOMEM;

    p_dec->p_sys = p_sys;

    p_sys->p_obj = p_this;

    /* Set output properties */

    p_dec->fmt_out.i_codec = VLC_CODEC_RGBA;

    p_dec->fmt_out.video.transfer  = TRANSFER_FUNC_SRGB;

    p_dec->fmt_out.video.space     = COLOR_SPACE_SRGB;

    p_dec->fmt_out.video.primaries = COLOR_PRIMARIES_SRGB;

    p_dec->fmt_out.video.color_range = COLOR_RANGE_FULL;

    /* Set callbacks */

    p_dec->pf_decode = DecodeBlock;

    return VLC_SUCCESS;

}

static void user_read( png_structp p_png, png_bytep data, png_size_t i_length )

{

    block_t *p_block = (block_t *)png_get_io_ptr( p_png );

    if( i_length > p_block->i_buffer ) {

        png_error( p_png, "not enough data" );

        return;

    }

    memcpy( data, p_block->p_buffer, i_length );

    p_block->p_buffer += i_length;

    p_block->i_buffer -= i_length;

}

static void user_flush( png_structp p_png )

{

    /* noop */

    (void) p_png;

}

static void user_write( png_structp p_png, png_bytep data, png_size_t i_length )

{

    block_t *p_block = (block_t *)png_get_io_ptr( p_png );

    if( i_length > p_block->i_buffer ) {

        char err_str[128];

        snprintf( err_str, sizeof(err_str),

                  "block size %zu too small for %zu encoded bytes",

                  p_block->i_buffer, i_length );

        png_error( p_png, err_str );

        return;

    }

    memcpy( p_block->p_buffer, data, i_length );

    p_block->p_buffer += i_length;

    p_block->i_buffer -= i_length;

}

static void user_error( png_structp p_png, png_const_charp error_msg )

{

    png_sys_t *p_sys = (png_sys_t *)png_get_error_ptr( p_png );

    p_sys->b_error = true;

    msg_Err( p_sys->p_obj, "%s", error_msg );

}

static void user_warning( png_structp p_png, png_const_charp warning_msg )

{

    png_sys_t *p_sys = (png_sys_t *)png_get_error_ptr( p_png );

    msg_Warn( p_sys->p_obj, "%s", warning_msg );

}

#ifdef PNG_TEXT_SUPPORTED

static void process_text_chunk( decoder_t *p_dec, const png_textp chunk )

{

    if( chunk->compression != PNG_ITXT_COMPRESSION_NONE ||

        memcmp( chunk->key, "XML:com.adobe.xmp", 17 ) ||

        chunk->itxt_length < 20 )

        return;

    const char *exifxmp = (const char *) chunk->text;

    const char *orient = strnstr( exifxmp, ":Orientation>", chunk->itxt_length );

    if(orient && orient - exifxmp > 14)

        p_dec->fmt_out.video.orientation = ORIENT_FROM_EXIF( orient[13] - '0' );

}

static int make_xmp_packet( const video_format_t *fmt, png_textp chunk )

{

    unsigned char id[9];

    vlc_rand_bytes(id, 8);

    for(int i=0; i<8; i++)

        id[i] = (id[i] % 26) + 'A';

    id[8] = '\0';

    int len = asprintf( &chunk->text,

            "<?xpacket begin='' id='%s'?>"

             "<x:xmpmeta xmlns:x='adobe:ns:meta/' x:xmptk='VLC " VERSION "'>"

              "<rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'>"

               "<rdf:Description rdf:about='' xmlns:tiff='http://ns.adobe.com/tiff/1.0/'>"

                "<tiff:Orientation>%" PRIu8 "</tiff:Orientation>"

               "</rdf:Description>"

              "</rdf:RDF>"

             "</x:xmpmeta>"

            "<?xpacket end='r'?>", id, (uint8_t)ORIENT_TO_EXIF(fmt->orientation) );

    if(len == 0)

    {

        free(chunk->text);

        chunk->text = NULL;

    }

    chunk->itxt_length = (len <= 0) ? 0 : len;

    chunk->compression = PNG_ITXT_COMPRESSION_NONE;

    chunk->key = len > 0 ? strdup( "XML:com.adobe.xmp" ) : NULL;

    chunk->lang_key = NULL;

    chunk->lang = NULL;

    chunk->text_length = 0;

    return len > 0 ? VLC_SUCCESS : VLC_EGENERIC;

}

#endif

/****************************************************************************

 * DecodeBlock: the whole thing

 ****************************************************************************

 * This function must be fed with a complete compressed frame.

 ****************************************************************************/

static int DecodeBlock( decoder_t *p_dec, block_t *p_block )

{

    decoder_sys_t *p_sys = p_dec->p_sys;

    picture_t *p_pic = 0;

    png_uint_32 i_width, i_height;

    int i_color_type, i_interlace_type, i_compression_type, i_filter_type;

    int i_bit_depth, i;

    png_structp p_png;

    png_infop p_info, p_end_info;

    png_bytep *volatile p_row_pointers = NULL;

    if( !p_block ) /* No Drain */

        return VLCDEC_SUCCESS;

    p_sys->b_error = false;

    if( p_block->i_flags & BLOCK_FLAG_CORRUPTED )

    {

        block_Release( p_block );

        return VLCDEC_SUCCESS;

    }

    p_png = png_create_read_struct( PNG_LIBPNG_VER_STRING, 0, 0, 0 );

    if( p_png == NULL )

    {

        block_Release( p_block );

        return VLCDEC_SUCCESS;

    }

    p_info = png_create_info_struct( p_png );

    if( p_info == NULL )

    {

        png_destroy_read_struct( &p_png, NULL, NULL );

        block_Release( p_block );

        return VLCDEC_SUCCESS;

    }

    p_end_info = png_create_info_struct( p_png );

    if( p_end_info == NULL )

    {

        png_destroy_read_struct( &p_png, &p_info, NULL );

        block_Release( p_block );

        return VLCDEC_SUCCESS;

    }

    /* libpng longjmp's there in case of error */

    if( setjmp( png_jmpbuf( p_png ) ) )

        goto error;

    png_set_read_fn( p_png, p_block, user_read );

    png_set_error_fn( p_png, p_sys, user_error, user_warning );

    png_read_info( p_png, p_info );

    if( p_sys->b_error ) goto error;

    png_get_IHDR( p_png, p_info, &i_width, &i_height,

                  &i_bit_depth, &i_color_type, &i_interlace_type,

                  &i_compression_type, &i_filter_type);

    if( p_sys->b_error ) goto error;

    /* Set output properties */

    p_dec->fmt_out.i_codec = VLC_CODEC_RGBA;

    p_dec->fmt_out.video.i_visible_width = p_dec->fmt_out.video.i_width = i_width;

    p_dec->fmt_out.video.i_visible_height = p_dec->fmt_out.video.i_height = i_height;

    p_dec->fmt_out.video.i_sar_num = 1;

    p_dec->fmt_out.video.i_sar_den = 1;

#ifdef PNG_TEXT_SUPPORTED

    png_textp textp;

    int numtextp;

    if( png_get_text( p_png, p_info, &textp, &numtextp ) > 0 )

        for( int ii=0; ii<numtextp; ii++ )

            process_text_chunk( p_dec, &textp[ii] );

#endif

    if( i_color_type == PNG_COLOR_TYPE_PALETTE )

        png_set_palette_to_rgb( p_png );

    if( i_color_type == PNG_COLOR_TYPE_GRAY ||

        i_color_type == PNG_COLOR_TYPE_GRAY_ALPHA )

          png_set_gray_to_rgb( p_png );

    if( i_color_type & PNG_COLOR_MASK_ALPHA )

        png_set_alpha_mode( p_png, PNG_ALPHA_OPTIMIZED, PNG_DEFAULT_sRGB );

    /* Strip to 8 bits per channel */

    if( i_bit_depth == 16 )

    {

#if PNG_LIBPNG_VER >= 10504

        png_set_scale_16( p_png );

#else

        png_set_strip_16( p_png );

#endif

    }

    if( png_get_valid( p_png, p_info, PNG_INFO_tRNS ) )

    {

        png_set_tRNS_to_alpha( p_png );

    }

    else if( !(i_color_type & PNG_COLOR_MASK_ALPHA) )

    {

        p_dec->fmt_out.i_codec = VLC_CODEC_RGB24;

    }

    /* Get a new picture */

    if( decoder_UpdateVideoFormat( p_dec ) )

        goto error;

    p_pic = decoder_NewPicture( p_dec );

    if( !p_pic ) goto error;

    p_pic->b_progressive = true;

    /* Decode ICC profile */

#ifdef PNG_iCCP_SUPPORTED

    if (png_get_valid( p_png, p_info, PNG_INFO_iCCP ))

    {

        vlc_icc_profile_t *icc;

        png_charp name;

        int compression;

# if PNG_LIBPNG_VER < 10500

        png_charp iccdata;

# else

        png_bytep iccdata;

# endif

        png_uint_32 icclen;

        png_get_iCCP( p_png, p_info, &name, &compression, &iccdata, &icclen);

        if( compression != PNG_COMPRESSION_TYPE_BASE )

            goto error; /* impossible with current libpng */

        icc = picture_AttachNewAncillary( p_pic, VLC_ANCILLARY_ID_ICC, sizeof(*icc) + icclen );

        if ( !icc )

            goto error;

        memcpy( icc->data, iccdata, icclen );

        icc->size = icclen;

    }

#endif

    /* Decode picture */

    p_row_pointers = vlc_alloc( i_height, sizeof(png_bytep) );

    if( !p_row_pointers )

        goto error;

    for( i = 0; i < (int)i_height; i++ )

        p_row_pointers[i] = p_pic->p->p_pixels + p_pic->p->i_pitch * i;

    png_read_image( p_png, p_row_pointers );

    if( p_sys->b_error ) goto error;

    png_read_end( p_png, p_end_info );

    if( p_sys->b_error ) goto error;

    png_destroy_read_struct( &p_png, &p_info, &p_end_info );

    free( p_row_pointers );

    p_pic->date = p_block->i_pts != VLC_TICK_INVALID ? p_block->i_pts : p_block->i_dts;

    block_Release( p_block );

    decoder_QueueVideo( p_dec, p_pic );

    return VLCDEC_SUCCESS;

 error:

    if( p_pic )

        picture_Release( p_pic );

    free( p_row_pointers );

    png_destroy_read_struct( &p_png, &p_info, &p_end_info );

    block_Release( p_block );

    return VLCDEC_SUCCESS;

}

static int OpenEncoder(vlc_object_t *p_this)

{

    encoder_t *p_enc = (encoder_t *) p_this;

    if( p_enc->fmt_out.i_codec != VLC_CODEC_PNG )

        return VLC_EGENERIC;

    /* Allocate the memory needed to store the encoder's structure */

    encoder_sys_t *p_sys = vlc_obj_malloc(p_this, sizeof(encoder_sys_t));

    if( p_sys == NULL )

        return VLC_ENOMEM;

    p_enc->p_sys = p_sys;

    p_sys->p_obj = p_this;

    if( ckd_mul( &p_sys->i_blocksize, 3, p_enc->fmt_in.video.i_visible_width ) ||

        ckd_mul( &p_sys->i_blocksize, p_sys->i_blocksize, p_enc->fmt_in.video.i_visible_height ) )

        return VLC_EGENERIC;

    p_enc->fmt_in.i_codec =

    p_enc->fmt_in.video.i_chroma = VLC_CODEC_RGB24;

    static const struct vlc_encoder_operations ops =

        { .encode_video = EncodeBlock };

    p_enc->ops = &ops;

    return VLC_SUCCESS;

}

/*

 * EncodeBlock

 */

static block_t *EncodeBlock(encoder_t *p_enc, picture_t *p_pic)

{

    encoder_sys_t *p_sys = p_enc->p_sys;

    if( unlikely( !p_pic ) )

    {

        return NULL;

    }

    block_t *p_block = block_Alloc( p_sys->i_blocksize );

    if( p_block == NULL )

    {

        return NULL;

    }

    png_structp p_png = png_create_write_struct( PNG_LIBPNG_VER_STRING, 0, 0, 0 );

    if( p_png == NULL )

    {

        block_Release( p_block );

        return NULL;

    }

    /* Disable filtering to speed-up encoding */

    png_set_filter( p_png, 0, PNG_NO_FILTERS );

    /* 1 == best speed */

    png_set_compression_level( p_png, 1 );

    /* save buffer start */

    uint8_t *p_start = p_block->p_buffer;

    size_t i_start = p_block->i_buffer;

    p_sys->b_error = false;

    png_infop p_info = NULL;

    /* libpng longjmp's there in case of error */

    if( setjmp( png_jmpbuf( p_png ) ) )

        goto error;

    png_set_write_fn( p_png, p_block, user_write, user_flush );

    png_set_error_fn( p_png, p_sys, user_error, user_warning );

    p_info = png_create_info_struct( p_png );

    if( p_info == NULL )

        goto error;

    png_set_IHDR( p_png, p_info,

            p_enc->fmt_in.video.i_visible_width,

            p_enc->fmt_in.video.i_visible_height,

            8, PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE,

            PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT );

    if( p_sys->b_error ) goto error;

#ifdef PNG_TEXT_SUPPORTED

    png_text text;

    if( make_xmp_packet( &p_pic->format, &text ) == VLC_SUCCESS )

    {

        png_set_text( p_png, p_info, &text, 1 );

        png_write_info( p_png, p_info );

        free( text.key );

        free( text.text );

    }

    else

#endif

        png_write_info( p_png, p_info );

    if( p_sys->b_error ) goto error;

    /* Encode picture */

    for( int i = 0; i < p_pic->p->i_visible_lines; i++ )

    {

        png_write_row( p_png, p_pic->p->p_pixels + (i * p_pic->p->i_pitch) );

        if( p_sys->b_error ) goto error;

    }

    png_write_end( p_png, p_info );

    if( p_sys->b_error ) goto error;

    png_destroy_write_struct( &p_png, &p_info );

    /* restore original buffer position */

    p_block->p_buffer = p_start;

    p_block->i_buffer = i_start - p_block->i_buffer;

    p_block->i_dts = p_block->i_pts = p_pic->date;

    return p_block;

 error:

    png_destroy_write_struct( &p_png, p_info ? &p_info : NULL );

    block_Release(p_block);

    return NULL;

}