nuclear@1: 
nuclear@1: /* pngwio.c - functions for data output
nuclear@1:  *
nuclear@1:  * Last changed in libpng 1.2.30 [August 15, 2008]
nuclear@1:  * For conditions of distribution and use, see copyright notice in png.h
nuclear@1:  * Copyright (c) 1998-2008 Glenn Randers-Pehrson
nuclear@1:  * (Version 0.96 Copyright (c) 1996, 1997 Andreas Dilger)
nuclear@1:  * (Version 0.88 Copyright (c) 1995, 1996 Guy Eric Schalnat, Group 42, Inc.)
nuclear@1:  *
nuclear@1:  * This file provides a location for all output.  Users who need
nuclear@1:  * special handling are expected to write functions that have the same
nuclear@1:  * arguments as these and perform similar functions, but that possibly
nuclear@1:  * use different output methods.  Note that you shouldn't change these
nuclear@1:  * functions, but rather write replacement functions and then change
nuclear@1:  * them at run time with png_set_write_fn(...).
nuclear@1:  */
nuclear@1: 
nuclear@1: #define PNG_INTERNAL
nuclear@1: #include "png.h"
nuclear@1: #ifdef PNG_WRITE_SUPPORTED
nuclear@1: 
nuclear@1: /* Write the data to whatever output you are using.  The default routine
nuclear@1:    writes to a file pointer.  Note that this routine sometimes gets called
nuclear@1:    with very small lengths, so you should implement some kind of simple
nuclear@1:    buffering if you are using unbuffered writes.  This should never be asked
nuclear@1:    to write more than 64K on a 16 bit machine.  */
nuclear@1: 
nuclear@1: void /* PRIVATE */
nuclear@1: png_write_data(png_structp png_ptr, png_bytep data, png_size_t length)
nuclear@1: {
nuclear@1:    if (png_ptr->write_data_fn != NULL )
nuclear@1:       (*(png_ptr->write_data_fn))(png_ptr, data, length);
nuclear@1:    else
nuclear@1:       png_error(png_ptr, "Call to NULL write function");
nuclear@1: }
nuclear@1: 
nuclear@1: #if !defined(PNG_NO_STDIO)
nuclear@1: /* This is the function that does the actual writing of data.  If you are
nuclear@1:    not writing to a standard C stream, you should create a replacement
nuclear@1:    write_data function and use it at run time with png_set_write_fn(), rather
nuclear@1:    than changing the library. */
nuclear@1: #ifndef USE_FAR_KEYWORD
nuclear@1: void PNGAPI
nuclear@1: png_default_write_data(png_structp png_ptr, png_bytep data, png_size_t length)
nuclear@1: {
nuclear@1:    png_uint_32 check;
nuclear@1: 
nuclear@1:    if (png_ptr == NULL) return;
nuclear@1: #if defined(_WIN32_WCE)
nuclear@1:    if ( !WriteFile((HANDLE)(png_ptr->io_ptr), data, length, &check, NULL) )
nuclear@1:       check = 0;
nuclear@1: #else
nuclear@1:    check = fwrite(data, 1, length, (png_FILE_p)(png_ptr->io_ptr));
nuclear@1: #endif
nuclear@1:    if (check != length)
nuclear@1:       png_error(png_ptr, "Write Error");
nuclear@1: }
nuclear@1: #else
nuclear@1: /* this is the model-independent version. Since the standard I/O library
nuclear@1:    can't handle far buffers in the medium and small models, we have to copy
nuclear@1:    the data.
nuclear@1: */
nuclear@1: 
nuclear@1: #define NEAR_BUF_SIZE 1024
nuclear@1: #define MIN(a,b) (a <= b ? a : b)
nuclear@1: 
nuclear@1: void PNGAPI
nuclear@1: png_default_write_data(png_structp png_ptr, png_bytep data, png_size_t length)
nuclear@1: {
nuclear@1:    png_uint_32 check;
nuclear@1:    png_byte *near_data;  /* Needs to be "png_byte *" instead of "png_bytep" */
nuclear@1:    png_FILE_p io_ptr;
nuclear@1: 
nuclear@1:    if (png_ptr == NULL) return;
nuclear@1:    /* Check if data really is near. If so, use usual code. */
nuclear@1:    near_data = (png_byte *)CVT_PTR_NOCHECK(data);
nuclear@1:    io_ptr = (png_FILE_p)CVT_PTR(png_ptr->io_ptr);
nuclear@1:    if ((png_bytep)near_data == data)
nuclear@1:    {
nuclear@1: #if defined(_WIN32_WCE)
nuclear@1:       if ( !WriteFile(io_ptr, near_data, length, &check, NULL) )
nuclear@1:          check = 0;
nuclear@1: #else
nuclear@1:       check = fwrite(near_data, 1, length, io_ptr);
nuclear@1: #endif
nuclear@1:    }
nuclear@1:    else
nuclear@1:    {
nuclear@1:       png_byte buf[NEAR_BUF_SIZE];
nuclear@1:       png_size_t written, remaining, err;
nuclear@1:       check = 0;
nuclear@1:       remaining = length;
nuclear@1:       do
nuclear@1:       {
nuclear@1:          written = MIN(NEAR_BUF_SIZE, remaining);
nuclear@1:          png_memcpy(buf, data, written); /* copy far buffer to near buffer */
nuclear@1: #if defined(_WIN32_WCE)
nuclear@1:          if ( !WriteFile(io_ptr, buf, written, &err, NULL) )
nuclear@1:             err = 0;
nuclear@1: #else
nuclear@1:          err = fwrite(buf, 1, written, io_ptr);
nuclear@1: #endif
nuclear@1:          if (err != written)
nuclear@1:             break;
nuclear@1:          else
nuclear@1:             check += err;
nuclear@1:          data += written;
nuclear@1:          remaining -= written;
nuclear@1:       }
nuclear@1:       while (remaining != 0);
nuclear@1:    }
nuclear@1:    if (check != length)
nuclear@1:       png_error(png_ptr, "Write Error");
nuclear@1: }
nuclear@1: 
nuclear@1: #endif
nuclear@1: #endif
nuclear@1: 
nuclear@1: /* This function is called to output any data pending writing (normally
nuclear@1:    to disk).  After png_flush is called, there should be no data pending
nuclear@1:    writing in any buffers. */
nuclear@1: #if defined(PNG_WRITE_FLUSH_SUPPORTED)
nuclear@1: void /* PRIVATE */
nuclear@1: png_flush(png_structp png_ptr)
nuclear@1: {
nuclear@1:    if (png_ptr->output_flush_fn != NULL)
nuclear@1:       (*(png_ptr->output_flush_fn))(png_ptr);
nuclear@1: }
nuclear@1: 
nuclear@1: #if !defined(PNG_NO_STDIO)
nuclear@1: void PNGAPI
nuclear@1: png_default_flush(png_structp png_ptr)
nuclear@1: {
nuclear@1: #if !defined(_WIN32_WCE)
nuclear@1:    png_FILE_p io_ptr;
nuclear@1: #endif
nuclear@1:    if (png_ptr == NULL) return;
nuclear@1: #if !defined(_WIN32_WCE)
nuclear@1:    io_ptr = (png_FILE_p)CVT_PTR((png_ptr->io_ptr));
nuclear@1:    if (io_ptr != NULL)
nuclear@1:       fflush(io_ptr);
nuclear@1: #endif
nuclear@1: }
nuclear@1: #endif
nuclear@1: #endif
nuclear@1: 
nuclear@1: /* This function allows the application to supply new output functions for
nuclear@1:    libpng if standard C streams aren't being used.
nuclear@1: 
nuclear@1:    This function takes as its arguments:
nuclear@1:    png_ptr       - pointer to a png output data structure
nuclear@1:    io_ptr        - pointer to user supplied structure containing info about
nuclear@1:                    the output functions.  May be NULL.
nuclear@1:    write_data_fn - pointer to a new output function that takes as its
nuclear@1:                    arguments a pointer to a png_struct, a pointer to
nuclear@1:                    data to be written, and a 32-bit unsigned int that is
nuclear@1:                    the number of bytes to be written.  The new write
nuclear@1:                    function should call png_error(png_ptr, "Error msg")
nuclear@1:                    to exit and output any fatal error messages.
nuclear@1:    flush_data_fn - pointer to a new flush function that takes as its
nuclear@1:                    arguments a pointer to a png_struct.  After a call to
nuclear@1:                    the flush function, there should be no data in any buffers
nuclear@1:                    or pending transmission.  If the output method doesn't do
nuclear@1:                    any buffering of ouput, a function prototype must still be
nuclear@1:                    supplied although it doesn't have to do anything.  If
nuclear@1:                    PNG_WRITE_FLUSH_SUPPORTED is not defined at libpng compile
nuclear@1:                    time, output_flush_fn will be ignored, although it must be
nuclear@1:                    supplied for compatibility. */
nuclear@1: void PNGAPI
nuclear@1: png_set_write_fn(png_structp png_ptr, png_voidp io_ptr,
nuclear@1:    png_rw_ptr write_data_fn, png_flush_ptr output_flush_fn)
nuclear@1: {
nuclear@1:    if (png_ptr == NULL) return;
nuclear@1:    png_ptr->io_ptr = io_ptr;
nuclear@1: 
nuclear@1: #if !defined(PNG_NO_STDIO)
nuclear@1:    if (write_data_fn != NULL)
nuclear@1:       png_ptr->write_data_fn = write_data_fn;
nuclear@1:    else
nuclear@1:       png_ptr->write_data_fn = png_default_write_data;
nuclear@1: #else
nuclear@1:    png_ptr->write_data_fn = write_data_fn;
nuclear@1: #endif
nuclear@1: 
nuclear@1: #if defined(PNG_WRITE_FLUSH_SUPPORTED)
nuclear@1: #if !defined(PNG_NO_STDIO)
nuclear@1:    if (output_flush_fn != NULL)
nuclear@1:       png_ptr->output_flush_fn = output_flush_fn;
nuclear@1:    else
nuclear@1:       png_ptr->output_flush_fn = png_default_flush;
nuclear@1: #else
nuclear@1:    png_ptr->output_flush_fn = output_flush_fn;
nuclear@1: #endif
nuclear@1: #endif /* PNG_WRITE_FLUSH_SUPPORTED */
nuclear@1: 
nuclear@1:    /* It is an error to read while writing a png file */
nuclear@1:    if (png_ptr->read_data_fn != NULL)
nuclear@1:    {
nuclear@1:       png_ptr->read_data_fn = NULL;
nuclear@1:       png_warning(png_ptr,
nuclear@1:          "Attempted to set both read_data_fn and write_data_fn in");
nuclear@1:       png_warning(png_ptr,
nuclear@1:          "the same structure.  Resetting read_data_fn to NULL.");
nuclear@1:    }
nuclear@1: }
nuclear@1: 
nuclear@1: #if defined(USE_FAR_KEYWORD)
nuclear@1: #if defined(_MSC_VER)
nuclear@1: void *png_far_to_near(png_structp png_ptr, png_voidp ptr, int check)
nuclear@1: {
nuclear@1:    void *near_ptr;
nuclear@1:    void FAR *far_ptr;
nuclear@1:    FP_OFF(near_ptr) = FP_OFF(ptr);
nuclear@1:    far_ptr = (void FAR *)near_ptr;
nuclear@1:    if (check != 0)
nuclear@1:       if (FP_SEG(ptr) != FP_SEG(far_ptr))
nuclear@1:          png_error(png_ptr, "segment lost in conversion");
nuclear@1:    return(near_ptr);
nuclear@1: }
nuclear@1: #  else
nuclear@1: void *png_far_to_near(png_structp png_ptr, png_voidp ptr, int check)
nuclear@1: {
nuclear@1:    void *near_ptr;
nuclear@1:    void FAR *far_ptr;
nuclear@1:    near_ptr = (void FAR *)ptr;
nuclear@1:    far_ptr = (void FAR *)near_ptr;
nuclear@1:    if (check != 0)
nuclear@1:       if (far_ptr != ptr)
nuclear@1:          png_error(png_ptr, "segment lost in conversion");
nuclear@1:    return(near_ptr);
nuclear@1: }
nuclear@1: #   endif
nuclear@1: #   endif
nuclear@1: #endif /* PNG_WRITE_SUPPORTED */