diff options
author | obrien <obrien@FreeBSD.org> | 2004-08-09 08:45:41 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 2004-08-09 08:45:41 +0000 |
commit | bda6cdf5897e5ebed7279aca3ea3387bddcb19b0 (patch) | |
tree | fa3b953aed2a4bff370cfcd813015e532403552e /contrib/file/compress.c | |
parent | f35360c37203a2efe4238a8ec8dd5c45cde0820b (diff) | |
download | FreeBSD-src-bda6cdf5897e5ebed7279aca3ea3387bddcb19b0.zip FreeBSD-src-bda6cdf5897e5ebed7279aca3ea3387bddcb19b0.tar.gz |
Virgin import of Christos Zoulas's FILE 4.10.
*- file is now broken into a library containing and processing the magic
and a consumer binary.
Diffstat (limited to 'contrib/file/compress.c')
-rw-r--r-- | contrib/file/compress.c | 212 |
1 files changed, 143 insertions, 69 deletions
diff --git a/contrib/file/compress.c b/contrib/file/compress.c index 4e1219c..cdee1ce 100644 --- a/contrib/file/compress.c +++ b/contrib/file/compress.c @@ -1,4 +1,36 @@ /* + * Copyright (c) Ian F. Darwin 1986-1995. + * Software written by Ian F. Darwin and others; + * maintained 1995-present by Christos Zoulas and others. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice immediately at the beginning of the file, without modification, + * this list of conditions, and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by Ian F. Darwin and others. + * 4. The name of the author may not be used to endorse or promote products + * derived from this software without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR + * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + */ +/* * compress routines: * zmagic() - returns 0 if not recognized, uncompresses and prints * information if recognized @@ -6,11 +38,15 @@ * using method, return sizeof new */ #include "file.h" +#include "magic.h" +#include <stdio.h> #include <stdlib.h> #ifdef HAVE_UNISTD_H #include <unistd.h> #endif #include <string.h> +#include <errno.h> +#include <sys/types.h> #ifdef HAVE_SYS_WAIT_H #include <sys/wait.h> #endif @@ -19,15 +55,15 @@ #endif #ifndef lint -FILE_RCSID("@(#)$Id: compress.c,v 1.25 2002/07/03 18:26:37 christos Exp $") +FILE_RCSID("@(#)$Id: compress.c,v 1.37 2004/07/24 21:00:56 christos Exp $") #endif -static struct { +private struct { const char *magic; - int maglen; + size_t maglen; const char *const argv[3]; - int silent; + int silent; } compr[] = { { "\037\235", 2, { "gzip", "-cdq", NULL }, 1 }, /* compressed */ /* Uncompress can get stuck; so use gzip first if we have it @@ -41,47 +77,58 @@ static struct { { "BZh", 3, { "bzip2", "-cd", NULL }, 1 }, /* bzip2-ed */ }; -static int ncompr = sizeof(compr) / sizeof(compr[0]); +private int ncompr = sizeof(compr) / sizeof(compr[0]); -static int swrite(int, const void *, size_t); -static int sread(int, void *, size_t); -static int uncompressbuf(int, const unsigned char *, unsigned char **, int); +private ssize_t swrite(int, const void *, size_t); +private ssize_t sread(int, void *, size_t); +private size_t uncompressbuf(struct magic_set *, size_t, const unsigned char *, + unsigned char **, size_t); #ifdef HAVE_LIBZ -static int uncompressgzipped(const unsigned char *, unsigned char **, int); +private size_t uncompressgzipped(struct magic_set *, const unsigned char *, + unsigned char **, size_t); #endif -int -zmagic(const char *fname, unsigned char *buf, int nbytes) +protected int +file_zmagic(struct magic_set *ms, const unsigned char *buf, size_t nbytes) { - unsigned char *newbuf; - int newsize; - int i; + unsigned char *newbuf = NULL; + size_t i, nsz; + int rv = 0; + + if ((ms->flags & MAGIC_COMPRESS) == 0) + return 0; for (i = 0; i < ncompr; i++) { if (nbytes < compr[i].maglen) continue; if (memcmp(buf, compr[i].magic, compr[i].maglen) == 0 && - (newsize = uncompressbuf(i, buf, &newbuf, nbytes)) != 0) { - tryit(fname, newbuf, newsize, 1); - free(newbuf); - printf(" ("); - tryit(fname, buf, nbytes, 0); - printf(")"); - return 1; + (nsz = uncompressbuf(ms, i, buf, &newbuf, nbytes)) != 0) { + ms->flags &= ~MAGIC_COMPRESS; + rv = -1; + if (file_buffer(ms, newbuf, nsz) == -1) + goto error; + if (file_printf(ms, " (") == -1) + goto error; + if (file_buffer(ms, buf, nbytes) == -1) + goto error; + if (file_printf(ms, ")") == -1) + goto error; + rv = 1; + break; } } - - if (i == ncompr) - return 0; - - return 1; +error: + if (newbuf) + free(newbuf); + ms->flags |= MAGIC_COMPRESS; + return rv; } /* * `safe' write for sockets and pipes. */ -static int +private ssize_t swrite(int fd, const void *buf, size_t n) { int rv; @@ -106,7 +153,7 @@ swrite(int fd, const void *buf, size_t n) /* * `safe' read for sockets and pipes. */ -static int +private ssize_t sread(int fd, void *buf, size_t n) { int rv; @@ -129,8 +176,9 @@ sread(int fd, void *buf, size_t n) return rn; } -int -pipe2file(int fd, void *startbuf, size_t nbytes) +protected int +file_pipe2file(struct magic_set *ms, int fd, const void *startbuf, + size_t nbytes) { char buf[4096]; int r, tfd; @@ -151,30 +199,28 @@ pipe2file(int fd, void *startbuf, size_t nbytes) errno = r; #endif if (tfd == -1) { - error("Can't create temporary file for pipe copy (%s)\n", - strerror(errno)); - /*NOTREACHED*/ + file_error(ms, errno, + "cannot create temporary file for pipe copy"); + return -1; } - if (swrite(tfd, startbuf, nbytes) != nbytes) + if (swrite(tfd, startbuf, nbytes) != (ssize_t)nbytes) r = 1; else { while ((r = sread(fd, buf, sizeof(buf))) > 0) - if (swrite(tfd, buf, r) != r) + if (swrite(tfd, buf, (size_t)r) != r) break; } switch (r) { case -1: - error("Error copying from pipe to temp file (%s)\n", - strerror(errno)); - /*NOTREACHED*/ + file_error(ms, errno, "error copying from pipe to temp file"); + return -1; case 0: break; default: - error("Error while writing to temp file (%s)\n", - strerror(errno)); - /*NOTREACHED*/ + file_error(ms, errno, "error while writing to temp file"); + return -1; } /* @@ -183,14 +229,13 @@ pipe2file(int fd, void *startbuf, size_t nbytes) * can still access the phantom inode. */ if ((fd = dup2(tfd, fd)) == -1) { - error("Couldn't dup destcriptor for temp file(%s)\n", - strerror(errno)); - /*NOTREACHED*/ + file_error(ms, errno, "could not dup descriptor for temp file"); + return -1; } (void)close(tfd); if (lseek(fd, (off_t)0, SEEK_SET) == (off_t)-1) { - error("Couldn't seek on temp file (%s)\n", strerror(errno)); - /*NOTREACHED*/ + file_badseek(ms); + return -1; } return fd; } @@ -202,34 +247,42 @@ pipe2file(int fd, void *startbuf, size_t nbytes) #define FNAME (1 << 3) #define FCOMMENT (1 << 4) -static int -uncompressgzipped(const unsigned char *old, unsigned char **newch, int n) +private size_t +uncompressgzipped(struct magic_set *ms, const unsigned char *old, + unsigned char **newch, size_t n) { unsigned char flg = old[3]; - int data_start = 10; + size_t data_start = 10; z_stream z; int rc; - if (flg & FEXTRA) + if (flg & FEXTRA) { + if (data_start+1 >= n) + return 0; data_start += 2 + old[data_start] + old[data_start + 1] * 256; + } if (flg & FNAME) { - while(old[data_start]) + while(data_start < n && old[data_start]) data_start++; data_start++; } if(flg & FCOMMENT) { - while(old[data_start]) + while(data_start < n && old[data_start]) data_start++; data_start++; } if(flg & FHCRC) data_start += 2; + if (data_start >= n) + return 0; if ((*newch = (unsigned char *)malloc(HOWMANY + 1)) == NULL) { return 0; } - z.next_in = (Bytef *)(old + data_start); + /* XXX: const castaway, via strchr */ + z.next_in = (Bytef *)strchr((const char *)old + data_start, + old[data_start]); z.avail_in = n - data_start; z.next_out = *newch; z.avail_out = HOWMANY; @@ -239,17 +292,17 @@ uncompressgzipped(const unsigned char *old, unsigned char **newch, int n) rc = inflateInit2(&z, -15); if (rc != Z_OK) { - (void) fprintf(stderr,"%s: zlib: %s\n", progname, z.msg); + file_error(ms, 0, "zlib: %s", z.msg); return 0; } rc = inflate(&z, Z_SYNC_FLUSH); if (rc != Z_OK && rc != Z_STREAM_END) { - fprintf(stderr,"%s: zlib: %s\n", progname, z.msg); + file_error(ms, 0, "zlib: %s", z.msg); return 0; } - n = z.total_out; + n = (size_t)z.total_out; inflateEnd(&z); /* let's keep the nul-terminate tradition */ @@ -259,23 +312,24 @@ uncompressgzipped(const unsigned char *old, unsigned char **newch, int n) } #endif -static int -uncompressbuf(int method, const unsigned char *old, unsigned char **newch, - int n) +private size_t +uncompressbuf(struct magic_set *ms, size_t method, const unsigned char *old, + unsigned char **newch, size_t n) { int fdin[2], fdout[2]; + int r; /* The buffer is NUL terminated, and we don't need that. */ n--; #ifdef HAVE_LIBZ if (method == 2) - return uncompressgzipped(old,newch,n); + return uncompressgzipped(ms, old, newch, n); #endif if (pipe(fdin) == -1 || pipe(fdout) == -1) { - error("cannot create pipe (%s).\n", strerror(errno)); - /*NOTREACHED*/ + file_error(ms, errno, "cannot create pipe"); + return 0; } switch (fork()) { case 0: /* child */ @@ -296,15 +350,27 @@ uncompressbuf(int method, const unsigned char *old, unsigned char **newch, exit(1); /*NOTREACHED*/ case -1: - error("could not fork (%s).\n", strerror(errno)); - /*NOTREACHED*/ + file_error(ms, errno, "could not fork"); + return 0; default: /* parent */ (void) close(fdin[0]); (void) close(fdout[1]); - if (swrite(fdin[1], old, n) != n) { - n = 0; - goto err; + /* fork again, to avoid blocking because both pipes filled */ + switch (fork()) { + case 0: /* child */ + (void)close(fdout[0]); + if (swrite(fdin[1], old, n) != n) + exit(1); + exit(0); + /*NOTREACHED*/ + + case -1: + exit(1); + /*NOTREACHED*/ + + default: /* parent */ + break; } (void) close(fdin[1]); fdin[1] = -1; @@ -312,10 +378,13 @@ uncompressbuf(int method, const unsigned char *old, unsigned char **newch, n = 0; goto err; } - if ((n = sread(fdout[0], *newch, HOWMANY)) <= 0) { + if ((r = sread(fdout[0], *newch, HOWMANY)) <= 0) { free(*newch); n = 0; + newch[0] = '\0'; goto err; + } else { + n = r; } /* NUL terminate, as every buffer is handled here. */ (*newch)[n++] = '\0'; @@ -323,7 +392,12 @@ err: if (fdin[1] != -1) (void) close(fdin[1]); (void) close(fdout[0]); - (void) wait(NULL); +#ifdef WNOHANG + while (waitpid(-1, NULL, WNOHANG) != -1) + continue; +#else + (void)wait(NULL); +#endif return n; } } |