1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
/* Written by Jean-Claude Wippler, as part of Tclkit.
* March 2003 - placed in the public domain by the author.
*
* Interface to the "zlib" compression library
*/
#include "zlib.h"
#include <tcl.h>
typedef struct {
z_stream stream;
Tcl_Obj *indata;
} zlibstream;
static int
|
|
>
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
/* Written by Jean-Claude Wippler, as part of Tclkit.
* March 2003 - placed in the public domain by the author.
*
* Interface to the "zlib" compression library
*/
#include <tcl.h>
#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86
#include "zlib.h"
typedef struct {
z_stream stream;
Tcl_Obj *indata;
} zlibstream;
static int
|
205
206
207
208
209
210
211
|
}
int Zlib_Init(Tcl_Interp *interp)
{
Tcl_CreateObjCommand(interp, "zlib", ZlibCmd, 0, 0);
return Tcl_PkgProvide( interp, "zlib", "1.1");
}
|
>
|
206
207
208
209
210
211
212
213
|
}
int Zlib_Init(Tcl_Interp *interp)
{
Tcl_CreateObjCommand(interp, "zlib", ZlibCmd, 0, 0);
return Tcl_PkgProvide( interp, "zlib", "1.1");
}
#endif /* Tcl version less than 8.6 */
|