sl@0: /* minigzip.c -- simulate gzip using the zlib compression library sl@0: * Copyright (C) 1995-1998 Jean-loup Gailly. sl@0: * For conditions of distribution and use, see copyright notice in zlib.h sl@0: */ sl@0: sl@0: /* sl@0: * minigzip is a minimal implementation of the gzip utility. This is sl@0: * only an example of using zlib and isn't meant to replace the sl@0: * full-featured gzip. No attempt is made to deal with file systems sl@0: * limiting names to 14 or 8+3 characters, etc... Error checking is sl@0: * very limited. So use minigzip only for testing; use gzip for the sl@0: * real thing. On MSDOS, use only on file names without extension sl@0: * or in pipe mode. sl@0: */ sl@0: sl@0: /* @(#) $Id$ */ sl@0: sl@0: #include sl@0: #include "zlib.h" sl@0: sl@0: #ifdef STDC sl@0: # include sl@0: # include sl@0: #else sl@0: extern void exit OF((int)); sl@0: #endif sl@0: sl@0: #ifdef USE_MMAP sl@0: # include sl@0: # include sl@0: # include sl@0: #endif sl@0: sl@0: #if defined(MSDOS) || defined(OS2) || defined(WIN32) sl@0: # include sl@0: # include sl@0: # define SET_BINARY_MODE(file) setmode(fileno(file), O_BINARY) sl@0: #else sl@0: # define SET_BINARY_MODE(file) sl@0: #endif sl@0: sl@0: #ifdef VMS sl@0: # define unlink delete sl@0: # define GZ_SUFFIX "-gz" sl@0: #endif sl@0: #ifdef RISCOS sl@0: # define unlink remove sl@0: # define GZ_SUFFIX "-gz" sl@0: # define fileno(file) file->__file sl@0: #endif sl@0: #if defined(__MWERKS__) && __dest_os != __be_os && __dest_os != __win32_os sl@0: # include /* for fileno */ sl@0: #endif sl@0: sl@0: #ifndef WIN32 /* unlink already in stdio.h for WIN32 */ sl@0: extern int unlink OF((const char *)); sl@0: #endif sl@0: sl@0: #ifndef GZ_SUFFIX sl@0: # define GZ_SUFFIX ".gz" sl@0: #endif sl@0: #define SUFFIX_LEN (sizeof(GZ_SUFFIX)-1) sl@0: sl@0: #define BUFLEN 16384 sl@0: #define MAX_NAME_LEN 1024 sl@0: sl@0: #ifdef MAXSEG_64K sl@0: # define local static sl@0: /* Needed for systems with limitation on stack size. */ sl@0: #else sl@0: # define local sl@0: #endif sl@0: sl@0: char *prog; sl@0: sl@0: void error OF((const char *msg)); sl@0: void gz_compress OF((FILE *in, gzFile out)); sl@0: #ifdef USE_MMAP sl@0: int gz_compress_mmap OF((FILE *in, gzFile out)); sl@0: #endif sl@0: void gz_uncompress OF((gzFile in, FILE *out)); sl@0: void file_compress OF((char *file, char *mode)); sl@0: void file_uncompress OF((char *file)); sl@0: int main OF((int argc, char *argv[])); sl@0: sl@0: /* =========================================================================== sl@0: * Display error message and exit sl@0: */ sl@0: void error(msg) sl@0: const char *msg; sl@0: { sl@0: fprintf(stderr, "%s: %s\n", prog, msg); sl@0: exit(1); sl@0: } sl@0: sl@0: /* =========================================================================== sl@0: * Compress input to output then close both files. sl@0: */ sl@0: sl@0: void gz_compress(in, out) sl@0: FILE *in; sl@0: gzFile out; sl@0: { sl@0: local char buf[BUFLEN]; sl@0: int len; sl@0: int err; sl@0: sl@0: #ifdef USE_MMAP sl@0: /* Try first compressing with mmap. If mmap fails (minigzip used in a sl@0: * pipe), use the normal fread loop. sl@0: */ sl@0: if (gz_compress_mmap(in, out) == Z_OK) return; sl@0: #endif sl@0: for (;;) { sl@0: len = fread(buf, 1, sizeof(buf), in); sl@0: if (ferror(in)) { sl@0: perror("fread"); sl@0: exit(1); sl@0: } sl@0: if (len == 0) break; sl@0: sl@0: if (gzwrite(out, buf, (unsigned)len) != len) error(gzerror(out, &err)); sl@0: } sl@0: fclose(in); sl@0: if (gzclose(out) != Z_OK) error("failed gzclose"); sl@0: } sl@0: sl@0: #ifdef USE_MMAP /* MMAP version, Miguel Albrecht */ sl@0: sl@0: /* Try compressing the input file at once using mmap. Return Z_OK if sl@0: * if success, Z_ERRNO otherwise. sl@0: */ sl@0: int gz_compress_mmap(in, out) sl@0: FILE *in; sl@0: gzFile out; sl@0: { sl@0: int len; sl@0: int err; sl@0: int ifd = fileno(in); sl@0: caddr_t buf; /* mmap'ed buffer for the entire input file */ sl@0: off_t buf_len; /* length of the input file */ sl@0: struct stat sb; sl@0: sl@0: /* Determine the size of the file, needed for mmap: */ sl@0: if (fstat(ifd, &sb) < 0) return Z_ERRNO; sl@0: buf_len = sb.st_size; sl@0: if (buf_len <= 0) return Z_ERRNO; sl@0: sl@0: /* Now do the actual mmap: */ sl@0: buf = mmap((caddr_t) 0, buf_len, PROT_READ, MAP_SHARED, ifd, (off_t)0); sl@0: if (buf == (caddr_t)(-1)) return Z_ERRNO; sl@0: sl@0: /* Compress the whole file at once: */ sl@0: len = gzwrite(out, (char *)buf, (unsigned)buf_len); sl@0: sl@0: if (len != (int)buf_len) error(gzerror(out, &err)); sl@0: sl@0: munmap(buf, buf_len); sl@0: fclose(in); sl@0: if (gzclose(out) != Z_OK) error("failed gzclose"); sl@0: return Z_OK; sl@0: } sl@0: #endif /* USE_MMAP */ sl@0: sl@0: /* =========================================================================== sl@0: * Uncompress input to output then close both files. sl@0: */ sl@0: void gz_uncompress(in, out) sl@0: gzFile in; sl@0: FILE *out; sl@0: { sl@0: local char buf[BUFLEN]; sl@0: int len; sl@0: int err; sl@0: sl@0: for (;;) { sl@0: len = gzread(in, buf, sizeof(buf)); sl@0: if (len < 0) error (gzerror(in, &err)); sl@0: if (len == 0) break; sl@0: sl@0: if ((int)fwrite(buf, 1, (unsigned)len, out) != len) { sl@0: error("failed fwrite"); sl@0: } sl@0: } sl@0: if (fclose(out)) error("failed fclose"); sl@0: sl@0: if (gzclose(in) != Z_OK) error("failed gzclose"); sl@0: } sl@0: sl@0: sl@0: /* =========================================================================== sl@0: * Compress the given file: create a corresponding .gz file and remove the sl@0: * original. sl@0: */ sl@0: void file_compress(file, mode) sl@0: char *file; sl@0: char *mode; sl@0: { sl@0: local char outfile[MAX_NAME_LEN]; sl@0: FILE *in; sl@0: gzFile out; sl@0: sl@0: strcpy(outfile, file); sl@0: strcat(outfile, GZ_SUFFIX); sl@0: sl@0: in = fopen(file, "rb"); sl@0: if (in == NULL) { sl@0: perror(file); sl@0: exit(1); sl@0: } sl@0: out = gzopen(outfile, mode); sl@0: if (out == NULL) { sl@0: fprintf(stderr, "%s: can't gzopen %s\n", prog, outfile); sl@0: exit(1); sl@0: } sl@0: gz_compress(in, out); sl@0: sl@0: unlink(file); sl@0: } sl@0: sl@0: sl@0: /* =========================================================================== sl@0: * Uncompress the given file and remove the original. sl@0: */ sl@0: void file_uncompress(file) sl@0: char *file; sl@0: { sl@0: local char buf[MAX_NAME_LEN]; sl@0: char *infile, *outfile; sl@0: FILE *out; sl@0: gzFile in; sl@0: int len = strlen(file); sl@0: sl@0: strcpy(buf, file); sl@0: sl@0: if (len > SUFFIX_LEN && strcmp(file+len-SUFFIX_LEN, GZ_SUFFIX) == 0) { sl@0: infile = file; sl@0: outfile = buf; sl@0: outfile[len-3] = '\0'; sl@0: } else { sl@0: outfile = file; sl@0: infile = buf; sl@0: strcat(infile, GZ_SUFFIX); sl@0: } sl@0: in = gzopen(infile, "rb"); sl@0: if (in == NULL) { sl@0: fprintf(stderr, "%s: can't gzopen %s\n", prog, infile); sl@0: exit(1); sl@0: } sl@0: out = fopen(outfile, "wb"); sl@0: if (out == NULL) { sl@0: perror(file); sl@0: exit(1); sl@0: } sl@0: sl@0: gz_uncompress(in, out); sl@0: sl@0: unlink(infile); sl@0: } sl@0: sl@0: sl@0: /* =========================================================================== sl@0: * Usage: minigzip [-d] [-f] [-h] [-1 to -9] [files...] sl@0: * -d : decompress sl@0: * -f : compress with Z_FILTERED sl@0: * -h : compress with Z_HUFFMAN_ONLY sl@0: * -1 to -9 : compression level sl@0: */ sl@0: sl@0: int main(argc, argv) sl@0: int argc; sl@0: char *argv[]; sl@0: { sl@0: int uncompr = 0; sl@0: gzFile file; sl@0: char outmode[20]; sl@0: sl@0: strcpy(outmode, "wb6 "); sl@0: sl@0: prog = argv[0]; sl@0: argc--, argv++; sl@0: sl@0: while (argc > 0) { sl@0: if (strcmp(*argv, "-d") == 0) sl@0: uncompr = 1; sl@0: else if (strcmp(*argv, "-f") == 0) sl@0: outmode[3] = 'f'; sl@0: else if (strcmp(*argv, "-h") == 0) sl@0: outmode[3] = 'h'; sl@0: else if ((*argv)[0] == '-' && (*argv)[1] >= '1' && (*argv)[1] <= '9' && sl@0: (*argv)[2] == 0) sl@0: outmode[2] = (*argv)[1]; sl@0: else sl@0: break; sl@0: argc--, argv++; sl@0: } sl@0: if (argc == 0) { sl@0: SET_BINARY_MODE(stdin); sl@0: SET_BINARY_MODE(stdout); sl@0: if (uncompr) { sl@0: file = gzdopen(fileno(stdin), "rb"); sl@0: if (file == NULL) error("can't gzdopen stdin"); sl@0: gz_uncompress(file, stdout); sl@0: } else { sl@0: file = gzdopen(fileno(stdout), outmode); sl@0: if (file == NULL) error("can't gzdopen stdout"); sl@0: gz_compress(stdin, file); sl@0: } sl@0: } else { sl@0: do { sl@0: if (uncompr) { sl@0: file_uncompress(*argv); sl@0: } else { sl@0: file_compress(*argv, outmode); sl@0: } sl@0: } while (argv++, --argc); sl@0: } sl@0: exit(0); sl@0: return 0; /* to avoid warning */ sl@0: }