usr/gzip/zip.c

/* zip.c -- compress files to the gzip or pkzip format
 * Copyright (C) 1992-1993 Jean-loup Gailly
 * This is free software; you can redistribute it and/or modify it under the
 * terms of the GNU General Public License, see the file COPYING.
 */

#ifdef RCSID
static char rcsid[] = "$Id: zip.c,v 1.1 2002/08/18 00:59:21 hpa Exp $";
#endif

#include <ctype.h>
#include <sys/types.h>
#include <unistd.h>
#include <fcntl.h>

#include "tailor.h"
#include "gzip.h"

local ulg crc;       /* crc on uncompressed file data */

/* ===========================================================================
 * Deflate in to out.
 * IN assertions: the input and output buffers are cleared.
 *   The variables time_stamp and save_orig_name are initialized.
 */
int zip(in, out)
    int in, out;            /* input and output file descriptors */
{
    uch  flags = 0;         /* general purpose bit flags */
    ush  attr = 0;          /* ascii/binary flag */
    ush  deflate_flags = 0; /* pkzip -es, -en or -ex equivalent */

    ifd = in;
    ofd = out;
    outcnt = 0;

    /* Write the header to the gzip file. See algorithm.doc for the format */

    method = DEFLATED;
    put_byte(GZIP_MAGIC[0]); /* magic header */
    put_byte(GZIP_MAGIC[1]);
    put_byte(DEFLATED);      /* compression method */

    if (save_orig_name) {
	flags |= ORIG_NAME;
    }
    put_byte(flags);         /* general flags */
    put_long(time_stamp);

    /* Write deflated file to zip file */
    crc = updcrc(0, 0);

    bi_init(out);
    ct_init(&attr, &method);
    lm_init(level, &deflate_flags);

    put_byte((uch)deflate_flags); /* extra flags */
    put_byte(OS_CODE);            /* OS identifier */

    if (save_orig_name) {
	char *p = basename(ifname); /* Don't save the directory part. */
	do {
	    put_char(*p);
	} while (*p++);
    }
    header_bytes = (long)outcnt;

    (void)deflate();

#if !defined(NO_SIZE_CHECK) && !defined(RECORD_IO)
  /* Check input size (but not in VMS -- variable record lengths mess it up)
   * and not on MSDOS -- diet in TSR mode reports an incorrect file size)
   */
    if (ifile_size != -1L && isize != (ulg)ifile_size) {
	Trace((stderr, " actual=%ld, read=%ld ", ifile_size, isize));
	fprintf(stderr, "%s: %s: file size changed while zipping\n",
		progname, ifname);
    }
#endif

    /* Write the crc and uncompressed size */
    put_long(crc);
    put_long(isize);
    header_bytes += 2*sizeof(long);

    flush_outbuf();
    return OK;
}


/* ===========================================================================
 * Read a new buffer from the current input file, perform end-of-line
 * translation, and update the crc and input file size.
 * IN assertion: size >= 2 (for end-of-line translation)
 */
int file_read(buf, size)
    char *buf;
    unsigned size;
{
    unsigned len;

    Assert(insize == 0, "inbuf not empty");

    len = read(ifd, buf, size);
    if (len == (unsigned)(-1) || len == 0) return (int)len;

    crc = updcrc((uch*)buf, len);
    isize += (ulg)len;
    return (int)len;
}
1	niro	532	/* zip.c -- compress files to the gzip or pkzip format
2			* Copyright (C) 1992-1993 Jean-loup Gailly
3			* This is free software; you can redistribute it and/or modify it under the
4			* terms of the GNU General Public License, see the file COPYING.
5			*/
6
7			#ifdef RCSID
8	niro	815	static char rcsid[] = "$Id: zip.c,v 1.1 2002/08/18 00:59:21 hpa Exp $";
9	niro	532	#endif
10
11			#include <ctype.h>
12			#include <sys/types.h>
13			#include <unistd.h>
14			#include <fcntl.h>
15
16			#include "tailor.h"
17			#include "gzip.h"
18
19			local ulg crc; /* crc on uncompressed file data */
20
21			/* ===========================================================================
22			* Deflate in to out.
23			* IN assertions: the input and output buffers are cleared.
24			* The variables time_stamp and save_orig_name are initialized.
25			*/
26			int zip(in, out)
27			int in, out; /* input and output file descriptors */
28			{
29			uch flags = 0; /* general purpose bit flags */
30			ush attr = 0; /* ascii/binary flag */
31			ush deflate_flags = 0; /* pkzip -es, -en or -ex equivalent */
32
33			ifd = in;
34			ofd = out;
35			outcnt = 0;
36
37			/* Write the header to the gzip file. See algorithm.doc for the format */
38
39			method = DEFLATED;
40			put_byte(GZIP_MAGIC[0]); /* magic header */
41			put_byte(GZIP_MAGIC[1]);
42			put_byte(DEFLATED); /* compression method */
43
44			if (save_orig_name) {
45			flags \|= ORIG_NAME;
46			}
47			put_byte(flags); /* general flags */
48			put_long(time_stamp);
49
50			/* Write deflated file to zip file */
51			crc = updcrc(0, 0);
52
53			bi_init(out);
54			ct_init(&attr, &method);
55			lm_init(level, &deflate_flags);
56
57			put_byte((uch)deflate_flags); /* extra flags */
58			put_byte(OS_CODE); /* OS identifier */
59
60			if (save_orig_name) {
61			char p = basename(ifname); / Don't save the directory part. */
62			do {
63			put_char(*p);
64			} while (*p++);
65			}
66			header_bytes = (long)outcnt;
67
68			(void)deflate();
69
70			#if !defined(NO_SIZE_CHECK) && !defined(RECORD_IO)
71			/* Check input size (but not in VMS -- variable record lengths mess it up)
72			* and not on MSDOS -- diet in TSR mode reports an incorrect file size)
73			*/
74			if (ifile_size != -1L && isize != (ulg)ifile_size) {
75			Trace((stderr, " actual=%ld, read=%ld ", ifile_size, isize));
76			fprintf(stderr, "%s: %s: file size changed while zipping\n",
77			progname, ifname);
78			}
79			#endif
80
81			/* Write the crc and uncompressed size */
82			put_long(crc);
83			put_long(isize);
84			header_bytes += 2*sizeof(long);
85
86			flush_outbuf();
87			return OK;
88			}
89
90
91			/* ===========================================================================
92			* Read a new buffer from the current input file, perform end-of-line
93			* translation, and update the crc and input file size.
94			* IN assertion: size >= 2 (for end-of-line translation)
95			*/
96			int file_read(buf, size)
97			char *buf;
98			unsigned size;
99			{
100			unsigned len;
101
102			Assert(insize == 0, "inbuf not empty");
103
104			len = read(ifd, buf, size);
105			if (len == (unsigned)(-1) \|\| len == 0) return (int)len;
106
107			crc = updcrc((uch*)buf, len);
108			isize += (ulg)len;
109			return (int)len;
110			}