tcl.h   tcl.h 
skipping to change at line 15 skipping to change at line 15
* of the Tcl interpreter. * of the Tcl interpreter.
* *
* Copyright (c) 1987-1994 The Regents of the University of California. * Copyright (c) 1987-1994 The Regents of the University of California.
* Copyright (c) 1993-1996 Lucent Technologies. * Copyright (c) 1993-1996 Lucent Technologies.
* Copyright (c) 1994-1998 Sun Microsystems, Inc. * Copyright (c) 1994-1998 Sun Microsystems, Inc.
* Copyright (c) 1998-2000 by Scriptics Corporation. * Copyright (c) 1998-2000 by Scriptics Corporation.
* *
* See the file "license.terms" for information on usage and redistribution * See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
* *
* RCS: @(#) $Id: tcl.h,v 1.70.2.3 2001/04/04 21:22:17 hobbs Exp $ * RCS: @(#) $Id: tcl.h,v 1.70.2.9 2001/10/17 19:29:24 das Exp $
*/ */
#ifndef _TCL #ifndef _TCL
#define _TCL #define _TCL
/* /*
* For C++ compilers, use extern "C" * For C++ compilers, use extern "C"
*/ */
#ifdef __cplusplus #ifdef __cplusplus
skipping to change at line 62 skipping to change at line 62
* unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch) * unix/tcl.spec (2 LOC Major/Minor, 1 LOC patch)
* tests/basic.test (not patchlevel) (version checks) * tests/basic.test (not patchlevel) (version checks)
* tools/tcl.hpj.in (not patchlevel, for windows installer) * tools/tcl.hpj.in (not patchlevel, for windows installer)
* tools/tcl.wse.in (for windows installer) * tools/tcl.wse.in (for windows installer)
* tools/tclSplash.bmp (not patchlevel) * tools/tclSplash.bmp (not patchlevel)
*/ */
#define TCL_MAJOR_VERSION 8 #define TCL_MAJOR_VERSION 8
#define TCL_MINOR_VERSION 3 #define TCL_MINOR_VERSION 3
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 3 #define TCL_RELEASE_SERIAL 4
#define TCL_VERSION "8.3" #define TCL_VERSION "8.3"
#define TCL_PATCH_LEVEL "8.3.3" #define TCL_PATCH_LEVEL "8.3.4"
/* /*
* The following definitions set up the proper options for Windows * The following definitions set up the proper options for Windows
* compilers. We use this method because there is no autoconf equivalent. * compilers. We use this method because there is no autoconf equivalent.
*/ */
#ifndef __WIN32__ #ifndef __WIN32__
# if defined(_WIN32) || defined(WIN32) # if defined(_WIN32) || defined(WIN32) || defined(__CYGWIN__) || defined( __MINGW32__) || defined(__BORLANDC__)
# define __WIN32__ # define __WIN32__
# ifndef WIN32
# define WIN32
# endif
# endif # endif
#endif #endif
#ifdef __WIN32__ #ifdef __WIN32__
# ifndef STRICT # ifndef STRICT
# define STRICT # define STRICT
# endif # endif
# ifndef USE_PROTOTYPE # ifndef USE_PROTOTYPE
# define USE_PROTOTYPE 1 # define USE_PROTOTYPE 1
# endif # endif
# ifndef HAS_STDARG # ifndef HAS_STDARG
# define HAS_STDARG 1 # define HAS_STDARG 1
# endif # endif
# ifndef USE_PROTOTYPE # ifndef USE_PROTOTYPE
# define USE_PROTOTYPE 1 # define USE_PROTOTYPE 1
# endif # endif
/*
* Under Windows we need to call Tcl_Alloc in all cases to avoid competing
* C run-time library issues.
*/
# ifndef USE_TCLALLOC
# define USE_TCLALLOC 1
# endif
#endif /* __WIN32__ */ #endif /* __WIN32__ */
/* /*
* The following definitions set up the proper options for Macintosh * The following definitions set up the proper options for Macintosh
* compilers. We use this method because there is no autoconf equivalent. * compilers. We use this method because there is no autoconf equivalent.
*/ */
#ifdef MAC_TCL #ifdef MAC_TCL
#include <ConditionalMacros.h> #include <ConditionalMacros.h>
# ifndef HAS_STDARG # ifndef HAS_STDARG
skipping to change at line 586 skipping to change at line 581
typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_FileFreeProc) _ANSI_ARGS_((ClientData clientData));
typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr) ); typedef void (Tcl_FreeInternalRepProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr) );
typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr)); typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_IdleProc) _ANSI_ARGS_((ClientData clientData));
typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData, typedef void (Tcl_InterpDeleteProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp)); Tcl_Interp *interp));
typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_MathProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr)); Tcl_Interp *interp, Tcl_Value *args, Tcl_Value *resultPtr));
typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)) ; typedef void (Tcl_NamespaceDeleteProc) _ANSI_ARGS_((ClientData clientData)) ;
typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData, typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int objc, struct Tcl_Obj *CONST objv[])); Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv));
typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp)); typedef int (Tcl_PackageInitProc) _ANSI_ARGS_((Tcl_Interp *interp));
typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(char *, format)); typedef void (Tcl_PanicProc) _ANSI_ARGS_(TCL_VARARGS(char *, format));
typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData, typedef void (Tcl_TcpAcceptProc) _ANSI_ARGS_((ClientData callbackData,
Tcl_Channel chan, char *address, int port)); Tcl_Channel chan, char *address, int port));
typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData)); typedef void (Tcl_TimerProc) _ANSI_ARGS_((ClientData clientData));
typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp, typedef int (Tcl_SetFromAnyProc) _ANSI_ARGS_((Tcl_Interp *interp,
struct Tcl_Obj *objPtr)); struct Tcl_Obj *objPtr));
typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr)); typedef void (Tcl_UpdateStringProc) _ANSI_ARGS_((struct Tcl_Obj *objPtr));
typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData, typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, char *part1, char *part2, int flags)); Tcl_Interp *interp, char *part1, char *part2, int flags));
typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask, typedef void (Tcl_CreateFileHandlerProc) _ANSI_ARGS_((int fd, int mask,
Tcl_FileProc *proc, ClientData clientData)); Tcl_FileProc *proc, ClientData clientData));
typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd)); typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd));
typedef void (Tcl_MainLoopProc) _ANSI_ARGS_((void));
/* /*
* The following structure represents a type of object, which is a * The following structure represents a type of object, which is a
* particular internal representation for an object plus a set of * particular internal representation for an object plus a set of
* procedures that provide standard operations on objects of that type. * procedures that provide standard operations on objects of that type.
*/ */
typedef struct Tcl_ObjType { typedef struct Tcl_ObjType {
char *name; /* Name of the type, e.g. "int". */ char *name; /* Name of the type, e.g. "int". */
Tcl_FreeInternalRepProc *freeIntRepProc; Tcl_FreeInternalRepProc *freeIntRepProc;
 End of changes. 8 change blocks. 
13 lines changed or deleted 9 lines changed or added


 tclDecls.h   tclDecls.h 
/* /*
* tclDecls.h -- * tclDecls.h --
* *
* Declarations of functions in the platform independent public Tcl API . * Declarations of functions in the platform independent public Tcl API .
* *
* Copyright (c) 1998-1999 by Scriptics Corporation. * Copyright (c) 1998-1999 by Scriptics Corporation.
* *
* See the file "license.terms" for information on usage and redistribution * See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES. * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
* *
* RCS: @(#) $Id: tclDecls.h,v 1.34.2.1 2000/07/27 01:39:15 hobbs Exp $ * RCS: @(#) $Id: tclDecls.h,v 1.34.2.2 2001/08/28 00:12:43 hobbs Exp $
*/ */
#ifndef _TCLDECLS #ifndef _TCLDECLS
#define _TCLDECLS #define _TCLDECLS
/* /*
* 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.
*/ */
skipping to change at line 916 skipping to change at line 916
/* 281 */ /* 281 */
EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_ChannelType * typePtr, Tcl_ChannelType * typePtr,
ClientData instanceData, int mask, ClientData instanceData, int mask,
Tcl_Channel prevChan)); Tcl_Channel prevChan));
/* 282 */ /* 282 */
EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Channel chan)); Tcl_Channel chan));
/* 283 */ /* 283 */
EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan) ); EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan) );
/* Slot 284 is reserved */ /* 284 */
EXTERN void Tcl_SetMainLoop _ANSI_ARGS_((Tcl_MainLoopProc * proc
));
/* Slot 285 is reserved */ /* Slot 285 is reserved */
/* 286 */ /* 286 */
EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr, EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr,
Tcl_Obj * appendObjPtr)); Tcl_Obj * appendObjPtr));
/* 287 */ /* 287 */
EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_((
Tcl_EncodingType * typePtr)); Tcl_EncodingType * typePtr));
/* 288 */ /* 288 */
EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc * proc, ClientData clientData)) ;
skipping to change at line 1634 skipping to change at line 1635
void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 2 78 */ void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 2 78 */
#endif /* __WIN32__ */ #endif /* __WIN32__ */
#ifdef MAC_TCL #ifdef MAC_TCL
void *reserved278; void *reserved278;
#endif /* MAC_TCL */ #endif /* MAC_TCL */
void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * pat chLevel, int * type)); /* 279 */ void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * pat chLevel, int * type)); /* 279 */
void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */ void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 280 */
Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_C hannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevCh an)); /* 281 */ Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_C hannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevCh an)); /* 281 */
int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 282 */ int (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 282 */
Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / * 283 */ Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); / * 283 */
void *reserved284; void (*tcl_SetMainLoop) _ANSI_ARGS_((Tcl_MainLoopProc * proc)); /* 284 */
void *reserved285; void *reserved285;
void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * app endObjPtr)); /* 286 */ void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * app endObjPtr)); /* 286 */
Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * type Ptr)); /* 287 */ Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * type Ptr)); /* 287 */
void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 288 */ void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 288 */
void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 289 */ void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, C lientData clientData)); /* 289 */
void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */ void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 290 */
int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); /* 291 */ int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); /* 291 */
int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */ int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 292 */
int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr , int flags)); /* 293 */ int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr , int flags)); /* 293 */
void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */ void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 294 */
skipping to change at line 2949 skipping to change at line 2950
(tclStubsPtr->tcl_StackChannel) /* 281 */ (tclStubsPtr->tcl_StackChannel) /* 281 */
#endif #endif
#ifndef Tcl_UnstackChannel #ifndef Tcl_UnstackChannel
#define Tcl_UnstackChannel \ #define Tcl_UnstackChannel \
(tclStubsPtr->tcl_UnstackChannel) /* 282 */ (tclStubsPtr->tcl_UnstackChannel) /* 282 */
#endif #endif
#ifndef Tcl_GetStackedChannel #ifndef Tcl_GetStackedChannel
#define Tcl_GetStackedChannel \ #define Tcl_GetStackedChannel \
(tclStubsPtr->tcl_GetStackedChannel) /* 283 */ (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
#endif #endif
/* Slot 284 is reserved */ #ifndef Tcl_SetMainLoop
#define Tcl_SetMainLoop \
(tclStubsPtr->tcl_SetMainLoop) /* 284 */
#endif
/* Slot 285 is reserved */ /* Slot 285 is reserved */
#ifndef Tcl_AppendObjToObj #ifndef Tcl_AppendObjToObj
#define Tcl_AppendObjToObj \ #define Tcl_AppendObjToObj \
(tclStubsPtr->tcl_AppendObjToObj) /* 286 */ (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
#endif #endif
#ifndef Tcl_CreateEncoding #ifndef Tcl_CreateEncoding
#define Tcl_CreateEncoding \ #define Tcl_CreateEncoding \
(tclStubsPtr->tcl_CreateEncoding) /* 287 */ (tclStubsPtr->tcl_CreateEncoding) /* 287 */
#endif #endif
#ifndef Tcl_CreateThreadExitHandler #ifndef Tcl_CreateThreadExitHandler
 End of changes. 4 change blocks. 
4 lines changed or deleted 9 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/