]> git.jsancho.org Git - lugaru.git/blob - Dependencies/libpng/pngwrite.c
fixed some unwanted debug output
[lugaru.git] / Dependencies / libpng / pngwrite.c
1
2 /* pngwrite.c - general routines to write a PNG file
3  *
4  * Last changed in libpng 1.4.0 [January 3, 2010]
5  * Copyright (c) 1998-2010 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
14 /* Get internal access to png.h */
15 #define PNG_NO_PEDANTIC_WARNINGS
16 #include "png.h"
17 #ifdef PNG_WRITE_SUPPORTED
18 #include "pngpriv.h"
19
20 /* Writes all the PNG information.  This is the suggested way to use the
21  * library.  If you have a new chunk to add, make a function to write it,
22  * and put it in the correct location here.  If you want the chunk written
23  * after the image data, put it in png_write_end().  I strongly encourage
24  * you to supply a PNG_INFO_ flag, and check info_ptr->valid before writing
25  * the chunk, as that will keep the code from breaking if you want to just
26  * write a plain PNG file.  If you have long comments, I suggest writing
27  * them in png_write_end(), and compressing them.
28  */
29 void PNGAPI
30 png_write_info_before_PLTE(png_structp png_ptr, png_infop info_ptr)
31 {
32    png_debug(1, "in png_write_info_before_PLTE");
33
34    if (png_ptr == NULL || info_ptr == NULL)
35       return;
36    if (!(png_ptr->mode & PNG_WROTE_INFO_BEFORE_PLTE))
37    {
38    /* Write PNG signature */
39    png_write_sig(png_ptr);
40 #ifdef PNG_MNG_FEATURES_SUPPORTED
41    if ((png_ptr->mode&PNG_HAVE_PNG_SIGNATURE) && \
42       (png_ptr->mng_features_permitted))
43    {
44       png_warning(png_ptr, "MNG features are not allowed in a PNG datastream");
45       png_ptr->mng_features_permitted = 0;
46    }
47 #endif
48    /* Write IHDR information. */
49    png_write_IHDR(png_ptr, info_ptr->width, info_ptr->height,
50       info_ptr->bit_depth, info_ptr->color_type, info_ptr->compression_type,
51       info_ptr->filter_type,
52 #ifdef PNG_WRITE_INTERLACING_SUPPORTED
53       info_ptr->interlace_type);
54 #else
55       0);
56 #endif
57    /* The rest of these check to see if the valid field has the appropriate
58     * flag set, and if it does, writes the chunk.
59     */
60 #ifdef PNG_WRITE_gAMA_SUPPORTED
61    if (info_ptr->valid & PNG_INFO_gAMA)
62    {
63 #  ifdef PNG_FLOATING_POINT_SUPPORTED
64       png_write_gAMA(png_ptr, info_ptr->gamma);
65 #else
66 #ifdef PNG_FIXED_POINT_SUPPORTED
67       png_write_gAMA_fixed(png_ptr, info_ptr->int_gamma);
68 #  endif
69 #endif
70    }
71 #endif
72 #ifdef PNG_WRITE_sRGB_SUPPORTED
73    if (info_ptr->valid & PNG_INFO_sRGB)
74       png_write_sRGB(png_ptr, (int)info_ptr->srgb_intent);
75 #endif
76 #ifdef PNG_WRITE_iCCP_SUPPORTED
77    if (info_ptr->valid & PNG_INFO_iCCP)
78       png_write_iCCP(png_ptr, info_ptr->iccp_name, PNG_COMPRESSION_TYPE_BASE,
79                      info_ptr->iccp_profile, (int)info_ptr->iccp_proflen);
80 #endif
81 #ifdef PNG_WRITE_sBIT_SUPPORTED
82    if (info_ptr->valid & PNG_INFO_sBIT)
83       png_write_sBIT(png_ptr, &(info_ptr->sig_bit), info_ptr->color_type);
84 #endif
85 #ifdef PNG_WRITE_cHRM_SUPPORTED
86    if (info_ptr->valid & PNG_INFO_cHRM)
87    {
88 #ifdef PNG_FLOATING_POINT_SUPPORTED
89       png_write_cHRM(png_ptr,
90          info_ptr->x_white, info_ptr->y_white,
91          info_ptr->x_red, info_ptr->y_red,
92          info_ptr->x_green, info_ptr->y_green,
93          info_ptr->x_blue, info_ptr->y_blue);
94 #else
95 #  ifdef PNG_FIXED_POINT_SUPPORTED
96       png_write_cHRM_fixed(png_ptr,
97          info_ptr->int_x_white, info_ptr->int_y_white,
98          info_ptr->int_x_red, info_ptr->int_y_red,
99          info_ptr->int_x_green, info_ptr->int_y_green,
100          info_ptr->int_x_blue, info_ptr->int_y_blue);
101 #  endif
102 #endif
103    }
104 #endif
105 #ifdef PNG_WRITE_UNKNOWN_CHUNKS_SUPPORTED
106    if (info_ptr->unknown_chunks_num)
107    {
108       png_unknown_chunk *up;
109
110       png_debug(5, "writing extra chunks");
111
112       for (up = info_ptr->unknown_chunks;
113            up < info_ptr->unknown_chunks + info_ptr->unknown_chunks_num;
114            up++)
115       {
116          int keep = png_handle_as_unknown(png_ptr, up->name);
117          if (keep != PNG_HANDLE_CHUNK_NEVER &&
118             up->location && !(up->location & PNG_HAVE_PLTE) &&
119             !(up->location & PNG_HAVE_IDAT) &&
120             ((up->name[3] & 0x20) || keep == PNG_HANDLE_CHUNK_ALWAYS ||
121             (png_ptr->flags & PNG_FLAG_KEEP_UNSAFE_CHUNKS)))
122          {
123             if (up->size == 0)
124                png_warning(png_ptr, "Writing zero-length unknown chunk");
125             png_write_chunk(png_ptr, up->name, up->data, up->size);
126          }
127       }
128    }
129 #endif
130       png_ptr->mode |= PNG_WROTE_INFO_BEFORE_PLTE;
131    }
132 }
133
134 void PNGAPI
135 png_write_info(png_structp png_ptr, png_infop info_ptr)
136 {
137 #if defined(PNG_WRITE_TEXT_SUPPORTED) || defined(PNG_WRITE_sPLT_SUPPORTED)
138    int i;
139 #endif
140
141    png_debug(1, "in png_write_info");
142
143    if (png_ptr == NULL || info_ptr == NULL)
144       return;
145
146    png_write_info_before_PLTE(png_ptr, info_ptr);
147
148    if (info_ptr->valid & PNG_INFO_PLTE)
149       png_write_PLTE(png_ptr, info_ptr->palette,
150          (png_uint_32)info_ptr->num_palette);
151    else if (info_ptr->color_type == PNG_COLOR_TYPE_PALETTE)
152       png_error(png_ptr, "Valid palette required for paletted images");
153
154 #ifdef PNG_WRITE_tRNS_SUPPORTED
155    if (info_ptr->valid & PNG_INFO_tRNS)
156    {
157 #ifdef PNG_WRITE_INVERT_ALPHA_SUPPORTED
158       /* Invert the alpha channel (in tRNS) */
159       if ((png_ptr->transformations & PNG_INVERT_ALPHA) &&
160          info_ptr->color_type == PNG_COLOR_TYPE_PALETTE)
161       {
162          int j;
163          for (j = 0; j<(int)info_ptr->num_trans; j++)
164             info_ptr->trans_alpha[j] = (png_byte)(255 - info_ptr->trans_alpha[j]);
165       }
166 #endif
167       png_write_tRNS(png_ptr, info_ptr->trans_alpha, &(info_ptr->trans_color),
168          info_ptr->num_trans, info_ptr->color_type);
169    }
170 #endif
171 #ifdef PNG_WRITE_bKGD_SUPPORTED
172    if (info_ptr->valid & PNG_INFO_bKGD)
173       png_write_bKGD(png_ptr, &(info_ptr->background), info_ptr->color_type);
174 #endif
175 #ifdef PNG_WRITE_hIST_SUPPORTED
176    if (info_ptr->valid & PNG_INFO_hIST)
177       png_write_hIST(png_ptr, info_ptr->hist, info_ptr->num_palette);
178 #endif
179 #ifdef PNG_WRITE_oFFs_SUPPORTED
180    if (info_ptr->valid & PNG_INFO_oFFs)
181       png_write_oFFs(png_ptr, info_ptr->x_offset, info_ptr->y_offset,
182          info_ptr->offset_unit_type);
183 #endif
184 #ifdef PNG_WRITE_pCAL_SUPPORTED
185    if (info_ptr->valid & PNG_INFO_pCAL)
186       png_write_pCAL(png_ptr, info_ptr->pcal_purpose, info_ptr->pcal_X0,
187          info_ptr->pcal_X1, info_ptr->pcal_type, info_ptr->pcal_nparams,
188          info_ptr->pcal_units, info_ptr->pcal_params);
189 #endif
190
191 #ifdef PNG_sCAL_SUPPORTED
192    if (info_ptr->valid & PNG_INFO_sCAL)
193 #ifdef PNG_WRITE_sCAL_SUPPORTED
194 #if defined(PNG_FLOATING_POINT_SUPPORTED) && defined(PNG_STDIO_SUPPORTED)
195       png_write_sCAL(png_ptr, (int)info_ptr->scal_unit,
196           info_ptr->scal_pixel_width, info_ptr->scal_pixel_height);
197 #else /* !FLOATING_POINT */
198 #ifdef PNG_FIXED_POINT_SUPPORTED
199       png_write_sCAL_s(png_ptr, (int)info_ptr->scal_unit,
200           info_ptr->scal_s_width, info_ptr->scal_s_height);
201 #endif /* FIXED_POINT */
202 #endif /* FLOATING_POINT */
203 #else  /* !WRITE_sCAL */
204       png_warning(png_ptr,
205           "png_write_sCAL not supported; sCAL chunk not written");
206 #endif /* WRITE_sCAL */
207 #endif /* sCAL */
208
209 #ifdef PNG_WRITE_pHYs_SUPPORTED
210    if (info_ptr->valid & PNG_INFO_pHYs)
211       png_write_pHYs(png_ptr, info_ptr->x_pixels_per_unit,
212          info_ptr->y_pixels_per_unit, info_ptr->phys_unit_type);
213 #endif /* pHYs */
214
215 #ifdef PNG_WRITE_tIME_SUPPORTED
216    if (info_ptr->valid & PNG_INFO_tIME)
217    {
218       png_write_tIME(png_ptr, &(info_ptr->mod_time));
219       png_ptr->mode |= PNG_WROTE_tIME;
220    }
221 #endif /* tIME */
222
223 #ifdef PNG_WRITE_sPLT_SUPPORTED
224    if (info_ptr->valid & PNG_INFO_sPLT)
225      for (i = 0; i < (int)info_ptr->splt_palettes_num; i++)
226        png_write_sPLT(png_ptr, info_ptr->splt_palettes + i);
227 #endif /* sPLT */
228
229 #ifdef PNG_WRITE_TEXT_SUPPORTED
230    /* Check to see if we need to write text chunks */
231    for (i = 0; i < info_ptr->num_text; i++)
232    {
233       png_debug2(2, "Writing header text chunk %d, type %d", i,
234          info_ptr->text[i].compression);
235       /* An internationalized chunk? */
236       if (info_ptr->text[i].compression > 0)
237       {
238 #ifdef PNG_WRITE_iTXt_SUPPORTED
239           /* Write international chunk */
240           png_write_iTXt(png_ptr,
241                          info_ptr->text[i].compression,
242                          info_ptr->text[i].key,
243                          info_ptr->text[i].lang,
244                          info_ptr->text[i].lang_key,
245                          info_ptr->text[i].text);
246 #else
247           png_warning(png_ptr, "Unable to write international text");
248 #endif
249           /* Mark this chunk as written */
250           info_ptr->text[i].compression = PNG_TEXT_COMPRESSION_NONE_WR;
251       }
252       /* If we want a compressed text chunk */
253       else if (info_ptr->text[i].compression == PNG_TEXT_COMPRESSION_zTXt)
254       {
255 #ifdef PNG_WRITE_zTXt_SUPPORTED
256          /* Write compressed chunk */
257          png_write_zTXt(png_ptr, info_ptr->text[i].key,
258             info_ptr->text[i].text, 0,
259             info_ptr->text[i].compression);
260 #else
261          png_warning(png_ptr, "Unable to write compressed text");
262 #endif
263          /* Mark this chunk as written */
264          info_ptr->text[i].compression = PNG_TEXT_COMPRESSION_zTXt_WR;
265       }
266       else if (info_ptr->text[i].compression == PNG_TEXT_COMPRESSION_NONE)
267       {
268 #ifdef PNG_WRITE_tEXt_SUPPORTED
269          /* Write uncompressed chunk */
270          png_write_tEXt(png_ptr, info_ptr->text[i].key,
271                          info_ptr->text[i].text,
272                          0);
273          /* Mark this chunk as written */
274          info_ptr->text[i].compression = PNG_TEXT_COMPRESSION_NONE_WR;
275 #else
276          /* Can't get here */
277          png_warning(png_ptr, "Unable to write uncompressed text");
278 #endif
279       }
280    }
281 #endif /* tEXt */
282
283 #ifdef PNG_WRITE_UNKNOWN_CHUNKS_SUPPORTED
284    if (info_ptr->unknown_chunks_num)
285    {
286       png_unknown_chunk *up;
287
288       png_debug(5, "writing extra chunks");
289
290       for (up = info_ptr->unknown_chunks;
291            up < info_ptr->unknown_chunks + info_ptr->unknown_chunks_num;
292            up++)
293       {
294          int keep = png_handle_as_unknown(png_ptr, up->name);
295          if (keep != PNG_HANDLE_CHUNK_NEVER &&
296             up->location && (up->location & PNG_HAVE_PLTE) &&
297             !(up->location & PNG_HAVE_IDAT) &&
298             ((up->name[3] & 0x20) || keep == PNG_HANDLE_CHUNK_ALWAYS ||
299             (png_ptr->flags & PNG_FLAG_KEEP_UNSAFE_CHUNKS)))
300          {
301             png_write_chunk(png_ptr, up->name, up->data, up->size);
302          }
303       }
304    }
305 #endif
306 }
307
308 /* Writes the end of the PNG file.  If you don't want to write comments or
309  * time information, you can pass NULL for info.  If you already wrote these
310  * in png_write_info(), do not write them again here.  If you have long
311  * comments, I suggest writing them here, and compressing them.
312  */
313 void PNGAPI
314 png_write_end(png_structp png_ptr, png_infop info_ptr)
315 {
316    png_debug(1, "in png_write_end");
317
318    if (png_ptr == NULL)
319       return;
320    if (!(png_ptr->mode & PNG_HAVE_IDAT))
321       png_error(png_ptr, "No IDATs written into file");
322
323    /* See if user wants us to write information chunks */
324    if (info_ptr != NULL)
325    {
326 #ifdef PNG_WRITE_TEXT_SUPPORTED
327       int i; /* local index variable */
328 #endif
329 #ifdef PNG_WRITE_tIME_SUPPORTED
330       /* Check to see if user has supplied a time chunk */
331       if ((info_ptr->valid & PNG_INFO_tIME) &&
332          !(png_ptr->mode & PNG_WROTE_tIME))
333          png_write_tIME(png_ptr, &(info_ptr->mod_time));
334 #endif
335 #ifdef PNG_WRITE_TEXT_SUPPORTED
336       /* Loop through comment chunks */
337       for (i = 0; i < info_ptr->num_text; i++)
338       {
339          png_debug2(2, "Writing trailer text chunk %d, type %d", i,
340             info_ptr->text[i].compression);
341          /* An internationalized chunk? */
342          if (info_ptr->text[i].compression > 0)
343          {
344 #ifdef PNG_WRITE_iTXt_SUPPORTED
345             /* Write international chunk */
346             png_write_iTXt(png_ptr,
347                         info_ptr->text[i].compression,
348                         info_ptr->text[i].key,
349                         info_ptr->text[i].lang,
350                         info_ptr->text[i].lang_key,
351                         info_ptr->text[i].text);
352 #else
353             png_warning(png_ptr, "Unable to write international text");
354 #endif
355             /* Mark this chunk as written */
356             info_ptr->text[i].compression = PNG_TEXT_COMPRESSION_NONE_WR;
357          }
358          else if (info_ptr->text[i].compression >= PNG_TEXT_COMPRESSION_zTXt)
359          {
360 #ifdef PNG_WRITE_zTXt_SUPPORTED
361             /* Write compressed chunk */
362             png_write_zTXt(png_ptr, info_ptr->text[i].key,
363                info_ptr->text[i].text, 0,
364                info_ptr->text[i].compression);
365 #else
366             png_warning(png_ptr, "Unable to write compressed text");
367 #endif
368             /* Mark this chunk as written */
369             info_ptr->text[i].compression = PNG_TEXT_COMPRESSION_zTXt_WR;
370          }
371          else if (info_ptr->text[i].compression == PNG_TEXT_COMPRESSION_NONE)
372          {
373 #ifdef PNG_WRITE_tEXt_SUPPORTED
374             /* Write uncompressed chunk */
375             png_write_tEXt(png_ptr, info_ptr->text[i].key,
376                info_ptr->text[i].text, 0);
377 #else
378             png_warning(png_ptr, "Unable to write uncompressed text");
379 #endif
380
381             /* Mark this chunk as written */
382             info_ptr->text[i].compression = PNG_TEXT_COMPRESSION_NONE_WR;
383          }
384       }
385 #endif
386 #ifdef PNG_WRITE_UNKNOWN_CHUNKS_SUPPORTED
387    if (info_ptr->unknown_chunks_num)
388    {
389       png_unknown_chunk *up;
390
391       png_debug(5, "writing extra chunks");
392
393       for (up = info_ptr->unknown_chunks;
394            up < info_ptr->unknown_chunks + info_ptr->unknown_chunks_num;
395            up++)
396       {
397          int keep = png_handle_as_unknown(png_ptr, up->name);
398          if (keep != PNG_HANDLE_CHUNK_NEVER &&
399             up->location && (up->location & PNG_AFTER_IDAT) &&
400             ((up->name[3] & 0x20) || keep == PNG_HANDLE_CHUNK_ALWAYS ||
401             (png_ptr->flags & PNG_FLAG_KEEP_UNSAFE_CHUNKS)))
402          {
403             png_write_chunk(png_ptr, up->name, up->data, up->size);
404          }
405       }
406    }
407 #endif
408    }
409
410    png_ptr->mode |= PNG_AFTER_IDAT;
411
412    /* Write end of PNG file */
413    png_write_IEND(png_ptr);
414    /* This flush, added in libpng-1.0.8, removed from libpng-1.0.9beta03,
415     * and restored again in libpng-1.2.30, may cause some applications that
416     * do not set png_ptr->output_flush_fn to crash.  If your application
417     * experiences a problem, please try building libpng with
418     * PNG_WRITE_FLUSH_AFTER_IEND_SUPPORTED defined, and report the event to
419     * png-mng-implement at lists.sf.net .
420     */
421 #ifdef PNG_WRITE_FLUSH_SUPPORTED
422 #  ifdef PNG_WRITE_FLUSH_AFTER_IEND_SUPPORTED
423    png_flush(png_ptr);
424 #  endif
425 #endif
426 }
427
428 #ifdef PNG_CONVERT_tIME_SUPPORTED
429 /* "tm" structure is not supported on WindowsCE */
430 void PNGAPI
431 png_convert_from_struct_tm(png_timep ptime, struct tm FAR * ttime)
432 {
433    png_debug(1, "in png_convert_from_struct_tm");
434
435    ptime->year = (png_uint_16)(1900 + ttime->tm_year);
436    ptime->month = (png_byte)(ttime->tm_mon + 1);
437    ptime->day = (png_byte)ttime->tm_mday;
438    ptime->hour = (png_byte)ttime->tm_hour;
439    ptime->minute = (png_byte)ttime->tm_min;
440    ptime->second = (png_byte)ttime->tm_sec;
441 }
442
443 void PNGAPI
444 png_convert_from_time_t(png_timep ptime, time_t ttime)
445 {
446    struct tm *tbuf;
447
448    png_debug(1, "in png_convert_from_time_t");
449
450    tbuf = gmtime(&ttime);
451    png_convert_from_struct_tm(ptime, tbuf);
452 }
453 #endif
454
455 /* Initialize png_ptr structure, and allocate any memory needed */
456 png_structp PNGAPI
457 png_create_write_struct(png_const_charp user_png_ver, png_voidp error_ptr,
458    png_error_ptr error_fn, png_error_ptr warn_fn)
459 {
460 #ifdef PNG_USER_MEM_SUPPORTED
461    return (png_create_write_struct_2(user_png_ver, error_ptr, error_fn,
462       warn_fn, NULL, NULL, NULL));
463 }
464
465 /* Alternate initialize png_ptr structure, and allocate any memory needed */
466 png_structp PNGAPI
467 png_create_write_struct_2(png_const_charp user_png_ver, png_voidp error_ptr,
468    png_error_ptr error_fn, png_error_ptr warn_fn, png_voidp mem_ptr,
469    png_malloc_ptr malloc_fn, png_free_ptr free_fn)
470 {
471 #endif /* PNG_USER_MEM_SUPPORTED */
472    volatile int png_cleanup_needed = 0;
473 #ifdef PNG_SETJMP_SUPPORTED
474    volatile
475 #endif
476    png_structp png_ptr;
477 #ifdef PNG_SETJMP_SUPPORTED
478 #ifdef USE_FAR_KEYWORD
479    jmp_buf jmpbuf;
480 #endif
481 #endif
482    int i;
483
484    png_debug(1, "in png_create_write_struct");
485
486 #ifdef PNG_USER_MEM_SUPPORTED
487    png_ptr = (png_structp)png_create_struct_2(PNG_STRUCT_PNG,
488       (png_malloc_ptr)malloc_fn, (png_voidp)mem_ptr);
489 #else
490    png_ptr = (png_structp)png_create_struct(PNG_STRUCT_PNG);
491 #endif /* PNG_USER_MEM_SUPPORTED */
492    if (png_ptr == NULL)
493       return (NULL);
494
495    /* Added at libpng-1.2.6 */
496 #ifdef PNG_SET_USER_LIMITS_SUPPORTED
497    png_ptr->user_width_max = PNG_USER_WIDTH_MAX;
498    png_ptr->user_height_max = PNG_USER_HEIGHT_MAX;
499 #endif
500
501 #ifdef PNG_SETJMP_SUPPORTED
502 /* Applications that neglect to set up their own setjmp() and then
503    encounter a png_error() will longjmp here.  Since the jmpbuf is
504    then meaningless we abort instead of returning. */
505 #ifdef USE_FAR_KEYWORD
506    if (setjmp(jmpbuf))
507 #else
508    if (setjmp(png_jmpbuf(png_ptr))) /* sets longjmp to match setjmp */
509 #endif
510 #ifdef USE_FAR_KEYWORD
511    png_memcpy(png_jmpbuf(png_ptr), jmpbuf, png_sizeof(jmp_buf));
512 #endif
513       PNG_ABORT();
514 #endif
515
516 #ifdef PNG_USER_MEM_SUPPORTED
517    png_set_mem_fn(png_ptr, mem_ptr, malloc_fn, free_fn);
518 #endif /* PNG_USER_MEM_SUPPORTED */
519    png_set_error_fn(png_ptr, error_ptr, error_fn, warn_fn);
520
521    if (user_png_ver)
522    {
523       i = 0;
524       do
525       {
526          if (user_png_ver[i] != png_libpng_ver[i])
527             png_ptr->flags |= PNG_FLAG_LIBRARY_MISMATCH;
528       } while (png_libpng_ver[i++]);
529    }
530
531    if (png_ptr->flags & PNG_FLAG_LIBRARY_MISMATCH)
532    {
533      /* Libpng 0.90 and later are binary incompatible with libpng 0.89, so
534       * we must recompile any applications that use any older library version.
535       * For versions after libpng 1.0, we will be compatible, so we need
536       * only check the first digit.
537       */
538      if (user_png_ver == NULL || user_png_ver[0] != png_libpng_ver[0] ||
539          (user_png_ver[0] == '1' && user_png_ver[2] != png_libpng_ver[2]) ||
540          (user_png_ver[0] == '0' && user_png_ver[2] < '9'))
541      {
542 #ifdef PNG_STDIO_SUPPORTED
543         char msg[80];
544         if (user_png_ver)
545         {
546            png_snprintf(msg, 80,
547               "Application was compiled with png.h from libpng-%.20s",
548               user_png_ver);
549            png_warning(png_ptr, msg);
550         }
551         png_snprintf(msg, 80,
552            "Application  is  running with png.c from libpng-%.20s",
553            png_libpng_ver);
554         png_warning(png_ptr, msg);
555 #endif
556 #ifdef PNG_ERROR_NUMBERS_SUPPORTED
557         png_ptr->flags = 0;
558 #endif
559         png_warning(png_ptr,
560            "Incompatible libpng version in application and library");
561         png_cleanup_needed = 1;
562      }
563    }
564
565    /* Initialize zbuf - compression buffer */
566    png_ptr->zbuf_size = PNG_ZBUF_SIZE;
567    if (!png_cleanup_needed)
568    {
569       png_ptr->zbuf = (png_bytep)png_malloc_warn(png_ptr,
570          png_ptr->zbuf_size);
571       if (png_ptr->zbuf == NULL)
572          png_cleanup_needed = 1;
573    }
574    if (png_cleanup_needed)
575    {
576        /* Clean up PNG structure and deallocate any memory. */
577        png_free(png_ptr, png_ptr->zbuf);
578        png_ptr->zbuf = NULL;
579 #ifdef PNG_USER_MEM_SUPPORTED
580        png_destroy_struct_2((png_voidp)png_ptr,
581           (png_free_ptr)free_fn, (png_voidp)mem_ptr);
582 #else
583        png_destroy_struct((png_voidp)png_ptr);
584 #endif
585        return (NULL);
586    }
587
588    png_set_write_fn(png_ptr, NULL, NULL, NULL);
589
590 #ifdef PNG_WRITE_WEIGHTED_FILTER_SUPPORTED
591    png_set_filter_heuristics(png_ptr, PNG_FILTER_HEURISTIC_DEFAULT,
592       1, NULL, NULL);
593 #endif
594
595    return (png_ptr);
596 }
597
598
599 /* Write a few rows of image data.  If the image is interlaced,
600  * either you will have to write the 7 sub images, or, if you
601  * have called png_set_interlace_handling(), you will have to
602  * "write" the image seven times.
603  */
604 void PNGAPI
605 png_write_rows(png_structp png_ptr, png_bytepp row,
606    png_uint_32 num_rows)
607 {
608    png_uint_32 i; /* row counter */
609    png_bytepp rp; /* row pointer */
610
611    png_debug(1, "in png_write_rows");
612
613    if (png_ptr == NULL)
614       return;
615
616    /* Loop through the rows */
617    for (i = 0, rp = row; i < num_rows; i++, rp++)
618    {
619       png_write_row(png_ptr, *rp);
620    }
621 }
622
623 /* Write the image.  You only need to call this function once, even
624  * if you are writing an interlaced image.
625  */
626 void PNGAPI
627 png_write_image(png_structp png_ptr, png_bytepp image)
628 {
629    png_uint_32 i; /* row index */
630    int pass, num_pass; /* pass variables */
631    png_bytepp rp; /* points to current row */
632
633    if (png_ptr == NULL)
634       return;
635
636    png_debug(1, "in png_write_image");
637
638 #ifdef PNG_WRITE_INTERLACING_SUPPORTED
639    /* Initialize interlace handling.  If image is not interlaced,
640     * this will set pass to 1
641     */
642    num_pass = png_set_interlace_handling(png_ptr);
643 #else
644    num_pass = 1;
645 #endif
646    /* Loop through passes */
647    for (pass = 0; pass < num_pass; pass++)
648    {
649       /* Loop through image */
650       for (i = 0, rp = image; i < png_ptr->height; i++, rp++)
651       {
652          png_write_row(png_ptr, *rp);
653       }
654    }
655 }
656
657 /* Called by user to write a row of image data */
658 void PNGAPI
659 png_write_row(png_structp png_ptr, png_bytep row)
660 {
661    if (png_ptr == NULL)
662       return;
663
664    png_debug2(1, "in png_write_row (row %ld, pass %d)",
665       png_ptr->row_number, png_ptr->pass);
666
667    /* Initialize transformations and other stuff if first time */
668    if (png_ptr->row_number == 0 && png_ptr->pass == 0)
669    {
670       /* Make sure we wrote the header info */
671       if (!(png_ptr->mode & PNG_WROTE_INFO_BEFORE_PLTE))
672          png_error(png_ptr,
673             "png_write_info was never called before png_write_row");
674
675       /* Check for transforms that have been set but were defined out */
676 #if !defined(PNG_WRITE_INVERT_SUPPORTED) && defined(PNG_READ_INVERT_SUPPORTED)
677       if (png_ptr->transformations & PNG_INVERT_MONO)
678          png_warning(png_ptr, "PNG_WRITE_INVERT_SUPPORTED is not defined");
679 #endif
680 #if !defined(PNG_WRITE_FILLER_SUPPORTED) && defined(PNG_READ_FILLER_SUPPORTED)
681       if (png_ptr->transformations & PNG_FILLER)
682          png_warning(png_ptr, "PNG_WRITE_FILLER_SUPPORTED is not defined");
683 #endif
684 #if !defined(PNG_WRITE_PACKSWAP_SUPPORTED) && \
685     defined(PNG_READ_PACKSWAP_SUPPORTED)
686       if (png_ptr->transformations & PNG_PACKSWAP)
687          png_warning(png_ptr,
688              "PNG_WRITE_PACKSWAP_SUPPORTED is not defined");
689 #endif
690 #if !defined(PNG_WRITE_PACK_SUPPORTED) && defined(PNG_READ_PACK_SUPPORTED)
691       if (png_ptr->transformations & PNG_PACK)
692          png_warning(png_ptr, "PNG_WRITE_PACK_SUPPORTED is not defined");
693 #endif
694 #if !defined(PNG_WRITE_SHIFT_SUPPORTED) && defined(PNG_READ_SHIFT_SUPPORTED)
695       if (png_ptr->transformations & PNG_SHIFT)
696          png_warning(png_ptr, "PNG_WRITE_SHIFT_SUPPORTED is not defined");
697 #endif
698 #if !defined(PNG_WRITE_BGR_SUPPORTED) && defined(PNG_READ_BGR_SUPPORTED)
699       if (png_ptr->transformations & PNG_BGR)
700          png_warning(png_ptr, "PNG_WRITE_BGR_SUPPORTED is not defined");
701 #endif
702 #if !defined(PNG_WRITE_SWAP_SUPPORTED) && defined(PNG_READ_SWAP_SUPPORTED)
703       if (png_ptr->transformations & PNG_SWAP_BYTES)
704          png_warning(png_ptr, "PNG_WRITE_SWAP_SUPPORTED is not defined");
705 #endif
706
707       png_write_start_row(png_ptr);
708    }
709
710 #ifdef PNG_WRITE_INTERLACING_SUPPORTED
711    /* If interlaced and not interested in row, return */
712    if (png_ptr->interlaced && (png_ptr->transformations & PNG_INTERLACE))
713    {
714       switch (png_ptr->pass)
715       {
716          case 0:
717             if (png_ptr->row_number & 0x07)
718             {
719                png_write_finish_row(png_ptr);
720                return;
721             }
722             break;
723          case 1:
724             if ((png_ptr->row_number & 0x07) || png_ptr->width < 5)
725             {
726                png_write_finish_row(png_ptr);
727                return;
728             }
729             break;
730          case 2:
731             if ((png_ptr->row_number & 0x07) != 4)
732             {
733                png_write_finish_row(png_ptr);
734                return;
735             }
736             break;
737          case 3:
738             if ((png_ptr->row_number & 0x03) || png_ptr->width < 3)
739             {
740                png_write_finish_row(png_ptr);
741                return;
742             }
743             break;
744          case 4:
745             if ((png_ptr->row_number & 0x03) != 2)
746             {
747                png_write_finish_row(png_ptr);
748                return;
749             }
750             break;
751          case 5:
752             if ((png_ptr->row_number & 0x01) || png_ptr->width < 2)
753             {
754                png_write_finish_row(png_ptr);
755                return;
756             }
757             break;
758          case 6:
759             if (!(png_ptr->row_number & 0x01))
760             {
761                png_write_finish_row(png_ptr);
762                return;
763             }
764             break;
765       }
766    }
767 #endif
768
769    /* Set up row info for transformations */
770    png_ptr->row_info.color_type = png_ptr->color_type;
771    png_ptr->row_info.width = png_ptr->usr_width;
772    png_ptr->row_info.channels = png_ptr->usr_channels;
773    png_ptr->row_info.bit_depth = png_ptr->usr_bit_depth;
774    png_ptr->row_info.pixel_depth = (png_byte)(png_ptr->row_info.bit_depth *
775       png_ptr->row_info.channels);
776
777    png_ptr->row_info.rowbytes = PNG_ROWBYTES(png_ptr->row_info.pixel_depth,
778       png_ptr->row_info.width);
779
780    png_debug1(3, "row_info->color_type = %d", png_ptr->row_info.color_type);
781    png_debug1(3, "row_info->width = %lu", png_ptr->row_info.width);
782    png_debug1(3, "row_info->channels = %d", png_ptr->row_info.channels);
783    png_debug1(3, "row_info->bit_depth = %d", png_ptr->row_info.bit_depth);
784    png_debug1(3, "row_info->pixel_depth = %d", png_ptr->row_info.pixel_depth);
785    png_debug1(3, "row_info->rowbytes = %lu", png_ptr->row_info.rowbytes);
786
787    /* Copy user's row into buffer, leaving room for filter byte. */
788    png_memcpy(png_ptr->row_buf + 1, row, png_ptr->row_info.rowbytes);
789
790 #ifdef PNG_WRITE_INTERLACING_SUPPORTED
791    /* Handle interlacing */
792    if (png_ptr->interlaced && png_ptr->pass < 6 &&
793       (png_ptr->transformations & PNG_INTERLACE))
794    {
795       png_do_write_interlace(&(png_ptr->row_info),
796          png_ptr->row_buf + 1, png_ptr->pass);
797       /* This should always get caught above, but still ... */
798       if (!(png_ptr->row_info.width))
799       {
800          png_write_finish_row(png_ptr);
801          return;
802       }
803    }
804 #endif
805
806    /* Handle other transformations */
807    if (png_ptr->transformations)
808       png_do_write_transformations(png_ptr);
809
810 #ifdef PNG_MNG_FEATURES_SUPPORTED
811    /* Write filter_method 64 (intrapixel differencing) only if
812     * 1. Libpng was compiled with PNG_MNG_FEATURES_SUPPORTED and
813     * 2. Libpng did not write a PNG signature (this filter_method is only
814     *    used in PNG datastreams that are embedded in MNG datastreams) and
815     * 3. The application called png_permit_mng_features with a mask that
816     *    included PNG_FLAG_MNG_FILTER_64 and
817     * 4. The filter_method is 64 and
818     * 5. The color_type is RGB or RGBA
819     */
820    if ((png_ptr->mng_features_permitted & PNG_FLAG_MNG_FILTER_64) &&
821       (png_ptr->filter_type == PNG_INTRAPIXEL_DIFFERENCING))
822    {
823       /* Intrapixel differencing */
824       png_do_write_intrapixel(&(png_ptr->row_info), png_ptr->row_buf + 1);
825    }
826 #endif
827
828    /* Find a filter if necessary, filter the row and write it out. */
829    png_write_find_filter(png_ptr, &(png_ptr->row_info));
830
831    if (png_ptr->write_row_fn != NULL)
832       (*(png_ptr->write_row_fn))(png_ptr, png_ptr->row_number, png_ptr->pass);
833 }
834
835 #ifdef PNG_WRITE_FLUSH_SUPPORTED
836 /* Set the automatic flush interval or 0 to turn flushing off */
837 void PNGAPI
838 png_set_flush(png_structp png_ptr, int nrows)
839 {
840    png_debug(1, "in png_set_flush");
841
842    if (png_ptr == NULL)
843       return;
844    png_ptr->flush_dist = (nrows < 0 ? 0 : nrows);
845 }
846
847 /* Flush the current output buffers now */
848 void PNGAPI
849 png_write_flush(png_structp png_ptr)
850 {
851    int wrote_IDAT;
852
853    png_debug(1, "in png_write_flush");
854
855    if (png_ptr == NULL)
856       return;
857    /* We have already written out all of the data */
858    if (png_ptr->row_number >= png_ptr->num_rows)
859       return;
860
861    do
862    {
863       int ret;
864
865       /* Compress the data */
866       ret = deflate(&png_ptr->zstream, Z_SYNC_FLUSH);
867       wrote_IDAT = 0;
868
869       /* Check for compression errors */
870       if (ret != Z_OK)
871       {
872          if (png_ptr->zstream.msg != NULL)
873             png_error(png_ptr, png_ptr->zstream.msg);
874          else
875             png_error(png_ptr, "zlib error");
876       }
877
878       if (!(png_ptr->zstream.avail_out))
879       {
880          /* Write the IDAT and reset the zlib output buffer */
881          png_write_IDAT(png_ptr, png_ptr->zbuf,
882                         png_ptr->zbuf_size);
883          png_ptr->zstream.next_out = png_ptr->zbuf;
884          png_ptr->zstream.avail_out = (uInt)png_ptr->zbuf_size;
885          wrote_IDAT = 1;
886       }
887    } while(wrote_IDAT == 1);
888
889    /* If there is any data left to be output, write it into a new IDAT */
890    if (png_ptr->zbuf_size != png_ptr->zstream.avail_out)
891    {
892       /* Write the IDAT and reset the zlib output buffer */
893       png_write_IDAT(png_ptr, png_ptr->zbuf,
894                      png_ptr->zbuf_size - png_ptr->zstream.avail_out);
895       png_ptr->zstream.next_out = png_ptr->zbuf;
896       png_ptr->zstream.avail_out = (uInt)png_ptr->zbuf_size;
897    }
898    png_ptr->flush_rows = 0;
899    png_flush(png_ptr);
900 }
901 #endif /* PNG_WRITE_FLUSH_SUPPORTED */
902
903 /* Free all memory used by the write */
904 void PNGAPI
905 png_destroy_write_struct(png_structpp png_ptr_ptr, png_infopp info_ptr_ptr)
906 {
907    png_structp png_ptr = NULL;
908    png_infop info_ptr = NULL;
909 #ifdef PNG_USER_MEM_SUPPORTED
910    png_free_ptr free_fn = NULL;
911    png_voidp mem_ptr = NULL;
912 #endif
913
914    png_debug(1, "in png_destroy_write_struct");
915
916    if (png_ptr_ptr != NULL)
917    {
918       png_ptr = *png_ptr_ptr;
919 #ifdef PNG_USER_MEM_SUPPORTED
920       free_fn = png_ptr->free_fn;
921       mem_ptr = png_ptr->mem_ptr;
922 #endif
923    }
924
925 #ifdef PNG_USER_MEM_SUPPORTED
926    if (png_ptr != NULL)
927    {
928       free_fn = png_ptr->free_fn;
929       mem_ptr = png_ptr->mem_ptr;
930    }
931 #endif
932
933    if (info_ptr_ptr != NULL)
934       info_ptr = *info_ptr_ptr;
935
936    if (info_ptr != NULL)
937    {
938       if (png_ptr != NULL)
939       {
940         png_free_data(png_ptr, info_ptr, PNG_FREE_ALL, -1);
941
942 #ifdef PNG_HANDLE_AS_UNKNOWN_SUPPORTED
943         if (png_ptr->num_chunk_list)
944         {
945            png_free(png_ptr, png_ptr->chunk_list);
946            png_ptr->num_chunk_list = 0;
947         }
948 #endif
949       }
950
951 #ifdef PNG_USER_MEM_SUPPORTED
952       png_destroy_struct_2((png_voidp)info_ptr, (png_free_ptr)free_fn,
953          (png_voidp)mem_ptr);
954 #else
955       png_destroy_struct((png_voidp)info_ptr);
956 #endif
957       *info_ptr_ptr = NULL;
958    }
959
960    if (png_ptr != NULL)
961    {
962       png_write_destroy(png_ptr);
963 #ifdef PNG_USER_MEM_SUPPORTED
964       png_destroy_struct_2((png_voidp)png_ptr, (png_free_ptr)free_fn,
965          (png_voidp)mem_ptr);
966 #else
967       png_destroy_struct((png_voidp)png_ptr);
968 #endif
969       *png_ptr_ptr = NULL;
970    }
971 }
972
973
974 /* Free any memory used in png_ptr struct (old method) */
975 void /* PRIVATE */
976 png_write_destroy(png_structp png_ptr)
977 {
978 #ifdef PNG_SETJMP_SUPPORTED
979    jmp_buf tmp_jmp; /* Save jump buffer */
980 #endif
981    png_error_ptr error_fn;
982    png_error_ptr warning_fn;
983    png_voidp error_ptr;
984 #ifdef PNG_USER_MEM_SUPPORTED
985    png_free_ptr free_fn;
986 #endif
987
988    png_debug(1, "in png_write_destroy");
989
990    /* Free any memory zlib uses */
991    deflateEnd(&png_ptr->zstream);
992
993    /* Free our memory.  png_free checks NULL for us. */
994    png_free(png_ptr, png_ptr->zbuf);
995    png_free(png_ptr, png_ptr->row_buf);
996 #ifdef PNG_WRITE_FILTER_SUPPORTED
997    png_free(png_ptr, png_ptr->prev_row);
998    png_free(png_ptr, png_ptr->sub_row);
999    png_free(png_ptr, png_ptr->up_row);
1000    png_free(png_ptr, png_ptr->avg_row);
1001    png_free(png_ptr, png_ptr->paeth_row);
1002 #endif
1003
1004 #ifdef PNG_TIME_RFC1123_SUPPORTED
1005    png_free(png_ptr, png_ptr->time_buffer);
1006 #endif
1007
1008 #ifdef PNG_WRITE_WEIGHTED_FILTER_SUPPORTED
1009    png_free(png_ptr, png_ptr->prev_filters);
1010    png_free(png_ptr, png_ptr->filter_weights);
1011    png_free(png_ptr, png_ptr->inv_filter_weights);
1012    png_free(png_ptr, png_ptr->filter_costs);
1013    png_free(png_ptr, png_ptr->inv_filter_costs);
1014 #endif
1015
1016 #ifdef PNG_SETJMP_SUPPORTED
1017    /* Reset structure */
1018    png_memcpy(tmp_jmp, png_ptr->jmpbuf, png_sizeof(jmp_buf));
1019 #endif
1020
1021    error_fn = png_ptr->error_fn;
1022    warning_fn = png_ptr->warning_fn;
1023    error_ptr = png_ptr->error_ptr;
1024 #ifdef PNG_USER_MEM_SUPPORTED
1025    free_fn = png_ptr->free_fn;
1026 #endif
1027
1028    png_memset(png_ptr, 0, png_sizeof(png_struct));
1029
1030    png_ptr->error_fn = error_fn;
1031    png_ptr->warning_fn = warning_fn;
1032    png_ptr->error_ptr = error_ptr;
1033 #ifdef PNG_USER_MEM_SUPPORTED
1034    png_ptr->free_fn = free_fn;
1035 #endif
1036
1037 #ifdef PNG_SETJMP_SUPPORTED
1038    png_memcpy(png_ptr->jmpbuf, tmp_jmp, png_sizeof(jmp_buf));
1039 #endif
1040 }
1041
1042 /* Allow the application to select one or more row filters to use. */
1043 void PNGAPI
1044 png_set_filter(png_structp png_ptr, int method, int filters)
1045 {
1046    png_debug(1, "in png_set_filter");
1047
1048    if (png_ptr == NULL)
1049       return;
1050 #ifdef PNG_MNG_FEATURES_SUPPORTED
1051    if ((png_ptr->mng_features_permitted & PNG_FLAG_MNG_FILTER_64) &&
1052       (method == PNG_INTRAPIXEL_DIFFERENCING))
1053          method = PNG_FILTER_TYPE_BASE;
1054 #endif
1055    if (method == PNG_FILTER_TYPE_BASE)
1056    {
1057       switch (filters & (PNG_ALL_FILTERS | 0x07))
1058       {
1059 #ifdef PNG_WRITE_FILTER_SUPPORTED
1060          case 5:
1061          case 6:
1062          case 7: png_warning(png_ptr, "Unknown row filter for method 0");
1063 #endif /* PNG_WRITE_FILTER_SUPPORTED */
1064          case PNG_FILTER_VALUE_NONE:
1065               png_ptr->do_filter = PNG_FILTER_NONE; break;
1066 #ifdef PNG_WRITE_FILTER_SUPPORTED
1067          case PNG_FILTER_VALUE_SUB:
1068               png_ptr->do_filter = PNG_FILTER_SUB; break;
1069          case PNG_FILTER_VALUE_UP:
1070               png_ptr->do_filter = PNG_FILTER_UP; break;
1071          case PNG_FILTER_VALUE_AVG:
1072               png_ptr->do_filter = PNG_FILTER_AVG; break;
1073          case PNG_FILTER_VALUE_PAETH:
1074               png_ptr->do_filter = PNG_FILTER_PAETH; break;
1075          default: png_ptr->do_filter = (png_byte)filters; break;
1076 #else
1077          default: png_warning(png_ptr, "Unknown row filter for method 0");
1078 #endif /* PNG_WRITE_FILTER_SUPPORTED */
1079       }
1080
1081       /* If we have allocated the row_buf, this means we have already started
1082        * with the image and we should have allocated all of the filter buffers
1083        * that have been selected.  If prev_row isn't already allocated, then
1084        * it is too late to start using the filters that need it, since we
1085        * will be missing the data in the previous row.  If an application
1086        * wants to start and stop using particular filters during compression,
1087        * it should start out with all of the filters, and then add and
1088        * remove them after the start of compression.
1089        */
1090       if (png_ptr->row_buf != NULL)
1091       {
1092 #ifdef PNG_WRITE_FILTER_SUPPORTED
1093          if ((png_ptr->do_filter & PNG_FILTER_SUB) && png_ptr->sub_row == NULL)
1094          {
1095             png_ptr->sub_row = (png_bytep)png_malloc(png_ptr,
1096               (png_ptr->rowbytes + 1));
1097             png_ptr->sub_row[0] = PNG_FILTER_VALUE_SUB;
1098          }
1099
1100          if ((png_ptr->do_filter & PNG_FILTER_UP) && png_ptr->up_row == NULL)
1101          {
1102             if (png_ptr->prev_row == NULL)
1103             {
1104                png_warning(png_ptr, "Can't add Up filter after starting");
1105                png_ptr->do_filter &= ~PNG_FILTER_UP;
1106             }
1107             else
1108             {
1109                png_ptr->up_row = (png_bytep)png_malloc(png_ptr,
1110                   (png_ptr->rowbytes + 1));
1111                png_ptr->up_row[0] = PNG_FILTER_VALUE_UP;
1112             }
1113          }
1114
1115          if ((png_ptr->do_filter & PNG_FILTER_AVG) && png_ptr->avg_row == NULL)
1116          {
1117             if (png_ptr->prev_row == NULL)
1118             {
1119                png_warning(png_ptr, "Can't add Average filter after starting");
1120                png_ptr->do_filter &= ~PNG_FILTER_AVG;
1121             }
1122             else
1123             {
1124                png_ptr->avg_row = (png_bytep)png_malloc(png_ptr,
1125                   (png_ptr->rowbytes + 1));
1126                png_ptr->avg_row[0] = PNG_FILTER_VALUE_AVG;
1127             }
1128          }
1129
1130          if ((png_ptr->do_filter & PNG_FILTER_PAETH) &&
1131              png_ptr->paeth_row == NULL)
1132          {
1133             if (png_ptr->prev_row == NULL)
1134             {
1135                png_warning(png_ptr, "Can't add Paeth filter after starting");
1136                png_ptr->do_filter &= (png_byte)(~PNG_FILTER_PAETH);
1137             }
1138             else
1139             {
1140                png_ptr->paeth_row = (png_bytep)png_malloc(png_ptr,
1141                   (png_ptr->rowbytes + 1));
1142                png_ptr->paeth_row[0] = PNG_FILTER_VALUE_PAETH;
1143             }
1144          }
1145
1146          if (png_ptr->do_filter == PNG_NO_FILTERS)
1147 #endif /* PNG_WRITE_FILTER_SUPPORTED */
1148             png_ptr->do_filter = PNG_FILTER_NONE;
1149       }
1150    }
1151    else
1152       png_error(png_ptr, "Unknown custom filter method");
1153 }
1154
1155 /* This allows us to influence the way in which libpng chooses the "best"
1156  * filter for the current scanline.  While the "minimum-sum-of-absolute-
1157  * differences metric is relatively fast and effective, there is some
1158  * question as to whether it can be improved upon by trying to keep the
1159  * filtered data going to zlib more consistent, hopefully resulting in
1160  * better compression.
1161  */
1162 #ifdef PNG_WRITE_WEIGHTED_FILTER_SUPPORTED      /* GRR 970116 */
1163 void PNGAPI
1164 png_set_filter_heuristics(png_structp png_ptr, int heuristic_method,
1165    int num_weights, png_doublep filter_weights,
1166    png_doublep filter_costs)
1167 {
1168    int i;
1169
1170    png_debug(1, "in png_set_filter_heuristics");
1171
1172    if (png_ptr == NULL)
1173       return;
1174    if (heuristic_method >= PNG_FILTER_HEURISTIC_LAST)
1175    {
1176       png_warning(png_ptr, "Unknown filter heuristic method");
1177       return;
1178    }
1179
1180    if (heuristic_method == PNG_FILTER_HEURISTIC_DEFAULT)
1181    {
1182       heuristic_method = PNG_FILTER_HEURISTIC_UNWEIGHTED;
1183    }
1184
1185    if (num_weights < 0 || filter_weights == NULL ||
1186       heuristic_method == PNG_FILTER_HEURISTIC_UNWEIGHTED)
1187    {
1188       num_weights = 0;
1189    }
1190
1191    png_ptr->num_prev_filters = (png_byte)num_weights;
1192    png_ptr->heuristic_method = (png_byte)heuristic_method;
1193
1194    if (num_weights > 0)
1195    {
1196       if (png_ptr->prev_filters == NULL)
1197       {
1198          png_ptr->prev_filters = (png_bytep)png_malloc(png_ptr,
1199             (png_uint_32)(png_sizeof(png_byte) * num_weights));
1200
1201          /* To make sure that the weighting starts out fairly */
1202          for (i = 0; i < num_weights; i++)
1203          {
1204             png_ptr->prev_filters[i] = 255;
1205          }
1206       }
1207
1208       if (png_ptr->filter_weights == NULL)
1209       {
1210          png_ptr->filter_weights = (png_uint_16p)png_malloc(png_ptr,
1211             (png_uint_32)(png_sizeof(png_uint_16) * num_weights));
1212
1213          png_ptr->inv_filter_weights = (png_uint_16p)png_malloc(png_ptr,
1214             (png_uint_32)(png_sizeof(png_uint_16) * num_weights));
1215          for (i = 0; i < num_weights; i++)
1216          {
1217             png_ptr->inv_filter_weights[i] =
1218             png_ptr->filter_weights[i] = PNG_WEIGHT_FACTOR;
1219          }
1220       }
1221
1222       for (i = 0; i < num_weights; i++)
1223       {
1224          if (filter_weights[i] < 0.0)
1225          {
1226             png_ptr->inv_filter_weights[i] =
1227             png_ptr->filter_weights[i] = PNG_WEIGHT_FACTOR;
1228          }
1229          else
1230          {
1231             png_ptr->inv_filter_weights[i] =
1232                (png_uint_16)((double)PNG_WEIGHT_FACTOR*filter_weights[i]+0.5);
1233             png_ptr->filter_weights[i] =
1234                (png_uint_16)((double)PNG_WEIGHT_FACTOR/filter_weights[i]+0.5);
1235          }
1236       }
1237    }
1238
1239    /* If, in the future, there are other filter methods, this would
1240     * need to be based on png_ptr->filter.
1241     */
1242    if (png_ptr->filter_costs == NULL)
1243    {
1244       png_ptr->filter_costs = (png_uint_16p)png_malloc(png_ptr,
1245          (png_uint_32)(png_sizeof(png_uint_16) * PNG_FILTER_VALUE_LAST));
1246
1247       png_ptr->inv_filter_costs = (png_uint_16p)png_malloc(png_ptr,
1248          (png_uint_32)(png_sizeof(png_uint_16) * PNG_FILTER_VALUE_LAST));
1249
1250       for (i = 0; i < PNG_FILTER_VALUE_LAST; i++)
1251       {
1252          png_ptr->inv_filter_costs[i] =
1253          png_ptr->filter_costs[i] = PNG_COST_FACTOR;
1254       }
1255    }
1256
1257    /* Here is where we set the relative costs of the different filters.  We
1258     * should take the desired compression level into account when setting
1259     * the costs, so that Paeth, for instance, has a high relative cost at low
1260     * compression levels, while it has a lower relative cost at higher
1261     * compression settings.  The filter types are in order of increasing
1262     * relative cost, so it would be possible to do this with an algorithm.
1263     */
1264    for (i = 0; i < PNG_FILTER_VALUE_LAST; i++)
1265    {
1266       if (filter_costs == NULL || filter_costs[i] < 0.0)
1267       {
1268          png_ptr->inv_filter_costs[i] =
1269          png_ptr->filter_costs[i] = PNG_COST_FACTOR;
1270       }
1271       else if (filter_costs[i] >= 1.0)
1272       {
1273          png_ptr->inv_filter_costs[i] =
1274             (png_uint_16)((double)PNG_COST_FACTOR / filter_costs[i] + 0.5);
1275          png_ptr->filter_costs[i] =
1276             (png_uint_16)((double)PNG_COST_FACTOR * filter_costs[i] + 0.5);
1277       }
1278    }
1279 }
1280 #endif /* PNG_WRITE_WEIGHTED_FILTER_SUPPORTED */
1281
1282 void PNGAPI
1283 png_set_compression_level(png_structp png_ptr, int level)
1284 {
1285    png_debug(1, "in png_set_compression_level");
1286
1287    if (png_ptr == NULL)
1288       return;
1289    png_ptr->flags |= PNG_FLAG_ZLIB_CUSTOM_LEVEL;
1290    png_ptr->zlib_level = level;
1291 }
1292
1293 void PNGAPI
1294 png_set_compression_mem_level(png_structp png_ptr, int mem_level)
1295 {
1296    png_debug(1, "in png_set_compression_mem_level");
1297
1298    if (png_ptr == NULL)
1299       return;
1300    png_ptr->flags |= PNG_FLAG_ZLIB_CUSTOM_MEM_LEVEL;
1301    png_ptr->zlib_mem_level = mem_level;
1302 }
1303
1304 void PNGAPI
1305 png_set_compression_strategy(png_structp png_ptr, int strategy)
1306 {
1307    png_debug(1, "in png_set_compression_strategy");
1308
1309    if (png_ptr == NULL)
1310       return;
1311    png_ptr->flags |= PNG_FLAG_ZLIB_CUSTOM_STRATEGY;
1312    png_ptr->zlib_strategy = strategy;
1313 }
1314
1315 void PNGAPI
1316 png_set_compression_window_bits(png_structp png_ptr, int window_bits)
1317 {
1318    if (png_ptr == NULL)
1319       return;
1320    if (window_bits > 15)
1321       png_warning(png_ptr, "Only compression windows <= 32k supported by PNG");
1322    else if (window_bits < 8)
1323       png_warning(png_ptr, "Only compression windows >= 256 supported by PNG");
1324 #ifndef WBITS_8_OK
1325    /* Avoid libpng bug with 256-byte windows */
1326    if (window_bits == 8)
1327      {
1328        png_warning(png_ptr, "Compression window is being reset to 512");
1329        window_bits = 9;
1330      }
1331 #endif
1332    png_ptr->flags |= PNG_FLAG_ZLIB_CUSTOM_WINDOW_BITS;
1333    png_ptr->zlib_window_bits = window_bits;
1334 }
1335
1336 void PNGAPI
1337 png_set_compression_method(png_structp png_ptr, int method)
1338 {
1339    png_debug(1, "in png_set_compression_method");
1340
1341    if (png_ptr == NULL)
1342       return;
1343    if (method != 8)
1344       png_warning(png_ptr, "Only compression method 8 is supported by PNG");
1345    png_ptr->flags |= PNG_FLAG_ZLIB_CUSTOM_METHOD;
1346    png_ptr->zlib_method = method;
1347 }
1348
1349 void PNGAPI
1350 png_set_write_status_fn(png_structp png_ptr, png_write_status_ptr write_row_fn)
1351 {
1352    if (png_ptr == NULL)
1353       return;
1354    png_ptr->write_row_fn = write_row_fn;
1355 }
1356
1357 #ifdef PNG_WRITE_USER_TRANSFORM_SUPPORTED
1358 void PNGAPI
1359 png_set_write_user_transform_fn(png_structp png_ptr, png_user_transform_ptr
1360    write_user_transform_fn)
1361 {
1362    png_debug(1, "in png_set_write_user_transform_fn");
1363
1364    if (png_ptr == NULL)
1365       return;
1366    png_ptr->transformations |= PNG_USER_TRANSFORM;
1367    png_ptr->write_user_transform_fn = write_user_transform_fn;
1368 }
1369 #endif
1370
1371
1372 #ifdef PNG_INFO_IMAGE_SUPPORTED
1373 void PNGAPI
1374 png_write_png(png_structp png_ptr, png_infop info_ptr,
1375               int transforms, voidp params)
1376 {
1377    if (png_ptr == NULL || info_ptr == NULL)
1378       return;
1379
1380    /* Write the file header information. */
1381    png_write_info(png_ptr, info_ptr);
1382
1383    /* ------ these transformations don't touch the info structure ------- */
1384
1385 #ifdef PNG_WRITE_INVERT_SUPPORTED
1386    /* Invert monochrome pixels */
1387    if (transforms & PNG_TRANSFORM_INVERT_MONO)
1388       png_set_invert_mono(png_ptr);
1389 #endif
1390
1391 #ifdef PNG_WRITE_SHIFT_SUPPORTED
1392    /* Shift the pixels up to a legal bit depth and fill in
1393     * as appropriate to correctly scale the image.
1394     */
1395    if ((transforms & PNG_TRANSFORM_SHIFT)
1396                && (info_ptr->valid & PNG_INFO_sBIT))
1397       png_set_shift(png_ptr, &info_ptr->sig_bit);
1398 #endif
1399
1400 #ifdef PNG_WRITE_PACK_SUPPORTED
1401    /* Pack pixels into bytes */
1402    if (transforms & PNG_TRANSFORM_PACKING)
1403        png_set_packing(png_ptr);
1404 #endif
1405
1406 #ifdef PNG_WRITE_SWAP_ALPHA_SUPPORTED
1407    /* Swap location of alpha bytes from ARGB to RGBA */
1408    if (transforms & PNG_TRANSFORM_SWAP_ALPHA)
1409       png_set_swap_alpha(png_ptr);
1410 #endif
1411
1412 #ifdef PNG_WRITE_FILLER_SUPPORTED
1413    /* Pack XRGB/RGBX/ARGB/RGBA into * RGB (4 channels -> 3 channels) */
1414    if (transforms & PNG_TRANSFORM_STRIP_FILLER_AFTER)
1415       png_set_filler(png_ptr, 0, PNG_FILLER_AFTER);
1416    else if (transforms & PNG_TRANSFORM_STRIP_FILLER_BEFORE)
1417       png_set_filler(png_ptr, 0, PNG_FILLER_BEFORE);
1418 #endif
1419
1420 #ifdef PNG_WRITE_BGR_SUPPORTED
1421    /* Flip BGR pixels to RGB */
1422    if (transforms & PNG_TRANSFORM_BGR)
1423       png_set_bgr(png_ptr);
1424 #endif
1425
1426 #ifdef PNG_WRITE_SWAP_SUPPORTED
1427    /* Swap bytes of 16-bit files to most significant byte first */
1428    if (transforms & PNG_TRANSFORM_SWAP_ENDIAN)
1429       png_set_swap(png_ptr);
1430 #endif
1431
1432 #ifdef PNG_WRITE_PACKSWAP_SUPPORTED
1433    /* Swap bits of 1, 2, 4 bit packed pixel formats */
1434    if (transforms & PNG_TRANSFORM_PACKSWAP)
1435       png_set_packswap(png_ptr);
1436 #endif
1437
1438 #ifdef PNG_WRITE_INVERT_ALPHA_SUPPORTED
1439    /* Invert the alpha channel from opacity to transparency */
1440    if (transforms & PNG_TRANSFORM_INVERT_ALPHA)
1441       png_set_invert_alpha(png_ptr);
1442 #endif
1443
1444    /* ----------------------- end of transformations ------------------- */
1445
1446    /* Write the bits */
1447    if (info_ptr->valid & PNG_INFO_IDAT)
1448        png_write_image(png_ptr, info_ptr->row_pointers);
1449
1450    /* It is REQUIRED to call this to finish writing the rest of the file */
1451    png_write_end(png_ptr, info_ptr);
1452
1453    transforms = transforms; /* Quiet compiler warnings */
1454    params = params;
1455 }
1456 #endif
1457 #endif /* PNG_WRITE_SUPPORTED */