regen

2 files changed, 145 insertions, 2 deletions

diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 525b613..45805f2 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclDecls.h,v 1.160 2008/12/09 20:16:29 dgp Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.161 2008/12/11 14:17:23 dkf Exp $
  */
 
 #ifndef _TCLDECLS
@@ -3687,6 +3687,77 @@ EXTERN int		Tcl_InterpActive (Tcl_Interp * interp);
 EXTERN void		Tcl_BackgroundException (Tcl_Interp * interp,
 				int code);
 #endif
+#ifndef Tcl_ZlibDeflate_TCL_DECLARED
+#define Tcl_ZlibDeflate_TCL_DECLARED
+/* 610 */
+EXTERN int		Tcl_ZlibDeflate (Tcl_Interp * interp, int format,
+				Tcl_Obj * data, int level,
+				Tcl_Obj * gzipHeaderDictObj);
+#endif
+#ifndef Tcl_ZlibInflate_TCL_DECLARED
+#define Tcl_ZlibInflate_TCL_DECLARED
+/* 611 */
+EXTERN int		Tcl_ZlibInflate (Tcl_Interp * interp, int format,
+				Tcl_Obj * data, int buffersize,
+				Tcl_Obj * gzipHeaderDictObj);
+#endif
+#ifndef Tcl_ZlibCRC32_TCL_DECLARED
+#define Tcl_ZlibCRC32_TCL_DECLARED
+/* 612 */
+EXTERN unsigned int	Tcl_ZlibCRC32 (unsigned int crc, const char * buf,
+				int len);
+#endif
+#ifndef Tcl_ZlibAdler32_TCL_DECLARED
+#define Tcl_ZlibAdler32_TCL_DECLARED
+/* 613 */
+EXTERN unsigned int	Tcl_ZlibAdler32 (unsigned int adler,
+				const char * buf, int len);
+#endif
+#ifndef Tcl_ZlibStreamInit_TCL_DECLARED
+#define Tcl_ZlibStreamInit_TCL_DECLARED
+/* 614 */
+EXTERN int		Tcl_ZlibStreamInit (Tcl_Interp * interp, int mode,
+				int format, int level, Tcl_Obj * dictObj,
+				Tcl_ZlibStream * zshandle);
+#endif
+#ifndef Tcl_ZlibStreamGetCommandName_TCL_DECLARED
+#define Tcl_ZlibStreamGetCommandName_TCL_DECLARED
+/* 615 */
+EXTERN Tcl_Obj *	Tcl_ZlibStreamGetCommandName (
+				Tcl_ZlibStream zshandle);
+#endif
+#ifndef Tcl_ZlibStreamEof_TCL_DECLARED
+#define Tcl_ZlibStreamEof_TCL_DECLARED
+/* 616 */
+EXTERN int		Tcl_ZlibStreamEof (Tcl_ZlibStream zshandle);
+#endif
+#ifndef Tcl_ZlibStreamAdler32_TCL_DECLARED
+#define Tcl_ZlibStreamAdler32_TCL_DECLARED
+/* 617 */
+EXTERN int		Tcl_ZlibStreamAdler32 (Tcl_ZlibStream zshandle);
+#endif
+#ifndef Tcl_ZlibStreamPut_TCL_DECLARED
+#define Tcl_ZlibStreamPut_TCL_DECLARED
+/* 618 */
+EXTERN int		Tcl_ZlibStreamPut (Tcl_ZlibStream zshandle,
+				Tcl_Obj * data, int flush);
+#endif
+#ifndef Tcl_ZlibStreamGet_TCL_DECLARED
+#define Tcl_ZlibStreamGet_TCL_DECLARED
+/* 619 */
+EXTERN int		Tcl_ZlibStreamGet (Tcl_ZlibStream zshandle,
+				Tcl_Obj * data, int count);
+#endif
+#ifndef Tcl_ZlibStreamClose_TCL_DECLARED
+#define Tcl_ZlibStreamClose_TCL_DECLARED
+/* 620 */
+EXTERN int		Tcl_ZlibStreamClose (Tcl_ZlibStream zshandle);
+#endif
+#ifndef Tcl_ZlibStreamReset_TCL_DECLARED
+#define Tcl_ZlibStreamReset_TCL_DECLARED
+/* 621 */
+EXTERN int		Tcl_ZlibStreamReset (Tcl_ZlibStream zshandle);
+#endif
 
 typedef struct TclStubHooks {
     const struct TclPlatStubs *tclPlatStubs;
@@ -4356,6 +4427,18 @@ typedef struct TclStubs {
     void (*tcl_TransferResult) (Tcl_Interp * sourceInterp, int result, Tcl_Interp * targetInterp); /* 607 */
     int (*tcl_InterpActive) (Tcl_Interp * interp); /* 608 */
     void (*tcl_BackgroundException) (Tcl_Interp * interp, int code); /* 609 */
+    int (*tcl_ZlibDeflate) (Tcl_Interp * interp, int format, Tcl_Obj * data, int level, Tcl_Obj * gzipHeaderDictObj); /* 610 */
+    int (*tcl_ZlibInflate) (Tcl_Interp * interp, int format, Tcl_Obj * data, int buffersize, Tcl_Obj * gzipHeaderDictObj); /* 611 */
+    unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const char * buf, int len); /* 612 */
+    unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const char * buf, int len); /* 613 */
+    int (*tcl_ZlibStreamInit) (Tcl_Interp * interp, int mode, int format, int level, Tcl_Obj * dictObj, Tcl_ZlibStream * zshandle); /* 614 */
+    Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
+    int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
+    int (*tcl_ZlibStreamAdler32) (Tcl_ZlibStream zshandle); /* 617 */
+    int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj * data, int flush); /* 618 */
+    int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj * data, int count); /* 619 */
+    int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
+    int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
 } TclStubs;
 
 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
@@ -6868,6 +6951,54 @@ extern const TclStubs *tclStubsPtr;
 #define Tcl_BackgroundException \
 	(tclStubsPtr->tcl_BackgroundException) /* 609 */
 #endif
+#ifndef Tcl_ZlibDeflate
+#define Tcl_ZlibDeflate \
+	(tclStubsPtr->tcl_ZlibDeflate) /* 610 */
+#endif
+#ifndef Tcl_ZlibInflate
+#define Tcl_ZlibInflate \
+	(tclStubsPtr->tcl_ZlibInflate) /* 611 */
+#endif
+#ifndef Tcl_ZlibCRC32
+#define Tcl_ZlibCRC32 \
+	(tclStubsPtr->tcl_ZlibCRC32) /* 612 */
+#endif
+#ifndef Tcl_ZlibAdler32
+#define Tcl_ZlibAdler32 \
+	(tclStubsPtr->tcl_ZlibAdler32) /* 613 */
+#endif
+#ifndef Tcl_ZlibStreamInit
+#define Tcl_ZlibStreamInit \
+	(tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
+#endif
+#ifndef Tcl_ZlibStreamGetCommandName
+#define Tcl_ZlibStreamGetCommandName \
+	(tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
+#endif
+#ifndef Tcl_ZlibStreamEof
+#define Tcl_ZlibStreamEof \
+	(tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
+#endif
+#ifndef Tcl_ZlibStreamAdler32
+#define Tcl_ZlibStreamAdler32 \
+	(tclStubsPtr->tcl_ZlibStreamAdler32) /* 617 */
+#endif
+#ifndef Tcl_ZlibStreamPut
+#define Tcl_ZlibStreamPut \
+	(tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
+#endif
+#ifndef Tcl_ZlibStreamGet
+#define Tcl_ZlibStreamGet \
+	(tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
+#endif
+#ifndef Tcl_ZlibStreamClose
+#define Tcl_ZlibStreamClose \
+	(tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
+#endif
+#ifndef Tcl_ZlibStreamReset
+#define Tcl_ZlibStreamReset \
+	(tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
+#endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
 
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index b5ea1b6..d953edf 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubInit.c,v 1.172 2008/12/09 21:47:08 nijtmans Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.173 2008/12/11 14:17:23 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -1135,6 +1135,18 @@ static const TclStubs tclStubs = {
     Tcl_TransferResult, /* 607 */
     Tcl_InterpActive, /* 608 */
     Tcl_BackgroundException, /* 609 */
+    Tcl_ZlibDeflate, /* 610 */
+    Tcl_ZlibInflate, /* 611 */
+    Tcl_ZlibCRC32, /* 612 */
+    Tcl_ZlibAdler32, /* 613 */
+    Tcl_ZlibStreamInit, /* 614 */
+    Tcl_ZlibStreamGetCommandName, /* 615 */
+    Tcl_ZlibStreamEof, /* 616 */
+    Tcl_ZlibStreamAdler32, /* 617 */
+    Tcl_ZlibStreamPut, /* 618 */
+    Tcl_ZlibStreamGet, /* 619 */
+    Tcl_ZlibStreamClose, /* 620 */
+    Tcl_ZlibStreamReset, /* 621 */
 };
 
 /* !END!: Do not edit above this line. */