diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-03-31 13:48:11 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-03-31 13:48:11 (GMT) |
| commit | 6908f71fec0276f046077b8690bde94e80307534 (patch) | |
| tree | 42924b8cb10e56c26438c69ad96dc12c0b84be2e /generic/tclZlib.c | |
| parent | 0ed70c4c1d89e109ccf2d20cadcc0b6b302f806a (diff) | |
| download | tcl-6908f71fec0276f046077b8690bde94e80307534.zip tcl-6908f71fec0276f046077b8690bde94e80307534.tar.gz tcl-6908f71fec0276f046077b8690bde94e80307534.tar.bz2 | |
Start of implementation of TIP 400: zlib improvements
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 81012dc..6f82e06 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -864,7 +864,7 @@ Tcl_ZlibStreamEof( */ int -Tcl_ZlibStreamChecksum( +Tcl_ZlibStreamGetZstreamp( Tcl_ZlibStream zshandle) /* As obtained from Tcl_ZlibStreamInit */ { ZlibStreamHandle *zshPtr = (ZlibStreamHandle *) zshandle; @@ -875,6 +875,27 @@ Tcl_ZlibStreamChecksum( /* *---------------------------------------------------------------------- * + * Tcl_ZlibStreamGetZstreamp -- + * + * Return the z_streamp for the stream (though not typed as such, so as + * to avoid type interface poisoning). Shouldn't be used to poke around + * excessively. + * + *---------------------------------------------------------------------- + */ + +void * +Tcl_ZlibStreamGetZstreamp( + Tcl_ZlibStream zshandle) +{ + ZlibStreamHandle *zshPtr = (ZlibStreamHandle *) zshandle; + + return &zshPtr->stream; +} + +/* + *---------------------------------------------------------------------- + * * Tcl_ZlibStreamPut -- * * Add data to the stream for compression or decompression from a |