Merge branch 'vendor/ZLIB'
[dragonfly.git] / contrib / zlib-1.2 / gzwrite.c
1 /* gzwrite.c -- zlib functions for writing gzip files
2  * Copyright (C) 2004, 2005, 2010, 2011, 2012, 2013 Mark Adler
3  * For conditions of distribution and use, see copyright notice in zlib.h
4  */
5
6 #include "gzguts.h"
7
8 /* Local functions */
9 local int gz_init OF((gz_statep));
10 local int gz_comp OF((gz_statep, int));
11 local int gz_zero OF((gz_statep, z_off64_t));
12
13 /* Initialize state for writing a gzip file.  Mark initialization by setting
14    state->size to non-zero.  Return -1 on failure or 0 on success. */
15 local int gz_init(state)
16     gz_statep state;
17 {
18     int ret;
19     z_streamp strm = &(state->strm);
20
21     /* allocate input buffer */
22     state->in = (unsigned char *)malloc(state->want);
23     if (state->in == NULL) {
24         gz_error(state, Z_MEM_ERROR, "out of memory");
25         return -1;
26     }
27
28     /* only need output buffer and deflate state if compressing */
29     if (!state->direct) {
30         /* allocate output buffer */
31         state->out = (unsigned char *)malloc(state->want);
32         if (state->out == NULL) {
33             free(state->in);
34             gz_error(state, Z_MEM_ERROR, "out of memory");
35             return -1;
36         }
37
38         /* allocate deflate memory, set up for gzip compression */
39         strm->zalloc = Z_NULL;
40         strm->zfree = Z_NULL;
41         strm->opaque = Z_NULL;
42         ret = deflateInit2(strm, state->level, Z_DEFLATED,
43                            MAX_WBITS + 16, DEF_MEM_LEVEL, state->strategy);
44         if (ret != Z_OK) {
45             free(state->out);
46             free(state->in);
47             gz_error(state, Z_MEM_ERROR, "out of memory");
48             return -1;
49         }
50     }
51
52     /* mark state as initialized */
53     state->size = state->want;
54
55     /* initialize write buffer if compressing */
56     if (!state->direct) {
57         strm->avail_out = state->size;
58         strm->next_out = state->out;
59         state->x.next = strm->next_out;
60     }
61     return 0;
62 }
63
64 /* Compress whatever is at avail_in and next_in and write to the output file.
65    Return -1 if there is an error writing to the output file, otherwise 0.
66    flush is assumed to be a valid deflate() flush value.  If flush is Z_FINISH,
67    then the deflate() state is reset to start a new gzip stream.  If gz->direct
68    is true, then simply write to the output file without compressing, and
69    ignore flush. */
70 local int gz_comp(state, flush)
71     gz_statep state;
72     int flush;
73 {
74     int ret, got;
75     unsigned have;
76     z_streamp strm = &(state->strm);
77
78     /* allocate memory if this is the first time through */
79     if (state->size == 0 && gz_init(state) == -1)
80         return -1;
81
82     /* write directly if requested */
83     if (state->direct) {
84         got = write(state->fd, strm->next_in, strm->avail_in);
85         if (got < 0 || (unsigned)got != strm->avail_in) {
86             gz_error(state, Z_ERRNO, zstrerror());
87             return -1;
88         }
89         strm->avail_in = 0;
90         return 0;
91     }
92
93     /* run deflate() on provided input until it produces no more output */
94     ret = Z_OK;
95     do {
96         /* write out current buffer contents if full, or if flushing, but if
97            doing Z_FINISH then don't write until we get to Z_STREAM_END */
98         if (strm->avail_out == 0 || (flush != Z_NO_FLUSH &&
99             (flush != Z_FINISH || ret == Z_STREAM_END))) {
100             have = (unsigned)(strm->next_out - state->x.next);
101             if (have && ((got = write(state->fd, state->x.next, have)) < 0 ||
102                          (unsigned)got != have)) {
103                 gz_error(state, Z_ERRNO, zstrerror());
104                 return -1;
105             }
106             if (strm->avail_out == 0) {
107                 strm->avail_out = state->size;
108                 strm->next_out = state->out;
109             }
110             state->x.next = strm->next_out;
111         }
112
113         /* compress */
114         have = strm->avail_out;
115         ret = deflate(strm, flush);
116         if (ret == Z_STREAM_ERROR) {
117             gz_error(state, Z_STREAM_ERROR,
118                       "internal error: deflate stream corrupt");
119             return -1;
120         }
121         have -= strm->avail_out;
122     } while (have);
123
124     /* if that completed a deflate stream, allow another to start */
125     if (flush == Z_FINISH)
126         deflateReset(strm);
127
128     /* all done, no errors */
129     return 0;
130 }
131
132 /* Compress len zeros to output.  Return -1 on error, 0 on success. */
133 local int gz_zero(state, len)
134     gz_statep state;
135     z_off64_t len;
136 {
137     int first;
138     unsigned n;
139     z_streamp strm = &(state->strm);
140
141     /* consume whatever's left in the input buffer */
142     if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
143         return -1;
144
145     /* compress len zeros (len guaranteed > 0) */
146     first = 1;
147     while (len) {
148         n = GT_OFF(state->size) || (z_off64_t)state->size > len ?
149             (unsigned)len : state->size;
150         if (first) {
151             memset(state->in, 0, n);
152             first = 0;
153         }
154         strm->avail_in = n;
155         strm->next_in = state->in;
156         state->x.pos += n;
157         if (gz_comp(state, Z_NO_FLUSH) == -1)
158             return -1;
159         len -= n;
160     }
161     return 0;
162 }
163
164 /* -- see zlib.h -- */
165 int ZEXPORT gzwrite(file, buf, len)
166     gzFile file;
167     voidpc buf;
168     unsigned len;
169 {
170     unsigned put = len;
171     gz_statep state;
172     z_streamp strm;
173
174     /* get internal structure */
175     if (file == NULL)
176         return 0;
177     state = (gz_statep)file;
178     strm = &(state->strm);
179
180     /* check that we're writing and that there's no error */
181     if (state->mode != GZ_WRITE || state->err != Z_OK)
182         return 0;
183
184     /* since an int is returned, make sure len fits in one, otherwise return
185        with an error (this avoids the flaw in the interface) */
186     if ((int)len < 0) {
187         gz_error(state, Z_DATA_ERROR, "requested length does not fit in int");
188         return 0;
189     }
190
191     /* if len is zero, avoid unnecessary operations */
192     if (len == 0)
193         return 0;
194
195     /* allocate memory if this is the first time through */
196     if (state->size == 0 && gz_init(state) == -1)
197         return 0;
198
199     /* check for seek request */
200     if (state->seek) {
201         state->seek = 0;
202         if (gz_zero(state, state->skip) == -1)
203             return 0;
204     }
205
206     /* for small len, copy to input buffer, otherwise compress directly */
207     if (len < state->size) {
208         /* copy to input buffer, compress when full */
209         do {
210             unsigned have, copy;
211
212             if (strm->avail_in == 0)
213                 strm->next_in = state->in;
214             have = (unsigned)((strm->next_in + strm->avail_in) - state->in);
215             copy = state->size - have;
216             if (copy > len)
217                 copy = len;
218             memcpy(state->in + have, buf, copy);
219             strm->avail_in += copy;
220             state->x.pos += copy;
221             buf = (const char *)buf + copy;
222             len -= copy;
223             if (len && gz_comp(state, Z_NO_FLUSH) == -1)
224                 return 0;
225         } while (len);
226     }
227     else {
228         /* consume whatever's left in the input buffer */
229         if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
230             return 0;
231
232         /* directly compress user buffer to file */
233         strm->avail_in = len;
234         strm->next_in = (z_const Bytef *)buf;
235         state->x.pos += len;
236         if (gz_comp(state, Z_NO_FLUSH) == -1)
237             return 0;
238     }
239
240     /* input was all buffered or compressed (put will fit in int) */
241     return (int)put;
242 }
243
244 /* -- see zlib.h -- */
245 int ZEXPORT gzputc(file, c)
246     gzFile file;
247     int c;
248 {
249     unsigned have;
250     unsigned char buf[1];
251     gz_statep state;
252     z_streamp strm;
253
254     /* get internal structure */
255     if (file == NULL)
256         return -1;
257     state = (gz_statep)file;
258     strm = &(state->strm);
259
260     /* check that we're writing and that there's no error */
261     if (state->mode != GZ_WRITE || state->err != Z_OK)
262         return -1;
263
264     /* check for seek request */
265     if (state->seek) {
266         state->seek = 0;
267         if (gz_zero(state, state->skip) == -1)
268             return -1;
269     }
270
271     /* try writing to input buffer for speed (state->size == 0 if buffer not
272        initialized) */
273     if (state->size) {
274         if (strm->avail_in == 0)
275             strm->next_in = state->in;
276         have = (unsigned)((strm->next_in + strm->avail_in) - state->in);
277         if (have < state->size) {
278             state->in[have] = c;
279             strm->avail_in++;
280             state->x.pos++;
281             return c & 0xff;
282         }
283     }
284
285     /* no room in buffer or not initialized, use gz_write() */
286     buf[0] = c;
287     if (gzwrite(file, buf, 1) != 1)
288         return -1;
289     return c & 0xff;
290 }
291
292 /* -- see zlib.h -- */
293 int ZEXPORT gzputs(file, str)
294     gzFile file;
295     const char *str;
296 {
297     int ret;
298     unsigned len;
299
300     /* write string */
301     len = (unsigned)strlen(str);
302     ret = gzwrite(file, str, len);
303     return ret == 0 && len != 0 ? -1 : ret;
304 }
305
306 #if defined(STDC) || defined(Z_HAVE_STDARG_H)
307 #include <stdarg.h>
308
309 /* -- see zlib.h -- */
310 int ZEXPORTVA gzvprintf(gzFile file, const char *format, va_list va)
311 {
312     int size, len;
313     gz_statep state;
314     z_streamp strm;
315
316     /* get internal structure */
317     if (file == NULL)
318         return -1;
319     state = (gz_statep)file;
320     strm = &(state->strm);
321
322     /* check that we're writing and that there's no error */
323     if (state->mode != GZ_WRITE || state->err != Z_OK)
324         return 0;
325
326     /* make sure we have some buffer space */
327     if (state->size == 0 && gz_init(state) == -1)
328         return 0;
329
330     /* check for seek request */
331     if (state->seek) {
332         state->seek = 0;
333         if (gz_zero(state, state->skip) == -1)
334             return 0;
335     }
336
337     /* consume whatever's left in the input buffer */
338     if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
339         return 0;
340
341     /* do the printf() into the input buffer, put length in len */
342     size = (int)(state->size);
343     state->in[size - 1] = 0;
344 #ifdef NO_vsnprintf
345 #  ifdef HAS_vsprintf_void
346     (void)vsprintf((char *)(state->in), format, va);
347     for (len = 0; len < size; len++)
348         if (state->in[len] == 0) break;
349 #  else
350     len = vsprintf((char *)(state->in), format, va);
351 #  endif
352 #else
353 #  ifdef HAS_vsnprintf_void
354     (void)vsnprintf((char *)(state->in), size, format, va);
355     len = strlen((char *)(state->in));
356 #  else
357     len = vsnprintf((char *)(state->in), size, format, va);
358 #  endif
359 #endif
360
361     /* check that printf() results fit in buffer */
362     if (len <= 0 || len >= (int)size || state->in[size - 1] != 0)
363         return 0;
364
365     /* update buffer and position, defer compression until needed */
366     strm->avail_in = (unsigned)len;
367     strm->next_in = state->in;
368     state->x.pos += len;
369     return len;
370 }
371
372 int ZEXPORTVA gzprintf(gzFile file, const char *format, ...)
373 {
374     va_list va;
375     int ret;
376
377     va_start(va, format);
378     ret = gzvprintf(file, format, va);
379     va_end(va);
380     return ret;
381 }
382
383 #else /* !STDC && !Z_HAVE_STDARG_H */
384
385 /* -- see zlib.h -- */
386 int ZEXPORTVA gzprintf (file, format, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
387                        a11, a12, a13, a14, a15, a16, a17, a18, a19, a20)
388     gzFile file;
389     const char *format;
390     int a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
391         a11, a12, a13, a14, a15, a16, a17, a18, a19, a20;
392 {
393     int size, len;
394     gz_statep state;
395     z_streamp strm;
396
397     /* get internal structure */
398     if (file == NULL)
399         return -1;
400     state = (gz_statep)file;
401     strm = &(state->strm);
402
403     /* check that can really pass pointer in ints */
404     if (sizeof(int) != sizeof(void *))
405         return 0;
406
407     /* check that we're writing and that there's no error */
408     if (state->mode != GZ_WRITE || state->err != Z_OK)
409         return 0;
410
411     /* make sure we have some buffer space */
412     if (state->size == 0 && gz_init(state) == -1)
413         return 0;
414
415     /* check for seek request */
416     if (state->seek) {
417         state->seek = 0;
418         if (gz_zero(state, state->skip) == -1)
419             return 0;
420     }
421
422     /* consume whatever's left in the input buffer */
423     if (strm->avail_in && gz_comp(state, Z_NO_FLUSH) == -1)
424         return 0;
425
426     /* do the printf() into the input buffer, put length in len */
427     size = (int)(state->size);
428     state->in[size - 1] = 0;
429 #ifdef NO_snprintf
430 #  ifdef HAS_sprintf_void
431     sprintf((char *)(state->in), format, a1, a2, a3, a4, a5, a6, a7, a8,
432             a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20);
433     for (len = 0; len < size; len++)
434         if (state->in[len] == 0) break;
435 #  else
436     len = sprintf((char *)(state->in), format, a1, a2, a3, a4, a5, a6, a7, a8,
437                   a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20);
438 #  endif
439 #else
440 #  ifdef HAS_snprintf_void
441     snprintf((char *)(state->in), size, format, a1, a2, a3, a4, a5, a6, a7, a8,
442              a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20);
443     len = strlen((char *)(state->in));
444 #  else
445     len = snprintf((char *)(state->in), size, format, a1, a2, a3, a4, a5, a6,
446                    a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18,
447                    a19, a20);
448 #  endif
449 #endif
450
451     /* check that printf() results fit in buffer */
452     if (len <= 0 || len >= (int)size || state->in[size - 1] != 0)
453         return 0;
454
455     /* update buffer and position, defer compression until needed */
456     strm->avail_in = (unsigned)len;
457     strm->next_in = state->in;
458     state->x.pos += len;
459     return len;
460 }
461
462 #endif
463
464 /* -- see zlib.h -- */
465 int ZEXPORT gzflush(file, flush)
466     gzFile file;
467     int flush;
468 {
469     gz_statep state;
470
471     /* get internal structure */
472     if (file == NULL)
473         return -1;
474     state = (gz_statep)file;
475
476     /* check that we're writing and that there's no error */
477     if (state->mode != GZ_WRITE || state->err != Z_OK)
478         return Z_STREAM_ERROR;
479
480     /* check flush parameter */
481     if (flush < 0 || flush > Z_FINISH)
482         return Z_STREAM_ERROR;
483
484     /* check for seek request */
485     if (state->seek) {
486         state->seek = 0;
487         if (gz_zero(state, state->skip) == -1)
488             return -1;
489     }
490
491     /* compress remaining data with requested flush */
492     gz_comp(state, flush);
493     return state->err;
494 }
495
496 /* -- see zlib.h -- */
497 int ZEXPORT gzsetparams(file, level, strategy)
498     gzFile file;
499     int level;
500     int strategy;
501 {
502     gz_statep state;
503     z_streamp strm;
504
505     /* get internal structure */
506     if (file == NULL)
507         return Z_STREAM_ERROR;
508     state = (gz_statep)file;
509     strm = &(state->strm);
510
511     /* check that we're writing and that there's no error */
512     if (state->mode != GZ_WRITE || state->err != Z_OK)
513         return Z_STREAM_ERROR;
514
515     /* if no change is requested, then do nothing */
516     if (level == state->level && strategy == state->strategy)
517         return Z_OK;
518
519     /* check for seek request */
520     if (state->seek) {
521         state->seek = 0;
522         if (gz_zero(state, state->skip) == -1)
523             return -1;
524     }
525
526     /* change compression parameters for subsequent input */
527     if (state->size) {
528         /* flush previous input with previous parameters before changing */
529         if (strm->avail_in && gz_comp(state, Z_PARTIAL_FLUSH) == -1)
530             return state->err;
531         deflateParams(strm, level, strategy);
532     }
533     state->level = level;
534     state->strategy = strategy;
535     return Z_OK;
536 }
537
538 /* -- see zlib.h -- */
539 int ZEXPORT gzclose_w(file)
540     gzFile file;
541 {
542     int ret = Z_OK;
543     gz_statep state;
544
545     /* get internal structure */
546     if (file == NULL)
547         return Z_STREAM_ERROR;
548     state = (gz_statep)file;
549
550     /* check that we're writing */
551     if (state->mode != GZ_WRITE)
552         return Z_STREAM_ERROR;
553
554     /* check for seek request */
555     if (state->seek) {
556         state->seek = 0;
557         if (gz_zero(state, state->skip) == -1)
558             ret = state->err;
559     }
560
561     /* flush, free memory, and close file */
562     if (gz_comp(state, Z_FINISH) == -1)
563         ret = state->err;
564     if (state->size) {
565         if (!state->direct) {
566             (void)deflateEnd(&(state->strm));
567             free(state->out);
568         }
569         free(state->in);
570     }
571     gz_error(state, Z_OK, NULL);
572     free(state->path);
573     if (close(state->fd) == -1)
574         ret = Z_ERRNO;
575     free(state);
576     return ret;
577 }