Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Declare that Tcl provides the zlib 2.0 package. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
bb6a97ac20079caf73b6a8387f5517b7 |
User & Date: | dkf 2012-06-06 14:48:50 |
Context
2012-06-08
| ||
08:07 | Revise the "null data" check: null strings are possible, but empty binary arrays are not check-in: 146dc6a0b5 user: jan.nijtmans tags: trunk | |
2012-06-06
| ||
14:49 | merge trunk check-in: b109af9eb4 user: dkf tags: tip-400-impl | |
14:48 | Declare that Tcl provides the zlib 2.0 package. check-in: bb6a97ac20 user: dkf tags: trunk | |
13:07 | On Cygwin, use win32 API in stead of uname() to determine the tcl_platform variables check-in: f980e7a9d2 user: jan.nijtmans tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2012-06-06 Jan Nijtmans <[email protected]> * unix/tclUnixInit.c: On Cygwin, use win32 API in stead of uname() to determine the tcl_platform variables. 2012-05-31 Jan Nijtmans <[email protected]> | > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 2012-06-06 Donal K. Fellows <[email protected]> * generic/tclZlib.c (TclZlibInit): Declare that Tcl is publishing the zlib package (version 2.0) as part of its bootstrap process. This will have an impact on tclkit (which includes zlib 1.1) but otherwise be very low impact. 2012-06-06 Jan Nijtmans <[email protected]> * unix/tclUnixInit.c: On Cygwin, use win32 API in stead of uname() to determine the tcl_platform variables. 2012-05-31 Jan Nijtmans <[email protected]> |
︙ | ︙ |
Changes to generic/tclZlib.c.
︙ | ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 | */ #include "tclInt.h" #ifdef HAVE_ZLIB #include <zlib.h> #include "tclIO.h" /* * Magic flags used with wbits fields to indicate that we're handling the gzip * format or automatic detection of format. Putting it here is slightly less * gross! */ #define WBITS_RAW (-MAX_WBITS) | > > > > > > > > > | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | */ #include "tclInt.h" #ifdef HAVE_ZLIB #include <zlib.h> #include "tclIO.h" /* * The version of the zlib "package" that this implements. Note that this * thoroughly supersedes the versions included with tclkit, which are "1.1", * so this is at least "2.0" (there's no general *commitment* to have the same * interface, even if that is mostly true). */ #define TCL_ZLIB_VERSION "2.0" /* * Magic flags used with wbits fields to indicate that we're handling the gzip * format or automatic detection of format. Putting it here is slightly less * gross! */ #define WBITS_RAW (-MAX_WBITS) |
︙ | ︙ | |||
3123 3124 3125 3126 3127 3128 3129 | Tcl_Eval(interp, "namespace eval ::tcl::zlib {variable cmdcounter 0}"); /* * Create the public scripted interface to this file's functionality. */ Tcl_CreateObjCommand(interp, "zlib", ZlibCmd, 0, 0); | | | 3132 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 | Tcl_Eval(interp, "namespace eval ::tcl::zlib {variable cmdcounter 0}"); /* * Create the public scripted interface to this file's functionality. */ Tcl_CreateObjCommand(interp, "zlib", ZlibCmd, 0, 0); return Tcl_PkgProvide(interp, "zlib", TCL_ZLIB_VERSION); } /* *---------------------------------------------------------------------- * Stubs used when a suitable zlib installation was not found during * configure. *---------------------------------------------------------------------- |
︙ | ︙ |