Hex Artifact Content

Artifact 84ad9e9f88a7d777a62022aafe555b6c3e6f57dd:


0000: 2f 2a 20 57 72 69 74 74 65 6e 20 62 79 20 4a 65  /* Written by Je
0010: 61 6e 2d 43 6c 61 75 64 65 20 57 69 70 70 6c 65  an-Claude Wipple
0020: 72 2c 20 61 73 20 70 61 72 74 20 6f 66 20 54 63  r, as part of Tc
0030: 6c 6b 69 74 2e 0a 20 2a 20 4d 61 72 63 68 20 32  lkit.. * March 2
0040: 30 30 33 20 2d 20 70 6c 61 63 65 64 20 69 6e 20  003 - placed in 
0050: 74 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69  the public domai
0060: 6e 20 62 79 20 74 68 65 20 61 75 74 68 6f 72 2e  n by the author.
0070: 0a 20 2a 0a 20 2a 20 49 6e 74 65 72 66 61 63 65  . *. * Interface
0080: 20 74 6f 20 74 68 65 20 22 7a 6c 69 62 22 20 63   to the "zlib" c
0090: 6f 6d 70 72 65 73 73 69 6f 6e 20 6c 69 62 72 61  ompression libra
00a0: 72 79 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65  ry. */..#include
00b0: 20 22 7a 6c 69 62 2e 68 22 0a 23 69 6e 63 6c 75   "zlib.h".#inclu
00c0: 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a 74 79 70 65  de <tcl.h>..type
00d0: 64 65 66 20 73 74 72 75 63 74 20 7b 0a 20 20 7a  def struct {.  z
00e0: 5f 73 74 72 65 61 6d 20 73 74 72 65 61 6d 3b 0a  _stream stream;.
00f0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 64 61 74    Tcl_Obj *indat
0100: 61 3b 0a 7d 20 7a 6c 69 62 73 74 72 65 61 6d 3b  a;.} zlibstream;
0110: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 7a 73 74  ..static int.zst
0120: 72 65 61 6d 69 6e 63 6d 64 28 43 6c 69 65 6e 74  reamincmd(Client
0130: 44 61 74 61 20 63 64 2c 20 54 63 6c 5f 49 6e 74  Data cd, Tcl_Int
0140: 65 72 70 20 2a 69 70 2c 20 69 6e 74 20 6f 62 6a  erp *ip, int obj
0150: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  c, Tcl_Obj *CONS
0160: 54 20 6f 62 6a 76 5b 5d 29 0a 7b 0a 20 20 7a 6c  T objv[]).{.  zl
0170: 69 62 73 74 72 65 61 6d 20 2a 7a 70 20 3d 20 28  ibstream *zp = (
0180: 7a 6c 69 62 73 74 72 65 61 6d 2a 29 20 63 64 3b  zlibstream*) cd;
0190: 0a 20 20 69 6e 74 20 63 6f 75 6e 74 20 3d 20 30  .  int count = 0
01a0: 3b 0a 20 20 69 6e 74 20 65 2c 20 69 6e 64 65 78  ;.  int e, index
01b0: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a  ;.  Tcl_Obj *obj
01c0: 3b 0a 0a 20 20 73 74 61 74 69 63 20 43 4f 4e 53  ;..  static CONS
01d0: 54 38 34 20 63 68 61 72 2a 20 63 6d 64 73 5b 5d  T84 char* cmds[]
01e0: 20 3d 20 7b 20 22 66 69 6c 6c 22 2c 20 22 64 72   = { "fill", "dr
01f0: 61 69 6e 22 2c 20 4e 55 4c 4c 2c 20 7d 3b 0a 0a  ain", NULL, };..
0200: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64    if (Tcl_GetInd
0210: 65 78 46 72 6f 6d 4f 62 6a 28 69 70 2c 20 6f 62  exFromObj(ip, ob
0220: 6a 76 5b 31 5d 2c 20 63 6d 64 73 2c 20 22 6f 70  jv[1], cmds, "op
0230: 74 69 6f 6e 22 2c 20 30 2c 20 26 69 6e 64 65 78  tion", 0, &index
0240: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 0a 20 20 20  ) != TCL_OK).   
0250: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0260: 52 3b 0a 0a 20 20 73 77 69 74 63 68 20 28 69 6e  R;..  switch (in
0270: 64 65 78 29 20 7b 0a 0a 20 20 20 20 63 61 73 65  dex) {..    case
0280: 20 30 3a 20 2f 2a 20 66 69 6c 6c 20 3f 64 61 74   0: /* fill ?dat
0290: 61 3f 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 28  a? */.      if (
02a0: 6f 62 6a 63 20 3e 3d 20 33 29 20 7b 0a 09 54 63  objc >= 3) {..Tc
02b0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 6f  l_IncrRefCount(o
02c0: 62 6a 76 5b 32 5d 29 3b 0a 09 54 63 6c 5f 44 65  bjv[2]);..Tcl_De
02d0: 63 72 52 65 66 43 6f 75 6e 74 28 7a 70 2d 3e 69  crRefCount(zp->i
02e0: 6e 64 61 74 61 29 3b 0a 09 7a 70 2d 3e 69 6e 64  ndata);..zp->ind
02f0: 61 74 61 20 3d 20 6f 62 6a 76 5b 32 5d 3b 0a 09  ata = objv[2];..
0300: 7a 70 2d 3e 73 74 72 65 61 6d 2e 6e 65 78 74 5f  zp->stream.next_
0310: 69 6e 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65  in = Tcl_GetByte
0320: 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 7a 70 2d  ArrayFromObj(zp-
0330: 3e 69 6e 64 61 74 61 2c 0a 09 09 09 09 09 09 20  >indata,....... 
0340: 20 28 69 6e 74 2a 29 20 26 7a 70 2d 3e 73 74 72   (int*) &zp->str
0350: 65 61 6d 2e 61 76 61 69 6c 5f 69 6e 29 3b 0a 20  eam.avail_in);. 
0360: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63 6c       }.      Tcl
0370: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 70  _SetObjResult(ip
0380: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
0390: 7a 70 2d 3e 73 74 72 65 61 6d 2e 61 76 61 69 6c  zp->stream.avail
03a0: 5f 69 6e 29 29 3b 0a 20 20 20 20 20 20 62 72 65  _in));.      bre
03b0: 61 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 31 3a  ak;..    case 1:
03c0: 20 2f 2a 20 64 72 61 69 6e 20 63 6f 75 6e 74 20   /* drain count 
03d0: 2a 2f 0a 20 20 20 20 20 20 69 66 20 28 6f 62 6a  */.      if (obj
03e0: 63 20 21 3d 20 33 29 20 7b 0a 09 54 63 6c 5f 57  c != 3) {..Tcl_W
03f0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 70 2c 20  rongNumArgs(ip, 
0400: 32 2c 20 6f 62 6a 76 2c 20 22 63 6f 75 6e 74 22  2, objv, "count"
0410: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
0420: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20  RROR;.      }.  
0430: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49      if (Tcl_GetI
0440: 6e 74 46 72 6f 6d 4f 62 6a 28 69 70 2c 20 6f 62  ntFromObj(ip, ob
0450: 6a 76 5b 32 5d 2c 20 26 63 6f 75 6e 74 29 20 21  jv[2], &count) !
0460: 3d 20 54 43 4c 5f 4f 4b 29 0a 09 72 65 74 75 72  = TCL_OK)..retur
0470: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
0480: 20 20 20 6f 62 6a 20 3d 20 54 63 6c 5f 47 65 74     obj = Tcl_Get
0490: 4f 62 6a 52 65 73 75 6c 74 28 69 70 29 3b 0a 20  ObjResult(ip);. 
04a0: 20 20 20 20 20 54 63 6c 5f 53 65 74 42 79 74 65       Tcl_SetByte
04b0: 41 72 72 61 79 4c 65 6e 67 74 68 28 6f 62 6a 2c  ArrayLength(obj,
04c0: 20 63 6f 75 6e 74 29 3b 0a 20 20 20 20 20 20 7a   count);.      z
04d0: 70 2d 3e 73 74 72 65 61 6d 2e 6e 65 78 74 5f 6f  p->stream.next_o
04e0: 75 74 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65  ut = Tcl_GetByte
04f0: 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a  ArrayFromObj(obj
0500: 2c 0a 09 09 09 09 09 09 20 20 28 69 6e 74 2a 29  ,.......  (int*)
0510: 20 26 7a 70 2d 3e 73 74 72 65 61 6d 2e 61 76 61   &zp->stream.ava
0520: 69 6c 5f 6f 75 74 29 3b 0a 20 20 20 20 20 20 65  il_out);.      e
0530: 20 3d 20 69 6e 66 6c 61 74 65 28 26 7a 70 2d 3e   = inflate(&zp->
0540: 73 74 72 65 61 6d 2c 20 5a 5f 4e 4f 5f 46 4c 55  stream, Z_NO_FLU
0550: 53 48 29 3b 0a 20 20 20 20 20 20 69 66 20 28 65  SH);.      if (e
0560: 20 21 3d 20 30 20 26 26 20 65 20 21 3d 20 5a 5f   != 0 && e != Z_
0570: 53 54 52 45 41 4d 5f 45 4e 44 29 20 7b 0a 09 54  STREAM_END) {..T
0580: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 70 2c  cl_SetResult(ip,
0590: 20 28 63 68 61 72 2a 29 20 7a 45 72 72 6f 72 28   (char*) zError(
05a0: 65 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b  e), TCL_STATIC);
05b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
05c0: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
05d0: 20 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72    Tcl_SetByteArr
05e0: 61 79 4c 65 6e 67 74 68 28 6f 62 6a 2c 20 63 6f  ayLength(obj, co
05f0: 75 6e 74 20 2d 20 7a 70 2d 3e 73 74 72 65 61 6d  unt - zp->stream
0600: 2e 61 76 61 69 6c 5f 6f 75 74 29 3b 0a 20 20 20  .avail_out);.   
0610: 20 20 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20     break;.  }.  
0620: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
0630: 0a 0a 76 6f 69 64 20 7a 73 74 72 65 61 6d 64 65  ..void zstreamde
0640: 6c 70 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61  lproc(ClientData
0650: 20 63 64 29 0a 7b 0a 20 20 7a 6c 69 62 73 74 72   cd).{.  zlibstr
0660: 65 61 6d 20 2a 7a 70 20 3d 20 28 7a 6c 69 62 73  eam *zp = (zlibs
0670: 74 72 65 61 6d 2a 29 20 63 64 3b 0a 20 20 69 6e  tream*) cd;.  in
0680: 66 6c 61 74 65 45 6e 64 28 26 7a 70 2d 3e 73 74  flateEnd(&zp->st
0690: 72 65 61 6d 29 3b 0a 20 20 54 63 6c 5f 44 65 63  ream);.  Tcl_Dec
06a0: 72 52 65 66 43 6f 75 6e 74 28 7a 70 2d 3e 69 6e  rRefCount(zp->in
06b0: 64 61 74 61 29 3b 0a 20 20 54 63 6c 5f 46 72 65  data);.  Tcl_Fre
06c0: 65 28 28 76 6f 69 64 2a 29 20 7a 70 29 3b 0a 7d  e((void*) zp);.}
06d0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 5a 6c 69  ..static int.Zli
06e0: 62 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20  bCmd(ClientData 
06f0: 64 75 6d 6d 79 2c 20 54 63 6c 5f 49 6e 74 65 72  dummy, Tcl_Inter
0700: 70 20 2a 69 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  p *ip, int objc,
0710: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
0720: 6f 62 6a 76 5b 5d 29 0a 7b 0a 20 20 69 6e 74 20  objv[]).{.  int 
0730: 65 20 3d 20 54 43 4c 5f 4f 4b 2c 20 69 6e 64 65  e = TCL_OK, inde
0740: 78 2c 20 64 6c 65 6e 2c 20 77 62 69 74 73 20 3d  x, dlen, wbits =
0750: 20 2d 4d 41 58 5f 57 42 49 54 53 3b 0a 20 20 6c   -MAX_WBITS;.  l
0760: 6f 6e 67 20 66 6c 61 67 3b 0a 20 20 42 79 74 65  ong flag;.  Byte
0770: 20 2a 64 61 74 61 3b 0a 20 20 7a 5f 73 74 72 65   *data;.  z_stre
0780: 61 6d 20 73 74 72 65 61 6d 3b 0a 20 20 54 63 6c  am stream;.  Tcl
0790: 5f 4f 62 6a 20 2a 6f 62 6a 20 3d 20 54 63 6c 5f  _Obj *obj = Tcl_
07a0: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 70 29  GetObjResult(ip)
07b0: 3b 0a 0a 20 20 73 74 61 74 69 63 20 43 4f 4e 53  ;..  static CONS
07c0: 54 38 34 20 63 68 61 72 2a 20 63 6d 64 73 5b 5d  T84 char* cmds[]
07d0: 20 3d 20 7b 0a 20 20 20 20 22 61 64 6c 65 72 33   = {.    "adler3
07e0: 32 22 2c 20 22 63 72 63 33 32 22 2c 20 22 63 6f  2", "crc32", "co
07f0: 6d 70 72 65 73 73 22 2c 20 22 64 65 66 6c 61 74  mpress", "deflat
0800: 65 22 2c 20 22 64 65 63 6f 6d 70 72 65 73 73 22  e", "decompress"
0810: 2c 20 22 69 6e 66 6c 61 74 65 22 2c 20 0a 20 20  , "inflate", .  
0820: 20 20 22 73 64 65 63 6f 6d 70 72 65 73 73 22 2c    "sdecompress",
0830: 20 22 73 69 6e 66 6c 61 74 65 22 2c 20 4e 55 4c   "sinflate", NUL
0840: 4c 2c 0a 20 20 7d 3b 0a 0a 20 20 69 66 20 28 6f  L,.  };..  if (o
0850: 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20  bjc < 3 || objc 
0860: 3e 20 34 29 20 7b 0a 20 20 20 20 54 63 6c 5f 57  > 4) {.    Tcl_W
0870: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 70 2c 20  rongNumArgs(ip, 
0880: 31 2c 20 6f 62 6a 76 2c 20 22 6f 70 74 69 6f 6e  1, objv, "option
0890: 20 64 61 74 61 20 3f 2e 2e 2e 3f 22 29 3b 0a 20   data ?...?");. 
08a0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
08b0: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 20 28  ROR;.  }..  if (
08c0: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d  Tcl_GetIndexFrom
08d0: 4f 62 6a 28 69 70 2c 20 6f 62 6a 76 5b 31 5d 2c  Obj(ip, objv[1],
08e0: 20 63 6d 64 73 2c 20 22 6f 70 74 69 6f 6e 22 2c   cmds, "option",
08f0: 20 30 2c 20 26 69 6e 64 65 78 29 20 21 3d 20 54   0, &index) != T
0900: 43 4c 5f 4f 4b 20 7c 7c 0a 20 20 20 20 20 20 6f  CL_OK ||.      o
0910: 62 6a 63 20 3e 20 33 20 26 26 20 54 63 6c 5f 47  bjc > 3 && Tcl_G
0920: 65 74 4c 6f 6e 67 46 72 6f 6d 4f 62 6a 28 69 70  etLongFromObj(ip
0930: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 66 6c 61 67  , objv[3], &flag
0940: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 0a 20 20 20  ) != TCL_OK).   
0950: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0960: 52 3b 0a 0a 20 20 64 61 74 61 20 3d 20 54 63 6c  R;..  data = Tcl
0970: 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f  _GetByteArrayFro
0980: 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 64  mObj(objv[2], &d
0990: 6c 65 6e 29 3b 0a 0a 20 20 73 77 69 74 63 68 20  len);..  switch 
09a0: 28 69 6e 64 65 78 29 20 7b 0a 0a 20 20 20 20 63  (index) {..    c
09b0: 61 73 65 20 30 3a 20 2f 2a 20 61 64 6c 65 72 33  ase 0: /* adler3
09c0: 32 20 73 74 72 20 3f 73 74 61 72 74 3f 20 2d 3e  2 str ?start? ->
09d0: 20 63 68 65 63 6b 73 75 6d 20 2a 2f 0a 20 20 20   checksum */.   
09e0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 34 29     if (objc < 4)
09f0: 0a 09 66 6c 61 67 20 3d 20 28 6c 6f 6e 67 29 20  ..flag = (long) 
0a00: 61 64 6c 65 72 33 32 28 30 2c 20 30 2c 20 30 29  adler32(0, 0, 0)
0a10: 3b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4c  ;.      Tcl_SetL
0a20: 6f 6e 67 4f 62 6a 28 6f 62 6a 2c 20 28 6c 6f 6e  ongObj(obj, (lon
0a30: 67 29 20 61 64 6c 65 72 33 32 28 28 75 4c 6f 6e  g) adler32((uLon
0a40: 67 29 20 66 6c 61 67 2c 20 64 61 74 61 2c 20 64  g) flag, data, d
0a50: 6c 65 6e 29 29 3b 0a 20 20 20 20 20 20 72 65 74  len));.      ret
0a60: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 20 20 20  urn TCL_OK;..   
0a70: 20 63 61 73 65 20 31 3a 20 2f 2a 20 63 72 63 33   case 1: /* crc3
0a80: 32 20 73 74 72 20 3f 73 74 61 72 74 3f 20 2d 3e  2 str ?start? ->
0a90: 20 63 68 65 63 6b 73 75 6d 20 2a 2f 0a 20 20 20   checksum */.   
0aa0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 34 29     if (objc < 4)
0ab0: 0a 09 66 6c 61 67 20 3d 20 28 6c 6f 6e 67 29 20  ..flag = (long) 
0ac0: 63 72 63 33 32 28 30 2c 20 30 2c 20 30 29 3b 0a  crc32(0, 0, 0);.
0ad0: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4c 6f 6e        Tcl_SetLon
0ae0: 67 4f 62 6a 28 6f 62 6a 2c 20 28 6c 6f 6e 67 29  gObj(obj, (long)
0af0: 20 63 72 63 33 32 28 28 75 4c 6f 6e 67 29 20 66   crc32((uLong) f
0b00: 6c 61 67 2c 20 64 61 74 61 2c 20 64 6c 65 6e 29  lag, data, dlen)
0b10: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
0b20: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 20 20 0a 20  TCL_OK;.      . 
0b30: 20 20 20 63 61 73 65 20 32 3a 20 2f 2a 20 63 6f     case 2: /* co
0b40: 6d 70 72 65 73 73 20 64 61 74 61 20 3f 6c 65 76  mpress data ?lev
0b50: 65 6c 3f 20 2d 3e 20 64 61 74 61 20 2a 2f 0a 20  el? -> data */. 
0b60: 20 20 20 20 20 77 62 69 74 73 20 3d 20 4d 41 58       wbits = MAX
0b70: 5f 57 42 49 54 53 3b 0a 20 20 20 20 63 61 73 65  _WBITS;.    case
0b80: 20 33 3a 20 2f 2a 20 64 65 66 6c 61 74 65 20 64   3: /* deflate d
0b90: 61 74 61 20 3f 6c 65 76 65 6c 3f 20 2d 3e 20 64  ata ?level? -> d
0ba0: 61 74 61 20 2a 2f 0a 20 20 20 20 20 20 69 66 20  ata */.      if 
0bb0: 28 6f 62 6a 63 20 3c 20 34 29 0a 09 66 6c 61 67  (objc < 4)..flag
0bc0: 20 3d 20 5a 5f 44 45 46 41 55 4c 54 5f 43 4f 4d   = Z_DEFAULT_COM
0bd0: 50 52 45 53 53 49 4f 4e 3b 0a 0a 20 20 20 20 20  PRESSION;..     
0be0: 20 73 74 72 65 61 6d 2e 61 76 61 69 6c 5f 69 6e   stream.avail_in
0bf0: 20 3d 20 28 75 49 6e 74 29 20 64 6c 65 6e 3b 0a   = (uInt) dlen;.
0c00: 20 20 20 20 20 20 73 74 72 65 61 6d 2e 6e 65 78        stream.nex
0c10: 74 5f 69 6e 20 3d 20 64 61 74 61 3b 0a 0a 20 20  t_in = data;..  
0c20: 20 20 20 20 73 74 72 65 61 6d 2e 61 76 61 69 6c      stream.avail
0c30: 5f 6f 75 74 20 3d 20 28 75 49 6e 74 29 20 64 6c  _out = (uInt) dl
0c40: 65 6e 20 2b 20 64 6c 65 6e 20 2f 20 31 30 30 30  en + dlen / 1000
0c50: 20 2b 20 31 32 3b 0a 20 20 20 20 20 20 54 63 6c   + 12;.      Tcl
0c60: 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e  _SetByteArrayLen
0c70: 67 74 68 28 6f 62 6a 2c 20 73 74 72 65 61 6d 2e  gth(obj, stream.
0c80: 61 76 61 69 6c 5f 6f 75 74 29 3b 0a 20 20 20 20  avail_out);.    
0c90: 20 20 73 74 72 65 61 6d 2e 6e 65 78 74 5f 6f 75    stream.next_ou
0ca0: 74 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41  t = Tcl_GetByteA
0cb0: 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 2c  rrayFromObj(obj,
0cc0: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 20 20 73   NULL);..      s
0cd0: 74 72 65 61 6d 2e 7a 61 6c 6c 6f 63 20 3d 20 30  tream.zalloc = 0
0ce0: 3b 0a 20 20 20 20 20 20 73 74 72 65 61 6d 2e 7a  ;.      stream.z
0cf0: 66 72 65 65 20 3d 20 30 3b 0a 20 20 20 20 20 20  free = 0;.      
0d00: 73 74 72 65 61 6d 2e 6f 70 61 71 75 65 20 3d 20  stream.opaque = 
0d10: 30 3b 0a 0a 20 20 20 20 20 20 65 20 3d 20 64 65  0;..      e = de
0d20: 66 6c 61 74 65 49 6e 69 74 32 28 26 73 74 72 65  flateInit2(&stre
0d30: 61 6d 2c 20 28 69 6e 74 29 20 66 6c 61 67 2c 20  am, (int) flag, 
0d40: 5a 5f 44 45 46 4c 41 54 45 44 2c 20 77 62 69 74  Z_DEFLATED, wbit
0d50: 73 2c 0a 09 09 09 20 20 20 20 20 20 4d 41 58 5f  s,....      MAX_
0d60: 4d 45 4d 5f 4c 45 56 45 4c 2c 20 5a 5f 44 45 46  MEM_LEVEL, Z_DEF
0d70: 41 55 4c 54 5f 53 54 52 41 54 45 47 59 29 3b 0a  AULT_STRATEGY);.
0d80: 20 20 20 20 20 20 69 66 20 28 65 20 21 3d 20 5a        if (e != Z
0d90: 5f 4f 4b 29 0a 09 62 72 65 61 6b 3b 0a 0a 20 20  _OK)..break;..  
0da0: 20 20 20 20 65 20 3d 20 64 65 66 6c 61 74 65 28      e = deflate(
0db0: 26 73 74 72 65 61 6d 2c 20 5a 5f 46 49 4e 49 53  &stream, Z_FINIS
0dc0: 48 29 3b 0a 20 20 20 20 20 20 69 66 20 28 65 20  H);.      if (e 
0dd0: 21 3d 20 5a 5f 53 54 52 45 41 4d 5f 45 4e 44 29  != Z_STREAM_END)
0de0: 20 7b 0a 09 64 65 66 6c 61 74 65 45 6e 64 28 26   {..deflateEnd(&
0df0: 73 74 72 65 61 6d 29 3b 0a 09 69 66 20 28 65 20  stream);..if (e 
0e00: 3d 3d 20 5a 5f 4f 4b 29 20 65 20 3d 20 5a 5f 42  == Z_OK) e = Z_B
0e10: 55 46 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20  UF_ERROR;.      
0e20: 7d 20 65 6c 73 65 0a 09 65 20 3d 20 64 65 66 6c  } else..e = defl
0e30: 61 74 65 45 6e 64 28 26 73 74 72 65 61 6d 29 3b  ateEnd(&stream);
0e40: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
0e50: 20 20 20 20 0a 20 20 20 20 63 61 73 65 20 34 3a      .    case 4:
0e60: 20 2f 2a 20 64 65 63 6f 6d 70 72 65 73 73 20 64   /* decompress d
0e70: 61 74 61 20 3f 62 75 66 73 69 7a 65 3f 20 2d 3e  ata ?bufsize? ->
0e80: 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 20 20 77   data */.      w
0e90: 62 69 74 73 20 3d 20 4d 41 58 5f 57 42 49 54 53  bits = MAX_WBITS
0ea0: 3b 0a 20 20 20 20 63 61 73 65 20 35 3a 20 2f 2a  ;.    case 5: /*
0eb0: 20 69 6e 66 6c 61 74 65 20 64 61 74 61 20 3f 62   inflate data ?b
0ec0: 75 66 73 69 7a 65 3f 20 2d 3e 20 64 61 74 61 20  ufsize? -> data 
0ed0: 2a 2f 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 69  */.    {.      i
0ee0: 66 20 28 6f 62 6a 63 20 3c 20 34 29 0a 09 66 6c  f (objc < 4)..fl
0ef0: 61 67 20 3d 20 31 36 20 2a 20 31 30 32 34 3b 0a  ag = 16 * 1024;.
0f00: 0a 20 20 20 20 20 20 66 6f 72 20 28 3b 3b 29 20  .      for (;;) 
0f10: 7b 0a 09 73 74 72 65 61 6d 2e 7a 61 6c 6c 6f 63  {..stream.zalloc
0f20: 20 3d 20 30 3b 0a 09 73 74 72 65 61 6d 2e 7a 66   = 0;..stream.zf
0f30: 72 65 65 20 3d 20 30 3b 0a 0a 09 2f 2a 20 2b 31  ree = 0;.../* +1
0f40: 20 62 65 63 61 75 73 65 20 5a 4c 49 42 20 63 61   because ZLIB ca
0f50: 6e 20 22 6f 76 65 72 2d 72 65 71 75 65 73 74 22  n "over-request"
0f60: 20 69 6e 70 75 74 20 28 62 75 74 20 69 67 6e 6f   input (but igno
0f70: 72 65 20 69 74 29 20 2a 2f 0a 09 73 74 72 65 61  re it) */..strea
0f80: 6d 2e 61 76 61 69 6c 5f 69 6e 20 3d 20 28 75 49  m.avail_in = (uI
0f90: 6e 74 29 20 64 6c 65 6e 20 2b 20 20 31 3b 0a 09  nt) dlen +  1;..
0fa0: 73 74 72 65 61 6d 2e 6e 65 78 74 5f 69 6e 20 3d  stream.next_in =
0fb0: 20 64 61 74 61 3b 0a 0a 09 73 74 72 65 61 6d 2e   data;...stream.
0fc0: 61 76 61 69 6c 5f 6f 75 74 20 3d 20 28 75 49 6e  avail_out = (uIn
0fd0: 74 29 20 66 6c 61 67 3b 0a 09 54 63 6c 5f 53 65  t) flag;..Tcl_Se
0fe0: 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68  tByteArrayLength
0ff0: 28 6f 62 6a 2c 20 73 74 72 65 61 6d 2e 61 76 61  (obj, stream.ava
1000: 69 6c 5f 6f 75 74 29 3b 0a 09 73 74 72 65 61 6d  il_out);..stream
1010: 2e 6e 65 78 74 5f 6f 75 74 20 3d 20 54 63 6c 5f  .next_out = Tcl_
1020: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d  GetByteArrayFrom
1030: 4f 62 6a 28 6f 62 6a 2c 20 4e 55 4c 4c 29 3b 0a  Obj(obj, NULL);.
1040: 0a 09 2f 2a 20 4e 65 67 61 74 69 76 65 20 76 61  ../* Negative va
1050: 6c 75 65 20 73 75 70 70 72 65 73 73 65 73 20 5a  lue suppresses Z
1060: 4c 49 42 20 68 65 61 64 65 72 20 2a 2f 0a 09 65  LIB header */..e
1070: 20 3d 20 69 6e 66 6c 61 74 65 49 6e 69 74 32 28   = inflateInit2(
1080: 26 73 74 72 65 61 6d 2c 20 77 62 69 74 73 29 3b  &stream, wbits);
1090: 0a 09 69 66 20 28 65 20 3d 3d 20 5a 5f 4f 4b 29  ..if (e == Z_OK)
10a0: 20 7b 0a 09 20 20 65 20 3d 20 69 6e 66 6c 61 74   {..  e = inflat
10b0: 65 28 26 73 74 72 65 61 6d 2c 20 5a 5f 46 49 4e  e(&stream, Z_FIN
10c0: 49 53 48 29 3b 0a 09 20 20 69 66 20 28 65 20 21  ISH);..  if (e !
10d0: 3d 20 5a 5f 53 54 52 45 41 4d 5f 45 4e 44 29 20  = Z_STREAM_END) 
10e0: 7b 0a 09 20 20 20 20 69 6e 66 6c 61 74 65 45 6e  {..    inflateEn
10f0: 64 28 26 73 74 72 65 61 6d 29 3b 0a 09 20 20 20  d(&stream);..   
1100: 20 69 66 20 28 65 20 3d 3d 20 5a 5f 4f 4b 29 20   if (e == Z_OK) 
1110: 65 20 3d 20 5a 5f 42 55 46 5f 45 52 52 4f 52 3b  e = Z_BUF_ERROR;
1120: 0a 09 20 20 7d 20 65 6c 73 65 0a 09 20 20 20 20  ..  } else..    
1130: 65 20 3d 20 69 6e 66 6c 61 74 65 45 6e 64 28 26  e = inflateEnd(&
1140: 73 74 72 65 61 6d 29 3b 0a 09 7d 0a 0a 09 69 66  stream);..}...if
1150: 20 28 65 20 3d 3d 20 5a 5f 4f 4b 20 7c 7c 20 65   (e == Z_OK || e
1160: 20 21 3d 20 5a 5f 42 55 46 5f 45 52 52 4f 52 29   != Z_BUF_ERROR)
1170: 20 62 72 65 61 6b 3b 0a 0a 09 54 63 6c 5f 53 65   break;...Tcl_Se
1180: 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68  tByteArrayLength
1190: 28 6f 62 6a 2c 20 30 29 3b 0a 09 66 6c 61 67 20  (obj, 0);..flag 
11a0: 2a 3d 20 32 3b 0a 20 20 20 20 20 20 7d 0a 0a 20  *= 2;.      }.. 
11b0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
11c0: 7d 0a 20 20 20 20 20 20 0a 20 20 20 20 63 61 73  }.      .    cas
11d0: 65 20 36 3a 20 2f 2a 20 73 64 65 63 6f 6d 70 72  e 6: /* sdecompr
11e0: 65 73 73 20 63 6d 64 6e 61 6d 65 20 2d 3e 20 2a  ess cmdname -> *
11f0: 2f 0a 20 20 20 20 20 20 77 62 69 74 73 20 3d 20  /.      wbits = 
1200: 4d 41 58 5f 57 42 49 54 53 3b 0a 20 20 20 20 63  MAX_WBITS;.    c
1210: 61 73 65 20 37 3a 20 2f 2a 20 73 69 6e 66 6c 61  ase 7: /* sinfla
1220: 74 65 20 63 6d 64 6e 61 6d 65 20 2d 3e 20 2a 2f  te cmdname -> */
1230: 0a 20 20 20 20 7b 0a 20 20 20 20 20 20 7a 6c 69  .    {.      zli
1240: 62 73 74 72 65 61 6d 20 2a 7a 70 20 3d 20 28 7a  bstream *zp = (z
1250: 6c 69 62 73 74 72 65 61 6d 2a 29 20 54 63 6c 5f  libstream*) Tcl_
1260: 41 6c 6c 6f 63 28 73 69 7a 65 6f 66 20 28 7a 6c  Alloc(sizeof (zl
1270: 69 62 73 74 72 65 61 6d 29 29 3b 0a 20 20 20 20  ibstream));.    
1280: 20 20 7a 70 2d 3e 69 6e 64 61 74 61 20 3d 20 54    zp->indata = T
1290: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20  cl_NewObj();.   
12a0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
12b0: 75 6e 74 28 7a 70 2d 3e 69 6e 64 61 74 61 29 3b  unt(zp->indata);
12c0: 0a 20 20 20 20 20 20 7a 70 2d 3e 73 74 72 65 61  .      zp->strea
12d0: 6d 2e 7a 61 6c 6c 6f 63 20 3d 20 30 3b 0a 20 20  m.zalloc = 0;.  
12e0: 20 20 20 20 7a 70 2d 3e 73 74 72 65 61 6d 2e 7a      zp->stream.z
12f0: 66 72 65 65 20 3d 20 30 3b 0a 20 20 20 20 20 20  free = 0;.      
1300: 7a 70 2d 3e 73 74 72 65 61 6d 2e 6f 70 61 71 75  zp->stream.opaqu
1310: 65 20 3d 20 30 3b 0a 20 20 20 20 20 20 7a 70 2d  e = 0;.      zp-
1320: 3e 73 74 72 65 61 6d 2e 6e 65 78 74 5f 69 6e 20  >stream.next_in 
1330: 3d 20 30 3b 0a 20 20 20 20 20 20 7a 70 2d 3e 73  = 0;.      zp->s
1340: 74 72 65 61 6d 2e 61 76 61 69 6c 5f 69 6e 20 3d  tream.avail_in =
1350: 20 30 3b 0a 20 20 20 20 20 20 69 6e 66 6c 61 74   0;.      inflat
1360: 65 49 6e 69 74 32 28 26 7a 70 2d 3e 73 74 72 65  eInit2(&zp->stre
1370: 61 6d 2c 20 77 62 69 74 73 29 3b 0a 20 20 20 20  am, wbits);.    
1380: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
1390: 6f 6d 6d 61 6e 64 28 69 70 2c 20 54 63 6c 5f 47  ommand(ip, Tcl_G
13a0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
13b0: 6f 62 6a 76 5b 32 5d 2c 20 30 29 2c 20 7a 73 74  objv[2], 0), zst
13c0: 72 65 61 6d 69 6e 63 6d 64 2c 0a 20 20 20 20 20  reamincmd,.     
13d0: 20 09 09 09 09 28 43 6c 69 65 6e 74 44 61 74 61   ....(ClientData
13e0: 29 20 7a 70 2c 20 7a 73 74 72 65 61 6d 64 65 6c  ) zp, zstreamdel
13f0: 70 72 6f 63 29 3b 0a 20 20 20 20 20 20 72 65 74  proc);.      ret
1400: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20  urn TCL_OK;.    
1410: 7d 0a 20 20 7d 0a 0a 20 20 69 66 20 28 65 20 21  }.  }..  if (e !
1420: 3d 20 5a 5f 4f 4b 29 20 7b 0a 20 20 20 20 54 63  = Z_OK) {.    Tc
1430: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 70 2c 20  l_SetResult(ip, 
1440: 28 63 68 61 72 2a 29 20 7a 45 72 72 6f 72 28 65  (char*) zError(e
1450: 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a  ), TCL_STATIC);.
1460: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
1470: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c  RROR;.  }..  Tcl
1480: 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e  _SetByteArrayLen
1490: 67 74 68 28 6f 62 6a 2c 20 73 74 72 65 61 6d 2e  gth(obj, stream.
14a0: 74 6f 74 61 6c 5f 6f 75 74 29 3b 0a 20 20 72 65  total_out);.  re
14b0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
14c0: 69 6e 74 20 5a 6c 69 62 5f 49 6e 69 74 28 54 63  int Zlib_Init(Tc
14d0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
14e0: 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61  ).{.    Tcl_Crea
14f0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74  teObjCommand(int
1500: 65 72 70 2c 20 22 7a 6c 69 62 22 2c 20 5a 6c 69  erp, "zlib", Zli
1510: 62 43 6d 64 2c 20 30 2c 20 30 29 3b 0a 20 20 20  bCmd, 0, 0);.   
1520: 20 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b 67 50   return Tcl_PkgP
1530: 72 6f 76 69 64 65 28 20 69 6e 74 65 72 70 2c 20  rovide( interp, 
1540: 22 7a 6c 69 62 22 2c 20 22 31 2e 31 22 29 3b 0a  "zlib", "1.1");.
1550: 7d 0a                                            }.