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 }.