Chris@4: /* gzwrite.c -- zlib functions for writing gzip files
Chris@4:  * Copyright (C) 2004, 2005, 2010, 2011, 2012 Mark Adler
Chris@4:  * For conditions of distribution and use, see copyright notice in zlib.h
Chris@4:  */
Chris@4: 
Chris@4: #include "gzguts.h"
Chris@4: 
Chris@4: /* Local functions */
Chris@4: local int gz_init OF((gz_statep));
Chris@4: local int gz_comp OF((gz_statep, int));
Chris@4: local int gz_zero OF((gz_statep, z_off64_t));
Chris@4: 
Chris@4: /* Initialize state for writing a gzip file.  Mark initialization by setting
Chris@4:    state->size to non-zero.  Return -1 on failure or 0 on success. */
Chris@4: local int gz_init(state)
Chris@4:     gz_statep state;
Chris@4: {
Chris@4:     int ret;
Chris@4:     z_streamp strm = &(state->strm);
Chris@4: 
Chris@4:     /* allocate input buffer */
Chris@4:     state->in = malloc(state->want);
Chris@4:     if (state->in == NULL) {
Chris@4:         gz_error(state, Z_MEM_ERROR, "out of memory");
Chris@4:         return -1;
Chris@4:     }
Chris@4: 
Chris@4:     /* only need output buffer and deflate state if compressing */
Chris@4:     if (!state->direct) {
Chris@4:         /* allocate output buffer */
Chris@4:         state->out = malloc(state->want);
Chris@4:         if (state->out == NULL) {
Chris@4:             free(state->in);
Chris@4:             gz_error(state, Z_MEM_ERROR, "out of memory");
Chris@4:             return -1;
Chris@4:         }
Chris@4: 
Chris@4:         /* allocate deflate memory, set up for gzip compression */
Chris@4:         strm->zalloc = Z_NULL;
Chris@4:         strm->zfree = Z_NULL;
Chris@4:         strm->opaque = Z_NULL;
Chris@4:         ret = deflateInit2(strm, state->level, Z_DEFLATED,
Chris@4:                            MAX_WBITS + 16, DEF_MEM_LEVEL, state->strategy);
Chris@4:         if (ret != Z_OK) {
Chris@4:             free(state->out);
Chris@4:             free(state->in);
Chris@4:             gz_error(state, Z_MEM_ERROR, "out of memory");
Chris@4:             return -1;
Chris@4:         }
Chris@4:     }
Chris@4: 
Chris@4:     /* mark state as initialized */
Chris@4:     state->size = state->want;
Chris@4: 
Chris@4:     /* initialize write buffer if compressing */
Chris@4:     if (!state->direct) {
Chris@4:         strm->avail_out = state->size;
Chris@4:         strm->next_out = state->out;
Chris@4:         state->x.next = strm->next_out;
Chris@4:     }
Chris@4:     return 0;
Chris@4: }
Chris@4: 
Chris@4: /* Compress whatever is at avail_in and next_in and write to the output file.
Chris@4:    Return -1 if there is an error writing to the output file, otherwise 0.
Chris@4:    flush is assumed to be a valid deflate() flush value.  If flush is Z_FINISH,
Chris@4:    then the deflate() state is reset to start a new gzip stream.  If gz->direct
Chris@4:    is true, then simply write to the output file without compressing, and
Chris@4:    ignore flush. */
Chris@4: local int gz_comp(state, flush)
Chris@4:     gz_statep state;
Chris@4:     int flush;
Chris@4: {
Chris@4:     int ret, got;
Chris@4:     unsigned have;
Chris@4:     z_streamp strm = &(state->strm);
Chris@4: 
Chris@4:     /* allocate memory if this is the first time through */
Chris@4:     if (state->size == 0 && gz_init(state) == -1)
Chris@4:         return -1;
Chris@4: 
Chris@4:     /* write directly if requested */
Chris@4:     if (state->direct) {
Chris@4:         got = write(state->fd, strm->next_in, strm->avail_in);
Chris@4:         if (got < 0 || (unsigned)got != strm->avail_in) {
Chris@4:             gz_error(state, Z_ERRNO, zstrerror());
Chris@4:             return -1;
Chris@4:         }
Chris@4:         strm->avail_in = 0;
Chris@4:         return 0;
Chris@4:     }
Chris@4: 
Chris@4:     /* run deflate() on provided input until it produces no more output */
Chris@4:     ret = Z_OK;
Chris@4:     do {
Chris@4:         /* write out current buffer contents if full, or if flushing, but if
Chris@4:            doing Z_FINISH then don't write until we get to Z_STREAM_END */
Chris@4:         if (strm->avail_out == 0 || (flush != Z_NO_FLUSH &&
Chris@4:             (flush != Z_FINISH || ret == Z_STREAM_END))) {
Chris@4:             have = (unsigned)(strm->next_out - state->x.next);
Chris@4:             if (have && ((got = write(state->fd, state->x.next, have)) < 0 ||
Chris@4:                          (unsigned)got != have)) {
Chris@4:                 gz_error(state, Z_ERRNO, zstrerror());
Chris@4:                 return -1;
Chris@4:             }
Chris@4:             if (strm->avail_out == 0) {
Chris@4:                 strm->avail_out = state->size;
Chris@4:                 strm->next_out = state->out;
Chris@4:             }
Chris@4:             state->x.next = strm->next_out;
Chris@4:         }
Chris@4: 
Chris@4:         /* compress */
Chris@4:         have = strm->avail_out;
Chris@4:         ret = deflate(strm, flush);
Chris@4:         if (ret == Z_STREAM_ERROR) {
Chris@4:             gz_error(state, Z_STREAM_ERROR,
Chris@4:                       "internal error: deflate stream corrupt");
Chris@4:             return -1;
Chris@4:         }
Chris@4:         have -= strm->avail_out;
Chris@4:     } while (have);
Chris@4: 
Chris@4:     /* if that completed a deflate stream, allow another to start */
Chris@4:     if (flush == Z_FINISH)
Chris@4:         deflateReset(strm);
Chris@4: 
Chris@4:     /* all done, no errors */
Chris@4:     return 0;
Chris@4: }
Chris@4: 
Chris@4: /* Compress len zeros to output.  Return -1 on error, 0 on success. */
Chris@4: local int gz_zero(state, len)
Chris@4:     gz_statep state;
Chris@4:     z_off64_t len;
Chris@4: {
Chris@4:     int first;
Chris@4:     unsigned n;
Chris@4:     z_streamp strm = &(state->strm);
Chris@4: 
Chris@4:     /* consume whatever's left in the input buffer */
Chris@4:     if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:         return -1;
Chris@4: 
Chris@4:     /* compress len zeros (len guaranteed > 0) */
Chris@4:     first = 1;
Chris@4:     while (len) {
Chris@4:         n = GT_OFF(state->size) || (z_off64_t)state->size > len ?
Chris@4:             (unsigned)len : state->size;
Chris@4:         if (first) {
Chris@4:             memset(state->in, 0, n);
Chris@4:             first = 0;
Chris@4:         }
Chris@4:         strm->avail_in = n;
Chris@4:         strm->next_in = state->in;
Chris@4:         state->x.pos += n;
Chris@4:         if (gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:             return -1;
Chris@4:         len -= n;
Chris@4:     }
Chris@4:     return 0;
Chris@4: }
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORT gzwrite(file, buf, len)
Chris@4:     gzFile file;
Chris@4:     voidpc buf;
Chris@4:     unsigned len;
Chris@4: {
Chris@4:     unsigned put = len;
Chris@4:     unsigned n;
Chris@4:     gz_statep state;
Chris@4:     z_streamp strm;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return 0;
Chris@4:     state = (gz_statep)file;
Chris@4:     strm = &(state->strm);
Chris@4: 
Chris@4:     /* check that we're writing and that there's no error */
Chris@4:     if (state->mode != GZ_WRITE || state->err != Z_OK)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* since an int is returned, make sure len fits in one, otherwise return
Chris@4:        with an error (this avoids the flaw in the interface) */
Chris@4:     if ((int)len < 0) {
Chris@4:         gz_error(state, Z_DATA_ERROR, "requested length does not fit in int");
Chris@4:         return 0;
Chris@4:     }
Chris@4: 
Chris@4:     /* if len is zero, avoid unnecessary operations */
Chris@4:     if (len == 0)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* allocate memory if this is the first time through */
Chris@4:     if (state->size == 0 && gz_init(state) == -1)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             return 0;
Chris@4:     }
Chris@4: 
Chris@4:     /* for small len, copy to input buffer, otherwise compress directly */
Chris@4:     if (len < state->size) {
Chris@4:         /* copy to input buffer, compress when full */
Chris@4:         do {
Chris@4:             if (strm->avail_in == 0)
Chris@4:                 strm->next_in = state->in;
Chris@4:             n = state->size - strm->avail_in;
Chris@4:             if (n > len)
Chris@4:                 n = len;
Chris@4:             memcpy(strm->next_in + strm->avail_in, buf, n);
Chris@4:             strm->avail_in += n;
Chris@4:             state->x.pos += n;
Chris@4:             buf = (char *)buf + n;
Chris@4:             len -= n;
Chris@4:             if (len && gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:                 return 0;
Chris@4:         } while (len);
Chris@4:     }
Chris@4:     else {
Chris@4:         /* consume whatever's left in the input buffer */
Chris@4:         if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:             return 0;
Chris@4: 
Chris@4:         /* directly compress user buffer to file */
Chris@4:         strm->avail_in = len;
Chris@4:         strm->next_in = (voidp)buf;
Chris@4:         state->x.pos += len;
Chris@4:         if (gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:             return 0;
Chris@4:     }
Chris@4: 
Chris@4:     /* input was all buffered or compressed (put will fit in int) */
Chris@4:     return (int)put;
Chris@4: }
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORT gzputc(file, c)
Chris@4:     gzFile file;
Chris@4:     int c;
Chris@4: {
Chris@4:     unsigned char buf[1];
Chris@4:     gz_statep state;
Chris@4:     z_streamp strm;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return -1;
Chris@4:     state = (gz_statep)file;
Chris@4:     strm = &(state->strm);
Chris@4: 
Chris@4:     /* check that we're writing and that there's no error */
Chris@4:     if (state->mode != GZ_WRITE || state->err != Z_OK)
Chris@4:         return -1;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             return -1;
Chris@4:     }
Chris@4: 
Chris@4:     /* try writing to input buffer for speed (state->size == 0 if buffer not
Chris@4:        initialized) */
Chris@4:     if (strm->avail_in < state->size) {
Chris@4:         if (strm->avail_in == 0)
Chris@4:             strm->next_in = state->in;
Chris@4:         strm->next_in[strm->avail_in++] = c;
Chris@4:         state->x.pos++;
Chris@4:         return c & 0xff;
Chris@4:     }
Chris@4: 
Chris@4:     /* no room in buffer or not initialized, use gz_write() */
Chris@4:     buf[0] = c;
Chris@4:     if (gzwrite(file, buf, 1) != 1)
Chris@4:         return -1;
Chris@4:     return c & 0xff;
Chris@4: }
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORT gzputs(file, str)
Chris@4:     gzFile file;
Chris@4:     const char *str;
Chris@4: {
Chris@4:     int ret;
Chris@4:     unsigned len;
Chris@4: 
Chris@4:     /* write string */
Chris@4:     len = (unsigned)strlen(str);
Chris@4:     ret = gzwrite(file, str, len);
Chris@4:     return ret == 0 && len != 0 ? -1 : ret;
Chris@4: }
Chris@4: 
Chris@4: #if defined(STDC) || defined(Z_HAVE_STDARG_H)
Chris@4: #include <stdarg.h>
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORTVA gzprintf (gzFile file, const char *format, ...)
Chris@4: {
Chris@4:     int size, len;
Chris@4:     gz_statep state;
Chris@4:     z_streamp strm;
Chris@4:     va_list va;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return -1;
Chris@4:     state = (gz_statep)file;
Chris@4:     strm = &(state->strm);
Chris@4: 
Chris@4:     /* check that we're writing and that there's no error */
Chris@4:     if (state->mode != GZ_WRITE || state->err != Z_OK)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* make sure we have some buffer space */
Chris@4:     if (state->size == 0 && gz_init(state) == -1)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             return 0;
Chris@4:     }
Chris@4: 
Chris@4:     /* consume whatever's left in the input buffer */
Chris@4:     if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* do the printf() into the input buffer, put length in len */
Chris@4:     size = (int)(state->size);
Chris@4:     state->in[size - 1] = 0;
Chris@4:     va_start(va, format);
Chris@4: #ifdef NO_vsnprintf
Chris@4: #  ifdef HAS_vsprintf_void
Chris@4:     (void)vsprintf((char *)(state->in), format, va);
Chris@4:     va_end(va);
Chris@4:     for (len = 0; len < size; len++)
Chris@4:         if (state->in[len] == 0) break;
Chris@4: #  else
Chris@4:     len = vsprintf((char *)(state->in), format, va);
Chris@4:     va_end(va);
Chris@4: #  endif
Chris@4: #else
Chris@4: #  ifdef HAS_vsnprintf_void
Chris@4:     (void)vsnprintf((char *)(state->in), size, format, va);
Chris@4:     va_end(va);
Chris@4:     len = strlen((char *)(state->in));
Chris@4: #  else
Chris@4:     len = vsnprintf((char *)(state->in), size, format, va);
Chris@4:     va_end(va);
Chris@4: #  endif
Chris@4: #endif
Chris@4: 
Chris@4:     /* check that printf() results fit in buffer */
Chris@4:     if (len <= 0 || len >= (int)size || state->in[size - 1] != 0)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* update buffer and position, defer compression until needed */
Chris@4:     strm->avail_in = (unsigned)len;
Chris@4:     strm->next_in = state->in;
Chris@4:     state->x.pos += len;
Chris@4:     return len;
Chris@4: }
Chris@4: 
Chris@4: #else /* !STDC && !Z_HAVE_STDARG_H */
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORTVA gzprintf (file, format, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
Chris@4:                        a11, a12, a13, a14, a15, a16, a17, a18, a19, a20)
Chris@4:     gzFile file;
Chris@4:     const char *format;
Chris@4:     int a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
Chris@4:         a11, a12, a13, a14, a15, a16, a17, a18, a19, a20;
Chris@4: {
Chris@4:     int size, len;
Chris@4:     gz_statep state;
Chris@4:     z_streamp strm;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return -1;
Chris@4:     state = (gz_statep)file;
Chris@4:     strm = &(state->strm);
Chris@4: 
Chris@4:     /* check that can really pass pointer in ints */
Chris@4:     if (sizeof(int) != sizeof(void *))
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* check that we're writing and that there's no error */
Chris@4:     if (state->mode != GZ_WRITE || state->err != Z_OK)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* make sure we have some buffer space */
Chris@4:     if (state->size == 0 && gz_init(state) == -1)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             return 0;
Chris@4:     }
Chris@4: 
Chris@4:     /* consume whatever's left in the input buffer */
Chris@4:     if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* do the printf() into the input buffer, put length in len */
Chris@4:     size = (int)(state->size);
Chris@4:     state->in[size - 1] = 0;
Chris@4: #ifdef NO_snprintf
Chris@4: #  ifdef HAS_sprintf_void
Chris@4:     sprintf((char *)(state->in), format, a1, a2, a3, a4, a5, a6, a7, a8,
Chris@4:             a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20);
Chris@4:     for (len = 0; len < size; len++)
Chris@4:         if (state->in[len] == 0) break;
Chris@4: #  else
Chris@4:     len = sprintf((char *)(state->in), format, a1, a2, a3, a4, a5, a6, a7, a8,
Chris@4:                   a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20);
Chris@4: #  endif
Chris@4: #else
Chris@4: #  ifdef HAS_snprintf_void
Chris@4:     snprintf((char *)(state->in), size, format, a1, a2, a3, a4, a5, a6, a7, a8,
Chris@4:              a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20);
Chris@4:     len = strlen((char *)(state->in));
Chris@4: #  else
Chris@4:     len = snprintf((char *)(state->in), size, format, a1, a2, a3, a4, a5, a6,
Chris@4:                    a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18,
Chris@4:                    a19, a20);
Chris@4: #  endif
Chris@4: #endif
Chris@4: 
Chris@4:     /* check that printf() results fit in buffer */
Chris@4:     if (len <= 0 || len >= (int)size || state->in[size - 1] != 0)
Chris@4:         return 0;
Chris@4: 
Chris@4:     /* update buffer and position, defer compression until needed */
Chris@4:     strm->avail_in = (unsigned)len;
Chris@4:     strm->next_in = state->in;
Chris@4:     state->x.pos += len;
Chris@4:     return len;
Chris@4: }
Chris@4: 
Chris@4: #endif
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORT gzflush(file, flush)
Chris@4:     gzFile file;
Chris@4:     int flush;
Chris@4: {
Chris@4:     gz_statep state;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return -1;
Chris@4:     state = (gz_statep)file;
Chris@4: 
Chris@4:     /* check that we're writing and that there's no error */
Chris@4:     if (state->mode != GZ_WRITE || state->err != Z_OK)
Chris@4:         return Z_STREAM_ERROR;
Chris@4: 
Chris@4:     /* check flush parameter */
Chris@4:     if (flush < 0 || flush > Z_FINISH)
Chris@4:         return Z_STREAM_ERROR;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             return -1;
Chris@4:     }
Chris@4: 
Chris@4:     /* compress remaining data with requested flush */
Chris@4:     gz_comp(state, flush);
Chris@4:     return state->err;
Chris@4: }
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORT gzsetparams(file, level, strategy)
Chris@4:     gzFile file;
Chris@4:     int level;
Chris@4:     int strategy;
Chris@4: {
Chris@4:     gz_statep state;
Chris@4:     z_streamp strm;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return Z_STREAM_ERROR;
Chris@4:     state = (gz_statep)file;
Chris@4:     strm = &(state->strm);
Chris@4: 
Chris@4:     /* check that we're writing and that there's no error */
Chris@4:     if (state->mode != GZ_WRITE || state->err != Z_OK)
Chris@4:         return Z_STREAM_ERROR;
Chris@4: 
Chris@4:     /* if no change is requested, then do nothing */
Chris@4:     if (level == state->level && strategy == state->strategy)
Chris@4:         return Z_OK;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             return -1;
Chris@4:     }
Chris@4: 
Chris@4:     /* change compression parameters for subsequent input */
Chris@4:     if (state->size) {
Chris@4:         /* flush previous input with previous parameters before changing */
Chris@4:         if (strm->avail_in && gz_comp(state, Z_PARTIAL_FLUSH) == -1)
Chris@4:             return state->err;
Chris@4:         deflateParams(strm, level, strategy);
Chris@4:     }
Chris@4:     state->level = level;
Chris@4:     state->strategy = strategy;
Chris@4:     return Z_OK;
Chris@4: }
Chris@4: 
Chris@4: /* -- see zlib.h -- */
Chris@4: int ZEXPORT gzclose_w(file)
Chris@4:     gzFile file;
Chris@4: {
Chris@4:     int ret = Z_OK;
Chris@4:     gz_statep state;
Chris@4: 
Chris@4:     /* get internal structure */
Chris@4:     if (file == NULL)
Chris@4:         return Z_STREAM_ERROR;
Chris@4:     state = (gz_statep)file;
Chris@4: 
Chris@4:     /* check that we're writing */
Chris@4:     if (state->mode != GZ_WRITE)
Chris@4:         return Z_STREAM_ERROR;
Chris@4: 
Chris@4:     /* check for seek request */
Chris@4:     if (state->seek) {
Chris@4:         state->seek = 0;
Chris@4:         if (gz_zero(state, state->skip) == -1)
Chris@4:             ret = state->err;
Chris@4:     }
Chris@4: 
Chris@4:     /* flush, free memory, and close file */
Chris@4:     if (state->size) {
Chris@4:         if (gz_comp(state, Z_FINISH) == -1)
Chris@4:             ret = state->err;
Chris@4:         if (!state->direct) {
Chris@4:             (void)deflateEnd(&(state->strm));
Chris@4:             free(state->out);
Chris@4:         }
Chris@4:         free(state->in);
Chris@4:     }
Chris@4:     gz_error(state, Z_OK, NULL);
Chris@4:     free(state->path);
Chris@4:     if (close(state->fd) == -1)
Chris@4:         ret = Z_ERRNO;
Chris@4:     free(state);
Chris@4:     return ret;
Chris@4: }