From 6f25f950eeb02f5f136b2f306c52db1593d2430f Mon Sep 17 00:00:00 2001 From: dkf Date: Thu, 11 Dec 2008 14:17:23 +0000 Subject: regen --- generic/tclDecls.h | 133 +++++++++++++++++++++++++++++++++++++++++++++++++- generic/tclStubInit.c | 14 +++++- 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. */ -- cgit v0.12