all repos — mgba @ 6882339f625b97f344c6464915c2038bc453ea3c

mGBA Game Boy Advance Emulator

src/third-party/libpng/pngset.c (view raw)

   1
   2/* pngset.c - storage of image information into info struct
   3 *
   4 * Last changed in libpng 1.6.17 [March 26, 2015]
   5 * Copyright (c) 1998-2015 Glenn Randers-Pehrson
   6 * (Version 0.96 Copyright (c) 1996, 1997 Andreas Dilger)
   7 * (Version 0.88 Copyright (c) 1995, 1996 Guy Eric Schalnat, Group 42, Inc.)
   8 *
   9 * This code is released under the libpng license.
  10 * For conditions of distribution and use, see the disclaimer
  11 * and license in png.h
  12 *
  13 * The functions here are used during reads to store data from the file
  14 * into the info struct, and during writes to store application data
  15 * into the info struct for writing into the file.  This abstracts the
  16 * info struct and allows us to change the structure in the future.
  17 */
  18
  19#include "pngpriv.h"
  20
  21#if defined(PNG_READ_SUPPORTED) || defined(PNG_WRITE_SUPPORTED)
  22
  23#ifdef PNG_bKGD_SUPPORTED
  24void PNGAPI
  25png_set_bKGD(png_const_structrp png_ptr, png_inforp info_ptr,
  26    png_const_color_16p background)
  27{
  28   png_debug1(1, "in %s storage function", "bKGD");
  29
  30   if (png_ptr == NULL || info_ptr == NULL || background == NULL)
  31      return;
  32
  33   info_ptr->background = *background;
  34   info_ptr->valid |= PNG_INFO_bKGD;
  35}
  36#endif
  37
  38#ifdef PNG_cHRM_SUPPORTED
  39void PNGFAPI
  40png_set_cHRM_fixed(png_const_structrp png_ptr, png_inforp info_ptr,
  41    png_fixed_point white_x, png_fixed_point white_y, png_fixed_point red_x,
  42    png_fixed_point red_y, png_fixed_point green_x, png_fixed_point green_y,
  43    png_fixed_point blue_x, png_fixed_point blue_y)
  44{
  45   png_xy xy;
  46
  47   png_debug1(1, "in %s storage function", "cHRM fixed");
  48
  49   if (png_ptr == NULL || info_ptr == NULL)
  50      return;
  51
  52   xy.redx = red_x;
  53   xy.redy = red_y;
  54   xy.greenx = green_x;
  55   xy.greeny = green_y;
  56   xy.bluex = blue_x;
  57   xy.bluey = blue_y;
  58   xy.whitex = white_x;
  59   xy.whitey = white_y;
  60
  61   if (png_colorspace_set_chromaticities(png_ptr, &info_ptr->colorspace, &xy,
  62       2/* override with app values*/) != 0)
  63      info_ptr->colorspace.flags |= PNG_COLORSPACE_FROM_cHRM;
  64
  65   png_colorspace_sync_info(png_ptr, info_ptr);
  66}
  67
  68void PNGFAPI
  69png_set_cHRM_XYZ_fixed(png_const_structrp png_ptr, png_inforp info_ptr,
  70    png_fixed_point int_red_X, png_fixed_point int_red_Y,
  71    png_fixed_point int_red_Z, png_fixed_point int_green_X,
  72    png_fixed_point int_green_Y, png_fixed_point int_green_Z,
  73    png_fixed_point int_blue_X, png_fixed_point int_blue_Y,
  74    png_fixed_point int_blue_Z)
  75{
  76   png_XYZ XYZ;
  77
  78   png_debug1(1, "in %s storage function", "cHRM XYZ fixed");
  79
  80   if (png_ptr == NULL || info_ptr == NULL)
  81      return;
  82
  83   XYZ.red_X = int_red_X;
  84   XYZ.red_Y = int_red_Y;
  85   XYZ.red_Z = int_red_Z;
  86   XYZ.green_X = int_green_X;
  87   XYZ.green_Y = int_green_Y;
  88   XYZ.green_Z = int_green_Z;
  89   XYZ.blue_X = int_blue_X;
  90   XYZ.blue_Y = int_blue_Y;
  91   XYZ.blue_Z = int_blue_Z;
  92
  93   if (png_colorspace_set_endpoints(png_ptr, &info_ptr->colorspace,
  94       &XYZ, 2) != 0)
  95      info_ptr->colorspace.flags |= PNG_COLORSPACE_FROM_cHRM;
  96
  97   png_colorspace_sync_info(png_ptr, info_ptr);
  98}
  99
 100#  ifdef PNG_FLOATING_POINT_SUPPORTED
 101void PNGAPI
 102png_set_cHRM(png_const_structrp png_ptr, png_inforp info_ptr,
 103    double white_x, double white_y, double red_x, double red_y,
 104    double green_x, double green_y, double blue_x, double blue_y)
 105{
 106   png_set_cHRM_fixed(png_ptr, info_ptr,
 107      png_fixed(png_ptr, white_x, "cHRM White X"),
 108      png_fixed(png_ptr, white_y, "cHRM White Y"),
 109      png_fixed(png_ptr, red_x, "cHRM Red X"),
 110      png_fixed(png_ptr, red_y, "cHRM Red Y"),
 111      png_fixed(png_ptr, green_x, "cHRM Green X"),
 112      png_fixed(png_ptr, green_y, "cHRM Green Y"),
 113      png_fixed(png_ptr, blue_x, "cHRM Blue X"),
 114      png_fixed(png_ptr, blue_y, "cHRM Blue Y"));
 115}
 116
 117void PNGAPI
 118png_set_cHRM_XYZ(png_const_structrp png_ptr, png_inforp info_ptr, double red_X,
 119    double red_Y, double red_Z, double green_X, double green_Y, double green_Z,
 120    double blue_X, double blue_Y, double blue_Z)
 121{
 122   png_set_cHRM_XYZ_fixed(png_ptr, info_ptr,
 123      png_fixed(png_ptr, red_X, "cHRM Red X"),
 124      png_fixed(png_ptr, red_Y, "cHRM Red Y"),
 125      png_fixed(png_ptr, red_Z, "cHRM Red Z"),
 126      png_fixed(png_ptr, green_X, "cHRM Red X"),
 127      png_fixed(png_ptr, green_Y, "cHRM Red Y"),
 128      png_fixed(png_ptr, green_Z, "cHRM Red Z"),
 129      png_fixed(png_ptr, blue_X, "cHRM Red X"),
 130      png_fixed(png_ptr, blue_Y, "cHRM Red Y"),
 131      png_fixed(png_ptr, blue_Z, "cHRM Red Z"));
 132}
 133#  endif /* FLOATING_POINT */
 134
 135#endif /* cHRM */
 136
 137#ifdef PNG_gAMA_SUPPORTED
 138void PNGFAPI
 139png_set_gAMA_fixed(png_const_structrp png_ptr, png_inforp info_ptr,
 140    png_fixed_point file_gamma)
 141{
 142   png_debug1(1, "in %s storage function", "gAMA");
 143
 144   if (png_ptr == NULL || info_ptr == NULL)
 145      return;
 146
 147   png_colorspace_set_gamma(png_ptr, &info_ptr->colorspace, file_gamma);
 148   png_colorspace_sync_info(png_ptr, info_ptr);
 149}
 150
 151#  ifdef PNG_FLOATING_POINT_SUPPORTED
 152void PNGAPI
 153png_set_gAMA(png_const_structrp png_ptr, png_inforp info_ptr, double file_gamma)
 154{
 155   png_set_gAMA_fixed(png_ptr, info_ptr, png_fixed(png_ptr, file_gamma,
 156       "png_set_gAMA"));
 157}
 158#  endif
 159#endif
 160
 161#ifdef PNG_hIST_SUPPORTED
 162void PNGAPI
 163png_set_hIST(png_const_structrp png_ptr, png_inforp info_ptr,
 164    png_const_uint_16p hist)
 165{
 166   int i;
 167
 168   png_debug1(1, "in %s storage function", "hIST");
 169
 170   if (png_ptr == NULL || info_ptr == NULL)
 171      return;
 172
 173   if (info_ptr->num_palette == 0 || info_ptr->num_palette
 174       > PNG_MAX_PALETTE_LENGTH)
 175   {
 176      png_warning(png_ptr,
 177          "Invalid palette size, hIST allocation skipped");
 178
 179      return;
 180   }
 181
 182   png_free_data(png_ptr, info_ptr, PNG_FREE_HIST, 0);
 183
 184   /* Changed from info->num_palette to PNG_MAX_PALETTE_LENGTH in
 185    * version 1.2.1
 186    */
 187   info_ptr->hist = png_voidcast(png_uint_16p, png_malloc_warn(png_ptr,
 188       PNG_MAX_PALETTE_LENGTH * (sizeof (png_uint_16))));
 189
 190   if (info_ptr->hist == NULL)
 191   {
 192      png_warning(png_ptr, "Insufficient memory for hIST chunk data");
 193
 194      return;
 195   }
 196
 197   info_ptr->free_me |= PNG_FREE_HIST;
 198
 199   for (i = 0; i < info_ptr->num_palette; i++)
 200      info_ptr->hist[i] = hist[i];
 201
 202   info_ptr->valid |= PNG_INFO_hIST;
 203}
 204#endif
 205
 206void PNGAPI
 207png_set_IHDR(png_const_structrp png_ptr, png_inforp info_ptr,
 208    png_uint_32 width, png_uint_32 height, int bit_depth,
 209    int color_type, int interlace_type, int compression_type,
 210    int filter_type)
 211{
 212   png_debug1(1, "in %s storage function", "IHDR");
 213
 214   if (png_ptr == NULL || info_ptr == NULL)
 215      return;
 216
 217   info_ptr->width = width;
 218   info_ptr->height = height;
 219   info_ptr->bit_depth = (png_byte)bit_depth;
 220   info_ptr->color_type = (png_byte)color_type;
 221   info_ptr->compression_type = (png_byte)compression_type;
 222   info_ptr->filter_type = (png_byte)filter_type;
 223   info_ptr->interlace_type = (png_byte)interlace_type;
 224
 225   png_check_IHDR (png_ptr, info_ptr->width, info_ptr->height,
 226       info_ptr->bit_depth, info_ptr->color_type, info_ptr->interlace_type,
 227       info_ptr->compression_type, info_ptr->filter_type);
 228
 229   if (info_ptr->color_type == PNG_COLOR_TYPE_PALETTE)
 230      info_ptr->channels = 1;
 231
 232   else if ((info_ptr->color_type & PNG_COLOR_MASK_COLOR) != 0)
 233      info_ptr->channels = 3;
 234
 235   else
 236      info_ptr->channels = 1;
 237
 238   if ((info_ptr->color_type & PNG_COLOR_MASK_ALPHA) != 0)
 239      info_ptr->channels++;
 240
 241   info_ptr->pixel_depth = (png_byte)(info_ptr->channels * info_ptr->bit_depth);
 242
 243   info_ptr->rowbytes = PNG_ROWBYTES(info_ptr->pixel_depth, width);
 244}
 245
 246#ifdef PNG_oFFs_SUPPORTED
 247void PNGAPI
 248png_set_oFFs(png_const_structrp png_ptr, png_inforp info_ptr,
 249    png_int_32 offset_x, png_int_32 offset_y, int unit_type)
 250{
 251   png_debug1(1, "in %s storage function", "oFFs");
 252
 253   if (png_ptr == NULL || info_ptr == NULL)
 254      return;
 255
 256   info_ptr->x_offset = offset_x;
 257   info_ptr->y_offset = offset_y;
 258   info_ptr->offset_unit_type = (png_byte)unit_type;
 259   info_ptr->valid |= PNG_INFO_oFFs;
 260}
 261#endif
 262
 263#ifdef PNG_pCAL_SUPPORTED
 264void PNGAPI
 265png_set_pCAL(png_const_structrp png_ptr, png_inforp info_ptr,
 266    png_const_charp purpose, png_int_32 X0, png_int_32 X1, int type,
 267    int nparams, png_const_charp units, png_charpp params)
 268{
 269   png_size_t length;
 270   int i;
 271
 272   png_debug1(1, "in %s storage function", "pCAL");
 273
 274   if (png_ptr == NULL || info_ptr == NULL || purpose == NULL || units == NULL
 275       || (nparams > 0 && params == NULL))
 276      return;
 277
 278   length = strlen(purpose) + 1;
 279   png_debug1(3, "allocating purpose for info (%lu bytes)",
 280       (unsigned long)length);
 281
 282   /* TODO: validate format of calibration name and unit name */
 283
 284   /* Check that the type matches the specification. */
 285   if (type < 0 || type > 3)
 286      png_error(png_ptr, "Invalid pCAL equation type");
 287
 288   if (nparams < 0 || nparams > 255)
 289      png_error(png_ptr, "Invalid pCAL parameter count");
 290
 291   /* Validate params[nparams] */
 292   for (i=0; i<nparams; ++i)
 293   {
 294      if (params[i] == NULL ||
 295          !png_check_fp_string(params[i], strlen(params[i])))
 296         png_error(png_ptr, "Invalid format for pCAL parameter");
 297   }
 298
 299   info_ptr->pcal_purpose = png_voidcast(png_charp,
 300       png_malloc_warn(png_ptr, length));
 301
 302   if (info_ptr->pcal_purpose == NULL)
 303   {
 304      png_warning(png_ptr, "Insufficient memory for pCAL purpose");
 305
 306      return;
 307   }
 308
 309   memcpy(info_ptr->pcal_purpose, purpose, length);
 310
 311   png_debug(3, "storing X0, X1, type, and nparams in info");
 312   info_ptr->pcal_X0 = X0;
 313   info_ptr->pcal_X1 = X1;
 314   info_ptr->pcal_type = (png_byte)type;
 315   info_ptr->pcal_nparams = (png_byte)nparams;
 316
 317   length = strlen(units) + 1;
 318   png_debug1(3, "allocating units for info (%lu bytes)",
 319     (unsigned long)length);
 320
 321   info_ptr->pcal_units = png_voidcast(png_charp,
 322      png_malloc_warn(png_ptr, length));
 323
 324   if (info_ptr->pcal_units == NULL)
 325   {
 326      png_warning(png_ptr, "Insufficient memory for pCAL units");
 327
 328      return;
 329   }
 330
 331   memcpy(info_ptr->pcal_units, units, length);
 332
 333   info_ptr->pcal_params = png_voidcast(png_charpp, png_malloc_warn(png_ptr,
 334       (png_size_t)((nparams + 1) * (sizeof (png_charp)))));
 335
 336   if (info_ptr->pcal_params == NULL)
 337   {
 338      png_warning(png_ptr, "Insufficient memory for pCAL params");
 339
 340      return;
 341   }
 342
 343   memset(info_ptr->pcal_params, 0, (nparams + 1) * (sizeof (png_charp)));
 344
 345   for (i = 0; i < nparams; i++)
 346   {
 347      length = strlen(params[i]) + 1;
 348      png_debug2(3, "allocating parameter %d for info (%lu bytes)", i,
 349          (unsigned long)length);
 350
 351      info_ptr->pcal_params[i] = (png_charp)png_malloc_warn(png_ptr, length);
 352
 353      if (info_ptr->pcal_params[i] == NULL)
 354      {
 355         png_warning(png_ptr, "Insufficient memory for pCAL parameter");
 356
 357         return;
 358      }
 359
 360      memcpy(info_ptr->pcal_params[i], params[i], length);
 361   }
 362
 363   info_ptr->valid |= PNG_INFO_pCAL;
 364   info_ptr->free_me |= PNG_FREE_PCAL;
 365}
 366#endif
 367
 368#ifdef PNG_sCAL_SUPPORTED
 369void PNGAPI
 370png_set_sCAL_s(png_const_structrp png_ptr, png_inforp info_ptr,
 371    int unit, png_const_charp swidth, png_const_charp sheight)
 372{
 373   png_size_t lengthw = 0, lengthh = 0;
 374
 375   png_debug1(1, "in %s storage function", "sCAL");
 376
 377   if (png_ptr == NULL || info_ptr == NULL)
 378      return;
 379
 380   /* Double check the unit (should never get here with an invalid
 381    * unit unless this is an API call.)
 382    */
 383   if (unit != 1 && unit != 2)
 384      png_error(png_ptr, "Invalid sCAL unit");
 385
 386   if (swidth == NULL || (lengthw = strlen(swidth)) == 0 ||
 387       swidth[0] == 45 /* '-' */ || !png_check_fp_string(swidth, lengthw))
 388      png_error(png_ptr, "Invalid sCAL width");
 389
 390   if (sheight == NULL || (lengthh = strlen(sheight)) == 0 ||
 391       sheight[0] == 45 /* '-' */ || !png_check_fp_string(sheight, lengthh))
 392      png_error(png_ptr, "Invalid sCAL height");
 393
 394   info_ptr->scal_unit = (png_byte)unit;
 395
 396   ++lengthw;
 397
 398   png_debug1(3, "allocating unit for info (%u bytes)", (unsigned int)lengthw);
 399
 400   info_ptr->scal_s_width = png_voidcast(png_charp,
 401      png_malloc_warn(png_ptr, lengthw));
 402
 403   if (info_ptr->scal_s_width == NULL)
 404   {
 405      png_warning(png_ptr, "Memory allocation failed while processing sCAL");
 406
 407      return;
 408   }
 409
 410   memcpy(info_ptr->scal_s_width, swidth, lengthw);
 411
 412   ++lengthh;
 413
 414   png_debug1(3, "allocating unit for info (%u bytes)", (unsigned int)lengthh);
 415
 416   info_ptr->scal_s_height = png_voidcast(png_charp,
 417      png_malloc_warn(png_ptr, lengthh));
 418
 419   if (info_ptr->scal_s_height == NULL)
 420   {
 421      png_free (png_ptr, info_ptr->scal_s_width);
 422      info_ptr->scal_s_width = NULL;
 423
 424      png_warning(png_ptr, "Memory allocation failed while processing sCAL");
 425
 426      return;
 427   }
 428
 429   memcpy(info_ptr->scal_s_height, sheight, lengthh);
 430
 431   info_ptr->valid |= PNG_INFO_sCAL;
 432   info_ptr->free_me |= PNG_FREE_SCAL;
 433}
 434
 435#  ifdef PNG_FLOATING_POINT_SUPPORTED
 436void PNGAPI
 437png_set_sCAL(png_const_structrp png_ptr, png_inforp info_ptr, int unit,
 438    double width, double height)
 439{
 440   png_debug1(1, "in %s storage function", "sCAL");
 441
 442   /* Check the arguments. */
 443   if (width <= 0)
 444      png_warning(png_ptr, "Invalid sCAL width ignored");
 445
 446   else if (height <= 0)
 447      png_warning(png_ptr, "Invalid sCAL height ignored");
 448
 449   else
 450   {
 451      /* Convert 'width' and 'height' to ASCII. */
 452      char swidth[PNG_sCAL_MAX_DIGITS+1];
 453      char sheight[PNG_sCAL_MAX_DIGITS+1];
 454
 455      png_ascii_from_fp(png_ptr, swidth, (sizeof swidth), width,
 456         PNG_sCAL_PRECISION);
 457      png_ascii_from_fp(png_ptr, sheight, (sizeof sheight), height,
 458         PNG_sCAL_PRECISION);
 459
 460      png_set_sCAL_s(png_ptr, info_ptr, unit, swidth, sheight);
 461   }
 462}
 463#  endif
 464
 465#  ifdef PNG_FIXED_POINT_SUPPORTED
 466void PNGAPI
 467png_set_sCAL_fixed(png_const_structrp png_ptr, png_inforp info_ptr, int unit,
 468    png_fixed_point width, png_fixed_point height)
 469{
 470   png_debug1(1, "in %s storage function", "sCAL");
 471
 472   /* Check the arguments. */
 473   if (width <= 0)
 474      png_warning(png_ptr, "Invalid sCAL width ignored");
 475
 476   else if (height <= 0)
 477      png_warning(png_ptr, "Invalid sCAL height ignored");
 478
 479   else
 480   {
 481      /* Convert 'width' and 'height' to ASCII. */
 482      char swidth[PNG_sCAL_MAX_DIGITS+1];
 483      char sheight[PNG_sCAL_MAX_DIGITS+1];
 484
 485      png_ascii_from_fixed(png_ptr, swidth, (sizeof swidth), width);
 486      png_ascii_from_fixed(png_ptr, sheight, (sizeof sheight), height);
 487
 488      png_set_sCAL_s(png_ptr, info_ptr, unit, swidth, sheight);
 489   }
 490}
 491#  endif
 492#endif
 493
 494#ifdef PNG_pHYs_SUPPORTED
 495void PNGAPI
 496png_set_pHYs(png_const_structrp png_ptr, png_inforp info_ptr,
 497    png_uint_32 res_x, png_uint_32 res_y, int unit_type)
 498{
 499   png_debug1(1, "in %s storage function", "pHYs");
 500
 501   if (png_ptr == NULL || info_ptr == NULL)
 502      return;
 503
 504   info_ptr->x_pixels_per_unit = res_x;
 505   info_ptr->y_pixels_per_unit = res_y;
 506   info_ptr->phys_unit_type = (png_byte)unit_type;
 507   info_ptr->valid |= PNG_INFO_pHYs;
 508}
 509#endif
 510
 511void PNGAPI
 512png_set_PLTE(png_structrp png_ptr, png_inforp info_ptr,
 513    png_const_colorp palette, int num_palette)
 514{
 515
 516   png_debug1(1, "in %s storage function", "PLTE");
 517
 518   if (png_ptr == NULL || info_ptr == NULL)
 519      return;
 520
 521   if (num_palette < 0 || num_palette > PNG_MAX_PALETTE_LENGTH)
 522   {
 523      if (info_ptr->color_type == PNG_COLOR_TYPE_PALETTE)
 524         png_error(png_ptr, "Invalid palette length");
 525
 526      else
 527      {
 528         png_warning(png_ptr, "Invalid palette length");
 529
 530         return;
 531      }
 532   }
 533
 534   if ((num_palette > 0 && palette == NULL) ||
 535      (num_palette == 0
 536#        ifdef PNG_MNG_FEATURES_SUPPORTED
 537            && (png_ptr->mng_features_permitted & PNG_FLAG_MNG_EMPTY_PLTE) == 0
 538#        endif
 539      ))
 540   {
 541      png_error(png_ptr, "Invalid palette");
 542   }
 543
 544   /* It may not actually be necessary to set png_ptr->palette here;
 545    * we do it for backward compatibility with the way the png_handle_tRNS
 546    * function used to do the allocation.
 547    *
 548    * 1.6.0: the above statement appears to be incorrect; something has to set
 549    * the palette inside png_struct on read.
 550    */
 551   png_free_data(png_ptr, info_ptr, PNG_FREE_PLTE, 0);
 552
 553   /* Changed in libpng-1.2.1 to allocate PNG_MAX_PALETTE_LENGTH instead
 554    * of num_palette entries, in case of an invalid PNG file that has
 555    * too-large sample values.
 556    */
 557   png_ptr->palette = png_voidcast(png_colorp, png_calloc(png_ptr,
 558       PNG_MAX_PALETTE_LENGTH * (sizeof (png_color))));
 559
 560   if (num_palette > 0)
 561      memcpy(png_ptr->palette, palette, num_palette * (sizeof (png_color)));
 562   info_ptr->palette = png_ptr->palette;
 563   info_ptr->num_palette = png_ptr->num_palette = (png_uint_16)num_palette;
 564
 565   info_ptr->free_me |= PNG_FREE_PLTE;
 566
 567   info_ptr->valid |= PNG_INFO_PLTE;
 568}
 569
 570#ifdef PNG_sBIT_SUPPORTED
 571void PNGAPI
 572png_set_sBIT(png_const_structrp png_ptr, png_inforp info_ptr,
 573    png_const_color_8p sig_bit)
 574{
 575   png_debug1(1, "in %s storage function", "sBIT");
 576
 577   if (png_ptr == NULL || info_ptr == NULL || sig_bit == NULL)
 578      return;
 579
 580   info_ptr->sig_bit = *sig_bit;
 581   info_ptr->valid |= PNG_INFO_sBIT;
 582}
 583#endif
 584
 585#ifdef PNG_sRGB_SUPPORTED
 586void PNGAPI
 587png_set_sRGB(png_const_structrp png_ptr, png_inforp info_ptr, int srgb_intent)
 588{
 589   png_debug1(1, "in %s storage function", "sRGB");
 590
 591   if (png_ptr == NULL || info_ptr == NULL)
 592      return;
 593
 594   (void)png_colorspace_set_sRGB(png_ptr, &info_ptr->colorspace, srgb_intent);
 595   png_colorspace_sync_info(png_ptr, info_ptr);
 596}
 597
 598void PNGAPI
 599png_set_sRGB_gAMA_and_cHRM(png_const_structrp png_ptr, png_inforp info_ptr,
 600    int srgb_intent)
 601{
 602   png_debug1(1, "in %s storage function", "sRGB_gAMA_and_cHRM");
 603
 604   if (png_ptr == NULL || info_ptr == NULL)
 605      return;
 606
 607   if (png_colorspace_set_sRGB(png_ptr, &info_ptr->colorspace,
 608       srgb_intent) != 0)
 609   {
 610      /* This causes the gAMA and cHRM to be written too */
 611      info_ptr->colorspace.flags |=
 612         PNG_COLORSPACE_FROM_gAMA|PNG_COLORSPACE_FROM_cHRM;
 613   }
 614
 615   png_colorspace_sync_info(png_ptr, info_ptr);
 616}
 617#endif /* sRGB */
 618
 619
 620#ifdef PNG_iCCP_SUPPORTED
 621void PNGAPI
 622png_set_iCCP(png_const_structrp png_ptr, png_inforp info_ptr,
 623    png_const_charp name, int compression_type,
 624    png_const_bytep profile, png_uint_32 proflen)
 625{
 626   png_charp new_iccp_name;
 627   png_bytep new_iccp_profile;
 628   png_size_t length;
 629
 630   png_debug1(1, "in %s storage function", "iCCP");
 631
 632   if (png_ptr == NULL || info_ptr == NULL || name == NULL || profile == NULL)
 633      return;
 634
 635   if (compression_type != PNG_COMPRESSION_TYPE_BASE)
 636      png_app_error(png_ptr, "Invalid iCCP compression method");
 637
 638   /* Set the colorspace first because this validates the profile; do not
 639    * override previously set app cHRM or gAMA here (because likely as not the
 640    * application knows better than libpng what the correct values are.)  Pass
 641    * the info_ptr color_type field to png_colorspace_set_ICC because in the
 642    * write case it has not yet been stored in png_ptr.
 643    */
 644   {
 645      int result = png_colorspace_set_ICC(png_ptr, &info_ptr->colorspace, name,
 646         proflen, profile, info_ptr->color_type);
 647
 648      png_colorspace_sync_info(png_ptr, info_ptr);
 649
 650      /* Don't do any of the copying if the profile was bad, or inconsistent. */
 651      if (result == 0)
 652         return;
 653
 654      /* But do write the gAMA and cHRM chunks from the profile. */
 655      info_ptr->colorspace.flags |=
 656         PNG_COLORSPACE_FROM_gAMA|PNG_COLORSPACE_FROM_cHRM;
 657   }
 658
 659   length = strlen(name)+1;
 660   new_iccp_name = png_voidcast(png_charp, png_malloc_warn(png_ptr, length));
 661
 662   if (new_iccp_name == NULL)
 663   {
 664      png_benign_error(png_ptr, "Insufficient memory to process iCCP chunk");
 665
 666      return;
 667   }
 668
 669   memcpy(new_iccp_name, name, length);
 670   new_iccp_profile = png_voidcast(png_bytep,
 671      png_malloc_warn(png_ptr, proflen));
 672
 673   if (new_iccp_profile == NULL)
 674   {
 675      png_free(png_ptr, new_iccp_name);
 676      new_iccp_name = NULL;
 677      png_benign_error(png_ptr,
 678          "Insufficient memory to process iCCP profile");
 679
 680      return;
 681   }
 682
 683   memcpy(new_iccp_profile, profile, proflen);
 684
 685   png_free_data(png_ptr, info_ptr, PNG_FREE_ICCP, 0);
 686
 687   info_ptr->iccp_proflen = proflen;
 688   info_ptr->iccp_name = new_iccp_name;
 689   info_ptr->iccp_profile = new_iccp_profile;
 690   info_ptr->free_me |= PNG_FREE_ICCP;
 691   info_ptr->valid |= PNG_INFO_iCCP;
 692}
 693#endif
 694
 695#ifdef PNG_TEXT_SUPPORTED
 696void PNGAPI
 697png_set_text(png_const_structrp png_ptr, png_inforp info_ptr,
 698    png_const_textp text_ptr, int num_text)
 699{
 700   int ret;
 701   ret = png_set_text_2(png_ptr, info_ptr, text_ptr, num_text);
 702
 703   if (ret != 0)
 704      png_error(png_ptr, "Insufficient memory to store text");
 705}
 706
 707int /* PRIVATE */
 708png_set_text_2(png_const_structrp png_ptr, png_inforp info_ptr,
 709    png_const_textp text_ptr, int num_text)
 710{
 711   int i;
 712
 713   png_debug1(1, "in %lx storage function", png_ptr == NULL ? "unexpected" :
 714      (unsigned long)png_ptr->chunk_name);
 715
 716   if (png_ptr == NULL || info_ptr == NULL || num_text <= 0 || text_ptr == NULL)
 717      return(0);
 718
 719   /* Make sure we have enough space in the "text" array in info_struct
 720    * to hold all of the incoming text_ptr objects.  This compare can't overflow
 721    * because max_text >= num_text (anyway, subtract of two positive integers
 722    * can't overflow in any case.)
 723    */
 724   if (num_text > info_ptr->max_text - info_ptr->num_text)
 725   {
 726      int old_num_text = info_ptr->num_text;
 727      int max_text;
 728      png_textp new_text = NULL;
 729
 730      /* Calculate an appropriate max_text, checking for overflow. */
 731      max_text = old_num_text;
 732      if (num_text <= INT_MAX - max_text)
 733      {
 734         max_text += num_text;
 735
 736         /* Round up to a multiple of 8 */
 737         if (max_text < INT_MAX-8)
 738            max_text = (max_text + 8) & ~0x7;
 739
 740         else
 741            max_text = INT_MAX;
 742
 743         /* Now allocate a new array and copy the old members in; this does all
 744          * the overflow checks.
 745          */
 746         new_text = png_voidcast(png_textp,png_realloc_array(png_ptr,
 747            info_ptr->text, old_num_text, max_text-old_num_text,
 748            sizeof *new_text));
 749      }
 750
 751      if (new_text == NULL)
 752      {
 753         png_chunk_report(png_ptr, "too many text chunks",
 754            PNG_CHUNK_WRITE_ERROR);
 755
 756         return 1;
 757      }
 758
 759      png_free(png_ptr, info_ptr->text);
 760
 761      info_ptr->text = new_text;
 762      info_ptr->free_me |= PNG_FREE_TEXT;
 763      info_ptr->max_text = max_text;
 764      /* num_text is adjusted below as the entries are copied in */
 765
 766      png_debug1(3, "allocated %d entries for info_ptr->text", max_text);
 767   }
 768
 769   for (i = 0; i < num_text; i++)
 770   {
 771      size_t text_length, key_len;
 772      size_t lang_len, lang_key_len;
 773      png_textp textp = &(info_ptr->text[info_ptr->num_text]);
 774
 775      if (text_ptr[i].key == NULL)
 776          continue;
 777
 778      if (text_ptr[i].compression < PNG_TEXT_COMPRESSION_NONE ||
 779          text_ptr[i].compression >= PNG_TEXT_COMPRESSION_LAST)
 780      {
 781         png_chunk_report(png_ptr, "text compression mode is out of range",
 782            PNG_CHUNK_WRITE_ERROR);
 783         continue;
 784      }
 785
 786      key_len = strlen(text_ptr[i].key);
 787
 788      if (text_ptr[i].compression <= 0)
 789      {
 790         lang_len = 0;
 791         lang_key_len = 0;
 792      }
 793
 794      else
 795#  ifdef PNG_iTXt_SUPPORTED
 796      {
 797         /* Set iTXt data */
 798
 799         if (text_ptr[i].lang != NULL)
 800            lang_len = strlen(text_ptr[i].lang);
 801
 802         else
 803            lang_len = 0;
 804
 805         if (text_ptr[i].lang_key != NULL)
 806            lang_key_len = strlen(text_ptr[i].lang_key);
 807
 808         else
 809            lang_key_len = 0;
 810      }
 811#  else /* iTXt */
 812      {
 813         png_chunk_report(png_ptr, "iTXt chunk not supported",
 814            PNG_CHUNK_WRITE_ERROR);
 815         continue;
 816      }
 817#  endif
 818
 819      if (text_ptr[i].text == NULL || text_ptr[i].text[0] == '\0')
 820      {
 821         text_length = 0;
 822#  ifdef PNG_iTXt_SUPPORTED
 823         if (text_ptr[i].compression > 0)
 824            textp->compression = PNG_ITXT_COMPRESSION_NONE;
 825
 826         else
 827#  endif
 828            textp->compression = PNG_TEXT_COMPRESSION_NONE;
 829      }
 830
 831      else
 832      {
 833         text_length = strlen(text_ptr[i].text);
 834         textp->compression = text_ptr[i].compression;
 835      }
 836
 837      textp->key = png_voidcast(png_charp,png_malloc_base(png_ptr,
 838          key_len + text_length + lang_len + lang_key_len + 4));
 839
 840      if (textp->key == NULL)
 841      {
 842         png_chunk_report(png_ptr, "text chunk: out of memory",
 843               PNG_CHUNK_WRITE_ERROR);
 844
 845         return 1;
 846      }
 847
 848      png_debug2(2, "Allocated %lu bytes at %p in png_set_text",
 849          (unsigned long)(png_uint_32)
 850          (key_len + lang_len + lang_key_len + text_length + 4),
 851          textp->key);
 852
 853      memcpy(textp->key, text_ptr[i].key, key_len);
 854      *(textp->key + key_len) = '\0';
 855
 856      if (text_ptr[i].compression > 0)
 857      {
 858         textp->lang = textp->key + key_len + 1;
 859         memcpy(textp->lang, text_ptr[i].lang, lang_len);
 860         *(textp->lang + lang_len) = '\0';
 861         textp->lang_key = textp->lang + lang_len + 1;
 862         memcpy(textp->lang_key, text_ptr[i].lang_key, lang_key_len);
 863         *(textp->lang_key + lang_key_len) = '\0';
 864         textp->text = textp->lang_key + lang_key_len + 1;
 865      }
 866
 867      else
 868      {
 869         textp->lang=NULL;
 870         textp->lang_key=NULL;
 871         textp->text = textp->key + key_len + 1;
 872      }
 873
 874      if (text_length != 0)
 875         memcpy(textp->text, text_ptr[i].text, text_length);
 876
 877      *(textp->text + text_length) = '\0';
 878
 879#  ifdef PNG_iTXt_SUPPORTED
 880      if (textp->compression > 0)
 881      {
 882         textp->text_length = 0;
 883         textp->itxt_length = text_length;
 884      }
 885
 886      else
 887#  endif
 888      {
 889         textp->text_length = text_length;
 890         textp->itxt_length = 0;
 891      }
 892
 893      info_ptr->num_text++;
 894      png_debug1(3, "transferred text chunk %d", info_ptr->num_text);
 895   }
 896
 897   return(0);
 898}
 899#endif
 900
 901#ifdef PNG_tIME_SUPPORTED
 902void PNGAPI
 903png_set_tIME(png_const_structrp png_ptr, png_inforp info_ptr,
 904    png_const_timep mod_time)
 905{
 906   png_debug1(1, "in %s storage function", "tIME");
 907
 908   if (png_ptr == NULL || info_ptr == NULL || mod_time == NULL ||
 909       (png_ptr->mode & PNG_WROTE_tIME) != 0)
 910      return;
 911
 912   if (mod_time->month == 0   || mod_time->month > 12  ||
 913       mod_time->day   == 0   || mod_time->day   > 31  ||
 914       mod_time->hour  > 23   || mod_time->minute > 59 ||
 915       mod_time->second > 60)
 916   {
 917      png_warning(png_ptr, "Ignoring invalid time value");
 918
 919      return;
 920   }
 921
 922   info_ptr->mod_time = *mod_time;
 923   info_ptr->valid |= PNG_INFO_tIME;
 924}
 925#endif
 926
 927#ifdef PNG_tRNS_SUPPORTED
 928void PNGAPI
 929png_set_tRNS(png_structrp png_ptr, png_inforp info_ptr,
 930    png_const_bytep trans_alpha, int num_trans, png_const_color_16p trans_color)
 931{
 932   png_debug1(1, "in %s storage function", "tRNS");
 933
 934   if (png_ptr == NULL || info_ptr == NULL)
 935
 936      return;
 937
 938   if (trans_alpha != NULL)
 939   {
 940       /* It may not actually be necessary to set png_ptr->trans_alpha here;
 941        * we do it for backward compatibility with the way the png_handle_tRNS
 942        * function used to do the allocation.
 943        *
 944        * 1.6.0: The above statement is incorrect; png_handle_tRNS effectively
 945        * relies on png_set_tRNS storing the information in png_struct
 946        * (otherwise it won't be there for the code in pngrtran.c).
 947        */
 948
 949       png_free_data(png_ptr, info_ptr, PNG_FREE_TRNS, 0);
 950
 951       /* Changed from num_trans to PNG_MAX_PALETTE_LENGTH in version 1.2.1 */
 952       png_ptr->trans_alpha = info_ptr->trans_alpha = png_voidcast(png_bytep,
 953         png_malloc(png_ptr, PNG_MAX_PALETTE_LENGTH));
 954
 955       if (num_trans > 0 && num_trans <= PNG_MAX_PALETTE_LENGTH)
 956          memcpy(info_ptr->trans_alpha, trans_alpha, (png_size_t)num_trans);
 957   }
 958
 959   if (trans_color != NULL)
 960   {
 961#ifdef PNG_WARNINGS_SUPPORTED
 962      if (info_ptr->bit_depth < 16)
 963      {
 964         int sample_max = (1 << info_ptr->bit_depth) - 1;
 965
 966         if ((info_ptr->color_type == PNG_COLOR_TYPE_GRAY &&
 967             trans_color->gray > sample_max) ||
 968             (info_ptr->color_type == PNG_COLOR_TYPE_RGB &&
 969             (trans_color->red > sample_max ||
 970             trans_color->green > sample_max ||
 971             trans_color->blue > sample_max)))
 972            png_warning(png_ptr,
 973               "tRNS chunk has out-of-range samples for bit_depth");
 974      }
 975#endif
 976
 977      info_ptr->trans_color = *trans_color;
 978
 979      if (num_trans == 0)
 980         num_trans = 1;
 981   }
 982
 983   info_ptr->num_trans = (png_uint_16)num_trans;
 984
 985   if (num_trans != 0)
 986   {
 987      info_ptr->valid |= PNG_INFO_tRNS;
 988      info_ptr->free_me |= PNG_FREE_TRNS;
 989   }
 990}
 991#endif
 992
 993#ifdef PNG_sPLT_SUPPORTED
 994void PNGAPI
 995png_set_sPLT(png_const_structrp png_ptr,
 996    png_inforp info_ptr, png_const_sPLT_tp entries, int nentries)
 997/*
 998 *  entries        - array of png_sPLT_t structures
 999 *                   to be added to the list of palettes
1000 *                   in the info structure.
1001 *
1002 *  nentries       - number of palette structures to be
1003 *                   added.
1004 */
1005{
1006   png_sPLT_tp np;
1007
1008   if (png_ptr == NULL || info_ptr == NULL || nentries <= 0 || entries == NULL)
1009      return;
1010
1011   /* Use the internal realloc function, which checks for all the possible
1012    * overflows.  Notice that the parameters are (int) and (size_t)
1013    */
1014   np = png_voidcast(png_sPLT_tp,png_realloc_array(png_ptr,
1015      info_ptr->splt_palettes, info_ptr->splt_palettes_num, nentries,
1016      sizeof *np));
1017
1018   if (np == NULL)
1019   {
1020      /* Out of memory or too many chunks */
1021      png_chunk_report(png_ptr, "too many sPLT chunks", PNG_CHUNK_WRITE_ERROR);
1022
1023      return;
1024   }
1025
1026   png_free(png_ptr, info_ptr->splt_palettes);
1027   info_ptr->splt_palettes = np;
1028   info_ptr->free_me |= PNG_FREE_SPLT;
1029
1030   np += info_ptr->splt_palettes_num;
1031
1032   do
1033   {
1034      png_size_t length;
1035
1036      /* Skip invalid input entries */
1037      if (entries->name == NULL || entries->entries == NULL)
1038      {
1039         /* png_handle_sPLT doesn't do this, so this is an app error */
1040         png_app_error(png_ptr, "png_set_sPLT: invalid sPLT");
1041         /* Just skip the invalid entry */
1042         continue;
1043      }
1044
1045      np->depth = entries->depth;
1046
1047      /* In the event of out-of-memory just return - there's no point keeping
1048       * on trying to add sPLT chunks.
1049       */
1050      length = strlen(entries->name) + 1;
1051      np->name = png_voidcast(png_charp, png_malloc_base(png_ptr, length));
1052
1053      if (np->name == NULL)
1054         break;
1055
1056      memcpy(np->name, entries->name, length);
1057
1058      /* IMPORTANT: we have memory now that won't get freed if something else
1059       * goes wrong; this code must free it.  png_malloc_array produces no
1060       * warnings; use a png_chunk_report (below) if there is an error.
1061       */
1062      np->entries = png_voidcast(png_sPLT_entryp, png_malloc_array(png_ptr,
1063          entries->nentries, sizeof (png_sPLT_entry)));
1064
1065      if (np->entries == NULL)
1066      {
1067         png_free(png_ptr, np->name);
1068         np->name = NULL;
1069         break;
1070      }
1071
1072      np->nentries = entries->nentries;
1073      /* This multiply can't overflow because png_malloc_array has already
1074       * checked it when doing the allocation.
1075       */
1076      memcpy(np->entries, entries->entries,
1077         entries->nentries * sizeof (png_sPLT_entry));
1078
1079      /* Note that 'continue' skips the advance of the out pointer and out
1080       * count, so an invalid entry is not added.
1081       */
1082      info_ptr->valid |= PNG_INFO_sPLT;
1083      ++(info_ptr->splt_palettes_num);
1084      ++np;
1085   }
1086   while (++entries, --nentries);
1087
1088   if (nentries > 0)
1089      png_chunk_report(png_ptr, "sPLT out of memory", PNG_CHUNK_WRITE_ERROR);
1090}
1091#endif /* sPLT */
1092
1093#ifdef PNG_STORE_UNKNOWN_CHUNKS_SUPPORTED
1094static png_byte
1095check_location(png_const_structrp png_ptr, int location)
1096{
1097   location &= (PNG_HAVE_IHDR|PNG_HAVE_PLTE|PNG_AFTER_IDAT);
1098
1099   /* New in 1.6.0; copy the location and check it.  This is an API
1100    * change; previously the app had to use the
1101    * png_set_unknown_chunk_location API below for each chunk.
1102    */
1103   if (location == 0 && (png_ptr->mode & PNG_IS_READ_STRUCT) == 0)
1104   {
1105      /* Write struct, so unknown chunks come from the app */
1106      png_app_warning(png_ptr,
1107         "png_set_unknown_chunks now expects a valid location");
1108      /* Use the old behavior */
1109      location = (png_byte)(png_ptr->mode &
1110         (PNG_HAVE_IHDR|PNG_HAVE_PLTE|PNG_AFTER_IDAT));
1111   }
1112
1113   /* This need not be an internal error - if the app calls
1114    * png_set_unknown_chunks on a read pointer it must get the location right.
1115    */
1116   if (location == 0)
1117      png_error(png_ptr, "invalid location in png_set_unknown_chunks");
1118
1119   /* Now reduce the location to the top-most set bit by removing each least
1120    * significant bit in turn.
1121    */
1122   while (location != (location & -location))
1123      location &= ~(location & -location);
1124
1125   /* The cast is safe because 'location' is a bit mask and only the low four
1126    * bits are significant.
1127    */
1128   return (png_byte)location;
1129}
1130
1131void PNGAPI
1132png_set_unknown_chunks(png_const_structrp png_ptr,
1133   png_inforp info_ptr, png_const_unknown_chunkp unknowns, int num_unknowns)
1134{
1135   png_unknown_chunkp np;
1136
1137   if (png_ptr == NULL || info_ptr == NULL || num_unknowns <= 0 ||
1138       unknowns == NULL)
1139      return;
1140
1141   /* Check for the failure cases where support has been disabled at compile
1142    * time.  This code is hardly ever compiled - it's here because
1143    * STORE_UNKNOWN_CHUNKS is set by both read and write code (compiling in this
1144    * code) but may be meaningless if the read or write handling of unknown
1145    * chunks is not compiled in.
1146    */
1147#  if !defined(PNG_READ_UNKNOWN_CHUNKS_SUPPORTED) && \
1148      defined(PNG_READ_SUPPORTED)
1149      if ((png_ptr->mode & PNG_IS_READ_STRUCT) != 0)
1150      {
1151         png_app_error(png_ptr, "no unknown chunk support on read");
1152
1153         return;
1154      }
1155#  endif
1156#  if !defined(PNG_WRITE_UNKNOWN_CHUNKS_SUPPORTED) && \
1157      defined(PNG_WRITE_SUPPORTED)
1158      if ((png_ptr->mode & PNG_IS_READ_STRUCT) == 0)
1159      {
1160         png_app_error(png_ptr, "no unknown chunk support on write");
1161
1162         return;
1163      }
1164#  endif
1165
1166   /* Prior to 1.6.0 this code used png_malloc_warn; however, this meant that
1167    * unknown critical chunks could be lost with just a warning resulting in
1168    * undefined behavior.  Now png_chunk_report is used to provide behavior
1169    * appropriate to read or write.
1170    */
1171   np = png_voidcast(png_unknown_chunkp, png_realloc_array(png_ptr,
1172         info_ptr->unknown_chunks, info_ptr->unknown_chunks_num, num_unknowns,
1173         sizeof *np));
1174
1175   if (np == NULL)
1176   {
1177      png_chunk_report(png_ptr, "too many unknown chunks",
1178         PNG_CHUNK_WRITE_ERROR);
1179
1180      return;
1181   }
1182
1183   png_free(png_ptr, info_ptr->unknown_chunks);
1184   info_ptr->unknown_chunks = np; /* safe because it is initialized */
1185   info_ptr->free_me |= PNG_FREE_UNKN;
1186
1187   np += info_ptr->unknown_chunks_num;
1188
1189   /* Increment unknown_chunks_num each time round the loop to protect the
1190    * just-allocated chunk data.
1191    */
1192   for (; num_unknowns > 0; --num_unknowns, ++unknowns)
1193   {
1194      memcpy(np->name, unknowns->name, (sizeof np->name));
1195      np->name[(sizeof np->name)-1] = '\0';
1196      np->location = check_location(png_ptr, unknowns->location);
1197
1198      if (unknowns->size == 0)
1199      {
1200         np->data = NULL;
1201         np->size = 0;
1202      }
1203
1204      else
1205      {
1206         np->data = png_voidcast(png_bytep,
1207            png_malloc_base(png_ptr, unknowns->size));
1208
1209         if (np->data == NULL)
1210         {
1211            png_chunk_report(png_ptr, "unknown chunk: out of memory",
1212               PNG_CHUNK_WRITE_ERROR);
1213            /* But just skip storing the unknown chunk */
1214            continue;
1215         }
1216
1217         memcpy(np->data, unknowns->data, unknowns->size);
1218         np->size = unknowns->size;
1219      }
1220
1221      /* These increments are skipped on out-of-memory for the data - the
1222       * unknown chunk entry gets overwritten if the png_chunk_report returns.
1223       * This is correct in the read case (the chunk is just dropped.)
1224       */
1225      ++np;
1226      ++(info_ptr->unknown_chunks_num);
1227   }
1228}
1229
1230void PNGAPI
1231png_set_unknown_chunk_location(png_const_structrp png_ptr, png_inforp info_ptr,
1232    int chunk, int location)
1233{
1234   /* This API is pretty pointless in 1.6.0 because the location can be set
1235    * before the call to png_set_unknown_chunks.
1236    *
1237    * TODO: add a png_app_warning in 1.7
1238    */
1239   if (png_ptr != NULL && info_ptr != NULL && chunk >= 0 &&
1240      chunk < info_ptr->unknown_chunks_num)
1241   {
1242      if ((location & (PNG_HAVE_IHDR|PNG_HAVE_PLTE|PNG_AFTER_IDAT)) == 0)
1243      {
1244         png_app_error(png_ptr, "invalid unknown chunk location");
1245         /* Fake out the pre 1.6.0 behavior: */
1246         if ((location & PNG_HAVE_IDAT) != 0) /* undocumented! */
1247            location = PNG_AFTER_IDAT;
1248
1249         else
1250            location = PNG_HAVE_IHDR; /* also undocumented */
1251      }
1252
1253      info_ptr->unknown_chunks[chunk].location =
1254         check_location(png_ptr, location);
1255   }
1256}
1257#endif /* STORE_UNKNOWN_CHUNKS */
1258
1259#ifdef PNG_MNG_FEATURES_SUPPORTED
1260png_uint_32 PNGAPI
1261png_permit_mng_features (png_structrp png_ptr, png_uint_32 mng_features)
1262{
1263   png_debug(1, "in png_permit_mng_features");
1264
1265   if (png_ptr == NULL)
1266      return 0;
1267
1268   png_ptr->mng_features_permitted = mng_features & PNG_ALL_MNG_FEATURES;
1269
1270   return png_ptr->mng_features_permitted;
1271}
1272#endif
1273
1274#ifdef PNG_HANDLE_AS_UNKNOWN_SUPPORTED
1275static unsigned int
1276add_one_chunk(png_bytep list, unsigned int count, png_const_bytep add, int keep)
1277{
1278   unsigned int i;
1279
1280   /* Utility function: update the 'keep' state of a chunk if it is already in
1281    * the list, otherwise add it to the list.
1282    */
1283   for (i=0; i<count; ++i, list += 5)
1284   {
1285      if (memcmp(list, add, 4) == 0)
1286      {
1287         list[4] = (png_byte)keep;
1288
1289         return count;
1290      }
1291   }
1292
1293   if (keep != PNG_HANDLE_CHUNK_AS_DEFAULT)
1294   {
1295      ++count;
1296      memcpy(list, add, 4);
1297      list[4] = (png_byte)keep;
1298   }
1299
1300   return count;
1301}
1302
1303void PNGAPI
1304png_set_keep_unknown_chunks(png_structrp png_ptr, int keep,
1305    png_const_bytep chunk_list, int num_chunks_in)
1306{
1307   png_bytep new_list;
1308   unsigned int num_chunks, old_num_chunks;
1309
1310   if (png_ptr == NULL)
1311      return;
1312
1313   if (keep < 0 || keep >= PNG_HANDLE_CHUNK_LAST)
1314   {
1315      png_app_error(png_ptr, "png_set_keep_unknown_chunks: invalid keep");
1316
1317      return;
1318   }
1319
1320   if (num_chunks_in <= 0)
1321   {
1322      png_ptr->unknown_default = keep;
1323
1324      /* '0' means just set the flags, so stop here */
1325      if (num_chunks_in == 0)
1326        return;
1327   }
1328
1329   if (num_chunks_in < 0)
1330   {
1331      /* Ignore all unknown chunks and all chunks recognized by
1332       * libpng except for IHDR, PLTE, tRNS, IDAT, and IEND
1333       */
1334      static PNG_CONST png_byte chunks_to_ignore[] = {
1335         98,  75,  71,  68, '\0',  /* bKGD */
1336         99,  72,  82,  77, '\0',  /* cHRM */
1337        103,  65,  77,  65, '\0',  /* gAMA */
1338        104,  73,  83,  84, '\0',  /* hIST */
1339        105,  67,  67,  80, '\0',  /* iCCP */
1340        105,  84,  88, 116, '\0',  /* iTXt */
1341        111,  70,  70, 115, '\0',  /* oFFs */
1342        112,  67,  65,  76, '\0',  /* pCAL */
1343        112,  72,  89, 115, '\0',  /* pHYs */
1344        115,  66,  73,  84, '\0',  /* sBIT */
1345        115,  67,  65,  76, '\0',  /* sCAL */
1346        115,  80,  76,  84, '\0',  /* sPLT */
1347        115,  84,  69,  82, '\0',  /* sTER */
1348        115,  82,  71,  66, '\0',  /* sRGB */
1349        116,  69,  88, 116, '\0',  /* tEXt */
1350        116,  73,  77,  69, '\0',  /* tIME */
1351        122,  84,  88, 116, '\0'   /* zTXt */
1352      };
1353
1354      chunk_list = chunks_to_ignore;
1355      num_chunks = (unsigned int)/*SAFE*/(sizeof chunks_to_ignore)/5U;
1356   }
1357
1358   else /* num_chunks_in > 0 */
1359   {
1360      if (chunk_list == NULL)
1361      {
1362         /* Prior to 1.6.0 this was silently ignored, now it is an app_error
1363          * which can be switched off.
1364          */
1365         png_app_error(png_ptr, "png_set_keep_unknown_chunks: no chunk list");
1366
1367         return;
1368      }
1369
1370      num_chunks = num_chunks_in;
1371   }
1372
1373   old_num_chunks = png_ptr->num_chunk_list;
1374   if (png_ptr->chunk_list == NULL)
1375      old_num_chunks = 0;
1376
1377   /* Since num_chunks is always restricted to UINT_MAX/5 this can't overflow.
1378    */
1379   if (num_chunks + old_num_chunks > UINT_MAX/5)
1380   {
1381      png_app_error(png_ptr, "png_set_keep_unknown_chunks: too many chunks");
1382
1383      return;
1384   }
1385
1386   /* If these chunks are being reset to the default then no more memory is
1387    * required because add_one_chunk above doesn't extend the list if the 'keep'
1388    * parameter is the default.
1389    */
1390   if (keep != 0)
1391   {
1392      new_list = png_voidcast(png_bytep, png_malloc(png_ptr,
1393          5 * (num_chunks + old_num_chunks)));
1394
1395      if (old_num_chunks > 0)
1396         memcpy(new_list, png_ptr->chunk_list, 5*old_num_chunks);
1397   }
1398
1399   else if (old_num_chunks > 0)
1400      new_list = png_ptr->chunk_list;
1401
1402   else
1403      new_list = NULL;
1404
1405   /* Add the new chunks together with each one's handling code.  If the chunk
1406    * already exists the code is updated, otherwise the chunk is added to the
1407    * end.  (In libpng 1.6.0 order no longer matters because this code enforces
1408    * the earlier convention that the last setting is the one that is used.)
1409    */
1410   if (new_list != NULL)
1411   {
1412      png_const_bytep inlist;
1413      png_bytep outlist;
1414      unsigned int i;
1415
1416      for (i=0; i<num_chunks; ++i)
1417      {
1418         old_num_chunks = add_one_chunk(new_list, old_num_chunks,
1419            chunk_list+5*i, keep);
1420      }
1421
1422      /* Now remove any spurious 'default' entries. */
1423      num_chunks = 0;
1424      for (i=0, inlist=outlist=new_list; i<old_num_chunks; ++i, inlist += 5)
1425      {
1426         if (inlist[4])
1427         {
1428            if (outlist != inlist)
1429               memcpy(outlist, inlist, 5);
1430            outlist += 5;
1431            ++num_chunks;
1432         }
1433      }
1434
1435      /* This means the application has removed all the specialized handling. */
1436      if (num_chunks == 0)
1437      {
1438         if (png_ptr->chunk_list != new_list)
1439            png_free(png_ptr, new_list);
1440
1441         new_list = NULL;
1442      }
1443   }
1444
1445   else
1446      num_chunks = 0;
1447
1448   png_ptr->num_chunk_list = num_chunks;
1449
1450   if (png_ptr->chunk_list != new_list)
1451   {
1452      if (png_ptr->chunk_list != NULL)
1453         png_free(png_ptr, png_ptr->chunk_list);
1454
1455      png_ptr->chunk_list = new_list;
1456   }
1457}
1458#endif
1459
1460#ifdef PNG_READ_USER_CHUNKS_SUPPORTED
1461void PNGAPI
1462png_set_read_user_chunk_fn(png_structrp png_ptr, png_voidp user_chunk_ptr,
1463    png_user_chunk_ptr read_user_chunk_fn)
1464{
1465   png_debug(1, "in png_set_read_user_chunk_fn");
1466
1467   if (png_ptr == NULL)
1468      return;
1469
1470   png_ptr->read_user_chunk_fn = read_user_chunk_fn;
1471   png_ptr->user_chunk_ptr = user_chunk_ptr;
1472}
1473#endif
1474
1475#ifdef PNG_INFO_IMAGE_SUPPORTED
1476void PNGAPI
1477png_set_rows(png_const_structrp png_ptr, png_inforp info_ptr,
1478    png_bytepp row_pointers)
1479{
1480   png_debug1(1, "in %s storage function", "rows");
1481
1482   if (png_ptr == NULL || info_ptr == NULL)
1483      return;
1484
1485   if (info_ptr->row_pointers != NULL &&
1486       (info_ptr->row_pointers != row_pointers))
1487      png_free_data(png_ptr, info_ptr, PNG_FREE_ROWS, 0);
1488
1489   info_ptr->row_pointers = row_pointers;
1490
1491   if (row_pointers != NULL)
1492      info_ptr->valid |= PNG_INFO_IDAT;
1493}
1494#endif
1495
1496void PNGAPI
1497png_set_compression_buffer_size(png_structrp png_ptr, png_size_t size)
1498{
1499    if (png_ptr == NULL)
1500       return;
1501
1502    if (size == 0 || size > PNG_UINT_31_MAX)
1503       png_error(png_ptr, "invalid compression buffer size");
1504
1505#  ifdef PNG_SEQUENTIAL_READ_SUPPORTED
1506      if ((png_ptr->mode & PNG_IS_READ_STRUCT) != 0)
1507      {
1508         png_ptr->IDAT_read_size = (png_uint_32)size; /* checked above */
1509         return;
1510      }
1511#  endif
1512
1513#  ifdef PNG_WRITE_SUPPORTED
1514      if ((png_ptr->mode & PNG_IS_READ_STRUCT) == 0)
1515      {
1516         if (png_ptr->zowner != 0)
1517         {
1518            png_warning(png_ptr,
1519              "Compression buffer size cannot be changed because it is in use");
1520
1521            return;
1522         }
1523
1524#ifndef __COVERITY__
1525         if (size > ZLIB_IO_MAX)
1526         {
1527            png_warning(png_ptr,
1528               "Compression buffer size limited to system maximum");
1529            size = ZLIB_IO_MAX; /* must fit */
1530         }
1531#endif
1532
1533         if (size < 6)
1534         {
1535            /* Deflate will potentially go into an infinite loop on a SYNC_FLUSH
1536             * if this is permitted.
1537             */
1538            png_warning(png_ptr,
1539               "Compression buffer size cannot be reduced below 6");
1540
1541            return;
1542         }
1543
1544         if (png_ptr->zbuffer_size != size)
1545         {
1546            png_free_buffer_list(png_ptr, &png_ptr->zbuffer_list);
1547            png_ptr->zbuffer_size = (uInt)size;
1548         }
1549      }
1550#  endif
1551}
1552
1553void PNGAPI
1554png_set_invalid(png_const_structrp png_ptr, png_inforp info_ptr, int mask)
1555{
1556   if (png_ptr != NULL && info_ptr != NULL)
1557      info_ptr->valid &= ~mask;
1558}
1559
1560
1561#ifdef PNG_SET_USER_LIMITS_SUPPORTED
1562/* This function was added to libpng 1.2.6 */
1563void PNGAPI
1564png_set_user_limits (png_structrp png_ptr, png_uint_32 user_width_max,
1565    png_uint_32 user_height_max)
1566{
1567   /* Images with dimensions larger than these limits will be
1568    * rejected by png_set_IHDR().  To accept any PNG datastream
1569    * regardless of dimensions, set both limits to 0x7ffffffL.
1570    */
1571   if (png_ptr == NULL)
1572      return;
1573
1574   png_ptr->user_width_max = user_width_max;
1575   png_ptr->user_height_max = user_height_max;
1576}
1577
1578/* This function was added to libpng 1.4.0 */
1579void PNGAPI
1580png_set_chunk_cache_max (png_structrp png_ptr, png_uint_32 user_chunk_cache_max)
1581{
1582   if (png_ptr != NULL)
1583      png_ptr->user_chunk_cache_max = user_chunk_cache_max;
1584}
1585
1586/* This function was added to libpng 1.4.1 */
1587void PNGAPI
1588png_set_chunk_malloc_max (png_structrp png_ptr,
1589    png_alloc_size_t user_chunk_malloc_max)
1590{
1591   if (png_ptr != NULL)
1592      png_ptr->user_chunk_malloc_max = user_chunk_malloc_max;
1593}
1594#endif /* ?SET_USER_LIMITS */
1595
1596
1597#ifdef PNG_BENIGN_ERRORS_SUPPORTED
1598void PNGAPI
1599png_set_benign_errors(png_structrp png_ptr, int allowed)
1600{
1601   png_debug(1, "in png_set_benign_errors");
1602
1603   /* If allowed is 1, png_benign_error() is treated as a warning.
1604    *
1605    * If allowed is 0, png_benign_error() is treated as an error (which
1606    * is the default behavior if png_set_benign_errors() is not called).
1607    */
1608
1609   if (allowed != 0)
1610      png_ptr->flags |= PNG_FLAG_BENIGN_ERRORS_WARN |
1611         PNG_FLAG_APP_WARNINGS_WARN | PNG_FLAG_APP_ERRORS_WARN;
1612
1613   else
1614      png_ptr->flags &= ~(PNG_FLAG_BENIGN_ERRORS_WARN |
1615         PNG_FLAG_APP_WARNINGS_WARN | PNG_FLAG_APP_ERRORS_WARN);
1616}
1617#endif /* BENIGN_ERRORS */
1618
1619#ifdef PNG_CHECK_FOR_INVALID_INDEX_SUPPORTED
1620   /* Whether to report invalid palette index; added at libng-1.5.10.
1621    * It is possible for an indexed (color-type==3) PNG file to contain
1622    * pixels with invalid (out-of-range) indexes if the PLTE chunk has
1623    * fewer entries than the image's bit-depth would allow. We recover
1624    * from this gracefully by filling any incomplete palette with zeros
1625    * (opaque black).  By default, when this occurs libpng will issue
1626    * a benign error.  This API can be used to override that behavior.
1627    */
1628void PNGAPI
1629png_set_check_for_invalid_index(png_structrp png_ptr, int allowed)
1630{
1631   png_debug(1, "in png_set_check_for_invalid_index");
1632
1633   if (allowed > 0)
1634      png_ptr->num_palette_max = 0;
1635
1636   else
1637      png_ptr->num_palette_max = -1;
1638}
1639#endif
1640#endif /* READ || WRITE */