Tcl: headers diff between 8.6.1 and 8.6.2 versions

	itcl.h	itcl.h

	skipping to change at line 60	skipping to change at line 60
	* above is included in this distribution.	* above is included in this distribution.
	*	*
	*---------------------------------------------------------------------	*---------------------------------------------------------------------
	*/	*/

	#ifndef ITCL_H_INCLUDED	#ifndef ITCL_H_INCLUDED
	#define ITCL_H_INCLUDED	#define ITCL_H_INCLUDED

	#include <tcl.h>	#include <tcl.h>


	#if (TCL_MAJOR_VERSION != 8) \|\| (TCL_MINOR_VERSION < 6)	#if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6)
	# error Itcl 4 build requires tcl.h from Tcl 8.6 or later	# error Itcl 4 build requires tcl.h from Tcl 8.6 or later
	#endif	#endif

	/*	/*
	* For C++ compilers, use extern "C"	* For C++ compilers, use extern "C"
	*/	*/

	#ifdef __cplusplus	#ifdef __cplusplus
	extern "C" {	extern "C" {
	#endif	#endif

	skipping to change at line 85	skipping to change at line 85
	#ifndef TCL_BETA_RELEASE	#ifndef TCL_BETA_RELEASE
	# define TCL_BETA_RELEASE 1	# define TCL_BETA_RELEASE 1
	#endif	#endif
	#ifndef TCL_FINAL_RELEASE	#ifndef TCL_FINAL_RELEASE
	# define TCL_FINAL_RELEASE 2	# define TCL_FINAL_RELEASE 2
	#endif	#endif

	#define ITCL_MAJOR_VERSION 4	#define ITCL_MAJOR_VERSION 4
	#define ITCL_MINOR_VERSION 0	#define ITCL_MINOR_VERSION 0
	#define ITCL_RELEASE_LEVEL TCL_FINAL_RELEASE	#define ITCL_RELEASE_LEVEL TCL_FINAL_RELEASE

	#define ITCL_RELEASE_SERIAL 0	#define ITCL_RELEASE_SERIAL 1

	#define ITCL_VERSION "4.0"	#define ITCL_VERSION "4.0"

	#define ITCL_PATCH_LEVEL "4.0.0"	#define ITCL_PATCH_LEVEL "4.0.1"

	/*	/*
	* A special definition used to allow this header file to be included from	* A special definition used to allow this header file to be included from
	* windows resource files so that they can obtain version information.	* windows resource files so that they can obtain version information.
	* RC_INVOKED is defined by default by the windows RC tool.	* RC_INVOKED is defined by default by the windows RC tool.
	*	*
	* Resource compilers don't like all the C stuff, like typedefs and functio n	* Resource compilers don't like all the C stuff, like typedefs and functio n
	* declarations, that occur below, so block them out.	* declarations, that occur below, so block them out.
	*/	*/


	skipping to change at line 113	skipping to change at line 113
	#ifndef ITCLAPI	#ifndef ITCLAPI
	# if defined(BUILD_itcl)	# if defined(BUILD_itcl)
	# define ITCLAPI MODULE_SCOPE	# define ITCLAPI MODULE_SCOPE
	# else	# else
	# define ITCLAPI extern	# define ITCLAPI extern
	# undef USE_ITCL_STUBS	# undef USE_ITCL_STUBS
	# define USE_ITCL_STUBS 1	# define USE_ITCL_STUBS 1
	# endif	# endif
	#endif	#endif


	#undef TCL_STORAGE_CLASS	#if defined(BUILD_itcl) && !defined(STATIC_BUILD)
	#ifdef BUILD_itcl	# define ITCL_EXTERN extern DLLEXPORT
	# define TCL_STORAGE_CLASS DLLEXPORT
	#else	#else

	# define TCL_STORAGE_CLASS	# define ITCL_EXTERN extern
	#endif	#endif


	EXTERN int Itcl_Init(Tcl_Interp *interp);	ITCL_EXTERN int Itcl_Init(Tcl_Interp *interp);
	EXTERN int Itcl_SafeInit(Tcl_Interp *interp);	ITCL_EXTERN int Itcl_SafeInit(Tcl_Interp *interp);

	/*	/*
	* Protection levels:	* Protection levels:
	*	*
	* ITCL_PUBLIC - accessible from any namespace	* ITCL_PUBLIC - accessible from any namespace
	* ITCL_PROTECTED - accessible from namespace that imports in "protected" m ode	* ITCL_PROTECTED - accessible from namespace that imports in "protected" m ode
	* ITCL_PRIVATE - accessible only within the namespace that contains it	* ITCL_PRIVATE - accessible only within the namespace that contains it
	*/	*/
	#define ITCL_PUBLIC 1	#define ITCL_PUBLIC 1
	#define ITCL_PROTECTED 2	#define ITCL_PROTECTED 2

	skipping to change at line 191	skipping to change at line 190

	#ifdef ITCL_PRESERVE_DEBUG	#ifdef ITCL_PRESERVE_DEBUG
	#undef Itcl_PreserveData	#undef Itcl_PreserveData
	#undef Itcl_ReleaseData	#undef Itcl_ReleaseData
	void ItclDbgPreserveData(ClientData cdata, int line, const char *file);	void ItclDbgPreserveData(ClientData cdata, int line, const char *file);
	void ItclDbgReleaseData(ClientData cdata, int line, const char *file);	void ItclDbgReleaseData(ClientData cdata, int line, const char *file);
	#define Itcl_PreserveData(addr) ItclDbgPreserveData(addr, __LINE__, __FILE_ _)	#define Itcl_PreserveData(addr) ItclDbgPreserveData(addr, __LINE__, __FILE_ _)
	#define Itcl_ReleaseData(addr) ItclDbgReleaseData(addr, __LINE__, __FILE__)	#define Itcl_ReleaseData(addr) ItclDbgReleaseData(addr, __LINE__, __FILE__)
	#endif	#endif


	#undef TCL_STORAGE_CLASS
	#define TCL_STORAGE_CLASS DLLIMPORT

	#endif /* RC_INVOKED */	#endif /* RC_INVOKED */

	/*	/*
	* end block for C++	* end block for C++
	*/	*/

	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif


End of changes. 7 change blocks.
	12 lines changed or deleted	8 lines changed or added

	itclDecls.h	itclDecls.h
	/*	/*
	* This file is (mostly) automatically generated from itcl.decls.	* This file is (mostly) automatically generated from itcl.decls.
	*/	*/


		#ifndef _ITCLDECLS
		#define _ITCLDECLS

	#if defined(USE_ITCL_STUBS)	#if defined(USE_ITCL_STUBS)

	ITCLAPI const char *Itcl_InitStubs(	ITCLAPI const char *Itcl_InitStubs(
	Tcl_Interp , const char version, int exact);	Tcl_Interp , const char version, int exact);
	#else	#else

	#define Itcl_InitStubs(interp, version, exact) Tcl_PkgRequire(interp,"itcl" ,version,exact)	#define Itcl_InitStubs(interp, version, exact) Tcl_PkgRequire(interp,"itcl" ,version,exact)

	#endif	#endif

	/* !BEGIN!: Do not edit below this line. */	/* !BEGIN!: Do not edit below this line. */

	#define ITCL_STUBS_EPOCH 0	#define ITCL_STUBS_EPOCH 0
	#define ITCL_STUBS_REVISION 144	#define ITCL_STUBS_REVISION 144


		#ifdef __cplusplus
		extern "C" {
		#endif

	/*	/*
	* Exported function declarations:	* Exported function declarations:
	*/	*/

	/* Slot 0 is reserved */	/* Slot 0 is reserved */
	/* Slot 1 is reserved */	/* Slot 1 is reserved */
	/* 2 */	/* 2 */
	ITCLAPI int Itcl_RegisterC(Tcl_Interp interp, const char name,	ITCLAPI int Itcl_RegisterC(Tcl_Interp interp, const char name,
	Tcl_CmdProc *proc, ClientData clientData,	Tcl_CmdProc *proc, ClientData clientData,
	Tcl_CmdDeleteProc *deleteProc);	Tcl_CmdDeleteProc *deleteProc);

	skipping to change at line 88	skipping to change at line 95
	/* 22 */	/* 22 */
	ITCLAPI void Itcl_ReleaseData(ClientData cdata);	ITCLAPI void Itcl_ReleaseData(ClientData cdata);
	/* 23 */	/* 23 */
	ITCLAPI Itcl_InterpState Itcl_SaveInterpState(Tcl_Interp *interp, int statu s);	ITCLAPI Itcl_InterpState Itcl_SaveInterpState(Tcl_Interp *interp, int statu s);
	/* 24 */	/* 24 */
	ITCLAPI int Itcl_RestoreInterpState(Tcl_Interp *interp,	ITCLAPI int Itcl_RestoreInterpState(Tcl_Interp *interp,
	Itcl_InterpState state);	Itcl_InterpState state);
	/* 25 */	/* 25 */
	ITCLAPI void Itcl_DiscardInterpState(Itcl_InterpState state);	ITCLAPI void Itcl_DiscardInterpState(Itcl_InterpState state);


	typedef struct ItclStubHooks {	typedef struct {
	const struct ItclIntStubs *itclIntStubs;	const struct ItclIntStubs *itclIntStubs;
	} ItclStubHooks;	} ItclStubHooks;

	typedef struct ItclStubs {	typedef struct ItclStubs {
	int magic;	int magic;
	int epoch;	int epoch;
	int revision;	int revision;

	const struct ItclStubHooks *hooks;	const ItclStubHooks *hooks;

	void (*reserved0)(void);	void (*reserved0)(void);
	void (*reserved1)(void);	void (*reserved1)(void);
	int (itcl_RegisterC) (Tcl_Interp interp, const char name, Tcl_CmdPro c proc, ClientData clientData, Tcl_CmdDeleteProc deleteProc); / 2 */	int (itcl_RegisterC) (Tcl_Interp interp, const char name, Tcl_CmdPro c proc, ClientData clientData, Tcl_CmdDeleteProc deleteProc); / 2 */
	int (itcl_RegisterObjC) (Tcl_Interp interp, const char name, Tcl_Obj CmdProc proc, ClientData clientData, Tcl_CmdDeleteProc deleteProc); / 3 */	int (itcl_RegisterObjC) (Tcl_Interp interp, const char name, Tcl_Obj CmdProc proc, ClientData clientData, Tcl_CmdDeleteProc deleteProc); / 3 */
	int (itcl_FindC) (Tcl_Interp interp, const char name, Tcl_CmdProc * argProcPtr, Tcl_ObjCmdProc *objProcPtr, ClientData cDataPtr); /* 4 */	int (itcl_FindC) (Tcl_Interp interp, const char name, Tcl_CmdProc * argProcPtr, Tcl_ObjCmdProc *objProcPtr, ClientData cDataPtr); /* 4 */
	void (itcl_InitStack) (Itcl_Stack stack); /* 5 */	void (itcl_InitStack) (Itcl_Stack stack); /* 5 */
	void (itcl_DeleteStack) (Itcl_Stack stack); /* 6 */	void (itcl_DeleteStack) (Itcl_Stack stack); /* 6 */
	void (itcl_PushStack) (ClientData cdata, Itcl_Stack stack); /* 7 */	void (itcl_PushStack) (ClientData cdata, Itcl_Stack stack); /* 7 */
	ClientData (itcl_PopStack) (Itcl_Stack stack); /* 8 */	ClientData (itcl_PopStack) (Itcl_Stack stack); /* 8 */

	skipping to change at line 126	skipping to change at line 133
	Itcl_ListElem * (itcl_AppendListElem) (Itcl_ListElem pos, ClientData val); /* 18 */	Itcl_ListElem * (itcl_AppendListElem) (Itcl_ListElem pos, ClientData val); /* 18 */
	void (itcl_SetListValue) (Itcl_ListElem elemPtr, ClientData val); /* 19 */	void (itcl_SetListValue) (Itcl_ListElem elemPtr, ClientData val); /* 19 */
	void (itcl_EventuallyFree) (ClientData cdata, Tcl_FreeProc fproc); /* 20 */	void (itcl_EventuallyFree) (ClientData cdata, Tcl_FreeProc fproc); /* 20 */
	void (itcl_PreserveData) (ClientData cdata); / 21 */	void (itcl_PreserveData) (ClientData cdata); / 21 */
	void (itcl_ReleaseData) (ClientData cdata); / 22 */	void (itcl_ReleaseData) (ClientData cdata); / 22 */
	Itcl_InterpState (itcl_SaveInterpState) (Tcl_Interp interp, int statu s); /* 23 */	Itcl_InterpState (itcl_SaveInterpState) (Tcl_Interp interp, int statu s); /* 23 */
	int (itcl_RestoreInterpState) (Tcl_Interp interp, Itcl_InterpState st ate); /* 24 */	int (itcl_RestoreInterpState) (Tcl_Interp interp, Itcl_InterpState st ate); /* 24 */
	void (itcl_DiscardInterpState) (Itcl_InterpState state); / 25 */	void (itcl_DiscardInterpState) (Itcl_InterpState state); / 25 */
	} ItclStubs;	} ItclStubs;


	#ifdef __cplusplus
	extern "C" {
	#endif
	extern const ItclStubs *itclStubsPtr;	extern const ItclStubs *itclStubsPtr;


	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif

	#if defined(USE_ITCL_STUBS)	#if defined(USE_ITCL_STUBS)

	/*	/*
	* Inline function declarations:	* Inline function declarations:
	*/	*/


	skipping to change at line 194	skipping to change at line 199
	#define Itcl_SaveInterpState \	#define Itcl_SaveInterpState \
	(itclStubsPtr->itcl_SaveInterpState) /* 23 */	(itclStubsPtr->itcl_SaveInterpState) /* 23 */
	#define Itcl_RestoreInterpState \	#define Itcl_RestoreInterpState \
	(itclStubsPtr->itcl_RestoreInterpState) /* 24 */	(itclStubsPtr->itcl_RestoreInterpState) /* 24 */
	#define Itcl_DiscardInterpState \	#define Itcl_DiscardInterpState \
	(itclStubsPtr->itcl_DiscardInterpState) /* 25 */	(itclStubsPtr->itcl_DiscardInterpState) /* 25 */

	#endif /* defined(USE_ITCL_STUBS) */	#endif /* defined(USE_ITCL_STUBS) */

	/* !END!: Do not edit above this line. */	/* !END!: Do not edit above this line. */


		#endif /* _ITCLDECLS */

End of changes. 7 change blocks.
	5 lines changed or deleted	10 lines changed or added

	itclIntDecls.h	itclIntDecls.h
	/*	/*
	* This file is (mostly) automatically generated from itcl.decls.	* This file is (mostly) automatically generated from itcl.decls.
	*/	*/


		#ifndef _ITCLINTDECLS
		#define _ITCLINTDECLS

	/* !BEGIN!: Do not edit below this line. */	/* !BEGIN!: Do not edit below this line. */

	#define ITCLINT_STUBS_EPOCH 0	#define ITCLINT_STUBS_EPOCH 0
	#define ITCLINT_STUBS_REVISION 144	#define ITCLINT_STUBS_REVISION 144


		#ifdef __cplusplus
		extern "C" {
		#endif

	/*	/*
	* Exported function declarations:	* Exported function declarations:
	*/	*/

	/* 0 */	/* 0 */
	ITCLAPI int Itcl_IsClassNamespace(Tcl_Namespace *namesp);	ITCLAPI int Itcl_IsClassNamespace(Tcl_Namespace *namesp);
	/* 1 */	/* 1 */
	ITCLAPI int Itcl_IsClass(Tcl_Command cmd);	ITCLAPI int Itcl_IsClass(Tcl_Command cmd);
	/* 2 */	/* 2 */
	ITCLAPI ItclClass * Itcl_FindClass(Tcl_Interp interp, const char path,	ITCLAPI ItclClass * Itcl_FindClass(Tcl_Interp interp, const char path,

	skipping to change at line 495	skipping to change at line 502
	Tcl_CallFrame *framePtr,	Tcl_CallFrame *framePtr,
	Tcl_Namespace *nsPtr, int isProcCallFrame);	Tcl_Namespace *nsPtr, int isProcCallFrame);
	/* 175 */	/* 175 */
	ITCLAPI void Itcl_PopCallFrame(Tcl_Interp *interp);	ITCLAPI void Itcl_PopCallFrame(Tcl_Interp *interp);
	/* 176 */	/* 176 */
	ITCLAPI Tcl_CallFrame * Itcl_GetUplevelCallFrame(Tcl_Interp *interp ,	ITCLAPI Tcl_CallFrame * Itcl_GetUplevelCallFrame(Tcl_Interp *interp ,
	int level);	int level);
	/* 177 */	/* 177 */
	ITCLAPI Tcl_CallFrame * Itcl_ActivateCallFrame(Tcl_Interp *interp,	ITCLAPI Tcl_CallFrame * Itcl_ActivateCallFrame(Tcl_Interp *interp,
	Tcl_CallFrame *framePtr);	Tcl_CallFrame *framePtr);

		/* 178 */
		ITCLAPI const char* ItclSetInstanceVar(Tcl_Interp *interp,
		const char name, const char name2,
		const char value, ItclObject contextIoPtr,
		ItclClass *contextIclsPtr);
		/* 179 */
		ITCLAPI Tcl_Obj * ItclCapitalize(const char *str);
		/* 180 */
		ITCLAPI int ItclClassBaseCmd(ClientData clientData,
		Tcl_Interp *interp, int flags, int objc,
		Tcl_Obj *const objv[],
		ItclClass **iclsPtrPtr);
		/* 181 */
		ITCLAPI int ItclCreateComponent(Tcl_Interp *interp,
		ItclClass iclsPtr, Tcl_Obj componentPtr,
		int type, ItclComponent **icPtrPtr);

	typedef struct ItclIntStubs {	typedef struct ItclIntStubs {
	int magic;	int magic;
	int epoch;	int epoch;
	int revision;	int revision;

	const struct ItclIntStubHooks *hooks;	void *hooks;

	int (itcl_IsClassNamespace) (Tcl_Namespace namesp); /* 0 */	int (itcl_IsClassNamespace) (Tcl_Namespace namesp); /* 0 */
	int (itcl_IsClass) (Tcl_Command cmd); / 1 */	int (itcl_IsClass) (Tcl_Command cmd); / 1 */
	ItclClass * (itcl_FindClass) (Tcl_Interp interp, const char path, in t autoload); / 2 */	ItclClass * (itcl_FindClass) (Tcl_Interp interp, const char path, in t autoload); / 2 */
	int (itcl_FindObject) (Tcl_Interp interp, const char name, ItclObjec t roPtr); / 3 */	int (itcl_FindObject) (Tcl_Interp interp, const char name, ItclObjec t roPtr); / 3 */
	int (itcl_IsObject) (Tcl_Command cmd); / 4 */	int (itcl_IsObject) (Tcl_Command cmd); / 4 */
	int (itcl_ObjectIsa) (ItclObject contextObj, ItclClass cdefn); / 5 */	int (itcl_ObjectIsa) (ItclObject contextObj, ItclClass cdefn); / 5 */
	int (itcl_Protection) (Tcl_Interp interp, int newLevel); /* 6 */	int (itcl_Protection) (Tcl_Interp interp, int newLevel); /* 6 */
	const char * (itcl_ProtectionStr) (int pLevel); / 7 */	const char * (itcl_ProtectionStr) (int pLevel); / 7 */
	int (itcl_CanAccess) (ItclMemberFunc memberPtr, Tcl_Namespace fromNs Ptr); / 8 */	int (itcl_CanAccess) (ItclMemberFunc memberPtr, Tcl_Namespace fromNs Ptr); / 8 */

	skipping to change at line 680	skipping to change at line 703
	int (itcl_NWidgetCmd) (ClientData infoPtr, Tcl_Interp interp, int obj c, Tcl_Obj const objv[]); / 168 */	int (itcl_NWidgetCmd) (ClientData infoPtr, Tcl_Interp interp, int obj c, Tcl_Obj const objv[]); / 168 */
	int (itcl_AddOptionCmd) (ClientData infoPtr, Tcl_Interp interp, int o bjc, Tcl_Obj const objv[]); / 169 */	int (itcl_AddOptionCmd) (ClientData infoPtr, Tcl_Interp interp, int o bjc, Tcl_Obj const objv[]); / 169 */
	int (itcl_AddComponentCmd) (ClientData infoPtr, Tcl_Interp interp, in t objc, Tcl_Obj const objv[]); / 170 */	int (itcl_AddComponentCmd) (ClientData infoPtr, Tcl_Interp interp, in t objc, Tcl_Obj const objv[]); / 170 */
	int (itcl_BiInfoOptionCmd) (ClientData dummy, Tcl_Interp interp, int objc, Tcl_Obj const objv[]); / 171 */	int (itcl_BiInfoOptionCmd) (ClientData dummy, Tcl_Interp interp, int objc, Tcl_Obj const objv[]); / 171 */
	int (itcl_BiInfoComponentCmd) (ClientData dummy, Tcl_Interp interp, i nt objc, Tcl_Obj const objv[]); / 172 */	int (itcl_BiInfoComponentCmd) (ClientData dummy, Tcl_Interp interp, i nt objc, Tcl_Obj const objv[]); / 172 */
	int (itcl_RenameCommand) (Tcl_Interp interp, const char oldName, con st char newName); /* 173 */	int (itcl_RenameCommand) (Tcl_Interp interp, const char oldName, con st char newName); /* 173 */
	int (itcl_PushCallFrame) (Tcl_Interp interp, Tcl_CallFrame framePtr, Tcl_Namespace nsPtr, int isProcCallFrame); /* 174 */	int (itcl_PushCallFrame) (Tcl_Interp interp, Tcl_CallFrame framePtr, Tcl_Namespace nsPtr, int isProcCallFrame); /* 174 */
	void (itcl_PopCallFrame) (Tcl_Interp interp); /* 175 */	void (itcl_PopCallFrame) (Tcl_Interp interp); /* 175 */
	Tcl_CallFrame * (itcl_GetUplevelCallFrame) (Tcl_Interp interp, int le vel); /* 176 */	Tcl_CallFrame * (itcl_GetUplevelCallFrame) (Tcl_Interp interp, int le vel); /* 176 */
	Tcl_CallFrame * (itcl_ActivateCallFrame) (Tcl_Interp interp, Tcl_Call Frame framePtr); / 177 */	Tcl_CallFrame * (itcl_ActivateCallFrame) (Tcl_Interp interp, Tcl_Call Frame framePtr); / 177 */

		const char* (itclSetInstanceVar) (Tcl_Interp interp, const char *name
		, const char name2, const char value, ItclObject *contextIoPtr, ItclClass
		contextIclsPtr); / 178 */
		Tcl_Obj * (itclCapitalize) (const char str); /* 179 */
		int (itclClassBaseCmd) (ClientData clientData, Tcl_Interp interp, int
		flags, int objc, Tcl_Obj const objv[], ItclClass iclsPtrPtr); / 180 */
		int (itclCreateComponent) (Tcl_Interp interp, ItclClass *iclsPtr, Tcl
		_Obj componentPtr, int type, ItclComponent icPtrPtr); / 181 */
	} ItclIntStubs;	} ItclIntStubs;


	#ifdef __cplusplus
	extern "C" {
	#endif
	extern const ItclIntStubs *itclIntStubsPtr;	extern const ItclIntStubs *itclIntStubsPtr;


	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif

	#if defined(USE_ITCL_STUBS)	#if defined(USE_ITCL_STUBS)

	/*	/*
	* Inline function declarations:	* Inline function declarations:
	*/	*/


	skipping to change at line 994	skipping to change at line 1019
	#define Itcl_RenameCommand \	#define Itcl_RenameCommand \
	(itclIntStubsPtr->itcl_RenameCommand) /* 173 */	(itclIntStubsPtr->itcl_RenameCommand) /* 173 */
	#define Itcl_PushCallFrame \	#define Itcl_PushCallFrame \
	(itclIntStubsPtr->itcl_PushCallFrame) /* 174 */	(itclIntStubsPtr->itcl_PushCallFrame) /* 174 */
	#define Itcl_PopCallFrame \	#define Itcl_PopCallFrame \
	(itclIntStubsPtr->itcl_PopCallFrame) /* 175 */	(itclIntStubsPtr->itcl_PopCallFrame) /* 175 */
	#define Itcl_GetUplevelCallFrame \	#define Itcl_GetUplevelCallFrame \
	(itclIntStubsPtr->itcl_GetUplevelCallFrame) /* 176 */	(itclIntStubsPtr->itcl_GetUplevelCallFrame) /* 176 */
	#define Itcl_ActivateCallFrame \	#define Itcl_ActivateCallFrame \
	(itclIntStubsPtr->itcl_ActivateCallFrame) /* 177 */	(itclIntStubsPtr->itcl_ActivateCallFrame) /* 177 */

		#define ItclSetInstanceVar \
		(itclIntStubsPtr->itclSetInstanceVar) /* 178 */
		#define ItclCapitalize \
		(itclIntStubsPtr->itclCapitalize) /* 179 */
		#define ItclClassBaseCmd \
		(itclIntStubsPtr->itclClassBaseCmd) /* 180 */
		#define ItclCreateComponent \
		(itclIntStubsPtr->itclCreateComponent) /* 181 */

	#endif /* defined(USE_ITCL_STUBS) */	#endif /* defined(USE_ITCL_STUBS) */

	/* !END!: Do not edit above this line. */	/* !END!: Do not edit above this line. */


		#endif /* _ITCLINTDECLS */

End of changes. 9 change blocks.
	4 lines changed or deleted	41 lines changed or added

	itclMigrate2TclCore.h	itclMigrate2TclCore.h
	#ifndef ITCL_USE_MODIFIED_TCL_H	#ifndef ITCL_USE_MODIFIED_TCL_H
	/* this is just to provide the definition. This struct is only used if	/* this is just to provide the definition. This struct is only used if
	* infoPtr->useOldResolvers == 0 which is not the default	* infoPtr->useOldResolvers == 0 which is not the default
	*/	*/
	#define FRAME_HAS_RESOLVER 0x100	#define FRAME_HAS_RESOLVER 0x100

	struct Tcl_Var;
	typedef Tcl_Command (Tcl_CmdAliasProc)(Tcl_Interp *interp,	typedef Tcl_Command (Tcl_CmdAliasProc)(Tcl_Interp *interp,

	Tcl_Namespace nsPtr, CONST char cmdName,	Tcl_Namespace nsPtr, const char cmdName,
	ClientData clientData);	ClientData clientData);
	typedef Tcl_Var (Tcl_VarAliasProc)(Tcl_Interp *interp,	typedef Tcl_Var (Tcl_VarAliasProc)(Tcl_Interp *interp,

	Tcl_Namespace nsPtr, CONST char varName,	Tcl_Namespace nsPtr, const char varName,
	ClientData clientData);	ClientData clientData);

	#ifndef _TCL_RESOLVE_DEFINED	#ifndef _TCL_RESOLVE_DEFINED
	typedef struct Tcl_Resolve {	typedef struct Tcl_Resolve {
	Tcl_VarAliasProc *varProcPtr;	Tcl_VarAliasProc *varProcPtr;
	Tcl_CmdAliasProc *cmdProcPtr;	Tcl_CmdAliasProc *cmdProcPtr;
	ClientData clientData;	ClientData clientData;
	} Tcl_Resolve;	} Tcl_Resolve;
	#define _TCL_RESOLVE_DEFINED 1	#define _TCL_RESOLVE_DEFINED 1
	#endif	#endif

	skipping to change at line 79	skipping to change at line 78
	#ifndef _TCL_PROC_DEFINED	#ifndef _TCL_PROC_DEFINED
	typedef struct Tcl_Proc_ *Tcl_Proc;	typedef struct Tcl_Proc_ *Tcl_Proc;
	#define _TCL_PROC_DEFINED 1	#define _TCL_PROC_DEFINED 1
	#endif	#endif

	#define Tcl_SetProcCmd _Tcl_SetProcCmd	#define Tcl_SetProcCmd _Tcl_SetProcCmd

	MODULE_SCOPE Tcl_Var Tcl_NewNamespaceVar(Tcl_Interp interp, Tcl_Namespace nsPtr,	MODULE_SCOPE Tcl_Var Tcl_NewNamespaceVar(Tcl_Interp interp, Tcl_Namespace nsPtr,
	const char *varName);	const char *varName);
	MODULE_SCOPE int Itcl_IsCallFrameArgument(Tcl_Interp interp, const char n ame);	MODULE_SCOPE int Itcl_IsCallFrameArgument(Tcl_Interp interp, const char n ame);

		MODULE_SCOPE int Itcl_GetCallVarFrameObjc(Tcl_Interp *interp);
		MODULE_SCOPE int Itcl_IsVarLink(Tcl_Var var);
		MODULE_SCOPE int Itcl_IsCallFrameLinkVar(Tcl_Interp interp, const char na
		me);
		MODULE_SCOPE Tcl_Obj * const * Itcl_GetCallVarFrameObjv(Tcl_Interp *interp)
		;
		MODULE_SCOPE void Itcl_GetCallFrameVarFramePtr(Tcl_Interp interp);
	#define Tcl_SetNamespaceResolver _Tcl_SetNamespaceResolver	#define Tcl_SetNamespaceResolver _Tcl_SetNamespaceResolver
	MODULE_SCOPE int _Tcl_SetNamespaceResolver(Tcl_Namespace *nsPtr,	MODULE_SCOPE int _Tcl_SetNamespaceResolver(Tcl_Namespace *nsPtr,
	struct Tcl_Resolve *resolvePtr);	struct Tcl_Resolve *resolvePtr);

End of changes. 4 change blocks.
	3 lines changed or deleted	9 lines changed or added

	tcl.h	tcl.h

	skipping to change at line 59	skipping to change at line 59
	* macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC	* macosx/Tcl.xcode/default.pbxuser (not patchlevel) 1 LOC
	* macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC	* macosx/Tcl-Common.xcconfig (not patchlevel) 1 LOC
	* win/README (not patchlevel) (sections 0 and 2)	* win/README (not patchlevel) (sections 0 and 2)
	* unix/tcl.spec (1 LOC patch)	* unix/tcl.spec (1 LOC patch)
	* tools/tcl.hpj.in (not patchlevel, for windows installer)	* tools/tcl.hpj.in (not patchlevel, for windows installer)
	*/	*/

	#define TCL_MAJOR_VERSION 8	#define TCL_MAJOR_VERSION 8
	#define TCL_MINOR_VERSION 6	#define TCL_MINOR_VERSION 6
	#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE	#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE

	#define TCL_RELEASE_SERIAL 1	#define TCL_RELEASE_SERIAL 2

	#define TCL_VERSION "8.6"	#define TCL_VERSION "8.6"

	#define TCL_PATCH_LEVEL "8.6.1"	#define TCL_PATCH_LEVEL "8.6.2"
	/*	/*
	*------------------------------------------------------------------------- ---	*------------------------------------------------------------------------- ---
	* The following definitions set up the proper options for Windows compiler s.	* The following definitions set up the proper options for Windows compiler s.
	* We use this method because there is no autoconf equivalent.	* We use this method because there is no autoconf equivalent.
	*/	*/


	#ifndef __WIN32__	#ifdef _WIN32
	# if defined(_WIN32) \|\| defined(WIN32) \|\| defined(__MINGW32__) \|\| defined	# ifndef __WIN32__
	(__BORLANDC__) \|\| (defined(__WATCOMC__) && defined(__WINDOWS_386__))
	# define __WIN32__	# define __WIN32__

	# ifndef WIN32	# endif
	# define WIN32	# ifndef WIN32
	# endif	# define WIN32
	# ifndef _WIN32
	# define _WIN32
	# endif
	# endif	# endif
	#endif	#endif

	/*	/*
	* STRICT: See MSDN Article Q83456	* STRICT: See MSDN Article Q83456
	*/	*/


	#ifdef __WIN32__	#ifdef _WIN32
	# ifndef STRICT	# ifndef STRICT
	# define STRICT	# define STRICT
	# endif	# endif

	#endif /* __WIN32__ */	#endif /* _WIN32 */

	/*	/*
	* Utility macros: STRINGIFY takes an argument and wraps it in "" (double	* Utility macros: STRINGIFY takes an argument and wraps it in "" (double
	* quotation marks), JOIN joins two arguments.	* quotation marks), JOIN joins two arguments.
	*/	*/

	#ifndef STRINGIFY	#ifndef STRINGIFY
	# define STRINGIFY(x) STRINGIFY1(x)	# define STRINGIFY(x) STRINGIFY1(x)
	# define STRINGIFY1(x) #x	# define STRINGIFY1(x) #x
	#endif	#endif

	skipping to change at line 170	skipping to change at line 167
	#endif	#endif

	/*	/*
	* Allow a part of Tcl's API to be explicitly marked as deprecated.	* Allow a part of Tcl's API to be explicitly marked as deprecated.
	*	*
	* Used to make TIP 330/336 generate moans even if people use the	* Used to make TIP 330/336 generate moans even if people use the
	* compatibility macros. Change your code, guys! We won't support you forev er.	* compatibility macros. Change your code, guys! We won't support you forev er.
	*/	*/

	#if defined(__GNUC__) && ((__GNUC__ >= 4) \|\| ((__GNUC__ == 3) && (__GNUC_MI NOR__ >= 1)))	#if defined(__GNUC__) && ((__GNUC__ >= 4) \|\| ((__GNUC__ == 3) && (__GNUC_MI NOR__ >= 1)))

	# if (__GNUC__ > 4) \|\| ((__GNUC__ == 4) && (__GNUC__MINOR__ >= 5))	# if (__GNUC__ > 4) \|\| ((__GNUC__ == 4) && (__GNUC_MINOR__ >= 5))
	# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg) ))	# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__ (msg) ))
	# else	# else
	# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__))	# define TCL_DEPRECATED_API(msg) __attribute__ ((__deprecated__))
	# endif	# endif
	#else	#else
	# define TCL_DEPRECATED_API(msg) /* nothing portable */	# define TCL_DEPRECATED_API(msg) /* nothing portable */
	#endif	#endif

	/*	/*
	*------------------------------------------------------------------------- ---	*------------------------------------------------------------------------- ---

	skipping to change at line 193	skipping to change at line 190
	* windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be	* windows is for a DLL, which causes the DLLIMPORT and DLLEXPORT macros to be
	* nonempty. To build a static library, the macro STATIC_BUILD should be	* nonempty. To build a static library, the macro STATIC_BUILD should be
	* defined.	* defined.
	*	*
	* Note: when building static but linking dynamically to MSVCRT we must sti ll	* Note: when building static but linking dynamically to MSVCRT we must sti ll
	* correctly decorate the C library imported function. Use CRTIMPORT	* correctly decorate the C library imported function. Use CRTIMPORT
	* for this purpose. _DLL is defined by the compiler when linking to	* for this purpose. _DLL is defined by the compiler when linking to
	* MSVCRT.	* MSVCRT.
	*/	*/


	#if (defined(__WIN32__) && (defined(_MSC_VER) \|\| (__BORLANDC__ >= 0x0550) \| \| defined(__LCC__) \|\| defined(__WATCOMC__) \|\| (defined(__GNUC__) && defined (__declspec))))	#if (defined(_WIN32) && (defined(_MSC_VER) \|\| (defined(__BORLANDC__) && (__ BORLANDC__ >= 0x0550)) \|\| defined(__LCC__) \|\| defined(__WATCOMC__) \|\| (defi ned(__GNUC__) && defined(__declspec))))
	# define HAVE_DECLSPEC 1	# define HAVE_DECLSPEC 1
	# ifdef STATIC_BUILD	# ifdef STATIC_BUILD
	# define DLLIMPORT	# define DLLIMPORT
	# define DLLEXPORT	# define DLLEXPORT
	# ifdef _DLL	# ifdef _DLL
	# define CRTIMPORT __declspec(dllimport)	# define CRTIMPORT __declspec(dllimport)
	# else	# else
	# define CRTIMPORT	# define CRTIMPORT
	# endif	# endif
	# else	# else

	skipping to change at line 317	skipping to change at line 314
	# define EXTERN extern TCL_STORAGE_CLASS	# define EXTERN extern TCL_STORAGE_CLASS
	#endif	#endif

	/*	/*
	*------------------------------------------------------------------------- ---	*------------------------------------------------------------------------- ---
	* The following code is copied from winnt.h. If we don't replicate it here ,	* The following code is copied from winnt.h. If we don't replicate it here ,
	* then <windows.h> can't be included after tcl.h, since tcl.h also defines	* then <windows.h> can't be included after tcl.h, since tcl.h also defines
	* VOID. This block is skipped under Cygwin and Mingw.	* VOID. This block is skipped under Cygwin and Mingw.
	*/	*/


	#if defined(__WIN32__) && !defined(HAVE_WINNT_IGNORE_VOID)	#if defined(_WIN32) && !defined(HAVE_WINNT_IGNORE_VOID)
	#ifndef VOID	#ifndef VOID
	#define VOID void	#define VOID void
	typedef char CHAR;	typedef char CHAR;
	typedef short SHORT;	typedef short SHORT;
	typedef long LONG;	typedef long LONG;
	#endif	#endif

	#endif /* __WIN32__ && !HAVE_WINNT_IGNORE_VOID */	#endif /* _WIN32 && !HAVE_WINNT_IGNORE_VOID */

	/*	/*
	* Macro to use instead of "void" for arguments that must have type "void * "	* Macro to use instead of "void" for arguments that must have type "void * "
	* in ANSI C; maps them to type "char *" in non-ANSI systems.	* in ANSI C; maps them to type "char *" in non-ANSI systems.
	*/	*/

	#ifndef __VXWORKS__	#ifndef __VXWORKS__
	# ifndef NO_VOID	# ifndef NO_VOID
	# define VOID void	# define VOID void
	# else	# else

	skipping to change at line 392	skipping to change at line 389
	*	*
	* The following invariant should hold for any long value 'longVal':	* The following invariant should hold for any long value 'longVal':
	* longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))	* longVal == Tcl_WideAsLong(Tcl_LongAsWide(longVal))
	*	*
	* Note on converting between Tcl_WideInt and strings. This implementation (in	* Note on converting between Tcl_WideInt and strings. This implementation (in
	* tclObj.c) depends on the function	* tclObj.c) depends on the function
	* sprintf(...,"%" TCL_LL_MODIFIER "d",...).	* sprintf(...,"%" TCL_LL_MODIFIER "d",...).
	*/	*/

	#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)	#if !defined(TCL_WIDE_INT_TYPE)&&!defined(TCL_WIDE_INT_IS_LONG)

	# if defined(__WIN32__)	# if defined(_WIN32)
	# define TCL_WIDE_INT_TYPE __int64	# define TCL_WIDE_INT_TYPE __int64
	# ifdef __BORLANDC__	# ifdef __BORLANDC__
	# define TCL_LL_MODIFIER "L"	# define TCL_LL_MODIFIER "L"
	# else /* __BORLANDC__ */	# else /* __BORLANDC__ */
	# define TCL_LL_MODIFIER "I64"	# define TCL_LL_MODIFIER "I64"
	# endif /* __BORLANDC__ */	# endif /* __BORLANDC__ */
	# elif defined(__GNUC__)	# elif defined(__GNUC__)
	# define TCL_WIDE_INT_TYPE long long	# define TCL_WIDE_INT_TYPE long long
	# define TCL_LL_MODIFIER "ll"	# define TCL_LL_MODIFIER "ll"

	# else /* ! __WIN32__ && ! __GNUC__ */	# else /* ! _WIN32 && ! __GNUC__ */
	/*	/*
	* Don't know what platform it is and configure hasn't discovered what is	* Don't know what platform it is and configure hasn't discovered what is
	* going on for us. Try to guess...	* going on for us. Try to guess...
	*/	*/
	# ifdef NO_LIMITS_H	# ifdef NO_LIMITS_H
	# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO NG	# error please define either TCL_WIDE_INT_TYPE or TCL_WIDE_INT_IS_LO NG
	# else /* !NO_LIMITS_H */	# else /* !NO_LIMITS_H */
	# include <limits.h>	# include <limits.h>
	# if (INT_MAX < LONG_MAX)	# if (INT_MAX < LONG_MAX)
	# define TCL_WIDE_INT_IS_LONG 1	# define TCL_WIDE_INT_IS_LONG 1
	# else	# else
	# define TCL_WIDE_INT_TYPE long long	# define TCL_WIDE_INT_TYPE long long
	# endif	# endif
	# endif /* NO_LIMITS_H */	# endif /* NO_LIMITS_H */

	# endif /* __WIN32__ */	# endif /* _WIN32 */
	#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */	#endif /* !TCL_WIDE_INT_TYPE & !TCL_WIDE_INT_IS_LONG */
	#ifdef TCL_WIDE_INT_IS_LONG	#ifdef TCL_WIDE_INT_IS_LONG
	# undef TCL_WIDE_INT_TYPE	# undef TCL_WIDE_INT_TYPE
	# define TCL_WIDE_INT_TYPE long	# define TCL_WIDE_INT_TYPE long
	#endif /* TCL_WIDE_INT_IS_LONG */	#endif /* TCL_WIDE_INT_IS_LONG */

	typedef TCL_WIDE_INT_TYPE Tcl_WideInt;	typedef TCL_WIDE_INT_TYPE Tcl_WideInt;
	typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;	typedef unsigned TCL_WIDE_INT_TYPE Tcl_WideUInt;

	#ifdef TCL_WIDE_INT_IS_LONG	#ifdef TCL_WIDE_INT_IS_LONG

	skipping to change at line 449	skipping to change at line 446
	*/	*/
	# ifndef TCL_LL_MODIFIER	# ifndef TCL_LL_MODIFIER
	# define TCL_LL_MODIFIER "ll"	# define TCL_LL_MODIFIER "ll"
	# endif /* !TCL_LL_MODIFIER */	# endif /* !TCL_LL_MODIFIER */
	# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))	# define Tcl_WideAsLong(val) ((long)((Tcl_WideInt)(val)))
	# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))	# define Tcl_LongAsWide(val) ((Tcl_WideInt)((long)(val)))
	# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))	# define Tcl_WideAsDouble(val) ((double)((Tcl_WideInt)(val)))
	# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))	# define Tcl_DoubleAsWide(val) ((Tcl_WideInt)((double)(val)))
	#endif /* TCL_WIDE_INT_IS_LONG */	#endif /* TCL_WIDE_INT_IS_LONG */


	#if defined(__WIN32__)	#if defined(_WIN32)
	# ifdef __BORLANDC__	# ifdef __BORLANDC__
	typedef struct stati64 Tcl_StatBuf;	typedef struct stati64 Tcl_StatBuf;
	# elif defined(_WIN64)	# elif defined(_WIN64)
	typedef struct __stat64 Tcl_StatBuf;	typedef struct __stat64 Tcl_StatBuf;
	# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) \|\| defined(_USE_32BIT_TIM E_T)	# elif (defined(_MSC_VER) && (_MSC_VER < 1400)) \|\| defined(_USE_32BIT_TIM E_T)
	typedef struct _stati64 Tcl_StatBuf;	typedef struct _stati64 Tcl_StatBuf;
	# else	# else
	typedef struct _stat32i64 Tcl_StatBuf;	typedef struct _stat32i64 Tcl_StatBuf;
	# endif /* _MSC_VER < 1400 */	# endif /* _MSC_VER < 1400 */
	#elif defined(__CYGWIN__)	#elif defined(__CYGWIN__)

	typedef struct _stat32i64 {	typedef struct {
	dev_t st_dev;	dev_t st_dev;
	unsigned short st_ino;	unsigned short st_ino;
	unsigned short st_mode;	unsigned short st_mode;
	short st_nlink;	short st_nlink;
	short st_uid;	short st_uid;
	short st_gid;	short st_gid;
	/* Here is a 2-byte gap */	/* Here is a 2-byte gap */
	dev_t st_rdev;	dev_t st_rdev;
	/* Here is a 4-byte gap */	/* Here is a 4-byte gap */
	long long st_size;	long long st_size;

	skipping to change at line 563	skipping to change at line 560
	typedef struct Tcl_Var_ *Tcl_Var;	typedef struct Tcl_Var_ *Tcl_Var;
	typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream;	typedef struct Tcl_ZLibStream_ *Tcl_ZlibStream;

	/*	/*
	*------------------------------------------------------------------------- ---	*------------------------------------------------------------------------- ---
	* Definition of the interface to functions implementing threads. A functio n	* Definition of the interface to functions implementing threads. A functio n
	* following this definition is given to each call of 'Tcl_CreateThread' an d	* following this definition is given to each call of 'Tcl_CreateThread' an d
	* will be called as the main fuction of the new thread created by that cal l.	* will be called as the main fuction of the new thread created by that cal l.
	*/	*/


	#if defined __WIN32__	#if defined _WIN32
	typedef unsigned (__stdcall Tcl_ThreadCreateProc) (ClientData clientData);	typedef unsigned (__stdcall Tcl_ThreadCreateProc) (ClientData clientData);
	#else	#else
	typedef void (Tcl_ThreadCreateProc) (ClientData clientData);	typedef void (Tcl_ThreadCreateProc) (ClientData clientData);
	#endif	#endif

	/*	/*
	* Threading function return types used for abstracting away platform	* Threading function return types used for abstracting away platform
	* differences when writing a Tcl_ThreadCreateProc. See the NewThread funct ion	* differences when writing a Tcl_ThreadCreateProc. See the NewThread funct ion
	* in generic/tclThreadTest.c for it's usage.	* in generic/tclThreadTest.c for it's usage.
	*/	*/


	#if defined __WIN32__	#if defined _WIN32
	# define Tcl_ThreadCreateType unsigned __stdcall	# define Tcl_ThreadCreateType unsigned __stdcall
	# define TCL_THREAD_CREATE_RETURN return 0	# define TCL_THREAD_CREATE_RETURN return 0
	#else	#else
	# define Tcl_ThreadCreateType void	# define Tcl_ThreadCreateType void
	# define TCL_THREAD_CREATE_RETURN	# define TCL_THREAD_CREATE_RETURN
	#endif	#endif

	/*	/*
	* Definition of values for default stacksize and the possible flags to be	* Definition of values for default stacksize and the possible flags to be
	* given to Tcl_CreateThread.	* given to Tcl_CreateThread.

	skipping to change at line 2429	skipping to change at line 2426
	/*	/*
	*------------------------------------------------------------------------- ---	*------------------------------------------------------------------------- ---
	* Include the public function declarations that are accessible via the stu bs	* Include the public function declarations that are accessible via the stu bs
	* table.	* table.
	*/	*/

	#include "tclDecls.h"	#include "tclDecls.h"

	/*	/*
	* Include platform specific public function declarations that are accessib le	* Include platform specific public function declarations that are accessib le

	* via the stubs table.	* via the stubs table. Make all TclOO symbols MODULE_SCOPE (which only
		* has effect on building it as a shared library). See ticket [3010352].
	*/	*/


		#if defined(BUILD_tcl)
		# undef TCLAPI
		# define TCLAPI MODULE_SCOPE
		#endif

	#include "tclPlatDecls.h"	#include "tclPlatDecls.h"

	/*	/*
	*------------------------------------------------------------------------- ---	*------------------------------------------------------------------------- ---
	* The following declarations either map ckalloc and ckfree to malloc and	* The following declarations either map ckalloc and ckfree to malloc and
	* free, or they map them to functions with all sorts of debugging hooks	* free, or they map them to functions with all sorts of debugging hooks
	* defined in tclCkalloc.c.	* defined in tclCkalloc.c.
	*/	*/

	#ifdef TCL_MEM_DEBUG	#ifdef TCL_MEM_DEBUG

End of changes. 19 change blocks.
	25 lines changed or deleted	27 lines changed or added

	tclDecls.h	tclDecls.h

	skipping to change at line 34	skipping to change at line 34
	#endif	#endif

	/*	/*
	* WARNING: This file is automatically generated by the tools/genStubs.tcl	* WARNING: This file is automatically generated by the tools/genStubs.tcl
	* script. Any modifications to the function declarations below should be made	* script. Any modifications to the function declarations below should be made
	* in the generic/tcl.decls script.	* in the generic/tcl.decls script.
	*/	*/

	/* !BEGIN!: Do not edit below this line. */	/* !BEGIN!: Do not edit below this line. */


		#ifdef __cplusplus
		extern "C" {
		#endif

	/*	/*
	* Exported function declarations:	* Exported function declarations:
	*/	*/

	/* 0 */	/* 0 */
	EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,	EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
	const char name, const char version,	const char name, const char version,
	const void *clientData);	const void *clientData);
	/* 1 */	/* 1 */
	EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,	EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,

	skipping to change at line 62	skipping to change at line 66
	/* 5 */	/* 5 */
	EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);	EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);
	/* 6 */	/* 6 */
	EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,	EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,
	int line);	int line);
	/* 7 */	/* 7 */
	EXTERN void Tcl_DbCkfree(char ptr, const char file, int line);	EXTERN void Tcl_DbCkfree(char ptr, const char file, int line);
	/* 8 */	/* 8 */
	EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,	EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
	const char *file, int line);	const char *file, int line);

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	/* 9 */	/* 9 */
	EXTERN void Tcl_CreateFileHandler(int fd, int mask,	EXTERN void Tcl_CreateFileHandler(int fd, int mask,
	Tcl_FileProc *proc, ClientData clientData);	Tcl_FileProc *proc, ClientData clientData);
	#endif /* UNIX */	#endif /* UNIX */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	/* 9 */	/* 9 */
	EXTERN void Tcl_CreateFileHandler(int fd, int mask,	EXTERN void Tcl_CreateFileHandler(int fd, int mask,
	Tcl_FileProc *proc, ClientData clientData);	Tcl_FileProc *proc, ClientData clientData);
	#endif /* MACOSX */	#endif /* MACOSX */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	/* 10 */	/* 10 */
	EXTERN void Tcl_DeleteFileHandler(int fd);	EXTERN void Tcl_DeleteFileHandler(int fd);
	#endif /* UNIX */	#endif /* UNIX */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	/* 10 */	/* 10 */
	EXTERN void Tcl_DeleteFileHandler(int fd);	EXTERN void Tcl_DeleteFileHandler(int fd);
	#endif /* MACOSX */	#endif /* MACOSX */
	/* 11 */	/* 11 */
	EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);	EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
	/* 12 */	/* 12 */

	skipping to change at line 510	skipping to change at line 514
	EXTERN CONST84_RETURN char * Tcl_GetHostName(void);	EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
	/* 163 */	/* 163 */
	EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp,	EXTERN int Tcl_GetInterpPath(Tcl_Interp *askInterp,
	Tcl_Interp *slaveInterp);	Tcl_Interp *slaveInterp);
	/* 164 */	/* 164 */
	EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);	EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
	/* 165 */	/* 165 */
	EXTERN const char * Tcl_GetNameOfExecutable(void);	EXTERN const char * Tcl_GetNameOfExecutable(void);
	/* 166 */	/* 166 */
	EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);	EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	/* 167 */	/* 167 */
	EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,	EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
	const char *chanID, int forWriting,	const char *chanID, int forWriting,
	int checkUsage, ClientData *filePtr);	int checkUsage, ClientData *filePtr);
	#endif /* UNIX */	#endif /* UNIX */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	/* 167 */	/* 167 */
	EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,	EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
	const char *chanID, int forWriting,	const char *chanID, int forWriting,
	int checkUsage, ClientData *filePtr);	int checkUsage, ClientData *filePtr);

	skipping to change at line 1834	skipping to change at line 1838

	int (tcl_PkgProvideEx) (Tcl_Interp interp, const char name, const ch ar version, const void clientData); / 0 */	int (tcl_PkgProvideEx) (Tcl_Interp interp, const char name, const ch ar version, const void clientData); / 0 */
	CONST84_RETURN char * (tcl_PkgRequireEx) (Tcl_Interp interp, const ch ar name, const char version, int exact, void clientDataPtr); / 1 */	CONST84_RETURN char * (tcl_PkgRequireEx) (Tcl_Interp interp, const ch ar name, const char version, int exact, void clientDataPtr); / 1 */
	void (tcl_Panic) (const char format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */	void (tcl_Panic) (const char format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
	char * (tcl_Alloc) (unsigned int size); / 3 */	char * (tcl_Alloc) (unsigned int size); / 3 */
	void (tcl_Free) (char ptr); /* 4 */	void (tcl_Free) (char ptr); /* 4 */
	char * (tcl_Realloc) (char ptr, unsigned int size); /* 5 */	char * (tcl_Realloc) (char ptr, unsigned int size); /* 5 */
	char * (tcl_DbCkalloc) (unsigned int size, const char file, int line) ; /* 6 */	char * (tcl_DbCkalloc) (unsigned int size, const char file, int line) ; /* 6 */
	void (tcl_DbCkfree) (char ptr, const char file, int line); / 7 */	void (tcl_DbCkfree) (char ptr, const char file, int line); / 7 */
	char * (tcl_DbCkrealloc) (char ptr, unsigned int size, const char fi le, int line); / 8 */	char * (tcl_DbCkrealloc) (char ptr, unsigned int size, const char fi le, int line); / 8 */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	void (tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc proc, Cl ientData clientData); /* 9 */	void (tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc proc, Cl ientData clientData); /* 9 */
	#endif /* UNIX */	#endif /* UNIX */

	#if defined(__WIN32__) /* WIN */	#if defined(_WIN32) /* WIN */
	void (*reserved9)(void);	void (*reserved9)(void);
	#endif /* WIN */	#endif /* WIN */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	void (tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc proc, Cl ientData clientData); /* 9 */	void (tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc proc, Cl ientData clientData); /* 9 */
	#endif /* MACOSX */	#endif /* MACOSX */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	void (tcl_DeleteFileHandler) (int fd); / 10 */	void (tcl_DeleteFileHandler) (int fd); / 10 */
	#endif /* UNIX */	#endif /* UNIX */

	#if defined(__WIN32__) /* WIN */	#if defined(_WIN32) /* WIN */
	void (*reserved10)(void);	void (*reserved10)(void);
	#endif /* WIN */	#endif /* WIN */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	void (tcl_DeleteFileHandler) (int fd); / 10 */	void (tcl_DeleteFileHandler) (int fd); / 10 */
	#endif /* MACOSX */	#endif /* MACOSX */
	void (tcl_SetTimer) (const Tcl_Time timePtr); /* 11 */	void (tcl_SetTimer) (const Tcl_Time timePtr); /* 11 */
	void (tcl_Sleep) (int ms); / 12 */	void (tcl_Sleep) (int ms); / 12 */
	int (tcl_WaitForEvent) (const Tcl_Time timePtr); /* 13 */	int (tcl_WaitForEvent) (const Tcl_Time timePtr); /* 13 */
	int (tcl_AppendAllObjTypes) (Tcl_Interp interp, Tcl_Obj objPtr); / 14 */	int (tcl_AppendAllObjTypes) (Tcl_Interp interp, Tcl_Obj objPtr); / 14 */
	void (tcl_AppendStringsToObj) (Tcl_Obj objPtr, ...); /* 15 */	void (tcl_AppendStringsToObj) (Tcl_Obj objPtr, ...); /* 15 */

	skipping to change at line 2008	skipping to change at line 2012
	int (tcl_GetChannelOption) (Tcl_Interp interp, Tcl_Channel chan, cons t char optionName, Tcl_DString dsPtr); /* 157 */	int (tcl_GetChannelOption) (Tcl_Interp interp, Tcl_Channel chan, cons t char optionName, Tcl_DString dsPtr); /* 157 */
	CONST86 Tcl_ChannelType * (tcl_GetChannelType) (Tcl_Channel chan); / 158 */	CONST86 Tcl_ChannelType * (tcl_GetChannelType) (Tcl_Channel chan); / 158 */
	int (tcl_GetCommandInfo) (Tcl_Interp interp, const char cmdName, Tcl _CmdInfo infoPtr); /* 159 */	int (tcl_GetCommandInfo) (Tcl_Interp interp, const char cmdName, Tcl _CmdInfo infoPtr); /* 159 */
	CONST84_RETURN char * (tcl_GetCommandName) (Tcl_Interp interp, Tcl_Co mmand command); /* 160 */	CONST84_RETURN char * (tcl_GetCommandName) (Tcl_Interp interp, Tcl_Co mmand command); /* 160 */
	int (tcl_GetErrno) (void); / 161 */	int (tcl_GetErrno) (void); / 161 */
	CONST84_RETURN char * (tcl_GetHostName) (void); / 162 */	CONST84_RETURN char * (tcl_GetHostName) (void); / 162 */
	int (tcl_GetInterpPath) (Tcl_Interp askInterp, Tcl_Interp slaveInter p); / 163 */	int (tcl_GetInterpPath) (Tcl_Interp askInterp, Tcl_Interp slaveInter p); / 163 */
	Tcl_Interp * (tcl_GetMaster) (Tcl_Interp interp); /* 164 */	Tcl_Interp * (tcl_GetMaster) (Tcl_Interp interp); /* 164 */
	const char * (tcl_GetNameOfExecutable) (void); / 165 */	const char * (tcl_GetNameOfExecutable) (void); / 165 */
	Tcl_Obj * (tcl_GetObjResult) (Tcl_Interp interp); /* 166 */	Tcl_Obj * (tcl_GetObjResult) (Tcl_Interp interp); /* 166 */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	int (tcl_GetOpenFile) (Tcl_Interp interp, const char chanID, int for Writing, int checkUsage, ClientData filePtr); /* 167 */	int (tcl_GetOpenFile) (Tcl_Interp interp, const char chanID, int for Writing, int checkUsage, ClientData filePtr); /* 167 */
	#endif /* UNIX */	#endif /* UNIX */

	#if defined(__WIN32__) /* WIN */	#if defined(_WIN32) /* WIN */
	void (*reserved167)(void);	void (*reserved167)(void);
	#endif /* WIN */	#endif /* WIN */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	int (tcl_GetOpenFile) (Tcl_Interp interp, const char chanID, int for Writing, int checkUsage, ClientData filePtr); /* 167 */	int (tcl_GetOpenFile) (Tcl_Interp interp, const char chanID, int for Writing, int checkUsage, ClientData filePtr); /* 167 */
	#endif /* MACOSX */	#endif /* MACOSX */
	Tcl_PathType (tcl_GetPathType) (const char path); /* 168 */	Tcl_PathType (tcl_GetPathType) (const char path); /* 168 */
	int (tcl_Gets) (Tcl_Channel chan, Tcl_DString dsPtr); /* 169 */	int (tcl_Gets) (Tcl_Channel chan, Tcl_DString dsPtr); /* 169 */
	int (tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj objPtr); /* 170 */	int (tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj objPtr); /* 170 */
	int (tcl_GetServiceMode) (void); / 171 */	int (tcl_GetServiceMode) (void); / 171 */
	Tcl_Interp * (tcl_GetSlave) (Tcl_Interp interp, const char slaveName ); / 172 */	Tcl_Interp * (tcl_GetSlave) (Tcl_Interp interp, const char slaveName ); / 172 */

	skipping to change at line 2482	skipping to change at line 2486
	Tcl_Obj * (tcl_GetStartupScript) (const char encodingPtr); / 623 */	Tcl_Obj * (tcl_GetStartupScript) (const char encodingPtr); / 623 */
	int (tcl_CloseEx) (Tcl_Interp interp, Tcl_Channel chan, int flags); / * 624 */	int (tcl_CloseEx) (Tcl_Interp interp, Tcl_Channel chan, int flags); / * 624 */
	int (tcl_NRExprObj) (Tcl_Interp interp, Tcl_Obj objPtr, Tcl_Obj res ultPtr); /* 625 */	int (tcl_NRExprObj) (Tcl_Interp interp, Tcl_Obj objPtr, Tcl_Obj res ultPtr); /* 625 */
	int (tcl_NRSubstObj) (Tcl_Interp interp, Tcl_Obj objPtr, int flags); / 626 */	int (tcl_NRSubstObj) (Tcl_Interp interp, Tcl_Obj objPtr, int flags); / 626 */
	int (tcl_LoadFile) (Tcl_Interp interp, Tcl_Obj pathPtr, const char const symv[], int flags, void procPtrs, Tcl_LoadHandle handlePtr); /* 627 */	int (tcl_LoadFile) (Tcl_Interp interp, Tcl_Obj pathPtr, const char const symv[], int flags, void procPtrs, Tcl_LoadHandle handlePtr); /* 627 */
	void * (tcl_FindSymbol) (Tcl_Interp interp, Tcl_LoadHandle handle, co nst char symbol); / 628 */	void * (tcl_FindSymbol) (Tcl_Interp interp, Tcl_LoadHandle handle, co nst char symbol); / 628 */
	int (tcl_FSUnloadFile) (Tcl_Interp interp, Tcl_LoadHandle handlePtr); /* 629 */	int (tcl_FSUnloadFile) (Tcl_Interp interp, Tcl_LoadHandle handlePtr); /* 629 */
	void (tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj compressionDictionaryObj); /* 630 */	void (tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj compressionDictionaryObj); /* 630 */
	} TclStubs;	} TclStubs;


	#ifdef __cplusplus
	extern "C" {
	#endif
	extern const TclStubs *tclStubsPtr;	extern const TclStubs *tclStubsPtr;


	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif

	#if defined(USE_TCL_STUBS)	#if defined(USE_TCL_STUBS)

	/*	/*
	* Inline function declarations:	* Inline function declarations:
	*/	*/


	skipping to change at line 2514	skipping to change at line 2516
	#define Tcl_Free \	#define Tcl_Free \
	(tclStubsPtr->tcl_Free) /* 4 */	(tclStubsPtr->tcl_Free) /* 4 */
	#define Tcl_Realloc \	#define Tcl_Realloc \
	(tclStubsPtr->tcl_Realloc) /* 5 */	(tclStubsPtr->tcl_Realloc) /* 5 */
	#define Tcl_DbCkalloc \	#define Tcl_DbCkalloc \
	(tclStubsPtr->tcl_DbCkalloc) /* 6 */	(tclStubsPtr->tcl_DbCkalloc) /* 6 */
	#define Tcl_DbCkfree \	#define Tcl_DbCkfree \
	(tclStubsPtr->tcl_DbCkfree) /* 7 */	(tclStubsPtr->tcl_DbCkfree) /* 7 */
	#define Tcl_DbCkrealloc \	#define Tcl_DbCkrealloc \
	(tclStubsPtr->tcl_DbCkrealloc) /* 8 */	(tclStubsPtr->tcl_DbCkrealloc) /* 8 */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	#define Tcl_CreateFileHandler \	#define Tcl_CreateFileHandler \
	(tclStubsPtr->tcl_CreateFileHandler) /* 9 */	(tclStubsPtr->tcl_CreateFileHandler) /* 9 */
	#endif /* UNIX */	#endif /* UNIX */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	#define Tcl_CreateFileHandler \	#define Tcl_CreateFileHandler \
	(tclStubsPtr->tcl_CreateFileHandler) /* 9 */	(tclStubsPtr->tcl_CreateFileHandler) /* 9 */
	#endif /* MACOSX */	#endif /* MACOSX */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	#define Tcl_DeleteFileHandler \	#define Tcl_DeleteFileHandler \
	(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */	(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
	#endif /* UNIX */	#endif /* UNIX */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	#define Tcl_DeleteFileHandler \	#define Tcl_DeleteFileHandler \
	(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */	(tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
	#endif /* MACOSX */	#endif /* MACOSX */
	#define Tcl_SetTimer \	#define Tcl_SetTimer \
	(tclStubsPtr->tcl_SetTimer) /* 11 */	(tclStubsPtr->tcl_SetTimer) /* 11 */
	#define Tcl_Sleep \	#define Tcl_Sleep \

	skipping to change at line 2842	skipping to change at line 2844
	#define Tcl_GetHostName \	#define Tcl_GetHostName \
	(tclStubsPtr->tcl_GetHostName) /* 162 */	(tclStubsPtr->tcl_GetHostName) /* 162 */
	#define Tcl_GetInterpPath \	#define Tcl_GetInterpPath \
	(tclStubsPtr->tcl_GetInterpPath) /* 163 */	(tclStubsPtr->tcl_GetInterpPath) /* 163 */
	#define Tcl_GetMaster \	#define Tcl_GetMaster \
	(tclStubsPtr->tcl_GetMaster) /* 164 */	(tclStubsPtr->tcl_GetMaster) /* 164 */
	#define Tcl_GetNameOfExecutable \	#define Tcl_GetNameOfExecutable \
	(tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */	(tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
	#define Tcl_GetObjResult \	#define Tcl_GetObjResult \
	(tclStubsPtr->tcl_GetObjResult) /* 166 */	(tclStubsPtr->tcl_GetObjResult) /* 166 */

	#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */	#if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
	#define Tcl_GetOpenFile \	#define Tcl_GetOpenFile \
	(tclStubsPtr->tcl_GetOpenFile) /* 167 */	(tclStubsPtr->tcl_GetOpenFile) /* 167 */
	#endif /* UNIX */	#endif /* UNIX */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	#define Tcl_GetOpenFile \	#define Tcl_GetOpenFile \
	(tclStubsPtr->tcl_GetOpenFile) /* 167 */	(tclStubsPtr->tcl_GetOpenFile) /* 167 */
	#endif /* MACOSX */	#endif /* MACOSX */
	#define Tcl_GetPathType \	#define Tcl_GetPathType \
	(tclStubsPtr->tcl_GetPathType) /* 168 */	(tclStubsPtr->tcl_GetPathType) /* 168 */
	#define Tcl_Gets \	#define Tcl_Gets \

End of changes. 15 change blocks.
	15 lines changed or deleted	17 lines changed or added

	tclOO.h	tclOO.h

	skipping to change at line 15	skipping to change at line 15
	* declarations for the object-system (NB: not Tcl_Obj, but ::oo).	* declarations for the object-system (NB: not Tcl_Obj, but ::oo).
	*	*
	* Copyright (c) 2006-2010 by Donal K. Fellows	* Copyright (c) 2006-2010 by Donal K. Fellows
	*	*
	* See the file "license.terms" for information on usage and redistribution of	* See the file "license.terms" for information on usage and redistribution of
	* this file, and for a DISCLAIMER OF ALL WARRANTIES.	* this file, and for a DISCLAIMER OF ALL WARRANTIES.
	*/	*/

	#ifndef TCLOO_H_INCLUDED	#ifndef TCLOO_H_INCLUDED
	#define TCLOO_H_INCLUDED	#define TCLOO_H_INCLUDED

	#include "tcl.h"

	#ifndef TCLOOAPI
	# if defined(BUILD_tcl) \|\| defined(BUILD_TclOO)
	# define TCLOOAPI MODULE_SCOPE
	# else
	# define TCLOOAPI extern
	# undef USE_TCLOO_STUBS
	# define USE_TCLOO_STUBS 1
	# endif
	#endif

	extern const char *TclOOInitializeStubs(
	Tcl_Interp , const char version);
	#define Tcl_OOInitStubs(interp) TclOOInitializeStubs((interp), TCLOO_VERSIO
	N)

	/*	/*
	* Be careful when it comes to versioning; need to make sure that the	* Be careful when it comes to versioning; need to make sure that the
	* standalone TclOO version matches. Also make sure that this matches the	* standalone TclOO version matches. Also make sure that this matches the
	* version in the files:	* version in the files:
	*	*
	* tests/oo.test	* tests/oo.test
	* tests/ooNext2.test	* tests/ooNext2.test
	* unix/tclooConfig.sh	* unix/tclooConfig.sh
	* win/tclooConfig.sh	* win/tclooConfig.sh
	*/	*/


	#define TCLOO_VERSION "1.0.1"	#define TCLOO_VERSION "1.0.2"
	#define TCLOO_PATCHLEVEL TCLOO_VERSION	#define TCLOO_PATCHLEVEL TCLOO_VERSION


		#include "tcl.h"

		/*
		* For C++ compilers, use extern "C"
		*/

		#ifdef __cplusplus
		extern "C" {
		#endif

		extern const char *TclOOInitializeStubs(
		Tcl_Interp , const char version);
		#define Tcl_OOInitStubs(interp) \
		TclOOInitializeStubs((interp), TCLOO_VERSION)
		#ifndef USE_TCL_STUBS
		# define TclOOInitializeStubs(interp, version) (TCLOO_PATCHLEVEL)
		#endif

	/*	/*
	* These are opaque types.	* These are opaque types.
	*/	*/

	typedef struct Tcl_Class_ *Tcl_Class;	typedef struct Tcl_Class_ *Tcl_Class;
	typedef struct Tcl_Method_ *Tcl_Method;	typedef struct Tcl_Method_ *Tcl_Method;
	typedef struct Tcl_Object_ *Tcl_Object;	typedef struct Tcl_Object_ *Tcl_Object;
	typedef struct Tcl_ObjectContext_ *Tcl_ObjectContext;	typedef struct Tcl_ObjectContext_ *Tcl_ObjectContext;
	/*	/*
	* Public datatypes for callbacks and structures used in the TIP#257 (OO)	* Public datatypes for callbacks and structures used in the TIP#257 (OO)

	skipping to change at line 129	skipping to change at line 132
	* without breaking binary compatability.	* without breaking binary compatability.
	*/	*/

	#define TCL_OO_METADATA_VERSION_CURRENT 1	#define TCL_OO_METADATA_VERSION_CURRENT 1
	/*	/*
	* Include all the public API, generated from tclOO.decls.	* Include all the public API, generated from tclOO.decls.
	*/	*/

	#include "tclOODecls.h"	#include "tclOODecls.h"


		#ifdef __cplusplus
		}
		#endif
	#endif	#endif
	/*	/*
	* Local Variables:	* Local Variables:
	* mode: c	* mode: c
	* c-basic-offset: 4	* c-basic-offset: 4
	* fill-column: 78	* fill-column: 78
	* End:	* End:
	*/	*/

End of changes. 4 change blocks.
	17 lines changed or deleted	22 lines changed or added

	tclOODecls.h	tclOODecls.h
	/*	/*
	* This file is (mostly) automatically generated from tclOO.decls.	* This file is (mostly) automatically generated from tclOO.decls.
	*/	*/

	#ifndef _TCLOODECLS	#ifndef _TCLOODECLS
	#define _TCLOODECLS	#define _TCLOODECLS


		#ifndef TCLAPI
		# ifdef BUILD_tcl
		# define TCLAPI extern DLLEXPORT
		# else
		# define TCLAPI extern DLLIMPORT
		# endif
		#endif

		#ifdef USE_TCL_STUBS
		# undef USE_TCLOO_STUBS
		# define USE_TCLOO_STUBS
		#endif

	/* !BEGIN!: Do not edit below this line. */	/* !BEGIN!: Do not edit below this line. */


		#ifdef __cplusplus
		extern "C" {
		#endif

	/*	/*
	* Exported function declarations:	* Exported function declarations:
	*/	*/

	/* 0 */	/* 0 */

	TCLOOAPI Tcl_Object Tcl_CopyObjectInstance(Tcl_Interp *interp,	TCLAPI Tcl_Object Tcl_CopyObjectInstance(Tcl_Interp *interp,
	Tcl_Object sourceObject,	Tcl_Object sourceObject,
	const char *targetName,	const char *targetName,
	const char *targetNamespaceName);	const char *targetNamespaceName);
	/* 1 */	/* 1 */

	TCLOOAPI Tcl_Object Tcl_GetClassAsObject(Tcl_Class clazz);	TCLAPI Tcl_Object Tcl_GetClassAsObject(Tcl_Class clazz);
	/* 2 */	/* 2 */

	TCLOOAPI Tcl_Class Tcl_GetObjectAsClass(Tcl_Object object);	TCLAPI Tcl_Class Tcl_GetObjectAsClass(Tcl_Object object);
	/* 3 */	/* 3 */

	TCLOOAPI Tcl_Command Tcl_GetObjectCommand(Tcl_Object object);	TCLAPI Tcl_Command Tcl_GetObjectCommand(Tcl_Object object);
	/* 4 */	/* 4 */

	TCLOOAPI Tcl_Object Tcl_GetObjectFromObj(Tcl_Interp *interp,	TCLAPI Tcl_Object Tcl_GetObjectFromObj(Tcl_Interp *interp,
	Tcl_Obj *objPtr);	Tcl_Obj *objPtr);
	/* 5 */	/* 5 */

	TCLOOAPI Tcl_Namespace * Tcl_GetObjectNamespace(Tcl_Object object);	TCLAPI Tcl_Namespace * Tcl_GetObjectNamespace(Tcl_Object object);
	/* 6 */	/* 6 */

	TCLOOAPI Tcl_Class Tcl_MethodDeclarerClass(Tcl_Method method);	TCLAPI Tcl_Class Tcl_MethodDeclarerClass(Tcl_Method method);
	/* 7 */	/* 7 */

	TCLOOAPI Tcl_Object Tcl_MethodDeclarerObject(Tcl_Method method);	TCLAPI Tcl_Object Tcl_MethodDeclarerObject(Tcl_Method method);
	/* 8 */	/* 8 */

	TCLOOAPI int Tcl_MethodIsPublic(Tcl_Method method);	TCLAPI int Tcl_MethodIsPublic(Tcl_Method method);
	/* 9 */	/* 9 */

	TCLOOAPI int Tcl_MethodIsType(Tcl_Method method,	TCLAPI int Tcl_MethodIsType(Tcl_Method method,
	const Tcl_MethodType *typePtr,	const Tcl_MethodType *typePtr,
	ClientData *clientDataPtr);	ClientData *clientDataPtr);
	/* 10 */	/* 10 */

	TCLOOAPI Tcl_Obj * Tcl_MethodName(Tcl_Method method);	TCLAPI Tcl_Obj * Tcl_MethodName(Tcl_Method method);
	/* 11 */	/* 11 */

	TCLOOAPI Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp,	TCLAPI Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp,
	Tcl_Object object, Tcl_Obj *nameObj,	Tcl_Object object, Tcl_Obj *nameObj,
	int isPublic, const Tcl_MethodType *typePtr,	int isPublic, const Tcl_MethodType *typePtr,
	ClientData clientData);	ClientData clientData);
	/* 12 */	/* 12 */

	TCLOOAPI Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls,	TCLAPI Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls,
	Tcl_Obj *nameObj, int isPublic,	Tcl_Obj *nameObj, int isPublic,
	const Tcl_MethodType *typePtr,	const Tcl_MethodType *typePtr,
	ClientData clientData);	ClientData clientData);
	/* 13 */	/* 13 */

	TCLOOAPI Tcl_Object Tcl_NewObjectInstance(Tcl_Interp *interp,	TCLAPI Tcl_Object Tcl_NewObjectInstance(Tcl_Interp *interp,
	Tcl_Class cls, const char *nameStr,	Tcl_Class cls, const char *nameStr,
	const char *nsNameStr, int objc,	const char *nsNameStr, int objc,
	Tcl_Obj const objv, int skip);	Tcl_Obj const objv, int skip);
	/* 14 */	/* 14 */

	TCLOOAPI int Tcl_ObjectDeleted(Tcl_Object object);	TCLAPI int Tcl_ObjectDeleted(Tcl_Object object);
	/* 15 */	/* 15 */

	TCLOOAPI int Tcl_ObjectContextIsFiltering(	TCLAPI int Tcl_ObjectContextIsFiltering(
	Tcl_ObjectContext context);	Tcl_ObjectContext context);
	/* 16 */	/* 16 */

	TCLOOAPI Tcl_Method Tcl_ObjectContextMethod(Tcl_ObjectContext context);	TCLAPI Tcl_Method Tcl_ObjectContextMethod(Tcl_ObjectContext context);
	/* 17 */	/* 17 */

	TCLOOAPI Tcl_Object Tcl_ObjectContextObject(Tcl_ObjectContext context);	TCLAPI Tcl_Object Tcl_ObjectContextObject(Tcl_ObjectContext context);
	/* 18 */	/* 18 */

	TCLOOAPI int Tcl_ObjectContextSkippedArgs(	TCLAPI int Tcl_ObjectContextSkippedArgs(
	Tcl_ObjectContext context);	Tcl_ObjectContext context);
	/* 19 */	/* 19 */

	TCLOOAPI ClientData Tcl_ClassGetMetadata(Tcl_Class clazz,	TCLAPI ClientData Tcl_ClassGetMetadata(Tcl_Class clazz,
	const Tcl_ObjectMetadataType *typePtr);	const Tcl_ObjectMetadataType *typePtr);
	/* 20 */	/* 20 */

	TCLOOAPI void Tcl_ClassSetMetadata(Tcl_Class clazz,	TCLAPI void Tcl_ClassSetMetadata(Tcl_Class clazz,
	const Tcl_ObjectMetadataType *typePtr,	const Tcl_ObjectMetadataType *typePtr,
	ClientData metadata);	ClientData metadata);
	/* 21 */	/* 21 */

	TCLOOAPI ClientData Tcl_ObjectGetMetadata(Tcl_Object object,	TCLAPI ClientData Tcl_ObjectGetMetadata(Tcl_Object object,
	const Tcl_ObjectMetadataType *typePtr);	const Tcl_ObjectMetadataType *typePtr);
	/* 22 */	/* 22 */

	TCLOOAPI void Tcl_ObjectSetMetadata(Tcl_Object object,	TCLAPI void Tcl_ObjectSetMetadata(Tcl_Object object,
	const Tcl_ObjectMetadataType *typePtr,	const Tcl_ObjectMetadataType *typePtr,
	ClientData metadata);	ClientData metadata);
	/* 23 */	/* 23 */

	TCLOOAPI int Tcl_ObjectContextInvokeNext(Tcl_Interp *interp,	TCLAPI int Tcl_ObjectContextInvokeNext(Tcl_Interp *interp,
	Tcl_ObjectContext context, int objc,	Tcl_ObjectContext context, int objc,
	Tcl_Obj const objv, int skip);	Tcl_Obj const objv, int skip);
	/* 24 */	/* 24 */

	TCLOOAPI Tcl_ObjectMapMethodNameProc * Tcl_ObjectGetMethodNameMapper(	TCLAPI Tcl_ObjectMapMethodNameProc * Tcl_ObjectGetMethodNameMapper(
	Tcl_Object object);	Tcl_Object object);
	/* 25 */	/* 25 */

	TCLOOAPI void Tcl_ObjectSetMethodNameMapper(Tcl_Object object,	TCLAPI void Tcl_ObjectSetMethodNameMapper(Tcl_Object object,
	Tcl_ObjectMapMethodNameProc *mapMethodNamePr oc);	Tcl_ObjectMapMethodNameProc *mapMethodNamePr oc);
	/* 26 */	/* 26 */

	TCLOOAPI void Tcl_ClassSetConstructor(Tcl_Interp *interp,	TCLAPI void Tcl_ClassSetConstructor(Tcl_Interp *interp,
	Tcl_Class clazz, Tcl_Method method);	Tcl_Class clazz, Tcl_Method method);
	/* 27 */	/* 27 */

	TCLOOAPI void Tcl_ClassSetDestructor(Tcl_Interp *interp,	TCLAPI void Tcl_ClassSetDestructor(Tcl_Interp *interp,
	Tcl_Class clazz, Tcl_Method method);	Tcl_Class clazz, Tcl_Method method);
	/* 28 */	/* 28 */

	TCLOOAPI Tcl_Obj * Tcl_GetObjectName(Tcl_Interp *interp,	TCLAPI Tcl_Obj * Tcl_GetObjectName(Tcl_Interp *interp,
	Tcl_Object object);	Tcl_Object object);

	typedef struct {	typedef struct {
	const struct TclOOIntStubs *tclOOIntStubs;	const struct TclOOIntStubs *tclOOIntStubs;
	} TclOOStubHooks;	} TclOOStubHooks;

	typedef struct TclOOStubs {	typedef struct TclOOStubs {
	int magic;	int magic;
	const TclOOStubHooks *hooks;	const TclOOStubHooks *hooks;


	skipping to change at line 142	skipping to change at line 159
	ClientData (tcl_ObjectGetMetadata) (Tcl_Object object, const Tcl_Objec tMetadataType typePtr); /* 21 */	ClientData (tcl_ObjectGetMetadata) (Tcl_Object object, const Tcl_Objec tMetadataType typePtr); /* 21 */
	void (tcl_ObjectSetMetadata) (Tcl_Object object, const Tcl_ObjectMetad ataType typePtr, ClientData metadata); /* 22 */	void (tcl_ObjectSetMetadata) (Tcl_Object object, const Tcl_ObjectMetad ataType typePtr, ClientData metadata); /* 22 */
	int (tcl_ObjectContextInvokeNext) (Tcl_Interp interp, Tcl_ObjectConte xt context, int objc, Tcl_Obj const objv, int skip); /* 23 */	int (tcl_ObjectContextInvokeNext) (Tcl_Interp interp, Tcl_ObjectConte xt context, int objc, Tcl_Obj const objv, int skip); /* 23 */
	Tcl_ObjectMapMethodNameProc * (tcl_ObjectGetMethodNameMapper) (Tcl_Obj ect object); / 24 */	Tcl_ObjectMapMethodNameProc * (tcl_ObjectGetMethodNameMapper) (Tcl_Obj ect object); / 24 */
	void (tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMap MethodNameProc mapMethodNameProc); /* 25 */	void (tcl_ObjectSetMethodNameMapper) (Tcl_Object object, Tcl_ObjectMap MethodNameProc mapMethodNameProc); /* 25 */
	void (tcl_ClassSetConstructor) (Tcl_Interp interp, Tcl_Class clazz, T cl_Method method); /* 26 */	void (tcl_ClassSetConstructor) (Tcl_Interp interp, Tcl_Class clazz, T cl_Method method); /* 26 */
	void (tcl_ClassSetDestructor) (Tcl_Interp interp, Tcl_Class clazz, Tc l_Method method); /* 27 */	void (tcl_ClassSetDestructor) (Tcl_Interp interp, Tcl_Class clazz, Tc l_Method method); /* 27 */
	Tcl_Obj * (tcl_GetObjectName) (Tcl_Interp interp, Tcl_Object object); /* 28 */	Tcl_Obj * (tcl_GetObjectName) (Tcl_Interp interp, Tcl_Object object); /* 28 */
	} TclOOStubs;	} TclOOStubs;


	#ifdef __cplusplus
	extern "C" {
	#endif
	extern const TclOOStubs *tclOOStubsPtr;	extern const TclOOStubs *tclOOStubsPtr;


	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif

	#if defined(USE_TCLOO_STUBS)	#if defined(USE_TCLOO_STUBS)

	/*	/*
	* Inline function declarations:	* Inline function declarations:
	*/	*/


	skipping to change at line 218	skipping to change at line 233
	#define Tcl_ClassSetConstructor \	#define Tcl_ClassSetConstructor \
	(tclOOStubsPtr->tcl_ClassSetConstructor) /* 26 */	(tclOOStubsPtr->tcl_ClassSetConstructor) /* 26 */
	#define Tcl_ClassSetDestructor \	#define Tcl_ClassSetDestructor \
	(tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */	(tclOOStubsPtr->tcl_ClassSetDestructor) /* 27 */
	#define Tcl_GetObjectName \	#define Tcl_GetObjectName \
	(tclOOStubsPtr->tcl_GetObjectName) /* 28 */	(tclOOStubsPtr->tcl_GetObjectName) /* 28 */

	#endif /* defined(USE_TCLOO_STUBS) */	#endif /* defined(USE_TCLOO_STUBS) */

	/* !END!: Do not edit above this line. */	/* !END!: Do not edit above this line. */


	#endif /* _TCLOODECLS */	#endif /* _TCLOODECLS */

End of changes. 34 change blocks.
	32 lines changed or deleted	48 lines changed or added

	tclPlatDecls.h	tclPlatDecls.h

	skipping to change at line 45	skipping to change at line 45
	# if defined(_UNICODE)	# if defined(_UNICODE)
	typedef wchar_t TCHAR;	typedef wchar_t TCHAR;
	# else	# else
	typedef char TCHAR;	typedef char TCHAR;
	# endif	# endif
	# define _TCHAR_DEFINED	# define _TCHAR_DEFINED
	#endif	#endif

	/* !BEGIN!: Do not edit below this line. */	/* !BEGIN!: Do not edit below this line. */


		#ifdef __cplusplus
		extern "C" {
		#endif

	/*	/*
	* Exported function declarations:	* Exported function declarations:
	*/	*/


	#if defined(__WIN32__) \|\| defined(__CYGWIN__) /* WIN */	#if defined(_WIN32) \|\| defined(__CYGWIN__) /* WIN */
	/* 0 */	/* 0 */
	EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len,	EXTERN TCHAR * Tcl_WinUtfToTChar(const char *str, int len,
	Tcl_DString *dsPtr);	Tcl_DString *dsPtr);
	/* 1 */	/* 1 */
	EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len,	EXTERN char * Tcl_WinTCharToUtf(const TCHAR *str, int len,
	Tcl_DString *dsPtr);	Tcl_DString *dsPtr);
	#endif /* WIN */	#endif /* WIN */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	/* 0 */	/* 0 */
	EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,	EXTERN int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,

	skipping to change at line 74	skipping to change at line 78
	Tcl_Interp interp, const char bundleName,	Tcl_Interp interp, const char bundleName,
	const char *bundleVersion,	const char *bundleVersion,
	int hasResourceFile, int maxPathLen,	int hasResourceFile, int maxPathLen,
	char *libraryPath);	char *libraryPath);
	#endif /* MACOSX */	#endif /* MACOSX */

	typedef struct TclPlatStubs {	typedef struct TclPlatStubs {
	int magic;	int magic;
	void *hooks;	void *hooks;


	#if defined(__WIN32__) \|\| defined(__CYGWIN__) /* WIN */	#if defined(_WIN32) \|\| defined(__CYGWIN__) /* WIN */
	TCHAR * (tcl_WinUtfToTChar) (const char str, int len, Tcl_DString ds Ptr); / 0 */	TCHAR * (tcl_WinUtfToTChar) (const char str, int len, Tcl_DString ds Ptr); / 0 */
	char * (tcl_WinTCharToUtf) (const TCHAR str, int len, Tcl_DString ds Ptr); / 1 */	char * (tcl_WinTCharToUtf) (const TCHAR str, int len, Tcl_DString ds Ptr); / 1 */
	#endif /* WIN */	#endif /* WIN */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	int (tcl_MacOSXOpenBundleResources) (Tcl_Interp interp, const char b undleName, int hasResourceFile, int maxPathLen, char libraryPath); /* 0 */	int (tcl_MacOSXOpenBundleResources) (Tcl_Interp interp, const char b undleName, int hasResourceFile, int maxPathLen, char libraryPath); /* 0 */
	int (tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp interp, cons t char bundleName, const char bundleVersion, int hasResourceFile, int max PathLen, char libraryPath); / 1 */	int (tcl_MacOSXOpenVersionedBundleResources) (Tcl_Interp interp, cons t char bundleName, const char bundleVersion, int hasResourceFile, int max PathLen, char libraryPath); / 1 */
	#endif /* MACOSX */	#endif /* MACOSX */
	} TclPlatStubs;	} TclPlatStubs;


	#ifdef __cplusplus
	extern "C" {
	#endif
	extern const TclPlatStubs *tclPlatStubsPtr;	extern const TclPlatStubs *tclPlatStubsPtr;


	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif

	#if defined(USE_TCL_STUBS)	#if defined(USE_TCL_STUBS)

	/*	/*
	* Inline function declarations:	* Inline function declarations:
	*/	*/


	#if defined(__WIN32__) \|\| defined(__CYGWIN__) /* WIN */	#if defined(_WIN32) \|\| defined(__CYGWIN__) /* WIN */
	#define Tcl_WinUtfToTChar \	#define Tcl_WinUtfToTChar \
	(tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */	(tclPlatStubsPtr->tcl_WinUtfToTChar) /* 0 */
	#define Tcl_WinTCharToUtf \	#define Tcl_WinTCharToUtf \
	(tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */	(tclPlatStubsPtr->tcl_WinTCharToUtf) /* 1 */
	#endif /* WIN */	#endif /* WIN */
	#ifdef MAC_OSX_TCL /* MACOSX */	#ifdef MAC_OSX_TCL /* MACOSX */
	#define Tcl_MacOSXOpenBundleResources \	#define Tcl_MacOSXOpenBundleResources \
	(tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */	(tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */
	#define Tcl_MacOSXOpenVersionedBundleResources \	#define Tcl_MacOSXOpenVersionedBundleResources \
	(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */	(tclPlatStubsPtr->tcl_MacOSXOpenVersionedBundleResources) /* 1 */

End of changes. 6 change blocks.
	6 lines changed or deleted	8 lines changed or added

	tclTomMathDecls.h	tclTomMathDecls.h

	skipping to change at line 137	skipping to change at line 137
	#endif	#endif

	/*	/*
	* WARNING: This file is automatically generated by the tools/genStubs.tcl	* WARNING: This file is automatically generated by the tools/genStubs.tcl
	* script. Any modifications to the function declarations below should be made	* script. Any modifications to the function declarations below should be made
	* in the generic/tclInt.decls script.	* in the generic/tclInt.decls script.
	*/	*/

	/* !BEGIN!: Do not edit below this line. */	/* !BEGIN!: Do not edit below this line. */


		#ifdef __cplusplus
		extern "C" {
		#endif

	/*	/*
	* Exported function declarations:	* Exported function declarations:
	*/	*/

	/* 0 */	/* 0 */
	EXTERN int TclBN_epoch(void);	EXTERN int TclBN_epoch(void);
	/* 1 */	/* 1 */
	EXTERN int TclBN_revision(void);	EXTERN int TclBN_revision(void);
	/* 2 */	/* 2 */
	EXTERN int TclBN_mp_add(mp_int a, mp_int b, mp_int *c);	EXTERN int TclBN_mp_add(mp_int a, mp_int b, mp_int *c);

	skipping to change at line 349	skipping to change at line 353
	int (tclBN_mp_toom_sqr) (mp_int a, mp_int b); / 56 */	int (tclBN_mp_toom_sqr) (mp_int a, mp_int b); / 56 */
	int (tclBN_s_mp_add) (mp_int a, mp_int b, mp_int c); /* 57 */	int (tclBN_s_mp_add) (mp_int a, mp_int b, mp_int c); /* 57 */
	int (tclBN_s_mp_mul_digs) (mp_int a, mp_int b, mp_int c, int digs); /* 58 */	int (tclBN_s_mp_mul_digs) (mp_int a, mp_int b, mp_int c, int digs); /* 58 */
	int (tclBN_s_mp_sqr) (mp_int a, mp_int b); / 59 */	int (tclBN_s_mp_sqr) (mp_int a, mp_int b); / 59 */
	int (tclBN_s_mp_sub) (mp_int a, mp_int b, mp_int c); /* 60 */	int (tclBN_s_mp_sub) (mp_int a, mp_int b, mp_int c); /* 60 */
	int (tclBN_mp_init_set_int) (mp_int a, unsigned long i); /* 61 */	int (tclBN_mp_init_set_int) (mp_int a, unsigned long i); /* 61 */
	int (tclBN_mp_set_int) (mp_int a, unsigned long i); /* 62 */	int (tclBN_mp_set_int) (mp_int a, unsigned long i); /* 62 */
	int (tclBN_mp_cnt_lsb) (const mp_int a); /* 63 */	int (tclBN_mp_cnt_lsb) (const mp_int a); /* 63 */
	} TclTomMathStubs;	} TclTomMathStubs;


	#ifdef __cplusplus
	extern "C" {
	#endif
	extern const TclTomMathStubs *tclTomMathStubsPtr;	extern const TclTomMathStubs *tclTomMathStubsPtr;


	#ifdef __cplusplus	#ifdef __cplusplus
	}	}
	#endif	#endif

	#if defined(USE_TCL_STUBS)	#if defined(USE_TCL_STUBS)

	/*	/*
	* Inline function declarations:	* Inline function declarations:
	*/	*/


End of changes. 3 change blocks.
	3 lines changed or deleted	5 lines changed or added

	tdbc.h	tdbc.h

	skipping to change at line 31	skipping to change at line 31
	#ifndef TDBCAPI	#ifndef TDBCAPI
	# if defined(BUILD_tdbc)	# if defined(BUILD_tdbc)
	# define TDBCAPI MODULE_SCOPE	# define TDBCAPI MODULE_SCOPE
	# else	# else
	# define TDBCAPI extern	# define TDBCAPI extern
	# undef USE_TDBC_STUBS	# undef USE_TDBC_STUBS
	# define USE_TDBC_STUBS 1	# define USE_TDBC_STUBS 1
	# endif	# endif
	#endif	#endif


		#ifdef __cplusplus
		extern "C" {
		#endif

	#if defined(BUILD_tdbc)	#if defined(BUILD_tdbc)
	DLLEXPORT int Tdbc_Init(Tcl_Interp *interp);	DLLEXPORT int Tdbc_Init(Tcl_Interp *interp);
	#elif defined(STATIC_BUILD)	#elif defined(STATIC_BUILD)
	extern int Tdbc_Init(Tcl_Interp* interp);	extern int Tdbc_Init(Tcl_Interp* interp);
	#else	#else
	DLLIMPORT int Tdbc_Init(Tcl_Interp* interp);	DLLIMPORT int Tdbc_Init(Tcl_Interp* interp);
	#endif	#endif


		#define Tdbc_InitStubs(interp) TdbcInitializeStubs(interp, \
		TDBC_VERSION, TDBC_STUBS_EPOCH, TDBC_STUBS_REVISION)
		#if defined(USE_TDBC_STUBS)
		TDBCAPI const char* TdbcInitializeStubs(
		Tcl_Interp* interp, const char* version, int epoch, int revision);
		#else
		# define TdbcInitializeStubs(interp, version, epoch, revision) \
		(Tcl_PkgRequire(interp, "tdbc", version))
		#endif

		#ifdef __cplusplus
		}
		#endif

	/*	/*
	* TDBC_VERSION and TDBC_PATCHLEVEL here must match the ones that	* TDBC_VERSION and TDBC_PATCHLEVEL here must match the ones that
	* appear near the top of configure.in.	* appear near the top of configure.in.
	*/	*/


	#define TDBC_VERSION "1.0.0"	#define TDBC_VERSION "1.0.1"
	#define TDBC_PATCHLEVEL "1.0.0"	#define TDBC_PATCHLEVEL "1.0.1"

	/*	/*
	* Include the Stubs declarations for the public API, generated from	* Include the Stubs declarations for the public API, generated from
	* tdbc.decls.	* tdbc.decls.
	*/	*/

	#include "tdbcDecls.h"	#include "tdbcDecls.h"

	#endif	#endif
	/*	/*

End of changes. 3 change blocks.
	2 lines changed or deleted	20 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/

	itcl2TclOO.h	itcl2TclOO.h

	skipping to change at line 29	skipping to change at line 29
	MODULE_SCOPE Tcl_Method Itcl_NewProcMethod(Tcl_Interp *interp, Tcl_Object o Ptr,	MODULE_SCOPE Tcl_Method Itcl_NewProcMethod(Tcl_Interp *interp, Tcl_Object o Ptr,
	TclOO_PreCallProc preCallPtr, TclOO_PostCallProc postCallPtr,	TclOO_PreCallProc preCallPtr, TclOO_PostCallProc postCallPtr,
	ProcErrorProc errProc, ClientData clientData, Tcl_Obj nameObj,	ProcErrorProc errProc, ClientData clientData, Tcl_Obj nameObj,
	Tcl_Obj argsObj, Tcl_Obj bodyObj, ClientData *clientData2);	Tcl_Obj argsObj, Tcl_Obj bodyObj, ClientData *clientData2);
	MODULE_SCOPE int Itcl_PublicObjectCmd(ClientData clientData, Tcl_Interp *in terp,	MODULE_SCOPE int Itcl_PublicObjectCmd(ClientData clientData, Tcl_Interp *in terp,
	Tcl_Class clsPtr, int objc, Tcl_Obj const objv);	Tcl_Class clsPtr, int objc, Tcl_Obj const objv);
	MODULE_SCOPE Tcl_Method Itcl_NewForwardClassMethod(Tcl_Interp *interp,	MODULE_SCOPE Tcl_Method Itcl_NewForwardClassMethod(Tcl_Interp *interp,
	Tcl_Class clsPtr, int flags, Tcl_Obj nameObj, Tcl_Obj prefixObj);	Tcl_Class clsPtr, int flags, Tcl_Obj nameObj, Tcl_Obj prefixObj);
	MODULE_SCOPE int Itcl_SelfCmd(ClientData clientData, Tcl_Interp *interp,	MODULE_SCOPE int Itcl_SelfCmd(ClientData clientData, Tcl_Interp *interp,
	int objc, Tcl_Obj const objv);	int objc, Tcl_Obj const objv);

		MODULE_SCOPE int Itcl_IsMethodCallFrame(Tcl_Interp *interp);
	MODULE_SCOPE int Itcl_InvokeEnsembleMethod(Tcl_Interp interp, Tcl_Namespac e nsPtr,	MODULE_SCOPE int Itcl_InvokeEnsembleMethod(Tcl_Interp interp, Tcl_Namespac e nsPtr,
	Tcl_Obj namePtr, Tcl_Proc procPtr, int objc, Tcl_Obj const objv);	Tcl_Obj namePtr, Tcl_Proc procPtr, int objc, Tcl_Obj const objv);
	MODULE_SCOPE int Itcl_InvokeProcedureMethod(ClientData clientData, Tcl_Inte rp *interp,	MODULE_SCOPE int Itcl_InvokeProcedureMethod(ClientData clientData, Tcl_Inte rp *interp,
	int objc, Tcl_Obj const objv);	int objc, Tcl_Obj const objv);

End of changes. 1 change blocks.
	0 lines changed or deleted	1 lines changed or added

	itclInt.h	itclInt.h

	skipping to change at line 41	skipping to change at line 41
	#endif	#endif

	#include <string.h>	#include <string.h>
	#include <ctype.h>	#include <ctype.h>
	#include <tclOO.h>	#include <tclOO.h>
	#include "itcl.h"	#include "itcl.h"
	#include "itclMigrate2TclCore.h"	#include "itclMigrate2TclCore.h"
	#include "itclTclIntStubsFcn.h"	#include "itclTclIntStubsFcn.h"

	/*	/*

		* Utility macros: STRINGIFY takes an argument and wraps it in "" (double
		* quotation marks).
		*/

		#ifndef STRINGIFY
		# define STRINGIFY(x) STRINGIFY1(x)
		# define STRINGIFY1(x) #x
		#endif

		/*
	* Since the Tcl/Tk distribution doesn't perform any asserts,	* Since the Tcl/Tk distribution doesn't perform any asserts,
	* dynamic loading can fail to find the __assert function.	* dynamic loading can fail to find the __assert function.
	* As a workaround, we'll include our own.	* As a workaround, we'll include our own.
	*/	*/

	#undef assert	#undef assert
	#define DEBUG 1	#define DEBUG 1
	#ifndef DEBUG	#ifndef DEBUG
	#define assert(EX) ((void)0)	#define assert(EX) ((void)0)
	#else	#else

	skipping to change at line 457	skipping to change at line 467
	#define ITCL_SELF_VAR 0x100 /* non-zero => built-in "self" variab le */	#define ITCL_SELF_VAR 0x100 /* non-zero => built-in "self" variab le */
	#define ITCL_SELFNS_VAR 0x200 /* non-zero => built-in "selfns"	#define ITCL_SELFNS_VAR 0x200 /* non-zero => built-in "selfns"
	* variable */	* variable */
	#define ITCL_WIN_VAR 0x400 /* non-zero => built-in "win" variabl e */	#define ITCL_WIN_VAR 0x400 /* non-zero => built-in "win" variabl e */
	#define ITCL_COMPONENT_VAR 0x800 /* non-zero => component variable */	#define ITCL_COMPONENT_VAR 0x800 /* non-zero => component variable */
	#define ITCL_HULL_VAR 0x1000 /* non-zero => built-in "itcl_hull"	#define ITCL_HULL_VAR 0x1000 /* non-zero => built-in "itcl_hull"
	* variable */	* variable */
	#define ITCL_OPTION_READONLY 0x2000 /* non-zero => readonly */	#define ITCL_OPTION_READONLY 0x2000 /* non-zero => readonly */
	#define ITCL_VARIABLE 0x4000 /* non-zero => normal variable */	#define ITCL_VARIABLE 0x4000 /* non-zero => normal variable */
	#define ITCL_TYPE_VARIABLE 0x8000 /* non-zero => typevariable */	#define ITCL_TYPE_VARIABLE 0x8000 /* non-zero => typevariable */

		#define ITCL_OPTION_INITTED 0x10000 /* non-zero => option has been initi
		alized */
		#define ITCL_OPTION_COMP_VAR 0x20000 /* variable to collect option compon
		ents of extendedclass */

	/*	/*
	* Instance components.	* Instance components.
	*/	*/
	struct ItclVariable;	struct ItclVariable;
	typedef struct ItclComponent {	typedef struct ItclComponent {
	Tcl_Obj namePtr; / member name */	Tcl_Obj namePtr; / member name */
	struct ItclVariable ivPtr; / variable for this component */	struct ItclVariable ivPtr; / variable for this component */
	int flags;	int flags;
	int haveKeptOptions;	int haveKeptOptions;

	skipping to change at line 683	skipping to change at line 695
	#endif	#endif

	MODULE_SCOPE Tcl_ObjCmdProc ItclCallCCommand;	MODULE_SCOPE Tcl_ObjCmdProc ItclCallCCommand;
	MODULE_SCOPE Tcl_ObjCmdProc ItclObjectUnknownCommand;	MODULE_SCOPE Tcl_ObjCmdProc ItclObjectUnknownCommand;
	MODULE_SCOPE int ItclCheckCallProc(ClientData clientData, Tcl_Interp *inter p,	MODULE_SCOPE int ItclCheckCallProc(ClientData clientData, Tcl_Interp *inter p,
	Tcl_ObjectContext contextPtr, Tcl_CallFrame framePtr, int isFinis hed);	Tcl_ObjectContext contextPtr, Tcl_CallFrame framePtr, int isFinis hed);

	MODULE_SCOPE ItclFoundation ItclGetFoundation(Tcl_Interp interp);	MODULE_SCOPE ItclFoundation ItclGetFoundation(Tcl_Interp interp);
	MODULE_SCOPE Tcl_ObjCmdProc ItclClassCommandDispatcher;	MODULE_SCOPE Tcl_ObjCmdProc ItclClassCommandDispatcher;
	MODULE_SCOPE Tcl_Command Itcl_CmdAliasProc(Tcl_Interp *interp,	MODULE_SCOPE Tcl_Command Itcl_CmdAliasProc(Tcl_Interp *interp,

	Tcl_Namespace nsPtr, CONST char cmdName, ClientData clientData);	Tcl_Namespace nsPtr, const char cmdName, ClientData clientData);
	MODULE_SCOPE Tcl_Var Itcl_VarAliasProc(Tcl_Interp *interp,	MODULE_SCOPE Tcl_Var Itcl_VarAliasProc(Tcl_Interp *interp,

	Tcl_Namespace nsPtr, CONST char VarName, ClientData clientData);	Tcl_Namespace nsPtr, const char VarName, ClientData clientData);
	MODULE_SCOPE int ItclIsClass(Tcl_Interp *interp, Tcl_Command cmd);	MODULE_SCOPE int ItclIsClass(Tcl_Interp *interp, Tcl_Command cmd);
	MODULE_SCOPE int ItclCheckCallMethod(ClientData clientData, Tcl_Interp *int erp,	MODULE_SCOPE int ItclCheckCallMethod(ClientData clientData, Tcl_Interp *int erp,
	Tcl_ObjectContext contextPtr, Tcl_CallFrame framePtr, int isFinis hed);	Tcl_ObjectContext contextPtr, Tcl_CallFrame framePtr, int isFinis hed);
	MODULE_SCOPE int ItclAfterCallMethod(ClientData clientData, Tcl_Interp *int erp,	MODULE_SCOPE int ItclAfterCallMethod(ClientData clientData, Tcl_Interp *int erp,
	Tcl_ObjectContext contextPtr, Tcl_Namespace *nsPtr, int result);	Tcl_ObjectContext contextPtr, Tcl_Namespace *nsPtr, int result);
	MODULE_SCOPE void ItclReportObjectUsage(Tcl_Interp *interp,	MODULE_SCOPE void ItclReportObjectUsage(Tcl_Interp *interp,
	ItclObject contextIoPtr, Tcl_Namespace callerNsPtr,	ItclObject contextIoPtr, Tcl_Namespace callerNsPtr,
	Tcl_Namespace *contextNsPtr);	Tcl_Namespace *contextNsPtr);
	MODULE_SCOPE void ItclGetInfoUsage(Tcl_Interp interp, Tcl_Obj objPtr,	MODULE_SCOPE void ItclGetInfoUsage(Tcl_Interp interp, Tcl_Obj objPtr,
	ItclObjectInfo *infoPtr);	ItclObjectInfo *infoPtr);
	MODULE_SCOPE int ItclMapMethodNameProc(Tcl_Interp *interp, Tcl_Object oPtr,	MODULE_SCOPE int ItclMapMethodNameProc(Tcl_Interp *interp, Tcl_Object oPtr,
	Tcl_Class startClsPtr, Tcl_Obj methodObj);	Tcl_Class startClsPtr, Tcl_Obj methodObj);
	MODULE_SCOPE int ItclCreateArgList(Tcl_Interp interp, const char str,	MODULE_SCOPE int ItclCreateArgList(Tcl_Interp interp, const char str,
	int argcPtr, int maxArgcPtr, Tcl_Obj **usagePtr,	int argcPtr, int maxArgcPtr, Tcl_Obj **usagePtr,
	ItclArgList *arglistPtrPtr, ItclMemberFunc imPtr,	ItclArgList *arglistPtrPtr, ItclMemberFunc imPtr,
	const char *commandName);	const char *commandName);
	MODULE_SCOPE int ItclObjectCmd(ClientData clientData, Tcl_Interp *interp,	MODULE_SCOPE int ItclObjectCmd(ClientData clientData, Tcl_Interp *interp,
	Tcl_Object oPtr, Tcl_Class clsPtr, int objc, Tcl_Obj const objv);	Tcl_Object oPtr, Tcl_Class clsPtr, int objc, Tcl_Obj const objv);

	MODULE_SCOPE int ItclCreateObject (Tcl_Interp interp, CONST char name,	MODULE_SCOPE int ItclCreateObject (Tcl_Interp interp, const char name,
	ItclClass iclsPtr, int objc, Tcl_Obj CONST objv[]);	ItclClass iclsPtr, int objc, Tcl_Obj const objv[]);
	MODULE_SCOPE void ItclDeleteObjectVariablesNamespace(Tcl_Interp *interp,	MODULE_SCOPE void ItclDeleteObjectVariablesNamespace(Tcl_Interp *interp,
	ItclObject *ioPtr);	ItclObject *ioPtr);
	MODULE_SCOPE void ItclDeleteClassVariablesNamespace(Tcl_Interp *interp,	MODULE_SCOPE void ItclDeleteClassVariablesNamespace(Tcl_Interp *interp,
	ItclClass *iclsPtr);	ItclClass *iclsPtr);
	MODULE_SCOPE int ItclInfoInit(Tcl_Interp *interp);	MODULE_SCOPE int ItclInfoInit(Tcl_Interp *interp);
	MODULE_SCOPE char * ItclTraceUnsetVar(ClientData clientData, Tcl_Interp *in terp,	MODULE_SCOPE char * ItclTraceUnsetVar(ClientData clientData, Tcl_Interp *in terp,
	const char name1, const char name2, int flags);	const char name1, const char name2, int flags);

	struct Tcl_ResolvedVarInfo;	struct Tcl_ResolvedVarInfo;

	MODULE_SCOPE int Itcl_ClassCmdResolver(Tcl_Interp interp, CONST char name ,	MODULE_SCOPE int Itcl_ClassCmdResolver(Tcl_Interp interp, const char name ,
	Tcl_Namespace nsPtr, int flags, Tcl_Command rPtr);	Tcl_Namespace nsPtr, int flags, Tcl_Command rPtr);

	MODULE_SCOPE int Itcl_ClassVarResolver(Tcl_Interp interp, CONST char name ,	MODULE_SCOPE int Itcl_ClassVarResolver(Tcl_Interp interp, const char name ,
	Tcl_Namespace nsPtr, int flags, Tcl_Var rPtr);	Tcl_Namespace nsPtr, int flags, Tcl_Var rPtr);
	MODULE_SCOPE int Itcl_ClassCompiledVarResolver(Tcl_Interp *interp,	MODULE_SCOPE int Itcl_ClassCompiledVarResolver(Tcl_Interp *interp,

	CONST char* name, int length, Tcl_Namespace *nsPtr,	const char* name, int length, Tcl_Namespace *nsPtr,
	struct Tcl_ResolvedVarInfo **rPtr);	struct Tcl_ResolvedVarInfo **rPtr);

	MODULE_SCOPE int Itcl_ClassCmdResolver2(Tcl_Interp interp, CONST char nam e,	MODULE_SCOPE int Itcl_ClassCmdResolver2(Tcl_Interp interp, const char nam e,
	Tcl_Namespace nsPtr, int flags, Tcl_Command rPtr);	Tcl_Namespace nsPtr, int flags, Tcl_Command rPtr);

	MODULE_SCOPE int Itcl_ClassVarResolver2(Tcl_Interp interp, CONST char nam e,	MODULE_SCOPE int Itcl_ClassVarResolver2(Tcl_Interp interp, const char nam e,
	Tcl_Namespace nsPtr, int flags, Tcl_Var rPtr);	Tcl_Namespace nsPtr, int flags, Tcl_Var rPtr);
	MODULE_SCOPE int Itcl_ClassCompiledVarResolver2(Tcl_Interp *interp,	MODULE_SCOPE int Itcl_ClassCompiledVarResolver2(Tcl_Interp *interp,

	CONST char* name, int length, Tcl_Namespace *nsPtr,	const char* name, int length, Tcl_Namespace *nsPtr,
	struct Tcl_ResolvedVarInfo **rPtr);	struct Tcl_ResolvedVarInfo **rPtr);
	MODULE_SCOPE int ItclSetParserResolver(Tcl_Namespace *nsPtr);	MODULE_SCOPE int ItclSetParserResolver(Tcl_Namespace *nsPtr);
	MODULE_SCOPE void ItclProcErrorProc(Tcl_Interp interp, Tcl_Obj procNameOb j);	MODULE_SCOPE void ItclProcErrorProc(Tcl_Interp interp, Tcl_Obj procNameOb j);

	MODULE_SCOPE int ItclClassBaseCmd(ClientData clientData, Tcl_Interp *interp
	,
	int flags, int objc, Tcl_Obj CONST objv[], ItclClass *iclsPtrPtr);
	MODULE_SCOPE int Itcl_CreateOption (Tcl_Interp interp, ItclClass iclsPtr,	MODULE_SCOPE int Itcl_CreateOption (Tcl_Interp interp, ItclClass iclsPtr,
	ItclOption *ioptPtr);	ItclOption *ioptPtr);
	MODULE_SCOPE int Itcl_CreateMethodVariable (Tcl_Interp *interp,	MODULE_SCOPE int Itcl_CreateMethodVariable (Tcl_Interp *interp,
	ItclClass iclsPtr, Tcl_Obj name, Tcl_Obj *defaultPtr,	ItclClass iclsPtr, Tcl_Obj name, Tcl_Obj *defaultPtr,
	Tcl_Obj callbackPtr, ItclMethodVariable *imvPtr);	Tcl_Obj callbackPtr, ItclMethodVariable *imvPtr);
	MODULE_SCOPE int DelegationInstall(Tcl_Interp interp, ItclObject ioPtr,	MODULE_SCOPE int DelegationInstall(Tcl_Interp interp, ItclObject ioPtr,
	ItclClass *iclsPtr);	ItclClass *iclsPtr);
	MODULE_SCOPE const char* ItclGetInstanceVar(Tcl_Interp *interp,	MODULE_SCOPE const char* ItclGetInstanceVar(Tcl_Interp *interp,
	const char name, const char name2, ItclObject *contextIoPtr,	const char name, const char name2, ItclObject *contextIoPtr,
	ItclClass *contextIclsPtr);	ItclClass *contextIclsPtr);
	MODULE_SCOPE const char* ItclGetCommonInstanceVar(Tcl_Interp *interp,	MODULE_SCOPE const char* ItclGetCommonInstanceVar(Tcl_Interp *interp,
	const char name, const char name2, ItclObject *contextIoPtr,	const char name, const char name2, ItclObject *contextIoPtr,
	ItclClass *contextIclsPtr);	ItclClass *contextIclsPtr);

	MODULE_SCOPE const char* ItclSetInstanceVar(Tcl_Interp *interp,
	const char name, const char name2, const char *value,
	ItclObject contextIoPtr, ItclClass contextIclsPtr);
	MODULE_SCOPE Tcl_Obj * ItclCapitalize(const char *str);
	MODULE_SCOPE int ItclCreateMethod(Tcl_Interp* interp, ItclClass *iclsPtr,	MODULE_SCOPE int ItclCreateMethod(Tcl_Interp* interp, ItclClass *iclsPtr,
	Tcl_Obj namePtr, const char arglist, const char* body,	Tcl_Obj namePtr, const char arglist, const char* body,
	ItclMemberFunc **imPtrPtr);	ItclMemberFunc **imPtrPtr);

	MODULE_SCOPE int ItclCreateComponent(Tcl_Interp interp, ItclClass iclsPtr
	,
	Tcl_Obj componentPtr, int type, ItclComponent *icPtrPtr);
	MODULE_SCOPE int Itcl_WidgetParseInit(Tcl_Interp *interp,	MODULE_SCOPE int Itcl_WidgetParseInit(Tcl_Interp *interp,
	ItclObjectInfo *infoPtr);	ItclObjectInfo *infoPtr);
	MODULE_SCOPE void ItclDeleteObjectMetadata(ClientData clientData);	MODULE_SCOPE void ItclDeleteObjectMetadata(ClientData clientData);
	MODULE_SCOPE void ItclDeleteClassMetadata(ClientData clientData);	MODULE_SCOPE void ItclDeleteClassMetadata(ClientData clientData);
	MODULE_SCOPE void ItclDeleteArgList(ItclArgList *arglistPtr);	MODULE_SCOPE void ItclDeleteArgList(ItclArgList *arglistPtr);
	MODULE_SCOPE int Itcl_ClassOptionCmd(ClientData clientData, Tcl_Interp *int erp,	MODULE_SCOPE int Itcl_ClassOptionCmd(ClientData clientData, Tcl_Interp *int erp,

	int objc, Tcl_Obj *CONST objv[]);	int objc, Tcl_Obj *const objv[]);
	MODULE_SCOPE int DelegatedOptionsInstall(Tcl_Interp *interp,	MODULE_SCOPE int DelegatedOptionsInstall(Tcl_Interp *interp,
	ItclClass *iclsPtr);	ItclClass *iclsPtr);
	MODULE_SCOPE int Itcl_HandleDelegateOptionCmd(Tcl_Interp *interp,	MODULE_SCOPE int Itcl_HandleDelegateOptionCmd(Tcl_Interp *interp,
	ItclObject ioPtr, ItclClass iclsPtr, ItclDelegatedOption **idoPtr Ptr,	ItclObject ioPtr, ItclClass iclsPtr, ItclDelegatedOption **idoPtr Ptr,

	int objc, Tcl_Obj *CONST objv[]);	int objc, Tcl_Obj *const objv[]);
	MODULE_SCOPE int Itcl_HandleDelegateMethodCmd(Tcl_Interp *interp,	MODULE_SCOPE int Itcl_HandleDelegateMethodCmd(Tcl_Interp *interp,
	ItclObject ioPtr, ItclClass iclsPtr,	ItclObject ioPtr, ItclClass iclsPtr,

	ItclDelegatedFunction *idmPtrPtr, int objc, Tcl_Obj CONST objv[]);	ItclDelegatedFunction *idmPtrPtr, int objc, Tcl_Obj const objv[]);
	MODULE_SCOPE int DelegateFunction(Tcl_Interp interp, ItclObject ioPtr,	MODULE_SCOPE int DelegateFunction(Tcl_Interp interp, ItclObject ioPtr,
	ItclClass iclsPtr, Tcl_Obj componentNamePtr,	ItclClass iclsPtr, Tcl_Obj componentNamePtr,
	ItclDelegatedFunction *idmPtr);	ItclDelegatedFunction *idmPtr);
	MODULE_SCOPE int ItclInitObjectMethodVariables(Tcl_Interp *interp,	MODULE_SCOPE int ItclInitObjectMethodVariables(Tcl_Interp *interp,
	ItclObject ioPtr, ItclClass iclsPtr, const char *name);	ItclObject ioPtr, ItclClass iclsPtr, const char *name);
	MODULE_SCOPE int InitTclOOFunctionPointers(Tcl_Interp *interp);	MODULE_SCOPE int InitTclOOFunctionPointers(Tcl_Interp *interp);
	MODULE_SCOPE ItclOption* ItclNewOption(Tcl_Interp interp, ItclObject ioPt r,	MODULE_SCOPE ItclOption* ItclNewOption(Tcl_Interp interp, ItclObject ioPt r,
	ItclClass iclsPtr, Tcl_Obj namePtr, const char *resourceName,	ItclClass iclsPtr, Tcl_Obj namePtr, const char *resourceName,
	const char className, char init, ItclMemberCode *mCodePtr);	const char className, char init, ItclMemberCode *mCodePtr);
	MODULE_SCOPE int ItclParseOption(ItclObjectInfo infoPtr, Tcl_Interp inter p,	MODULE_SCOPE int ItclParseOption(ItclObjectInfo infoPtr, Tcl_Interp inter p,

	int objc, Tcl_Obj CONST objv[], ItclClass iclsPtr,	int objc, Tcl_Obj const objv[], ItclClass iclsPtr,
	ItclObject ioPtr, ItclOption *ioptPtrPtr);	ItclObject ioPtr, ItclOption *ioptPtrPtr);
	MODULE_SCOPE void ItclDestroyClassNamesp(ClientData cdata);	MODULE_SCOPE void ItclDestroyClassNamesp(ClientData cdata);
	MODULE_SCOPE int ExpandDelegateAs(Tcl_Interp interp, ItclObject ioPtr,	MODULE_SCOPE int ExpandDelegateAs(Tcl_Interp interp, ItclObject ioPtr,
	ItclClass iclsPtr, ItclDelegatedFunction idmPtr,	ItclClass iclsPtr, ItclDelegatedFunction idmPtr,
	const char funcName, Tcl_Obj listPtr);	const char funcName, Tcl_Obj listPtr);
	MODULE_SCOPE int ItclCheckForInitializedComponents(Tcl_Interp *interp,	MODULE_SCOPE int ItclCheckForInitializedComponents(Tcl_Interp *interp,
	ItclClass iclsPtr, ItclObject ioPtr);	ItclClass iclsPtr, ItclObject ioPtr);
	MODULE_SCOPE int ItclCreateDelegatedFunction(Tcl_Interp *interp,	MODULE_SCOPE int ItclCreateDelegatedFunction(Tcl_Interp *interp,
	ItclClass iclsPtr, Tcl_Obj methodNamePtr, ItclComponent *icPtr,	ItclClass iclsPtr, Tcl_Obj methodNamePtr, ItclComponent *icPtr,
	Tcl_Obj targetPtr, Tcl_Obj usingPtr, Tcl_Obj *exceptionsPtr,	Tcl_Obj targetPtr, Tcl_Obj usingPtr, Tcl_Obj *exceptionsPtr,

End of changes. 18 change blocks.
	24 lines changed or deleted	28 lines changed or added

	itclTclIntStubsFcn.h	itclTclIntStubsFcn.h
	/* these functions are Tcl internal stubs so make an Itcl_* wrapper */	/* these functions are Tcl internal stubs so make an Itcl_* wrapper */
	MODULE_SCOPE void Itcl_GetVariableFullName (Tcl_Interp * interp,	MODULE_SCOPE void Itcl_GetVariableFullName (Tcl_Interp * interp,
	Tcl_Var variable, Tcl_Obj * objPtr);	Tcl_Var variable, Tcl_Obj * objPtr);
	MODULE_SCOPE Tcl_Var Itcl_FindNamespaceVar (Tcl_Interp * interp,	MODULE_SCOPE Tcl_Var Itcl_FindNamespaceVar (Tcl_Interp * interp,

	CONST char * name, Tcl_Namespace * contextNsPtr, int flags) ;	const char * name, Tcl_Namespace * contextNsPtr, int flags );
	MODULE_SCOPE void Itcl_SetNamespaceResolvers (Tcl_Namespace * namespacePtr,	MODULE_SCOPE void Itcl_SetNamespaceResolvers (Tcl_Namespace * namespacePtr,
	Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc,	Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc,
	Tcl_ResolveCompiledVarProc * compiledVarProc);	Tcl_ResolveCompiledVarProc * compiledVarProc);

	#ifndef _TCL_PROC_DEFINED	#ifndef _TCL_PROC_DEFINED
	typedef struct Tcl_Proc_ *Tcl_Proc;	typedef struct Tcl_Proc_ *Tcl_Proc;
	#define _TCL_PROC_DEFINED 1	#define _TCL_PROC_DEFINED 1
	#endif	#endif
	#ifndef _TCL_RESOLVE_DEFINED	#ifndef _TCL_RESOLVE_DEFINED
	struct Tcl_Resolve;	struct Tcl_Resolve;
	#endif	#endif

	#define Tcl_GetOriginalCommand _Tcl_GetOriginalCommand	#define Tcl_GetOriginalCommand _Tcl_GetOriginalCommand
	#define Tcl_CreateProc _Tcl_CreateProc	#define Tcl_CreateProc _Tcl_CreateProc
	#define Tcl_ProcDeleteProc _Tcl_ProcDeleteProc	#define Tcl_ProcDeleteProc _Tcl_ProcDeleteProc
	#define Tcl_GetObjInterpProc _Tcl_GetObjInterpProc	#define Tcl_GetObjInterpProc _Tcl_GetObjInterpProc

	MODULE_SCOPE Tcl_Command _Tcl_GetOriginalCommand(Tcl_Command command);	MODULE_SCOPE Tcl_Command _Tcl_GetOriginalCommand(Tcl_Command command);
	MODULE_SCOPE int _Tcl_CreateProc(Tcl_Interp interp, Tcl_Namespace nsPtr,	MODULE_SCOPE int _Tcl_CreateProc(Tcl_Interp interp, Tcl_Namespace nsPtr,

	CONST char procName, Tcl_Obj argsPtr, Tcl_Obj *bodyPtr,	const char procName, Tcl_Obj argsPtr, Tcl_Obj *bodyPtr,
	Tcl_Proc *procPtrPtr);	Tcl_Proc *procPtrPtr);
	MODULE_SCOPE void _Tcl_ProcDeleteProc(ClientData clientData);	MODULE_SCOPE void _Tcl_ProcDeleteProc(ClientData clientData);
	MODULE_SCOPE void *_Tcl_GetObjInterpProc(void);	MODULE_SCOPE void *_Tcl_GetObjInterpProc(void);
	MODULE_SCOPE int Tcl_RenameCommand(Tcl_Interp interp, const char oldName,	MODULE_SCOPE int Tcl_RenameCommand(Tcl_Interp interp, const char oldName,
	const char *newName);	const char *newName);
	MODULE_SCOPE Tcl_HashTable Itcl_GetNamespaceChildTable(Tcl_Namespace nsPt r);	MODULE_SCOPE Tcl_HashTable Itcl_GetNamespaceChildTable(Tcl_Namespace nsPt r);
	MODULE_SCOPE Tcl_HashTable Itcl_GetNamespaceCommandTable(Tcl_Namespace ns Ptr);	MODULE_SCOPE Tcl_HashTable Itcl_GetNamespaceCommandTable(Tcl_Namespace ns Ptr);
	MODULE_SCOPE int Itcl_InitRewriteEnsemble(Tcl_Interp *interp, int numRemove d,	MODULE_SCOPE int Itcl_InitRewriteEnsemble(Tcl_Interp *interp, int numRemove d,
	int numInserted, int objc, Tcl_Obj const objv);	int numInserted, int objc, Tcl_Obj const objv);
	MODULE_SCOPE void Itcl_ResetRewriteEnsemble(Tcl_Interp *interp,	MODULE_SCOPE void Itcl_ResetRewriteEnsemble(Tcl_Interp *interp,

End of changes. 2 change blocks.
	2 lines changed or deleted	2 lines changed or added