zlib: kill gzio.c
[people/sha0/syslinux.git] / com32 / lib / zlib / example.c
1 /* example.c -- usage example of the zlib compression library
2  * Copyright (C) 1995-2003 Jean-loup Gailly.
3  * For conditions of distribution and use, see copyright notice in zlib.h
4  */
5
6
7 #include <stdio.h>
8 #include "zlib.h"
9
10 #ifdef STDC
11 #  include <string.h>
12 #  include <stdlib.h>
13 #else
14    extern void exit  OF((int));
15 #endif
16
17 #if defined(VMS) || defined(RISCOS)
18 #  define TESTFILE "foo-gz"
19 #else
20 #  define TESTFILE "foo.gz"
21 #endif
22
23 #define CHECK_ERR(err, msg) { \
24     if (err != Z_OK) { \
25         fprintf(stderr, "%s error: %d\n", msg, err); \
26         exit(1); \
27     } \
28 }
29
30 const char hello[] = "hello, hello!";
31 /* "hello world" would be more standard, but the repeated "hello"
32  * stresses the compression code better, sorry...
33  */
34
35 const char dictionary[] = "hello";
36 uLong dictId; /* Adler32 value of the dictionary */
37
38 void test_compress      OF((Byte *compr, uLong comprLen,
39                             Byte *uncompr, uLong uncomprLen));
40 void test_gzio          OF((const char *fname,
41                             Byte *uncompr, uLong uncomprLen));
42 void test_deflate       OF((Byte *compr, uLong comprLen));
43 void test_inflate       OF((Byte *compr, uLong comprLen,
44                             Byte *uncompr, uLong uncomprLen));
45 void test_large_deflate OF((Byte *compr, uLong comprLen,
46                             Byte *uncompr, uLong uncomprLen));
47 void test_large_inflate OF((Byte *compr, uLong comprLen,
48                             Byte *uncompr, uLong uncomprLen));
49 void test_flush         OF((Byte *compr, uLong *comprLen));
50 void test_sync          OF((Byte *compr, uLong comprLen,
51                             Byte *uncompr, uLong uncomprLen));
52 void test_dict_deflate  OF((Byte *compr, uLong comprLen));
53 void test_dict_inflate  OF((Byte *compr, uLong comprLen,
54                             Byte *uncompr, uLong uncomprLen));
55 int  main               OF((int argc, char *argv[]));
56
57 /* ===========================================================================
58  * Test compress() and uncompress()
59  */
60 void test_compress(compr, comprLen, uncompr, uncomprLen)
61     Byte *compr, *uncompr;
62     uLong comprLen, uncomprLen;
63 {
64     int err;
65     uLong len = (uLong)strlen(hello)+1;
66
67     err = compress(compr, &comprLen, (const Bytef*)hello, len);
68     CHECK_ERR(err, "compress");
69
70     strcpy((char*)uncompr, "garbage");
71
72     err = uncompress(uncompr, &uncomprLen, compr, comprLen);
73     CHECK_ERR(err, "uncompress");
74
75     if (strcmp((char*)uncompr, hello)) {
76         fprintf(stderr, "bad uncompress\n");
77         exit(1);
78     } else {
79         printf("uncompress(): %s\n", (char *)uncompr);
80     }
81 }
82
83 /* ===========================================================================
84  * Test read/write of .gz files
85  */
86 void test_gzio(fname, uncompr, uncomprLen)
87     const char *fname; /* compressed file name */
88     Byte *uncompr;
89     uLong uncomprLen;
90 {
91 #ifdef NO_GZCOMPRESS
92     fprintf(stderr, "NO_GZCOMPRESS -- gz* functions cannot compress\n");
93 #else
94     int err;
95     int len = (int)strlen(hello)+1;
96     gzFile file;
97     z_off_t pos;
98
99     file = gzopen(fname, "wb");
100     if (file == NULL) {
101         fprintf(stderr, "gzopen error\n");
102         exit(1);
103     }
104     gzputc(file, 'h');
105     if (gzputs(file, "ello") != 4) {
106         fprintf(stderr, "gzputs err: %s\n", gzerror(file, &err));
107         exit(1);
108     }
109     if (gzprintf(file, ", %s!", "hello") != 8) {
110         fprintf(stderr, "gzprintf err: %s\n", gzerror(file, &err));
111         exit(1);
112     }
113     gzseek(file, 1L, SEEK_CUR); /* add one zero byte */
114     gzclose(file);
115
116     file = gzopen(fname, "rb");
117     if (file == NULL) {
118         fprintf(stderr, "gzopen error\n");
119         exit(1);
120     }
121     strcpy((char*)uncompr, "garbage");
122
123     if (gzread(file, uncompr, (unsigned)uncomprLen) != len) {
124         fprintf(stderr, "gzread err: %s\n", gzerror(file, &err));
125         exit(1);
126     }
127     if (strcmp((char*)uncompr, hello)) {
128         fprintf(stderr, "bad gzread: %s\n", (char*)uncompr);
129         exit(1);
130     } else {
131         printf("gzread(): %s\n", (char*)uncompr);
132     }
133
134     pos = gzseek(file, -8L, SEEK_CUR);
135     if (pos != 6 || gztell(file) != pos) {
136         fprintf(stderr, "gzseek error, pos=%ld, gztell=%ld\n",
137                 (long)pos, (long)gztell(file));
138         exit(1);
139     }
140
141     if (gzgetc(file) != ' ') {
142         fprintf(stderr, "gzgetc error\n");
143         exit(1);
144     }
145
146     if (gzungetc(' ', file) != ' ') {
147         fprintf(stderr, "gzungetc error\n");
148         exit(1);
149     }
150
151     gzgets(file, (char*)uncompr, (int)uncomprLen);
152     if (strlen((char*)uncompr) != 7) { /* " hello!" */
153         fprintf(stderr, "gzgets err after gzseek: %s\n", gzerror(file, &err));
154         exit(1);
155     }
156     if (strcmp((char*)uncompr, hello + 6)) {
157         fprintf(stderr, "bad gzgets after gzseek\n");
158         exit(1);
159     } else {
160         printf("gzgets() after gzseek: %s\n", (char*)uncompr);
161     }
162
163     gzclose(file);
164 #endif
165 }
166
167 /* ===========================================================================
168  * Test deflate() with small buffers
169  */
170 void test_deflate(compr, comprLen)
171     Byte *compr;
172     uLong comprLen;
173 {
174     z_stream c_stream; /* compression stream */
175     int err;
176     uLong len = (uLong)strlen(hello)+1;
177
178     c_stream.zalloc = (alloc_func)0;
179     c_stream.zfree = (free_func)0;
180     c_stream.opaque = (voidpf)0;
181
182     err = deflateInit(&c_stream, Z_DEFAULT_COMPRESSION);
183     CHECK_ERR(err, "deflateInit");
184
185     c_stream.next_in  = (Bytef*)hello;
186     c_stream.next_out = compr;
187
188     while (c_stream.total_in != len && c_stream.total_out < comprLen) {
189         c_stream.avail_in = c_stream.avail_out = 1; /* force small buffers */
190         err = deflate(&c_stream, Z_NO_FLUSH);
191         CHECK_ERR(err, "deflate");
192     }
193     /* Finish the stream, still forcing small buffers: */
194     for (;;) {
195         c_stream.avail_out = 1;
196         err = deflate(&c_stream, Z_FINISH);
197         if (err == Z_STREAM_END) break;
198         CHECK_ERR(err, "deflate");
199     }
200
201     err = deflateEnd(&c_stream);
202     CHECK_ERR(err, "deflateEnd");
203 }
204
205 /* ===========================================================================
206  * Test inflate() with small buffers
207  */
208 void test_inflate(compr, comprLen, uncompr, uncomprLen)
209     Byte *compr, *uncompr;
210     uLong comprLen, uncomprLen;
211 {
212     int err;
213     z_stream d_stream; /* decompression stream */
214
215     strcpy((char*)uncompr, "garbage");
216
217     d_stream.zalloc = (alloc_func)0;
218     d_stream.zfree = (free_func)0;
219     d_stream.opaque = (voidpf)0;
220
221     d_stream.next_in  = compr;
222     d_stream.avail_in = 0;
223     d_stream.next_out = uncompr;
224
225     err = inflateInit(&d_stream);
226     CHECK_ERR(err, "inflateInit");
227
228     while (d_stream.total_out < uncomprLen && d_stream.total_in < comprLen) {
229         d_stream.avail_in = d_stream.avail_out = 1; /* force small buffers */
230         err = inflate(&d_stream, Z_NO_FLUSH);
231         if (err == Z_STREAM_END) break;
232         CHECK_ERR(err, "inflate");
233     }
234
235     err = inflateEnd(&d_stream);
236     CHECK_ERR(err, "inflateEnd");
237
238     if (strcmp((char*)uncompr, hello)) {
239         fprintf(stderr, "bad inflate\n");
240         exit(1);
241     } else {
242         printf("inflate(): %s\n", (char *)uncompr);
243     }
244 }
245
246 /* ===========================================================================
247  * Test deflate() with large buffers and dynamic change of compression level
248  */
249 void test_large_deflate(compr, comprLen, uncompr, uncomprLen)
250     Byte *compr, *uncompr;
251     uLong comprLen, uncomprLen;
252 {
253     z_stream c_stream; /* compression stream */
254     int err;
255
256     c_stream.zalloc = (alloc_func)0;
257     c_stream.zfree = (free_func)0;
258     c_stream.opaque = (voidpf)0;
259
260     err = deflateInit(&c_stream, Z_BEST_SPEED);
261     CHECK_ERR(err, "deflateInit");
262
263     c_stream.next_out = compr;
264     c_stream.avail_out = (uInt)comprLen;
265
266     /* At this point, uncompr is still mostly zeroes, so it should compress
267      * very well:
268      */
269     c_stream.next_in = uncompr;
270     c_stream.avail_in = (uInt)uncomprLen;
271     err = deflate(&c_stream, Z_NO_FLUSH);
272     CHECK_ERR(err, "deflate");
273     if (c_stream.avail_in != 0) {
274         fprintf(stderr, "deflate not greedy\n");
275         exit(1);
276     }
277
278     /* Feed in already compressed data and switch to no compression: */
279     deflateParams(&c_stream, Z_NO_COMPRESSION, Z_DEFAULT_STRATEGY);
280     c_stream.next_in = compr;
281     c_stream.avail_in = (uInt)comprLen/2;
282     err = deflate(&c_stream, Z_NO_FLUSH);
283     CHECK_ERR(err, "deflate");
284
285     /* Switch back to compressing mode: */
286     deflateParams(&c_stream, Z_BEST_COMPRESSION, Z_FILTERED);
287     c_stream.next_in = uncompr;
288     c_stream.avail_in = (uInt)uncomprLen;
289     err = deflate(&c_stream, Z_NO_FLUSH);
290     CHECK_ERR(err, "deflate");
291
292     err = deflate(&c_stream, Z_FINISH);
293     if (err != Z_STREAM_END) {
294         fprintf(stderr, "deflate should report Z_STREAM_END\n");
295         exit(1);
296     }
297     err = deflateEnd(&c_stream);
298     CHECK_ERR(err, "deflateEnd");
299 }
300
301 /* ===========================================================================
302  * Test inflate() with large buffers
303  */
304 void test_large_inflate(compr, comprLen, uncompr, uncomprLen)
305     Byte *compr, *uncompr;
306     uLong comprLen, uncomprLen;
307 {
308     int err;
309     z_stream d_stream; /* decompression stream */
310
311     strcpy((char*)uncompr, "garbage");
312
313     d_stream.zalloc = (alloc_func)0;
314     d_stream.zfree = (free_func)0;
315     d_stream.opaque = (voidpf)0;
316
317     d_stream.next_in  = compr;
318     d_stream.avail_in = (uInt)comprLen;
319
320     err = inflateInit(&d_stream);
321     CHECK_ERR(err, "inflateInit");
322
323     for (;;) {
324         d_stream.next_out = uncompr;            /* discard the output */
325         d_stream.avail_out = (uInt)uncomprLen;
326         err = inflate(&d_stream, Z_NO_FLUSH);
327         if (err == Z_STREAM_END) break;
328         CHECK_ERR(err, "large inflate");
329     }
330
331     err = inflateEnd(&d_stream);
332     CHECK_ERR(err, "inflateEnd");
333
334     if (d_stream.total_out != 2*uncomprLen + comprLen/2) {
335         fprintf(stderr, "bad large inflate: %ld\n", d_stream.total_out);
336         exit(1);
337     } else {
338         printf("large_inflate(): OK\n");
339     }
340 }
341
342 /* ===========================================================================
343  * Test deflate() with full flush
344  */
345 void test_flush(compr, comprLen)
346     Byte *compr;
347     uLong *comprLen;
348 {
349     z_stream c_stream; /* compression stream */
350     int err;
351     uInt len = (uInt)strlen(hello)+1;
352
353     c_stream.zalloc = (alloc_func)0;
354     c_stream.zfree = (free_func)0;
355     c_stream.opaque = (voidpf)0;
356
357     err = deflateInit(&c_stream, Z_DEFAULT_COMPRESSION);
358     CHECK_ERR(err, "deflateInit");
359
360     c_stream.next_in  = (Bytef*)hello;
361     c_stream.next_out = compr;
362     c_stream.avail_in = 3;
363     c_stream.avail_out = (uInt)*comprLen;
364     err = deflate(&c_stream, Z_FULL_FLUSH);
365     CHECK_ERR(err, "deflate");
366
367     compr[3]++; /* force an error in first compressed block */
368     c_stream.avail_in = len - 3;
369
370     err = deflate(&c_stream, Z_FINISH);
371     if (err != Z_STREAM_END) {
372         CHECK_ERR(err, "deflate");
373     }
374     err = deflateEnd(&c_stream);
375     CHECK_ERR(err, "deflateEnd");
376
377     *comprLen = c_stream.total_out;
378 }
379
380 /* ===========================================================================
381  * Test inflateSync()
382  */
383 void test_sync(compr, comprLen, uncompr, uncomprLen)
384     Byte *compr, *uncompr;
385     uLong comprLen, uncomprLen;
386 {
387     int err;
388     z_stream d_stream; /* decompression stream */
389
390     strcpy((char*)uncompr, "garbage");
391
392     d_stream.zalloc = (alloc_func)0;
393     d_stream.zfree = (free_func)0;
394     d_stream.opaque = (voidpf)0;
395
396     d_stream.next_in  = compr;
397     d_stream.avail_in = 2; /* just read the zlib header */
398
399     err = inflateInit(&d_stream);
400     CHECK_ERR(err, "inflateInit");
401
402     d_stream.next_out = uncompr;
403     d_stream.avail_out = (uInt)uncomprLen;
404
405     inflate(&d_stream, Z_NO_FLUSH);
406     CHECK_ERR(err, "inflate");
407
408     d_stream.avail_in = (uInt)comprLen-2;   /* read all compressed data */
409     err = inflateSync(&d_stream);           /* but skip the damaged part */
410     CHECK_ERR(err, "inflateSync");
411
412     err = inflate(&d_stream, Z_FINISH);
413     if (err != Z_DATA_ERROR) {
414         fprintf(stderr, "inflate should report DATA_ERROR\n");
415         /* Because of incorrect adler32 */
416         exit(1);
417     }
418     err = inflateEnd(&d_stream);
419     CHECK_ERR(err, "inflateEnd");
420
421     printf("after inflateSync(): hel%s\n", (char *)uncompr);
422 }
423
424 /* ===========================================================================
425  * Test deflate() with preset dictionary
426  */
427 void test_dict_deflate(compr, comprLen)
428     Byte *compr;
429     uLong comprLen;
430 {
431     z_stream c_stream; /* compression stream */
432     int err;
433
434     c_stream.zalloc = (alloc_func)0;
435     c_stream.zfree = (free_func)0;
436     c_stream.opaque = (voidpf)0;
437
438     err = deflateInit(&c_stream, Z_BEST_COMPRESSION);
439     CHECK_ERR(err, "deflateInit");
440
441     err = deflateSetDictionary(&c_stream,
442                                (const Bytef*)dictionary, sizeof(dictionary));
443     CHECK_ERR(err, "deflateSetDictionary");
444
445     dictId = c_stream.adler;
446     c_stream.next_out = compr;
447     c_stream.avail_out = (uInt)comprLen;
448
449     c_stream.next_in = (Bytef*)hello;
450     c_stream.avail_in = (uInt)strlen(hello)+1;
451
452     err = deflate(&c_stream, Z_FINISH);
453     if (err != Z_STREAM_END) {
454         fprintf(stderr, "deflate should report Z_STREAM_END\n");
455         exit(1);
456     }
457     err = deflateEnd(&c_stream);
458     CHECK_ERR(err, "deflateEnd");
459 }
460
461 /* ===========================================================================
462  * Test inflate() with a preset dictionary
463  */
464 void test_dict_inflate(compr, comprLen, uncompr, uncomprLen)
465     Byte *compr, *uncompr;
466     uLong comprLen, uncomprLen;
467 {
468     int err;
469     z_stream d_stream; /* decompression stream */
470
471     strcpy((char*)uncompr, "garbage");
472
473     d_stream.zalloc = (alloc_func)0;
474     d_stream.zfree = (free_func)0;
475     d_stream.opaque = (voidpf)0;
476
477     d_stream.next_in  = compr;
478     d_stream.avail_in = (uInt)comprLen;
479
480     err = inflateInit(&d_stream);
481     CHECK_ERR(err, "inflateInit");
482
483     d_stream.next_out = uncompr;
484     d_stream.avail_out = (uInt)uncomprLen;
485
486     for (;;) {
487         err = inflate(&d_stream, Z_NO_FLUSH);
488         if (err == Z_STREAM_END) break;
489         if (err == Z_NEED_DICT) {
490             if (d_stream.adler != dictId) {
491                 fprintf(stderr, "unexpected dictionary");
492                 exit(1);
493             }
494             err = inflateSetDictionary(&d_stream, (const Bytef*)dictionary,
495                                        sizeof(dictionary));
496         }
497         CHECK_ERR(err, "inflate with dict");
498     }
499
500     err = inflateEnd(&d_stream);
501     CHECK_ERR(err, "inflateEnd");
502
503     if (strcmp((char*)uncompr, hello)) {
504         fprintf(stderr, "bad inflate with dict\n");
505         exit(1);
506     } else {
507         printf("inflate with dictionary: %s\n", (char *)uncompr);
508     }
509 }
510
511 /* ===========================================================================
512  * Usage:  example [output.gz  [input.gz]]
513  */
514
515 int main(argc, argv)
516     int argc;
517     char *argv[];
518 {
519     Byte *compr, *uncompr;
520     uLong comprLen = 10000*sizeof(int); /* don't overflow on MSDOS */
521     uLong uncomprLen = comprLen;
522     static const char* myVersion = ZLIB_VERSION;
523
524     if (zlibVersion()[0] != myVersion[0]) {
525         fprintf(stderr, "incompatible zlib version\n");
526         exit(1);
527
528     } else if (strcmp(zlibVersion(), ZLIB_VERSION) != 0) {
529         fprintf(stderr, "warning: different zlib version\n");
530     }
531
532     printf("zlib version %s = 0x%04x, compile flags = 0x%lx\n",
533             ZLIB_VERSION, ZLIB_VERNUM, zlibCompileFlags());
534
535     compr    = (Byte*)calloc((uInt)comprLen, 1);
536     uncompr  = (Byte*)calloc((uInt)uncomprLen, 1);
537     /* compr and uncompr are cleared to avoid reading uninitialized
538      * data and to ensure that uncompr compresses well.
539      */
540     if (compr == Z_NULL || uncompr == Z_NULL) {
541         printf("out of memory\n");
542         exit(1);
543     }
544     test_compress(compr, comprLen, uncompr, uncomprLen);
545
546     test_gzio((argc > 1 ? argv[1] : TESTFILE),
547               uncompr, uncomprLen);
548
549     test_deflate(compr, comprLen);
550     test_inflate(compr, comprLen, uncompr, uncomprLen);
551
552     test_large_deflate(compr, comprLen, uncompr, uncomprLen);
553     test_large_inflate(compr, comprLen, uncompr, uncomprLen);
554
555     test_flush(compr, &comprLen);
556     test_sync(compr, comprLen, uncompr, uncomprLen);
557     comprLen = uncomprLen;
558
559     test_dict_deflate(compr, comprLen);
560     test_dict_inflate(compr, comprLen, uncompr, uncomprLen);
561
562     free(compr);
563     free(uncompr);
564
565     return 0;
566 }