l4/pkg/libpng/lib/dist/pngwio.c

   1
   2 /* pngwio.c - functions for data output
   3  *
   4  * Last changed in libpng 1.5.0 [January 6, 2011]
   5  * Copyright (c) 1998-2011 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  * This file provides a location for all output.  Users who need
  14  * special handling are expected to write functions that have the same
  15  * arguments as these and perform similar functions, but that possibly
  16  * use different output methods.  Note that you shouldn't change these
  17  * functions, but rather write replacement functions and then change
  18  * them at run time with png_set_write_fn(...).
  19  */
  20
  21 #include "pngpriv.h"
  22
  23 #ifdef PNG_WRITE_SUPPORTED
  24
  25 /* Write the data to whatever output you are using.  The default routine
  26  * writes to a file pointer.  Note that this routine sometimes gets called
  27  * with very small lengths, so you should implement some kind of simple
  28  * buffering if you are using unbuffered writes.  This should never be asked
  29  * to write more than 64K on a 16 bit machine.
  30  */
  31
  32 void /* PRIVATE */
  33 png_write_data(png_structp png_ptr, png_const_bytep data, png_size_t length)
  34 {
  35    /* NOTE: write_data_fn must not change the buffer! */
  36    if (png_ptr->write_data_fn != NULL )
  37       (*(png_ptr->write_data_fn))(png_ptr, (png_bytep)data, length);
  38
  39    else
  40       png_error(png_ptr, "Call to NULL write function");
  41 }
  42
  43 #ifdef PNG_STDIO_SUPPORTED
  44 /* This is the function that does the actual writing of data.  If you are
  45  * not writing to a standard C stream, you should create a replacement
  46  * write_data function and use it at run time with png_set_write_fn(), rather
  47  * than changing the library.
  48  */
  49 #ifndef USE_FAR_KEYWORD
  50 void PNGCBAPI
  51 png_default_write_data(png_structp png_ptr, png_bytep data, png_size_t length)
  52 {
  53    png_size_t check;
  54
  55    if (png_ptr == NULL)
  56       return;
  57
  58    check = fwrite(data, 1, length, (png_FILE_p)(png_ptr->io_ptr));
  59
  60    if (check != length)
  61       png_error(png_ptr, "Write Error");
  62 }
  63 #else
  64 /* This is the model-independent version. Since the standard I/O library
  65  * can't handle far buffers in the medium and small models, we have to copy
  66  * the data.
  67  */
  68
  69 #define NEAR_BUF_SIZE 1024
  70 #define MIN(a,b) (a <= b ? a : b)
  71
  72 void PNGCBAPI
  73 png_default_write_data(png_structp png_ptr, png_bytep data, png_size_t length)
  74 {
  75    png_uint_32 check;
  76    png_byte *near_data;  /* Needs to be "png_byte *" instead of "png_bytep" */
  77    png_FILE_p io_ptr;
  78
  79    if (png_ptr == NULL)
  80       return;
  81
  82    /* Check if data really is near. If so, use usual code. */
  83    near_data = (png_byte *)CVT_PTR_NOCHECK(data);
  84    io_ptr = (png_FILE_p)CVT_PTR(png_ptr->io_ptr);
  85
  86    if ((png_bytep)near_data == data)
  87    {
  88       check = fwrite(near_data, 1, length, io_ptr);
  89    }
  90
  91    else
  92    {
  93       png_byte buf[NEAR_BUF_SIZE];
  94       png_size_t written, remaining, err;
  95       check = 0;
  96       remaining = length;
  97
  98       do
  99       {
 100          written = MIN(NEAR_BUF_SIZE, remaining);
 101          png_memcpy(buf, data, written); /* Copy far buffer to near buffer */
 102          err = fwrite(buf, 1, written, io_ptr);
 103
 104          if (err != written)
 105             break;
 106
 107          else
 108             check += err;
 109
 110          data += written;
 111          remaining -= written;
 112       }
 113       while (remaining != 0);
 114    }
 115
 116    if (check != length)
 117       png_error(png_ptr, "Write Error");
 118 }
 119
 120 #endif
 121 #endif
 122
 123 /* This function is called to output any data pending writing (normally
 124  * to disk).  After png_flush is called, there should be no data pending
 125  * writing in any buffers.
 126  */
 127 #ifdef PNG_WRITE_FLUSH_SUPPORTED
 128 void /* PRIVATE */
 129 png_flush(png_structp png_ptr)
 130 {
 131    if (png_ptr->output_flush_fn != NULL)
 132       (*(png_ptr->output_flush_fn))(png_ptr);
 133 }
 134
 135 #  ifdef PNG_STDIO_SUPPORTED
 136 void PNGCBAPI
 137 png_default_flush(png_structp png_ptr)
 138 {
 139    png_FILE_p io_ptr;
 140
 141    if (png_ptr == NULL)
 142       return;
 143
 144    io_ptr = (png_FILE_p)CVT_PTR((png_ptr->io_ptr));
 145    fflush(io_ptr);
 146 }
 147 #  endif
 148 #endif
 149
 150 /* This function allows the application to supply new output functions for
 151  * libpng if standard C streams aren't being used.
 152  *
 153  * This function takes as its arguments:
 154  * png_ptr       - pointer to a png output data structure
 155  * io_ptr        - pointer to user supplied structure containing info about
 156  *                 the output functions.  May be NULL.
 157  * write_data_fn - pointer to a new output function that takes as its
 158  *                 arguments a pointer to a png_struct, a pointer to
 159  *                 data to be written, and a 32-bit unsigned int that is
 160  *                 the number of bytes to be written.  The new write
 161  *                 function should call png_error(png_ptr, "Error msg")
 162  *                 to exit and output any fatal error messages.  May be
 163  *                 NULL, in which case libpng's default function will
 164  *                 be used.
 165  * flush_data_fn - pointer to a new flush function that takes as its
 166  *                 arguments a pointer to a png_struct.  After a call to
 167  *                 the flush function, there should be no data in any buffers
 168  *                 or pending transmission.  If the output method doesn't do
 169  *                 any buffering of output, a function prototype must still be
 170  *                 supplied although it doesn't have to do anything.  If
 171  *                 PNG_WRITE_FLUSH_SUPPORTED is not defined at libpng compile
 172  *                 time, output_flush_fn will be ignored, although it must be
 173  *                 supplied for compatibility.  May be NULL, in which case
 174  *                 libpng's default function will be used, if
 175  *                 PNG_WRITE_FLUSH_SUPPORTED is defined.  This is not
 176  *                 a good idea if io_ptr does not point to a standard
 177  *                 *FILE structure.
 178  */
 179 void PNGAPI
 180 png_set_write_fn(png_structp png_ptr, png_voidp io_ptr,
 181     png_rw_ptr write_data_fn, png_flush_ptr output_flush_fn)
 182 {
 183    if (png_ptr == NULL)
 184       return;
 185
 186    png_ptr->io_ptr = io_ptr;
 187
 188 #ifdef PNG_STDIO_SUPPORTED
 189    if (write_data_fn != NULL)
 190       png_ptr->write_data_fn = write_data_fn;
 191
 192    else
 193       png_ptr->write_data_fn = png_default_write_data;
 194 #else
 195    png_ptr->write_data_fn = write_data_fn;
 196 #endif
 197
 198 #ifdef PNG_WRITE_FLUSH_SUPPORTED
 199 #  ifdef PNG_STDIO_SUPPORTED
 200
 201    if (output_flush_fn != NULL)
 202       png_ptr->output_flush_fn = output_flush_fn;
 203
 204    else
 205       png_ptr->output_flush_fn = png_default_flush;
 206
 207 #  else
 208    png_ptr->output_flush_fn = output_flush_fn;
 209 #  endif
 210 #endif /* PNG_WRITE_FLUSH_SUPPORTED */
 211
 212    /* It is an error to read while writing a png file */
 213    if (png_ptr->read_data_fn != NULL)
 214    {
 215       png_ptr->read_data_fn = NULL;
 216
 217       png_warning(png_ptr,
 218           "Can't set both read_data_fn and write_data_fn in the"
 219           " same structure");
 220    }
 221 }
 222
 223 #ifdef USE_FAR_KEYWORD
 224 #  ifdef _MSC_VER
 225 void *png_far_to_near(png_structp png_ptr, png_voidp ptr, int check)
 226 {
 227    void *near_ptr;
 228    void FAR *far_ptr;
 229    FP_OFF(near_ptr) = FP_OFF(ptr);
 230    far_ptr = (void FAR *)near_ptr;
 231
 232    if (check != 0)
 233       if (FP_SEG(ptr) != FP_SEG(far_ptr))
 234          png_error(png_ptr, "segment lost in conversion");
 235
 236    return(near_ptr);
 237 }
 238 #  else
 239 void *png_far_to_near(png_structp png_ptr, png_voidp ptr, int check)
 240 {
 241    void *near_ptr;
 242    void FAR *far_ptr;
 243    near_ptr = (void FAR *)ptr;
 244    far_ptr = (void FAR *)near_ptr;
 245
 246    if (check != 0)
 247       if (far_ptr != ptr)
 248          png_error(png_ptr, "segment lost in conversion");
 249
 250    return(near_ptr);
 251 }
 252 #  endif
 253 #endif
 254 #endif /* PNG_WRITE_SUPPORTED */