Fossil

Hex Artifact Content
Login

Artifact 9c34287cf18b05b761daf6457fc5efbf501358d2:


0000: 2f 2a 20 67 7a 6a 6f 69 6e 20 2d 2d 20 63 6f 6d  /* gzjoin -- com
0010: 6d 61 6e 64 20 74 6f 20 6a 6f 69 6e 20 67 7a 69  mand to join gzi
0020: 70 20 66 69 6c 65 73 20 69 6e 74 6f 20 6f 6e 65  p files into one
0030: 20 67 7a 69 70 20 66 69 6c 65 0a 0a 20 20 43 6f   gzip file..  Co
0040: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 34  pyright (C) 2004
0050: 2c 20 32 30 30 35 2c 20 32 30 31 32 20 4d 61 72  , 2005, 2012 Mar
0060: 6b 20 41 64 6c 65 72 2c 20 61 6c 6c 20 72 69 67  k Adler, all rig
0070: 68 74 73 20 72 65 73 65 72 76 65 64 0a 20 20 76  hts reserved.  v
0080: 65 72 73 69 6f 6e 20 31 2e 32 2c 20 31 34 20 41  ersion 1.2, 14 A
0090: 75 67 20 32 30 31 32 0a 0a 20 20 54 68 69 73 20  ug 2012..  This 
00a0: 73 6f 66 74 77 61 72 65 20 69 73 20 70 72 6f 76  software is prov
00b0: 69 64 65 64 20 27 61 73 2d 69 73 27 2c 20 77 69  ided 'as-is', wi
00c0: 74 68 6f 75 74 20 61 6e 79 20 65 78 70 72 65 73  thout any expres
00d0: 73 20 6f 72 20 69 6d 70 6c 69 65 64 0a 20 20 77  s or implied.  w
00e0: 61 72 72 61 6e 74 79 2e 20 20 49 6e 20 6e 6f 20  arranty.  In no 
00f0: 65 76 65 6e 74 20 77 69 6c 6c 20 74 68 65 20 61  event will the a
0100: 75 74 68 6f 72 20 62 65 20 68 65 6c 64 20 6c 69  uthor be held li
0110: 61 62 6c 65 20 66 6f 72 20 61 6e 79 20 64 61 6d  able for any dam
0120: 61 67 65 73 0a 20 20 61 72 69 73 69 6e 67 20 66  ages.  arising f
0130: 72 6f 6d 20 74 68 65 20 75 73 65 20 6f 66 20 74  rom the use of t
0140: 68 69 73 20 73 6f 66 74 77 61 72 65 2e 0a 0a 20  his software... 
0150: 20 50 65 72 6d 69 73 73 69 6f 6e 20 69 73 20 67   Permission is g
0160: 72 61 6e 74 65 64 20 74 6f 20 61 6e 79 6f 6e 65  ranted to anyone
0170: 20 74 6f 20 75 73 65 20 74 68 69 73 20 73 6f 66   to use this sof
0180: 74 77 61 72 65 20 66 6f 72 20 61 6e 79 20 70 75  tware for any pu
0190: 72 70 6f 73 65 2c 0a 20 20 69 6e 63 6c 75 64 69  rpose,.  includi
01a0: 6e 67 20 63 6f 6d 6d 65 72 63 69 61 6c 20 61 70  ng commercial ap
01b0: 70 6c 69 63 61 74 69 6f 6e 73 2c 20 61 6e 64 20  plications, and 
01c0: 74 6f 20 61 6c 74 65 72 20 69 74 20 61 6e 64 20  to alter it and 
01d0: 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 0a  redistribute it.
01e0: 20 20 66 72 65 65 6c 79 2c 20 73 75 62 6a 65 63    freely, subjec
01f0: 74 20 74 6f 20 74 68 65 20 66 6f 6c 6c 6f 77 69  t to the followi
0200: 6e 67 20 72 65 73 74 72 69 63 74 69 6f 6e 73 3a  ng restrictions:
0210: 0a 0a 20 20 31 2e 20 54 68 65 20 6f 72 69 67 69  ..  1. The origi
0220: 6e 20 6f 66 20 74 68 69 73 20 73 6f 66 74 77 61  n of this softwa
0230: 72 65 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 6d  re must not be m
0240: 69 73 72 65 70 72 65 73 65 6e 74 65 64 3b 20 79  isrepresented; y
0250: 6f 75 20 6d 75 73 74 20 6e 6f 74 0a 20 20 20 20  ou must not.    
0260: 20 63 6c 61 69 6d 20 74 68 61 74 20 79 6f 75 20   claim that you 
0270: 77 72 6f 74 65 20 74 68 65 20 6f 72 69 67 69 6e  wrote the origin
0280: 61 6c 20 73 6f 66 74 77 61 72 65 2e 20 49 66 20  al software. If 
0290: 79 6f 75 20 75 73 65 20 74 68 69 73 20 73 6f 66  you use this sof
02a0: 74 77 61 72 65 0a 20 20 20 20 20 69 6e 20 61 20  tware.     in a 
02b0: 70 72 6f 64 75 63 74 2c 20 61 6e 20 61 63 6b 6e  product, an ackn
02c0: 6f 77 6c 65 64 67 6d 65 6e 74 20 69 6e 20 74 68  owledgment in th
02d0: 65 20 70 72 6f 64 75 63 74 20 64 6f 63 75 6d 65  e product docume
02e0: 6e 74 61 74 69 6f 6e 20 77 6f 75 6c 64 20 62 65  ntation would be
02f0: 0a 20 20 20 20 20 61 70 70 72 65 63 69 61 74 65  .     appreciate
0300: 64 20 62 75 74 20 69 73 20 6e 6f 74 20 72 65 71  d but is not req
0310: 75 69 72 65 64 2e 0a 20 20 32 2e 20 41 6c 74 65  uired..  2. Alte
0320: 72 65 64 20 73 6f 75 72 63 65 20 76 65 72 73 69  red source versi
0330: 6f 6e 73 20 6d 75 73 74 20 62 65 20 70 6c 61 69  ons must be plai
0340: 6e 6c 79 20 6d 61 72 6b 65 64 20 61 73 20 73 75  nly marked as su
0350: 63 68 2c 20 61 6e 64 20 6d 75 73 74 20 6e 6f 74  ch, and must not
0360: 20 62 65 0a 20 20 20 20 20 6d 69 73 72 65 70 72   be.     misrepr
0370: 65 73 65 6e 74 65 64 20 61 73 20 62 65 69 6e 67  esented as being
0380: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 73 6f   the original so
0390: 66 74 77 61 72 65 2e 0a 20 20 33 2e 20 54 68 69  ftware..  3. Thi
03a0: 73 20 6e 6f 74 69 63 65 20 6d 61 79 20 6e 6f 74  s notice may not
03b0: 20 62 65 20 72 65 6d 6f 76 65 64 20 6f 72 20 61   be removed or a
03c0: 6c 74 65 72 65 64 20 66 72 6f 6d 20 61 6e 79 20  ltered from any 
03d0: 73 6f 75 72 63 65 20 64 69 73 74 72 69 62 75 74  source distribut
03e0: 69 6f 6e 2e 0a 0a 20 20 4d 61 72 6b 20 41 64 6c  ion...  Mark Adl
03f0: 65 72 20 20 20 20 6d 61 64 6c 65 72 40 61 6c 75  er    madler@alu
0400: 6d 6e 69 2e 63 61 6c 74 65 63 68 2e 65 64 75 0a  mni.caltech.edu.
0410: 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 43 68 61 6e 67   */../*. * Chang
0420: 65 20 68 69 73 74 6f 72 79 3a 0a 20 2a 0a 20 2a  e history:. *. *
0430: 20 31 2e 30 20 20 31 31 20 44 65 63 20 32 30 30   1.0  11 Dec 200
0440: 34 20 20 20 20 20 2d 20 46 69 72 73 74 20 76 65  4     - First ve
0450: 72 73 69 6f 6e 0a 20 2a 20 31 2e 31 20 20 31 32  rsion. * 1.1  12
0460: 20 4a 75 6e 20 32 30 30 35 20 20 20 20 20 2d 20   Jun 2005     - 
0470: 43 68 61 6e 67 65 64 20 73 73 69 7a 65 5f 74 20  Changed ssize_t 
0480: 74 6f 20 6c 6f 6e 67 20 66 6f 72 20 70 6f 72 74  to long for port
0490: 61 62 69 6c 69 74 79 0a 20 2a 20 31 2e 32 20 20  ability. * 1.2  
04a0: 31 34 20 41 75 67 20 32 30 31 32 20 20 20 20 20  14 Aug 2012     
04b0: 2d 20 43 6c 65 61 6e 20 75 70 20 66 6f 72 20 7a  - Clean up for z
04c0: 5f 63 6f 6e 73 74 20 75 73 61 67 65 0a 20 2a 2f  _const usage. */
04d0: 0a 0a 2f 2a 0a 20 20 20 67 7a 6a 6f 69 6e 20 74  ../*.   gzjoin t
04e0: 61 6b 65 73 20 6f 6e 65 20 6f 72 20 6d 6f 72 65  akes one or more
04f0: 20 67 7a 69 70 20 66 69 6c 65 73 20 6f 6e 20 74   gzip files on t
0500: 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20  he command line 
0510: 61 6e 64 20 77 72 69 74 65 73 20 6f 75 74 20 61  and writes out a
0520: 0a 20 20 20 73 69 6e 67 6c 65 20 67 7a 69 70 20  .   single gzip 
0530: 66 69 6c 65 20 74 68 61 74 20 77 69 6c 6c 20 75  file that will u
0540: 6e 63 6f 6d 70 72 65 73 73 20 74 6f 20 74 68 65  ncompress to the
0550: 20 63 6f 6e 63 61 74 65 6e 61 74 69 6f 6e 20 6f   concatenation o
0560: 66 20 74 68 65 0a 20 20 20 75 6e 63 6f 6d 70 72  f the.   uncompr
0570: 65 73 73 65 64 20 64 61 74 61 20 66 72 6f 6d 20  essed data from 
0580: 74 68 65 20 69 6e 64 69 76 69 64 75 61 6c 20 67  the individual g
0590: 7a 69 70 20 66 69 6c 65 73 2e 20 20 67 7a 6a 6f  zip files.  gzjo
05a0: 69 6e 20 64 6f 65 73 20 74 68 69 73 20 77 69 74  in does this wit
05b0: 68 6f 75 74 0a 20 20 20 68 61 76 69 6e 67 20 74  hout.   having t
05c0: 6f 20 72 65 63 6f 6d 70 72 65 73 73 20 61 6e 79  o recompress any
05d0: 20 6f 66 20 74 68 65 20 64 61 74 61 20 61 6e 64   of the data and
05e0: 20 77 69 74 68 6f 75 74 20 68 61 76 69 6e 67 20   without having 
05f0: 74 6f 20 63 61 6c 63 75 6c 61 74 65 20 61 20 6e  to calculate a n
0600: 65 77 0a 20 20 20 63 72 63 33 32 20 66 6f 72 20  ew.   crc32 for 
0610: 74 68 65 20 63 6f 6e 63 61 74 65 6e 61 74 65 64  the concatenated
0620: 20 75 6e 63 6f 6d 70 72 65 73 73 65 64 20 64 61   uncompressed da
0630: 74 61 2e 20 20 67 7a 6a 6f 69 6e 20 64 6f 65 73  ta.  gzjoin does
0640: 20 68 6f 77 65 76 65 72 20 68 61 76 65 20 74 6f   however have to
0650: 0a 20 20 20 64 65 63 6f 6d 70 72 65 73 73 20 61  .   decompress a
0660: 6c 6c 20 6f 66 20 74 68 65 20 69 6e 70 75 74 20  ll of the input 
0670: 64 61 74 61 20 69 6e 20 6f 72 64 65 72 20 74 6f  data in order to
0680: 20 66 69 6e 64 20 74 68 65 20 62 69 74 73 20 69   find the bits i
0690: 6e 20 74 68 65 20 63 6f 6d 70 72 65 73 73 65 64  n the compressed
06a0: 0a 20 20 20 64 61 74 61 20 74 68 61 74 20 6e 65  .   data that ne
06b0: 65 64 20 74 6f 20 62 65 20 6d 6f 64 69 66 69 65  ed to be modifie
06c0: 64 20 74 6f 20 63 6f 6e 63 61 74 65 6e 61 74 65  d to concatenate
06d0: 20 74 68 65 20 73 74 72 65 61 6d 73 2e 0a 0a 20   the streams... 
06e0: 20 20 67 7a 6a 6f 69 6e 20 64 6f 65 73 20 6e 6f    gzjoin does no
06f0: 74 20 64 6f 20 61 6e 20 69 6e 74 65 67 72 69 74  t do an integrit
0700: 79 20 63 68 65 63 6b 20 6f 6e 20 74 68 65 20 69  y check on the i
0710: 6e 70 75 74 20 67 7a 69 70 20 66 69 6c 65 73 20  nput gzip files 
0720: 6f 74 68 65 72 20 74 68 61 6e 0a 20 20 20 63 68  other than.   ch
0730: 65 63 6b 69 6e 67 20 74 68 65 20 67 7a 69 70 20  ecking the gzip 
0740: 68 65 61 64 65 72 20 61 6e 64 20 64 65 63 6f 6d  header and decom
0750: 70 72 65 73 73 69 6e 67 20 74 68 65 20 63 6f 6d  pressing the com
0760: 70 72 65 73 73 65 64 20 64 61 74 61 2e 20 20 54  pressed data.  T
0770: 68 65 79 20 61 72 65 0a 20 20 20 6f 74 68 65 72  hey are.   other
0780: 77 69 73 65 20 61 73 73 75 6d 65 64 20 74 6f 20  wise assumed to 
0790: 62 65 20 63 6f 6d 70 6c 65 74 65 20 61 6e 64 20  be complete and 
07a0: 63 6f 72 72 65 63 74 2e 0a 0a 20 20 20 45 61 63  correct...   Eac
07b0: 68 20 6a 6f 69 6e 74 20 62 65 74 77 65 65 6e 20  h joint between 
07c0: 67 7a 69 70 20 66 69 6c 65 73 20 72 65 6d 6f 76  gzip files remov
07d0: 65 73 20 61 74 20 6c 65 61 73 74 20 31 38 20 62  es at least 18 b
07e0: 79 74 65 73 20 6f 66 20 70 72 65 76 69 6f 75 73  ytes of previous
07f0: 20 74 72 61 69 6c 65 72 0a 20 20 20 61 6e 64 20   trailer.   and 
0800: 73 75 62 73 65 71 75 65 6e 74 20 68 65 61 64 65  subsequent heade
0810: 72 2c 20 61 6e 64 20 69 6e 73 65 72 74 73 20 61  r, and inserts a
0820: 6e 20 61 76 65 72 61 67 65 20 6f 66 20 61 62 6f  n average of abo
0830: 75 74 20 74 68 72 65 65 20 62 79 74 65 73 20 74  ut three bytes t
0840: 6f 20 74 68 65 0a 20 20 20 63 6f 6d 70 72 65 73  o the.   compres
0850: 73 65 64 20 64 61 74 61 20 69 6e 20 6f 72 64 65  sed data in orde
0860: 72 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 68 65  r to connect the
0870: 20 73 74 72 65 61 6d 73 2e 20 20 54 68 65 20 6f   streams.  The o
0880: 75 74 70 75 74 20 67 7a 69 70 20 66 69 6c 65 0a  utput gzip file.
0890: 20 20 20 68 61 73 20 61 20 6d 69 6e 69 6d 61 6c     has a minimal
08a0: 20 74 65 6e 2d 62 79 74 65 20 67 7a 69 70 20 68   ten-byte gzip h
08b0: 65 61 64 65 72 20 77 69 74 68 20 6e 6f 20 66 69  eader with no fi
08c0: 6c 65 20 6e 61 6d 65 20 6f 72 20 6d 6f 64 69 66  le name or modif
08d0: 69 63 61 74 69 6f 6e 20 74 69 6d 65 2e 0a 0a 20  ication time... 
08e0: 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 77    This program w
08f0: 61 73 20 77 72 69 74 74 65 6e 20 74 6f 20 69 6c  as written to il
0900: 6c 75 73 74 72 61 74 65 20 74 68 65 20 75 73 65  lustrate the use
0910: 20 6f 66 20 74 68 65 20 5a 5f 42 4c 4f 43 4b 20   of the Z_BLOCK 
0920: 6f 70 74 69 6f 6e 20 6f 66 0a 20 20 20 69 6e 66  option of.   inf
0930: 6c 61 74 65 28 29 20 61 6e 64 20 74 68 65 20 63  late() and the c
0940: 72 63 33 32 5f 63 6f 6d 62 69 6e 65 28 29 20 66  rc32_combine() f
0950: 75 6e 63 74 69 6f 6e 2e 20 20 67 7a 6a 6f 69 6e  unction.  gzjoin
0960: 20 77 69 6c 6c 20 6e 6f 74 20 63 6f 6d 70 69 6c   will not compil
0970: 65 20 77 69 74 68 0a 20 20 20 76 65 72 73 69 6f  e with.   versio
0980: 6e 73 20 6f 66 20 7a 6c 69 62 20 65 61 72 6c 69  ns of zlib earli
0990: 65 72 20 74 68 61 6e 20 31 2e 32 2e 33 2e 0a 20  er than 1.2.3.. 
09a0: 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74  */..#include <st
09b0: 64 69 6f 2e 68 3e 20 20 20 20 20 20 2f 2a 20 66  dio.h>      /* f
09c0: 70 75 74 73 28 29 2c 20 66 70 72 69 6e 74 66 28  puts(), fprintf(
09d0: 29 2c 20 66 77 72 69 74 65 28 29 2c 20 70 75 74  ), fwrite(), put
09e0: 63 28 29 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 20  c() */.#include 
09f0: 3c 73 74 64 6c 69 62 2e 68 3e 20 20 20 20 20 2f  <stdlib.h>     /
0a00: 2a 20 65 78 69 74 28 29 2c 20 6d 61 6c 6c 6f 63  * exit(), malloc
0a10: 28 29 2c 20 66 72 65 65 28 29 20 2a 2f 0a 23 69  (), free() */.#i
0a20: 6e 63 6c 75 64 65 20 3c 66 63 6e 74 6c 2e 68 3e  nclude <fcntl.h>
0a30: 20 20 20 20 20 20 2f 2a 20 6f 70 65 6e 28 29 20        /* open() 
0a40: 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c 75 6e 69  */.#include <uni
0a50: 73 74 64 2e 68 3e 20 20 20 20 20 2f 2a 20 63 6c  std.h>     /* cl
0a60: 6f 73 65 28 29 2c 20 72 65 61 64 28 29 2c 20 6c  ose(), read(), l
0a70: 73 65 65 6b 28 29 20 2a 2f 0a 23 69 6e 63 6c 75  seek() */.#inclu
0a80: 64 65 20 22 7a 6c 69 62 2e 68 22 0a 20 20 20 20  de "zlib.h".    
0a90: 2f 2a 20 63 72 63 33 32 28 29 2c 20 63 72 63 33  /* crc32(), crc3
0aa0: 32 5f 63 6f 6d 62 69 6e 65 28 29 2c 20 69 6e 66  2_combine(), inf
0ab0: 6c 61 74 65 49 6e 69 74 32 28 29 2c 20 69 6e 66  lateInit2(), inf
0ac0: 6c 61 74 65 28 29 2c 20 69 6e 66 6c 61 74 65 45  late(), inflateE
0ad0: 6e 64 28 29 20 2a 2f 0a 0a 23 64 65 66 69 6e 65  nd() */..#define
0ae0: 20 6c 6f 63 61 6c 20 73 74 61 74 69 63 0a 0a 2f   local static../
0af0: 2a 20 65 78 69 74 20 77 69 74 68 20 61 6e 20 65  * exit with an e
0b00: 72 72 6f 72 20 28 72 65 74 75 72 6e 20 61 20 76  rror (return a v
0b10: 61 6c 75 65 20 74 6f 20 61 6c 6c 6f 77 20 75 73  alue to allow us
0b20: 65 20 69 6e 20 61 6e 20 65 78 70 72 65 73 73 69  e in an expressi
0b30: 6f 6e 29 20 2a 2f 0a 6c 6f 63 61 6c 20 69 6e 74  on) */.local int
0b40: 20 62 61 69 6c 28 63 68 61 72 20 2a 77 68 79 31   bail(char *why1
0b50: 2c 20 63 68 61 72 20 2a 77 68 79 32 29 0a 7b 0a  , char *why2).{.
0b60: 20 20 20 20 66 70 72 69 6e 74 66 28 73 74 64 65      fprintf(stde
0b70: 72 72 2c 20 22 67 7a 6a 6f 69 6e 20 65 72 72 6f  rr, "gzjoin erro
0b80: 72 3a 20 25 73 25 73 2c 20 6f 75 74 70 75 74 20  r: %s%s, output 
0b90: 69 6e 63 6f 6d 70 6c 65 74 65 5c 6e 22 2c 20 77  incomplete\n", w
0ba0: 68 79 31 2c 20 77 68 79 32 29 3b 0a 20 20 20 20  hy1, why2);.    
0bb0: 65 78 69 74 28 31 29 3b 0a 20 20 20 20 72 65 74  exit(1);.    ret
0bc0: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 20 2d 2d 20  urn 0;.}../* -- 
0bd0: 73 69 6d 70 6c 65 20 62 75 66 66 65 72 65 64 20  simple buffered 
0be0: 66 69 6c 65 20 69 6e 70 75 74 20 77 69 74 68 20  file input with 
0bf0: 61 63 63 65 73 73 20 74 6f 20 74 68 65 20 62 75  access to the bu
0c00: 66 66 65 72 20 2d 2d 20 2a 2f 0a 0a 23 64 65 66  ffer -- */..#def
0c10: 69 6e 65 20 43 48 55 4e 4b 20 33 32 37 36 38 20  ine CHUNK 32768 
0c20: 20 20 20 20 20 20 20 20 2f 2a 20 6d 75 73 74 20          /* must 
0c30: 62 65 20 61 20 70 6f 77 65 72 20 6f 66 20 74 77  be a power of tw
0c40: 6f 20 61 6e 64 20 66 69 74 20 69 6e 20 75 6e 73  o and fit in uns
0c50: 69 67 6e 65 64 20 2a 2f 0a 0a 2f 2a 20 62 69 6e  igned */../* bin
0c60: 20 62 75 66 66 65 72 65 64 20 69 6e 70 75 74 20   buffered input 
0c70: 66 69 6c 65 20 74 79 70 65 20 2a 2f 0a 74 79 70  file type */.typ
0c80: 65 64 65 66 20 73 74 72 75 63 74 20 7b 0a 20 20  edef struct {.  
0c90: 20 20 63 68 61 72 20 2a 6e 61 6d 65 3b 20 20 20    char *name;   
0ca0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6e 61 6d            /* nam
0cb0: 65 20 6f 66 20 66 69 6c 65 20 66 6f 72 20 65 72  e of file for er
0cc0: 72 6f 72 20 6d 65 73 73 61 67 65 73 20 2a 2f 0a  ror messages */.
0cd0: 20 20 20 20 69 6e 74 20 66 64 3b 20 20 20 20 20      int fd;     
0ce0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66              /* f
0cf0: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 2a  ile descriptor *
0d00: 2f 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c  /.    unsigned l
0d10: 65 66 74 3b 20 20 20 20 20 20 20 20 20 20 2f 2a  eft;          /*
0d20: 20 62 79 74 65 73 20 72 65 6d 61 69 6e 69 6e 67   bytes remaining
0d30: 20 61 74 20 6e 65 78 74 20 2a 2f 0a 20 20 20 20   at next */.    
0d40: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6e  unsigned char *n
0d50: 65 78 74 3b 20 20 20 20 2f 2a 20 6e 65 78 74 20  ext;    /* next 
0d60: 62 79 74 65 20 74 6f 20 72 65 61 64 20 2a 2f 0a  byte to read */.
0d70: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61      unsigned cha
0d80: 72 20 2a 62 75 66 3b 20 20 20 20 20 2f 2a 20 61  r *buf;     /* a
0d90: 6c 6c 6f 63 61 74 65 64 20 62 75 66 66 65 72 20  llocated buffer 
0da0: 6f 66 20 6c 65 6e 67 74 68 20 43 48 55 4e 4b 20  of length CHUNK 
0db0: 2a 2f 0a 7d 20 62 69 6e 3b 0a 0a 2f 2a 20 63 6c  */.} bin;../* cl
0dc0: 6f 73 65 20 61 20 62 75 66 66 65 72 65 64 20 66  ose a buffered f
0dd0: 69 6c 65 20 61 6e 64 20 66 72 65 65 20 61 6c 6c  ile and free all
0de0: 6f 63 61 74 65 64 20 6d 65 6d 6f 72 79 20 2a 2f  ocated memory */
0df0: 0a 6c 6f 63 61 6c 20 76 6f 69 64 20 62 63 6c 6f  .local void bclo
0e00: 73 65 28 62 69 6e 20 2a 69 6e 29 0a 7b 0a 20 20  se(bin *in).{.  
0e10: 20 20 69 66 20 28 69 6e 20 21 3d 20 4e 55 4c 4c    if (in != NULL
0e20: 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28  ) {.        if (
0e30: 69 6e 2d 3e 66 64 20 21 3d 20 2d 31 29 0a 20 20  in->fd != -1).  
0e40: 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 28            close(
0e50: 69 6e 2d 3e 66 64 29 3b 0a 20 20 20 20 20 20 20  in->fd);.       
0e60: 20 69 66 20 28 69 6e 2d 3e 62 75 66 20 21 3d 20   if (in->buf != 
0e70: 4e 55 4c 4c 29 0a 20 20 20 20 20 20 20 20 20 20  NULL).          
0e80: 20 20 66 72 65 65 28 69 6e 2d 3e 62 75 66 29 3b    free(in->buf);
0e90: 0a 20 20 20 20 20 20 20 20 66 72 65 65 28 69 6e  .        free(in
0ea0: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 20 6f  );.    }.}../* o
0eb0: 70 65 6e 20 61 20 62 75 66 66 65 72 65 64 20 66  pen a buffered f
0ec0: 69 6c 65 20 66 6f 72 20 69 6e 70 75 74 2c 20 72  ile for input, r
0ed0: 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20  eturn a pointer 
0ee0: 74 6f 20 74 79 70 65 20 62 69 6e 2c 20 6f 72 20  to type bin, or 
0ef0: 4e 55 4c 4c 20 6f 6e 0a 20 20 20 66 61 69 6c 75  NULL on.   failu
0f00: 72 65 20 2a 2f 0a 6c 6f 63 61 6c 20 62 69 6e 20  re */.local bin 
0f10: 2a 62 6f 70 65 6e 28 63 68 61 72 20 2a 6e 61 6d  *bopen(char *nam
0f20: 65 29 0a 7b 0a 20 20 20 20 62 69 6e 20 2a 69 6e  e).{.    bin *in
0f30: 3b 0a 0a 20 20 20 20 69 6e 20 3d 20 6d 61 6c 6c  ;..    in = mall
0f40: 6f 63 28 73 69 7a 65 6f 66 28 62 69 6e 29 29 3b  oc(sizeof(bin));
0f50: 0a 20 20 20 20 69 66 20 28 69 6e 20 3d 3d 20 4e  .    if (in == N
0f60: 55 4c 4c 29 0a 20 20 20 20 20 20 20 20 72 65 74  ULL).        ret
0f70: 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e  urn NULL;.    in
0f80: 2d 3e 62 75 66 20 3d 20 6d 61 6c 6c 6f 63 28 43  ->buf = malloc(C
0f90: 48 55 4e 4b 29 3b 0a 20 20 20 20 69 6e 2d 3e 66  HUNK);.    in->f
0fa0: 64 20 3d 20 6f 70 65 6e 28 6e 61 6d 65 2c 20 4f  d = open(name, O
0fb0: 5f 52 44 4f 4e 4c 59 2c 20 30 29 3b 0a 20 20 20  _RDONLY, 0);.   
0fc0: 20 69 66 20 28 69 6e 2d 3e 62 75 66 20 3d 3d 20   if (in->buf == 
0fd0: 4e 55 4c 4c 20 7c 7c 20 69 6e 2d 3e 66 64 20 3d  NULL || in->fd =
0fe0: 3d 20 2d 31 29 20 7b 0a 20 20 20 20 20 20 20 20  = -1) {.        
0ff0: 62 63 6c 6f 73 65 28 69 6e 29 3b 0a 20 20 20 20  bclose(in);.    
1000: 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b      return NULL;
1010: 0a 20 20 20 20 7d 0a 20 20 20 20 69 6e 2d 3e 6c  .    }.    in->l
1020: 65 66 74 20 3d 20 30 3b 0a 20 20 20 20 69 6e 2d  eft = 0;.    in-
1030: 3e 6e 65 78 74 20 3d 20 69 6e 2d 3e 62 75 66 3b  >next = in->buf;
1040: 0a 20 20 20 20 69 6e 2d 3e 6e 61 6d 65 20 3d 20  .    in->name = 
1050: 6e 61 6d 65 3b 0a 20 20 20 20 72 65 74 75 72 6e  name;.    return
1060: 20 69 6e 3b 0a 7d 0a 0a 2f 2a 20 6c 6f 61 64 20   in;.}../* load 
1070: 62 75 66 66 65 72 20 66 72 6f 6d 20 66 69 6c 65  buffer from file
1080: 2c 20 72 65 74 75 72 6e 20 2d 31 20 6f 6e 20 72  , return -1 on r
1090: 65 61 64 20 65 72 72 6f 72 2c 20 30 20 6f 72 20  ead error, 0 or 
10a0: 31 20 6f 6e 20 73 75 63 63 65 73 73 2c 20 77 69  1 on success, wi
10b0: 74 68 0a 20 20 20 31 20 69 6e 64 69 63 61 74 69  th.   1 indicati
10c0: 6e 67 20 74 68 61 74 20 65 6e 64 2d 6f 66 2d 66  ng that end-of-f
10d0: 69 6c 65 20 77 61 73 20 72 65 61 63 68 65 64 20  ile was reached 
10e0: 2a 2f 0a 6c 6f 63 61 6c 20 69 6e 74 20 62 6c 6f  */.local int blo
10f0: 61 64 28 62 69 6e 20 2a 69 6e 29 0a 7b 0a 20 20  ad(bin *in).{.  
1100: 20 20 6c 6f 6e 67 20 6c 65 6e 3b 0a 0a 20 20 20    long len;..   
1110: 20 69 66 20 28 69 6e 20 3d 3d 20 4e 55 4c 4c 29   if (in == NULL)
1120: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
1130: 2d 31 3b 0a 20 20 20 20 69 66 20 28 69 6e 2d 3e  -1;.    if (in->
1140: 6c 65 66 74 20 21 3d 20 30 29 0a 20 20 20 20 20  left != 0).     
1150: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20     return 0;.   
1160: 20 69 6e 2d 3e 6e 65 78 74 20 3d 20 69 6e 2d 3e   in->next = in->
1170: 62 75 66 3b 0a 20 20 20 20 64 6f 20 7b 0a 20 20  buf;.    do {.  
1180: 20 20 20 20 20 20 6c 65 6e 20 3d 20 28 6c 6f 6e        len = (lon
1190: 67 29 72 65 61 64 28 69 6e 2d 3e 66 64 2c 20 69  g)read(in->fd, i
11a0: 6e 2d 3e 62 75 66 20 2b 20 69 6e 2d 3e 6c 65 66  n->buf + in->lef
11b0: 74 2c 20 43 48 55 4e 4b 20 2d 20 69 6e 2d 3e 6c  t, CHUNK - in->l
11c0: 65 66 74 29 3b 0a 20 20 20 20 20 20 20 20 69 66  eft);.        if
11d0: 20 28 6c 65 6e 20 3c 20 30 29 0a 20 20 20 20 20   (len < 0).     
11e0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 2d 31         return -1
11f0: 3b 0a 20 20 20 20 20 20 20 20 69 6e 2d 3e 6c 65  ;.        in->le
1200: 66 74 20 2b 3d 20 28 75 6e 73 69 67 6e 65 64 29  ft += (unsigned)
1210: 6c 65 6e 3b 0a 20 20 20 20 7d 20 77 68 69 6c 65  len;.    } while
1220: 20 28 6c 65 6e 20 21 3d 20 30 20 26 26 20 69 6e   (len != 0 && in
1230: 2d 3e 6c 65 66 74 20 3c 20 43 48 55 4e 4b 29 3b  ->left < CHUNK);
1240: 0a 20 20 20 20 72 65 74 75 72 6e 20 6c 65 6e 20  .    return len 
1250: 3d 3d 20 30 20 3f 20 31 20 3a 20 30 3b 0a 7d 0a  == 0 ? 1 : 0;.}.
1260: 0a 2f 2a 20 67 65 74 20 61 20 62 79 74 65 20 66  ./* get a byte f
1270: 72 6f 6d 20 74 68 65 20 66 69 6c 65 2c 20 62 61  rom the file, ba
1280: 69 6c 20 69 66 20 65 6e 64 20 6f 66 20 66 69 6c  il if end of fil
1290: 65 20 2a 2f 0a 23 64 65 66 69 6e 65 20 62 67 65  e */.#define bge
12a0: 74 28 69 6e 29 20 28 69 6e 2d 3e 6c 65 66 74 20  t(in) (in->left 
12b0: 3f 20 30 20 3a 20 62 6c 6f 61 64 28 69 6e 29 2c  ? 0 : bload(in),
12c0: 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   \.             
12d0: 20 20 20 20 20 69 6e 2d 3e 6c 65 66 74 20 3f 20       in->left ? 
12e0: 28 69 6e 2d 3e 6c 65 66 74 2d 2d 2c 20 2a 28 69  (in->left--, *(i
12f0: 6e 2d 3e 6e 65 78 74 29 2b 2b 29 20 3a 20 5c 0a  n->next)++) : \.
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1310: 20 20 20 20 62 61 69 6c 28 22 75 6e 65 78 70 65      bail("unexpe
1320: 63 74 65 64 20 65 6e 64 20 6f 66 20 66 69 6c 65  cted end of file
1330: 20 6f 6e 20 22 2c 20 69 6e 2d 3e 6e 61 6d 65 29   on ", in->name)
1340: 29 0a 0a 2f 2a 20 67 65 74 20 61 20 66 6f 75 72  )../* get a four
1350: 2d 62 79 74 65 20 6c 69 74 74 6c 65 2d 65 6e 64  -byte little-end
1360: 69 61 6e 20 75 6e 73 69 67 6e 65 64 20 69 6e 74  ian unsigned int
1370: 65 67 65 72 20 66 72 6f 6d 20 66 69 6c 65 20 2a  eger from file *
1380: 2f 0a 6c 6f 63 61 6c 20 75 6e 73 69 67 6e 65 64  /.local unsigned
1390: 20 6c 6f 6e 67 20 62 67 65 74 34 28 62 69 6e 20   long bget4(bin 
13a0: 2a 69 6e 29 0a 7b 0a 20 20 20 20 75 6e 73 69 67  *in).{.    unsig
13b0: 6e 65 64 20 6c 6f 6e 67 20 76 61 6c 3b 0a 0a 20  ned long val;.. 
13c0: 20 20 20 76 61 6c 20 3d 20 62 67 65 74 28 69 6e     val = bget(in
13d0: 29 3b 0a 20 20 20 20 76 61 6c 20 2b 3d 20 28 75  );.    val += (u
13e0: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 28 62 67  nsigned long)(bg
13f0: 65 74 28 69 6e 29 29 20 3c 3c 20 38 3b 0a 20 20  et(in)) << 8;.  
1400: 20 20 76 61 6c 20 2b 3d 20 28 75 6e 73 69 67 6e    val += (unsign
1410: 65 64 20 6c 6f 6e 67 29 28 62 67 65 74 28 69 6e  ed long)(bget(in
1420: 29 29 20 3c 3c 20 31 36 3b 0a 20 20 20 20 76 61  )) << 16;.    va
1430: 6c 20 2b 3d 20 28 75 6e 73 69 67 6e 65 64 20 6c  l += (unsigned l
1440: 6f 6e 67 29 28 62 67 65 74 28 69 6e 29 29 20 3c  ong)(bget(in)) <
1450: 3c 20 32 34 3b 0a 20 20 20 20 72 65 74 75 72 6e  < 24;.    return
1460: 20 76 61 6c 3b 0a 7d 0a 0a 2f 2a 20 73 6b 69 70   val;.}../* skip
1470: 20 62 79 74 65 73 20 69 6e 20 66 69 6c 65 20 2a   bytes in file *
1480: 2f 0a 6c 6f 63 61 6c 20 76 6f 69 64 20 62 73 6b  /.local void bsk
1490: 69 70 28 62 69 6e 20 2a 69 6e 2c 20 75 6e 73 69  ip(bin *in, unsi
14a0: 67 6e 65 64 20 73 6b 69 70 29 0a 7b 0a 20 20 20  gned skip).{.   
14b0: 20 2f 2a 20 63 68 65 63 6b 20 70 6f 69 6e 74 65   /* check pointe
14c0: 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 20  r */.    if (in 
14d0: 3d 3d 20 4e 55 4c 4c 29 0a 20 20 20 20 20 20 20  == NULL).       
14e0: 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 2f 2a   return;..    /*
14f0: 20 65 61 73 79 20 63 61 73 65 20 2d 2d 20 73 6b   easy case -- sk
1500: 69 70 20 62 79 74 65 73 20 69 6e 20 62 75 66 66  ip bytes in buff
1510: 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 6b  er */.    if (sk
1520: 69 70 20 3c 3d 20 69 6e 2d 3e 6c 65 66 74 29 20  ip <= in->left) 
1530: 7b 0a 20 20 20 20 20 20 20 20 69 6e 2d 3e 6c 65  {.        in->le
1540: 66 74 20 2d 3d 20 73 6b 69 70 3b 0a 20 20 20 20  ft -= skip;.    
1550: 20 20 20 20 69 6e 2d 3e 6e 65 78 74 20 2b 3d 20      in->next += 
1560: 73 6b 69 70 3b 0a 20 20 20 20 20 20 20 20 72 65  skip;.        re
1570: 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  turn;.    }..   
1580: 20 2f 2a 20 73 6b 69 70 20 77 68 61 74 27 73 20   /* skip what's 
1590: 69 6e 20 62 75 66 66 65 72 2c 20 64 69 73 63 61  in buffer, disca
15a0: 72 64 20 62 75 66 66 65 72 20 63 6f 6e 74 65 6e  rd buffer conten
15b0: 74 73 20 2a 2f 0a 20 20 20 20 73 6b 69 70 20 2d  ts */.    skip -
15c0: 3d 20 69 6e 2d 3e 6c 65 66 74 3b 0a 20 20 20 20  = in->left;.    
15d0: 69 6e 2d 3e 6c 65 66 74 20 3d 20 30 3b 0a 0a 20  in->left = 0;.. 
15e0: 20 20 20 2f 2a 20 73 65 65 6b 20 70 61 73 74 20     /* seek past 
15f0: 6d 75 6c 74 69 70 6c 65 73 20 6f 66 20 43 48 55  multiples of CHU
1600: 4e 4b 20 62 79 74 65 73 20 2a 2f 0a 20 20 20 20  NK bytes */.    
1610: 69 66 20 28 73 6b 69 70 20 3e 20 43 48 55 4e 4b  if (skip > CHUNK
1620: 29 20 7b 0a 20 20 20 20 20 20 20 20 75 6e 73 69  ) {.        unsi
1630: 67 6e 65 64 20 6c 65 66 74 3b 0a 0a 20 20 20 20  gned left;..    
1640: 20 20 20 20 6c 65 66 74 20 3d 20 73 6b 69 70 20      left = skip 
1650: 26 20 28 43 48 55 4e 4b 20 2d 20 31 29 3b 0a 20  & (CHUNK - 1);. 
1660: 20 20 20 20 20 20 20 69 66 20 28 6c 65 66 74 20         if (left 
1670: 3d 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20 20  == 0) {.        
1680: 20 20 20 20 2f 2a 20 65 78 61 63 74 20 6e 75 6d      /* exact num
1690: 62 65 72 20 6f 66 20 63 68 75 6e 6b 73 3a 20 73  ber of chunks: s
16a0: 65 65 6b 20 61 6c 6c 20 74 68 65 20 77 61 79 20  eek all the way 
16b0: 6d 69 6e 75 73 20 6f 6e 65 20 62 79 74 65 20 74  minus one byte t
16c0: 6f 20 63 68 65 63 6b 0a 20 20 20 20 20 20 20 20  o check.        
16d0: 20 20 20 20 20 20 20 66 6f 72 20 65 6e 64 2d 6f         for end-o
16e0: 66 2d 66 69 6c 65 20 77 69 74 68 20 61 20 72 65  f-file with a re
16f0: 61 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  ad */.          
1700: 20 20 6c 73 65 65 6b 28 69 6e 2d 3e 66 64 2c 20    lseek(in->fd, 
1710: 73 6b 69 70 20 2d 20 31 2c 20 53 45 45 4b 5f 43  skip - 1, SEEK_C
1720: 55 52 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  UR);.           
1730: 20 69 66 20 28 72 65 61 64 28 69 6e 2d 3e 66 64   if (read(in->fd
1740: 2c 20 69 6e 2d 3e 62 75 66 2c 20 31 29 20 21 3d  , in->buf, 1) !=
1750: 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20   1).            
1760: 20 20 20 20 62 61 69 6c 28 22 75 6e 65 78 70 65      bail("unexpe
1770: 63 74 65 64 20 65 6e 64 20 6f 66 20 66 69 6c 65  cted end of file
1780: 20 6f 6e 20 22 2c 20 69 6e 2d 3e 6e 61 6d 65 29   on ", in->name)
1790: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ;.            re
17a0: 74 75 72 6e 3b 0a 20 20 20 20 20 20 20 20 7d 0a  turn;.        }.
17b0: 0a 20 20 20 20 20 20 20 20 2f 2a 20 73 6b 69 70  .        /* skip
17c0: 20 74 68 65 20 69 6e 74 65 67 72 61 6c 20 63 68   the integral ch
17d0: 75 6e 6b 73 2c 20 75 70 64 61 74 65 20 73 6b 69  unks, update ski
17e0: 70 20 77 69 74 68 20 72 65 6d 61 69 6e 64 65 72  p with remainder
17f0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 6c 73 65 65   */.        lsee
1800: 6b 28 69 6e 2d 3e 66 64 2c 20 73 6b 69 70 20 2d  k(in->fd, skip -
1810: 20 6c 65 66 74 2c 20 53 45 45 4b 5f 43 55 52 29   left, SEEK_CUR)
1820: 3b 0a 20 20 20 20 20 20 20 20 73 6b 69 70 20 3d  ;.        skip =
1830: 20 6c 65 66 74 3b 0a 20 20 20 20 7d 0a 0a 20 20   left;.    }..  
1840: 20 20 2f 2a 20 72 65 61 64 20 6d 6f 72 65 20 69    /* read more i
1850: 6e 70 75 74 20 61 6e 64 20 73 6b 69 70 20 72 65  nput and skip re
1860: 6d 61 69 6e 64 65 72 20 2a 2f 0a 20 20 20 20 62  mainder */.    b
1870: 6c 6f 61 64 28 69 6e 29 3b 0a 20 20 20 20 69 66  load(in);.    if
1880: 20 28 73 6b 69 70 20 3e 20 69 6e 2d 3e 6c 65 66   (skip > in->lef
1890: 74 29 0a 20 20 20 20 20 20 20 20 62 61 69 6c 28  t).        bail(
18a0: 22 75 6e 65 78 70 65 63 74 65 64 20 65 6e 64 20  "unexpected end 
18b0: 6f 66 20 66 69 6c 65 20 6f 6e 20 22 2c 20 69 6e  of file on ", in
18c0: 2d 3e 6e 61 6d 65 29 3b 0a 20 20 20 20 69 6e 2d  ->name);.    in-
18d0: 3e 6c 65 66 74 20 2d 3d 20 73 6b 69 70 3b 0a 20  >left -= skip;. 
18e0: 20 20 20 69 6e 2d 3e 6e 65 78 74 20 2b 3d 20 73     in->next += s
18f0: 6b 69 70 3b 0a 7d 0a 0a 2f 2a 20 2d 2d 20 65 6e  kip;.}../* -- en
1900: 64 20 6f 66 20 62 75 66 66 65 72 65 64 20 69 6e  d of buffered in
1910: 70 75 74 20 66 75 6e 63 74 69 6f 6e 73 20 2d 2d  put functions --
1920: 20 2a 2f 0a 0a 2f 2a 20 73 6b 69 70 20 74 68 65   */../* skip the
1930: 20 67 7a 69 70 20 68 65 61 64 65 72 20 66 72 6f   gzip header fro
1940: 6d 20 66 69 6c 65 20 69 6e 20 2a 2f 0a 6c 6f 63  m file in */.loc
1950: 61 6c 20 76 6f 69 64 20 67 7a 68 65 61 64 28 62  al void gzhead(b
1960: 69 6e 20 2a 69 6e 29 0a 7b 0a 20 20 20 20 69 6e  in *in).{.    in
1970: 74 20 66 6c 61 67 73 3b 0a 0a 20 20 20 20 2f 2a  t flags;..    /*
1980: 20 76 65 72 69 66 79 20 67 7a 69 70 20 6d 61 67   verify gzip mag
1990: 69 63 20 68 65 61 64 65 72 20 61 6e 64 20 63 6f  ic header and co
19a0: 6d 70 72 65 73 73 69 6f 6e 20 6d 65 74 68 6f 64  mpression method
19b0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 62 67 65 74   */.    if (bget
19c0: 28 69 6e 29 20 21 3d 20 30 78 31 66 20 7c 7c 20  (in) != 0x1f || 
19d0: 62 67 65 74 28 69 6e 29 20 21 3d 20 30 78 38 62  bget(in) != 0x8b
19e0: 20 7c 7c 20 62 67 65 74 28 69 6e 29 20 21 3d 20   || bget(in) != 
19f0: 38 29 0a 20 20 20 20 20 20 20 20 62 61 69 6c 28  8).        bail(
1a00: 69 6e 2d 3e 6e 61 6d 65 2c 20 22 20 69 73 20 6e  in->name, " is n
1a10: 6f 74 20 61 20 76 61 6c 69 64 20 67 7a 69 70 20  ot a valid gzip 
1a20: 66 69 6c 65 22 29 3b 0a 0a 20 20 20 20 2f 2a 20  file");..    /* 
1a30: 67 65 74 20 61 6e 64 20 76 65 72 69 66 79 20 66  get and verify f
1a40: 6c 61 67 73 20 2a 2f 0a 20 20 20 20 66 6c 61 67  lags */.    flag
1a50: 73 20 3d 20 62 67 65 74 28 69 6e 29 3b 0a 20 20  s = bget(in);.  
1a60: 20 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 30    if ((flags & 0
1a70: 78 65 30 29 20 21 3d 20 30 29 0a 20 20 20 20 20  xe0) != 0).     
1a80: 20 20 20 62 61 69 6c 28 22 75 6e 6b 6e 6f 77 6e     bail("unknown
1a90: 20 72 65 73 65 72 76 65 64 20 62 69 74 73 20 73   reserved bits s
1aa0: 65 74 20 69 6e 20 22 2c 20 69 6e 2d 3e 6e 61 6d  et in ", in->nam
1ab0: 65 29 3b 0a 0a 20 20 20 20 2f 2a 20 73 6b 69 70  e);..    /* skip
1ac0: 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69   modification ti
1ad0: 6d 65 2c 20 65 78 74 72 61 20 66 6c 61 67 73 2c  me, extra flags,
1ae0: 20 61 6e 64 20 6f 73 20 2a 2f 0a 20 20 20 20 62   and os */.    b
1af0: 73 6b 69 70 28 69 6e 2c 20 36 29 3b 0a 0a 20 20  skip(in, 6);..  
1b00: 20 20 2f 2a 20 73 6b 69 70 20 65 78 74 72 61 20    /* skip extra 
1b10: 66 69 65 6c 64 20 69 66 20 70 72 65 73 65 6e 74  field if present
1b20: 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 6c 61 67   */.    if (flag
1b30: 73 20 26 20 34 29 20 7b 0a 20 20 20 20 20 20 20  s & 4) {.       
1b40: 20 75 6e 73 69 67 6e 65 64 20 6c 65 6e 3b 0a 0a   unsigned len;..
1b50: 20 20 20 20 20 20 20 20 6c 65 6e 20 3d 20 62 67          len = bg
1b60: 65 74 28 69 6e 29 3b 0a 20 20 20 20 20 20 20 20  et(in);.        
1b70: 6c 65 6e 20 2b 3d 20 28 75 6e 73 69 67 6e 65 64  len += (unsigned
1b80: 29 28 62 67 65 74 28 69 6e 29 29 20 3c 3c 20 38  )(bget(in)) << 8
1b90: 3b 0a 20 20 20 20 20 20 20 20 62 73 6b 69 70 28  ;.        bskip(
1ba0: 69 6e 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a  in, len);.    }.
1bb0: 0a 20 20 20 20 2f 2a 20 73 6b 69 70 20 66 69 6c  .    /* skip fil
1bc0: 65 20 6e 61 6d 65 20 69 66 20 70 72 65 73 65 6e  e name if presen
1bd0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 6c 61  t */.    if (fla
1be0: 67 73 20 26 20 38 29 0a 20 20 20 20 20 20 20 20  gs & 8).        
1bf0: 77 68 69 6c 65 20 28 62 67 65 74 28 69 6e 29 20  while (bget(in) 
1c00: 21 3d 20 30 29 0a 20 20 20 20 20 20 20 20 20 20  != 0).          
1c10: 20 20 3b 0a 0a 20 20 20 20 2f 2a 20 73 6b 69 70    ;..    /* skip
1c20: 20 63 6f 6d 6d 65 6e 74 20 69 66 20 70 72 65 73   comment if pres
1c30: 65 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 66  ent */.    if (f
1c40: 6c 61 67 73 20 26 20 31 36 29 0a 20 20 20 20 20  lags & 16).     
1c50: 20 20 20 77 68 69 6c 65 20 28 62 67 65 74 28 69     while (bget(i
1c60: 6e 29 20 21 3d 20 30 29 0a 20 20 20 20 20 20 20  n) != 0).       
1c70: 20 20 20 20 20 3b 0a 0a 20 20 20 20 2f 2a 20 73       ;..    /* s
1c80: 6b 69 70 20 68 65 61 64 65 72 20 63 72 63 20 69  kip header crc i
1c90: 66 20 70 72 65 73 65 6e 74 20 2a 2f 0a 20 20 20  f present */.   
1ca0: 20 69 66 20 28 66 6c 61 67 73 20 26 20 32 29 0a   if (flags & 2).
1cb0: 20 20 20 20 20 20 20 20 62 73 6b 69 70 28 69 6e          bskip(in
1cc0: 2c 20 32 29 3b 0a 7d 0a 0a 2f 2a 20 77 72 69 74  , 2);.}../* writ
1cd0: 65 20 61 20 66 6f 75 72 2d 62 79 74 65 20 6c 69  e a four-byte li
1ce0: 74 74 6c 65 2d 65 6e 64 69 61 6e 20 75 6e 73 69  ttle-endian unsi
1cf0: 67 6e 65 64 20 69 6e 74 65 67 65 72 20 74 6f 20  gned integer to 
1d00: 6f 75 74 20 2a 2f 0a 6c 6f 63 61 6c 20 76 6f 69  out */.local voi
1d10: 64 20 70 75 74 34 28 75 6e 73 69 67 6e 65 64 20  d put4(unsigned 
1d20: 6c 6f 6e 67 20 76 61 6c 2c 20 46 49 4c 45 20 2a  long val, FILE *
1d30: 6f 75 74 29 0a 7b 0a 20 20 20 20 70 75 74 63 28  out).{.    putc(
1d40: 76 61 6c 20 26 20 30 78 66 66 2c 20 6f 75 74 29  val & 0xff, out)
1d50: 3b 0a 20 20 20 20 70 75 74 63 28 28 76 61 6c 20  ;.    putc((val 
1d60: 3e 3e 20 38 29 20 26 20 30 78 66 66 2c 20 6f 75  >> 8) & 0xff, ou
1d70: 74 29 3b 0a 20 20 20 20 70 75 74 63 28 28 76 61  t);.    putc((va
1d80: 6c 20 3e 3e 20 31 36 29 20 26 20 30 78 66 66 2c  l >> 16) & 0xff,
1d90: 20 6f 75 74 29 3b 0a 20 20 20 20 70 75 74 63 28   out);.    putc(
1da0: 28 76 61 6c 20 3e 3e 20 32 34 29 20 26 20 30 78  (val >> 24) & 0x
1db0: 66 66 2c 20 6f 75 74 29 3b 0a 7d 0a 0a 2f 2a 20  ff, out);.}../* 
1dc0: 4c 6f 61 64 20 75 70 20 7a 6c 69 62 20 73 74 72  Load up zlib str
1dd0: 65 61 6d 20 66 72 6f 6d 20 62 75 66 66 65 72 65  eam from buffere
1de0: 64 20 69 6e 70 75 74 2c 20 62 61 69 6c 20 69 66  d input, bail if
1df0: 20 65 6e 64 20 6f 66 20 66 69 6c 65 20 2a 2f 0a   end of file */.
1e00: 6c 6f 63 61 6c 20 76 6f 69 64 20 7a 70 75 6c 6c  local void zpull
1e10: 28 7a 5f 73 74 72 65 61 6d 70 20 73 74 72 6d 2c  (z_streamp strm,
1e20: 20 62 69 6e 20 2a 69 6e 29 0a 7b 0a 20 20 20 20   bin *in).{.    
1e30: 69 66 20 28 69 6e 2d 3e 6c 65 66 74 20 3d 3d 20  if (in->left == 
1e40: 30 29 0a 20 20 20 20 20 20 20 20 62 6c 6f 61 64  0).        bload
1e50: 28 69 6e 29 3b 0a 20 20 20 20 69 66 20 28 69 6e  (in);.    if (in
1e60: 2d 3e 6c 65 66 74 20 3d 3d 20 30 29 0a 20 20 20  ->left == 0).   
1e70: 20 20 20 20 20 62 61 69 6c 28 22 75 6e 65 78 70       bail("unexp
1e80: 65 63 74 65 64 20 65 6e 64 20 6f 66 20 66 69 6c  ected end of fil
1e90: 65 20 6f 6e 20 22 2c 20 69 6e 2d 3e 6e 61 6d 65  e on ", in->name
1ea0: 29 3b 0a 20 20 20 20 73 74 72 6d 2d 3e 61 76 61  );.    strm->ava
1eb0: 69 6c 5f 69 6e 20 3d 20 69 6e 2d 3e 6c 65 66 74  il_in = in->left
1ec0: 3b 0a 20 20 20 20 73 74 72 6d 2d 3e 6e 65 78 74  ;.    strm->next
1ed0: 5f 69 6e 20 3d 20 69 6e 2d 3e 6e 65 78 74 3b 0a  _in = in->next;.
1ee0: 7d 0a 0a 2f 2a 20 57 72 69 74 65 20 68 65 61 64  }../* Write head
1ef0: 65 72 20 66 6f 72 20 67 7a 69 70 20 66 69 6c 65  er for gzip file
1f00: 20 74 6f 20 6f 75 74 20 61 6e 64 20 69 6e 69 74   to out and init
1f10: 69 61 6c 69 7a 65 20 74 72 61 69 6c 65 72 2e 20  ialize trailer. 
1f20: 2a 2f 0a 6c 6f 63 61 6c 20 76 6f 69 64 20 67 7a  */.local void gz
1f30: 69 6e 69 74 28 75 6e 73 69 67 6e 65 64 20 6c 6f  init(unsigned lo
1f40: 6e 67 20 2a 63 72 63 2c 20 75 6e 73 69 67 6e 65  ng *crc, unsigne
1f50: 64 20 6c 6f 6e 67 20 2a 74 6f 74 2c 20 46 49 4c  d long *tot, FIL
1f60: 45 20 2a 6f 75 74 29 0a 7b 0a 20 20 20 20 66 77  E *out).{.    fw
1f70: 72 69 74 65 28 22 5c 78 31 66 5c 78 38 62 5c 78  rite("\x1f\x8b\x
1f80: 30 38 5c 30 5c 30 5c 30 5c 30 5c 30 5c 30 5c 78  08\0\0\0\0\0\0\x
1f90: 66 66 22 2c 20 31 2c 20 31 30 2c 20 6f 75 74 29  ff", 1, 10, out)
1fa0: 3b 0a 20 20 20 20 2a 63 72 63 20 3d 20 63 72 63  ;.    *crc = crc
1fb0: 33 32 28 30 4c 2c 20 5a 5f 4e 55 4c 4c 2c 20 30  32(0L, Z_NULL, 0
1fc0: 29 3b 0a 20 20 20 20 2a 74 6f 74 20 3d 20 30 3b  );.    *tot = 0;
1fd0: 0a 7d 0a 0a 2f 2a 20 43 6f 70 79 20 74 68 65 20  .}../* Copy the 
1fe0: 63 6f 6d 70 72 65 73 73 65 64 20 64 61 74 61 20  compressed data 
1ff0: 66 72 6f 6d 20 6e 61 6d 65 2c 20 7a 65 72 6f 69  from name, zeroi
2000: 6e 67 20 74 68 65 20 6c 61 73 74 20 62 6c 6f 63  ng the last bloc
2010: 6b 20 62 69 74 20 6f 66 20 74 68 65 20 6c 61 73  k bit of the las
2020: 74 0a 20 20 20 62 6c 6f 63 6b 20 69 66 20 63 6c  t.   block if cl
2030: 72 20 69 73 20 74 72 75 65 2c 20 61 6e 64 20 61  r is true, and a
2040: 64 64 69 6e 67 20 65 6d 70 74 79 20 62 6c 6f 63  dding empty bloc
2050: 6b 73 20 61 73 20 6e 65 65 64 65 64 20 74 6f 20  ks as needed to 
2060: 67 65 74 20 74 6f 20 61 20 62 79 74 65 0a 20 20  get to a byte.  
2070: 20 62 6f 75 6e 64 61 72 79 2e 20 20 49 66 20 63   boundary.  If c
2080: 6c 72 20 69 73 20 66 61 6c 73 65 2c 20 74 68 65  lr is false, the
2090: 6e 20 74 68 65 20 6c 61 73 74 20 62 6c 6f 63 6b  n the last block
20a0: 20 62 65 63 6f 6d 65 73 20 74 68 65 20 6c 61 73   becomes the las
20b0: 74 20 62 6c 6f 63 6b 20 6f 66 0a 20 20 20 74 68  t block of.   th
20c0: 65 20 6f 75 74 70 75 74 2c 20 61 6e 64 20 74 68  e output, and th
20d0: 65 20 67 7a 69 70 20 74 72 61 69 6c 65 72 20 69  e gzip trailer i
20e0: 73 20 77 72 69 74 74 65 6e 2e 20 20 63 72 63 20  s written.  crc 
20f0: 61 6e 64 20 74 6f 74 20 6d 61 69 6e 74 61 69 6e  and tot maintain
2100: 73 20 74 68 65 0a 20 20 20 63 72 63 20 61 6e 64  s the.   crc and
2110: 20 6c 65 6e 67 74 68 20 28 6d 6f 64 75 6c 6f 20   length (modulo 
2120: 32 5e 33 32 29 20 6f 66 20 74 68 65 20 6f 75 74  2^32) of the out
2130: 70 75 74 20 66 6f 72 20 74 68 65 20 74 72 61 69  put for the trai
2140: 6c 65 72 2e 20 20 54 68 65 20 72 65 73 75 6c 74  ler.  The result
2150: 69 6e 67 0a 20 20 20 67 7a 69 70 20 66 69 6c 65  ing.   gzip file
2160: 20 69 73 20 77 72 69 74 74 65 6e 20 74 6f 20 6f   is written to o
2170: 75 74 2e 20 20 67 7a 69 6e 69 74 28 29 20 6d 75  ut.  gzinit() mu
2180: 73 74 20 62 65 20 63 61 6c 6c 65 64 20 62 65 66  st be called bef
2190: 6f 72 65 20 74 68 65 20 66 69 72 73 74 20 63 61  ore the first ca
21a0: 6c 6c 0a 20 20 20 6f 66 20 67 7a 63 6f 70 79 28  ll.   of gzcopy(
21b0: 29 20 74 6f 20 77 72 69 74 65 20 74 68 65 20 67  ) to write the g
21c0: 7a 69 70 20 68 65 61 64 65 72 20 61 6e 64 20 74  zip header and t
21d0: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 63 72 63  o initialize crc
21e0: 20 61 6e 64 20 74 6f 74 2e 20 2a 2f 0a 6c 6f 63   and tot. */.loc
21f0: 61 6c 20 76 6f 69 64 20 67 7a 63 6f 70 79 28 63  al void gzcopy(c
2200: 68 61 72 20 2a 6e 61 6d 65 2c 20 69 6e 74 20 63  har *name, int c
2210: 6c 72 2c 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e  lr, unsigned lon
2220: 67 20 2a 63 72 63 2c 20 75 6e 73 69 67 6e 65 64  g *crc, unsigned
2230: 20 6c 6f 6e 67 20 2a 74 6f 74 2c 0a 20 20 20 20   long *tot,.    
2240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 49                FI
2250: 4c 45 20 2a 6f 75 74 29 0a 7b 0a 20 20 20 20 69  LE *out).{.    i
2260: 6e 74 20 72 65 74 3b 20 20 20 20 20 20 20 20 20  nt ret;         
2270: 20 20 20 20 20 20 20 2f 2a 20 72 65 74 75 72 6e         /* return
2280: 20 76 61 6c 75 65 20 66 72 6f 6d 20 7a 6c 69 62   value from zlib
2290: 20 66 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 20 20   functions */.  
22a0: 20 20 69 6e 74 20 70 6f 73 3b 20 20 20 20 20 20    int pos;      
22b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 77 68 65            /* whe
22c0: 72 65 20 74 68 65 20 22 6c 61 73 74 20 62 6c 6f  re the "last blo
22d0: 63 6b 22 20 62 69 74 20 69 73 20 69 6e 20 62 79  ck" bit is in by
22e0: 74 65 20 2a 2f 0a 20 20 20 20 69 6e 74 20 6c 61  te */.    int la
22f0: 73 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  st;             
2300: 20 20 2f 2a 20 74 72 75 65 20 69 66 20 70 72 6f    /* true if pro
2310: 63 65 73 73 69 6e 67 20 74 68 65 20 6c 61 73 74  cessing the last
2320: 20 62 6c 6f 63 6b 20 2a 2f 0a 20 20 20 20 62 69   block */.    bi
2330: 6e 20 2a 69 6e 3b 20 20 20 20 20 20 20 20 20 20  n *in;          
2340: 20 20 20 20 20 20 2f 2a 20 62 75 66 66 65 72 65        /* buffere
2350: 64 20 69 6e 70 75 74 20 66 69 6c 65 20 2a 2f 0a  d input file */.
2360: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61      unsigned cha
2370: 72 20 2a 73 74 61 72 74 3b 20 20 20 2f 2a 20 73  r *start;   /* s
2380: 74 61 72 74 20 6f 66 20 63 6f 6d 70 72 65 73 73  tart of compress
2390: 65 64 20 64 61 74 61 20 69 6e 20 62 75 66 66 65  ed data in buffe
23a0: 72 20 2a 2f 0a 20 20 20 20 75 6e 73 69 67 6e 65  r */.    unsigne
23b0: 64 20 63 68 61 72 20 2a 6a 75 6e 6b 3b 20 20 20  d char *junk;   
23c0: 20 2f 2a 20 62 75 66 66 65 72 20 66 6f 72 20 75   /* buffer for u
23d0: 6e 63 6f 6d 70 72 65 73 73 65 64 20 64 61 74 61  ncompressed data
23e0: 20 2d 2d 20 64 69 73 63 61 72 64 65 64 20 2a 2f   -- discarded */
23f0: 0a 20 20 20 20 7a 5f 6f 66 66 5f 74 20 6c 65 6e  .    z_off_t len
2400: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ;            /* 
2410: 6c 65 6e 67 74 68 20 6f 66 20 75 6e 63 6f 6d 70  length of uncomp
2420: 72 65 73 73 65 64 20 64 61 74 61 20 28 73 75 70  ressed data (sup
2430: 70 6f 72 74 20 3e 20 34 20 47 42 29 20 2a 2f 0a  port > 4 GB) */.
2440: 20 20 20 20 7a 5f 73 74 72 65 61 6d 20 73 74 72      z_stream str
2450: 6d 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 7a  m;          /* z
2460: 6c 69 62 20 69 6e 66 6c 61 74 65 20 73 74 72 65  lib inflate stre
2470: 61 6d 20 2a 2f 0a 0a 20 20 20 20 2f 2a 20 6f 70  am */..    /* op
2480: 65 6e 20 67 7a 69 70 20 66 69 6c 65 20 61 6e 64  en gzip file and
2490: 20 73 6b 69 70 20 68 65 61 64 65 72 20 2a 2f 0a   skip header */.
24a0: 20 20 20 20 69 6e 20 3d 20 62 6f 70 65 6e 28 6e      in = bopen(n
24b0: 61 6d 65 29 3b 0a 20 20 20 20 69 66 20 28 69 6e  ame);.    if (in
24c0: 20 3d 3d 20 4e 55 4c 4c 29 0a 20 20 20 20 20 20   == NULL).      
24d0: 20 20 62 61 69 6c 28 22 63 6f 75 6c 64 20 6e 6f    bail("could no
24e0: 74 20 6f 70 65 6e 20 22 2c 20 6e 61 6d 65 29 3b  t open ", name);
24f0: 0a 20 20 20 20 67 7a 68 65 61 64 28 69 6e 29 3b  .    gzhead(in);
2500: 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74  ..    /* allocat
2510: 65 20 62 75 66 66 65 72 20 66 6f 72 20 75 6e 63  e buffer for unc
2520: 6f 6d 70 72 65 73 73 65 64 20 64 61 74 61 20 61  ompressed data a
2530: 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 72 61  nd initialize ra
2540: 77 20 69 6e 66 6c 61 74 65 0a 20 20 20 20 20 20  w inflate.      
2550: 20 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 6a   stream */.    j
2560: 75 6e 6b 20 3d 20 6d 61 6c 6c 6f 63 28 43 48 55  unk = malloc(CHU
2570: 4e 4b 29 3b 0a 20 20 20 20 73 74 72 6d 2e 7a 61  NK);.    strm.za
2580: 6c 6c 6f 63 20 3d 20 5a 5f 4e 55 4c 4c 3b 0a 20  lloc = Z_NULL;. 
2590: 20 20 20 73 74 72 6d 2e 7a 66 72 65 65 20 3d 20     strm.zfree = 
25a0: 5a 5f 4e 55 4c 4c 3b 0a 20 20 20 20 73 74 72 6d  Z_NULL;.    strm
25b0: 2e 6f 70 61 71 75 65 20 3d 20 5a 5f 4e 55 4c 4c  .opaque = Z_NULL
25c0: 3b 0a 20 20 20 20 73 74 72 6d 2e 61 76 61 69 6c  ;.    strm.avail
25d0: 5f 69 6e 20 3d 20 30 3b 0a 20 20 20 20 73 74 72  _in = 0;.    str
25e0: 6d 2e 6e 65 78 74 5f 69 6e 20 3d 20 5a 5f 4e 55  m.next_in = Z_NU
25f0: 4c 4c 3b 0a 20 20 20 20 72 65 74 20 3d 20 69 6e  LL;.    ret = in
2600: 66 6c 61 74 65 49 6e 69 74 32 28 26 73 74 72 6d  flateInit2(&strm
2610: 2c 20 2d 31 35 29 3b 0a 20 20 20 20 69 66 20 28  , -15);.    if (
2620: 6a 75 6e 6b 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20  junk == NULL || 
2630: 72 65 74 20 21 3d 20 5a 5f 4f 4b 29 0a 20 20 20  ret != Z_OK).   
2640: 20 20 20 20 20 62 61 69 6c 28 22 6f 75 74 20 6f       bail("out o
2650: 66 20 6d 65 6d 6f 72 79 22 2c 20 22 22 29 3b 0a  f memory", "");.
2660: 0a 20 20 20 20 2f 2a 20 69 6e 66 6c 61 74 65 20  .    /* inflate 
2670: 61 6e 64 20 63 6f 70 79 20 63 6f 6d 70 72 65 73  and copy compres
2680: 73 65 64 20 64 61 74 61 2c 20 63 6c 65 61 72 20  sed data, clear 
2690: 6c 61 73 74 2d 62 6c 6f 63 6b 20 62 69 74 20 69  last-block bit i
26a0: 66 20 72 65 71 75 65 73 74 65 64 20 2a 2f 0a 20  f requested */. 
26b0: 20 20 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20     len = 0;.    
26c0: 7a 70 75 6c 6c 28 26 73 74 72 6d 2c 20 69 6e 29  zpull(&strm, in)
26d0: 3b 0a 20 20 20 20 73 74 61 72 74 20 3d 20 69 6e  ;.    start = in
26e0: 2d 3e 6e 65 78 74 3b 0a 20 20 20 20 6c 61 73 74  ->next;.    last
26f0: 20 3d 20 73 74 61 72 74 5b 30 5d 20 26 20 31 3b   = start[0] & 1;
2700: 0a 20 20 20 20 69 66 20 28 6c 61 73 74 20 26 26  .    if (last &&
2710: 20 63 6c 72 29 0a 20 20 20 20 20 20 20 20 73 74   clr).        st
2720: 61 72 74 5b 30 5d 20 26 3d 20 7e 31 3b 0a 20 20  art[0] &= ~1;.  
2730: 20 20 73 74 72 6d 2e 61 76 61 69 6c 5f 6f 75 74    strm.avail_out
2740: 20 3d 20 30 3b 0a 20 20 20 20 66 6f 72 20 28 3b   = 0;.    for (;
2750: 3b 29 20 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20  ;) {.        /* 
2760: 69 66 20 69 6e 70 75 74 20 75 73 65 64 20 61 6e  if input used an
2770: 64 20 6f 75 74 70 75 74 20 64 6f 6e 65 2c 20 77  d output done, w
2780: 72 69 74 65 20 75 73 65 64 20 69 6e 70 75 74 20  rite used input 
2790: 61 6e 64 20 67 65 74 20 6d 6f 72 65 20 2a 2f 0a  and get more */.
27a0: 20 20 20 20 20 20 20 20 69 66 20 28 73 74 72 6d          if (strm
27b0: 2e 61 76 61 69 6c 5f 69 6e 20 3d 3d 20 30 20 26  .avail_in == 0 &
27c0: 26 20 73 74 72 6d 2e 61 76 61 69 6c 5f 6f 75 74  & strm.avail_out
27d0: 20 21 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20   != 0) {.       
27e0: 20 20 20 20 20 66 77 72 69 74 65 28 73 74 61 72       fwrite(star
27f0: 74 2c 20 31 2c 20 73 74 72 6d 2e 6e 65 78 74 5f  t, 1, strm.next_
2800: 69 6e 20 2d 20 73 74 61 72 74 2c 20 6f 75 74 29  in - start, out)
2810: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74  ;.            st
2820: 61 72 74 20 3d 20 69 6e 2d 3e 62 75 66 3b 0a 20  art = in->buf;. 
2830: 20 20 20 20 20 20 20 20 20 20 20 69 6e 2d 3e 6c             in->l
2840: 65 66 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  eft = 0;.       
2850: 20 20 20 20 20 7a 70 75 6c 6c 28 26 73 74 72 6d       zpull(&strm
2860: 2c 20 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 7d  , in);.        }
2870: 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 64 65 63  ..        /* dec
2880: 6f 6d 70 72 65 73 73 20 2d 2d 20 72 65 74 75 72  ompress -- retur
2890: 6e 20 65 61 72 6c 79 20 77 68 65 6e 20 65 6e 64  n early when end
28a0: 2d 6f 66 2d 62 6c 6f 63 6b 20 72 65 61 63 68 65  -of-block reache
28b0: 64 20 2a 2f 0a 20 20 20 20 20 20 20 20 73 74 72  d */.        str
28c0: 6d 2e 61 76 61 69 6c 5f 6f 75 74 20 3d 20 43 48  m.avail_out = CH
28d0: 55 4e 4b 3b 0a 20 20 20 20 20 20 20 20 73 74 72  UNK;.        str
28e0: 6d 2e 6e 65 78 74 5f 6f 75 74 20 3d 20 6a 75 6e  m.next_out = jun
28f0: 6b 3b 0a 20 20 20 20 20 20 20 20 72 65 74 20 3d  k;.        ret =
2900: 20 69 6e 66 6c 61 74 65 28 26 73 74 72 6d 2c 20   inflate(&strm, 
2910: 5a 5f 42 4c 4f 43 4b 29 3b 0a 20 20 20 20 20 20  Z_BLOCK);.      
2920: 20 20 73 77 69 74 63 68 20 28 72 65 74 29 20 7b    switch (ret) {
2930: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 5a 5f  .        case Z_
2940: 4d 45 4d 5f 45 52 52 4f 52 3a 0a 20 20 20 20 20  MEM_ERROR:.     
2950: 20 20 20 20 20 20 20 62 61 69 6c 28 22 6f 75 74         bail("out
2960: 20 6f 66 20 6d 65 6d 6f 72 79 22 2c 20 22 22 29   of memory", "")
2970: 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 5a  ;.        case Z
2980: 5f 44 41 54 41 5f 45 52 52 4f 52 3a 0a 20 20 20  _DATA_ERROR:.   
2990: 20 20 20 20 20 20 20 20 20 62 61 69 6c 28 22 69           bail("i
29a0: 6e 76 61 6c 69 64 20 63 6f 6d 70 72 65 73 73 65  nvalid compresse
29b0: 64 20 64 61 74 61 20 69 6e 20 22 2c 20 69 6e 2d  d data in ", in-
29c0: 3e 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20  >name);.        
29d0: 7d 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 75 70  }..        /* up
29e0: 64 61 74 65 20 6c 65 6e 67 74 68 20 6f 66 20 75  date length of u
29f0: 6e 63 6f 6d 70 72 65 73 73 65 64 20 64 61 74 61  ncompressed data
2a00: 20 2a 2f 0a 20 20 20 20 20 20 20 20 6c 65 6e 20   */.        len 
2a10: 2b 3d 20 43 48 55 4e 4b 20 2d 20 73 74 72 6d 2e  += CHUNK - strm.
2a20: 61 76 61 69 6c 5f 6f 75 74 3b 0a 0a 20 20 20 20  avail_out;..    
2a30: 20 20 20 20 2f 2a 20 63 68 65 63 6b 20 66 6f 72      /* check for
2a40: 20 62 6c 6f 63 6b 20 62 6f 75 6e 64 61 72 79 20   block boundary 
2a50: 28 6f 6e 6c 79 20 67 65 74 20 74 68 69 73 20 77  (only get this w
2a60: 68 65 6e 20 62 6c 6f 63 6b 20 63 6f 70 69 65 64  hen block copied
2a70: 20 6f 75 74 29 20 2a 2f 0a 20 20 20 20 20 20 20   out) */.       
2a80: 20 69 66 20 28 73 74 72 6d 2e 64 61 74 61 5f 74   if (strm.data_t
2a90: 79 70 65 20 26 20 31 32 38 29 20 7b 0a 20 20 20  ype & 128) {.   
2aa0: 20 20 20 20 20 20 20 20 20 2f 2a 20 69 66 20 74           /* if t
2ab0: 68 61 74 20 77 61 73 20 74 68 65 20 6c 61 73 74  hat was the last
2ac0: 20 62 6c 6f 63 6b 2c 20 74 68 65 6e 20 64 6f 6e   block, then don
2ad0: 65 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  e */.           
2ae0: 20 69 66 20 28 6c 61 73 74 29 0a 20 20 20 20 20   if (last).     
2af0: 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b             break
2b00: 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 2f  ;..            /
2b10: 2a 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e 75 73  * number of unus
2b20: 65 64 20 62 69 74 73 20 69 6e 20 6c 61 73 74 20  ed bits in last 
2b30: 62 79 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20  byte */.        
2b40: 20 20 20 20 70 6f 73 20 3d 20 73 74 72 6d 2e 64      pos = strm.d
2b50: 61 74 61 5f 74 79 70 65 20 26 20 37 3b 0a 0a 20  ata_type & 7;.. 
2b60: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 69             /* fi
2b70: 6e 64 20 74 68 65 20 6e 65 78 74 20 6c 61 73 74  nd the next last
2b80: 2d 62 6c 6f 63 6b 20 62 69 74 20 2a 2f 0a 20 20  -block bit */.  
2b90: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 70 6f            if (po
2ba0: 73 20 21 3d 20 30 29 20 7b 0a 20 20 20 20 20 20  s != 0) {.      
2bb0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6e 65 78            /* nex
2bc0: 74 20 6c 61 73 74 2d 62 6c 6f 63 6b 20 62 69 74  t last-block bit
2bd0: 20 69 73 20 69 6e 20 6c 61 73 74 20 75 73 65 64   is in last used
2be0: 20 62 79 74 65 20 2a 2f 0a 20 20 20 20 20 20 20   byte */.       
2bf0: 20 20 20 20 20 20 20 20 20 70 6f 73 20 3d 20 30           pos = 0
2c00: 78 31 30 30 20 3e 3e 20 70 6f 73 3b 0a 20 20 20  x100 >> pos;.   
2c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 73               las
2c20: 74 20 3d 20 73 74 72 6d 2e 6e 65 78 74 5f 69 6e  t = strm.next_in
2c30: 5b 2d 31 5d 20 26 20 70 6f 73 3b 0a 20 20 20 20  [-1] & pos;.    
2c40: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28              if (
2c50: 6c 61 73 74 20 26 26 20 63 6c 72 29 0a 20 20 20  last && clr).   
2c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2c70: 20 69 6e 2d 3e 62 75 66 5b 73 74 72 6d 2e 6e 65   in->buf[strm.ne
2c80: 78 74 5f 69 6e 20 2d 20 69 6e 2d 3e 62 75 66 20  xt_in - in->buf 
2c90: 2d 20 31 5d 20 26 3d 20 7e 70 6f 73 3b 0a 20 20  - 1] &= ~pos;.  
2ca0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
2cb0: 20 20 20 20 20 20 20 20 65 6c 73 65 20 7b 0a 20          else {. 
2cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
2cd0: 2a 20 6e 65 78 74 20 6c 61 73 74 2d 62 6c 6f 63  * next last-bloc
2ce0: 6b 20 62 69 74 20 69 73 20 69 6e 20 6e 65 78 74  k bit is in next
2cf0: 20 75 6e 75 73 65 64 20 62 79 74 65 20 2a 2f 0a   unused byte */.
2d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d10: 69 66 20 28 73 74 72 6d 2e 61 76 61 69 6c 5f 69  if (strm.avail_i
2d20: 6e 20 3d 3d 20 30 29 20 7b 0a 20 20 20 20 20 20  n == 0) {.      
2d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2d40: 20 64 6f 6e 27 74 20 68 61 76 65 20 74 68 61 74   don't have that
2d50: 20 62 79 74 65 20 79 65 74 20 2d 2d 20 67 65 74   byte yet -- get
2d60: 20 69 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 20   it */.         
2d70: 20 20 20 20 20 20 20 20 20 20 20 66 77 72 69 74             fwrit
2d80: 65 28 73 74 61 72 74 2c 20 31 2c 20 73 74 72 6d  e(start, 1, strm
2d90: 2e 6e 65 78 74 5f 69 6e 20 2d 20 73 74 61 72 74  .next_in - start
2da0: 2c 20 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20  , out);.        
2db0: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72              star
2dc0: 74 20 3d 20 69 6e 2d 3e 62 75 66 3b 0a 20 20 20  t = in->buf;.   
2dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2de0: 20 69 6e 2d 3e 6c 65 66 74 20 3d 20 30 3b 0a 20   in->left = 0;. 
2df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2e00: 20 20 20 7a 70 75 6c 6c 28 26 73 74 72 6d 2c 20     zpull(&strm, 
2e10: 69 6e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  in);.           
2e20: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
2e30: 20 20 20 20 20 20 20 6c 61 73 74 20 3d 20 73 74         last = st
2e40: 72 6d 2e 6e 65 78 74 5f 69 6e 5b 30 5d 20 26 20  rm.next_in[0] & 
2e50: 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  1;.             
2e60: 20 20 20 69 66 20 28 6c 61 73 74 20 26 26 20 63     if (last && c
2e70: 6c 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20  lr).            
2e80: 20 20 20 20 20 20 20 20 69 6e 2d 3e 62 75 66 5b          in->buf[
2e90: 73 74 72 6d 2e 6e 65 78 74 5f 69 6e 20 2d 20 69  strm.next_in - i
2ea0: 6e 2d 3e 62 75 66 5d 20 26 3d 20 7e 31 3b 0a 20  n->buf] &= ~1;. 
2eb0: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20             }.   
2ec0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 0a 20 20       }.    }..  
2ed0: 20 20 2f 2a 20 75 70 64 61 74 65 20 62 75 66 66    /* update buff
2ee0: 65 72 20 77 69 74 68 20 75 6e 75 73 65 64 20 69  er with unused i
2ef0: 6e 70 75 74 20 2a 2f 0a 20 20 20 20 69 6e 2d 3e  nput */.    in->
2f00: 6c 65 66 74 20 3d 20 73 74 72 6d 2e 61 76 61 69  left = strm.avai
2f10: 6c 5f 69 6e 3b 0a 20 20 20 20 69 6e 2d 3e 6e 65  l_in;.    in->ne
2f20: 78 74 20 3d 20 69 6e 2d 3e 62 75 66 20 2b 20 28  xt = in->buf + (
2f30: 73 74 72 6d 2e 6e 65 78 74 5f 69 6e 20 2d 20 69  strm.next_in - i
2f40: 6e 2d 3e 62 75 66 29 3b 0a 0a 20 20 20 20 2f 2a  n->buf);..    /*
2f50: 20 63 6f 70 79 20 75 73 65 64 20 69 6e 70 75 74   copy used input
2f60: 2c 20 77 72 69 74 65 20 65 6d 70 74 79 20 62 6c  , write empty bl
2f70: 6f 63 6b 73 20 74 6f 20 67 65 74 20 74 6f 20 62  ocks to get to b
2f80: 79 74 65 20 62 6f 75 6e 64 61 72 79 20 2a 2f 0a  yte boundary */.
2f90: 20 20 20 20 70 6f 73 20 3d 20 73 74 72 6d 2e 64      pos = strm.d
2fa0: 61 74 61 5f 74 79 70 65 20 26 20 37 3b 0a 20 20  ata_type & 7;.  
2fb0: 20 20 66 77 72 69 74 65 28 73 74 61 72 74 2c 20    fwrite(start, 
2fc0: 31 2c 20 69 6e 2d 3e 6e 65 78 74 20 2d 20 73 74  1, in->next - st
2fd0: 61 72 74 20 2d 20 31 2c 20 6f 75 74 29 3b 0a 20  art - 1, out);. 
2fe0: 20 20 20 6c 61 73 74 20 3d 20 69 6e 2d 3e 6e 65     last = in->ne
2ff0: 78 74 5b 2d 31 5d 3b 0a 20 20 20 20 69 66 20 28  xt[-1];.    if (
3000: 70 6f 73 20 3d 3d 20 30 20 7c 7c 20 21 63 6c 72  pos == 0 || !clr
3010: 29 0a 20 20 20 20 20 20 20 20 2f 2a 20 61 6c 72  ).        /* alr
3020: 65 61 64 79 20 61 74 20 62 79 74 65 20 62 6f 75  eady at byte bou
3030: 6e 64 61 72 79 2c 20 6f 72 20 6c 61 73 74 20 66  ndary, or last f
3040: 69 6c 65 3a 20 77 72 69 74 65 20 6c 61 73 74 20  ile: write last 
3050: 62 79 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20  byte */.        
3060: 70 75 74 63 28 6c 61 73 74 2c 20 6f 75 74 29 3b  putc(last, out);
3070: 0a 20 20 20 20 65 6c 73 65 20 7b 0a 20 20 20 20  .    else {.    
3080: 20 20 20 20 2f 2a 20 61 70 70 65 6e 64 20 65 6d      /* append em
3090: 70 74 79 20 62 6c 6f 63 6b 73 20 74 6f 20 6c 61  pty blocks to la
30a0: 73 74 20 62 79 74 65 20 2a 2f 0a 20 20 20 20 20  st byte */.     
30b0: 20 20 20 6c 61 73 74 20 26 3d 20 28 28 30 78 31     last &= ((0x1
30c0: 30 30 20 3e 3e 20 70 6f 73 29 20 2d 20 31 29 3b  00 >> pos) - 1);
30d0: 20 20 20 20 20 20 20 2f 2a 20 61 73 73 75 72 65         /* assure
30e0: 20 75 6e 75 73 65 64 20 62 69 74 73 20 61 72 65   unused bits are
30f0: 20 7a 65 72 6f 20 2a 2f 0a 20 20 20 20 20 20 20   zero */.       
3100: 20 69 66 20 28 70 6f 73 20 26 20 31 29 20 7b 0a   if (pos & 1) {.
3110: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6f              /* o
3120: 64 64 20 2d 2d 20 61 70 70 65 6e 64 20 61 6e 20  dd -- append an 
3130: 65 6d 70 74 79 20 73 74 6f 72 65 64 20 62 6c 6f  empty stored blo
3140: 63 6b 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  ck */.          
3150: 20 20 70 75 74 63 28 6c 61 73 74 2c 20 6f 75 74    putc(last, out
3160: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  );.            i
3170: 66 20 28 70 6f 73 20 3d 3d 20 31 29 0a 20 20 20  f (pos == 1).   
3180: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74               put
3190: 63 28 30 2c 20 6f 75 74 29 3b 20 20 20 20 20 20  c(0, out);      
31a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 74 77 6f 20           /* two 
31b0: 6d 6f 72 65 20 62 69 74 73 20 69 6e 20 62 6c 6f  more bits in blo
31c0: 63 6b 20 68 65 61 64 65 72 20 2a 2f 0a 20 20 20  ck header */.   
31d0: 20 20 20 20 20 20 20 20 20 66 77 72 69 74 65 28           fwrite(
31e0: 22 5c 30 5c 30 5c 78 66 66 5c 78 66 66 22 2c 20  "\0\0\xff\xff", 
31f0: 31 2c 20 34 2c 20 6f 75 74 29 3b 0a 20 20 20 20  1, 4, out);.    
3200: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 65 6c      }.        el
3210: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  se {.           
3220: 20 2f 2a 20 65 76 65 6e 20 2d 2d 20 61 70 70 65   /* even -- appe
3230: 6e 64 20 31 2c 20 32 2c 20 6f 72 20 33 20 65 6d  nd 1, 2, or 3 em
3240: 70 74 79 20 66 69 78 65 64 20 62 6c 6f 63 6b 73  pty fixed blocks
3250: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20   */.            
3260: 73 77 69 74 63 68 20 28 70 6f 73 29 20 7b 0a 20  switch (pos) {. 
3270: 20 20 20 20 20 20 20 20 20 20 20 63 61 73 65 20             case 
3280: 36 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  6:.             
3290: 20 20 20 70 75 74 63 28 6c 61 73 74 20 7c 20 38     putc(last | 8
32a0: 2c 20 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20  , out);.        
32b0: 20 20 20 20 20 20 20 20 6c 61 73 74 20 3d 20 30          last = 0
32c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61  ;.            ca
32d0: 73 65 20 34 3a 0a 20 20 20 20 20 20 20 20 20 20  se 4:.          
32e0: 20 20 20 20 20 20 70 75 74 63 28 6c 61 73 74 20        putc(last 
32f0: 7c 20 30 78 32 30 2c 20 6f 75 74 29 3b 0a 20 20  | 0x20, out);.  
3300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61                la
3310: 73 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  st = 0;.        
3320: 20 20 20 20 63 61 73 65 20 32 3a 0a 20 20 20 20      case 2:.    
3330: 20 20 20 20 20 20 20 20 20 20 20 20 70 75 74 63              putc
3340: 28 6c 61 73 74 20 7c 20 30 78 38 30 2c 20 6f 75  (last | 0x80, ou
3350: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  t);.            
3360: 20 20 20 20 70 75 74 63 28 30 2c 20 6f 75 74 29      putc(0, out)
3370: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a  ;.            }.
3380: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a          }.    }.
3390: 0a 20 20 20 20 2f 2a 20 75 70 64 61 74 65 20 63  .    /* update c
33a0: 72 63 20 61 6e 64 20 74 6f 74 20 2a 2f 0a 20 20  rc and tot */.  
33b0: 20 20 2a 63 72 63 20 3d 20 63 72 63 33 32 5f 63    *crc = crc32_c
33c0: 6f 6d 62 69 6e 65 28 2a 63 72 63 2c 20 62 67 65  ombine(*crc, bge
33d0: 74 34 28 69 6e 29 2c 20 6c 65 6e 29 3b 0a 20 20  t4(in), len);.  
33e0: 20 20 2a 74 6f 74 20 2b 3d 20 28 75 6e 73 69 67    *tot += (unsig
33f0: 6e 65 64 20 6c 6f 6e 67 29 6c 65 6e 3b 0a 0a 20  ned long)len;.. 
3400: 20 20 20 2f 2a 20 63 6c 65 61 6e 20 75 70 20 2a     /* clean up *
3410: 2f 0a 20 20 20 20 69 6e 66 6c 61 74 65 45 6e 64  /.    inflateEnd
3420: 28 26 73 74 72 6d 29 3b 0a 20 20 20 20 66 72 65  (&strm);.    fre
3430: 65 28 6a 75 6e 6b 29 3b 0a 20 20 20 20 62 63 6c  e(junk);.    bcl
3440: 6f 73 65 28 69 6e 29 3b 0a 0a 20 20 20 20 2f 2a  ose(in);..    /*
3450: 20 77 72 69 74 65 20 74 72 61 69 6c 65 72 20 69   write trailer i
3460: 66 20 74 68 69 73 20 69 73 20 74 68 65 20 6c 61  f this is the la
3470: 73 74 20 67 7a 69 70 20 66 69 6c 65 20 2a 2f 0a  st gzip file */.
3480: 20 20 20 20 69 66 20 28 21 63 6c 72 29 20 7b 0a      if (!clr) {.
3490: 20 20 20 20 20 20 20 20 70 75 74 34 28 2a 63 72          put4(*cr
34a0: 63 2c 20 6f 75 74 29 3b 0a 20 20 20 20 20 20 20  c, out);.       
34b0: 20 70 75 74 34 28 2a 74 6f 74 2c 20 6f 75 74 29   put4(*tot, out)
34c0: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 20 6a 6f  ;.    }.}../* jo
34d0: 69 6e 20 74 68 65 20 67 7a 69 70 20 66 69 6c 65  in the gzip file
34e0: 73 20 6f 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64  s on the command
34f0: 20 6c 69 6e 65 2c 20 77 72 69 74 65 20 72 65 73   line, write res
3500: 75 6c 74 20 74 6f 20 73 74 64 6f 75 74 20 2a 2f  ult to stdout */
3510: 0a 69 6e 74 20 6d 61 69 6e 28 69 6e 74 20 61 72  .int main(int ar
3520: 67 63 2c 20 63 68 61 72 20 2a 2a 61 72 67 76 29  gc, char **argv)
3530: 0a 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20  .{.    unsigned 
3540: 6c 6f 6e 67 20 63 72 63 2c 20 74 6f 74 3b 20 20  long crc, tot;  
3550: 20 20 20 2f 2a 20 72 75 6e 6e 69 6e 67 20 63 72     /* running cr
3560: 63 20 61 6e 64 20 74 6f 74 61 6c 20 75 6e 63 6f  c and total unco
3570: 6d 70 72 65 73 73 65 64 20 6c 65 6e 67 74 68 20  mpressed length 
3580: 2a 2f 0a 0a 20 20 20 20 2f 2a 20 73 6b 69 70 20  */..    /* skip 
3590: 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a  command name */.
35a0: 20 20 20 20 61 72 67 63 2d 2d 3b 0a 20 20 20 20      argc--;.    
35b0: 61 72 67 76 2b 2b 3b 0a 0a 20 20 20 20 2f 2a 20  argv++;..    /* 
35c0: 73 68 6f 77 20 75 73 61 67 65 20 69 66 20 6e 6f  show usage if no
35d0: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20   arguments */.  
35e0: 20 20 69 66 20 28 61 72 67 63 20 3d 3d 20 30 29    if (argc == 0)
35f0: 20 7b 0a 20 20 20 20 20 20 20 20 66 70 75 74 73   {.        fputs
3600: 28 22 67 7a 6a 6f 69 6e 20 75 73 61 67 65 3a 20  ("gzjoin usage: 
3610: 67 7a 6a 6f 69 6e 20 66 31 2e 67 7a 20 5b 66 32  gzjoin f1.gz [f2
3620: 2e 67 7a 20 5b 66 33 2e 67 7a 20 2e 2e 2e 5d 5d  .gz [f3.gz ...]]
3630: 20 3e 20 66 6a 6f 69 6e 2e 67 7a 5c 6e 22 2c 0a   > fjoin.gz\n",.
3640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74                st
3650: 64 65 72 72 29 3b 0a 20 20 20 20 20 20 20 20 72  derr);.        r
3660: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a  eturn 0;.    }..
3670: 20 20 20 20 2f 2a 20 6a 6f 69 6e 20 67 7a 69 70      /* join gzip
3680: 20 66 69 6c 65 73 20 6f 6e 20 63 6f 6d 6d 61 6e   files on comman
3690: 64 20 6c 69 6e 65 20 61 6e 64 20 77 72 69 74 65  d line and write
36a0: 20 74 6f 20 73 74 64 6f 75 74 20 2a 2f 0a 20 20   to stdout */.  
36b0: 20 20 67 7a 69 6e 69 74 28 26 63 72 63 2c 20 26    gzinit(&crc, &
36c0: 74 6f 74 2c 20 73 74 64 6f 75 74 29 3b 0a 20 20  tot, stdout);.  
36d0: 20 20 77 68 69 6c 65 20 28 61 72 67 63 2d 2d 29    while (argc--)
36e0: 0a 20 20 20 20 20 20 20 20 67 7a 63 6f 70 79 28  .        gzcopy(
36f0: 2a 61 72 67 76 2b 2b 2c 20 61 72 67 63 2c 20 26  *argv++, argc, &
3700: 63 72 63 2c 20 26 74 6f 74 2c 20 73 74 64 6f 75  crc, &tot, stdou
3710: 74 29 3b 0a 0a 20 20 20 20 2f 2a 20 64 6f 6e 65  t);..    /* done
3720: 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 30   */.    return 0
3730: 3b 0a 7d 0a                                      ;.}.