Commit | Line | Data |
---|---|---|
5ca28f79 L |
1 | /* minigzip.c -- simulate gzip using the zlib compression library |
2 | * Copyright (C) 1995-2006, 2010, 2011 Jean-loup Gailly. | |
3 | * For conditions of distribution and use, see copyright notice in zlib.h | |
4 | */ | |
5 | ||
6 | /* | |
7 | * minigzip is a minimal implementation of the gzip utility. This is | |
8 | * only an example of using zlib and isn't meant to replace the | |
9 | * full-featured gzip. No attempt is made to deal with file systems | |
10 | * limiting names to 14 or 8+3 characters, etc... Error checking is | |
11 | * very limited. So use minigzip only for testing; use gzip for the | |
12 | * real thing. On MSDOS, use only on file names without extension | |
13 | * or in pipe mode. | |
14 | */ | |
15 | ||
16 | /* @(#) $Id$ */ | |
17 | ||
18 | #include "zlib.h" | |
19 | #include <stdio.h> | |
20 | ||
21 | #ifdef STDC | |
22 | # include <string.h> | |
23 | # include <stdlib.h> | |
24 | #endif | |
25 | ||
26 | #ifdef USE_MMAP | |
27 | # include <sys/types.h> | |
28 | # include <sys/mman.h> | |
29 | # include <sys/stat.h> | |
30 | #endif | |
31 | ||
32 | #if defined(MSDOS) || defined(OS2) || defined(WIN32) || defined(__CYGWIN__) | |
33 | # include <fcntl.h> | |
34 | # include <io.h> | |
35 | # ifdef UNDER_CE | |
36 | # include <stdlib.h> | |
37 | # endif | |
38 | # define SET_BINARY_MODE(file) setmode(fileno(file), O_BINARY) | |
39 | #else | |
40 | # define SET_BINARY_MODE(file) | |
41 | #endif | |
42 | ||
43 | #ifdef VMS | |
44 | # define unlink delete | |
45 | # define GZ_SUFFIX "-gz" | |
46 | #endif | |
47 | #ifdef RISCOS | |
48 | # define unlink remove | |
49 | # define GZ_SUFFIX "-gz" | |
50 | # define fileno(file) file->__file | |
51 | #endif | |
52 | #if defined(__MWERKS__) && __dest_os != __be_os && __dest_os != __win32_os | |
53 | # include <unix.h> /* for fileno */ | |
54 | #endif | |
55 | ||
56 | #if !defined(Z_HAVE_UNISTD_H) && !defined(_LARGEFILE64_SOURCE) | |
57 | #ifndef WIN32 /* unlink already in stdio.h for WIN32 */ | |
58 | extern int unlink OF((const char *)); | |
59 | #endif | |
60 | #endif | |
61 | ||
62 | #if defined(UNDER_CE) | |
63 | # include <windows.h> | |
64 | # define perror(s) pwinerror(s) | |
65 | ||
66 | /* Map the Windows error number in ERROR to a locale-dependent error | |
67 | message string and return a pointer to it. Typically, the values | |
68 | for ERROR come from GetLastError. | |
69 | ||
70 | The string pointed to shall not be modified by the application, | |
71 | but may be overwritten by a subsequent call to strwinerror | |
72 | ||
73 | The strwinerror function does not change the current setting | |
74 | of GetLastError. */ | |
75 | ||
76 | static char *strwinerror (error) | |
77 | DWORD error; | |
78 | { | |
79 | static char buf[1024]; | |
80 | ||
81 | wchar_t *msgbuf; | |
82 | DWORD lasterr = GetLastError(); | |
83 | DWORD chars = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | |
84 | | FORMAT_MESSAGE_ALLOCATE_BUFFER, | |
85 | NULL, | |
86 | error, | |
87 | 0, /* Default language */ | |
88 | (LPVOID)&msgbuf, | |
89 | 0, | |
90 | NULL); | |
91 | if (chars != 0) { | |
92 | /* If there is an \r\n appended, zap it. */ | |
93 | if (chars >= 2 | |
94 | && msgbuf[chars - 2] == '\r' && msgbuf[chars - 1] == '\n') { | |
95 | chars -= 2; | |
96 | msgbuf[chars] = 0; | |
97 | } | |
98 | ||
99 | if (chars > sizeof (buf) - 1) { | |
100 | chars = sizeof (buf) - 1; | |
101 | msgbuf[chars] = 0; | |
102 | } | |
103 | ||
104 | wcstombs(buf, msgbuf, chars + 1); | |
105 | LocalFree(msgbuf); | |
106 | } | |
107 | else { | |
108 | sprintf(buf, "unknown win32 error (%ld)", error); | |
109 | } | |
110 | ||
111 | SetLastError(lasterr); | |
112 | return buf; | |
113 | } | |
114 | ||
115 | static void pwinerror (s) | |
116 | const char *s; | |
117 | { | |
118 | if (s && *s) | |
119 | fprintf(stderr, "%s: %s\n", s, strwinerror(GetLastError ())); | |
120 | else | |
121 | fprintf(stderr, "%s\n", strwinerror(GetLastError ())); | |
122 | } | |
123 | ||
124 | #endif /* UNDER_CE */ | |
125 | ||
126 | #ifndef GZ_SUFFIX | |
127 | # define GZ_SUFFIX ".gz" | |
128 | #endif | |
129 | #define SUFFIX_LEN (sizeof(GZ_SUFFIX)-1) | |
130 | ||
131 | #define BUFLEN 16384 | |
132 | #define MAX_NAME_LEN 1024 | |
133 | ||
134 | #ifdef MAXSEG_64K | |
135 | # define local static | |
136 | /* Needed for systems with limitation on stack size. */ | |
137 | #else | |
138 | # define local | |
139 | #endif | |
140 | ||
141 | #ifdef Z_SOLO | |
142 | /* for Z_SOLO, create simplified gz* functions using deflate and inflate */ | |
143 | ||
144 | #if defined(Z_HAVE_UNISTD_H) || defined(Z_LARGE) | |
145 | # include <unistd.h> /* for unlink() */ | |
146 | #endif | |
147 | ||
148 | void *myalloc OF((void *, unsigned, unsigned)); | |
149 | void myfree OF((void *, void *)); | |
150 | ||
151 | void *myalloc(q, n, m) | |
152 | void *q; | |
153 | unsigned n, m; | |
154 | { | |
155 | q = Z_NULL; | |
156 | return calloc(n, m); | |
157 | } | |
158 | ||
159 | void myfree(q, p) | |
160 | void *q, *p; | |
161 | { | |
162 | q = Z_NULL; | |
163 | free(p); | |
164 | } | |
165 | ||
166 | typedef struct gzFile_s { | |
167 | FILE *file; | |
168 | int write; | |
169 | int err; | |
170 | char *msg; | |
171 | z_stream strm; | |
172 | } *gzFile; | |
173 | ||
174 | gzFile gzopen OF((const char *, const char *)); | |
175 | gzFile gzdopen OF((int, const char *)); | |
176 | gzFile gz_open OF((const char *, int, const char *)); | |
177 | ||
178 | gzFile gzopen(path, mode) | |
179 | const char *path; | |
180 | const char *mode; | |
181 | { | |
182 | return gz_open(path, -1, mode); | |
183 | } | |
184 | ||
185 | gzFile gzdopen(fd, mode) | |
186 | int fd; | |
187 | const char *mode; | |
188 | { | |
189 | return gz_open(NULL, fd, mode); | |
190 | } | |
191 | ||
192 | gzFile gz_open(path, fd, mode) | |
193 | const char *path; | |
194 | int fd; | |
195 | const char *mode; | |
196 | { | |
197 | gzFile gz; | |
198 | int ret; | |
199 | ||
200 | gz = malloc(sizeof(struct gzFile_s)); | |
201 | if (gz == NULL) | |
202 | return NULL; | |
203 | gz->write = strchr(mode, 'w') != NULL; | |
204 | gz->strm.zalloc = myalloc; | |
205 | gz->strm.zfree = myfree; | |
206 | gz->strm.opaque = Z_NULL; | |
207 | if (gz->write) | |
208 | ret = deflateInit2(&(gz->strm), -1, 8, 15 + 16, 8, 0); | |
209 | else { | |
210 | gz->strm.next_in = 0; | |
211 | gz->strm.avail_in = Z_NULL; | |
212 | ret = inflateInit2(&(gz->strm), 15 + 16); | |
213 | } | |
214 | if (ret != Z_OK) { | |
215 | free(gz); | |
216 | return NULL; | |
217 | } | |
218 | gz->file = path == NULL ? fdopen(fd, gz->write ? "wb" : "rb") : | |
219 | fopen(path, gz->write ? "wb" : "rb"); | |
220 | if (gz->file == NULL) { | |
221 | gz->write ? deflateEnd(&(gz->strm)) : inflateEnd(&(gz->strm)); | |
222 | free(gz); | |
223 | return NULL; | |
224 | } | |
225 | gz->err = 0; | |
226 | gz->msg = ""; | |
227 | return gz; | |
228 | } | |
229 | ||
230 | int gzwrite OF((gzFile, const void *, unsigned)); | |
231 | ||
232 | int gzwrite(gz, buf, len) | |
233 | gzFile gz; | |
234 | const void *buf; | |
235 | unsigned len; | |
236 | { | |
237 | z_stream *strm; | |
238 | unsigned char out[BUFLEN]; | |
239 | ||
240 | if (gz == NULL || !gz->write) | |
241 | return 0; | |
242 | strm = &(gz->strm); | |
243 | strm->next_in = (void *)buf; | |
244 | strm->avail_in = len; | |
245 | do { | |
246 | strm->next_out = out; | |
247 | strm->avail_out = BUFLEN; | |
248 | (void)deflate(strm, Z_NO_FLUSH); | |
249 | fwrite(out, 1, BUFLEN - strm->avail_out, gz->file); | |
250 | } while (strm->avail_out == 0); | |
251 | return len; | |
252 | } | |
253 | ||
254 | int gzread OF((gzFile, void *, unsigned)); | |
255 | ||
256 | int gzread(gz, buf, len) | |
257 | gzFile gz; | |
258 | void *buf; | |
259 | unsigned len; | |
260 | { | |
261 | int ret; | |
262 | unsigned got; | |
263 | unsigned char in[1]; | |
264 | z_stream *strm; | |
265 | ||
266 | if (gz == NULL || gz->write) | |
267 | return 0; | |
268 | if (gz->err) | |
269 | return 0; | |
270 | strm = &(gz->strm); | |
271 | strm->next_out = (void *)buf; | |
272 | strm->avail_out = len; | |
273 | do { | |
274 | got = fread(in, 1, 1, gz->file); | |
275 | if (got == 0) | |
276 | break; | |
277 | strm->next_in = in; | |
278 | strm->avail_in = 1; | |
279 | ret = inflate(strm, Z_NO_FLUSH); | |
280 | if (ret == Z_DATA_ERROR) { | |
281 | gz->err = Z_DATA_ERROR; | |
282 | gz->msg = strm->msg; | |
283 | return 0; | |
284 | } | |
285 | if (ret == Z_STREAM_END) | |
286 | inflateReset(strm); | |
287 | } while (strm->avail_out); | |
288 | return len - strm->avail_out; | |
289 | } | |
290 | ||
291 | int gzclose OF((gzFile)); | |
292 | ||
293 | int gzclose(gz) | |
294 | gzFile gz; | |
295 | { | |
296 | z_stream *strm; | |
297 | unsigned char out[BUFLEN]; | |
298 | ||
299 | if (gz == NULL) | |
300 | return Z_STREAM_ERROR; | |
301 | strm = &(gz->strm); | |
302 | if (gz->write) { | |
303 | strm->next_in = Z_NULL; | |
304 | strm->avail_in = 0; | |
305 | do { | |
306 | strm->next_out = out; | |
307 | strm->avail_out = BUFLEN; | |
308 | (void)deflate(strm, Z_FINISH); | |
309 | fwrite(out, 1, BUFLEN - strm->avail_out, gz->file); | |
310 | } while (strm->avail_out == 0); | |
311 | deflateEnd(strm); | |
312 | } | |
313 | else | |
314 | inflateEnd(strm); | |
315 | fclose(gz->file); | |
316 | free(gz); | |
317 | return Z_OK; | |
318 | } | |
319 | ||
320 | const char *gzerror OF((gzFile, int *)); | |
321 | ||
322 | const char *gzerror(gz, err) | |
323 | gzFile gz; | |
324 | int *err; | |
325 | { | |
326 | *err = gz->err; | |
327 | return gz->msg; | |
328 | } | |
329 | ||
330 | #endif | |
331 | ||
332 | char *prog; | |
333 | ||
334 | void error OF((const char *msg)); | |
335 | void gz_compress OF((FILE *in, gzFile out)); | |
336 | #ifdef USE_MMAP | |
337 | int gz_compress_mmap OF((FILE *in, gzFile out)); | |
338 | #endif | |
339 | void gz_uncompress OF((gzFile in, FILE *out)); | |
340 | void file_compress OF((char *file, char *mode)); | |
341 | void file_uncompress OF((char *file)); | |
342 | int main OF((int argc, char *argv[])); | |
343 | ||
344 | /* =========================================================================== | |
345 | * Display error message and exit | |
346 | */ | |
347 | void error(msg) | |
348 | const char *msg; | |
349 | { | |
350 | fprintf(stderr, "%s: %s\n", prog, msg); | |
351 | exit(1); | |
352 | } | |
353 | ||
354 | /* =========================================================================== | |
355 | * Compress input to output then close both files. | |
356 | */ | |
357 | ||
358 | void gz_compress(in, out) | |
359 | FILE *in; | |
360 | gzFile out; | |
361 | { | |
362 | local char buf[BUFLEN]; | |
363 | int len; | |
364 | int err; | |
365 | ||
366 | #ifdef USE_MMAP | |
367 | /* Try first compressing with mmap. If mmap fails (minigzip used in a | |
368 | * pipe), use the normal fread loop. | |
369 | */ | |
370 | if (gz_compress_mmap(in, out) == Z_OK) return; | |
371 | #endif | |
372 | for (;;) { | |
373 | len = (int)fread(buf, 1, sizeof(buf), in); | |
374 | if (ferror(in)) { | |
375 | perror("fread"); | |
376 | exit(1); | |
377 | } | |
378 | if (len == 0) break; | |
379 | ||
380 | if (gzwrite(out, buf, (unsigned)len) != len) error(gzerror(out, &err)); | |
381 | } | |
382 | fclose(in); | |
383 | if (gzclose(out) != Z_OK) error("failed gzclose"); | |
384 | } | |
385 | ||
386 | #ifdef USE_MMAP /* MMAP version, Miguel Albrecht <malbrech@eso.org> */ | |
387 | ||
388 | /* Try compressing the input file at once using mmap. Return Z_OK if | |
389 | * if success, Z_ERRNO otherwise. | |
390 | */ | |
391 | int gz_compress_mmap(in, out) | |
392 | FILE *in; | |
393 | gzFile out; | |
394 | { | |
395 | int len; | |
396 | int err; | |
397 | int ifd = fileno(in); | |
398 | caddr_t buf; /* mmap'ed buffer for the entire input file */ | |
399 | off_t buf_len; /* length of the input file */ | |
400 | struct stat sb; | |
401 | ||
402 | /* Determine the size of the file, needed for mmap: */ | |
403 | if (fstat(ifd, &sb) < 0) return Z_ERRNO; | |
404 | buf_len = sb.st_size; | |
405 | if (buf_len <= 0) return Z_ERRNO; | |
406 | ||
407 | /* Now do the actual mmap: */ | |
408 | buf = mmap((caddr_t) 0, buf_len, PROT_READ, MAP_SHARED, ifd, (off_t)0); | |
409 | if (buf == (caddr_t)(-1)) return Z_ERRNO; | |
410 | ||
411 | /* Compress the whole file at once: */ | |
412 | len = gzwrite(out, (char *)buf, (unsigned)buf_len); | |
413 | ||
414 | if (len != (int)buf_len) error(gzerror(out, &err)); | |
415 | ||
416 | munmap(buf, buf_len); | |
417 | fclose(in); | |
418 | if (gzclose(out) != Z_OK) error("failed gzclose"); | |
419 | return Z_OK; | |
420 | } | |
421 | #endif /* USE_MMAP */ | |
422 | ||
423 | /* =========================================================================== | |
424 | * Uncompress input to output then close both files. | |
425 | */ | |
426 | void gz_uncompress(in, out) | |
427 | gzFile in; | |
428 | FILE *out; | |
429 | { | |
430 | local char buf[BUFLEN]; | |
431 | int len; | |
432 | int err; | |
433 | ||
434 | for (;;) { | |
435 | len = gzread(in, buf, sizeof(buf)); | |
436 | if (len < 0) error (gzerror(in, &err)); | |
437 | if (len == 0) break; | |
438 | ||
439 | if ((int)fwrite(buf, 1, (unsigned)len, out) != len) { | |
440 | error("failed fwrite"); | |
441 | } | |
442 | } | |
443 | if (fclose(out)) error("failed fclose"); | |
444 | ||
445 | if (gzclose(in) != Z_OK) error("failed gzclose"); | |
446 | } | |
447 | ||
448 | ||
449 | /* =========================================================================== | |
450 | * Compress the given file: create a corresponding .gz file and remove the | |
451 | * original. | |
452 | */ | |
453 | void file_compress(file, mode) | |
454 | char *file; | |
455 | char *mode; | |
456 | { | |
457 | local char outfile[MAX_NAME_LEN]; | |
458 | FILE *in; | |
459 | gzFile out; | |
460 | ||
461 | if (strlen(file) + strlen(GZ_SUFFIX) >= sizeof(outfile)) { | |
462 | fprintf(stderr, "%s: filename too long\n", prog); | |
463 | exit(1); | |
464 | } | |
465 | ||
466 | strcpy(outfile, file); | |
467 | strcat(outfile, GZ_SUFFIX); | |
468 | ||
469 | in = fopen(file, "rb"); | |
470 | if (in == NULL) { | |
471 | perror(file); | |
472 | exit(1); | |
473 | } | |
474 | out = gzopen(outfile, mode); | |
475 | if (out == NULL) { | |
476 | fprintf(stderr, "%s: can't gzopen %s\n", prog, outfile); | |
477 | exit(1); | |
478 | } | |
479 | gz_compress(in, out); | |
480 | ||
481 | unlink(file); | |
482 | } | |
483 | ||
484 | ||
485 | /* =========================================================================== | |
486 | * Uncompress the given file and remove the original. | |
487 | */ | |
488 | void file_uncompress(file) | |
489 | char *file; | |
490 | { | |
491 | local char buf[MAX_NAME_LEN]; | |
492 | char *infile, *outfile; | |
493 | FILE *out; | |
494 | gzFile in; | |
495 | size_t len = strlen(file); | |
496 | ||
497 | if (len + strlen(GZ_SUFFIX) >= sizeof(buf)) { | |
498 | fprintf(stderr, "%s: filename too long\n", prog); | |
499 | exit(1); | |
500 | } | |
501 | ||
502 | strcpy(buf, file); | |
503 | ||
504 | if (len > SUFFIX_LEN && strcmp(file+len-SUFFIX_LEN, GZ_SUFFIX) == 0) { | |
505 | infile = file; | |
506 | outfile = buf; | |
507 | outfile[len-3] = '\0'; | |
508 | } else { | |
509 | outfile = file; | |
510 | infile = buf; | |
511 | strcat(infile, GZ_SUFFIX); | |
512 | } | |
513 | in = gzopen(infile, "rb"); | |
514 | if (in == NULL) { | |
515 | fprintf(stderr, "%s: can't gzopen %s\n", prog, infile); | |
516 | exit(1); | |
517 | } | |
518 | out = fopen(outfile, "wb"); | |
519 | if (out == NULL) { | |
520 | perror(file); | |
521 | exit(1); | |
522 | } | |
523 | ||
524 | gz_uncompress(in, out); | |
525 | ||
526 | unlink(infile); | |
527 | } | |
528 | ||
529 | ||
530 | /* =========================================================================== | |
531 | * Usage: minigzip [-c] [-d] [-f] [-h] [-r] [-1 to -9] [files...] | |
532 | * -c : write to standard output | |
533 | * -d : decompress | |
534 | * -f : compress with Z_FILTERED | |
535 | * -h : compress with Z_HUFFMAN_ONLY | |
536 | * -r : compress with Z_RLE | |
537 | * -1 to -9 : compression level | |
538 | */ | |
539 | ||
540 | int main(argc, argv) | |
541 | int argc; | |
542 | char *argv[]; | |
543 | { | |
544 | int copyout = 0; | |
545 | int uncompr = 0; | |
546 | gzFile file; | |
547 | char *bname, outmode[20]; | |
548 | ||
549 | strcpy(outmode, "wb6 "); | |
550 | ||
551 | prog = argv[0]; | |
552 | bname = strrchr(argv[0], '/'); | |
553 | if (bname) | |
554 | bname++; | |
555 | else | |
556 | bname = argv[0]; | |
557 | argc--, argv++; | |
558 | ||
559 | if (!strcmp(bname, "gunzip")) | |
560 | uncompr = 1; | |
561 | else if (!strcmp(bname, "zcat")) | |
562 | copyout = uncompr = 1; | |
563 | ||
564 | while (argc > 0) { | |
565 | if (strcmp(*argv, "-c") == 0) | |
566 | copyout = 1; | |
567 | else if (strcmp(*argv, "-d") == 0) | |
568 | uncompr = 1; | |
569 | else if (strcmp(*argv, "-f") == 0) | |
570 | outmode[3] = 'f'; | |
571 | else if (strcmp(*argv, "-h") == 0) | |
572 | outmode[3] = 'h'; | |
573 | else if (strcmp(*argv, "-r") == 0) | |
574 | outmode[3] = 'R'; | |
575 | else if ((*argv)[0] == '-' && (*argv)[1] >= '1' && (*argv)[1] <= '9' && | |
576 | (*argv)[2] == 0) | |
577 | outmode[2] = (*argv)[1]; | |
578 | else | |
579 | break; | |
580 | argc--, argv++; | |
581 | } | |
582 | if (outmode[3] == ' ') | |
583 | outmode[3] = 0; | |
584 | if (argc == 0) { | |
585 | SET_BINARY_MODE(stdin); | |
586 | SET_BINARY_MODE(stdout); | |
587 | if (uncompr) { | |
588 | file = gzdopen(fileno(stdin), "rb"); | |
589 | if (file == NULL) error("can't gzdopen stdin"); | |
590 | gz_uncompress(file, stdout); | |
591 | } else { | |
592 | file = gzdopen(fileno(stdout), outmode); | |
593 | if (file == NULL) error("can't gzdopen stdout"); | |
594 | gz_compress(stdin, file); | |
595 | } | |
596 | } else { | |
597 | if (copyout) { | |
598 | SET_BINARY_MODE(stdout); | |
599 | } | |
600 | do { | |
601 | if (uncompr) { | |
602 | if (copyout) { | |
603 | file = gzopen(*argv, "rb"); | |
604 | if (file == NULL) | |
605 | fprintf(stderr, "%s: can't gzopen %s\n", prog, *argv); | |
606 | else | |
607 | gz_uncompress(file, stdout); | |
608 | } else { | |
609 | file_uncompress(*argv); | |
610 | } | |
611 | } else { | |
612 | if (copyout) { | |
613 | FILE * in = fopen(*argv, "rb"); | |
614 | ||
615 | if (in == NULL) { | |
616 | perror(*argv); | |
617 | } else { | |
618 | file = gzdopen(fileno(stdout), outmode); | |
619 | if (file == NULL) error("can't gzdopen stdout"); | |
620 | ||
621 | gz_compress(in, file); | |
622 | } | |
623 | ||
624 | } else { | |
625 | file_compress(*argv, outmode); | |
626 | } | |
627 | } | |
628 | } while (argv++, --argc); | |
629 | } | |
630 | return 0; | |
631 | } |