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-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: tcl.h,v 1.43.2.1 1999/05/19 23:27:09 redman Exp $ * RCS: @(#) $Id: tcl.h,v 1.57 1999/08/10 23:16:25 redman 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 43 skipping to change at line 43
#define TCL_ALPHA_RELEASE 0 #define TCL_ALPHA_RELEASE 0
#define TCL_BETA_RELEASE 1 #define TCL_BETA_RELEASE 1
#define TCL_FINAL_RELEASE 2 #define TCL_FINAL_RELEASE 2
/* /*
* When version numbers change here, must also go into the following files * When version numbers change here, must also go into the following files
* and update the version numbers: * and update the version numbers:
* *
* library/init.tcl (only if major.minor changes, not patchlevel) * library/init.tcl (only if major.minor changes, not patchlevel)
* unix/configure.in * unix/configure.in
* win/configure.in (only if major.minor changes, not patchlevel)
* win/makefile.bc (only if major.minor changes, not patchlevel) * win/makefile.bc (only if major.minor changes, not patchlevel)
* win/makefile.vc (only if major.minor changes, not patchlevel) * win/makefile.vc (only if major.minor changes, not patchlevel)
* win/pkgIndex.tcl (for tclregNN.dll, not patchlevel) * win/pkgIndex.tcl (for tclregNN.dll, not patchlevel)
* README * README
* mac/README * mac/README
* win/README.binary * win/README.binary
* win/README (only if major.minor changes, not patchlevel) * win/README (only if major.minor changes, not patchlevel)
* unix/README (only if major.minor changes, not patchlevel) * unix/README (only if major.minor changes, not patchlevel)
* tools/tcl.hpj.in (for windows installer)
* tools/tcl.wse.in (for windows installer)
*/ */
#define TCL_MAJOR_VERSION 8 #define TCL_MAJOR_VERSION 8
#define TCL_MINOR_VERSION 1 #define TCL_MINOR_VERSION 2
#define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE #define TCL_RELEASE_LEVEL TCL_FINAL_RELEASE
#define TCL_RELEASE_SERIAL 1 #define TCL_RELEASE_SERIAL 0
#define TCL_VERSION "8.1" #define TCL_VERSION "8.2"
#define TCL_PATCH_LEVEL "8.1.1" #define TCL_PATCH_LEVEL "8.2.0"
/* /*
* 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)
# define __WIN32__ # define __WIN32__
# endif # endif
skipping to change at line 376 skipping to change at line 379
typedef struct Tcl_Mutex_ *Tcl_Mutex; typedef struct Tcl_Mutex_ *Tcl_Mutex;
typedef struct Tcl_Pid_ *Tcl_Pid; typedef struct Tcl_Pid_ *Tcl_Pid;
typedef struct Tcl_RegExp_ *Tcl_RegExp; typedef struct Tcl_RegExp_ *Tcl_RegExp;
typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey; typedef struct Tcl_ThreadDataKey_ *Tcl_ThreadDataKey;
typedef struct Tcl_ThreadId_ *Tcl_ThreadId; typedef struct Tcl_ThreadId_ *Tcl_ThreadId;
typedef struct Tcl_TimerToken_ *Tcl_TimerToken; typedef struct Tcl_TimerToken_ *Tcl_TimerToken;
typedef struct Tcl_Trace_ *Tcl_Trace; typedef struct Tcl_Trace_ *Tcl_Trace;
typedef struct Tcl_Var_ *Tcl_Var; typedef struct Tcl_Var_ *Tcl_Var;
/* /*
* Flag values passed to Tcl_GetRegExpFromObj.
*/
#define TCL_REG_BASIC 000000 /* BREs (convenience) */
#define TCL_REG_EXTENDED 000001 /* EREs */
#define TCL_REG_ADVF 000002 /* advanced features in EREs
*/
#define TCL_REG_ADVANCED 000003 /* AREs (which are also EREs
) */
#define TCL_REG_QUOTE 000004 /* no special characters, no
ne */
#define TCL_REG_NOCASE 000010 /* ignore case */
#define TCL_REG_NOSUB 000020 /* don't care about subexpre
ssions */
#define TCL_REG_EXPANDED 000040 /* expanded format, white sp
ace &
* comments */
#define TCL_REG_NLSTOP 000100 /* \n doesn't match . or [^
] */
#define TCL_REG_NLANCH 000200 /* ^ matches after \n, $ bef
ore */
#define TCL_REG_NEWLINE 000300 /* newlines are line termina
tors */
#define TCL_REG_CANMATCH 001000 /* report details on partial
/limited
* matches */
/*
* The following flag is experimental and only intended for use by Expect.
It
* will probably go away in a later release.
*/
#define TCL_REG_BOSONLY 002000 /* prepend \A to pattern so
it only
* matches at the beginning of the
* string. */
/*
* Flags values passed to Tcl_RegExpExecObj.
*/
#define TCL_REG_NOTBOL 0001 /* Beginning of string does not matc
h ^. */
#define TCL_REG_NOTEOL 0002 /* End of string does not match $. *
/
/*
* Structures filled in by Tcl_RegExpInfo. Note that all offset values are
* relative to the start of the match string, not the beginning of the
* entire string.
*/
typedef struct Tcl_RegExpIndices {
long start; /* character offset of first character in ma
tch */
long end; /* character offset of first character after the
* match. */
} Tcl_RegExpIndices;
typedef struct Tcl_RegExpInfo {
int nsubs; /* number of subexpressions in the
* compiled expression */
Tcl_RegExpIndices *matches; /* array of nsubs match offset
* pairs */
long extendStart; /* The offset at which a subsequent
* match might begin. */
long reserved; /* Reserved for later use. */
} Tcl_RegExpInfo;
/*
* Picky compilers complain if this typdef doesn't appear before the * Picky compilers complain if this typdef doesn't appear before the
* struct's reference in tclDecls.h. * struct's reference in tclDecls.h.
*/ */
typedef struct stat *Tcl_Stat_; typedef struct stat *Tcl_Stat_;
/* /*
* When a TCL command returns, the interpreter contains a result from the * When a TCL command returns, the interpreter contains a result from the
* command. Programmers are strongly encouraged to use one of the * command. Programmers are strongly encouraged to use one of the
* procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the * procedures Tcl_GetObjResult() or Tcl_GetStringResult() to read the
skipping to change at line 483 skipping to change at line 543
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,
Tcl_FileProc *proc, ClientData clientData));
typedef void (Tcl_DeleteFileHandlerProc) _ANSI_ARGS_((int fd));
/* /*
* 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;
skipping to change at line 556 skipping to change at line 619
* Macros to increment and decrement a Tcl_Obj's reference count, and to * Macros to increment and decrement a Tcl_Obj's reference count, and to
* test whether an object is shared (i.e. has reference count > 1). * test whether an object is shared (i.e. has reference count > 1).
* Note: clients should use Tcl_DecrRefCount() when they are finished using * Note: clients should use Tcl_DecrRefCount() when they are finished using
* an object, and should never call TclFreeObj() directly. TclFreeObj() is * an object, and should never call TclFreeObj() directly. TclFreeObj() is
* only defined and made public in tcl.h to support Tcl_DecrRefCount's macr o * only defined and made public in tcl.h to support Tcl_DecrRefCount's macr o
* definition. Note also that Tcl_DecrRefCount() refers to the parameter * definition. Note also that Tcl_DecrRefCount() refers to the parameter
* "obj" twice. This means that you should avoid calling it with an * "obj" twice. This means that you should avoid calling it with an
* expression that is expensive to compute or has side effects. * expression that is expensive to compute or has side effects.
*/ */
EXTERN void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); void Tcl_IncrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr));
EXTERN void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr)); void Tcl_DecrRefCount _ANSI_ARGS_((Tcl_Obj *objPtr));
EXTERN int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr)); int Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr));
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
# define Tcl_IncrRefCount(objPtr) \ # define Tcl_IncrRefCount(objPtr) \
Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__) Tcl_DbIncrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_DecrRefCount(objPtr) \ # define Tcl_DecrRefCount(objPtr) \
Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__) Tcl_DbDecrRefCount(objPtr, __FILE__, __LINE__)
# define Tcl_IsShared(objPtr) \ # define Tcl_IsShared(objPtr) \
Tcl_DbIsShared(objPtr, __FILE__, __LINE__) Tcl_DbIsShared(objPtr, __FILE__, __LINE__)
#else #else
# define Tcl_IncrRefCount(objPtr) \ # define Tcl_IncrRefCount(objPtr) \
skipping to change at line 994 skipping to change at line 1057
* an absolute time (the number of seconds from the epoch) or as an * an absolute time (the number of seconds from the epoch) or as an
* elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT. * elapsed time. On Unix systems the epoch is Midnight Jan 1, 1970 GMT.
* On Macintosh systems the epoch is Midnight Jan 1, 1904 GMT. * On Macintosh systems the epoch is Midnight Jan 1, 1904 GMT.
*/ */
typedef struct Tcl_Time { typedef struct Tcl_Time {
long sec; /* Seconds. */ long sec; /* Seconds. */
long usec; /* Microseconds. */ long usec; /* Microseconds. */
} Tcl_Time; } Tcl_Time;
typedef void (Tcl_SetTimerProc) _ANSI_ARGS_((Tcl_Time *timePtr));
typedef int (Tcl_WaitForEventProc) _ANSI_ARGS_((Tcl_Time *timePtr));
/* /*
* Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler * Bits to pass to Tcl_CreateFileHandler and Tcl_CreateChannelHandler
* to indicate what sorts of events are of interest: * to indicate what sorts of events are of interest:
*/ */
#define TCL_READABLE (1<<1) #define TCL_READABLE (1<<1)
#define TCL_WRITABLE (1<<2) #define TCL_WRITABLE (1<<2)
#define TCL_EXCEPTION (1<<3) #define TCL_EXCEPTION (1<<3)
/* /*
skipping to change at line 1072 skipping to change at line 1138
#ifdef TCL_MEM_DEBUG #ifdef TCL_MEM_DEBUG
# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__) # define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__) # define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
# define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__) # define ckrealloc(x,y) Tcl_DbCkrealloc((x), (y),__FILE__, __LINE__)
#else /* !TCL_MEM_DEBUG */ #else /* !TCL_MEM_DEBUG */
/* /*
* If USE_TCLALLOC is true, then we need to call Tcl_Alloc instead of * If we are not using the debugging allocator, we should call the
* the native malloc/free. The only time USE_TCLALLOC should not be * Tcl_Alloc, et al. routines in order to guarantee that every module
* true is when compiling the Tcl/Tk libraries on Unix systems. In this * is using the same memory allocator both inside and outside of the
* case we can safely call the native malloc/free directly as a performance * Tcl library.
* optimization.
*/ */
# if USE_TCLALLOC # define ckalloc(x) Tcl_Alloc(x)
# define ckalloc(x) Tcl_Alloc(x) # define ckfree(x) Tcl_Free(x)
# define ckfree(x) Tcl_Free(x) # define ckrealloc(x,y) Tcl_Realloc(x,y)
# define ckrealloc(x,y) Tcl_Realloc(x,y)
# else
# define ckalloc(x) malloc(x)
# define ckfree(x) free(x)
# define ckrealloc(x,y) realloc(x,y)
# endif
# define Tcl_InitMemory(x) # define Tcl_InitMemory(x)
# define Tcl_DumpActiveMemory(x) # define Tcl_DumpActiveMemory(x)
# define Tcl_ValidateAllMemory(x,y) # define Tcl_ValidateAllMemory(x,y)
#endif /* !TCL_MEM_DEBUG */ #endif /* !TCL_MEM_DEBUG */
/* /*
* Enum for different end of line translation and recognition modes. * Enum for different end of line translation and recognition modes.
*/ */
skipping to change at line 1166 skipping to change at line 1225
* Enum for different types of file paths. * Enum for different types of file paths.
*/ */
typedef enum Tcl_PathType { typedef enum Tcl_PathType {
TCL_PATH_ABSOLUTE, TCL_PATH_ABSOLUTE,
TCL_PATH_RELATIVE, TCL_PATH_RELATIVE,
TCL_PATH_VOLUME_RELATIVE TCL_PATH_VOLUME_RELATIVE
} Tcl_PathType; } Tcl_PathType;
/* /*
* The following structure represents the Notifier functions that
* you can override with the Tcl_SetNotifier call.
*/
typedef struct Tcl_NotifierProcs {
Tcl_SetTimerProc *setTimerProc;
Tcl_WaitForEventProc *waitForEventProc;
Tcl_CreateFileHandlerProc *createFileHandlerProc;
Tcl_DeleteFileHandlerProc *deleteFileHandlerProc;
} Tcl_NotifierProcs;
/*
* The following structure represents a user-defined encoding. It collects * The following structure represents a user-defined encoding. It collects
* together all the functions that are used by the specific encoding. * together all the functions that are used by the specific encoding.
*/ */
typedef struct Tcl_EncodingType { typedef struct Tcl_EncodingType {
CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp". CONST char *encodingName; /* The name of the encoding, e.g. "euc-jp".
* This name is the unique key for this * This name is the unique key for this
* encoding type. */ * encoding type. */
Tcl_EncodingConvertProc *toUtfProc; Tcl_EncodingConvertProc *toUtfProc;
/* Procedure to convert from external /* Procedure to convert from external
 End of changes. 13 change blocks. 
22 lines changed or deleted 107 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.12.2.1 1999/05/20 00:03:36 stanton Exp $ * RCS: @(#) $Id: tclDecls.h,v 1.28 1999/08/10 22:45:11 redman 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 373 skipping to change at line 373
EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_((
Tcl_ExitProc * proc, ClientData clientData)) ; Tcl_ExitProc * proc, ClientData clientData)) ;
/* 108 */ /* 108 */
EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_((
Tcl_HashEntry * entryPtr)); Tcl_HashEntry * entryPtr));
/* 109 */ /* 109 */
EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_((
Tcl_HashTable * tablePtr)); Tcl_HashTable * tablePtr));
/* 110 */ /* 110 */
EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp * interp));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 111 */
EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids,
Tcl_Pid * pidPtr));
#endif /* UNIX */
#ifdef __WIN32__
/* 111 */ /* 111 */
EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids,
Tcl_Pid * pidPtr)); Tcl_Pid * pidPtr));
#endif /* __WIN32__ */
/* 112 */ /* 112 */
EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_((
Tcl_TimerToken token)); Tcl_TimerToken token));
/* 113 */ /* 113 */
EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Trace trace)); Tcl_Trace trace));
/* 114 */ /* 114 */
EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Interp * interp,
Tcl_InterpDeleteProc * proc, Tcl_InterpDeleteProc * proc,
skipping to change at line 616 skipping to change at line 623
EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel,
int mask)); int mask));
/* 195 */ /* 195 */
EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
int flags)); int flags));
/* 196 */ /* 196 */
EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
Tcl_Obj * newValuePtr, int flags)); Tcl_Obj * newValuePtr, int flags));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_((
Tcl_Interp * interp, int argc, char ** argv,
int flags));
#endif /* UNIX */
#ifdef __WIN32__
/* 197 */ /* 197 */
EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_((
Tcl_Interp * interp, int argc, char ** argv, Tcl_Interp * interp, int argc, char ** argv,
int flags)); int flags));
#endif /* __WIN32__ */
/* 198 */ /* 198 */
EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp , EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp ,
char * fileName, char * modeString, char * fileName, char * modeString,
int permissions)); int permissions));
/* 199 */ /* 199 */
EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp,
int port, char * address, char * myaddr, int port, char * address, char * myaddr,
int myport, int async)); int myport, int async));
/* 200 */ /* 200 */
EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp,
skipping to change at line 648 skipping to change at line 663
/* 203 */ /* 203 */
EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string)); EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string));
/* 204 */ /* 204 */
EXTERN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp));
/* 205 */ /* 205 */
EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr, EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr,
Tcl_QueuePosition position)); Tcl_QueuePosition position));
/* 206 */ /* 206 */
EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan,
char * bufPtr, int toRead)); char * bufPtr, int toRead));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
#endif /* UNIX */
#ifdef __WIN32__
/* 207 */ /* 207 */
EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void));
#endif /* __WIN32__ */
/* 208 */ /* 208 */
EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp,
char * cmd, int flags)); char * cmd, int flags));
/* 209 */ /* 209 */
EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_(( EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_((
Tcl_Interp * interp, Tcl_Obj * cmdPtr, Tcl_Interp * interp, Tcl_Obj * cmdPtr,
int flags)); int flags));
/* 210 */ /* 210 */
EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp , EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp ,
Tcl_Channel chan)); Tcl_Channel chan));
skipping to change at line 870 skipping to change at line 891
char * name, char * version, int exact)); char * name, char * version, int exact));
/* 275 */ /* 275 */
EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp,
va_list argList)); va_list argList));
/* 276 */ /* 276 */
EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp,
va_list argList)); va_list argList));
/* 277 */ /* 277 */
EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr,
int options)); int options));
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* 278 */ /* 278 */
EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format, EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format,
va_list argList)); va_list argList));
#endif /* UNIX */
#ifdef __WIN32__
/* 278 */
EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format,
va_list argList));
#endif /* __WIN32__ */
/* 279 */ /* 279 */
EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor , EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor ,
int * patchLevel, int * type)); int * patchLevel, int * type));
/* 280 */ /* 280 */
EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp)); EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp));
/* Slot 281 is reserved */ /* 281 */
/* Slot 282 is reserved */ EXTERN Tcl_Channel Tcl_StackChannel _ANSI_ARGS_((Tcl_Interp * interp,
/* Slot 283 is reserved */ Tcl_ChannelType * typePtr,
ClientData instanceData, int mask,
Tcl_Channel prevChan));
/* 282 */
EXTERN void Tcl_UnstackChannel _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Channel chan));
/* 283 */
EXTERN Tcl_Channel Tcl_GetStackedChannel _ANSI_ARGS_((Tcl_Channel chan)
);
/* Slot 284 is reserved */ /* Slot 284 is reserved */
/* 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_((
skipping to change at line 1073 skipping to change at line 1108
/* 349 */ /* 349 */
EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsSpace _ANSI_ARGS_((int ch));
/* 350 */ /* 350 */
EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsUpper _ANSI_ARGS_((int ch));
/* 351 */ /* 351 */
EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsWordChar _ANSI_ARGS_((int ch));
/* 352 */ /* 352 */
EXTERN int Tcl_UniCharLen _ANSI_ARGS_((Tcl_UniChar * str)); EXTERN int Tcl_UniCharLen _ANSI_ARGS_((Tcl_UniChar * str));
/* 353 */ /* 353 */
EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs, EXTERN int Tcl_UniCharNcmp _ANSI_ARGS_((CONST Tcl_UniChar * cs,
CONST Tcl_UniChar * ct, size_t n)); CONST Tcl_UniChar * ct, unsigned long n));
/* 354 */ /* 354 */
EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_(( EXTERN char * Tcl_UniCharToUtfDString _ANSI_ARGS_((
CONST Tcl_UniChar * string, int numChars, CONST Tcl_UniChar * string, int numChars,
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 355 */ /* 355 */
EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_(( EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString _ANSI_ARGS_((
CONST char * string, int length, CONST char * string, int length,
Tcl_DString * dsPtr)); Tcl_DString * dsPtr));
/* 356 */ /* 356 */
EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_(( EXTERN Tcl_RegExp Tcl_GetRegExpFromObj _ANSI_ARGS_((
skipping to change at line 1128 skipping to change at line 1163
Tcl_DString * cwdPtr)); Tcl_DString * cwdPtr));
/* 366 */ /* 366 */
EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName)); EXTERN int Tcl_Chdir _ANSI_ARGS_((CONST char * dirName));
/* 367 */ /* 367 */
EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) ); EXTERN int Tcl_Access _ANSI_ARGS_((CONST char * path, int mode) );
/* 368 */ /* 368 */
EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path, EXTERN int Tcl_Stat _ANSI_ARGS_((CONST char * path,
struct stat * bufPtr)); struct stat * bufPtr));
/* 369 */ /* 369 */
EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char * s1, EXTERN int Tcl_UtfNcmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2, size_t n)); CONST char * s2, unsigned long n));
/* 370 */ /* 370 */
EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char * s1, EXTERN int Tcl_UtfNcasecmp _ANSI_ARGS_((CONST char * s1,
CONST char * s2, size_t n)); CONST char * s2, unsigned long n));
/* 371 */ /* 371 */
EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char * str, EXTERN int Tcl_StringCaseMatch _ANSI_ARGS_((CONST char * str,
CONST char * pattern, int nocase)); CONST char * pattern, int nocase));
/* 372 */ /* 372 */
EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsControl _ANSI_ARGS_((int ch));
/* 373 */ /* 373 */
EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsGraph _ANSI_ARGS_((int ch));
/* 374 */ /* 374 */
EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPrint _ANSI_ARGS_((int ch));
/* 375 */ /* 375 */
EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch)); EXTERN int Tcl_UniCharIsPunct _ANSI_ARGS_((int ch));
/* 376 */
EXTERN int Tcl_RegExpExecObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_RegExp regexp, Tcl_Obj * objPtr,
int offset, int nmatches, int flags));
/* 377 */
EXTERN void Tcl_RegExpGetInfo _ANSI_ARGS_((Tcl_RegExp regexp,
Tcl_RegExpInfo * infoPtr));
/* 378 */
EXTERN Tcl_Obj * Tcl_NewUnicodeObj _ANSI_ARGS_((Tcl_UniChar * unicode
,
int numChars));
/* 379 */
EXTERN void Tcl_SetUnicodeObj _ANSI_ARGS_((Tcl_Obj * objPtr,
Tcl_UniChar * unicode, int numChars));
/* 380 */
EXTERN int Tcl_GetCharLength _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 381 */
EXTERN Tcl_UniChar Tcl_GetUniChar _ANSI_ARGS_((Tcl_Obj * objPtr,
int index));
/* 382 */
EXTERN Tcl_UniChar * Tcl_GetUnicode _ANSI_ARGS_((Tcl_Obj * objPtr));
/* 383 */
EXTERN Tcl_Obj * Tcl_GetRange _ANSI_ARGS_((Tcl_Obj * objPtr,
int first, int last));
/* 384 */
EXTERN void Tcl_AppendUnicodeToObj _ANSI_ARGS_((
register Tcl_Obj * objPtr,
Tcl_UniChar * unicode, int length));
/* 385 */
EXTERN int Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp,
Tcl_Obj * stringObj, Tcl_Obj * patternObj));
/* 386 */
EXTERN void Tcl_SetNotifier _ANSI_ARGS_((
Tcl_NotifierProcs * notifierProcPtr));
/* 387 */
EXTERN Tcl_Mutex * Tcl_GetAllocMutex _ANSI_ARGS_((void));
/* 388 */
EXTERN int Tcl_GetChannelNames _ANSI_ARGS_((Tcl_Interp * interp
));
typedef struct TclStubHooks { typedef struct TclStubHooks {
struct TclPlatStubs *tclPlatStubs; struct TclPlatStubs *tclPlatStubs;
struct TclIntStubs *tclIntStubs; struct TclIntStubs *tclIntStubs;
struct TclIntPlatStubs *tclIntPlatStubs; struct TclIntPlatStubs *tclIntPlatStubs;
} TclStubHooks; } TclStubHooks;
typedef struct TclStubs { typedef struct TclStubs {
int magic; int magic;
struct TclStubHooks *hooks; struct TclStubHooks *hooks;
skipping to change at line 1281 skipping to change at line 1353
void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Cha nnelProc * proc, ClientData clientData)); /* 101 */ void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Cha nnelProc * proc, ClientData clientData)); /* 101 */
void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close Proc * proc, ClientData clientData)); /* 102 */ void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Close Proc * proc, ClientData clientData)); /* 102 */
int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdNa me)); /* 103 */ int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdNa me)); /* 103 */
int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl _Command command)); /* 104 */ int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl _Command command)); /* 104 */
void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, Clien tData clientData)); /* 105 */ void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, Clien tData clientData)); /* 105 */
void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */ void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupPr oc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */
void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ata clientData)); /* 107 */ void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientD ata clientData)); /* 107 */
void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */ void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */
void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */ void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */
void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */ void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */ void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */
#endif /* UNIX */
#ifdef __WIN32__
void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /*
111 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
void *reserved111;
#endif /* MAC_TCL */
void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */ void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */
void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace tra ce)); /* 113 */ void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace tra ce)); /* 113 */
void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_I nterpDeleteProc * proc, ClientData clientData)); /* 114 */ void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_I nterpDeleteProc * proc, ClientData clientData)); /* 114 */
int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */ int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */
void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData cli entData)); /* 116 */ void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData cli entData)); /* 116 */
char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST cha r * str, int length)); /* 117 */ char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST cha r * str, int length)); /* 117 */
char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CO NST char * string)); /* 118 */ char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CO NST char * string)); /* 118 */
void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 11 9 */ void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 11 9 */
void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */ void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */
void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DStr ing * dsPtr)); /* 121 */ void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DStr ing * dsPtr)); /* 121 */
skipping to change at line 1375 skipping to change at line 1455
int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, ch ar * addr, int type)); /* 187 */ int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, ch ar * addr, int type)); /* 187 */
void *reserved188; void *reserved188;
Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */
int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */ int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */
Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock et)); /* 191 */ Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSock et)); /* 191 */
char * (*tcl_Merge) _ANSI_ARGS_((int argc, char ** argv)); /* 192 */ char * (*tcl_Merge) _ANSI_ARGS_((int argc, char ** argv)); /* 192 */
Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * sear chPtr)); /* 193 */ Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * sear chPtr)); /* 193 */
void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */ void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 194 */
Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */ Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 195 */
Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 * / Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 * /
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 197 */ Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 197 */
#endif /* UNIX */
#ifdef __WIN32__
Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp,
int argc, char ** argv, int flags)); /* 197 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
void *reserved197;
#endif /* MAC_TCL */
Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, ch ar * fileName, char * modeString, int permissions)); /* 198 */ Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, ch ar * fileName, char * modeString, int permissions)); /* 198 */
Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * address, char * myaddr, int myport, int async)); /* 199 */ Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * address, char * myaddr, int myport, int async)); /* 199 */
Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData) ); /* 200 */ Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData) ); /* 200 */
void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */ void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 201 */
void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */ void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */
int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */ int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */
char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 204 */ char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 204 */
void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePositio n position)); /* 205 */ void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePositio n position)); /* 205 */
int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRea d)); /* 206 */ int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRea d)); /* 206 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */
#endif /* UNIX */
#ifdef __WIN32__
void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */
#endif /* __WIN32__ */
#ifdef MAC_TCL
void *reserved207;
#endif /* MAC_TCL */
int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 208 */ int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 208 */
int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */ int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 209 */
void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann el chan)); /* 210 */ void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Chann el chan)); /* 210 */
void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 21 1 */ void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 21 1 */
Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 212 */ Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 212 */
int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp rege xp, CONST char * str, CONST char * start)); /* 213 */ int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp rege xp, CONST char * str, CONST char * start)); /* 213 */
int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, char * str, ch ar * pattern)); /* 214 */ int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, char * str, ch ar * pattern)); /* 214 */
void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, char ** startPtr, char ** endPtr)); /* 215 */ void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, char ** startPtr, char ** endPtr)); /* 215 */
void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */ void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 216 */
void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */ void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */
skipping to change at line 1456 skipping to change at line 1552
void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */ void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */
char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 269 */ char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 269 */
char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * str, ch ar ** termPtr)); /* 270 */ char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * str, ch ar ** termPtr)); /* 270 */
char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 271 */ char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 271 */
char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * nam e, char * version, int exact, ClientData * clientDataPtr)); /* 272 */ char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * nam e, char * version, int exact, ClientData * clientDataPtr)); /* 272 */
int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ch ar * version)); /* 273 */ int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ch ar * version)); /* 273 */
char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 274 */ char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 274 */
void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar gList)); /* 275 */ void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list ar gList)); /* 275 */
int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList) ); /* 276 */ int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList) ); /* 276 */
Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int opt ions)); /* 277 */ Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int opt ions)); /* 277 */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 2
78 */
#endif /* UNIX */
#ifdef __WIN32__
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__ */
#ifdef MAC_TCL
void *reserved278;
#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 */
void *reserved281; Tcl_Channel (*tcl_StackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_C
void *reserved282; hannelType * typePtr, ClientData instanceData, int mask, Tcl_Channel prevCh
void *reserved283; an)); /* 281 */
void (*tcl_UnstackChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channe
l chan)); /* 282 */
Tcl_Channel (*tcl_GetStackedChannel) _ANSI_ARGS_((Tcl_Channel chan)); /
* 283 */
void *reserved284; void *reserved284;
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 */
skipping to change at line 1531 skipping to change at line 1635
void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */ void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 343 */
void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */ void (*tcl_ServiceModeHook) _ANSI_ARGS_((int mode)); /* 344 */
int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */ int (*tcl_UniCharIsAlnum) _ANSI_ARGS_((int ch)); /* 345 */
int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */ int (*tcl_UniCharIsAlpha) _ANSI_ARGS_((int ch)); /* 346 */
int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */ int (*tcl_UniCharIsDigit) _ANSI_ARGS_((int ch)); /* 347 */
int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */ int (*tcl_UniCharIsLower) _ANSI_ARGS_((int ch)); /* 348 */
int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */ int (*tcl_UniCharIsSpace) _ANSI_ARGS_((int ch)); /* 349 */
int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */ int (*tcl_UniCharIsUpper) _ANSI_ARGS_((int ch)); /* 350 */
int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */ int (*tcl_UniCharIsWordChar) _ANSI_ARGS_((int ch)); /* 351 */
int (*tcl_UniCharLen) _ANSI_ARGS_((Tcl_UniChar * str)); /* 352 */ int (*tcl_UniCharLen) _ANSI_ARGS_((Tcl_UniChar * str)); /* 352 */
int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_U niChar * ct, size_t n)); /* 353 */ int (*tcl_UniCharNcmp) _ANSI_ARGS_((CONST Tcl_UniChar * cs, CONST Tcl_U niChar * ct, unsigned long n)); /* 353 */
char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri ng, int numChars, Tcl_DString * dsPtr)); /* 354 */ char * (*tcl_UniCharToUtfDString) _ANSI_ARGS_((CONST Tcl_UniChar * stri ng, int numChars, Tcl_DString * dsPtr)); /* 354 */
Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri ng, int length, Tcl_DString * dsPtr)); /* 355 */ Tcl_UniChar * (*tcl_UtfToUniCharDString) _ANSI_ARGS_((CONST char * stri ng, int length, Tcl_DString * dsPtr)); /* 355 */
Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc l_Obj * patObj, int flags)); /* 356 */ Tcl_RegExp (*tcl_GetRegExpFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tc l_Obj * patObj, int flags)); /* 356 */
Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */ Tcl_Obj * (*tcl_EvalTokens) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Token * tokenPtr, int count)); /* 357 */
void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */ void (*tcl_FreeParse) _ANSI_ARGS_((Tcl_Parse * parsePtr)); /* 358 */
void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * scr ipt, char * command, int length)); /* 359 */ void (*tcl_LogCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * scr ipt, char * command, int length)); /* 359 */
int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); /* 360 */ int (*tcl_ParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); /* 360 */
int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */ int (*tcl_ParseCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, int nested, Tcl_Parse * parsePtr)); /* 361 */
int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, char * string, i nt numBytes, Tcl_Parse * parsePtr)); /* 362 */ int (*tcl_ParseExpr) _ANSI_ARGS_((Tcl_Interp * interp, char * string, i nt numBytes, Tcl_Parse * parsePtr)); /* 362 */
int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, char * s tring, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); / * 363 */ int (*tcl_ParseQuotedString) _ANSI_ARGS_((Tcl_Interp * interp, char * s tring, int numBytes, Tcl_Parse * parsePtr, int append, char ** termPtr)); / * 363 */
int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */ int (*tcl_ParseVarName) _ANSI_ARGS_((Tcl_Interp * interp, char * string , int numBytes, Tcl_Parse * parsePtr, int append)); /* 364 */
char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw dPtr)); /* 365 */ char * (*tcl_GetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cw dPtr)); /* 365 */
int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */ int (*tcl_Chdir) _ANSI_ARGS_((CONST char * dirName)); /* 366 */
int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */ int (*tcl_Access) _ANSI_ARGS_((CONST char * path, int mode)); /* 367 */
int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */ int (*tcl_Stat) _ANSI_ARGS_((CONST char * path, struct stat * bufPtr)); /* 368 */
int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_ int (*tcl_UtfNcmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsig
t n)); /* 369 */ ned long n)); /* 369 */
int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, s int (*tcl_UtfNcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, u
ize_t n)); /* 370 */ nsigned long n)); /* 370 */
int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern, int nocase)); /* 371 */ int (*tcl_StringCaseMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern, int nocase)); /* 371 */
int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */ int (*tcl_UniCharIsControl) _ANSI_ARGS_((int ch)); /* 372 */
int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */ int (*tcl_UniCharIsGraph) _ANSI_ARGS_((int ch)); /* 373 */
int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */ int (*tcl_UniCharIsPrint) _ANSI_ARGS_((int ch)); /* 374 */
int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */ int (*tcl_UniCharIsPunct) _ANSI_ARGS_((int ch)); /* 375 */
int (*tcl_RegExpExecObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp r
egexp, Tcl_Obj * objPtr, int offset, int nmatches, int flags)); /* 376 */
void (*tcl_RegExpGetInfo) _ANSI_ARGS_((Tcl_RegExp regexp, Tcl_RegExpInf
o * infoPtr)); /* 377 */
Tcl_Obj * (*tcl_NewUnicodeObj) _ANSI_ARGS_((Tcl_UniChar * unicode, int
numChars)); /* 378 */
void (*tcl_SetUnicodeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_UniChar *
unicode, int numChars)); /* 379 */
int (*tcl_GetCharLength) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 380 */
Tcl_UniChar (*tcl_GetUniChar) _ANSI_ARGS_((Tcl_Obj * objPtr, int index)
); /* 381 */
Tcl_UniChar * (*tcl_GetUnicode) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 382
*/
Tcl_Obj * (*tcl_GetRange) _ANSI_ARGS_((Tcl_Obj * objPtr, int first, int
last)); /* 383 */
void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((register Tcl_Obj * objPtr,
Tcl_UniChar * unicode, int length)); /* 384 */
int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * s
tringObj, Tcl_Obj * patternObj)); /* 385 */
void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPt
r)); /* 386 */
Tcl_Mutex * (*tcl_GetAllocMutex) _ANSI_ARGS_((void)); /* 387 */
int (*tcl_GetChannelNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 388 *
/
} TclStubs; } TclStubs;
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
extern TclStubs *tclStubsPtr; extern TclStubs *tclStubsPtr;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
skipping to change at line 2018 skipping to change at line 2135
(tclStubsPtr->tcl_DeleteHashEntry) /* 108 */ (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
#endif #endif
#ifndef Tcl_DeleteHashTable #ifndef Tcl_DeleteHashTable
#define Tcl_DeleteHashTable \ #define Tcl_DeleteHashTable \
(tclStubsPtr->tcl_DeleteHashTable) /* 109 */ (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
#endif #endif
#ifndef Tcl_DeleteInterp #ifndef Tcl_DeleteInterp
#define Tcl_DeleteInterp \ #define Tcl_DeleteInterp \
(tclStubsPtr->tcl_DeleteInterp) /* 110 */ (tclStubsPtr->tcl_DeleteInterp) /* 110 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_DetachPids #ifndef Tcl_DetachPids
#define Tcl_DetachPids \ #define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */ (tclStubsPtr->tcl_DetachPids) /* 111 */
#endif #endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_DetachPids
#define Tcl_DetachPids \
(tclStubsPtr->tcl_DetachPids) /* 111 */
#endif
#endif /* __WIN32__ */
#ifndef Tcl_DeleteTimerHandler #ifndef Tcl_DeleteTimerHandler
#define Tcl_DeleteTimerHandler \ #define Tcl_DeleteTimerHandler \
(tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */ (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
#endif #endif
#ifndef Tcl_DeleteTrace #ifndef Tcl_DeleteTrace
#define Tcl_DeleteTrace \ #define Tcl_DeleteTrace \
(tclStubsPtr->tcl_DeleteTrace) /* 113 */ (tclStubsPtr->tcl_DeleteTrace) /* 113 */
#endif #endif
#ifndef Tcl_DontCallWhenDeleted #ifndef Tcl_DontCallWhenDeleted
#define Tcl_DontCallWhenDeleted \ #define Tcl_DontCallWhenDeleted \
skipping to change at line 2361 skipping to change at line 2486
(tclStubsPtr->tcl_NotifyChannel) /* 194 */ (tclStubsPtr->tcl_NotifyChannel) /* 194 */
#endif #endif
#ifndef Tcl_ObjGetVar2 #ifndef Tcl_ObjGetVar2
#define Tcl_ObjGetVar2 \ #define Tcl_ObjGetVar2 \
(tclStubsPtr->tcl_ObjGetVar2) /* 195 */ (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
#endif #endif
#ifndef Tcl_ObjSetVar2 #ifndef Tcl_ObjSetVar2
#define Tcl_ObjSetVar2 \ #define Tcl_ObjSetVar2 \
(tclStubsPtr->tcl_ObjSetVar2) /* 196 */ (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_OpenCommandChannel #ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \ #define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */ (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif #endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel \
(tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
#endif
#endif /* __WIN32__ */
#ifndef Tcl_OpenFileChannel #ifndef Tcl_OpenFileChannel
#define Tcl_OpenFileChannel \ #define Tcl_OpenFileChannel \
(tclStubsPtr->tcl_OpenFileChannel) /* 198 */ (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
#endif #endif
#ifndef Tcl_OpenTcpClient #ifndef Tcl_OpenTcpClient
#define Tcl_OpenTcpClient \ #define Tcl_OpenTcpClient \
(tclStubsPtr->tcl_OpenTcpClient) /* 199 */ (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
#endif #endif
#ifndef Tcl_OpenTcpServer #ifndef Tcl_OpenTcpServer
#define Tcl_OpenTcpServer \ #define Tcl_OpenTcpServer \
skipping to change at line 2401 skipping to change at line 2534
(tclStubsPtr->tcl_PosixError) /* 204 */ (tclStubsPtr->tcl_PosixError) /* 204 */
#endif #endif
#ifndef Tcl_QueueEvent #ifndef Tcl_QueueEvent
#define Tcl_QueueEvent \ #define Tcl_QueueEvent \
(tclStubsPtr->tcl_QueueEvent) /* 205 */ (tclStubsPtr->tcl_QueueEvent) /* 205 */
#endif #endif
#ifndef Tcl_Read #ifndef Tcl_Read
#define Tcl_Read \ #define Tcl_Read \
(tclStubsPtr->tcl_Read) /* 206 */ (tclStubsPtr->tcl_Read) /* 206 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_ReapDetachedProcs #ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \ #define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */ (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif #endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs \
(tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
#endif
#endif /* __WIN32__ */
#ifndef Tcl_RecordAndEval #ifndef Tcl_RecordAndEval
#define Tcl_RecordAndEval \ #define Tcl_RecordAndEval \
(tclStubsPtr->tcl_RecordAndEval) /* 208 */ (tclStubsPtr->tcl_RecordAndEval) /* 208 */
#endif #endif
#ifndef Tcl_RecordAndEvalObj #ifndef Tcl_RecordAndEvalObj
#define Tcl_RecordAndEvalObj \ #define Tcl_RecordAndEvalObj \
(tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */ (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
#endif #endif
#ifndef Tcl_RegisterChannel #ifndef Tcl_RegisterChannel
#define Tcl_RegisterChannel \ #define Tcl_RegisterChannel \
skipping to change at line 2685 skipping to change at line 2826
(tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */ (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
#endif #endif
#ifndef Tcl_VarEvalVA #ifndef Tcl_VarEvalVA
#define Tcl_VarEvalVA \ #define Tcl_VarEvalVA \
(tclStubsPtr->tcl_VarEvalVA) /* 276 */ (tclStubsPtr->tcl_VarEvalVA) /* 276 */
#endif #endif
#ifndef Tcl_WaitPid #ifndef Tcl_WaitPid
#define Tcl_WaitPid \ #define Tcl_WaitPid \
(tclStubsPtr->tcl_WaitPid) /* 277 */ (tclStubsPtr->tcl_WaitPid) /* 277 */
#endif #endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_PanicVA
#define Tcl_PanicVA \
(tclStubsPtr->tcl_PanicVA) /* 278 */
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef Tcl_PanicVA #ifndef Tcl_PanicVA
#define Tcl_PanicVA \ #define Tcl_PanicVA \
(tclStubsPtr->tcl_PanicVA) /* 278 */ (tclStubsPtr->tcl_PanicVA) /* 278 */
#endif #endif
#endif /* __WIN32__ */
#ifndef Tcl_GetVersion #ifndef Tcl_GetVersion
#define Tcl_GetVersion \ #define Tcl_GetVersion \
(tclStubsPtr->tcl_GetVersion) /* 279 */ (tclStubsPtr->tcl_GetVersion) /* 279 */
#endif #endif
#ifndef Tcl_InitMemory #ifndef Tcl_InitMemory
#define Tcl_InitMemory \ #define Tcl_InitMemory \
(tclStubsPtr->tcl_InitMemory) /* 280 */ (tclStubsPtr->tcl_InitMemory) /* 280 */
#endif #endif
/* Slot 281 is reserved */ #ifndef Tcl_StackChannel
/* Slot 282 is reserved */ #define Tcl_StackChannel \
/* Slot 283 is reserved */ (tclStubsPtr->tcl_StackChannel) /* 281 */
#endif
#ifndef Tcl_UnstackChannel
#define Tcl_UnstackChannel \
(tclStubsPtr->tcl_UnstackChannel) /* 282 */
#endif
#ifndef Tcl_GetStackedChannel
#define Tcl_GetStackedChannel \
(tclStubsPtr->tcl_GetStackedChannel) /* 283 */
#endif
/* Slot 284 is reserved */ /* Slot 284 is reserved */
/* 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
skipping to change at line 3062 skipping to change at line 3220
(tclStubsPtr->tcl_UniCharIsGraph) /* 373 */ (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
#endif #endif
#ifndef Tcl_UniCharIsPrint #ifndef Tcl_UniCharIsPrint
#define Tcl_UniCharIsPrint \ #define Tcl_UniCharIsPrint \
(tclStubsPtr->tcl_UniCharIsPrint) /* 374 */ (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
#endif #endif
#ifndef Tcl_UniCharIsPunct #ifndef Tcl_UniCharIsPunct
#define Tcl_UniCharIsPunct \ #define Tcl_UniCharIsPunct \
(tclStubsPtr->tcl_UniCharIsPunct) /* 375 */ (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
#endif #endif
#ifndef Tcl_RegExpExecObj
#define Tcl_RegExpExecObj \
(tclStubsPtr->tcl_RegExpExecObj) /* 376 */
#endif
#ifndef Tcl_RegExpGetInfo
#define Tcl_RegExpGetInfo \
(tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
#endif
#ifndef Tcl_NewUnicodeObj
#define Tcl_NewUnicodeObj \
(tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
#endif
#ifndef Tcl_SetUnicodeObj
#define Tcl_SetUnicodeObj \
(tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
#endif
#ifndef Tcl_GetCharLength
#define Tcl_GetCharLength \
(tclStubsPtr->tcl_GetCharLength) /* 380 */
#endif
#ifndef Tcl_GetUniChar
#define Tcl_GetUniChar \
(tclStubsPtr->tcl_GetUniChar) /* 381 */
#endif
#ifndef Tcl_GetUnicode
#define Tcl_GetUnicode \
(tclStubsPtr->tcl_GetUnicode) /* 382 */
#endif
#ifndef Tcl_GetRange
#define Tcl_GetRange \
(tclStubsPtr->tcl_GetRange) /* 383 */
#endif
#ifndef Tcl_AppendUnicodeToObj
#define Tcl_AppendUnicodeToObj \
(tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
#endif
#ifndef Tcl_RegExpMatchObj
#define Tcl_RegExpMatchObj \
(tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
#endif
#ifndef Tcl_SetNotifier
#define Tcl_SetNotifier \
(tclStubsPtr->tcl_SetNotifier) /* 386 */
#endif
#ifndef Tcl_GetAllocMutex
#define Tcl_GetAllocMutex \
(tclStubsPtr->tcl_GetAllocMutex) /* 387 */
#endif
#ifndef Tcl_GetChannelNames
#define Tcl_GetChannelNames \
(tclStubsPtr->tcl_GetChannelNames) /* 388 */
#endif
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
/* !END!: Do not edit above this line. */ /* !END!: Do not edit above this line. */
#endif /* _TCLDECLS */ #endif /* _TCLDECLS */
 End of changes. 36 change blocks. 
18 lines changed or deleted 249 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/