CbC/CbC_gcc: zlib/examples/gzappend.c annotate

author	kent <kent@cr.ie.u-ryukyu.ac.jp>
date	Sun, 07 Feb 2010 18:27:48 +0900
parents
children	04ced10e8804

rev	line source
51 ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1 /* gzappend -- command to append to a gzip file
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	2
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3 Copyright (C) 2003 Mark Adler, all rights reserved
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4 version 1.1, 4 Nov 2003
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 This software is provided 'as-is', without any express or implied
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7 warranty. In no event will the author be held liable for any damages
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8 arising from the use of this software.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10 Permission is granted to anyone to use this software for any purpose,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11 including commercial applications, and to alter it and redistribute it
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12 freely, subject to the following restrictions:
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14 1. The origin of this software must not be misrepresented; you must not
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15 claim that you wrote the original software. If you use this software
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16 in a product, an acknowledgment in the product documentation would be
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17 appreciated but is not required.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 2. Altered source versions must be plainly marked as such, and must not be
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19 misrepresented as being the original software.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20 3. This notice may not be removed or altered from any source distribution.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 Mark Adler madler@alumni.caltech.edu
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23 */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	25 /*
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	26 * Change history:
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	27 *
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 * 1.0 19 Oct 2003 - First version
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	29 * 1.1 4 Nov 2003 - Expand and clarify some comments and notes
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30 * - Add version and copyright to help
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	31 * - Send help to stdout instead of stderr
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	32 * - Add some preemptive typecasts
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	33 * - Add L to constants in lseek() calls
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34 * - Remove some debugging information in error messages
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35 * - Use new data_type definition for zlib 1.2.1
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	36 * - Simplfy and unify file operations
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	37 * - Finish off gzip file in gztack()
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	38 * - Use deflatePrime() instead of adding empty blocks
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	39 * - Keep gzip file clean on appended file read errors
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	40 * - Use in-place rotate instead of auxiliary buffer
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	41 * (Why you ask? Because it was fun to write!)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	42 */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	43
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	44 /*
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	45 gzappend takes a gzip file and appends to it, compressing files from the
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 command line or data from stdin. The gzip file is written to directly, to
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	47 avoid copying that file, in case it's large. Note that this results in the
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 unfriendly behavior that if gzappend fails, the gzip file is corrupted.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	50 This program was written to illustrate the use of the new Z_BLOCK option of
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51 zlib 1.2.x's inflate() function. This option returns from inflate() at each
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52 block boundary to facilitate locating and modifying the last block bit at
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53 the start of the final deflate block. Also whether using Z_BLOCK or not,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 another required feature of zlib 1.2.x is that inflate() now provides the
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 number of unusued bits in the last input byte used. gzappend will not work
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56 with versions of zlib earlier than 1.2.1.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 gzappend first decompresses the gzip file internally, discarding all but
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59 the last 32K of uncompressed data, and noting the location of the last block
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60 bit and the number of unused bits in the last byte of the compressed data.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 The gzip trailer containing the CRC-32 and length of the uncompressed data
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 is verified. This trailer will be later overwritten.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 Then the last block bit is cleared by seeking back in the file and rewriting
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65 the byte that contains it. Seeking forward, the last byte of the compressed
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66 data is saved along with the number of unused bits to initialize deflate.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68 A deflate process is initialized, using the last 32K of the uncompressed
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 data from the gzip file to initialize the dictionary. If the total
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 uncompressed data was less than 32K, then all of it is used to initialize
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71 the dictionary. The deflate output bit buffer is also initialized with the
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 last bits from the original deflate stream. From here on, the data to
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 append is simply compressed using deflate, and written to the gzip file.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	74 When that is complete, the new CRC-32 and uncompressed length are written
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75 as the trailer of the gzip file.
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76 */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 #include <stdio.h>
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79 #include <stdlib.h>
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80 #include <string.h>
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81 #include <fcntl.h>
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82 #include <unistd.h>
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 #include "zlib.h"
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85 #define local static
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 #define LGCHUNK 14
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 #define CHUNK (1U << LGCHUNK)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88 #define DSIZE 32768U
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90 /* print an error message and terminate with extreme prejudice */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 local void bye(char msg1, char msg2)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 fprintf(stderr, "gzappend error: %s%s\n", msg1, msg2);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94 exit(1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97 /* return the greatest common divisor of a and b using Euclid's algorithm,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 modified to be fast when one argument much greater than the other, and
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99 coded to avoid unnecessary swapping */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	100 local unsigned gcd(unsigned a, unsigned b)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102 unsigned c;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 while (a && b)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105 if (a > b) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 c = b;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	107 while (a - c >= c)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 c <<= 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	109 a -= c;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 else {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 c = a;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113 while (b - c >= c)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 c <<= 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115 b -= c;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 return a + b;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	119
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120 /* rotate list[0..len-1] left by rot positions, in place */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121 local void rotate(unsigned char *list, unsigned len, unsigned rot)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123 unsigned char tmp;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124 unsigned cycles;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 unsigned char start, last, to, from;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127 /* normalize rot and handle degenerate cases */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 if (len < 2) return;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 if (rot >= len) rot %= len;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 if (rot == 0) return;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 /* pointer to last entry in list */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133 last = list + (len - 1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	134
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	135 /* do simple left shift by one */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	136 if (rot == 1) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	137 tmp = *list;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	138 memcpy(list, list + 1, len - 1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	139 *last = tmp;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 return;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 /* do simple right shift by one */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	144 if (rot == len - 1) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	145 tmp = *last;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	146 memmove(list + 1, list, len - 1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147 *list = tmp;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148 return;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	150
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151 /* otherwise do rotate as a set of cycles in place */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 cycles = gcd(len, rot); /* number of cycles */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153 do {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154 start = from = list + cycles; /* start index is arbitrary */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 tmp = from; / save entry to be overwritten */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156 for (;;) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157 to = from; /* next step in cycle */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 from += rot; /* go right rot positions */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	159 if (from > last) from -= len; /* (pointer better not wrap) */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	160 if (from == start) break; /* all but one shifted */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	161 to = from; /* shift left */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	162 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	163 to = tmp; / complete the circle */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164 } while (--cycles);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	167 /* structure for gzip file read operations */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	168 typedef struct {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 int fd; /* file descriptor */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 int size; /* 1 << size is bytes in buf */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171 unsigned left; /* bytes available at next */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172 unsigned char buf; / buffer */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	173 unsigned char next; / next byte in buffer */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	174 char name; / file name for error messages */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	175 } file;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 /* reload buffer */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	178 local int readin(file *in)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	179 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	180 int len;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	181
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	182 len = read(in->fd, in->buf, 1 << in->size);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 if (len == -1) bye("error reading ", in->name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 in->left = (unsigned)len;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 in->next = in->buf;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	186 return len;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	187 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	188
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	189 /* read from file in, exit if end-of-file */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	190 local int readmore(file *in)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	191 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	192 if (readin(in) == 0) bye("unexpected end of ", in->name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	193 return 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	194 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	195
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	196 #define read1(in) (in->left == 0 ? readmore(in) : 0, \
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	197 in->left--, *(in->next)++)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	198
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	199 /* skip over n bytes of in */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 local void skip(file *in, unsigned n)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202 unsigned bypass;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	203
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	204 if (n > in->left) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205 n -= in->left;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	206 bypass = n & ~((1U << in->size) - 1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207 if (bypass) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208 if (lseek(in->fd, (off_t)bypass, SEEK_CUR) == -1)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	209 bye("seeking ", in->name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	210 n -= bypass;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	211 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212 readmore(in);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	213 if (n > in->left)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	214 bye("unexpected end of ", in->name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 in->left -= n;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	217 in->next += n;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	218 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	219
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220 /* read a four-byte unsigned integer, little-endian, from in */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 unsigned long read4(file *in)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	223 unsigned long val;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225 val = read1(in);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	226 val += (unsigned)read1(in) << 8;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227 val += (unsigned long)read1(in) << 16;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 val += (unsigned long)read1(in) << 24;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	229 return val;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	230 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	231
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232 /* skip over gzip header */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	233 local void gzheader(file *in)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	234 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	235 int flags;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	236 unsigned n;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	237
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	238 if (read1(in) != 31 \|\| read1(in) != 139) bye(in->name, " not a gzip file");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	239 if (read1(in) != 8) bye("unknown compression method in", in->name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	240 flags = read1(in);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	241 if (flags & 0xe0) bye("unknown header flags set in", in->name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	242 skip(in, 6);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	243 if (flags & 4) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	244 n = read1(in);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	245 n += (unsigned)(read1(in)) << 8;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	246 skip(in, n);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	247 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	248 if (flags & 8) while (read1(in) != 0) ;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	249 if (flags & 16) while (read1(in) != 0) ;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	250 if (flags & 2) skip(in, 2);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	251 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	252
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	253 /* decompress gzip file "name", return strm with a deflate stream ready to
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	254 continue compression of the data in the gzip file, and return a file
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	255 descriptor pointing to where to write the compressed data -- the deflate
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	256 stream is initialized to compress using level "level" */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	257 local int gzscan(char name, z_stream strm, int level)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	258 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	259 int ret, lastbit, left, full;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	260 unsigned have;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	261 unsigned long crc, tot;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	262 unsigned char *window;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	263 off_t lastoff, end;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	264 file gz;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	265
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	266 /* open gzip file */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	267 gz.name = name;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	268 gz.fd = open(name, O_RDWR, 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	269 if (gz.fd == -1) bye("cannot open ", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	270 gz.buf = malloc(CHUNK);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	271 if (gz.buf == NULL) bye("out of memory", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	272 gz.size = LGCHUNK;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	273 gz.left = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	274
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	275 /* skip gzip header */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	276 gzheader(&gz);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	277
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	278 /* prepare to decompress */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	279 window = malloc(DSIZE);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	280 if (window == NULL) bye("out of memory", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	281 strm->zalloc = Z_NULL;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	282 strm->zfree = Z_NULL;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	283 strm->opaque = Z_NULL;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	284 ret = inflateInit2(strm, -15);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	285 if (ret != Z_OK) bye("out of memory", " or library mismatch");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	286
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	287 /* decompress the deflate stream, saving append information */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	288 lastbit = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	289 lastoff = lseek(gz.fd, 0L, SEEK_CUR) - gz.left;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	290 left = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	291 strm->avail_in = gz.left;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	292 strm->next_in = gz.next;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	293 crc = crc32(0L, Z_NULL, 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	294 have = full = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	295 do {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	296 /* if needed, get more input */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	297 if (strm->avail_in == 0) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	298 readmore(&gz);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	299 strm->avail_in = gz.left;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	300 strm->next_in = gz.next;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	301 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	302
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	303 /* set up output to next available section of sliding window */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	304 strm->avail_out = DSIZE - have;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	305 strm->next_out = window + have;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	306
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	307 /* inflate and check for errors */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	308 ret = inflate(strm, Z_BLOCK);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	309 if (ret == Z_STREAM_ERROR) bye("internal stream error!", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	310 if (ret == Z_MEM_ERROR) bye("out of memory", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	311 if (ret == Z_DATA_ERROR)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	312 bye("invalid compressed data--format violated in", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	313
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	314 /* update crc and sliding window pointer */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	315 crc = crc32(crc, window + have, DSIZE - have - strm->avail_out);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	316 if (strm->avail_out)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	317 have = DSIZE - strm->avail_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	318 else {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	319 have = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	320 full = 1;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	321 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	322
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	323 /* process end of block */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	324 if (strm->data_type & 128) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	325 if (strm->data_type & 64)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	326 left = strm->data_type & 0x1f;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	327 else {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	328 lastbit = strm->data_type & 0x1f;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	329 lastoff = lseek(gz.fd, 0L, SEEK_CUR) - strm->avail_in;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	330 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	331 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	332 } while (ret != Z_STREAM_END);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	333 inflateEnd(strm);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	334 gz.left = strm->avail_in;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	335 gz.next = strm->next_in;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	336
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	337 /* save the location of the end of the compressed data */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	338 end = lseek(gz.fd, 0L, SEEK_CUR) - gz.left;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	339
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	340 /* check gzip trailer and save total for deflate */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	341 if (crc != read4(&gz))
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	342 bye("invalid compressed data--crc mismatch in ", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	343 tot = strm->total_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	344 if ((tot & 0xffffffffUL) != read4(&gz))
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	345 bye("invalid compressed data--length mismatch in", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	346
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	347 /* if not at end of file, warn */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	348 if (gz.left \|\| readin(&gz))
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	349 fprintf(stderr,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	350 "gzappend warning: junk at end of gzip file overwritten\n");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	351
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	352 /* clear last block bit */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	353 lseek(gz.fd, lastoff - (lastbit != 0), SEEK_SET);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	354 if (read(gz.fd, gz.buf, 1) != 1) bye("reading after seek on ", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	355 gz.buf = (unsigned char)(gz.buf ^ (1 << ((8 - lastbit) & 7)));
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	356 lseek(gz.fd, -1L, SEEK_CUR);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	357 if (write(gz.fd, gz.buf, 1) != 1) bye("writing after seek to ", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	358
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	359 /* if window wrapped, build dictionary from window by rotating */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	360 if (full) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	361 rotate(window, DSIZE, have);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	362 have = DSIZE;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	363 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	364
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	365 /* set up deflate stream with window, crc, total_in, and leftover bits */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	366 ret = deflateInit2(strm, level, Z_DEFLATED, -15, 8, Z_DEFAULT_STRATEGY);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	367 if (ret != Z_OK) bye("out of memory", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	368 deflateSetDictionary(strm, window, have);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	369 strm->adler = crc;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	370 strm->total_in = tot;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	371 if (left) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	372 lseek(gz.fd, --end, SEEK_SET);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	373 if (read(gz.fd, gz.buf, 1) != 1) bye("reading after seek on ", name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	374 deflatePrime(strm, 8 - left, *gz.buf);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	375 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	376 lseek(gz.fd, end, SEEK_SET);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	377
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	378 /* clean up and return */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	379 free(window);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	380 free(gz.buf);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	381 return gz.fd;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	382 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	383
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	384 /* append file "name" to gzip file gd using deflate stream strm -- if last
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	385 is true, then finish off the deflate stream at the end */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	386 local void gztack(char name, int gd, z_stream strm, int last)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	387 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	388 int fd, len, ret;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	389 unsigned left;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	390 unsigned char in, out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	391
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	392 /* open file to compress and append */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	393 fd = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	394 if (name != NULL) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	395 fd = open(name, O_RDONLY, 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	396 if (fd == -1)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	397 fprintf(stderr, "gzappend warning: %s not found, skipping ...\n",
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	398 name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	399 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	400
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	401 /* allocate buffers */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	402 in = fd == -1 ? NULL : malloc(CHUNK);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	403 out = malloc(CHUNK);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	404 if (out == NULL) bye("out of memory", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	405
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	406 /* compress input file and append to gzip file */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	407 do {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	408 /* get more input */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	409 len = fd == -1 ? 0 : read(fd, in, CHUNK);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	410 if (len == -1) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	411 fprintf(stderr,
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	412 "gzappend warning: error reading %s, skipping rest ...\n",
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	413 name);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	414 len = 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	415 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	416 strm->avail_in = (unsigned)len;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	417 strm->next_in = in;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	418 if (len) strm->adler = crc32(strm->adler, in, (unsigned)len);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	419
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	420 /* compress and write all available output */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	421 do {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	422 strm->avail_out = CHUNK;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	423 strm->next_out = out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	424 ret = deflate(strm, last && len == 0 ? Z_FINISH : Z_NO_FLUSH);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	425 left = CHUNK - strm->avail_out;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	426 while (left) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	427 len = write(gd, out + CHUNK - strm->avail_out - left, left);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	428 if (len == -1) bye("writing gzip file", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	429 left -= (unsigned)len;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	430 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	431 } while (strm->avail_out == 0 && ret != Z_STREAM_END);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	432 } while (len != 0);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	433
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	434 /* write trailer after last entry */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	435 if (last) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	436 deflateEnd(strm);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	437 out[0] = (unsigned char)(strm->adler);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	438 out[1] = (unsigned char)(strm->adler >> 8);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	439 out[2] = (unsigned char)(strm->adler >> 16);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	440 out[3] = (unsigned char)(strm->adler >> 24);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	441 out[4] = (unsigned char)(strm->total_in);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	442 out[5] = (unsigned char)(strm->total_in >> 8);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	443 out[6] = (unsigned char)(strm->total_in >> 16);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	444 out[7] = (unsigned char)(strm->total_in >> 24);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	445 len = 8;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	446 do {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	447 ret = write(gd, out + 8 - len, len);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	448 if (ret == -1) bye("writing gzip file", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	449 len -= ret;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	450 } while (len);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	451 close(gd);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	452 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	453
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	454 /* clean up and return */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	455 free(out);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	456 if (in != NULL) free(in);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	457 if (fd > 0) close(fd);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	458 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	459
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	460 /* process the compression level option if present, scan the gzip file, and
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	461 append the specified files, or append the data from stdin if no other file
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	462 names are provided on the command line -- the gzip file must be writable
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	463 and seekable */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	464 int main(int argc, char **argv)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	465 {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	466 int gd, level;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	467 z_stream strm;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	468
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	469 /* ignore command name */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	470 argv++;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	471
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	472 /* provide usage if no arguments */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	473 if (*argv == NULL) {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	474 printf("gzappend 1.1 (4 Nov 2003) Copyright (C) 2003 Mark Adler\n");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	475 printf(
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	476 "usage: gzappend [-level] file.gz [ addthis [ andthis ... ]]\n");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	477 return 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	478 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	479
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	480 /* set compression level */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	481 level = Z_DEFAULT_COMPRESSION;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	482 if (argv[0][0] == '-') {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	483 if (argv[0][1] < '0' \|\| argv[0][1] > '9' \|\| argv[0][2] != 0)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	484 bye("invalid compression level", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	485 level = argv[0][1] - '0';
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	486 if (*++argv == NULL) bye("no gzip file name after options", "");
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	487 }
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	488
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	489 /* prepare to append to gzip file */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	490 gd = gzscan(*argv++, &strm, level);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	491
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	492 /* append files on command line, or from stdin if none */
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	493 if (*argv == NULL)
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	494 gztack(NULL, gd, &strm, 1);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	495 else
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	496 do {
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	497 gztack(*argv, gd, &strm, argv[1] == NULL);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	498 } while (*++argv != NULL);
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	499 return 0;
ae3a4bfb450b add some files of version 4.4.3 that have been forgotten. kent <kent@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	500 }

51

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

1 /* gzappend -- command to append to a gzip file

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

2

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

4 version 1.1, 4 Nov 2003

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

5

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

6 This software is provided 'as-is', without any express or implied

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

7 warranty. In no event will the author be held liable for any damages

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

8 arising from the use of this software.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

9

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

10 Permission is granted to anyone to use this software for any purpose,

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

11 including commercial applications, and to alter it and redistribute it

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

12 freely, subject to the following restrictions:

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

13

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

14 1. The origin of this software must not be misrepresented; you must not

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

15 claim that you wrote the original software. If you use this software

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

16 in a product, an acknowledgment in the product documentation would be

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

17 appreciated but is not required.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

18 2. Altered source versions must be plainly marked as such, and must not be

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

19 misrepresented as being the original software.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

20 3. This notice may not be removed or altered from any source distribution.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

21

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

22 Mark Adler madler@alumni.caltech.edu

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

23 */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

24

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

25 /*

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

26 * Change history:

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

27 *

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

28 * 1.0 19 Oct 2003 - First version

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

29 * 1.1 4 Nov 2003 - Expand and clarify some comments and notes

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

30 * - Add version and copyright to help

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

31 * - Send help to stdout instead of stderr

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

32 * - Add some preemptive typecasts

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

33 * - Add L to constants in lseek() calls

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

34 * - Remove some debugging information in error messages

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

35 * - Use new data_type definition for zlib 1.2.1

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

36 * - Simplfy and unify file operations

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

37 * - Finish off gzip file in gztack()

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

38 * - Use deflatePrime() instead of adding empty blocks

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

39 * - Keep gzip file clean on appended file read errors

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

40 * - Use in-place rotate instead of auxiliary buffer

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

41 * (Why you ask? Because it was fun to write!)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

42 */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

43

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

44 /*

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

45 gzappend takes a gzip file and appends to it, compressing files from the

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

46 command line or data from stdin. The gzip file is written to directly, to

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

47 avoid copying that file, in case it's large. Note that this results in the

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

48 unfriendly behavior that if gzappend fails, the gzip file is corrupted.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

49

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

50 This program was written to illustrate the use of the new Z_BLOCK option of

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

51 zlib 1.2.x's inflate() function. This option returns from inflate() at each

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

52 block boundary to facilitate locating and modifying the last block bit at

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

53 the start of the final deflate block. Also whether using Z_BLOCK or not,

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

54 another required feature of zlib 1.2.x is that inflate() now provides the

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

55 number of unusued bits in the last input byte used. gzappend will not work

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

56 with versions of zlib earlier than 1.2.1.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

57

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

58 gzappend first decompresses the gzip file internally, discarding all but

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

59 the last 32K of uncompressed data, and noting the location of the last block

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

60 bit and the number of unused bits in the last byte of the compressed data.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

61 The gzip trailer containing the CRC-32 and length of the uncompressed data

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

62 is verified. This trailer will be later overwritten.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

63

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

64 Then the last block bit is cleared by seeking back in the file and rewriting

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

65 the byte that contains it. Seeking forward, the last byte of the compressed

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

66 data is saved along with the number of unused bits to initialize deflate.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

67

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

68 A deflate process is initialized, using the last 32K of the uncompressed

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

69 data from the gzip file to initialize the dictionary. If the total

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

70 uncompressed data was less than 32K, then all of it is used to initialize

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

71 the dictionary. The deflate output bit buffer is also initialized with the

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

72 last bits from the original deflate stream. From here on, the data to

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

73 append is simply compressed using deflate, and written to the gzip file.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

74 When that is complete, the new CRC-32 and uncompressed length are written

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

75 as the trailer of the gzip file.

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

76 */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

77

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

78 #include <stdio.h>

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

79 #include <stdlib.h>

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

80 #include <string.h>

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

81 #include <fcntl.h>

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

82 #include <unistd.h>

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

83 #include "zlib.h"

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

84

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

85 #define local static

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

86 #define LGCHUNK 14

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

87 #define CHUNK (1U << LGCHUNK)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

88 #define DSIZE 32768U

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

89

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

90 /* print an error message and terminate with extreme prejudice */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

91 local void bye(char *msg1, char *msg2)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

92 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

93 fprintf(stderr, "gzappend error: %s%s\n", msg1, msg2);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

94 exit(1);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

95 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

96

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

97 /* return the greatest common divisor of a and b using Euclid's algorithm,

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

98 modified to be fast when one argument much greater than the other, and

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

99 coded to avoid unnecessary swapping */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

100 local unsigned gcd(unsigned a, unsigned b)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

101 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

102 unsigned c;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

103

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

104 while (a && b)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

105 if (a > b) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

106 c = b;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

107 while (a - c >= c)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

108 c <<= 1;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

109 a -= c;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

110 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

111 else {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

112 c = a;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

113 while (b - c >= c)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

114 c <<= 1;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

115 b -= c;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

116 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

117 return a + b;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

118 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

119

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

120 /* rotate list[0..len-1] left by rot positions, in place */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

121 local void rotate(unsigned char *list, unsigned len, unsigned rot)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

122 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

123 unsigned char tmp;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

124 unsigned cycles;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

125 unsigned char *start, *last, *to, *from;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

126

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

127 /* normalize rot and handle degenerate cases */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

128 if (len < 2) return;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

129 if (rot >= len) rot %= len;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

130 if (rot == 0) return;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

131

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

132 /* pointer to last entry in list */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

133 last = list + (len - 1);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

134

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

135 /* do simple left shift by one */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

136 if (rot == 1) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

137 tmp = *list;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

138 memcpy(list, list + 1, len - 1);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

139 *last = tmp;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

140 return;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

141 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

142

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

143 /* do simple right shift by one */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

144 if (rot == len - 1) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

145 tmp = *last;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

146 memmove(list + 1, list, len - 1);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

147 *list = tmp;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

148 return;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

149 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

150

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

151 /* otherwise do rotate as a set of cycles in place */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

152 cycles = gcd(len, rot); /* number of cycles */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

153 do {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

154 start = from = list + cycles; /* start index is arbitrary */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

155 tmp = *from; /* save entry to be overwritten */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

156 for (;;) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

157 to = from; /* next step in cycle */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

158 from += rot; /* go right rot positions */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

159 if (from > last) from -= len; /* (pointer better not wrap) */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

160 if (from == start) break; /* all but one shifted */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

161 *to = *from; /* shift left */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

162 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

163 *to = tmp; /* complete the circle */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

164 } while (--cycles);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

165 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

166

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

167 /* structure for gzip file read operations */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

168 typedef struct {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

169 int fd; /* file descriptor */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

170 int size; /* 1 << size is bytes in buf */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

171 unsigned left; /* bytes available at next */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

172 unsigned char *buf; /* buffer */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

173 unsigned char *next; /* next byte in buffer */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

174 char *name; /* file name for error messages */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

175 } file;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

176

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

177 /* reload buffer */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

178 local int readin(file *in)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

179 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

180 int len;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

181

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

182 len = read(in->fd, in->buf, 1 << in->size);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

183 if (len == -1) bye("error reading ", in->name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

184 in->left = (unsigned)len;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

185 in->next = in->buf;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

186 return len;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

187 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

188

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

189 /* read from file in, exit if end-of-file */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

190 local int readmore(file *in)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

191 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

192 if (readin(in) == 0) bye("unexpected end of ", in->name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

193 return 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

194 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

195

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

196 #define read1(in) (in->left == 0 ? readmore(in) : 0, \

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

197 in->left--, *(in->next)++)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

198

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

199 /* skip over n bytes of in */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

200 local void skip(file *in, unsigned n)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

201 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

202 unsigned bypass;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

203

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

204 if (n > in->left) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

205 n -= in->left;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

206 bypass = n & ~((1U << in->size) - 1);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

207 if (bypass) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

208 if (lseek(in->fd, (off_t)bypass, SEEK_CUR) == -1)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

209 bye("seeking ", in->name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

210 n -= bypass;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

211 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

212 readmore(in);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

213 if (n > in->left)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

214 bye("unexpected end of ", in->name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

215 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

216 in->left -= n;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

217 in->next += n;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

218 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

219

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

220 /* read a four-byte unsigned integer, little-endian, from in */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

221 unsigned long read4(file *in)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

222 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

223 unsigned long val;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

224

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

225 val = read1(in);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

226 val += (unsigned)read1(in) << 8;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

227 val += (unsigned long)read1(in) << 16;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

228 val += (unsigned long)read1(in) << 24;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

229 return val;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

230 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

231

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

232 /* skip over gzip header */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

233 local void gzheader(file *in)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

234 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

235 int flags;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

236 unsigned n;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

237

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

238 if (read1(in) != 31 || read1(in) != 139) bye(in->name, " not a gzip file");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

239 if (read1(in) != 8) bye("unknown compression method in", in->name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

240 flags = read1(in);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

241 if (flags & 0xe0) bye("unknown header flags set in", in->name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

242 skip(in, 6);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

243 if (flags & 4) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

244 n = read1(in);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

245 n += (unsigned)(read1(in)) << 8;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

246 skip(in, n);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

247 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

248 if (flags & 8) while (read1(in) != 0) ;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

249 if (flags & 16) while (read1(in) != 0) ;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

250 if (flags & 2) skip(in, 2);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

251 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

252

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

253 /* decompress gzip file "name", return strm with a deflate stream ready to

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

254 continue compression of the data in the gzip file, and return a file

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

255 descriptor pointing to where to write the compressed data -- the deflate

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

256 stream is initialized to compress using level "level" */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

257 local int gzscan(char *name, z_stream *strm, int level)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

258 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

259 int ret, lastbit, left, full;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

260 unsigned have;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

261 unsigned long crc, tot;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

262 unsigned char *window;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

263 off_t lastoff, end;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

264 file gz;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

265

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

266 /* open gzip file */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

267 gz.name = name;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

268 gz.fd = open(name, O_RDWR, 0);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

269 if (gz.fd == -1) bye("cannot open ", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

270 gz.buf = malloc(CHUNK);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

271 if (gz.buf == NULL) bye("out of memory", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

272 gz.size = LGCHUNK;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

273 gz.left = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

274

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

275 /* skip gzip header */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

276 gzheader(&gz);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

277

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

278 /* prepare to decompress */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

279 window = malloc(DSIZE);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

280 if (window == NULL) bye("out of memory", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

281 strm->zalloc = Z_NULL;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

282 strm->zfree = Z_NULL;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

283 strm->opaque = Z_NULL;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

284 ret = inflateInit2(strm, -15);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

285 if (ret != Z_OK) bye("out of memory", " or library mismatch");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

286

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

287 /* decompress the deflate stream, saving append information */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

288 lastbit = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

289 lastoff = lseek(gz.fd, 0L, SEEK_CUR) - gz.left;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

290 left = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

291 strm->avail_in = gz.left;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

292 strm->next_in = gz.next;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

293 crc = crc32(0L, Z_NULL, 0);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

294 have = full = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

295 do {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

296 /* if needed, get more input */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

297 if (strm->avail_in == 0) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

298 readmore(&gz);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

299 strm->avail_in = gz.left;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

300 strm->next_in = gz.next;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

301 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

302

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

303 /* set up output to next available section of sliding window */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

304 strm->avail_out = DSIZE - have;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

305 strm->next_out = window + have;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

306

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

307 /* inflate and check for errors */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

308 ret = inflate(strm, Z_BLOCK);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

309 if (ret == Z_STREAM_ERROR) bye("internal stream error!", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

310 if (ret == Z_MEM_ERROR) bye("out of memory", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

311 if (ret == Z_DATA_ERROR)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

312 bye("invalid compressed data--format violated in", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

313

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

314 /* update crc and sliding window pointer */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

315 crc = crc32(crc, window + have, DSIZE - have - strm->avail_out);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

316 if (strm->avail_out)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

317 have = DSIZE - strm->avail_out;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

318 else {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

319 have = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

320 full = 1;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

321 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

322

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

323 /* process end of block */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

324 if (strm->data_type & 128) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

325 if (strm->data_type & 64)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

326 left = strm->data_type & 0x1f;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

327 else {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

328 lastbit = strm->data_type & 0x1f;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

329 lastoff = lseek(gz.fd, 0L, SEEK_CUR) - strm->avail_in;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

330 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

331 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

332 } while (ret != Z_STREAM_END);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

333 inflateEnd(strm);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

334 gz.left = strm->avail_in;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

335 gz.next = strm->next_in;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

336

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

337 /* save the location of the end of the compressed data */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

338 end = lseek(gz.fd, 0L, SEEK_CUR) - gz.left;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

339

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

340 /* check gzip trailer and save total for deflate */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

341 if (crc != read4(&gz))

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

342 bye("invalid compressed data--crc mismatch in ", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

343 tot = strm->total_out;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

344 if ((tot & 0xffffffffUL) != read4(&gz))

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

345 bye("invalid compressed data--length mismatch in", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

346

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

347 /* if not at end of file, warn */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

348 if (gz.left || readin(&gz))

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

349 fprintf(stderr,

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

350 "gzappend warning: junk at end of gzip file overwritten\n");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

351

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

352 /* clear last block bit */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

353 lseek(gz.fd, lastoff - (lastbit != 0), SEEK_SET);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

354 if (read(gz.fd, gz.buf, 1) != 1) bye("reading after seek on ", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

355 *gz.buf = (unsigned char)(*gz.buf ^ (1 << ((8 - lastbit) & 7)));

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

356 lseek(gz.fd, -1L, SEEK_CUR);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

357 if (write(gz.fd, gz.buf, 1) != 1) bye("writing after seek to ", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

358

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

359 /* if window wrapped, build dictionary from window by rotating */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

360 if (full) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

361 rotate(window, DSIZE, have);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

362 have = DSIZE;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

363 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

364

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

365 /* set up deflate stream with window, crc, total_in, and leftover bits */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

366 ret = deflateInit2(strm, level, Z_DEFLATED, -15, 8, Z_DEFAULT_STRATEGY);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

367 if (ret != Z_OK) bye("out of memory", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

368 deflateSetDictionary(strm, window, have);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

369 strm->adler = crc;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

370 strm->total_in = tot;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

371 if (left) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

372 lseek(gz.fd, --end, SEEK_SET);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

373 if (read(gz.fd, gz.buf, 1) != 1) bye("reading after seek on ", name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

374 deflatePrime(strm, 8 - left, *gz.buf);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

375 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

376 lseek(gz.fd, end, SEEK_SET);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

377

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

378 /* clean up and return */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

379 free(window);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

380 free(gz.buf);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

381 return gz.fd;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

382 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

383

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

384 /* append file "name" to gzip file gd using deflate stream strm -- if last

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

385 is true, then finish off the deflate stream at the end */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

386 local void gztack(char *name, int gd, z_stream *strm, int last)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

387 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

388 int fd, len, ret;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

389 unsigned left;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

390 unsigned char *in, *out;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

391

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

392 /* open file to compress and append */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

393 fd = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

394 if (name != NULL) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

395 fd = open(name, O_RDONLY, 0);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

396 if (fd == -1)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

397 fprintf(stderr, "gzappend warning: %s not found, skipping ...\n",

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

398 name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

399 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

400

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

401 /* allocate buffers */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

402 in = fd == -1 ? NULL : malloc(CHUNK);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

403 out = malloc(CHUNK);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

404 if (out == NULL) bye("out of memory", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

405

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

406 /* compress input file and append to gzip file */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

407 do {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

408 /* get more input */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

409 len = fd == -1 ? 0 : read(fd, in, CHUNK);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

410 if (len == -1) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

411 fprintf(stderr,

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

412 "gzappend warning: error reading %s, skipping rest ...\n",

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

413 name);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

414 len = 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

415 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

416 strm->avail_in = (unsigned)len;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

417 strm->next_in = in;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

418 if (len) strm->adler = crc32(strm->adler, in, (unsigned)len);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

419

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

420 /* compress and write all available output */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

421 do {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

422 strm->avail_out = CHUNK;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

423 strm->next_out = out;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

424 ret = deflate(strm, last && len == 0 ? Z_FINISH : Z_NO_FLUSH);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

425 left = CHUNK - strm->avail_out;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

426 while (left) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

427 len = write(gd, out + CHUNK - strm->avail_out - left, left);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

428 if (len == -1) bye("writing gzip file", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

429 left -= (unsigned)len;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

430 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

431 } while (strm->avail_out == 0 && ret != Z_STREAM_END);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

432 } while (len != 0);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

433

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

434 /* write trailer after last entry */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

435 if (last) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

436 deflateEnd(strm);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

437 out[0] = (unsigned char)(strm->adler);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

438 out[1] = (unsigned char)(strm->adler >> 8);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

439 out[2] = (unsigned char)(strm->adler >> 16);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

440 out[3] = (unsigned char)(strm->adler >> 24);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

441 out[4] = (unsigned char)(strm->total_in);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

442 out[5] = (unsigned char)(strm->total_in >> 8);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

443 out[6] = (unsigned char)(strm->total_in >> 16);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

444 out[7] = (unsigned char)(strm->total_in >> 24);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

445 len = 8;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

446 do {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

447 ret = write(gd, out + 8 - len, len);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

448 if (ret == -1) bye("writing gzip file", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

449 len -= ret;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

450 } while (len);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

451 close(gd);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

452 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

453

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

454 /* clean up and return */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

455 free(out);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

456 if (in != NULL) free(in);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

457 if (fd > 0) close(fd);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

458 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

459

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

460 /* process the compression level option if present, scan the gzip file, and

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

461 append the specified files, or append the data from stdin if no other file

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

462 names are provided on the command line -- the gzip file must be writable

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

463 and seekable */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

464 int main(int argc, char **argv)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

465 {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

466 int gd, level;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

467 z_stream strm;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

468

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

469 /* ignore command name */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

470 argv++;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

471

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

472 /* provide usage if no arguments */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

473 if (*argv == NULL) {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

475 printf(

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

476 "usage: gzappend [-level] file.gz [ addthis [ andthis ... ]]\n");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

477 return 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

478 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

479

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

480 /* set compression level */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

481 level = Z_DEFAULT_COMPRESSION;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

482 if (argv[0][0] == '-') {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

483 if (argv[0][1] < '0' || argv[0][1] > '9' || argv[0][2] != 0)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

484 bye("invalid compression level", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

485 level = argv[0][1] - '0';

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

486 if (*++argv == NULL) bye("no gzip file name after options", "");

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

487 }

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

488

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

489 /* prepare to append to gzip file */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

490 gd = gzscan(*argv++, &strm, level);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

491

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

492 /* append files on command line, or from stdin if none */

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

493 if (*argv == NULL)

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

494 gztack(NULL, gd, &strm, 1);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

495 else

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

496 do {

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

497 gztack(*argv, gd, &strm, argv[1] == NULL);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

498 } while (*++argv != NULL);

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

499 return 0;

ae3a4bfb450b add some files of version 4.4.3 that have been forgotten.

kent <kent@cr.ie.u-ryukyu.ac.jp>

parents:

diff changeset

500 }

Mercurial > hg > CbC > CbC_gcc

annotate zlib/examples/gzappend.c @ 51:ae3a4bfb450b