Subversion Repositories Kolibri OS

; Copyright (c) 1998-2002,2004,2006-2016 Glenn Randers-Pehrson

; (Version 0.96 Copyright (c) 1996, 1997 Andreas Dilger)

; (Version 0.88 Copyright (c) 1995, 1996 Guy Eric Schalnat, Group 42, Inc.)

; For conditions of distribution and use, see the disclaimer

; and license in png.inc

align 4

proc png_get_valid, png_ptr:dword, info_ptr:dword, flag:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		mov eax,[eax+png_info_def.valid]

		and eax,[flag]

	@@:

	ret

endp

align 4

proc png_get_rowbytes, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		mov eax,[eax+png_info_def.rowbytes]

	@@:

	ret

endp

align 4

proc png_get_rows, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		mov eax,[eax+png_info_def.row_pointers]

	@@:

	ret

endp

;uint_32 (png_structrp png_ptr, png_inforp info_ptr)

align 4

proc png_get_image_width, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		mov eax,[eax+png_info_def.width]

	@@:

	ret

endp

align 4

proc png_get_image_height, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		mov eax,[eax+png_info_def.height]

	@@:

	ret

endp

align 4

proc png_get_bit_depth, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		movzx eax,byte[eax+png_info_def.bit_depth]

	@@:

	ret

endp

align 4

proc png_get_color_type, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		movzx eax,byte[eax+png_info_def.color_type]

	@@:

	ret

endp

align 4

proc png_get_filter_type, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		movzx eax,byte[eax+png_info_def.filter_type]

	@@:

	ret

endp

align 4

proc png_get_interlace_type, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		movzx eax,byte[eax+png_info_def.interlace_type]

	@@:

	ret

endp

align 4

proc png_get_compression_type, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		mov eax,[eax+png_info_def.compression_type]

	@@:

	ret

endp

align 4

proc png_get_x_pixels_per_meter, png_ptr:dword, info_ptr:dword

if PNG_pHYs_SUPPORTED eq 1

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov esi,[info_ptr]

	cmp esi,0

	je @f

	mov eax,[esi+png_info_def.valid]

	and eax,PNG_INFO_pHYs

	cmp eax,0

	je @f ;if (..!=0 && ..!=0 && ..!=0)

		png_debug1 1, 'in %s retrieval function', 'png_get_x_pixels_per_meter'

		jne @f ;if (..==..)

			mov eax,[esi+png_info_def.x_pixels_per_unit]

			jmp .end_f

	@@:

end if

	xor eax,eax

.end_f:

	ret

endp

align 4

proc png_get_y_pixels_per_meter, png_ptr:dword, info_ptr:dword

if PNG_pHYs_SUPPORTED eq 1

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov esi,[info_ptr]

	cmp esi,0

	je @f

	mov eax,[esi+png_info_def.valid]

	and eax,PNG_INFO_pHYs

	cmp eax,0

	je @f ;if (..!=0 && ..!=0 && ..!=0)

		png_debug1 1, 'in %s retrieval function', 'png_get_y_pixels_per_meter'

		jne @f ;if (..==..)

			mov eax,[esi+png_info_def.y_pixels_per_unit]

			jmp .end_f

	@@:

end if

	xor eax,eax

.end_f:

	ret

endp

align 4

proc png_get_pixels_per_meter uses esi, png_ptr:dword, info_ptr:dword

if PNG_pHYs_SUPPORTED eq 1

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov esi,[info_ptr]

	cmp esi,0

	je @f

	mov eax,[esi+png_info_def.valid]

	and eax,PNG_INFO_pHYs

	cmp eax,0

	je @f ;if (..!=0 && ..!=0 && ..!=0)

		png_debug1 1, 'in %s retrieval function', 'png_get_pixels_per_meter'

		jne @f

		mov eax,[esi+png_info_def.x_pixels_per_unit]

		cmp eax,[esi+png_info_def.y_pixels_per_unit]

		jne @f ;if (..==.. && ..==..)

			jmp .end_f

	@@:

end if

	xor eax,eax

.end_f:

	ret

endp

align 4

proc png_get_pixel_aspect_ratio, png_ptr:dword, info_ptr:dword

if PNG_READ_pHYs_SUPPORTED eq 1

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_pHYs) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'png_get_aspect_ratio'

;         return ((float)((float)info_ptr->y_pixels_per_unit

;             /(float)info_ptr->x_pixels_per_unit));

;   }

end if

	ret

endp

align 4

proc png_get_pixel_aspect_ratio_fixed, png_ptr:dword, info_ptr:dword

if PNG_READ_pHYs_SUPPORTED eq 1

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_pHYs) != 0 &&

;       info_ptr->x_pixels_per_unit > 0 && info_ptr->y_pixels_per_unit > 0 &&

;       info_ptr->x_pixels_per_unit <= PNG_UINT_31_MAX &&

;       info_ptr->y_pixels_per_unit <= PNG_UINT_31_MAX)

;   {

;      png_fixed_point res;

	; range of 0..2^31-1; otherwise the cast might overflow.

;          (int_32)info_ptr->x_pixels_per_unit) != 0)

;         return res;

;   }

end if

	ret

endp

align 4

proc png_get_x_offset_microns, png_ptr:dword, info_ptr:dword

if PNG_oFFs_SUPPORTED eq 1

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_oFFs) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'png_get_x_offset_microns'

;         return (info_ptr->x_offset);

;   }

end if

	ret

endp

align 4

proc png_get_y_offset_microns, png_ptr:dword, info_ptr:dword

if PNG_oFFs_SUPPORTED eq 1

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_oFFs) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'png_get_y_offset_microns'

;         return (info_ptr->y_offset);

;   }

end if

	ret

endp

align 4

proc png_get_x_offset_pixels, png_ptr:dword, info_ptr:dword

if PNG_oFFs_SUPPORTED eq 1

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_oFFs) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'png_get_x_offset_pixels'

;         return (info_ptr->x_offset);

;   }

end if

	ret

endp

align 4

proc png_get_y_offset_pixels, png_ptr:dword, info_ptr:dword

if PNG_oFFs_SUPPORTED eq 1

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_oFFs) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'png_get_y_offset_pixels'

;         return (info_ptr->y_offset);

;   }

end if

	ret

endp

align 4

proc ppi_from_ppm, ppm:dword

;#if 0

	; The conversion is *(2.54/100), in binary (32 digits):

	; .00000110100000001001110101001001

;   ppm >>= 1;                  /* .1 */

;   t1001 = ppm + (ppm >> 3);   /* .1001 */

;   t1101 = t1001 + (ppm >> 1); /* .1101 */

;   ppm >>= 20;                 /* .000000000000000000001 */

;   t1101 += t1101 >> 15;       /* .1101000000000001101 */

;   t1001 >>= 11;               /* .000000000001001 */

;   t1001 += t1001 >> 12;       /* .000000000001001000000001001 */

;   ppm += t1001;               /* .000000000001001000001001001 */

;   ppm += t1101;               /* .110100000001001110101001001 */

;   return (ppm + 16) >> 5;/* .00000110100000001001110101001001 */

;#else

	; The argument is a PNG unsigned integer, so it is not permitted

	; to be bigger than 2^31.

;   if (ppm <= PNG_UINT_31_MAX && png_muldiv(&result, (int_32)ppm, 127,

;       5000) != 0)

;      return result;

;   return 0;

;end if

	ret

endp

align 4

proc png_get_pixels_per_inch, png_ptr:dword, info_ptr:dword

	stdcall png_get_pixels_per_meter, [png_ptr], [info_ptr]

	stdcall ppi_from_ppm, eax

	ret

endp

align 4

proc png_get_x_pixels_per_inch, png_ptr:dword, info_ptr:dword

	stdcall png_get_x_pixels_per_meter, [png_ptr], [info_ptr]

	stdcall ppi_from_ppm, eax

	ret

endp

align 4

proc png_get_y_pixels_per_inch, png_ptr:dword, info_ptr:dword

	stdcall png_get_y_pixels_per_meter, [png_ptr], [info_ptr]

	stdcall ppi_from_ppm, eax

	ret

endp

align 4

proc png_fixed_inches_from_microns, png_ptr:dword, microns:dword

	; Convert from metres * 1,000,000 to inches * 100,000, meters to

	; inches is simply *(100/2.54), so we want *(10/2.54) == 500/127.

	; Notice that this can overflow - a warning is output and 0 is

	; returned.

	ret

endp

align 4

proc png_get_x_offset_inches_fixed, png_ptr:dword, info_ptr:dword

	stdcall png_get_x_offset_microns, [png_ptr], [info_ptr]

	stdcall png_fixed_inches_from_microns, [png_ptr], eax

	ret

endp

align 4

proc png_get_y_offset_inches_fixed, png_ptr:dword, info_ptr:dword

	stdcall png_get_y_offset_microns, [png_ptr], [info_ptr]

	stdcall png_fixed_inches_from_microns, [png_ptr], eax

	ret

endp

align 4

proc png_get_x_offset_inches, png_ptr:dword, info_ptr:dword

	; To avoid the overflow do the conversion directly in floating

	; point.

	ret

endp

align 4

proc png_get_y_offset_inches, png_ptr:dword, info_ptr:dword

	; To avoid the overflow do the conversion directly in floating

	; point.

	ret

endp

;    uint_32 *res_x, uint_32 *res_y, int *unit_type)

align 4

proc png_get_pHYs_dpi, png_ptr:dword, info_ptr:dword, res_x:dword, res_y:dword, unit_type:dword

;   uint_32 retval = 0;

;       (info_ptr->valid & PNG_INFO_pHYs) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'pHYs'

;      {

;         *res_x = info_ptr->x_pixels_per_unit;

;         retval |= PNG_INFO_pHYs;

;      }

;      {

;         *res_y = info_ptr->y_pixels_per_unit;

;         retval |= PNG_INFO_pHYs;

;      }

;      {

;         *unit_type = (int)info_ptr->phys_unit_type;

;         retval |= PNG_INFO_pHYs;

;         {

;            if (res_x != NULL) *res_x = (uint_32)(*res_x * .0254 + .50);

;            if (res_y != NULL) *res_y = (uint_32)(*res_y * .0254 + .50);

;         }

;      }

;   }

	ret

endp

align 4

proc png_get_channels, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		movzx eax,byte[eax+png_info_def.channels]

	@@:

	ret

endp

align 4

proc png_get_signature, png_ptr:dword, info_ptr:dword

	mov eax,[png_ptr]

	cmp eax,0

	je @f

	mov eax,[info_ptr]

	cmp eax,0

	je @f ;if (..!=0 || ..!=0)

		movzx eax,byte[eax+png_info_def.signature]

	@@:

	ret

endp

;    png_color_16p *background)

align 4

proc png_get_bKGD, png_ptr:dword, info_ptr:dword, background:dword

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_bKGD) != 0 &&

;       background != NULL)

;   {

		png_debug1 1, 'in %s retrieval function', 'bKGD'

;      return (PNG_INFO_bKGD);

;   }

	ret

endp

; The XYZ APIs were added in 1.5.5 to take advantage of the code added at the

; same time to correct the rgb grayscale coefficient defaults obtained from the

; cHRM chunk in 1.5.4

;    double *white_x, double *white_y, double *red_x, double *red_y,

;    double *green_x, double *green_y, double *blue_x, double *blue_y)

align 4

proc png_get_cHRM, png_ptr:dword, info_ptr:dword, white_x:dword, white_y:dword, red_x:dword, red_y:dword, green_x:dword, green_y:dword, blue_x:dword, blue_y:dword

	; Quiet API change: this code used to only return the end points if a cHRM

	; chunk was present, but the end points can also come from iCCP or sRGB

	; chunks, so in 1.6.0 the png_get_ APIs return the end points regardless and

	; the png_set_ APIs merely check that set end points are mutually

	; consistent.

;      (info_ptr->colorspace.flags & PNG_COLORSPACE_HAVE_ENDPOINTS) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'cHRM'

;         *white_x = png_float(png_ptr,

;             info_ptr->colorspace.end_points_xy.whitex, "cHRM white X");

;      if (white_y != NULL)

;         *white_y = png_float(png_ptr,

;             info_ptr->colorspace.end_points_xy.whitey, "cHRM white Y");

;      if (red_x != NULL)

;         *red_x = png_float(png_ptr, info_ptr->colorspace.end_points_xy.redx,

;             "cHRM red X");

;      if (red_y != NULL)

;         *red_y = png_float(png_ptr, info_ptr->colorspace.end_points_xy.redy,

;             "cHRM red Y");

;      if (green_x != NULL)

;         *green_x = png_float(png_ptr,

;             info_ptr->colorspace.end_points_xy.greenx, "cHRM green X");

;      if (green_y != NULL)

;         *green_y = png_float(png_ptr,

;             info_ptr->colorspace.end_points_xy.greeny, "cHRM green Y");

;      if (blue_x != NULL)

;         *blue_x = png_float(png_ptr, info_ptr->colorspace.end_points_xy.bluex,

;             "cHRM blue X");

;      if (blue_y != NULL)

;         *blue_y = png_float(png_ptr, info_ptr->colorspace.end_points_xy.bluey,

;             "cHRM blue Y");

;      return (PNG_INFO_cHRM);

;   }

	ret

endp

;    double *red_X, double *red_Y, double *red_Z, double *green_X,

;    double *green_Y, double *green_Z, double *blue_X, double *blue_Y,

;    double *blue_Z)

align 4

proc png_get_cHRM_XYZ, png_ptr:dword, info_ptr:dword, red_X:dword, red_Y:dword, red_Z:dword, green_X:dword, green_Y:dword, green_Z:dword, blue_X:dword, blue_Y:dword, blue_Z:dword

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->colorspace.flags & PNG_COLORSPACE_HAVE_ENDPOINTS) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'cHRM_XYZ(float)'

;         *red_X = png_float(png_ptr, info_ptr->colorspace.end_points_XYZ.red_X,

;             "cHRM red X");

;      if (red_Y != NULL)

;         *red_Y = png_float(png_ptr, info_ptr->colorspace.end_points_XYZ.red_Y,

;             "cHRM red Y");

;      if (red_Z != NULL)

;         *red_Z = png_float(png_ptr, info_ptr->colorspace.end_points_XYZ.red_Z,

;             "cHRM red Z");

;      if (green_X != NULL)

;         *green_X = png_float(png_ptr,

;             info_ptr->colorspace.end_points_XYZ.green_X, "cHRM green X");

;      if (green_Y != NULL)

;         *green_Y = png_float(png_ptr,

;             info_ptr->colorspace.end_points_XYZ.green_Y, "cHRM green Y");

;      if (green_Z != NULL)

;         *green_Z = png_float(png_ptr,

;             info_ptr->colorspace.end_points_XYZ.green_Z, "cHRM green Z");

;      if (blue_X != NULL)

;         *blue_X = png_float(png_ptr,

;             info_ptr->colorspace.end_points_XYZ.blue_X, "cHRM blue X");

;      if (blue_Y != NULL)

;         *blue_Y = png_float(png_ptr,

;             info_ptr->colorspace.end_points_XYZ.blue_Y, "cHRM blue Y");

;      if (blue_Z != NULL)

;         *blue_Z = png_float(png_ptr,

;             info_ptr->colorspace.end_points_XYZ.blue_Z, "cHRM blue Z");

;      return (PNG_INFO_cHRM);

;   }

	ret

endp

;    png_fixed_point *int_red_X, png_fixed_point *int_red_Y,

;    png_fixed_point *int_red_Z, png_fixed_point *int_green_X,

;    png_fixed_point *int_green_Y, png_fixed_point *int_green_Z,

;    png_fixed_point *int_blue_X, png_fixed_point *int_blue_Y,

;    png_fixed_point *int_blue_Z)

align 4

proc png_get_cHRM_XYZ_fixed, png_ptr:dword, info_ptr:dword, int_red_X:dword, int_red_Y:dword, int_red_Z:dword, int_green_X:dword, int_green_Y:dword, int_green_Z:dword, int_blue_X:dword, int_blue_Y:dword, int_blue_Z:dword

;   if (png_ptr != NULL && info_ptr != NULL &&

;      (info_ptr->colorspace.flags & PNG_COLORSPACE_HAVE_ENDPOINTS) != 0)

;   {

	png_debug1 1, 'in %s retrieval function', 'cHRM_XYZ'

;         *int_red_X = info_ptr->colorspace.end_points_XYZ.red_X;

;      if (int_red_Y != NULL)

;         *int_red_Y = info_ptr->colorspace.end_points_XYZ.red_Y;

;      if (int_red_Z != NULL)

;         *int_red_Z = info_ptr->colorspace.end_points_XYZ.red_Z;

;      if (int_green_X != NULL)

;         *int_green_X = info_ptr->colorspace.end_points_XYZ.green_X;

;      if (int_green_Y != NULL)

;         *int_green_Y = info_ptr->colorspace.end_points_XYZ.green_Y;

;      if (int_green_Z != NULL)

;         *int_green_Z = info_ptr->colorspace.end_points_XYZ.green_Z;

;      if (int_blue_X != NULL)

;         *int_blue_X = info_ptr->colorspace.end_points_XYZ.blue_X;

;      if (int_blue_Y != NULL)

;         *int_blue_Y = info_ptr->colorspace.end_points_XYZ.blue_Y;

;      if (int_blue_Z != NULL)

;         *int_blue_Z = info_ptr->colorspace.end_points_XYZ.blue_Z;

;      return (PNG_INFO_cHRM);

;   }

.end_f:

	ret

endp

;    png_fixed_point *white_x, png_fixed_point *white_y, png_fixed_point *red_x,

;    png_fixed_point *red_y, png_fixed_point *green_x, png_fixed_point *green_y,

;    png_fixed_point *blue_x, png_fixed_point *blue_y)

align 4

proc png_get_cHRM_fixed, png_ptr:dword, info_ptr:dword, white_x:dword, white_y:dword, red_x:dword, red_y:dword, green_x:dword, green_y:dword, blue_x:dword, blue_y:dword

	png_debug1 1, 'in %s retrieval function', 'cHRM'

;      (info_ptr->colorspace.flags & PNG_COLORSPACE_HAVE_ENDPOINTS) != 0)

;   {

;      if (white_x != NULL)

;         *white_x = info_ptr->colorspace.end_points_xy.whitex;

;      if (white_y != NULL)

;         *white_y = info_ptr->colorspace.end_points_xy.whitey;

;      if (red_x != NULL)

;         *red_x = info_ptr->colorspace.end_points_xy.redx;

;      if (red_y != NULL)

;         *red_y = info_ptr->colorspace.end_points_xy.redy;

;      if (green_x != NULL)

;         *green_x = info_ptr->colorspace.end_points_xy.greenx;

;      if (green_y != NULL)

;         *green_y = info_ptr->colorspace.end_points_xy.greeny;

;      if (blue_x != NULL)

;         *blue_x = info_ptr->colorspace.end_points_xy.bluex;

;      if (blue_y != NULL)

;         *blue_y = info_ptr->colorspace.end_points_xy.bluey;

;      return (PNG_INFO_cHRM);

;   }

	ret

endp

;end if

;    png_fixed_point *file_gamma)

align 4

proc png_get_gAMA_fixed, png_ptr:dword, info_ptr:dword, file_gamma:dword

	png_debug1 1, 'in %s retrieval function', 'gAMA'

;       (info_ptr->colorspace.flags & PNG_COLORSPACE_HAVE_GAMMA) != 0 &&

;       file_gamma != NULL)

;   {

;      *file_gamma = info_ptr->colorspace.gamma;

;      return (PNG_INFO_gAMA);

;   }

	ret

endp

align 4

proc png_get_gAMA, png_ptr:dword, info_ptr:dword, file_gamma:dword

	png_debug1 1, 'in %s retrieval function', 'gAMA(float)'

;      (info_ptr->colorspace.flags & PNG_COLORSPACE_HAVE_GAMMA) != 0 &&

;      file_gamma != NULL)

;   {

;      *file_gamma = png_float(png_ptr, info_ptr->colorspace.gamma,

;          "png_get_gAMA");

;      return (PNG_INFO_gAMA);

;   }

	ret

endp

align 4

proc png_get_sRGB, png_ptr:dword, info_ptr:dword, file_srgb_intent:dword

	png_debug1 1, 'in %s retrieval function', 'sRGB'

;      (info_ptr->valid & PNG_INFO_sRGB) != 0 && file_srgb_intent != NULL)

;   {

;      *file_srgb_intent = info_ptr->colorspace.rendering_intent;

;      return (PNG_INFO_sRGB);

;   }

	ret

endp

;    png_charpp name, int *compression_type, bytepp profile, uint_32 *proflen)

align 4

proc png_get_iCCP, png_ptr:dword, info_ptr:dword, name:dword, compression_type:dword, profile:dword, proflen:dword

	png_debug1 1, 'in %s retrieval function', 'iCCP'

;       (info_ptr->valid & PNG_INFO_iCCP) != 0 &&

;       name != NULL && compression_type != NULL && profile != NULL &&

;           proflen != NULL)

;   {

;      *name = info_ptr->iccp_name;

;      *profile = info_ptr->iccp_profile;

;      *proflen = png_get_uint_32(info_ptr->iccp_profile);

	; This is somewhat irrelevant since the profile data returned has

	; actually been uncompressed.

;      return (PNG_INFO_iCCP);

;   }

	ret

endp

;    png_sPLT_tpp spalettes)

align 4

proc png_get_sPLT, png_ptr:dword, info_ptr:dword, spalettes:dword

;   if (png_ptr != NULL && info_ptr != NULL && spalettes != NULL)

;   {

;      *spalettes = info_ptr->splt_palettes;

;      return info_ptr->splt_palettes_num;

;   }

	ret

endp

;    uint_16p hist)

align 4

proc png_get_hIST, png_ptr:dword, info_ptr:dword, hist:dword

	png_debug1 1, 'in %s retrieval function', 'hIST'

;       (info_ptr->valid & PNG_INFO_hIST) != 0 && hist != NULL)

;   {

;      *hist = info_ptr->hist;

;      return (PNG_INFO_hIST);

;   }

	ret

endp

;    uint_32 *width, uint_32 *height, int *bit_depth,

;    int *color_type, int *interlace_type, int *compression_type,

;    int *filter_type)

align 4

proc png_get_IHDR, png_ptr:dword, info_ptr:dword,\

	width:dword, height:dword, bit_depth:dword, color_type:dword,\

	interlace_type:dword, compression_type:dword, filter_type:dword

	png_debug1 1, 'in %s retrieval function', 'IHDR'

;      return (0);

;       *width = info_ptr->width;

;       *height = info_ptr->height;

;       *bit_depth = info_ptr->bit_depth;

;       *color_type = info_ptr->color_type;

;      *compression_type = info_ptr->compression_type;

;      *filter_type = info_ptr->filter_type;

;      *interlace_type = info_ptr->interlace_type;

	; assigned in png_set_IHDR().  We do the check anyhow in case an

	; application has ignored our advice not to mess with the members

	; of info_ptr directly.

;       info_ptr->bit_depth, info_ptr->color_type, info_ptr->interlace_type,

;       info_ptr->compression_type, info_ptr->filter_type);

	inc eax

	ret

endp

;    int_32 *offset_x, int_32 *offset_y, int *unit_type)

align 4

proc png_get_oFFs, png_ptr:dword, info_ptr:dword, offset_x:dword, offset_y:dword, unit_type:dword

	png_debug1 1, 'in %s retrieval function', 'oFFs'

;       (info_ptr->valid & PNG_INFO_oFFs) != 0 &&

;       offset_x != NULL && offset_y != NULL && unit_type != NULL)

;   {

;      *offset_x = info_ptr->x_offset;

;      *offset_y = info_ptr->y_offset;

;      *unit_type = (int)info_ptr->offset_unit_type;

;      return (PNG_INFO_oFFs);

;   }

	ret

endp

;    charp *purpose, int_32 *X0, int_32 *X1, int *type, int *nparams,

;    charp *units, charpp *params)

align 4

proc png_get_pCAL, png_ptr:dword, info_ptr:dword, purpose:dword, X0:dword, X1:dword, type:dword, nparams:dword, units:dword, params:dword

	png_debug1 1, 'in %s retrieval function', 'pCAL'

;       (info_ptr->valid & PNG_INFO_pCAL) != 0 &&

;       purpose != NULL && X0 != NULL && X1 != NULL && type != NULL &&

;       nparams != NULL && units != NULL && params != NULL)

;   {

;      *purpose = info_ptr->pcal_purpose;

;      *X0 = info_ptr->pcal_X0;

;      *X1 = info_ptr->pcal_X1;

;      *type = (int)info_ptr->pcal_type;

;      *nparams = (int)info_ptr->pcal_nparams;

;      *units = info_ptr->pcal_units;

;      *params = info_ptr->pcal_params;

;      return (PNG_INFO_pCAL);

;   }

	ret

endp

;    int *unit, png_fixed_point *width, png_fixed_point *height)

align 4

proc png_get_sCAL_fixed, png_ptr:dword, info_ptr:dword, unit:dword, width:dword, height:dword

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_sCAL) != 0)

;   {

;      *unit = info_ptr->scal_unit;

	;TODO: make this work without FP support; the API is currently eliminated

	; if neither floating point APIs nor internal floating point arithmetic

	; are enabled.

;      *height = png_fixed(png_ptr, atof(info_ptr->scal_s_height),

;          "sCAL height");

;      return (PNG_INFO_sCAL);

;   }

	ret

endp

;    int *unit, double *width, double *height)

align 4

proc png_get_sCAL, png_ptr:dword, info_ptr:dword, unit:dword, width:dword, height:dword

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_sCAL) != 0)

;   {

;      *unit = info_ptr->scal_unit;

;      *width = atof(info_ptr->scal_s_width);

;      *height = atof(info_ptr->scal_s_height);

;      return (PNG_INFO_sCAL);

;   }

	ret

endp

;    int *unit, charpp width, charpp height)

align 4

proc png_get_sCAL_s, png_ptr:dword, info_ptr:dword, unit:dword, width:dword, height:dword

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_sCAL) != 0)

;   {

;      *unit = info_ptr->scal_unit;

;      *width = info_ptr->scal_s_width;

;      *height = info_ptr->scal_s_height;

;      return (PNG_INFO_sCAL);

;   }

.end_f:

	ret

endp

;    uint_32 *res_x, uint_32 *res_y, int *unit_type)

align 4

proc png_get_pHYs, png_ptr:dword, info_ptr:dword, res_x:dword, res_y:dword, unit_type:dword

;   uint_32 retval = 0;

;       (info_ptr->valid & PNG_INFO_pHYs) != 0)

;   {

;      if (res_x != NULL)

;      {

;         *res_x = info_ptr->x_pixels_per_unit;

;         retval |= PNG_INFO_pHYs;

;      }

;      {

;         *res_y = info_ptr->y_pixels_per_unit;

;         retval |= PNG_INFO_pHYs;

;      }

;      {

;         *unit_type = (int)info_ptr->phys_unit_type;

;         retval |= PNG_INFO_pHYs;

;      }

;   }

	ret

endp

;    png_colorp *palette, int *num_palette)

align 4

proc png_get_PLTE, png_ptr:dword, info_ptr:dword, palette:dword, num_palette:dword

	png_debug1 1, 'in %s retrieval function', 'PLTE'

;       (info_ptr->valid & PNG_INFO_PLTE) != 0 && palette != NULL)

;   {

;      *palette = info_ptr->palette;

;      *num_palette = info_ptr->num_palette;

;      png_debug1(3, "num_palette = %d", *num_palette);

;      return (PNG_INFO_PLTE);

;   }

	ret

endp

align 4

proc png_get_sBIT, png_ptr:dword, info_ptr:dword, sig_bit:dword

	png_debug1 1, 'in %s retrieval function', 'sBIT'

;       (info_ptr->valid & PNG_INFO_sBIT) != 0 && sig_bit != NULL)

;   {

;      *sig_bit = &(info_ptr->sig_bit);

;      return (PNG_INFO_sBIT);

;   }

	ret

endp

align 4

proc png_get_text, png_ptr:dword, info_ptr:dword, text_ptr:dword, num_text:dword

;   if (png_ptr != NULL && info_ptr != NULL && info_ptr->num_text > 0)

;   {

;      png_debug1(1, "in 0x%lx retrieval function",

;         (unsigned long)png_ptr->chunk_name);

;         *text_ptr = info_ptr->text;

;         *num_text = info_ptr->num_text;

;   }

;      *num_text = 0;

	ret

endp

;    png_timep *mod_time)

align 4

proc png_get_tIME, png_ptr:dword, info_ptr:dword, mod_time:dword

	png_debug1 1, 'in %s retrieval function', 'tIME'

;       (info_ptr->valid & PNG_INFO_tIME) != 0 && mod_time != NULL)

;   {

;      *mod_time = &(info_ptr->mod_time);

;      return (PNG_INFO_tIME);

;   }

	ret

endp

;    bytep *trans_alpha, int *num_trans, png_color_16p *trans_color)

align 4

proc png_get_tRNS, png_ptr:dword, info_ptr:dword, trans_alpha:dword, num_trans:dword, trans_color:dword

;   uint_32 retval = 0;

;   if (png_ptr != NULL && info_ptr != NULL &&

;       (info_ptr->valid & PNG_INFO_tRNS) != 0)

;   {

		png_debug1 1, 'in %s retrieval function', 'tRNS'

;      {

;         if (trans_alpha != NULL)

;         {

;            *trans_alpha = info_ptr->trans_alpha;

;            retval |= PNG_INFO_tRNS;

;         }

;            *trans_color = &(info_ptr->trans_color);

;      }

;      {

;         if (trans_color != NULL)

;         {

;            *trans_color = &(info_ptr->trans_color);

;            retval |= PNG_INFO_tRNS;

;         }

;            *trans_alpha = NULL;

;      }

;      {

;         *num_trans = info_ptr->num_trans;

;         retval |= PNG_INFO_tRNS;

;      }

;   }