From 657d5f65c08b62b65e3c2d7961715577e28073df Mon Sep 17 00:00:00 2001 From: stanton Date: Wed, 10 Mar 1999 06:41:48 +0000 Subject: Merged 8.0 stub changes --- doc/AddErrInfo.3 | 4 +- generic/tcl.decls | 877 ++++++------- generic/tcl.h | 17 +- generic/tclDecls.h | 2973 +++++++++++++++++++++++---------------------- generic/tclInt.decls | 74 +- generic/tclIntDecls.h | 86 +- generic/tclIntPlatDecls.h | 189 +-- generic/tclIntPlatStubs.c | 196 +-- generic/tclIntStubs.c | 30 +- generic/tclPlatDecls.h | 30 - generic/tclPlatStubs.c | 35 +- generic/tclStubInit.c | 751 ++++++------ generic/tclStubs.c | 2352 +++++++++++++++++------------------ tests/pkg.test | 14 +- tools/genStubs.tcl | 194 ++- unix/tclUnixPort.h | 7 +- win/tclWinChan.c | 5 +- win/tclWinInt.h | 15 +- 18 files changed, 3923 insertions(+), 3926 deletions(-) diff --git a/doc/AddErrInfo.3 b/doc/AddErrInfo.3 index 9a9e21c..b00bfd5 100644 --- a/doc/AddErrInfo.3 +++ b/doc/AddErrInfo.3 @@ -5,13 +5,13 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: AddErrInfo.3,v 1.1.2.1.2.1 1999/03/08 20:14:03 stanton Exp $ +'\" RCS: @(#) $Id: AddErrInfo.3,v 1.1.2.1.2.2 1999/03/10 06:41:48 stanton Exp $ '\" .so man.macros .TH Tcl_AddErrorInfo 3 7.5 Tcl "Tcl Library Procedures" .BS .SH NAME -Tcl_AddObjErrorInfo, Tcl_AddErrorInfo, Tcl_SetErrorCode, Tcl_PosixError \- record information about errors +Tcl_AddObjErrorInfo, Tcl_AddErrorInfo, Tcl_SetErrorCode, Tcl_SetErrorCodeVA, Tcl_PosixError \- record information about errors .SH SYNOPSIS .nf \fB#include \fR diff --git a/generic/tcl.decls b/generic/tcl.decls index beea369..600b6b5 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.2.4.1 1999/03/08 20:14:04 stanton Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.2.4.2 1999/03/10 06:41:48 stanton Exp $ library tcl @@ -27,1097 +27,1124 @@ hooks {tclPlat tclInt tclIntPlat} # to preserve backwards compatibility. declare 0 generic { - void Tcl_AddErrorInfo (Tcl_Interp *interp, CONST char *message) + int Tcl_PkgProvideEx(Tcl_Interp *interp, char *name, char *version, \ + ClientData clientData) } declare 1 generic { - void Tcl_AddObjErrorInfo(Tcl_Interp *interp, CONST char *message, \ - int length) + char * Tcl_PkgRequireEx(Tcl_Interp *interp, char *name, char *version, \ + int exact, ClientData *clientDataPtr) } declare 2 generic { - char * Tcl_Alloc(unsigned int size) + void panic(char *format, ...) } declare 3 generic { - void Tcl_AllowExceptions(Tcl_Interp *interp) + char * Tcl_Alloc(unsigned int size) } declare 4 generic { - int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr) + void Tcl_Free(char *ptr) } declare 5 generic { - void Tcl_AppendElement(Tcl_Interp *interp, CONST char *str) + char * Tcl_Realloc(char *ptr, unsigned int size) } declare 6 generic { - void Tcl_AppendResult(Tcl_Interp *interp, ...) + char * Tcl_DbCkalloc(unsigned int size, char *file, int line) } declare 7 generic { - void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList) + int Tcl_DbCkfree(char *ptr, char *file, int line) } declare 8 generic { - void Tcl_AppendToObj(Tcl_Obj *objPtr, char *bytes, int length) + char * Tcl_DbCkrealloc(char *ptr, unsigned int size, char *file, int line) } -declare 9 generic { - void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...) + +# Tcl_CreateFileHandler and Tcl_DeleteFileHandler are only available on unix, +# but they are part of the old generic interface, so we include them here for +# compatibility reasons. + +declare 9 unix { + void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc, \ + ClientData clientData) } -declare 10 generic { - void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList) +declare 10 unix { + void Tcl_DeleteFileHandler(int fd) } + declare 11 generic { - Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, \ - ClientData clientData) + void Tcl_SetTimer(Tcl_Time *timePtr) } declare 12 generic { - void Tcl_AsyncDelete(Tcl_AsyncHandler async) + void Tcl_Sleep(int ms) } declare 13 generic { - int Tcl_AsyncInvoke(Tcl_Interp *interp, int code) + int Tcl_WaitForEvent(Tcl_Time *timePtr) } declare 14 generic { - void Tcl_AsyncMark(Tcl_AsyncHandler async) + int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr) } declare 15 generic { - int Tcl_AsyncReady(void) + void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...) } declare 16 generic { - void Tcl_BackgroundError(Tcl_Interp *interp) + void Tcl_AppendToObj(Tcl_Obj *objPtr, char *bytes, int length) } declare 17 generic { - char Tcl_Backslash(CONST char *src, int *readPtr) + Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]) } declare 18 generic { - int Tcl_BadChannelOption(Tcl_Interp *interp, char *optionName, \ - char *optionList) + int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + Tcl_ObjType *typePtr) } declare 19 generic { - void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, \ - ClientData clientData) + void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, char *file, int line) } declare 20 generic { - void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData) + void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, char *file, int line) } declare 21 generic { - int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan) + int Tcl_DbIsShared(Tcl_Obj *objPtr, char *file, int line) } declare 22 generic { - int Tcl_CommandComplete(char *cmd) + Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, char *file, int line) } declare 23 generic { - char * Tcl_Concat(int argc, char **argv) + Tcl_Obj * Tcl_DbNewByteArrayObj(unsigned char *bytes, int length, \ + char *file, int line) } declare 24 generic { - Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[]) + Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, char *file, int line) } declare 25 generic { - int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst, \ - int flags) + Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST objv[], char *file, \ + int line) } declare 26 generic { - int Tcl_ConvertElement(CONST char *src, char *dst, int flags) + Tcl_Obj * Tcl_DbNewLongObj(long longValue, char *file, int line) } declare 27 generic { - int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, \ - Tcl_ObjType *typePtr) + Tcl_Obj * Tcl_DbNewObj(char *file, int line) } declare 28 generic { - int Tcl_CreateAlias(Tcl_Interp *slave, char *slaveCmd, \ - Tcl_Interp *target, char *targetCmd, int argc, char **argv) + Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, \ + char *file, int line) } declare 29 generic { - int Tcl_CreateAliasObj(Tcl_Interp *slave, char *slaveCmd, \ - Tcl_Interp *target, char *targetCmd, int objc, \ - Tcl_Obj *CONST objv[]) + Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr) } declare 30 generic { - Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, char *chanName, \ - ClientData instanceData, int mask) + void TclFreeObj(Tcl_Obj *objPtr) } declare 31 generic { - void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, \ - Tcl_ChannelProc *proc, ClientData clientData) + int Tcl_GetBoolean(Tcl_Interp *interp, char *string, int *boolPtr) } declare 32 generic { - void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \ - ClientData clientData) + int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + int *boolPtr) } declare 33 generic { - Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \ - Tcl_CmdProc *proc, ClientData clientData, \ - Tcl_CmdDeleteProc *deleteProc) + unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr) } declare 34 generic { - void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, \ - Tcl_EventCheckProc *checkProc, ClientData clientData) + int Tcl_GetDouble(Tcl_Interp *interp, char *string, double *doublePtr) } declare 35 generic { - void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData) + int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + double *doublePtr) } declare 36 generic { - Tcl_Interp * Tcl_CreateInterp(void) + int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + char **tablePtr, char *msg, int flags, int *indexPtr) } declare 37 generic { - void Tcl_CreateMathFunc(Tcl_Interp *interp, char *name, int numArgs, \ - Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData) + int Tcl_GetInt(Tcl_Interp *interp, char *string, int *intPtr) } declare 38 generic { - Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, char *cmdName, \ - Tcl_ObjCmdProc *proc, ClientData clientData, \ - Tcl_CmdDeleteProc *deleteProc) + int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr) } declare 39 generic { - Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, char *slaveName, \ - int isSafe) + int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr) } declare 40 generic { - Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, \ - Tcl_TimerProc *proc, ClientData clientData) + Tcl_ObjType * Tcl_GetObjType(char *typeName) } declare 41 generic { - Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, \ - Tcl_CmdTraceProc *proc, ClientData clientData) + char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr) } declare 42 generic { - char * Tcl_DbCkalloc(unsigned int size, char *file, int line) + void Tcl_InvalidateStringRep(Tcl_Obj *objPtr) } declare 43 generic { - int Tcl_DbCkfree(char *ptr, char *file, int line) + int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr, \ + Tcl_Obj *elemListPtr) } declare 44 generic { - char * Tcl_DbCkrealloc(char *ptr, unsigned int size, char *file, int line) + int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr, \ + Tcl_Obj *objPtr) } declare 45 generic { - void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, char *file, int line) + int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \ + int *objcPtr, Tcl_Obj ***objvPtr) } declare 46 generic { - void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, char *file, int line) + int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \ + Tcl_Obj **objPtrPtr) } declare 47 generic { - int Tcl_DbIsShared(Tcl_Obj *objPtr, char *file, int line) + int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, int *intPtr) } declare 48 generic { - Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, char *file, int line) + int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first, \ + int count, int objc, Tcl_Obj *CONST objv[]) } declare 49 generic { - Tcl_Obj * Tcl_DbNewByteArrayObj(unsigned char *bytes, int length, \ - char *file, int line) + Tcl_Obj * Tcl_NewBooleanObj(int boolValue) } declare 50 generic { - Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, char *file, int line) + Tcl_Obj * Tcl_NewByteArrayObj(unsigned char *bytes, int length) } declare 51 generic { - Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST objv[], char *file, \ - int line) + Tcl_Obj * Tcl_NewDoubleObj(double doubleValue) } declare 52 generic { - Tcl_Obj * Tcl_DbNewLongObj(long longValue, char *file, int line) + Tcl_Obj * Tcl_NewIntObj(int intValue) } declare 53 generic { - Tcl_Obj * Tcl_DbNewObj(char *file, int line) + Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]) } declare 54 generic { - Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length, \ - char *file, int line) + Tcl_Obj * Tcl_NewLongObj(long longValue) } declare 55 generic { - void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name) + Tcl_Obj * Tcl_NewObj(void) } declare 56 generic { - int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName) + Tcl_Obj *Tcl_NewStringObj(CONST char *bytes, int length) } declare 57 generic { - int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command) + void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue) } declare 58 generic { - void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \ - ClientData clientData) + unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length) } declare 59 generic { - void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \ - ClientData clientData) + void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, unsigned char *bytes, int length) } declare 60 generic { - void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData) + void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue) } declare 61 generic { - void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, \ - Tcl_EventCheckProc *checkProc, ClientData clientData) + void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue) } declare 62 generic { - void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData) + void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[]) } declare 63 generic { - void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr) + void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue) } declare 64 generic { - void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr) + void Tcl_SetObjLength(Tcl_Obj *objPtr, int length) } declare 65 generic { - void Tcl_DeleteInterp(Tcl_Interp *interp) + void Tcl_SetStringObj(Tcl_Obj *objPtr, char *bytes, int length) } declare 66 generic { - void Tcl_DeleteTimerHandler(Tcl_TimerToken token) + void Tcl_AddErrorInfo(Tcl_Interp *interp, CONST char *message) } declare 67 generic { - void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace) + void Tcl_AddObjErrorInfo(Tcl_Interp *interp, CONST char *message, \ + int length) } declare 68 generic { - void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr) + void Tcl_AllowExceptions(Tcl_Interp *interp) } declare 69 generic { - void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, \ - Tcl_InterpDeleteProc *proc, ClientData clientData) + void Tcl_AppendElement(Tcl_Interp *interp, CONST char *string) } declare 70 generic { - int Tcl_DoOneEvent(int flags) + void Tcl_AppendResult(Tcl_Interp *interp, ...) } declare 71 generic { - void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData) + Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, \ + ClientData clientData) } declare 72 generic { - char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *str, int length) + void Tcl_AsyncDelete(Tcl_AsyncHandler async) } declare 73 generic { - char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *str) + int Tcl_AsyncInvoke(Tcl_Interp *interp, int code) } declare 74 generic { - void Tcl_DStringEndSublist(Tcl_DString *dsPtr) + void Tcl_AsyncMark(Tcl_AsyncHandler async) } declare 75 generic { - void Tcl_DStringFree(Tcl_DString *dsPtr) + int Tcl_AsyncReady(void) } declare 76 generic { - void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr) + void Tcl_BackgroundError(Tcl_Interp *interp) } declare 77 generic { - void Tcl_DStringInit(Tcl_DString *dsPtr) + char Tcl_Backslash(CONST char *src, int *readPtr) } declare 78 generic { - void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr) + int Tcl_BadChannelOption(Tcl_Interp *interp, char *optionName, \ + char *optionList) } declare 79 generic { - void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length) + void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, \ + ClientData clientData) } declare 80 generic { - void Tcl_DStringStartSublist(Tcl_DString *dsPtr) + void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData) } declare 81 generic { - int Tcl_DumpActiveMemory(char *fileName) + int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan) } declare 82 generic { - Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr) + int Tcl_CommandComplete(char *cmd) } declare 83 generic { - int Tcl_Eof(Tcl_Channel chan) + char * Tcl_Concat(int argc, char **argv) } declare 84 generic { - char * Tcl_ErrnoId(void) + int Tcl_ConvertElement(CONST char *src, char *dst, int flags) } declare 85 generic { - char * Tcl_ErrnoMsg(int err) + int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst, \ + int flags) } declare 86 generic { - int Tcl_Eval(Tcl_Interp *interp, char *str) + int Tcl_CreateAlias(Tcl_Interp *slave, char *slaveCmd, \ + Tcl_Interp *target, char *targetCmd, int argc, char **argv) } declare 87 generic { - int Tcl_EvalFile(Tcl_Interp *interp, char *fileName) + int Tcl_CreateAliasObj(Tcl_Interp *slave, char *slaveCmd, \ + Tcl_Interp *target, char *targetCmd, int objc, \ + Tcl_Obj *CONST objv[]) } declare 88 generic { - void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc) + Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, char *chanName, \ + ClientData instanceData, int mask) } declare 89 generic { - int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr) + void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, \ + Tcl_ChannelProc *proc, ClientData clientData) } declare 90 generic { - void Tcl_Exit(int status) + void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \ + ClientData clientData) } declare 91 generic { - int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \ - char *cmdName) + Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \ + Tcl_CmdProc *proc, ClientData clientData, \ + Tcl_CmdDeleteProc *deleteProc) } declare 92 generic { - int Tcl_ExprBoolean(Tcl_Interp *interp, char *str, int *ptr) + void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, \ + Tcl_EventCheckProc *checkProc, ClientData clientData) } declare 93 generic { - int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr) + void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData) } declare 94 generic { - int Tcl_ExprDouble(Tcl_Interp *interp, char *str, double *ptr) + Tcl_Interp * Tcl_CreateInterp(void) } declare 95 generic { - int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr) + void Tcl_CreateMathFunc(Tcl_Interp *interp, char *name, int numArgs, \ + Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData) } declare 96 generic { - int Tcl_ExprLong(Tcl_Interp *interp, char *str, long *ptr) + Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, char *cmdName, \ + Tcl_ObjCmdProc *proc, ClientData clientData, \ + Tcl_CmdDeleteProc *deleteProc) } declare 97 generic { - int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr) + Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, char *slaveName, \ + int isSafe) } declare 98 generic { - int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ - Tcl_Obj **resultPtrPtr) + Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, \ + Tcl_TimerProc *proc, ClientData clientData) } declare 99 generic { - int Tcl_ExprString(Tcl_Interp *interp, char *str) + Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, \ + Tcl_CmdTraceProc *proc, ClientData clientData) } declare 100 generic { - void Tcl_Finalize(void) + void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name) } declare 101 generic { - void Tcl_FindExecutable(CONST char *argv0) + void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \ + ClientData clientData) } declare 102 generic { - Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, \ - Tcl_HashSearch *searchPtr) + void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \ + ClientData clientData) } declare 103 generic { - int Tcl_Flush(Tcl_Channel chan) + int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName) } declare 104 generic { - void Tcl_Free(char *ptr) + int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command) } declare 105 generic { - void TclFreeObj(Tcl_Obj *objPtr) + void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData) } declare 106 generic { - void Tcl_FreeResult(Tcl_Interp *interp) + void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, \ + Tcl_EventCheckProc *checkProc, ClientData clientData) } declare 107 generic { - int Tcl_GetAlias(Tcl_Interp *interp, char *slaveCmd, \ - Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *argcPtr, char ***argvPtr) + void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData) } declare 108 generic { - int Tcl_GetAliasObj(Tcl_Interp *interp, char *slaveCmd, \ - Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv) + void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr) } declare 109 generic { - ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \ - Tcl_InterpDeleteProc **procPtr) + void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr) } declare 110 generic { - int Tcl_GetBoolean(Tcl_Interp *interp, char *str, int *boolPtr) + void Tcl_DeleteInterp(Tcl_Interp *interp) } declare 111 generic { - int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ - int *boolPtr) + void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr) } declare 112 generic { - unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr) + void Tcl_DeleteTimerHandler(Tcl_TimerToken token) } declare 113 generic { - Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, char *chanName, \ - int *modePtr) + void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace) } declare 114 generic { - int Tcl_GetChannelBufferSize(Tcl_Channel chan) + void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, \ + Tcl_InterpDeleteProc *proc, ClientData clientData) } declare 115 generic { - int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, \ - ClientData *handlePtr) + int Tcl_DoOneEvent(int flags) } declare 116 generic { - ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan) + void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData) } declare 117 generic { - int Tcl_GetChannelMode(Tcl_Channel chan) + char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *string, \ + int length) } declare 118 generic { - char * Tcl_GetChannelName(Tcl_Channel chan) + char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string) } declare 119 generic { - int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \ - char *optionName, Tcl_DString *dsPtr) + void Tcl_DStringEndSublist(Tcl_DString *dsPtr) } declare 120 generic { - Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan) + void Tcl_DStringFree(Tcl_DString *dsPtr) } declare 121 generic { - int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \ - Tcl_CmdInfo *infoPtr) + void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr) } declare 122 generic { - char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command) + void Tcl_DStringInit(Tcl_DString *dsPtr) } declare 123 generic { - int Tcl_GetDouble(Tcl_Interp *interp, char *str, double *doublePtr) + void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr) } declare 124 generic { - int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ - double *doublePtr) + void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length) } declare 125 generic { - int Tcl_GetErrno(void) + void Tcl_DStringStartSublist(Tcl_DString *dsPtr) } declare 126 generic { - char * Tcl_GetHostName(void) + int Tcl_Eof(Tcl_Channel chan) } declare 127 generic { - int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ - char **tablePtr, char *msg, int flags, int *indexPtr) + char * Tcl_ErrnoId(void) } declare 128 generic { - int Tcl_GetInt(Tcl_Interp *interp, char *str, int *intPtr) + char * Tcl_ErrnoMsg(int err) } declare 129 generic { - int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp) + int Tcl_Eval(Tcl_Interp *interp, char *string) } declare 130 generic { - int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr) + int Tcl_EvalFile(Tcl_Interp *interp, char *fileName) } declare 131 generic { - int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr) + int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } declare 132 generic { - Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp) + void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc) } declare 133 generic { - CONST char * Tcl_GetNameOfExecutable(void) + void Tcl_Exit(int status) } declare 134 generic { - Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp) + int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \ + char *cmdName) } declare 135 generic { - Tcl_ObjType * Tcl_GetObjType(char *typeName) + int Tcl_ExprBoolean(Tcl_Interp *interp, char *string, int *ptr) } declare 136 generic { - Tcl_PathType Tcl_GetPathType(char *path) + int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr) } declare 137 generic { - int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr) + int Tcl_ExprDouble(Tcl_Interp *interp, char *string, double *ptr) } declare 138 generic { - int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr) + int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr) } declare 139 generic { - int Tcl_GetServiceMode(void) + int Tcl_ExprLong(Tcl_Interp *interp, char *string, long *ptr) } declare 140 generic { - Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, char *slaveName) + int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr) } declare 141 generic { - Tcl_Channel Tcl_GetStdChannel(int type) + int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + Tcl_Obj **resultPtrPtr) } declare 142 generic { - char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr) + int Tcl_ExprString(Tcl_Interp *interp, char *string) } declare 143 generic { - char * Tcl_GetStringResult(Tcl_Interp *interp) + void Tcl_Finalize(void) } declare 144 generic { - char * Tcl_GetVar(Tcl_Interp *interp, char *varName, int flags) + void Tcl_FindExecutable(CONST char *argv0) } declare 145 generic { - char * Tcl_GetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags) + Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, \ + Tcl_HashSearch *searchPtr) } declare 146 generic { - int Tcl_GlobalEval(Tcl_Interp *interp, char *command) + int Tcl_Flush(Tcl_Channel chan) } declare 147 generic { - int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr) + void Tcl_FreeResult(Tcl_Interp *interp) } declare 148 generic { - char * Tcl_HashStats(Tcl_HashTable *tablePtr) + int Tcl_GetAlias(Tcl_Interp *interp, char *slaveCmd, \ + Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *argcPtr, \ + char ***argvPtr) } declare 149 generic { - int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \ - char *hiddenCmdToken) + int Tcl_GetAliasObj(Tcl_Interp *interp, char *slaveCmd, \ + Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *objcPtr, \ + Tcl_Obj ***objv) } declare 150 generic { - int Tcl_Init(Tcl_Interp *interp) + ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \ + Tcl_InterpDeleteProc **procPtr) } declare 151 generic { - void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType) + Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, char *chanName, \ + int *modePtr) } declare 152 generic { - void Tcl_InitMemory(Tcl_Interp *interp) + int Tcl_GetChannelBufferSize(Tcl_Channel chan) } declare 153 generic { - int Tcl_InputBlocked(Tcl_Channel chan) + int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, \ + ClientData *handlePtr) } declare 154 generic { - int Tcl_InputBuffered(Tcl_Channel chan) + ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan) } declare 155 generic { - int Tcl_InterpDeleted(Tcl_Interp *interp) + int Tcl_GetChannelMode(Tcl_Channel chan) } declare 156 generic { - int Tcl_IsSafe(Tcl_Interp *interp) + char * Tcl_GetChannelName(Tcl_Channel chan) } declare 157 generic { - void Tcl_InvalidateStringRep(Tcl_Obj *objPtr) + int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \ + char *optionName, Tcl_DString *dsPtr) } declare 158 generic { - char * Tcl_JoinPath(int argc, char **argv, Tcl_DString *resultPtr) + Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan) } declare 159 generic { - int Tcl_LinkVar(Tcl_Interp *interp, char *varName, char *addr, int type) + int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \ + Tcl_CmdInfo *infoPtr) } declare 160 generic { - int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr, \ - Tcl_Obj *elemListPtr) + char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command) } declare 161 generic { - int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr, \ - Tcl_Obj *objPtr) + int Tcl_GetErrno(void) } declare 162 generic { - int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \ - int *objcPtr, Tcl_Obj ***objvPtr) + char * Tcl_GetHostName(void) } declare 163 generic { - int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \ - Tcl_Obj **objPtrPtr) + int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp) } declare 164 generic { - int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, int *intPtr) + Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp) } declare 165 generic { - int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first, \ - int count, int objc, Tcl_Obj *CONST objv[]) + CONST char * Tcl_GetNameOfExecutable(void) } declare 166 generic { - Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode) + Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp) } -declare 167 generic { - int Tcl_MakeSafe(Tcl_Interp *interp) + +# Tcl_GetOpenFile is only available on unix, but it is a part of the old +# generic interface, so we inlcude it here for compatibility reasons. + +declare 167 unix { + int Tcl_GetOpenFile(Tcl_Interp *interp, char *string, int write, \ + int checkUsage, ClientData *filePtr) } + declare 168 generic { - Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket) + Tcl_PathType Tcl_GetPathType(char *path) } declare 169 generic { - char * Tcl_Merge(int argc, char **argv) + int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr) } declare 170 generic { - Tcl_Obj * Tcl_NewBooleanObj(int boolValue) + int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr) } declare 171 generic { - Tcl_Obj * Tcl_NewByteArrayObj(unsigned char *bytes, int length) + int Tcl_GetServiceMode(void) } declare 172 generic { - Tcl_Obj * Tcl_NewDoubleObj(double doubleValue) + Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, char *slaveName) } declare 173 generic { - Tcl_Obj * Tcl_NewIntObj(int intValue) + Tcl_Channel Tcl_GetStdChannel(int type) } declare 174 generic { - Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[]) + char * Tcl_GetStringResult(Tcl_Interp *interp) } declare 175 generic { - Tcl_Obj * Tcl_NewLongObj(long longValue) + char * Tcl_GetVar(Tcl_Interp *interp, char *varName, int flags) } declare 176 generic { - Tcl_Obj * Tcl_NewObj(void) + char * Tcl_GetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags) } declare 177 generic { - Tcl_Obj *Tcl_NewStringObj(CONST char *bytes, int length) + int Tcl_GlobalEval(Tcl_Interp *interp, char *command) } declare 178 generic { - Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr) + int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } declare 179 generic { - void Tcl_NotifyChannel(Tcl_Channel channel, int mask) + int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \ + char *hiddenCmdToken) } declare 180 generic { - Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ - Tcl_Obj *part2Ptr, int flags) + int Tcl_Init(Tcl_Interp *interp) } declare 181 generic { - Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ - Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags) + void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType) } declare 182 generic { - Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, \ - char **argv, int flags) + int Tcl_InputBlocked(Tcl_Channel chan) } declare 183 generic { - Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, char *fileName, \ - char *modeString, int permissions) + int Tcl_InputBuffered(Tcl_Channel chan) } declare 184 generic { - Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, \ - char *address, char *myaddr, int myport, int async) + int Tcl_InterpDeleted(Tcl_Interp *interp) } declare 185 generic { - Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, char *host, \ - Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) + int Tcl_IsSafe(Tcl_Interp *interp) } declare 186 generic { - void panic(char *format, ...) + char * Tcl_JoinPath(int argc, char **argv, Tcl_DString *resultPtr) } declare 187 generic { - void panicVA(char *format, va_list argList) -} -declare 188 generic { - char * Tcl_ParseVar(Tcl_Interp *interp, char *str, char **termPtr) + int Tcl_LinkVar(Tcl_Interp *interp, char *varName, char *addr, int type) } + +# This slot is reserved for use by the plus patch: +# declare 188 generic { +# Tcl_MainLoop +# } + declare 189 generic { - char * Tcl_PkgPresent(Tcl_Interp *interp, char *name, char *version, \ - int exact) + Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode) } declare 190 generic { - char * Tcl_PkgPresentEx(Tcl_Interp *interp, char *name, char *version, \ - int exact, ClientData *clientDataPtr) + int Tcl_MakeSafe(Tcl_Interp *interp) } declare 191 generic { - int Tcl_PkgProvide(Tcl_Interp *interp, char *name, char *version) + Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket) } declare 192 generic { - int Tcl_PkgProvideEx(Tcl_Interp *interp, char *name, char *version, \ - ClientData clientData) + char * Tcl_Merge(int argc, char **argv) } declare 193 generic { - char * Tcl_PkgRequire(Tcl_Interp *interp, char *name, char *version, \ - int exact) + Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr) } declare 194 generic { - char * Tcl_PkgRequireEx(Tcl_Interp *interp, char *name, char *version, \ - int exact, ClientData *clientDataPtr) + void Tcl_NotifyChannel(Tcl_Channel channel, int mask) } declare 195 generic { - char * Tcl_PosixError(Tcl_Interp *interp) + Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ + Tcl_Obj *part2Ptr, int flags) } declare 196 generic { - void Tcl_Preserve(ClientData data) + Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ + Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags) } declare 197 generic { - void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst) + Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, \ + char **argv, int flags) } declare 198 generic { - int Tcl_PutEnv(CONST char *str) + Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, char *fileName, \ + char *modeString, int permissions) } declare 199 generic { - void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position) + Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, \ + char *address, char *myaddr, int myport, int async) } declare 200 generic { - int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead) + Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, char *host, \ + Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) } declare 201 generic { - char * Tcl_Realloc(char *ptr, unsigned int size) + void Tcl_Preserve(ClientData data) } declare 202 generic { - void Tcl_ReapDetachedProcs(void) + void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst) } declare 203 generic { - int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags) + int Tcl_PutEnv(CONST char *string) } declare 204 generic { - int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags) + char * Tcl_PosixError(Tcl_Interp *interp) } declare 205 generic { - Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, char *str) + void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position) } declare 206 generic { - int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, \ - CONST char *str, CONST char *start) + int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead) } declare 207 generic { - int Tcl_RegExpMatch(Tcl_Interp *interp, char *str, char *pattern) + void Tcl_ReapDetachedProcs(void) } declare 208 generic { - void Tcl_RegExpRange(Tcl_RegExp regexp, int index, char **startPtr, \ - char **endPtr) + int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags) } declare 209 generic { - void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan) + int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags) } declare 210 generic { - void Tcl_RegisterObjType(Tcl_ObjType *typePtr) + void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan) } declare 211 generic { - void Tcl_Release(ClientData clientData) + void Tcl_RegisterObjType(Tcl_ObjType *typePtr) } declare 212 generic { - void Tcl_ResetResult(Tcl_Interp *interp) + Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, char *string) } declare 213 generic { - int Tcl_ScanCountedElement(CONST char *str, int length, int *flagPtr) + int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, \ + CONST char *string, CONST char *start) } declare 214 generic { - int Tcl_ScanElement(CONST char *str, int *flagPtr) + int Tcl_RegExpMatch(Tcl_Interp *interp, char *string, char *pattern) } declare 215 generic { - int Tcl_Seek(Tcl_Channel chan, int offset, int mode) + void Tcl_RegExpRange(Tcl_RegExp regexp, int index, char **startPtr, \ + char **endPtr) } declare 216 generic { - int Tcl_ServiceAll(void) + void Tcl_Release(ClientData clientData) } declare 217 generic { - int Tcl_ServiceEvent(int flags) + void Tcl_ResetResult(Tcl_Interp *interp) } declare 218 generic { - void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \ - Tcl_InterpDeleteProc *proc, ClientData clientData) + int Tcl_ScanElement(CONST char *string, int *flagPtr) } declare 219 generic { - void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue) + int Tcl_ScanCountedElement(CONST char *string, int length, int *flagPtr) } declare 220 generic { - unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length) + int Tcl_Seek(Tcl_Channel chan, int offset, int mode) } declare 221 generic { - void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, unsigned char *bytes, int length) + int Tcl_ServiceAll(void) } declare 222 generic { - void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz) + int Tcl_ServiceEvent(int flags) } declare 223 generic { - int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \ - char *optionName, char *newValue) + void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \ + Tcl_InterpDeleteProc *proc, ClientData clientData) } declare 224 generic { - int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \ - Tcl_CmdInfo *infoPtr) + void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz) } declare 225 generic { - void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue) + int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \ + char *optionName, char *newValue) } declare 226 generic { - void Tcl_SetErrno(int err) + int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \ + Tcl_CmdInfo *infoPtr) } declare 227 generic { - void Tcl_SetErrorCode(Tcl_Interp *interp, ...) + void Tcl_SetErrno(int err) } declare 228 generic { - void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList) + void Tcl_SetErrorCode(Tcl_Interp *interp, ...) } declare 229 generic { - void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue) + void Tcl_SetMaxBlockTime(Tcl_Time *timePtr) } declare 230 generic { - void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[]) + void Tcl_SetPanicProc(Tcl_PanicProc *panicProc) } declare 231 generic { - void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue) + int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) } declare 232 generic { - void Tcl_SetMaxBlockTime(Tcl_Time *timePtr) + void Tcl_SetResult(Tcl_Interp *interp, char *string, \ + Tcl_FreeProc *freeProc) } declare 233 generic { - void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr) + int Tcl_SetServiceMode(int mode) } declare 234 generic { - void Tcl_SetObjLength(Tcl_Obj *objPtr, int length) + void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr) } declare 235 generic { void Tcl_SetObjResult(Tcl_Interp *interp, Tcl_Obj *resultObjPtr) } declare 236 generic { - void Tcl_SetPanicProc(Tcl_PanicProc *panicProc) + void Tcl_SetStdChannel(Tcl_Channel channel, int type) } declare 237 generic { - int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth) + char * Tcl_SetVar(Tcl_Interp *interp, char *varName, char *newValue, \ + int flags) } declare 238 generic { - void Tcl_SetResult(Tcl_Interp *interp, char *str, \ - Tcl_FreeProc *freeProc) + char * Tcl_SetVar2(Tcl_Interp *interp, char *part1, char *part2, \ + char *newValue, int flags) } declare 239 generic { - int Tcl_SetServiceMode(int mode) + char * Tcl_SignalId(int sig) } declare 240 generic { - void Tcl_SetStdChannel(Tcl_Channel channel, int type) + char * Tcl_SignalMsg(int sig) } declare 241 generic { - void Tcl_SetStringObj(Tcl_Obj *objPtr, char *bytes, int length) + void Tcl_SourceRCFile(Tcl_Interp *interp) } declare 242 generic { - void Tcl_SetTimer(Tcl_Time *timePtr) + int Tcl_SplitList(Tcl_Interp *interp, CONST char *list, int *argcPtr, \ + char ***argvPtr) } declare 243 generic { - char * Tcl_SetVar(Tcl_Interp *interp, char *varName, char *newValue, \ - int flags) + void Tcl_SplitPath(CONST char *path, int *argcPtr, char ***argvPtr) } declare 244 generic { - char * Tcl_SetVar2(Tcl_Interp *interp, char *part1, char *part2, \ - char *newValue, int flags) + void Tcl_StaticPackage(Tcl_Interp *interp, char *pkgName, \ + Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc) } declare 245 generic { - char * Tcl_SignalId(int sig) + int Tcl_StringMatch(CONST char *string, CONST char *pattern) } declare 246 generic { - char * Tcl_SignalMsg(int sig) + int Tcl_Tell(Tcl_Channel chan) } declare 247 generic { - void Tcl_Sleep(int ms) + int Tcl_TraceVar(Tcl_Interp *interp, char *varName, int flags, \ + Tcl_VarTraceProc *proc, ClientData clientData) } declare 248 generic { - void Tcl_SourceRCFile(Tcl_Interp *interp) + int Tcl_TraceVar2(Tcl_Interp *interp, char *part1, char *part2, \ + int flags, Tcl_VarTraceProc *proc, ClientData clientData) } declare 249 generic { - int Tcl_SplitList(Tcl_Interp *interp, CONST char *listStr, int *argcPtr, \ - char ***argvPtr) + char * Tcl_TranslateFileName(Tcl_Interp *interp, char *name, \ + Tcl_DString *bufferPtr) } declare 250 generic { - void Tcl_SplitPath(CONST char *path, int *argcPtr, char ***argvPtr) + int Tcl_Ungets(Tcl_Channel chan, char *str, int len, int atHead) } declare 251 generic { - void Tcl_StaticPackage(Tcl_Interp *interp, char *pkgName, \ - Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc) + void Tcl_UnlinkVar(Tcl_Interp *interp, char *varName) } declare 252 generic { - int Tcl_StringMatch(CONST char *str, CONST char *pattern) + int Tcl_UnregisterChannel(Tcl_Interp *interp, Tcl_Channel chan) } declare 253 generic { - int Tcl_Tell(Tcl_Channel chan) + int Tcl_UnsetVar(Tcl_Interp *interp, char *varName, int flags) } declare 254 generic { - int Tcl_TraceVar(Tcl_Interp *interp, char *varName, int flags, \ - Tcl_VarTraceProc *proc, ClientData clientData) + int Tcl_UnsetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags) } declare 255 generic { - int Tcl_TraceVar2(Tcl_Interp *interp, char *part1, char *part2, \ - int flags, Tcl_VarTraceProc *proc, ClientData clientData) + void Tcl_UntraceVar(Tcl_Interp *interp, char *varName, int flags, \ + Tcl_VarTraceProc *proc, ClientData clientData) } declare 256 generic { - char * Tcl_TranslateFileName(Tcl_Interp *interp, char *name, \ - Tcl_DString *bufferPtr) + void Tcl_UntraceVar2(Tcl_Interp *interp, char *part1, char *part2, \ + int flags, Tcl_VarTraceProc *proc, ClientData clientData) } declare 257 generic { - int Tcl_Ungets(Tcl_Channel chan, char *str, int len, int atHead) + void Tcl_UpdateLinkedVar(Tcl_Interp *interp, char *varName) } declare 258 generic { - void Tcl_UnlinkVar(Tcl_Interp *interp, char *varName) + int Tcl_UpVar(Tcl_Interp *interp, char *frameName, char *varName, \ + char *localName, int flags) } declare 259 generic { - int Tcl_UnregisterChannel(Tcl_Interp *interp, Tcl_Channel chan) + int Tcl_UpVar2(Tcl_Interp *interp, char *frameName, char *part1, \ + char *part2, char *localName, int flags) } declare 260 generic { - int Tcl_UnsetVar(Tcl_Interp *interp, char *varName, int flags) + int Tcl_VarEval(Tcl_Interp *interp, ...) } declare 261 generic { - int Tcl_UnsetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags) + ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, char *varName, \ + int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData) } declare 262 generic { - void Tcl_UntraceVar(Tcl_Interp *interp, char *varName, int flags, \ - Tcl_VarTraceProc *proc, ClientData clientData) + ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, char *part1, \ + char *part2, int flags, Tcl_VarTraceProc *procPtr, \ + ClientData prevClientData) } declare 263 generic { - void Tcl_UntraceVar2(Tcl_Interp *interp, char *part1, char *part2, \ - int flags, Tcl_VarTraceProc *proc, ClientData clientData) + int Tcl_Write(Tcl_Channel chan, char *s, int slen) } declare 264 generic { - void Tcl_UpdateLinkedVar(Tcl_Interp *interp, char *varName) + void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, \ + Tcl_Obj *CONST objv[], char *message) } declare 265 generic { - int Tcl_UpVar(Tcl_Interp *interp, char *frameName, char *varName, \ - char *localName, int flags) + int Tcl_DumpActiveMemory(char *fileName) } declare 266 generic { - int Tcl_UpVar2(Tcl_Interp *interp, char *frameName, char *part1, \ - char *part2, char *localName, int flags) + void Tcl_ValidateAllMemory(char *file, int line) } declare 267 generic { - void Tcl_ValidateAllMemory(char *file, int line) + void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList) } declare 268 generic { - int Tcl_VarEval(Tcl_Interp *interp, ...) + void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList) } declare 269 generic { - int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList) + char * Tcl_HashStats(Tcl_HashTable *tablePtr) } declare 270 generic { - ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, char *varName, \ - int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData) + char * Tcl_ParseVar(Tcl_Interp *interp, char *string, char **termPtr) } declare 271 generic { - ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, char *part1, \ - char *part2, int flags, Tcl_VarTraceProc *procPtr, \ - ClientData prevClientData) + char * Tcl_PkgPresent(Tcl_Interp *interp, char *name, char *version, \ + int exact) } declare 272 generic { - int Tcl_WaitForEvent(Tcl_Time *timePtr) + char * Tcl_PkgPresentEx(Tcl_Interp *interp, char *name, char *version, \ + int exact, ClientData *clientDataPtr) } declare 273 generic { - Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options) + int Tcl_PkgProvide(Tcl_Interp *interp, char *name, char *version) } declare 274 generic { - int Tcl_Write(Tcl_Channel chan, char *s, int slen) + char * Tcl_PkgRequire(Tcl_Interp *interp, char *name, char *version, \ + int exact) } declare 275 generic { - void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, \ - Tcl_Obj *CONST objv[], char *message) + void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList) +} +declare 276 generic { + int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList) +} +declare 277 generic { + Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options) +} +declare 278 generic { + void panicVA(char *format, va_list argList) } # Added in 8.1: -declare 276 generic { +declare 279 generic { void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr) } -declare 277 generic { +declare 280 generic { void Tcl_AlertNotifier(ClientData clientData) } -declare 278 generic { +declare 281 generic { Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr) } -declare 279 generic { +declare 282 generic { void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData) } -declare 280 generic { +declare 283 generic { void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData) } -declare 281 generic { +declare 284 generic { void Tcl_DiscardResult(Tcl_SavedResult *statePtr) } -declare 282 generic { +declare 285 generic { int Tcl_EvalEx(Tcl_Interp *interp, char *script, int numBytes, int flags) } -declare 283 generic { +declare 286 generic { int Tcl_EvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \ int flags) } -declare 284 generic { +declare 287 generic { int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags) } -declare 285 generic { +declare 288 generic { void Tcl_ExitThread(int status) } -declare 286 generic { +declare 289 generic { int Tcl_ExternalToUtf(Tcl_Interp *interp, Tcl_Encoding encoding, \ CONST char *src, int srcLen, int flags, \ Tcl_EncodingState *statePtr, char *dst, int dstLen, \ int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr) } -declare 287 generic { +declare 290 generic { char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, CONST char *src, \ int srcLen, Tcl_DString *dsPtr) } -declare 288 generic { +declare 291 generic { void Tcl_FinalizeThread(void) } -declare 289 generic { +declare 292 generic { void Tcl_FinalizeNotifier(ClientData clientData) } -declare 290 generic { +declare 293 generic { void Tcl_FreeEncoding(Tcl_Encoding encoding) } -declare 291 generic { +declare 294 generic { Tcl_ThreadId Tcl_GetCurrentThread(void) } -declare 292 generic { +declare 295 generic { Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name) } -declare 293 generic { +declare 296 generic { char * Tcl_GetEncodingName(Tcl_Encoding encoding) } -declare 294 generic { +declare 297 generic { void Tcl_GetEncodingNames(Tcl_Interp *interp) } -declare 295 generic { - int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, Tcl_Obj *objPtr, \ +declare 298 generic { + int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, Tcl_Obj *objPtr, \ char **tablePtr, int offset, char *msg, int flags, int *indexPtr) } -declare 296 generic { +declare 299 generic { VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, int size) } -declare 297 generic { +declare 300 generic { Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, char *part1, char *part2, \ int flags) } -declare 298 generic { +declare 301 generic { ClientData Tcl_InitNotifier(void) } -declare 299 generic { +declare 302 generic { void Tcl_MutexLock(Tcl_Mutex *mutexPtr) } -declare 300 generic { +declare 303 generic { void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr) } -declare 301 generic { +declare 304 generic { void Tcl_ConditionNotify(Tcl_Condition *condPtr) } -declare 302 generic { +declare 305 generic { void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, \ Tcl_Time *timePtr) } -declare 303 generic { +declare 306 generic { int Tcl_NumUtfChars(CONST char *src, int len) } -declare 304 generic { +declare 307 generic { int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, \ int appendFlag) } -declare 305 generic { +declare 308 generic { void Tcl_RestoreResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr) } -declare 306 generic { +declare 309 generic { void Tcl_SaveResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr) } -declare 307 generic { +declare 310 generic { int Tcl_SetSystemEncoding(Tcl_Interp *interp, CONST char *name) } -declare 308 generic { +declare 311 generic { Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, char *part1, char *part2, \ Tcl_Obj *newValuePtr, int flags) } -declare 309 generic { +declare 312 generic { void Tcl_ThreadAlert(Tcl_ThreadId threadId) } -declare 310 generic { +declare 313 generic { void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, Tcl_Event* evPtr, \ Tcl_QueuePosition position) } -declare 311 generic { +declare 314 generic { Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index) } -declare 312 generic { +declare 315 generic { Tcl_UniChar Tcl_UniCharToLower(int ch) } -declare 313 generic { +declare 316 generic { Tcl_UniChar Tcl_UniCharToTitle(int ch) } -declare 314 generic { +declare 317 generic { Tcl_UniChar Tcl_UniCharToUpper(int ch) } -declare 315 generic { +declare 318 generic { int Tcl_UniCharToUtf(int ch, char *buf) } -declare 316 generic { +declare 319 generic { char * Tcl_UtfAtIndex(CONST char *src, int index) } -declare 317 generic { +declare 320 generic { int Tcl_UtfCharComplete(CONST char *src, int len) } -declare 318 generic { +declare 321 generic { int Tcl_UtfBackslash(CONST char *src, int *readPtr, char *dst) } -declare 319 generic { +declare 322 generic { char * Tcl_UtfFindFirst(CONST char *src, int ch) } -declare 320 generic { +declare 323 generic { char * Tcl_UtfFindLast(CONST char *src, int ch) } -declare 323 generic { +declare 324 generic { char * Tcl_UtfNext(CONST char *src) } -declare 324 generic { +declare 325 generic { char * Tcl_UtfPrev(CONST char *src, CONST char *start) } -declare 325 generic { +declare 326 generic { int Tcl_UtfToExternal(Tcl_Interp *interp, Tcl_Encoding encoding, \ CONST char *src, int srcLen, int flags, \ Tcl_EncodingState *statePtr, char *dst, int dstLen, \ int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr) } -declare 326 generic { +declare 327 generic { char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, CONST char *src, \ int srcLen, Tcl_DString *dsPtr) } -declare 327 generic { +declare 328 generic { int Tcl_UtfToLower(char *src) } -declare 328 generic { +declare 329 generic { int Tcl_UtfToTitle(char *src) } -declare 329 generic { +declare 330 generic { int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr) } -declare 330 generic { +declare 331 generic { int Tcl_UtfToUpper(char *src) } -declare 331 generic { +declare 332 generic { int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, int srcLen) } -declare 332 generic { +declare 333 generic { int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr) } - ############################################################################## # Define the platform specific public Tcl interface. These functions are @@ -1174,19 +1201,3 @@ declare 7 mac { declare 8 mac { int strcasecmp(CONST char *s1, CONST char *s2) } - - -#################### -# Unix declaractions - -declare 0 unix { - void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc, \ - ClientData clientData) -} -declare 1 unix { - void Tcl_DeleteFileHandler(int fd) -} -declare 2 unix { - int Tcl_GetOpenFile(Tcl_Interp *interp, char *str, int write, \ - int checkUsage, ClientData *filePtr) -} diff --git a/generic/tcl.h b/generic/tcl.h index bf3f31c..6ec9451 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.1.2.13.2.2 1999/03/09 02:37:13 stanton Exp $ + * RCS: @(#) $Id: tcl.h,v 1.1.2.13.2.3 1999/03/10 06:41:48 stanton Exp $ */ #ifndef _TCL @@ -1297,7 +1297,9 @@ typedef unsigned short Tcl_UniChar; /* * The following function is required to be defined in all stubs aware * extensions. The function is actually implemented in the stub - * library, not the main Tcl library. + * library, not the main Tcl library, although there is a trivial + * implementation in the main library in case an extension is statically + * linked into an application. */ EXTERN char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, @@ -1311,19 +1313,10 @@ EXTERN char * Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp, #include "tclDecls.h" /* - * For backwards compatibility reasons, we include the platform specific - * public function declarations on Unix. This will bring in the old - * file handler interfaces. - */ - -#if !defined(__WIN32__) && !defined(MAC_TCL) -#include "tclPlatDecls.h" -#endif - -/* * Public functions that are not accessible via the stubs table. */ +EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, Tcl_AppInitProc *appInitProc)); diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 2352c79..c1f0dd4 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.2.4.1 1999/03/08 20:14:07 stanton Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.2.4.2 1999/03/10 06:41:49 stanton Exp $ */ #ifndef _TCLDECLS @@ -27,998 +27,1011 @@ */ /* 0 */ -EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * message)); +EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp * interp, + char * name, char * version, + ClientData clientData)); /* 1 */ -EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * message, int length)); +EXTERN char * Tcl_PkgRequireEx _ANSI_ARGS_((Tcl_Interp * interp, + char * name, char * version, int exact, + ClientData * clientDataPtr)); /* 2 */ -EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); +EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 3 */ -EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp)); +EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); /* 4 */ -EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr)); +EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr)); /* 5 */ -EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * str)); +EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr, + unsigned int size)); /* 6 */ -EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); +EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, + char * file, int line)); /* 7 */ -EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp, - va_list argList)); +EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, char * file, + int line)); /* 8 */ -EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj * objPtr, - char * bytes, int length)); +EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr, + unsigned int size, char * file, int line)); +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ /* 9 */ -EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); +EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, + Tcl_FileProc * proc, ClientData clientData)); +#endif /* UNIX */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ /* 10 */ -EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( - Tcl_Obj * objPtr, va_list argList)); +EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); +#endif /* UNIX */ /* 11 */ +EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr)); +/* 12 */ +EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); +/* 13 */ +EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); +/* 14 */ +EXTERN int Tcl_AppendAllObjTypes _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr)); +/* 15 */ +EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); +/* 16 */ +EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj * objPtr, + char * bytes, int length)); +/* 17 */ +EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, + Tcl_Obj *CONST objv[])); +/* 18 */ +EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); +/* 19 */ +EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, + char * file, int line)); +/* 20 */ +EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, + char * file, int line)); +/* 21 */ +EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr, + char * file, int line)); +/* 22 */ +EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, + char * file, int line)); +/* 23 */ +EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( + unsigned char * bytes, int length, + char * file, int line)); +/* 24 */ +EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, + char * file, int line)); +/* 25 */ +EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, + Tcl_Obj *CONST objv[], char * file, int line)); +/* 26 */ +EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, + char * file, int line)); +/* 27 */ +EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((char * file, int line)); +/* 28 */ +EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes, + int length, char * file, int line)); +/* 29 */ +EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr)); +/* 30 */ +EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr)); +/* 31 */ +EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * boolPtr)); +/* 32 */ +EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr, + int * boolPtr)); +/* 33 */ +EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_(( + Tcl_Obj * objPtr, int * lengthPtr)); +/* 34 */ +EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp, + char * string, double * doublePtr)); +/* 35 */ +EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr, + double * doublePtr)); +/* 36 */ +EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, char ** tablePtr, + char * msg, int flags, int * indexPtr)); +/* 37 */ +EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * intPtr)); +/* 38 */ +EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, int * intPtr)); +/* 39 */ +EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, long * longPtr)); +/* 40 */ +EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char * typeName)); +/* 41 */ +EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, + int * lengthPtr)); +/* 42 */ +EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_(( + Tcl_Obj * objPtr)); +/* 43 */ +EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * listPtr, + Tcl_Obj * elemListPtr)); +/* 44 */ +EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * listPtr, + Tcl_Obj * objPtr)); +/* 45 */ +EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * listPtr, + int * objcPtr, Tcl_Obj *** objvPtr)); +/* 46 */ +EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * listPtr, int index, + Tcl_Obj ** objPtrPtr)); +/* 47 */ +EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * listPtr, int * intPtr)); +/* 48 */ +EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * listPtr, int first, int count, + int objc, Tcl_Obj *CONST objv[])); +/* 49 */ +EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); +/* 50 */ +EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( + unsigned char * bytes, int length)); +/* 51 */ +EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); +/* 52 */ +EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); +/* 53 */ +EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, + Tcl_Obj *CONST objv[])); +/* 54 */ +EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); +/* 55 */ +EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); +/* 56 */ +EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes, + int length)); +/* 57 */ +EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr, + int boolValue)); +/* 58 */ +EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr, + int length)); +/* 59 */ +EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr, + unsigned char * bytes, int length)); +/* 60 */ +EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr, + double doubleValue)); +/* 61 */ +EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, + int intValue)); +/* 62 */ +EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr, + int objc, Tcl_Obj *CONST objv[])); +/* 63 */ +EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr, + long longValue)); +/* 64 */ +EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr, + int length)); +/* 65 */ +EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj * objPtr, + char * bytes, int length)); +/* 66 */ +EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, + CONST char * message)); +/* 67 */ +EXTERN void Tcl_AddObjErrorInfo _ANSI_ARGS_((Tcl_Interp * interp, + CONST char * message, int length)); +/* 68 */ +EXTERN void Tcl_AllowExceptions _ANSI_ARGS_((Tcl_Interp * interp)); +/* 69 */ +EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp * interp, + CONST char * string)); +/* 70 */ +EXTERN void Tcl_AppendResult _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); +/* 71 */ EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); -/* 12 */ +/* 72 */ EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async)); -/* 13 */ +/* 73 */ EXTERN int Tcl_AsyncInvoke _ANSI_ARGS_((Tcl_Interp * interp, int code)); -/* 14 */ +/* 74 */ EXTERN void Tcl_AsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); -/* 15 */ +/* 75 */ EXTERN int Tcl_AsyncReady _ANSI_ARGS_((void)); -/* 16 */ +/* 76 */ EXTERN void Tcl_BackgroundError _ANSI_ARGS_((Tcl_Interp * interp)); -/* 17 */ +/* 77 */ EXTERN char Tcl_Backslash _ANSI_ARGS_((CONST char * src, int * readPtr)); -/* 18 */ +/* 78 */ EXTERN int Tcl_BadChannelOption _ANSI_ARGS_(( Tcl_Interp * interp, char * optionName, char * optionList)); -/* 19 */ +/* 79 */ EXTERN void Tcl_CallWhenDeleted _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); -/* 20 */ +/* 80 */ EXTERN void Tcl_CancelIdleCall _ANSI_ARGS_(( Tcl_IdleProc * idleProc, ClientData clientData)); -/* 21 */ +/* 81 */ EXTERN int Tcl_Close _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); -/* 22 */ +/* 82 */ EXTERN int Tcl_CommandComplete _ANSI_ARGS_((char * cmd)); -/* 23 */ +/* 83 */ EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, char ** argv)); -/* 24 */ -EXTERN Tcl_Obj * Tcl_ConcatObj _ANSI_ARGS_((int objc, - Tcl_Obj *CONST objv[])); -/* 25 */ +/* 84 */ +EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src, + char * dst, int flags)); +/* 85 */ EXTERN int Tcl_ConvertCountedElement _ANSI_ARGS_(( CONST char * src, int length, char * dst, int flags)); -/* 26 */ -EXTERN int Tcl_ConvertElement _ANSI_ARGS_((CONST char * src, - char * dst, int flags)); -/* 27 */ -EXTERN int Tcl_ConvertToType _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); -/* 28 */ +/* 86 */ EXTERN int Tcl_CreateAlias _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int argc, char ** argv)); -/* 29 */ +/* 87 */ EXTERN int Tcl_CreateAliasObj _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int objc, Tcl_Obj *CONST objv[])); -/* 30 */ +/* 88 */ EXTERN Tcl_Channel Tcl_CreateChannel _ANSI_ARGS_(( Tcl_ChannelType * typePtr, char * chanName, ClientData instanceData, int mask)); -/* 31 */ +/* 89 */ EXTERN void Tcl_CreateChannelHandler _ANSI_ARGS_(( Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); -/* 32 */ +/* 90 */ EXTERN void Tcl_CreateCloseHandler _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); -/* 33 */ +/* 91 */ EXTERN Tcl_Command Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); -/* 34 */ +/* 92 */ EXTERN void Tcl_CreateEventSource _ANSI_ARGS_(( Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); -/* 35 */ +/* 93 */ EXTERN void Tcl_CreateExitHandler _ANSI_ARGS_(( Tcl_ExitProc * proc, ClientData clientData)); -/* 36 */ +/* 94 */ EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void)); -/* 37 */ +/* 95 */ EXTERN void Tcl_CreateMathFunc _ANSI_ARGS_((Tcl_Interp * interp, char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); -/* 38 */ +/* 96 */ EXTERN Tcl_Command Tcl_CreateObjCommand _ANSI_ARGS_(( Tcl_Interp * interp, char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); -/* 39 */ +/* 97 */ EXTERN Tcl_Interp * Tcl_CreateSlave _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName, int isSafe)); -/* 40 */ +/* 98 */ EXTERN Tcl_TimerToken Tcl_CreateTimerHandler _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); -/* 41 */ +/* 99 */ EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); -/* 42 */ -EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size, - char * file, int line)); -/* 43 */ -EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char * ptr, char * file, - int line)); -/* 44 */ -EXTERN char * Tcl_DbCkrealloc _ANSI_ARGS_((char * ptr, - unsigned int size, char * file, int line)); -/* 45 */ -EXTERN void Tcl_DbDecrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, - char * file, int line)); -/* 46 */ -EXTERN void Tcl_DbIncrRefCount _ANSI_ARGS_((Tcl_Obj * objPtr, - char * file, int line)); -/* 47 */ -EXTERN int Tcl_DbIsShared _ANSI_ARGS_((Tcl_Obj * objPtr, - char * file, int line)); -/* 48 */ -EXTERN Tcl_Obj * Tcl_DbNewBooleanObj _ANSI_ARGS_((int boolValue, - char * file, int line)); -/* 49 */ -EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj _ANSI_ARGS_(( - unsigned char * bytes, int length, - char * file, int line)); -/* 50 */ -EXTERN Tcl_Obj * Tcl_DbNewDoubleObj _ANSI_ARGS_((double doubleValue, - char * file, int line)); -/* 51 */ -EXTERN Tcl_Obj * Tcl_DbNewListObj _ANSI_ARGS_((int objc, - Tcl_Obj *CONST objv[], char * file, int line)); -/* 52 */ -EXTERN Tcl_Obj * Tcl_DbNewLongObj _ANSI_ARGS_((long longValue, - char * file, int line)); -/* 53 */ -EXTERN Tcl_Obj * Tcl_DbNewObj _ANSI_ARGS_((char * file, int line)); -/* 54 */ -EXTERN Tcl_Obj * Tcl_DbNewStringObj _ANSI_ARGS_((CONST char * bytes, - int length, char * file, int line)); -/* 55 */ +/* 100 */ EXTERN void Tcl_DeleteAssocData _ANSI_ARGS_((Tcl_Interp * interp, char * name)); -/* 56 */ -EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, - char * cmdName)); -/* 57 */ -EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Command command)); -/* 58 */ +/* 101 */ EXTERN void Tcl_DeleteChannelHandler _ANSI_ARGS_(( Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); -/* 59 */ +/* 102 */ EXTERN void Tcl_DeleteCloseHandler _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); -/* 60 */ +/* 103 */ +EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * cmdName)); +/* 104 */ +EXTERN int Tcl_DeleteCommandFromToken _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Command command)); +/* 105 */ EXTERN void Tcl_DeleteEvents _ANSI_ARGS_(( Tcl_EventDeleteProc * proc, ClientData clientData)); -/* 61 */ +/* 106 */ EXTERN void Tcl_DeleteEventSource _ANSI_ARGS_(( Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); -/* 62 */ +/* 107 */ EXTERN void Tcl_DeleteExitHandler _ANSI_ARGS_(( Tcl_ExitProc * proc, ClientData clientData)); -/* 63 */ +/* 108 */ EXTERN void Tcl_DeleteHashEntry _ANSI_ARGS_(( Tcl_HashEntry * entryPtr)); -/* 64 */ +/* 109 */ EXTERN void Tcl_DeleteHashTable _ANSI_ARGS_(( Tcl_HashTable * tablePtr)); -/* 65 */ +/* 110 */ EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp * interp)); -/* 66 */ +/* 111 */ +EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, + Tcl_Pid * pidPtr)); +/* 112 */ EXTERN void Tcl_DeleteTimerHandler _ANSI_ARGS_(( Tcl_TimerToken token)); -/* 67 */ +/* 113 */ EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace trace)); -/* 68 */ -EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, - Tcl_Pid * pidPtr)); -/* 69 */ +/* 114 */ EXTERN void Tcl_DontCallWhenDeleted _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); -/* 70 */ +/* 115 */ EXTERN int Tcl_DoOneEvent _ANSI_ARGS_((int flags)); -/* 71 */ +/* 116 */ EXTERN void Tcl_DoWhenIdle _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData clientData)); -/* 72 */ +/* 117 */ EXTERN char * Tcl_DStringAppend _ANSI_ARGS_((Tcl_DString * dsPtr, - CONST char * str, int length)); -/* 73 */ + CONST char * string, int length)); +/* 118 */ EXTERN char * Tcl_DStringAppendElement _ANSI_ARGS_(( - Tcl_DString * dsPtr, CONST char * str)); -/* 74 */ + Tcl_DString * dsPtr, CONST char * string)); +/* 119 */ EXTERN void Tcl_DStringEndSublist _ANSI_ARGS_(( Tcl_DString * dsPtr)); -/* 75 */ +/* 120 */ EXTERN void Tcl_DStringFree _ANSI_ARGS_((Tcl_DString * dsPtr)); -/* 76 */ +/* 121 */ EXTERN void Tcl_DStringGetResult _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_DString * dsPtr)); -/* 77 */ +/* 122 */ EXTERN void Tcl_DStringInit _ANSI_ARGS_((Tcl_DString * dsPtr)); -/* 78 */ +/* 123 */ EXTERN void Tcl_DStringResult _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); -/* 79 */ +/* 124 */ EXTERN void Tcl_DStringSetLength _ANSI_ARGS_(( Tcl_DString * dsPtr, int length)); -/* 80 */ +/* 125 */ EXTERN void Tcl_DStringStartSublist _ANSI_ARGS_(( Tcl_DString * dsPtr)); -/* 81 */ -EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((char * fileName)); -/* 82 */ -EXTERN Tcl_Obj * Tcl_DuplicateObj _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 83 */ +/* 126 */ EXTERN int Tcl_Eof _ANSI_ARGS_((Tcl_Channel chan)); -/* 84 */ +/* 127 */ EXTERN char * Tcl_ErrnoId _ANSI_ARGS_((void)); -/* 85 */ +/* 128 */ EXTERN char * Tcl_ErrnoMsg _ANSI_ARGS_((int err)); -/* 86 */ +/* 129 */ EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp * interp, - char * str)); -/* 87 */ + char * string)); +/* 130 */ EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp * interp, char * fileName)); -/* 88 */ +/* 131 */ +EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr)); +/* 132 */ EXTERN void Tcl_EventuallyFree _ANSI_ARGS_(( ClientData clientData, Tcl_FreeProc * freeProc)); -/* 89 */ -EXTERN int Tcl_EvalObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr)); -/* 90 */ +/* 133 */ EXTERN void Tcl_Exit _ANSI_ARGS_((int status)); -/* 91 */ +/* 134 */ EXTERN int Tcl_ExposeCommand _ANSI_ARGS_((Tcl_Interp * interp, char * hiddenCmdToken, char * cmdName)); -/* 92 */ +/* 135 */ EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp * interp, - char * str, int * ptr)); -/* 93 */ + char * string, int * ptr)); +/* 136 */ EXTERN int Tcl_ExprBooleanObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); -/* 94 */ +/* 137 */ EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp * interp, - char * str, double * ptr)); -/* 95 */ + char * string, double * ptr)); +/* 138 */ EXTERN int Tcl_ExprDoubleObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); -/* 96 */ +/* 139 */ EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp * interp, - char * str, long * ptr)); -/* 97 */ + char * string, long * ptr)); +/* 140 */ EXTERN int Tcl_ExprLongObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); -/* 98 */ +/* 141 */ EXTERN int Tcl_ExprObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); -/* 99 */ +/* 142 */ EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp * interp, - char * str)); -/* 100 */ + char * string)); +/* 143 */ EXTERN void Tcl_Finalize _ANSI_ARGS_((void)); -/* 101 */ +/* 144 */ EXTERN void Tcl_FindExecutable _ANSI_ARGS_((CONST char * argv0)); -/* 102 */ +/* 145 */ EXTERN Tcl_HashEntry * Tcl_FirstHashEntry _ANSI_ARGS_(( Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); -/* 103 */ +/* 146 */ EXTERN int Tcl_Flush _ANSI_ARGS_((Tcl_Channel chan)); -/* 104 */ -EXTERN void Tcl_Free _ANSI_ARGS_((char * ptr)); -/* 105 */ -EXTERN void TclFreeObj _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 106 */ +/* 147 */ EXTERN void Tcl_FreeResult _ANSI_ARGS_((Tcl_Interp * interp)); -/* 107 */ +/* 148 */ EXTERN int Tcl_GetAlias _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char *** argvPtr)); -/* 108 */ +/* 149 */ EXTERN int Tcl_GetAliasObj _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); -/* 109 */ +/* 150 */ EXTERN ClientData Tcl_GetAssocData _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc ** procPtr)); -/* 110 */ -EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp * interp, - char * str, int * boolPtr)); -/* 111 */ -EXTERN int Tcl_GetBooleanFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - int * boolPtr)); -/* 112 */ -EXTERN unsigned char * Tcl_GetByteArrayFromObj _ANSI_ARGS_(( - Tcl_Obj * objPtr, int * lengthPtr)); -/* 113 */ +/* 151 */ EXTERN Tcl_Channel Tcl_GetChannel _ANSI_ARGS_((Tcl_Interp * interp, char * chanName, int * modePtr)); -/* 114 */ +/* 152 */ EXTERN int Tcl_GetChannelBufferSize _ANSI_ARGS_(( Tcl_Channel chan)); -/* 115 */ +/* 153 */ EXTERN int Tcl_GetChannelHandle _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); -/* 116 */ +/* 154 */ EXTERN ClientData Tcl_GetChannelInstanceData _ANSI_ARGS_(( Tcl_Channel chan)); -/* 117 */ +/* 155 */ EXTERN int Tcl_GetChannelMode _ANSI_ARGS_((Tcl_Channel chan)); -/* 118 */ +/* 156 */ EXTERN char * Tcl_GetChannelName _ANSI_ARGS_((Tcl_Channel chan)); -/* 119 */ +/* 157 */ EXTERN int Tcl_GetChannelOption _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Channel chan, char * optionName, Tcl_DString * dsPtr)); -/* 120 */ +/* 158 */ EXTERN Tcl_ChannelType * Tcl_GetChannelType _ANSI_ARGS_((Tcl_Channel chan)); -/* 121 */ +/* 159 */ EXTERN int Tcl_GetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); -/* 122 */ +/* 160 */ EXTERN char * Tcl_GetCommandName _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); -/* 123 */ -EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp * interp, - char * str, double * doublePtr)); -/* 124 */ -EXTERN int Tcl_GetDoubleFromObj _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * objPtr, - double * doublePtr)); -/* 125 */ +/* 161 */ EXTERN int Tcl_GetErrno _ANSI_ARGS_((void)); -/* 126 */ +/* 162 */ EXTERN char * Tcl_GetHostName _ANSI_ARGS_((void)); -/* 127 */ -EXTERN int Tcl_GetIndexFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, char ** tablePtr, - char * msg, int flags, int * indexPtr)); -/* 128 */ -EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp * interp, - char * str, int * intPtr)); -/* 129 */ +/* 163 */ EXTERN int Tcl_GetInterpPath _ANSI_ARGS_(( Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); -/* 130 */ -EXTERN int Tcl_GetIntFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, int * intPtr)); -/* 131 */ -EXTERN int Tcl_GetLongFromObj _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * objPtr, long * longPtr)); -/* 132 */ +/* 164 */ EXTERN Tcl_Interp * Tcl_GetMaster _ANSI_ARGS_((Tcl_Interp * interp)); -/* 133 */ +/* 165 */ EXTERN CONST char * Tcl_GetNameOfExecutable _ANSI_ARGS_((void)); -/* 134 */ +/* 166 */ EXTERN Tcl_Obj * Tcl_GetObjResult _ANSI_ARGS_((Tcl_Interp * interp)); -/* 135 */ -EXTERN Tcl_ObjType * Tcl_GetObjType _ANSI_ARGS_((char * typeName)); -/* 136 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* 167 */ +EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int write, int checkUsage, + ClientData * filePtr)); +#endif /* UNIX */ +/* 168 */ EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((char * path)); -/* 137 */ +/* 169 */ EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); -/* 138 */ +/* 170 */ EXTERN int Tcl_GetsObj _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); -/* 139 */ +/* 171 */ EXTERN int Tcl_GetServiceMode _ANSI_ARGS_((void)); -/* 140 */ +/* 172 */ EXTERN Tcl_Interp * Tcl_GetSlave _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName)); -/* 141 */ +/* 173 */ EXTERN Tcl_Channel Tcl_GetStdChannel _ANSI_ARGS_((int type)); -/* 142 */ -EXTERN char * Tcl_GetStringFromObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int * lengthPtr)); -/* 143 */ +/* 174 */ EXTERN char * Tcl_GetStringResult _ANSI_ARGS_((Tcl_Interp * interp)); -/* 144 */ +/* 175 */ EXTERN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); -/* 145 */ +/* 176 */ EXTERN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); -/* 146 */ +/* 177 */ EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp * interp, char * command)); -/* 147 */ +/* 178 */ EXTERN int Tcl_GlobalEvalObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 148 */ -EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable * tablePtr)); -/* 149 */ +/* 179 */ EXTERN int Tcl_HideCommand _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, char * hiddenCmdToken)); -/* 150 */ +/* 180 */ EXTERN int Tcl_Init _ANSI_ARGS_((Tcl_Interp * interp)); -/* 151 */ +/* 181 */ EXTERN void Tcl_InitHashTable _ANSI_ARGS_(( Tcl_HashTable * tablePtr, int keyType)); -/* 152 */ -EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp * interp)); -/* 153 */ +/* 182 */ EXTERN int Tcl_InputBlocked _ANSI_ARGS_((Tcl_Channel chan)); -/* 154 */ +/* 183 */ EXTERN int Tcl_InputBuffered _ANSI_ARGS_((Tcl_Channel chan)); -/* 155 */ +/* 184 */ EXTERN int Tcl_InterpDeleted _ANSI_ARGS_((Tcl_Interp * interp)); -/* 156 */ +/* 185 */ EXTERN int Tcl_IsSafe _ANSI_ARGS_((Tcl_Interp * interp)); -/* 157 */ -EXTERN void Tcl_InvalidateStringRep _ANSI_ARGS_(( - Tcl_Obj * objPtr)); -/* 158 */ +/* 186 */ EXTERN char * Tcl_JoinPath _ANSI_ARGS_((int argc, char ** argv, Tcl_DString * resultPtr)); -/* 159 */ +/* 187 */ EXTERN int Tcl_LinkVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * addr, int type)); -/* 160 */ -EXTERN int Tcl_ListObjAppendList _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - Tcl_Obj * elemListPtr)); -/* 161 */ -EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - Tcl_Obj * objPtr)); -/* 162 */ -EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( - Tcl_Interp * interp, Tcl_Obj * listPtr, - int * objcPtr, Tcl_Obj *** objvPtr)); -/* 163 */ -EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * listPtr, int index, - Tcl_Obj ** objPtrPtr)); -/* 164 */ -EXTERN int Tcl_ListObjLength _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * listPtr, int * intPtr)); -/* 165 */ -EXTERN int Tcl_ListObjReplace _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Obj * listPtr, int first, int count, - int objc, Tcl_Obj *CONST objv[])); -/* 166 */ +/* Slot 188 is reserved */ +/* 189 */ EXTERN Tcl_Channel Tcl_MakeFileChannel _ANSI_ARGS_((ClientData handle, int mode)); -/* 167 */ +/* 190 */ EXTERN int Tcl_MakeSafe _ANSI_ARGS_((Tcl_Interp * interp)); -/* 168 */ +/* 191 */ EXTERN Tcl_Channel Tcl_MakeTcpClientChannel _ANSI_ARGS_(( ClientData tcpSocket)); -/* 169 */ +/* 192 */ EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, char ** argv)); -/* 170 */ -EXTERN Tcl_Obj * Tcl_NewBooleanObj _ANSI_ARGS_((int boolValue)); -/* 171 */ -EXTERN Tcl_Obj * Tcl_NewByteArrayObj _ANSI_ARGS_(( - unsigned char * bytes, int length)); -/* 172 */ -EXTERN Tcl_Obj * Tcl_NewDoubleObj _ANSI_ARGS_((double doubleValue)); -/* 173 */ -EXTERN Tcl_Obj * Tcl_NewIntObj _ANSI_ARGS_((int intValue)); -/* 174 */ -EXTERN Tcl_Obj * Tcl_NewListObj _ANSI_ARGS_((int objc, - Tcl_Obj *CONST objv[])); -/* 175 */ -EXTERN Tcl_Obj * Tcl_NewLongObj _ANSI_ARGS_((long longValue)); -/* 176 */ -EXTERN Tcl_Obj * Tcl_NewObj _ANSI_ARGS_((void)); -/* 177 */ -EXTERN Tcl_Obj * Tcl_NewStringObj _ANSI_ARGS_((CONST char * bytes, - int length)); -/* 178 */ +/* 193 */ EXTERN Tcl_HashEntry * Tcl_NextHashEntry _ANSI_ARGS_(( Tcl_HashSearch * searchPtr)); -/* 179 */ +/* 194 */ EXTERN void Tcl_NotifyChannel _ANSI_ARGS_((Tcl_Channel channel, int mask)); -/* 180 */ +/* 195 */ EXTERN Tcl_Obj * Tcl_ObjGetVar2 _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); -/* 181 */ +/* 196 */ EXTERN Tcl_Obj * Tcl_ObjSetVar2 _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); -/* 182 */ +/* 197 */ EXTERN Tcl_Channel Tcl_OpenCommandChannel _ANSI_ARGS_(( Tcl_Interp * interp, int argc, char ** argv, int flags)); -/* 183 */ +/* 198 */ EXTERN Tcl_Channel Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); -/* 184 */ +/* 199 */ EXTERN Tcl_Channel Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp * interp, int port, char * address, char * myaddr, int myport, int async)); -/* 185 */ +/* 200 */ EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, int port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData)); -/* 186 */ -EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); -/* 187 */ -EXTERN void panicVA _ANSI_ARGS_((char * format, va_list argList)); -/* 188 */ -EXTERN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, - char * str, char ** termPtr)); -/* 189 */ -EXTERN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * interp, - char * name, char * version, int exact)); -/* 190 */ -EXTERN char * Tcl_PkgPresentEx _ANSI_ARGS_((Tcl_Interp * interp, - char * name, char * version, int exact, - ClientData * clientDataPtr)); -/* 191 */ -EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp, - char * name, char * version)); -/* 192 */ -EXTERN int Tcl_PkgProvideEx _ANSI_ARGS_((Tcl_Interp * interp, - char * name, char * version, - ClientData clientData)); -/* 193 */ -EXTERN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * interp, - char * name, char * version, int exact)); -/* 194 */ -EXTERN char * Tcl_PkgRequireEx _ANSI_ARGS_((Tcl_Interp * interp, - char * name, char * version, int exact, - ClientData * clientDataPtr)); -/* 195 */ -EXTERN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp)); -/* 196 */ +/* 201 */ EXTERN void Tcl_Preserve _ANSI_ARGS_((ClientData data)); -/* 197 */ +/* 202 */ EXTERN void Tcl_PrintDouble _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); -/* 198 */ -EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * str)); -/* 199 */ +/* 203 */ +EXTERN int Tcl_PutEnv _ANSI_ARGS_((CONST char * string)); +/* 204 */ +EXTERN char * Tcl_PosixError _ANSI_ARGS_((Tcl_Interp * interp)); +/* 205 */ EXTERN void Tcl_QueueEvent _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePosition position)); -/* 200 */ +/* 206 */ EXTERN int Tcl_Read _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRead)); -/* 201 */ -EXTERN char * Tcl_Realloc _ANSI_ARGS_((char * ptr, - unsigned int size)); -/* 202 */ +/* 207 */ EXTERN void Tcl_ReapDetachedProcs _ANSI_ARGS_((void)); -/* 203 */ +/* 208 */ EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); -/* 204 */ +/* 209 */ EXTERN int Tcl_RecordAndEvalObj _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); -/* 205 */ +/* 210 */ +EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 211 */ +EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( + Tcl_ObjType * typePtr)); +/* 212 */ EXTERN Tcl_RegExp Tcl_RegExpCompile _ANSI_ARGS_((Tcl_Interp * interp, - char * str)); -/* 206 */ + char * string)); +/* 213 */ EXTERN int Tcl_RegExpExec _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_RegExp regexp, CONST char * str, + Tcl_RegExp regexp, CONST char * string, CONST char * start)); -/* 207 */ +/* 214 */ EXTERN int Tcl_RegExpMatch _ANSI_ARGS_((Tcl_Interp * interp, - char * str, char * pattern)); -/* 208 */ + char * string, char * pattern)); +/* 215 */ EXTERN void Tcl_RegExpRange _ANSI_ARGS_((Tcl_RegExp regexp, int index, char ** startPtr, char ** endPtr)); -/* 209 */ -EXTERN void Tcl_RegisterChannel _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 210 */ -EXTERN void Tcl_RegisterObjType _ANSI_ARGS_(( - Tcl_ObjType * typePtr)); -/* 211 */ +/* 216 */ EXTERN void Tcl_Release _ANSI_ARGS_((ClientData clientData)); -/* 212 */ +/* 217 */ EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp * interp)); -/* 213 */ -EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_((CONST char * str, - int length, int * flagPtr)); -/* 214 */ -EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * str, +/* 218 */ +EXTERN int Tcl_ScanElement _ANSI_ARGS_((CONST char * string, int * flagPtr)); -/* 215 */ +/* 219 */ +EXTERN int Tcl_ScanCountedElement _ANSI_ARGS_(( + CONST char * string, int length, + int * flagPtr)); +/* 220 */ EXTERN int Tcl_Seek _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); -/* 216 */ +/* 221 */ EXTERN int Tcl_ServiceAll _ANSI_ARGS_((void)); -/* 217 */ +/* 222 */ EXTERN int Tcl_ServiceEvent _ANSI_ARGS_((int flags)); -/* 218 */ +/* 223 */ EXTERN void Tcl_SetAssocData _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); -/* 219 */ -EXTERN void Tcl_SetBooleanObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int boolValue)); -/* 220 */ -EXTERN unsigned char * Tcl_SetByteArrayLength _ANSI_ARGS_((Tcl_Obj * objPtr, - int length)); -/* 221 */ -EXTERN void Tcl_SetByteArrayObj _ANSI_ARGS_((Tcl_Obj * objPtr, - unsigned char * bytes, int length)); -/* 222 */ +/* 224 */ EXTERN void Tcl_SetChannelBufferSize _ANSI_ARGS_(( Tcl_Channel chan, int sz)); -/* 223 */ +/* 225 */ EXTERN int Tcl_SetChannelOption _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Channel chan, char * optionName, char * newValue)); -/* 224 */ +/* 226 */ EXTERN int Tcl_SetCommandInfo _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); -/* 225 */ -EXTERN void Tcl_SetDoubleObj _ANSI_ARGS_((Tcl_Obj * objPtr, - double doubleValue)); -/* 226 */ -EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); /* 227 */ -EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); +EXTERN void Tcl_SetErrno _ANSI_ARGS_((int err)); /* 228 */ -EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, - va_list argList)); +EXTERN void Tcl_SetErrorCode _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 229 */ -EXTERN void Tcl_SetIntObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int intValue)); -/* 230 */ -EXTERN void Tcl_SetListObj _ANSI_ARGS_((Tcl_Obj * objPtr, - int objc, Tcl_Obj *CONST objv[])); +EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr)); +/* 230 */ +EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( + Tcl_PanicProc * panicProc)); /* 231 */ -EXTERN void Tcl_SetLongObj _ANSI_ARGS_((Tcl_Obj * objPtr, - long longValue)); +EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( + Tcl_Interp * interp, int depth)); /* 232 */ -EXTERN void Tcl_SetMaxBlockTime _ANSI_ARGS_((Tcl_Time * timePtr)); +EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp * interp, + char * string, Tcl_FreeProc * freeProc)); /* 233 */ +EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); +/* 234 */ EXTERN void Tcl_SetObjErrorCode _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); -/* 234 */ -EXTERN void Tcl_SetObjLength _ANSI_ARGS_((Tcl_Obj * objPtr, - int length)); /* 235 */ EXTERN void Tcl_SetObjResult _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * resultObjPtr)); /* 236 */ -EXTERN void Tcl_SetPanicProc _ANSI_ARGS_(( - Tcl_PanicProc * panicProc)); -/* 237 */ -EXTERN int Tcl_SetRecursionLimit _ANSI_ARGS_(( - Tcl_Interp * interp, int depth)); -/* 238 */ -EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp * interp, - char * str, Tcl_FreeProc * freeProc)); -/* 239 */ -EXTERN int Tcl_SetServiceMode _ANSI_ARGS_((int mode)); -/* 240 */ EXTERN void Tcl_SetStdChannel _ANSI_ARGS_((Tcl_Channel channel, int type)); -/* 241 */ -EXTERN void Tcl_SetStringObj _ANSI_ARGS_((Tcl_Obj * objPtr, - char * bytes, int length)); -/* 242 */ -EXTERN void Tcl_SetTimer _ANSI_ARGS_((Tcl_Time * timePtr)); -/* 243 */ +/* 237 */ EXTERN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * newValue, int flags)); -/* 244 */ +/* 238 */ EXTERN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, char * newValue, int flags)); -/* 245 */ +/* 239 */ EXTERN char * Tcl_SignalId _ANSI_ARGS_((int sig)); -/* 246 */ +/* 240 */ EXTERN char * Tcl_SignalMsg _ANSI_ARGS_((int sig)); -/* 247 */ -EXTERN void Tcl_Sleep _ANSI_ARGS_((int ms)); -/* 248 */ +/* 241 */ EXTERN void Tcl_SourceRCFile _ANSI_ARGS_((Tcl_Interp * interp)); -/* 249 */ +/* 242 */ EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp * interp, - CONST char * listStr, int * argcPtr, + CONST char * list, int * argcPtr, char *** argvPtr)); -/* 250 */ +/* 243 */ EXTERN void Tcl_SplitPath _ANSI_ARGS_((CONST char * path, int * argcPtr, char *** argvPtr)); -/* 251 */ +/* 244 */ EXTERN void Tcl_StaticPackage _ANSI_ARGS_((Tcl_Interp * interp, char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc)); -/* 252 */ -EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * str, +/* 245 */ +EXTERN int Tcl_StringMatch _ANSI_ARGS_((CONST char * string, CONST char * pattern)); -/* 253 */ +/* 246 */ EXTERN int Tcl_Tell _ANSI_ARGS_((Tcl_Channel chan)); -/* 254 */ +/* 247 */ EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); -/* 255 */ +/* 248 */ EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); -/* 256 */ +/* 249 */ EXTERN char * Tcl_TranslateFileName _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_DString * bufferPtr)); -/* 257 */ +/* 250 */ EXTERN int Tcl_Ungets _ANSI_ARGS_((Tcl_Channel chan, char * str, int len, int atHead)); -/* 258 */ +/* 251 */ EXTERN void Tcl_UnlinkVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); -/* 259 */ +/* 252 */ EXTERN int Tcl_UnregisterChannel _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Channel chan)); -/* 260 */ +/* 253 */ EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); -/* 261 */ +/* 254 */ EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); -/* 262 */ +/* 255 */ EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); -/* 263 */ +/* 256 */ EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); -/* 264 */ +/* 257 */ EXTERN void Tcl_UpdateLinkedVar _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); -/* 265 */ +/* 258 */ EXTERN int Tcl_UpVar _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * varName, char * localName, int flags)); -/* 266 */ +/* 259 */ EXTERN int Tcl_UpVar2 _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * part1, char * part2, char * localName, int flags)); -/* 267 */ -EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((char * file, - int line)); -/* 268 */ +/* 260 */ EXTERN int Tcl_VarEval _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); -/* 269 */ -EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, - va_list argList)); -/* 270 */ +/* 261 */ EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); -/* 271 */ +/* 262 */ EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); -/* 272 */ -EXTERN int Tcl_WaitForEvent _ANSI_ARGS_((Tcl_Time * timePtr)); -/* 273 */ -EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, - int options)); -/* 274 */ +/* 263 */ EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan, char * s, int slen)); -/* 275 */ +/* 264 */ EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], char * message)); +/* 265 */ +EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((char * fileName)); +/* 266 */ +EXTERN void Tcl_ValidateAllMemory _ANSI_ARGS_((char * file, + int line)); +/* 267 */ +EXTERN void Tcl_AppendResultVA _ANSI_ARGS_((Tcl_Interp * interp, + va_list argList)); +/* 268 */ +EXTERN void Tcl_AppendStringsToObjVA _ANSI_ARGS_(( + Tcl_Obj * objPtr, va_list argList)); +/* 269 */ +EXTERN char * Tcl_HashStats _ANSI_ARGS_((Tcl_HashTable * tablePtr)); +/* 270 */ +EXTERN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char ** termPtr)); +/* 271 */ +EXTERN char * Tcl_PkgPresent _ANSI_ARGS_((Tcl_Interp * interp, + char * name, char * version, int exact)); +/* 272 */ +EXTERN char * Tcl_PkgPresentEx _ANSI_ARGS_((Tcl_Interp * interp, + char * name, char * version, int exact, + ClientData * clientDataPtr)); +/* 273 */ +EXTERN int Tcl_PkgProvide _ANSI_ARGS_((Tcl_Interp * interp, + char * name, char * version)); +/* 274 */ +EXTERN char * Tcl_PkgRequire _ANSI_ARGS_((Tcl_Interp * interp, + char * name, char * version, int exact)); +/* 275 */ +EXTERN void Tcl_SetErrorCodeVA _ANSI_ARGS_((Tcl_Interp * interp, + va_list argList)); /* 276 */ +EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, + va_list argList)); +/* 277 */ +EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, + int options)); +/* 278 */ +EXTERN void panicVA _ANSI_ARGS_((char * format, va_list argList)); +/* 279 */ EXTERN void Tcl_AppendObjToObj _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); -/* 277 */ +/* 280 */ EXTERN void Tcl_AlertNotifier _ANSI_ARGS_((ClientData clientData)); -/* 278 */ +/* 281 */ EXTERN Tcl_Encoding Tcl_CreateEncoding _ANSI_ARGS_(( Tcl_EncodingType * typePtr)); -/* 279 */ +/* 282 */ EXTERN void Tcl_CreateThreadExitHandler _ANSI_ARGS_(( Tcl_ExitProc * proc, ClientData clientData)); -/* 280 */ +/* 283 */ EXTERN void Tcl_DeleteThreadExitHandler _ANSI_ARGS_(( Tcl_ExitProc * proc, ClientData clientData)); -/* 281 */ +/* 284 */ EXTERN void Tcl_DiscardResult _ANSI_ARGS_(( Tcl_SavedResult * statePtr)); -/* 282 */ +/* 285 */ EXTERN int Tcl_EvalEx _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); -/* 283 */ +/* 286 */ EXTERN int Tcl_EvalObjv _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); -/* 284 */ +/* 287 */ EXTERN int Tcl_EvalObjEx _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); -/* 285 */ +/* 288 */ EXTERN void Tcl_ExitThread _ANSI_ARGS_((int status)); -/* 286 */ +/* 289 */ EXTERN int Tcl_ExternalToUtf _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); -/* 287 */ +/* 290 */ EXTERN char * Tcl_ExternalToUtfDString _ANSI_ARGS_(( Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); -/* 288 */ +/* 291 */ EXTERN void Tcl_FinalizeThread _ANSI_ARGS_((void)); -/* 289 */ +/* 292 */ EXTERN void Tcl_FinalizeNotifier _ANSI_ARGS_(( ClientData clientData)); -/* 290 */ +/* 293 */ EXTERN void Tcl_FreeEncoding _ANSI_ARGS_((Tcl_Encoding encoding)); -/* 291 */ +/* 294 */ EXTERN Tcl_ThreadId Tcl_GetCurrentThread _ANSI_ARGS_((void)); -/* 292 */ +/* 295 */ EXTERN Tcl_Encoding Tcl_GetEncoding _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); -/* 293 */ +/* 296 */ EXTERN char * Tcl_GetEncodingName _ANSI_ARGS_(( Tcl_Encoding encoding)); -/* 294 */ +/* 297 */ EXTERN void Tcl_GetEncodingNames _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 295 */ +/* 298 */ EXTERN int Tcl_GetIndexFromObjStruct _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, int offset, char * msg, int flags, int * indexPtr)); -/* 296 */ +/* 299 */ EXTERN VOID * Tcl_GetThreadData _ANSI_ARGS_(( Tcl_ThreadDataKey * keyPtr, int size)); -/* 297 */ +/* 300 */ EXTERN Tcl_Obj * Tcl_GetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); -/* 298 */ +/* 301 */ EXTERN ClientData Tcl_InitNotifier _ANSI_ARGS_((void)); -/* 299 */ +/* 302 */ EXTERN void Tcl_MutexLock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); -/* 300 */ +/* 303 */ EXTERN void Tcl_MutexUnlock _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); -/* 301 */ +/* 304 */ EXTERN void Tcl_ConditionNotify _ANSI_ARGS_(( Tcl_Condition * condPtr)); -/* 302 */ +/* 305 */ EXTERN void Tcl_ConditionWait _ANSI_ARGS_(( Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); -/* 303 */ +/* 306 */ EXTERN int Tcl_NumUtfChars _ANSI_ARGS_((CONST char * src, int len)); -/* 304 */ +/* 307 */ EXTERN int Tcl_ReadChars _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag)); -/* 305 */ +/* 308 */ EXTERN void Tcl_RestoreResult _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); -/* 306 */ +/* 309 */ EXTERN void Tcl_SaveResult _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); -/* 307 */ +/* 310 */ EXTERN int Tcl_SetSystemEncoding _ANSI_ARGS_(( Tcl_Interp * interp, CONST char * name)); -/* 308 */ +/* 311 */ EXTERN Tcl_Obj * Tcl_SetVar2Ex _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, Tcl_Obj * newValuePtr, int flags)); -/* 309 */ +/* 312 */ EXTERN void Tcl_ThreadAlert _ANSI_ARGS_((Tcl_ThreadId threadId)); -/* 310 */ +/* 313 */ EXTERN void Tcl_ThreadQueueEvent _ANSI_ARGS_(( Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position)); -/* 311 */ +/* 314 */ EXTERN Tcl_UniChar Tcl_UniCharAtIndex _ANSI_ARGS_((CONST char * src, int index)); -/* 312 */ +/* 315 */ EXTERN Tcl_UniChar Tcl_UniCharToLower _ANSI_ARGS_((int ch)); -/* 313 */ +/* 316 */ EXTERN Tcl_UniChar Tcl_UniCharToTitle _ANSI_ARGS_((int ch)); -/* 314 */ +/* 317 */ EXTERN Tcl_UniChar Tcl_UniCharToUpper _ANSI_ARGS_((int ch)); -/* 315 */ +/* 318 */ EXTERN int Tcl_UniCharToUtf _ANSI_ARGS_((int ch, char * buf)); -/* 316 */ +/* 319 */ EXTERN char * Tcl_UtfAtIndex _ANSI_ARGS_((CONST char * src, int index)); -/* 317 */ +/* 320 */ EXTERN int Tcl_UtfCharComplete _ANSI_ARGS_((CONST char * src, int len)); -/* 318 */ +/* 321 */ EXTERN int Tcl_UtfBackslash _ANSI_ARGS_((CONST char * src, int * readPtr, char * dst)); -/* 319 */ +/* 322 */ EXTERN char * Tcl_UtfFindFirst _ANSI_ARGS_((CONST char * src, int ch)); -/* 320 */ +/* 323 */ EXTERN char * Tcl_UtfFindLast _ANSI_ARGS_((CONST char * src, int ch)); -/* Slot 321 is reserved */ -/* Slot 322 is reserved */ -/* 323 */ -EXTERN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src)); /* 324 */ +EXTERN char * Tcl_UtfNext _ANSI_ARGS_((CONST char * src)); +/* 325 */ EXTERN char * Tcl_UtfPrev _ANSI_ARGS_((CONST char * src, CONST char * start)); -/* 325 */ +/* 326 */ EXTERN int Tcl_UtfToExternal _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); -/* 326 */ +/* 327 */ EXTERN char * Tcl_UtfToExternalDString _ANSI_ARGS_(( Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); -/* 327 */ -EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char * src)); /* 328 */ -EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char * src)); +EXTERN int Tcl_UtfToLower _ANSI_ARGS_((char * src)); /* 329 */ +EXTERN int Tcl_UtfToTitle _ANSI_ARGS_((char * src)); +/* 330 */ EXTERN int Tcl_UtfToUniChar _ANSI_ARGS_((CONST char * src, Tcl_UniChar * chPtr)); -/* 330 */ -EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src)); /* 331 */ +EXTERN int Tcl_UtfToUpper _ANSI_ARGS_((char * src)); +/* 332 */ EXTERN int Tcl_WriteChars _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); -/* 332 */ +/* 333 */ EXTERN int Tcl_WriteObj _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); @@ -1032,339 +1045,364 @@ typedef struct TclStubs { int magic; struct TclStubHooks *hooks; - void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message)); /* 0 */ - void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message, int length)); /* 1 */ - char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 2 */ - void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 3 */ - int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 4 */ - void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str)); /* 5 */ - void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 6 */ - void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 7 */ - void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, int length)); /* 8 */ - void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); /* 9 */ - void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 10 */ - Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); /* 11 */ - void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 12 */ - int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 13 */ - void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 14 */ - int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 15 */ - void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 16 */ - char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); /* 17 */ - int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, char * optionName, char * optionList)); /* 18 */ - void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 19 */ - void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, ClientData clientData)); /* 20 */ - int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 21 */ - int (*tcl_CommandComplete) _ANSI_ARGS_((char * cmd)); /* 22 */ - char * (*tcl_Concat) _ANSI_ARGS_((int argc, char ** argv)); /* 23 */ - Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 24 */ - int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int length, char * dst, int flags)); /* 25 */ - int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, int flags)); /* 26 */ - int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); /* 27 */ - int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int argc, char ** argv)); /* 28 */ - int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int objc, Tcl_Obj *CONST objv[])); /* 29 */ - Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr, char * chanName, ClientData instanceData, int mask)); /* 30 */ - void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); /* 31 */ - void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 32 */ - Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 33 */ - void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 34 */ - void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 35 */ - Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 36 */ - void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); /* 37 */ - Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 38 */ - Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName, int isSafe)); /* 39 */ - Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 40 */ - Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 41 */ - char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, char * file, int line)); /* 42 */ - int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, char * file, int line)); /* 43 */ - char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, char * file, int line)); /* 44 */ - void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 45 */ - void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 46 */ - int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 47 */ - Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, char * file, int line)); /* 48 */ - Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, int length, char * file, int line)); /* 49 */ - Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, char * file, int line)); /* 50 */ - Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[], char * file, int line)); /* 51 */ - Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, char * file, int line)); /* 52 */ - Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((char * file, int line)); /* 53 */ - Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int length, char * file, int line)); /* 54 */ - void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 55 */ - int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName)); /* 56 */ - int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 57 */ - void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); /* 58 */ - void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 59 */ - void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, ClientData clientData)); /* 60 */ - void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 61 */ - void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 62 */ - void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 63 */ - void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 64 */ - void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 65 */ - void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 66 */ - void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace trace)); /* 67 */ - void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 68 */ - void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 69 */ - int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 70 */ - void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData clientData)); /* 71 */ - char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * str, int length)); /* 72 */ - char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * str)); /* 73 */ - void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 74 */ - void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 75 */ - void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 76 */ - void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 77 */ - void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 78 */ - void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int length)); /* 79 */ - void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 80 */ - int (*tcl_DumpActiveMemory) _ANSI_ARGS_((char * fileName)); /* 81 */ - Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 82 */ - int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 83 */ - char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 84 */ - char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 85 */ - int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, char * str)); /* 86 */ - int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName)); /* 87 */ - void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc * freeProc)); /* 88 */ - int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 89 */ - void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 90 */ - int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * hiddenCmdToken, char * cmdName)); /* 91 */ - int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * ptr)); /* 92 */ - int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); /* 93 */ - int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * str, double * ptr)); /* 94 */ - int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); /* 95 */ - int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * ptr)); /* 96 */ - int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); /* 97 */ - int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 98 */ - int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, char * str)); /* 99 */ - void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 100 */ - void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 101 */ - Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); /* 102 */ - int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 103 */ - void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 104 */ - void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 105 */ - void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 106 */ - int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char *** argvPtr)); /* 107 */ - int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); /* 108 */ - ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc ** procPtr)); /* 109 */ - int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * boolPtr)); /* 110 */ - int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr)); /* 111 */ - unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 112 */ - Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * chanName, int * modePtr)); /* 113 */ - int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 114 */ - int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); /* 115 */ - ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan)); /* 116 */ - int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 117 */ - char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 118 */ - int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, Tcl_DString * dsPtr)); /* 119 */ - Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 120 */ - int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 121 */ - char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 122 */ - int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * str, double * doublePtr)); /* 123 */ - int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr)); /* 124 */ - int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 125 */ - char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 126 */ - int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, char * msg, int flags, int * indexPtr)); /* 127 */ - int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * intPtr)); /* 128 */ - int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); /* 129 */ - int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr)); /* 130 */ - int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr)); /* 131 */ - Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */ - CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 133 */ - Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 134 */ - Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((char * typeName)); /* 135 */ - Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 136 */ - int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 137 */ - int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 138 */ - int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 139 */ - Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName)); /* 140 */ - Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 141 */ - char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 142 */ - char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 143 */ - char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); /* 144 */ - char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 145 */ - int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * command)); /* 146 */ - int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 147 */ - char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 148 */ - int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, char * hiddenCmdToken)); /* 149 */ - int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 150 */ - void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType)); /* 151 */ - void (*tcl_InitMemory) _ANSI_ARGS_((Tcl_Interp * interp)); /* 152 */ - int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 153 */ - int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 154 */ - int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 155 */ - int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 156 */ - void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 157 */ - char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, char ** argv, Tcl_DString * resultPtr)); /* 158 */ - int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * addr, int type)); /* 159 */ - int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 160 */ - int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr)); /* 161 */ - int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 162 */ - int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr)); /* 163 */ - int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * intPtr)); /* 164 */ - int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 165 */ - Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 166 */ - int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 167 */ - Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSocket)); /* 168 */ - char * (*tcl_Merge) _ANSI_ARGS_((int argc, char ** argv)); /* 169 */ - Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 170 */ - Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, int length)); /* 171 */ - Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 172 */ - Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 173 */ - Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 174 */ - Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 175 */ - Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 176 */ - Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int length)); /* 177 */ - Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * searchPtr)); /* 178 */ - void (*tcl_NotifyChannel) _ANSI_ARGS_((Tcl_Channel channel, int mask)); /* 179 */ - Tcl_Obj * (*tcl_ObjGetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, int flags)); /* 180 */ - Tcl_Obj * (*tcl_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 181 */ - Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 182 */ - Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 183 */ - Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * address, char * myaddr, int myport, int async)); /* 184 */ - Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData)); /* 185 */ - void (*panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 186 */ - void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 187 */ - char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char ** termPtr)); /* 188 */ - char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 189 */ - char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 190 */ - int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version)); /* 191 */ - int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, ClientData clientData)); /* 192 */ - char * (*tcl_PkgRequire) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 193 */ - char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 194 */ - char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 195 */ - void (*tcl_Preserve) _ANSI_ARGS_((ClientData data)); /* 196 */ - void (*tcl_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 197 */ - int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * str)); /* 198 */ - void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePosition position)); /* 199 */ - int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRead)); /* 200 */ - char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 201 */ - void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 202 */ - int (*tcl_RecordAndEval) _ANSI_ARGS_((Tcl_Interp * interp, char * cmd, int flags)); /* 203 */ - int (*tcl_RecordAndEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * cmdPtr, int flags)); /* 204 */ - Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, char * str)); /* 205 */ - int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp regexp, CONST char * str, CONST char * start)); /* 206 */ - int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * pattern)); /* 207 */ - void (*tcl_RegExpRange) _ANSI_ARGS_((Tcl_RegExp regexp, int index, char ** startPtr, char ** endPtr)); /* 208 */ - void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 209 */ - void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 210 */ - void (*tcl_Release) _ANSI_ARGS_((ClientData clientData)); /* 211 */ - void (*tcl_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 212 */ - int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * str, int length, int * flagPtr)); /* 213 */ - int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * str, int * flagPtr)); /* 214 */ - int (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 215 */ - int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 216 */ - int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 217 */ - void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 218 */ - void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue)); /* 219 */ - unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 220 */ - void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, unsigned char * bytes, int length)); /* 221 */ - void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 222 */ - int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, char * newValue)); /* 223 */ - int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 224 */ - void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleValue)); /* 225 */ - void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 226 */ - void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 227 */ - void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 228 */ - void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int intValue)); /* 229 */ - void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv[])); /* 230 */ - void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj * objPtr, long longValue)); /* 231 */ - void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 232 */ - void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); /* 233 */ - void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 234 */ + int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, ClientData clientData)); /* 0 */ + char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 1 */ + void (*panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 2 */ + char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ + void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */ + char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 5 */ + char * (*tcl_DbCkalloc) _ANSI_ARGS_((unsigned int size, char * file, int line)); /* 6 */ + int (*tcl_DbCkfree) _ANSI_ARGS_((char * ptr, char * file, int line)); /* 7 */ + char * (*tcl_DbCkrealloc) _ANSI_ARGS_((char * ptr, unsigned int size, char * file, int line)); /* 8 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FileProc * proc, ClientData clientData)); /* 9 */ +#endif /* UNIX */ +#ifdef __WIN32__ + void *reserved9; +#endif /* __WIN32__ */ +#ifdef MAC_TCL + void *reserved9; +#endif /* MAC_TCL */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 10 */ +#endif /* UNIX */ +#ifdef __WIN32__ + void *reserved10; +#endif /* __WIN32__ */ +#ifdef MAC_TCL + void *reserved10; +#endif /* MAC_TCL */ + void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 11 */ + void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 12 */ + int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 13 */ + int (*tcl_AppendAllObjTypes) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 14 */ + void (*tcl_AppendStringsToObj) _ANSI_ARGS_(TCL_VARARGS(Tcl_Obj *,objPtr)); /* 15 */ + void (*tcl_AppendToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, int length)); /* 16 */ + Tcl_Obj * (*tcl_ConcatObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 17 */ + int (*tcl_ConvertToType) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_ObjType * typePtr)); /* 18 */ + void (*tcl_DbDecrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 19 */ + void (*tcl_DbIncrRefCount) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 20 */ + int (*tcl_DbIsShared) _ANSI_ARGS_((Tcl_Obj * objPtr, char * file, int line)); /* 21 */ + Tcl_Obj * (*tcl_DbNewBooleanObj) _ANSI_ARGS_((int boolValue, char * file, int line)); /* 22 */ + Tcl_Obj * (*tcl_DbNewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, int length, char * file, int line)); /* 23 */ + Tcl_Obj * (*tcl_DbNewDoubleObj) _ANSI_ARGS_((double doubleValue, char * file, int line)); /* 24 */ + Tcl_Obj * (*tcl_DbNewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[], char * file, int line)); /* 25 */ + Tcl_Obj * (*tcl_DbNewLongObj) _ANSI_ARGS_((long longValue, char * file, int line)); /* 26 */ + Tcl_Obj * (*tcl_DbNewObj) _ANSI_ARGS_((char * file, int line)); /* 27 */ + Tcl_Obj * (*tcl_DbNewStringObj) _ANSI_ARGS_((CONST char * bytes, int length, char * file, int line)); /* 28 */ + Tcl_Obj * (*tcl_DuplicateObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 29 */ + void (*tclFreeObj) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 30 */ + int (*tcl_GetBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * boolPtr)); /* 31 */ + int (*tcl_GetBooleanFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * boolPtr)); /* 32 */ + unsigned char * (*tcl_GetByteArrayFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 33 */ + int (*tcl_GetDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * string, double * doublePtr)); /* 34 */ + int (*tcl_GetDoubleFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * doublePtr)); /* 35 */ + int (*tcl_GetIndexFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, char * msg, int flags, int * indexPtr)); /* 36 */ + int (*tcl_GetInt) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * intPtr)); /* 37 */ + int (*tcl_GetIntFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * intPtr)); /* 38 */ + int (*tcl_GetLongFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * longPtr)); /* 39 */ + Tcl_ObjType * (*tcl_GetObjType) _ANSI_ARGS_((char * typeName)); /* 40 */ + char * (*tcl_GetStringFromObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int * lengthPtr)); /* 41 */ + void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */ + int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */ + int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr)); /* 44 */ + int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 45 */ + int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */ + int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * intPtr)); /* 47 */ + int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ + Tcl_Obj * (*tcl_NewBooleanObj) _ANSI_ARGS_((int boolValue)); /* 49 */ + Tcl_Obj * (*tcl_NewByteArrayObj) _ANSI_ARGS_((unsigned char * bytes, int length)); /* 50 */ + Tcl_Obj * (*tcl_NewDoubleObj) _ANSI_ARGS_((double doubleValue)); /* 51 */ + Tcl_Obj * (*tcl_NewIntObj) _ANSI_ARGS_((int intValue)); /* 52 */ + Tcl_Obj * (*tcl_NewListObj) _ANSI_ARGS_((int objc, Tcl_Obj *CONST objv[])); /* 53 */ + Tcl_Obj * (*tcl_NewLongObj) _ANSI_ARGS_((long longValue)); /* 54 */ + Tcl_Obj * (*tcl_NewObj) _ANSI_ARGS_((void)); /* 55 */ + Tcl_Obj * (*tcl_NewStringObj) _ANSI_ARGS_((CONST char * bytes, int length)); /* 56 */ + void (*tcl_SetBooleanObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int boolValue)); /* 57 */ + unsigned char * (*tcl_SetByteArrayLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 58 */ + void (*tcl_SetByteArrayObj) _ANSI_ARGS_((Tcl_Obj * objPtr, unsigned char * bytes, int length)); /* 59 */ + void (*tcl_SetDoubleObj) _ANSI_ARGS_((Tcl_Obj * objPtr, double doubleValue)); /* 60 */ + void (*tcl_SetIntObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int intValue)); /* 61 */ + void (*tcl_SetListObj) _ANSI_ARGS_((Tcl_Obj * objPtr, int objc, Tcl_Obj *CONST objv[])); /* 62 */ + void (*tcl_SetLongObj) _ANSI_ARGS_((Tcl_Obj * objPtr, long longValue)); /* 63 */ + void (*tcl_SetObjLength) _ANSI_ARGS_((Tcl_Obj * objPtr, int length)); /* 64 */ + void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, int length)); /* 65 */ + void (*tcl_AddErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message)); /* 66 */ + void (*tcl_AddObjErrorInfo) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * message, int length)); /* 67 */ + void (*tcl_AllowExceptions) _ANSI_ARGS_((Tcl_Interp * interp)); /* 68 */ + void (*tcl_AppendElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string)); /* 69 */ + void (*tcl_AppendResult) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 70 */ + Tcl_AsyncHandler (*tcl_AsyncCreate) _ANSI_ARGS_((Tcl_AsyncProc * proc, ClientData clientData)); /* 71 */ + void (*tcl_AsyncDelete) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 72 */ + int (*tcl_AsyncInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int code)); /* 73 */ + void (*tcl_AsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 74 */ + int (*tcl_AsyncReady) _ANSI_ARGS_((void)); /* 75 */ + void (*tcl_BackgroundError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 76 */ + char (*tcl_Backslash) _ANSI_ARGS_((CONST char * src, int * readPtr)); /* 77 */ + int (*tcl_BadChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, char * optionName, char * optionList)); /* 78 */ + void (*tcl_CallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 79 */ + void (*tcl_CancelIdleCall) _ANSI_ARGS_((Tcl_IdleProc * idleProc, ClientData clientData)); /* 80 */ + int (*tcl_Close) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 81 */ + int (*tcl_CommandComplete) _ANSI_ARGS_((char * cmd)); /* 82 */ + char * (*tcl_Concat) _ANSI_ARGS_((int argc, char ** argv)); /* 83 */ + int (*tcl_ConvertElement) _ANSI_ARGS_((CONST char * src, char * dst, int flags)); /* 84 */ + int (*tcl_ConvertCountedElement) _ANSI_ARGS_((CONST char * src, int length, char * dst, int flags)); /* 85 */ + int (*tcl_CreateAlias) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int argc, char ** argv)); /* 86 */ + int (*tcl_CreateAliasObj) _ANSI_ARGS_((Tcl_Interp * slave, char * slaveCmd, Tcl_Interp * target, char * targetCmd, int objc, Tcl_Obj *CONST objv[])); /* 87 */ + Tcl_Channel (*tcl_CreateChannel) _ANSI_ARGS_((Tcl_ChannelType * typePtr, char * chanName, ClientData instanceData, int mask)); /* 88 */ + void (*tcl_CreateChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, int mask, Tcl_ChannelProc * proc, ClientData clientData)); /* 89 */ + void (*tcl_CreateCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 90 */ + Tcl_Command (*tcl_CreateCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 91 */ + void (*tcl_CreateEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 92 */ + void (*tcl_CreateExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 93 */ + Tcl_Interp * (*tcl_CreateInterp) _ANSI_ARGS_((void)); /* 94 */ + void (*tcl_CreateMathFunc) _ANSI_ARGS_((Tcl_Interp * interp, char * name, int numArgs, Tcl_ValueType * argTypes, Tcl_MathProc * proc, ClientData clientData)); /* 95 */ + Tcl_Command (*tcl_CreateObjCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_ObjCmdProc * proc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 96 */ + Tcl_Interp * (*tcl_CreateSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName, int isSafe)); /* 97 */ + Tcl_TimerToken (*tcl_CreateTimerHandler) _ANSI_ARGS_((int milliseconds, Tcl_TimerProc * proc, ClientData clientData)); /* 98 */ + Tcl_Trace (*tcl_CreateTrace) _ANSI_ARGS_((Tcl_Interp * interp, int level, Tcl_CmdTraceProc * proc, ClientData clientData)); /* 99 */ + void (*tcl_DeleteAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 100 */ + void (*tcl_DeleteChannelHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_ChannelProc * proc, ClientData clientData)); /* 101 */ + void (*tcl_DeleteCloseHandler) _ANSI_ARGS_((Tcl_Channel chan, Tcl_CloseProc * proc, ClientData clientData)); /* 102 */ + int (*tcl_DeleteCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName)); /* 103 */ + int (*tcl_DeleteCommandFromToken) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 104 */ + void (*tcl_DeleteEvents) _ANSI_ARGS_((Tcl_EventDeleteProc * proc, ClientData clientData)); /* 105 */ + void (*tcl_DeleteEventSource) _ANSI_ARGS_((Tcl_EventSetupProc * setupProc, Tcl_EventCheckProc * checkProc, ClientData clientData)); /* 106 */ + void (*tcl_DeleteExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 107 */ + void (*tcl_DeleteHashEntry) _ANSI_ARGS_((Tcl_HashEntry * entryPtr)); /* 108 */ + void (*tcl_DeleteHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 109 */ + void (*tcl_DeleteInterp) _ANSI_ARGS_((Tcl_Interp * interp)); /* 110 */ + void (*tcl_DetachPids) _ANSI_ARGS_((int numPids, Tcl_Pid * pidPtr)); /* 111 */ + void (*tcl_DeleteTimerHandler) _ANSI_ARGS_((Tcl_TimerToken token)); /* 112 */ + void (*tcl_DeleteTrace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Trace trace)); /* 113 */ + void (*tcl_DontCallWhenDeleted) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 114 */ + int (*tcl_DoOneEvent) _ANSI_ARGS_((int flags)); /* 115 */ + void (*tcl_DoWhenIdle) _ANSI_ARGS_((Tcl_IdleProc * proc, ClientData clientData)); /* 116 */ + char * (*tcl_DStringAppend) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * string, int length)); /* 117 */ + char * (*tcl_DStringAppendElement) _ANSI_ARGS_((Tcl_DString * dsPtr, CONST char * string)); /* 118 */ + void (*tcl_DStringEndSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 119 */ + void (*tcl_DStringFree) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 120 */ + void (*tcl_DStringGetResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 121 */ + void (*tcl_DStringInit) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 122 */ + void (*tcl_DStringResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * dsPtr)); /* 123 */ + void (*tcl_DStringSetLength) _ANSI_ARGS_((Tcl_DString * dsPtr, int length)); /* 124 */ + void (*tcl_DStringStartSublist) _ANSI_ARGS_((Tcl_DString * dsPtr)); /* 125 */ + int (*tcl_Eof) _ANSI_ARGS_((Tcl_Channel chan)); /* 126 */ + char * (*tcl_ErrnoId) _ANSI_ARGS_((void)); /* 127 */ + char * (*tcl_ErrnoMsg) _ANSI_ARGS_((int err)); /* 128 */ + int (*tcl_Eval) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 129 */ + int (*tcl_EvalFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName)); /* 130 */ + int (*tcl_EvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 131 */ + void (*tcl_EventuallyFree) _ANSI_ARGS_((ClientData clientData, Tcl_FreeProc * freeProc)); /* 132 */ + void (*tcl_Exit) _ANSI_ARGS_((int status)); /* 133 */ + int (*tcl_ExposeCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * hiddenCmdToken, char * cmdName)); /* 134 */ + int (*tcl_ExprBoolean) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * ptr)); /* 135 */ + int (*tcl_ExprBooleanObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int * ptr)); /* 136 */ + int (*tcl_ExprDouble) _ANSI_ARGS_((Tcl_Interp * interp, char * string, double * ptr)); /* 137 */ + int (*tcl_ExprDoubleObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, double * ptr)); /* 138 */ + int (*tcl_ExprLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * ptr)); /* 139 */ + int (*tcl_ExprLongObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, long * ptr)); /* 140 */ + int (*tcl_ExprObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Obj ** resultPtrPtr)); /* 141 */ + int (*tcl_ExprString) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 142 */ + void (*tcl_Finalize) _ANSI_ARGS_((void)); /* 143 */ + void (*tcl_FindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 144 */ + Tcl_HashEntry * (*tcl_FirstHashEntry) _ANSI_ARGS_((Tcl_HashTable * tablePtr, Tcl_HashSearch * searchPtr)); /* 145 */ + int (*tcl_Flush) _ANSI_ARGS_((Tcl_Channel chan)); /* 146 */ + void (*tcl_FreeResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 147 */ + int (*tcl_GetAlias) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * argcPtr, char *** argvPtr)); /* 148 */ + int (*tcl_GetAliasObj) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveCmd, Tcl_Interp ** targetInterpPtr, char ** targetCmdPtr, int * objcPtr, Tcl_Obj *** objv)); /* 149 */ + ClientData (*tcl_GetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc ** procPtr)); /* 150 */ + Tcl_Channel (*tcl_GetChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * chanName, int * modePtr)); /* 151 */ + int (*tcl_GetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan)); /* 152 */ + int (*tcl_GetChannelHandle) _ANSI_ARGS_((Tcl_Channel chan, int direction, ClientData * handlePtr)); /* 153 */ + ClientData (*tcl_GetChannelInstanceData) _ANSI_ARGS_((Tcl_Channel chan)); /* 154 */ + int (*tcl_GetChannelMode) _ANSI_ARGS_((Tcl_Channel chan)); /* 155 */ + char * (*tcl_GetChannelName) _ANSI_ARGS_((Tcl_Channel chan)); /* 156 */ + int (*tcl_GetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, Tcl_DString * dsPtr)); /* 157 */ + Tcl_ChannelType * (*tcl_GetChannelType) _ANSI_ARGS_((Tcl_Channel chan)); /* 158 */ + int (*tcl_GetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 159 */ + char * (*tcl_GetCommandName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command)); /* 160 */ + int (*tcl_GetErrno) _ANSI_ARGS_((void)); /* 161 */ + char * (*tcl_GetHostName) _ANSI_ARGS_((void)); /* 162 */ + int (*tcl_GetInterpPath) _ANSI_ARGS_((Tcl_Interp * askInterp, Tcl_Interp * slaveInterp)); /* 163 */ + Tcl_Interp * (*tcl_GetMaster) _ANSI_ARGS_((Tcl_Interp * interp)); /* 164 */ + CONST char * (*tcl_GetNameOfExecutable) _ANSI_ARGS_((void)); /* 165 */ + Tcl_Obj * (*tcl_GetObjResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 166 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int write, int checkUsage, ClientData * filePtr)); /* 167 */ +#endif /* UNIX */ +#ifdef __WIN32__ + void *reserved167; +#endif /* __WIN32__ */ +#ifdef MAC_TCL + void *reserved167; +#endif /* MAC_TCL */ + Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 168 */ + int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 169 */ + int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 170 */ + int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ + Tcl_Interp * (*tcl_GetSlave) _ANSI_ARGS_((Tcl_Interp * interp, char * slaveName)); /* 172 */ + Tcl_Channel (*tcl_GetStdChannel) _ANSI_ARGS_((int type)); /* 173 */ + char * (*tcl_GetStringResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 174 */ + char * (*tcl_GetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); /* 175 */ + char * (*tcl_GetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 176 */ + int (*tcl_GlobalEval) _ANSI_ARGS_((Tcl_Interp * interp, char * command)); /* 177 */ + int (*tcl_GlobalEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 178 */ + int (*tcl_HideCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, char * hiddenCmdToken)); /* 179 */ + int (*tcl_Init) _ANSI_ARGS_((Tcl_Interp * interp)); /* 180 */ + void (*tcl_InitHashTable) _ANSI_ARGS_((Tcl_HashTable * tablePtr, int keyType)); /* 181 */ + int (*tcl_InputBlocked) _ANSI_ARGS_((Tcl_Channel chan)); /* 182 */ + int (*tcl_InputBuffered) _ANSI_ARGS_((Tcl_Channel chan)); /* 183 */ + int (*tcl_InterpDeleted) _ANSI_ARGS_((Tcl_Interp * interp)); /* 184 */ + int (*tcl_IsSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 185 */ + char * (*tcl_JoinPath) _ANSI_ARGS_((int argc, char ** argv, Tcl_DString * resultPtr)); /* 186 */ + int (*tcl_LinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * addr, int type)); /* 187 */ + void *reserved188; + Tcl_Channel (*tcl_MakeFileChannel) _ANSI_ARGS_((ClientData handle, int mode)); /* 189 */ + int (*tcl_MakeSafe) _ANSI_ARGS_((Tcl_Interp * interp)); /* 190 */ + Tcl_Channel (*tcl_MakeTcpClientChannel) _ANSI_ARGS_((ClientData tcpSocket)); /* 191 */ + char * (*tcl_Merge) _ANSI_ARGS_((int argc, char ** argv)); /* 192 */ + Tcl_HashEntry * (*tcl_NextHashEntry) _ANSI_ARGS_((Tcl_HashSearch * searchPtr)); /* 193 */ + 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_ObjSetVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, Tcl_Obj * newValuePtr, int flags)); /* 196 */ + Tcl_Channel (*tcl_OpenCommandChannel) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 197 */ + Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * 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_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_PrintDouble) _ANSI_ARGS_((Tcl_Interp * interp, double value, char * dst)); /* 202 */ + int (*tcl_PutEnv) _ANSI_ARGS_((CONST char * string)); /* 203 */ + char * (*tcl_PosixError) _ANSI_ARGS_((Tcl_Interp * interp)); /* 204 */ + void (*tcl_QueueEvent) _ANSI_ARGS_((Tcl_Event * evPtr, Tcl_QueuePosition position)); /* 205 */ + int (*tcl_Read) _ANSI_ARGS_((Tcl_Channel chan, char * bufPtr, int toRead)); /* 206 */ + void (*tcl_ReapDetachedProcs) _ANSI_ARGS_((void)); /* 207 */ + 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 */ + void (*tcl_RegisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 210 */ + void (*tcl_RegisterObjType) _ANSI_ARGS_((Tcl_ObjType * typePtr)); /* 211 */ + Tcl_RegExp (*tcl_RegExpCompile) _ANSI_ARGS_((Tcl_Interp * interp, char * string)); /* 212 */ + int (*tcl_RegExpExec) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp regexp, CONST char * string, CONST char * start)); /* 213 */ + int (*tcl_RegExpMatch) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * pattern)); /* 214 */ + 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_ResetResult) _ANSI_ARGS_((Tcl_Interp * interp)); /* 217 */ + int (*tcl_ScanElement) _ANSI_ARGS_((CONST char * string, int * flagPtr)); /* 218 */ + int (*tcl_ScanCountedElement) _ANSI_ARGS_((CONST char * string, int length, int * flagPtr)); /* 219 */ + int (*tcl_Seek) _ANSI_ARGS_((Tcl_Channel chan, int offset, int mode)); /* 220 */ + int (*tcl_ServiceAll) _ANSI_ARGS_((void)); /* 221 */ + int (*tcl_ServiceEvent) _ANSI_ARGS_((int flags)); /* 222 */ + void (*tcl_SetAssocData) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_InterpDeleteProc * proc, ClientData clientData)); /* 223 */ + void (*tcl_SetChannelBufferSize) _ANSI_ARGS_((Tcl_Channel chan, int sz)); /* 224 */ + int (*tcl_SetChannelOption) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, char * optionName, char * newValue)); /* 225 */ + int (*tcl_SetCommandInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * cmdName, Tcl_CmdInfo * infoPtr)); /* 226 */ + void (*tcl_SetErrno) _ANSI_ARGS_((int err)); /* 227 */ + void (*tcl_SetErrorCode) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 228 */ + void (*tcl_SetMaxBlockTime) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 229 */ + void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 230 */ + int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int depth)); /* 231 */ + void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tcl_FreeProc * freeProc)); /* 232 */ + int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 233 */ + void (*tcl_SetObjErrorCode) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * errorObjPtr)); /* 234 */ void (*tcl_SetObjResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * resultObjPtr)); /* 235 */ - void (*tcl_SetPanicProc) _ANSI_ARGS_((Tcl_PanicProc * panicProc)); /* 236 */ - int (*tcl_SetRecursionLimit) _ANSI_ARGS_((Tcl_Interp * interp, int depth)); /* 237 */ - void (*tcl_SetResult) _ANSI_ARGS_((Tcl_Interp * interp, char * str, Tcl_FreeProc * freeProc)); /* 238 */ - int (*tcl_SetServiceMode) _ANSI_ARGS_((int mode)); /* 239 */ - void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 240 */ - void (*tcl_SetStringObj) _ANSI_ARGS_((Tcl_Obj * objPtr, char * bytes, int length)); /* 241 */ - void (*tcl_SetTimer) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 242 */ - char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * newValue, int flags)); /* 243 */ - char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, char * newValue, int flags)); /* 244 */ - char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 245 */ - char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 246 */ - void (*tcl_Sleep) _ANSI_ARGS_((int ms)); /* 247 */ - void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 248 */ - int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int * argcPtr, char *** argvPtr)); /* 249 */ - void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, char *** argvPtr)); /* 250 */ - void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc)); /* 251 */ - int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * str, CONST char * pattern)); /* 252 */ - int (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 253 */ - int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 254 */ - int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255 */ - char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_DString * bufferPtr)); /* 256 */ - int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, char * str, int len, int atHead)); /* 257 */ - void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 258 */ - int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 259 */ - int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); /* 260 */ - int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 261 */ - void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 262 */ - void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 263 */ - void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 264 */ - int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * varName, char * localName, int flags)); /* 265 */ - int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * part1, char * part2, char * localName, int flags)); /* 266 */ - void (*tcl_ValidateAllMemory) _ANSI_ARGS_((char * file, int line)); /* 267 */ - int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 268 */ - int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 269 */ - ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 270 */ - ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 271 */ - int (*tcl_WaitForEvent) _ANSI_ARGS_((Tcl_Time * timePtr)); /* 272 */ - Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 273 */ - int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, char * s, int slen)); /* 274 */ - void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], char * message)); /* 275 */ - void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); /* 276 */ - void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 277 */ - Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * typePtr)); /* 278 */ - void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 279 */ - void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 280 */ - void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 281 */ - int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); /* 282 */ - int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 283 */ - int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); /* 284 */ - void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 285 */ - int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); /* 286 */ - char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 287 */ - void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 288 */ - void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 289 */ - void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 290 */ - Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 291 */ - Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 292 */ - char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 293 */ - void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 294 */ - int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, int offset, char * msg, int flags, int * indexPtr)); /* 295 */ - VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, int size)); /* 296 */ - Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 297 */ - ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 298 */ - void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 299 */ - void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 300 */ - void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 301 */ - void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); /* 302 */ - int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 303 */ - int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag)); /* 304 */ - void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 305 */ - void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 306 */ - int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 307 */ - Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, Tcl_Obj * newValuePtr, int flags)); /* 308 */ - void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 309 */ - void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position)); /* 310 */ - Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 311 */ - Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 312 */ - Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 313 */ - Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 314 */ - int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 315 */ - char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 316 */ - int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* 317 */ - int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, char * dst)); /* 318 */ - char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src, int ch)); /* 319 */ - char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src, int ch)); /* 320 */ - void *reserved321; - void *reserved322; - char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); /* 323 */ - char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CONST char * start)); /* 324 */ - int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); /* 325 */ - char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 326 */ - int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 327 */ - int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 328 */ - int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * chPtr)); /* 329 */ - int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 330 */ - int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 331 */ - int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 332 */ + void (*tcl_SetStdChannel) _ANSI_ARGS_((Tcl_Channel channel, int type)); /* 236 */ + char * (*tcl_SetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, char * newValue, int flags)); /* 237 */ + char * (*tcl_SetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, char * newValue, int flags)); /* 238 */ + char * (*tcl_SignalId) _ANSI_ARGS_((int sig)); /* 239 */ + char * (*tcl_SignalMsg) _ANSI_ARGS_((int sig)); /* 240 */ + void (*tcl_SourceRCFile) _ANSI_ARGS_((Tcl_Interp * interp)); /* 241 */ + int (*tcl_SplitList) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int * argcPtr, char *** argvPtr)); /* 242 */ + void (*tcl_SplitPath) _ANSI_ARGS_((CONST char * path, int * argcPtr, char *** argvPtr)); /* 243 */ + void (*tcl_StaticPackage) _ANSI_ARGS_((Tcl_Interp * interp, char * pkgName, Tcl_PackageInitProc * initProc, Tcl_PackageInitProc * safeInitProc)); /* 244 */ + int (*tcl_StringMatch) _ANSI_ARGS_((CONST char * string, CONST char * pattern)); /* 245 */ + int (*tcl_Tell) _ANSI_ARGS_((Tcl_Channel chan)); /* 246 */ + int (*tcl_TraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 247 */ + int (*tcl_TraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 248 */ + char * (*tcl_TranslateFileName) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_DString * bufferPtr)); /* 249 */ + int (*tcl_Ungets) _ANSI_ARGS_((Tcl_Channel chan, char * str, int len, int atHead)); /* 250 */ + void (*tcl_UnlinkVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 251 */ + int (*tcl_UnregisterChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 252 */ + int (*tcl_UnsetVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags)); /* 253 */ + int (*tcl_UnsetVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 254 */ + void (*tcl_UntraceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 255 */ + void (*tcl_UntraceVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * proc, ClientData clientData)); /* 256 */ + void (*tcl_UpdateLinkedVar) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 257 */ + int (*tcl_UpVar) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * varName, char * localName, int flags)); /* 258 */ + int (*tcl_UpVar2) _ANSI_ARGS_((Tcl_Interp * interp, char * frameName, char * part1, char * part2, char * localName, int flags)); /* 259 */ + int (*tcl_VarEval) _ANSI_ARGS_(TCL_VARARGS(Tcl_Interp *,interp)); /* 260 */ + ClientData (*tcl_VarTraceInfo) _ANSI_ARGS_((Tcl_Interp * interp, char * varName, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 261 */ + ClientData (*tcl_VarTraceInfo2) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, Tcl_VarTraceProc * procPtr, ClientData prevClientData)); /* 262 */ + int (*tcl_Write) _ANSI_ARGS_((Tcl_Channel chan, char * s, int slen)); /* 263 */ + void (*tcl_WrongNumArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], char * message)); /* 264 */ + int (*tcl_DumpActiveMemory) _ANSI_ARGS_((char * fileName)); /* 265 */ + void (*tcl_ValidateAllMemory) _ANSI_ARGS_((char * file, int line)); /* 266 */ + void (*tcl_AppendResultVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 267 */ + void (*tcl_AppendStringsToObjVA) _ANSI_ARGS_((Tcl_Obj * objPtr, va_list argList)); /* 268 */ + char * (*tcl_HashStats) _ANSI_ARGS_((Tcl_HashTable * tablePtr)); /* 269 */ + char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr)); /* 270 */ + char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 271 */ + char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 272 */ + int (*tcl_PkgProvide) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version)); /* 273 */ + 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 argList)); /* 275 */ + int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 276 */ + Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */ + void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */ + void (*tcl_AppendObjToObj) _ANSI_ARGS_((Tcl_Obj * objPtr, Tcl_Obj * appendObjPtr)); /* 279 */ + void (*tcl_AlertNotifier) _ANSI_ARGS_((ClientData clientData)); /* 280 */ + Tcl_Encoding (*tcl_CreateEncoding) _ANSI_ARGS_((Tcl_EncodingType * typePtr)); /* 281 */ + void (*tcl_CreateThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 282 */ + void (*tcl_DeleteThreadExitHandler) _ANSI_ARGS_((Tcl_ExitProc * proc, ClientData clientData)); /* 283 */ + void (*tcl_DiscardResult) _ANSI_ARGS_((Tcl_SavedResult * statePtr)); /* 284 */ + int (*tcl_EvalEx) _ANSI_ARGS_((Tcl_Interp * interp, char * script, int numBytes, int flags)); /* 285 */ + int (*tcl_EvalObjv) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 286 */ + int (*tcl_EvalObjEx) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int flags)); /* 287 */ + void (*tcl_ExitThread) _ANSI_ARGS_((int status)); /* 288 */ + int (*tcl_ExternalToUtf) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); /* 289 */ + char * (*tcl_ExternalToUtfDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 290 */ + void (*tcl_FinalizeThread) _ANSI_ARGS_((void)); /* 291 */ + void (*tcl_FinalizeNotifier) _ANSI_ARGS_((ClientData clientData)); /* 292 */ + void (*tcl_FreeEncoding) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 293 */ + Tcl_ThreadId (*tcl_GetCurrentThread) _ANSI_ARGS_((void)); /* 294 */ + Tcl_Encoding (*tcl_GetEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 295 */ + char * (*tcl_GetEncodingName) _ANSI_ARGS_((Tcl_Encoding encoding)); /* 296 */ + void (*tcl_GetEncodingNames) _ANSI_ARGS_((Tcl_Interp * interp)); /* 297 */ + int (*tcl_GetIndexFromObjStruct) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, char ** tablePtr, int offset, char * msg, int flags, int * indexPtr)); /* 298 */ + VOID * (*tcl_GetThreadData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr, int size)); /* 299 */ + Tcl_Obj * (*tcl_GetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags)); /* 300 */ + ClientData (*tcl_InitNotifier) _ANSI_ARGS_((void)); /* 301 */ + void (*tcl_MutexLock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 302 */ + void (*tcl_MutexUnlock) _ANSI_ARGS_((Tcl_Mutex * mutexPtr)); /* 303 */ + void (*tcl_ConditionNotify) _ANSI_ARGS_((Tcl_Condition * condPtr)); /* 304 */ + void (*tcl_ConditionWait) _ANSI_ARGS_((Tcl_Condition * condPtr, Tcl_Mutex * mutexPtr, Tcl_Time * timePtr)); /* 305 */ + int (*tcl_NumUtfChars) _ANSI_ARGS_((CONST char * src, int len)); /* 306 */ + int (*tcl_ReadChars) _ANSI_ARGS_((Tcl_Channel channel, Tcl_Obj * objPtr, int charsToRead, int appendFlag)); /* 307 */ + void (*tcl_RestoreResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 308 */ + void (*tcl_SaveResult) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_SavedResult * statePtr)); /* 309 */ + int (*tcl_SetSystemEncoding) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 310 */ + Tcl_Obj * (*tcl_SetVar2Ex) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, Tcl_Obj * newValuePtr, int flags)); /* 311 */ + void (*tcl_ThreadAlert) _ANSI_ARGS_((Tcl_ThreadId threadId)); /* 312 */ + void (*tcl_ThreadQueueEvent) _ANSI_ARGS_((Tcl_ThreadId threadId, Tcl_Event* evPtr, Tcl_QueuePosition position)); /* 313 */ + Tcl_UniChar (*tcl_UniCharAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 314 */ + Tcl_UniChar (*tcl_UniCharToLower) _ANSI_ARGS_((int ch)); /* 315 */ + Tcl_UniChar (*tcl_UniCharToTitle) _ANSI_ARGS_((int ch)); /* 316 */ + Tcl_UniChar (*tcl_UniCharToUpper) _ANSI_ARGS_((int ch)); /* 317 */ + int (*tcl_UniCharToUtf) _ANSI_ARGS_((int ch, char * buf)); /* 318 */ + char * (*tcl_UtfAtIndex) _ANSI_ARGS_((CONST char * src, int index)); /* 319 */ + int (*tcl_UtfCharComplete) _ANSI_ARGS_((CONST char * src, int len)); /* 320 */ + int (*tcl_UtfBackslash) _ANSI_ARGS_((CONST char * src, int * readPtr, char * dst)); /* 321 */ + char * (*tcl_UtfFindFirst) _ANSI_ARGS_((CONST char * src, int ch)); /* 322 */ + char * (*tcl_UtfFindLast) _ANSI_ARGS_((CONST char * src, int ch)); /* 323 */ + char * (*tcl_UtfNext) _ANSI_ARGS_((CONST char * src)); /* 324 */ + char * (*tcl_UtfPrev) _ANSI_ARGS_((CONST char * src, CONST char * start)); /* 325 */ + int (*tcl_UtfToExternal) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Encoding encoding, CONST char * src, int srcLen, int flags, Tcl_EncodingState * statePtr, char * dst, int dstLen, int * srcReadPtr, int * dstWrotePtr, int * dstCharsPtr)); /* 326 */ + char * (*tcl_UtfToExternalDString) _ANSI_ARGS_((Tcl_Encoding encoding, CONST char * src, int srcLen, Tcl_DString * dsPtr)); /* 327 */ + int (*tcl_UtfToLower) _ANSI_ARGS_((char * src)); /* 328 */ + int (*tcl_UtfToTitle) _ANSI_ARGS_((char * src)); /* 329 */ + int (*tcl_UtfToUniChar) _ANSI_ARGS_((CONST char * src, Tcl_UniChar * chPtr)); /* 330 */ + int (*tcl_UtfToUpper) _ANSI_ARGS_((char * src)); /* 331 */ + int (*tcl_WriteChars) _ANSI_ARGS_((Tcl_Channel chan, CONST char * src, int srcLen)); /* 332 */ + int (*tcl_WriteObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 333 */ } TclStubs; extern TclStubs *tclStubsPtr; @@ -1375,1331 +1413,1344 @@ extern TclStubs *tclStubsPtr; * Inline function declarations: */ +#ifndef Tcl_PkgProvideEx +#define Tcl_PkgProvideEx(interp, name, version, clientData) \ + (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData) /* 0 */ +#endif +#ifndef Tcl_PkgRequireEx +#define Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) \ + (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr) /* 1 */ +#endif +#ifndef panic +#define panic \ + (tclStubsPtr->panic) /* 2 */ +#endif +#ifndef Tcl_Alloc +#define Tcl_Alloc(size) \ + (tclStubsPtr->tcl_Alloc)(size) /* 3 */ +#endif +#ifndef Tcl_Free +#define Tcl_Free(ptr) \ + (tclStubsPtr->tcl_Free)(ptr) /* 4 */ +#endif +#ifndef Tcl_Realloc +#define Tcl_Realloc(ptr, size) \ + (tclStubsPtr->tcl_Realloc)(ptr, size) /* 5 */ +#endif +#ifndef Tcl_DbCkalloc +#define Tcl_DbCkalloc(size, file, line) \ + (tclStubsPtr->tcl_DbCkalloc)(size, file, line) /* 6 */ +#endif +#ifndef Tcl_DbCkfree +#define Tcl_DbCkfree(ptr, file, line) \ + (tclStubsPtr->tcl_DbCkfree)(ptr, file, line) /* 7 */ +#endif +#ifndef Tcl_DbCkrealloc +#define Tcl_DbCkrealloc(ptr, size, file, line) \ + (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line) /* 8 */ +#endif +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#ifndef Tcl_CreateFileHandler +#define Tcl_CreateFileHandler(fd, mask, proc, clientData) \ + (tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData) /* 9 */ +#endif +#endif /* UNIX */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#ifndef Tcl_DeleteFileHandler +#define Tcl_DeleteFileHandler(fd) \ + (tclStubsPtr->tcl_DeleteFileHandler)(fd) /* 10 */ +#endif +#endif /* UNIX */ +#ifndef Tcl_SetTimer +#define Tcl_SetTimer(timePtr) \ + (tclStubsPtr->tcl_SetTimer)(timePtr) /* 11 */ +#endif +#ifndef Tcl_Sleep +#define Tcl_Sleep(ms) \ + (tclStubsPtr->tcl_Sleep)(ms) /* 12 */ +#endif +#ifndef Tcl_WaitForEvent +#define Tcl_WaitForEvent(timePtr) \ + (tclStubsPtr->tcl_WaitForEvent)(timePtr) /* 13 */ +#endif +#ifndef Tcl_AppendAllObjTypes +#define Tcl_AppendAllObjTypes(interp, objPtr) \ + (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr) /* 14 */ +#endif +#ifndef Tcl_AppendStringsToObj +#define Tcl_AppendStringsToObj \ + (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */ +#endif +#ifndef Tcl_AppendToObj +#define Tcl_AppendToObj(objPtr, bytes, length) \ + (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length) /* 16 */ +#endif +#ifndef Tcl_ConcatObj +#define Tcl_ConcatObj(objc, objv) \ + (tclStubsPtr->tcl_ConcatObj)(objc, objv) /* 17 */ +#endif +#ifndef Tcl_ConvertToType +#define Tcl_ConvertToType(interp, objPtr, typePtr) \ + (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr) /* 18 */ +#endif +#ifndef Tcl_DbDecrRefCount +#define Tcl_DbDecrRefCount(objPtr, file, line) \ + (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line) /* 19 */ +#endif +#ifndef Tcl_DbIncrRefCount +#define Tcl_DbIncrRefCount(objPtr, file, line) \ + (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line) /* 20 */ +#endif +#ifndef Tcl_DbIsShared +#define Tcl_DbIsShared(objPtr, file, line) \ + (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line) /* 21 */ +#endif +#ifndef Tcl_DbNewBooleanObj +#define Tcl_DbNewBooleanObj(boolValue, file, line) \ + (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line) /* 22 */ +#endif +#ifndef Tcl_DbNewByteArrayObj +#define Tcl_DbNewByteArrayObj(bytes, length, file, line) \ + (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line) /* 23 */ +#endif +#ifndef Tcl_DbNewDoubleObj +#define Tcl_DbNewDoubleObj(doubleValue, file, line) \ + (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line) /* 24 */ +#endif +#ifndef Tcl_DbNewListObj +#define Tcl_DbNewListObj(objc, objv, file, line) \ + (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line) /* 25 */ +#endif +#ifndef Tcl_DbNewLongObj +#define Tcl_DbNewLongObj(longValue, file, line) \ + (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line) /* 26 */ +#endif +#ifndef Tcl_DbNewObj +#define Tcl_DbNewObj(file, line) \ + (tclStubsPtr->tcl_DbNewObj)(file, line) /* 27 */ +#endif +#ifndef Tcl_DbNewStringObj +#define Tcl_DbNewStringObj(bytes, length, file, line) \ + (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line) /* 28 */ +#endif +#ifndef Tcl_DuplicateObj +#define Tcl_DuplicateObj(objPtr) \ + (tclStubsPtr->tcl_DuplicateObj)(objPtr) /* 29 */ +#endif +#ifndef TclFreeObj +#define TclFreeObj(objPtr) \ + (tclStubsPtr->tclFreeObj)(objPtr) /* 30 */ +#endif +#ifndef Tcl_GetBoolean +#define Tcl_GetBoolean(interp, string, boolPtr) \ + (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr) /* 31 */ +#endif +#ifndef Tcl_GetBooleanFromObj +#define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \ + (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr) /* 32 */ +#endif +#ifndef Tcl_GetByteArrayFromObj +#define Tcl_GetByteArrayFromObj(objPtr, lengthPtr) \ + (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr) /* 33 */ +#endif +#ifndef Tcl_GetDouble +#define Tcl_GetDouble(interp, string, doublePtr) \ + (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr) /* 34 */ +#endif +#ifndef Tcl_GetDoubleFromObj +#define Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) \ + (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr) /* 35 */ +#endif +#ifndef Tcl_GetIndexFromObj +#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ + (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr) /* 36 */ +#endif +#ifndef Tcl_GetInt +#define Tcl_GetInt(interp, string, intPtr) \ + (tclStubsPtr->tcl_GetInt)(interp, string, intPtr) /* 37 */ +#endif +#ifndef Tcl_GetIntFromObj +#define Tcl_GetIntFromObj(interp, objPtr, intPtr) \ + (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr) /* 38 */ +#endif +#ifndef Tcl_GetLongFromObj +#define Tcl_GetLongFromObj(interp, objPtr, longPtr) \ + (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr) /* 39 */ +#endif +#ifndef Tcl_GetObjType +#define Tcl_GetObjType(typeName) \ + (tclStubsPtr->tcl_GetObjType)(typeName) /* 40 */ +#endif +#ifndef Tcl_GetStringFromObj +#define Tcl_GetStringFromObj(objPtr, lengthPtr) \ + (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr) /* 41 */ +#endif +#ifndef Tcl_InvalidateStringRep +#define Tcl_InvalidateStringRep(objPtr) \ + (tclStubsPtr->tcl_InvalidateStringRep)(objPtr) /* 42 */ +#endif +#ifndef Tcl_ListObjAppendList +#define Tcl_ListObjAppendList(interp, listPtr, elemListPtr) \ + (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr) /* 43 */ +#endif +#ifndef Tcl_ListObjAppendElement +#define Tcl_ListObjAppendElement(interp, listPtr, objPtr) \ + (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr) /* 44 */ +#endif +#ifndef Tcl_ListObjGetElements +#define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ + (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr) /* 45 */ +#endif +#ifndef Tcl_ListObjIndex +#define Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) \ + (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr) /* 46 */ +#endif +#ifndef Tcl_ListObjLength +#define Tcl_ListObjLength(interp, listPtr, intPtr) \ + (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr) /* 47 */ +#endif +#ifndef Tcl_ListObjReplace +#define Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) \ + (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv) /* 48 */ +#endif +#ifndef Tcl_NewBooleanObj +#define Tcl_NewBooleanObj(boolValue) \ + (tclStubsPtr->tcl_NewBooleanObj)(boolValue) /* 49 */ +#endif +#ifndef Tcl_NewByteArrayObj +#define Tcl_NewByteArrayObj(bytes, length) \ + (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length) /* 50 */ +#endif +#ifndef Tcl_NewDoubleObj +#define Tcl_NewDoubleObj(doubleValue) \ + (tclStubsPtr->tcl_NewDoubleObj)(doubleValue) /* 51 */ +#endif +#ifndef Tcl_NewIntObj +#define Tcl_NewIntObj(intValue) \ + (tclStubsPtr->tcl_NewIntObj)(intValue) /* 52 */ +#endif +#ifndef Tcl_NewListObj +#define Tcl_NewListObj(objc, objv) \ + (tclStubsPtr->tcl_NewListObj)(objc, objv) /* 53 */ +#endif +#ifndef Tcl_NewLongObj +#define Tcl_NewLongObj(longValue) \ + (tclStubsPtr->tcl_NewLongObj)(longValue) /* 54 */ +#endif +#ifndef Tcl_NewObj +#define Tcl_NewObj() \ + (tclStubsPtr->tcl_NewObj)() /* 55 */ +#endif +#ifndef Tcl_NewStringObj +#define Tcl_NewStringObj(bytes, length) \ + (tclStubsPtr->tcl_NewStringObj)(bytes, length) /* 56 */ +#endif +#ifndef Tcl_SetBooleanObj +#define Tcl_SetBooleanObj(objPtr, boolValue) \ + (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue) /* 57 */ +#endif +#ifndef Tcl_SetByteArrayLength +#define Tcl_SetByteArrayLength(objPtr, length) \ + (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length) /* 58 */ +#endif +#ifndef Tcl_SetByteArrayObj +#define Tcl_SetByteArrayObj(objPtr, bytes, length) \ + (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length) /* 59 */ +#endif +#ifndef Tcl_SetDoubleObj +#define Tcl_SetDoubleObj(objPtr, doubleValue) \ + (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue) /* 60 */ +#endif +#ifndef Tcl_SetIntObj +#define Tcl_SetIntObj(objPtr, intValue) \ + (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue) /* 61 */ +#endif +#ifndef Tcl_SetListObj +#define Tcl_SetListObj(objPtr, objc, objv) \ + (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv) /* 62 */ +#endif +#ifndef Tcl_SetLongObj +#define Tcl_SetLongObj(objPtr, longValue) \ + (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue) /* 63 */ +#endif +#ifndef Tcl_SetObjLength +#define Tcl_SetObjLength(objPtr, length) \ + (tclStubsPtr->tcl_SetObjLength)(objPtr, length) /* 64 */ +#endif +#ifndef Tcl_SetStringObj +#define Tcl_SetStringObj(objPtr, bytes, length) \ + (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length) /* 65 */ +#endif #ifndef Tcl_AddErrorInfo #define Tcl_AddErrorInfo(interp, message) \ - (tclStubsPtr->tcl_AddErrorInfo)(interp, message) /* 0 */ + (tclStubsPtr->tcl_AddErrorInfo)(interp, message) /* 66 */ #endif #ifndef Tcl_AddObjErrorInfo #define Tcl_AddObjErrorInfo(interp, message, length) \ - (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length) /* 1 */ -#endif -#ifndef Tcl_Alloc -#define Tcl_Alloc(size) \ - (tclStubsPtr->tcl_Alloc)(size) /* 2 */ + (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length) /* 67 */ #endif #ifndef Tcl_AllowExceptions #define Tcl_AllowExceptions(interp) \ - (tclStubsPtr->tcl_AllowExceptions)(interp) /* 3 */ -#endif -#ifndef Tcl_AppendAllObjTypes -#define Tcl_AppendAllObjTypes(interp, objPtr) \ - (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr) /* 4 */ + (tclStubsPtr->tcl_AllowExceptions)(interp) /* 68 */ #endif #ifndef Tcl_AppendElement -#define Tcl_AppendElement(interp, str) \ - (tclStubsPtr->tcl_AppendElement)(interp, str) /* 5 */ +#define Tcl_AppendElement(interp, string) \ + (tclStubsPtr->tcl_AppendElement)(interp, string) /* 69 */ #endif #ifndef Tcl_AppendResult #define Tcl_AppendResult \ - (tclStubsPtr->tcl_AppendResult) /* 6 */ -#endif -#ifndef Tcl_AppendResultVA -#define Tcl_AppendResultVA(interp, argList) \ - (tclStubsPtr->tcl_AppendResultVA)(interp, argList) /* 7 */ -#endif -#ifndef Tcl_AppendToObj -#define Tcl_AppendToObj(objPtr, bytes, length) \ - (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length) /* 8 */ -#endif -#ifndef Tcl_AppendStringsToObj -#define Tcl_AppendStringsToObj \ - (tclStubsPtr->tcl_AppendStringsToObj) /* 9 */ -#endif -#ifndef Tcl_AppendStringsToObjVA -#define Tcl_AppendStringsToObjVA(objPtr, argList) \ - (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList) /* 10 */ + (tclStubsPtr->tcl_AppendResult) /* 70 */ #endif #ifndef Tcl_AsyncCreate #define Tcl_AsyncCreate(proc, clientData) \ - (tclStubsPtr->tcl_AsyncCreate)(proc, clientData) /* 11 */ + (tclStubsPtr->tcl_AsyncCreate)(proc, clientData) /* 71 */ #endif #ifndef Tcl_AsyncDelete #define Tcl_AsyncDelete(async) \ - (tclStubsPtr->tcl_AsyncDelete)(async) /* 12 */ + (tclStubsPtr->tcl_AsyncDelete)(async) /* 72 */ #endif #ifndef Tcl_AsyncInvoke #define Tcl_AsyncInvoke(interp, code) \ - (tclStubsPtr->tcl_AsyncInvoke)(interp, code) /* 13 */ + (tclStubsPtr->tcl_AsyncInvoke)(interp, code) /* 73 */ #endif #ifndef Tcl_AsyncMark #define Tcl_AsyncMark(async) \ - (tclStubsPtr->tcl_AsyncMark)(async) /* 14 */ + (tclStubsPtr->tcl_AsyncMark)(async) /* 74 */ #endif #ifndef Tcl_AsyncReady #define Tcl_AsyncReady() \ - (tclStubsPtr->tcl_AsyncReady)() /* 15 */ + (tclStubsPtr->tcl_AsyncReady)() /* 75 */ #endif #ifndef Tcl_BackgroundError #define Tcl_BackgroundError(interp) \ - (tclStubsPtr->tcl_BackgroundError)(interp) /* 16 */ + (tclStubsPtr->tcl_BackgroundError)(interp) /* 76 */ #endif #ifndef Tcl_Backslash #define Tcl_Backslash(src, readPtr) \ - (tclStubsPtr->tcl_Backslash)(src, readPtr) /* 17 */ + (tclStubsPtr->tcl_Backslash)(src, readPtr) /* 77 */ #endif #ifndef Tcl_BadChannelOption #define Tcl_BadChannelOption(interp, optionName, optionList) \ - (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList) /* 18 */ + (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList) /* 78 */ #endif #ifndef Tcl_CallWhenDeleted #define Tcl_CallWhenDeleted(interp, proc, clientData) \ - (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData) /* 19 */ + (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData) /* 79 */ #endif #ifndef Tcl_CancelIdleCall #define Tcl_CancelIdleCall(idleProc, clientData) \ - (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData) /* 20 */ + (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData) /* 80 */ #endif #ifndef Tcl_Close #define Tcl_Close(interp, chan) \ - (tclStubsPtr->tcl_Close)(interp, chan) /* 21 */ + (tclStubsPtr->tcl_Close)(interp, chan) /* 81 */ #endif #ifndef Tcl_CommandComplete #define Tcl_CommandComplete(cmd) \ - (tclStubsPtr->tcl_CommandComplete)(cmd) /* 22 */ + (tclStubsPtr->tcl_CommandComplete)(cmd) /* 82 */ #endif #ifndef Tcl_Concat #define Tcl_Concat(argc, argv) \ - (tclStubsPtr->tcl_Concat)(argc, argv) /* 23 */ -#endif -#ifndef Tcl_ConcatObj -#define Tcl_ConcatObj(objc, objv) \ - (tclStubsPtr->tcl_ConcatObj)(objc, objv) /* 24 */ -#endif -#ifndef Tcl_ConvertCountedElement -#define Tcl_ConvertCountedElement(src, length, dst, flags) \ - (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags) /* 25 */ + (tclStubsPtr->tcl_Concat)(argc, argv) /* 83 */ #endif #ifndef Tcl_ConvertElement #define Tcl_ConvertElement(src, dst, flags) \ - (tclStubsPtr->tcl_ConvertElement)(src, dst, flags) /* 26 */ + (tclStubsPtr->tcl_ConvertElement)(src, dst, flags) /* 84 */ #endif -#ifndef Tcl_ConvertToType -#define Tcl_ConvertToType(interp, objPtr, typePtr) \ - (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr) /* 27 */ +#ifndef Tcl_ConvertCountedElement +#define Tcl_ConvertCountedElement(src, length, dst, flags) \ + (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags) /* 85 */ #endif #ifndef Tcl_CreateAlias #define Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) \ - (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv) /* 28 */ + (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv) /* 86 */ #endif #ifndef Tcl_CreateAliasObj #define Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) \ - (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv) /* 29 */ + (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv) /* 87 */ #endif #ifndef Tcl_CreateChannel #define Tcl_CreateChannel(typePtr, chanName, instanceData, mask) \ - (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask) /* 30 */ + (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask) /* 88 */ #endif #ifndef Tcl_CreateChannelHandler #define Tcl_CreateChannelHandler(chan, mask, proc, clientData) \ - (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData) /* 31 */ + (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData) /* 89 */ #endif #ifndef Tcl_CreateCloseHandler #define Tcl_CreateCloseHandler(chan, proc, clientData) \ - (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData) /* 32 */ + (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData) /* 90 */ #endif #ifndef Tcl_CreateCommand #define Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) \ - (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc) /* 33 */ + (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc) /* 91 */ #endif #ifndef Tcl_CreateEventSource #define Tcl_CreateEventSource(setupProc, checkProc, clientData) \ - (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData) /* 34 */ + (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData) /* 92 */ #endif #ifndef Tcl_CreateExitHandler #define Tcl_CreateExitHandler(proc, clientData) \ - (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData) /* 35 */ + (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData) /* 93 */ #endif #ifndef Tcl_CreateInterp #define Tcl_CreateInterp() \ - (tclStubsPtr->tcl_CreateInterp)() /* 36 */ + (tclStubsPtr->tcl_CreateInterp)() /* 94 */ #endif #ifndef Tcl_CreateMathFunc #define Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) \ - (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData) /* 37 */ + (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData) /* 95 */ #endif #ifndef Tcl_CreateObjCommand #define Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) \ - (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc) /* 38 */ + (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc) /* 96 */ #endif #ifndef Tcl_CreateSlave #define Tcl_CreateSlave(interp, slaveName, isSafe) \ - (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe) /* 39 */ + (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe) /* 97 */ #endif #ifndef Tcl_CreateTimerHandler #define Tcl_CreateTimerHandler(milliseconds, proc, clientData) \ - (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData) /* 40 */ + (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData) /* 98 */ #endif #ifndef Tcl_CreateTrace #define Tcl_CreateTrace(interp, level, proc, clientData) \ - (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData) /* 41 */ -#endif -#ifndef Tcl_DbCkalloc -#define Tcl_DbCkalloc(size, file, line) \ - (tclStubsPtr->tcl_DbCkalloc)(size, file, line) /* 42 */ -#endif -#ifndef Tcl_DbCkfree -#define Tcl_DbCkfree(ptr, file, line) \ - (tclStubsPtr->tcl_DbCkfree)(ptr, file, line) /* 43 */ -#endif -#ifndef Tcl_DbCkrealloc -#define Tcl_DbCkrealloc(ptr, size, file, line) \ - (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line) /* 44 */ -#endif -#ifndef Tcl_DbDecrRefCount -#define Tcl_DbDecrRefCount(objPtr, file, line) \ - (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line) /* 45 */ -#endif -#ifndef Tcl_DbIncrRefCount -#define Tcl_DbIncrRefCount(objPtr, file, line) \ - (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line) /* 46 */ -#endif -#ifndef Tcl_DbIsShared -#define Tcl_DbIsShared(objPtr, file, line) \ - (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line) /* 47 */ -#endif -#ifndef Tcl_DbNewBooleanObj -#define Tcl_DbNewBooleanObj(boolValue, file, line) \ - (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line) /* 48 */ -#endif -#ifndef Tcl_DbNewByteArrayObj -#define Tcl_DbNewByteArrayObj(bytes, length, file, line) \ - (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line) /* 49 */ -#endif -#ifndef Tcl_DbNewDoubleObj -#define Tcl_DbNewDoubleObj(doubleValue, file, line) \ - (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line) /* 50 */ -#endif -#ifndef Tcl_DbNewListObj -#define Tcl_DbNewListObj(objc, objv, file, line) \ - (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line) /* 51 */ -#endif -#ifndef Tcl_DbNewLongObj -#define Tcl_DbNewLongObj(longValue, file, line) \ - (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line) /* 52 */ -#endif -#ifndef Tcl_DbNewObj -#define Tcl_DbNewObj(file, line) \ - (tclStubsPtr->tcl_DbNewObj)(file, line) /* 53 */ -#endif -#ifndef Tcl_DbNewStringObj -#define Tcl_DbNewStringObj(bytes, length, file, line) \ - (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line) /* 54 */ + (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData) /* 99 */ #endif #ifndef Tcl_DeleteAssocData #define Tcl_DeleteAssocData(interp, name) \ - (tclStubsPtr->tcl_DeleteAssocData)(interp, name) /* 55 */ -#endif -#ifndef Tcl_DeleteCommand -#define Tcl_DeleteCommand(interp, cmdName) \ - (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName) /* 56 */ -#endif -#ifndef Tcl_DeleteCommandFromToken -#define Tcl_DeleteCommandFromToken(interp, command) \ - (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command) /* 57 */ + (tclStubsPtr->tcl_DeleteAssocData)(interp, name) /* 100 */ #endif #ifndef Tcl_DeleteChannelHandler #define Tcl_DeleteChannelHandler(chan, proc, clientData) \ - (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData) /* 58 */ + (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData) /* 101 */ #endif #ifndef Tcl_DeleteCloseHandler #define Tcl_DeleteCloseHandler(chan, proc, clientData) \ - (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData) /* 59 */ + (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData) /* 102 */ +#endif +#ifndef Tcl_DeleteCommand +#define Tcl_DeleteCommand(interp, cmdName) \ + (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName) /* 103 */ +#endif +#ifndef Tcl_DeleteCommandFromToken +#define Tcl_DeleteCommandFromToken(interp, command) \ + (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command) /* 104 */ #endif #ifndef Tcl_DeleteEvents #define Tcl_DeleteEvents(proc, clientData) \ - (tclStubsPtr->tcl_DeleteEvents)(proc, clientData) /* 60 */ + (tclStubsPtr->tcl_DeleteEvents)(proc, clientData) /* 105 */ #endif #ifndef Tcl_DeleteEventSource #define Tcl_DeleteEventSource(setupProc, checkProc, clientData) \ - (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData) /* 61 */ + (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData) /* 106 */ #endif #ifndef Tcl_DeleteExitHandler #define Tcl_DeleteExitHandler(proc, clientData) \ - (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData) /* 62 */ + (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData) /* 107 */ #endif #ifndef Tcl_DeleteHashEntry #define Tcl_DeleteHashEntry(entryPtr) \ - (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr) /* 63 */ + (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr) /* 108 */ #endif #ifndef Tcl_DeleteHashTable #define Tcl_DeleteHashTable(tablePtr) \ - (tclStubsPtr->tcl_DeleteHashTable)(tablePtr) /* 64 */ + (tclStubsPtr->tcl_DeleteHashTable)(tablePtr) /* 109 */ #endif #ifndef Tcl_DeleteInterp #define Tcl_DeleteInterp(interp) \ - (tclStubsPtr->tcl_DeleteInterp)(interp) /* 65 */ + (tclStubsPtr->tcl_DeleteInterp)(interp) /* 110 */ +#endif +#ifndef Tcl_DetachPids +#define Tcl_DetachPids(numPids, pidPtr) \ + (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr) /* 111 */ #endif #ifndef Tcl_DeleteTimerHandler #define Tcl_DeleteTimerHandler(token) \ - (tclStubsPtr->tcl_DeleteTimerHandler)(token) /* 66 */ + (tclStubsPtr->tcl_DeleteTimerHandler)(token) /* 112 */ #endif #ifndef Tcl_DeleteTrace #define Tcl_DeleteTrace(interp, trace) \ - (tclStubsPtr->tcl_DeleteTrace)(interp, trace) /* 67 */ -#endif -#ifndef Tcl_DetachPids -#define Tcl_DetachPids(numPids, pidPtr) \ - (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr) /* 68 */ + (tclStubsPtr->tcl_DeleteTrace)(interp, trace) /* 113 */ #endif #ifndef Tcl_DontCallWhenDeleted #define Tcl_DontCallWhenDeleted(interp, proc, clientData) \ - (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData) /* 69 */ + (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData) /* 114 */ #endif #ifndef Tcl_DoOneEvent #define Tcl_DoOneEvent(flags) \ - (tclStubsPtr->tcl_DoOneEvent)(flags) /* 70 */ + (tclStubsPtr->tcl_DoOneEvent)(flags) /* 115 */ #endif #ifndef Tcl_DoWhenIdle #define Tcl_DoWhenIdle(proc, clientData) \ - (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData) /* 71 */ + (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData) /* 116 */ #endif #ifndef Tcl_DStringAppend -#define Tcl_DStringAppend(dsPtr, str, length) \ - (tclStubsPtr->tcl_DStringAppend)(dsPtr, str, length) /* 72 */ +#define Tcl_DStringAppend(dsPtr, string, length) \ + (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length) /* 117 */ #endif #ifndef Tcl_DStringAppendElement -#define Tcl_DStringAppendElement(dsPtr, str) \ - (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, str) /* 73 */ +#define Tcl_DStringAppendElement(dsPtr, string) \ + (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string) /* 118 */ #endif #ifndef Tcl_DStringEndSublist #define Tcl_DStringEndSublist(dsPtr) \ - (tclStubsPtr->tcl_DStringEndSublist)(dsPtr) /* 74 */ + (tclStubsPtr->tcl_DStringEndSublist)(dsPtr) /* 119 */ #endif #ifndef Tcl_DStringFree #define Tcl_DStringFree(dsPtr) \ - (tclStubsPtr->tcl_DStringFree)(dsPtr) /* 75 */ + (tclStubsPtr->tcl_DStringFree)(dsPtr) /* 120 */ #endif #ifndef Tcl_DStringGetResult #define Tcl_DStringGetResult(interp, dsPtr) \ - (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr) /* 76 */ + (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr) /* 121 */ #endif #ifndef Tcl_DStringInit #define Tcl_DStringInit(dsPtr) \ - (tclStubsPtr->tcl_DStringInit)(dsPtr) /* 77 */ + (tclStubsPtr->tcl_DStringInit)(dsPtr) /* 122 */ #endif #ifndef Tcl_DStringResult #define Tcl_DStringResult(interp, dsPtr) \ - (tclStubsPtr->tcl_DStringResult)(interp, dsPtr) /* 78 */ + (tclStubsPtr->tcl_DStringResult)(interp, dsPtr) /* 123 */ #endif #ifndef Tcl_DStringSetLength #define Tcl_DStringSetLength(dsPtr, length) \ - (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length) /* 79 */ + (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length) /* 124 */ #endif #ifndef Tcl_DStringStartSublist #define Tcl_DStringStartSublist(dsPtr) \ - (tclStubsPtr->tcl_DStringStartSublist)(dsPtr) /* 80 */ -#endif -#ifndef Tcl_DumpActiveMemory -#define Tcl_DumpActiveMemory(fileName) \ - (tclStubsPtr->tcl_DumpActiveMemory)(fileName) /* 81 */ -#endif -#ifndef Tcl_DuplicateObj -#define Tcl_DuplicateObj(objPtr) \ - (tclStubsPtr->tcl_DuplicateObj)(objPtr) /* 82 */ + (tclStubsPtr->tcl_DStringStartSublist)(dsPtr) /* 125 */ #endif #ifndef Tcl_Eof #define Tcl_Eof(chan) \ - (tclStubsPtr->tcl_Eof)(chan) /* 83 */ + (tclStubsPtr->tcl_Eof)(chan) /* 126 */ #endif #ifndef Tcl_ErrnoId #define Tcl_ErrnoId() \ - (tclStubsPtr->tcl_ErrnoId)() /* 84 */ + (tclStubsPtr->tcl_ErrnoId)() /* 127 */ #endif #ifndef Tcl_ErrnoMsg #define Tcl_ErrnoMsg(err) \ - (tclStubsPtr->tcl_ErrnoMsg)(err) /* 85 */ + (tclStubsPtr->tcl_ErrnoMsg)(err) /* 128 */ #endif #ifndef Tcl_Eval -#define Tcl_Eval(interp, str) \ - (tclStubsPtr->tcl_Eval)(interp, str) /* 86 */ +#define Tcl_Eval(interp, string) \ + (tclStubsPtr->tcl_Eval)(interp, string) /* 129 */ #endif #ifndef Tcl_EvalFile #define Tcl_EvalFile(interp, fileName) \ - (tclStubsPtr->tcl_EvalFile)(interp, fileName) /* 87 */ -#endif -#ifndef Tcl_EventuallyFree -#define Tcl_EventuallyFree(clientData, freeProc) \ - (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc) /* 88 */ + (tclStubsPtr->tcl_EvalFile)(interp, fileName) /* 130 */ #endif #ifndef Tcl_EvalObj #define Tcl_EvalObj(interp, objPtr) \ - (tclStubsPtr->tcl_EvalObj)(interp, objPtr) /* 89 */ + (tclStubsPtr->tcl_EvalObj)(interp, objPtr) /* 131 */ +#endif +#ifndef Tcl_EventuallyFree +#define Tcl_EventuallyFree(clientData, freeProc) \ + (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc) /* 132 */ #endif #ifndef Tcl_Exit #define Tcl_Exit(status) \ - (tclStubsPtr->tcl_Exit)(status) /* 90 */ + (tclStubsPtr->tcl_Exit)(status) /* 133 */ #endif #ifndef Tcl_ExposeCommand #define Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) \ - (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName) /* 91 */ + (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName) /* 134 */ #endif #ifndef Tcl_ExprBoolean -#define Tcl_ExprBoolean(interp, str, ptr) \ - (tclStubsPtr->tcl_ExprBoolean)(interp, str, ptr) /* 92 */ +#define Tcl_ExprBoolean(interp, string, ptr) \ + (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr) /* 135 */ #endif #ifndef Tcl_ExprBooleanObj #define Tcl_ExprBooleanObj(interp, objPtr, ptr) \ - (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr) /* 93 */ + (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr) /* 136 */ #endif #ifndef Tcl_ExprDouble -#define Tcl_ExprDouble(interp, str, ptr) \ - (tclStubsPtr->tcl_ExprDouble)(interp, str, ptr) /* 94 */ +#define Tcl_ExprDouble(interp, string, ptr) \ + (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr) /* 137 */ #endif #ifndef Tcl_ExprDoubleObj #define Tcl_ExprDoubleObj(interp, objPtr, ptr) \ - (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr) /* 95 */ + (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr) /* 138 */ #endif #ifndef Tcl_ExprLong -#define Tcl_ExprLong(interp, str, ptr) \ - (tclStubsPtr->tcl_ExprLong)(interp, str, ptr) /* 96 */ +#define Tcl_ExprLong(interp, string, ptr) \ + (tclStubsPtr->tcl_ExprLong)(interp, string, ptr) /* 139 */ #endif #ifndef Tcl_ExprLongObj #define Tcl_ExprLongObj(interp, objPtr, ptr) \ - (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr) /* 97 */ + (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr) /* 140 */ #endif #ifndef Tcl_ExprObj #define Tcl_ExprObj(interp, objPtr, resultPtrPtr) \ - (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr) /* 98 */ + (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr) /* 141 */ #endif #ifndef Tcl_ExprString -#define Tcl_ExprString(interp, str) \ - (tclStubsPtr->tcl_ExprString)(interp, str) /* 99 */ +#define Tcl_ExprString(interp, string) \ + (tclStubsPtr->tcl_ExprString)(interp, string) /* 142 */ #endif #ifndef Tcl_Finalize #define Tcl_Finalize() \ - (tclStubsPtr->tcl_Finalize)() /* 100 */ + (tclStubsPtr->tcl_Finalize)() /* 143 */ #endif #ifndef Tcl_FindExecutable #define Tcl_FindExecutable(argv0) \ - (tclStubsPtr->tcl_FindExecutable)(argv0) /* 101 */ + (tclStubsPtr->tcl_FindExecutable)(argv0) /* 144 */ #endif #ifndef Tcl_FirstHashEntry #define Tcl_FirstHashEntry(tablePtr, searchPtr) \ - (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr) /* 102 */ + (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr) /* 145 */ #endif #ifndef Tcl_Flush #define Tcl_Flush(chan) \ - (tclStubsPtr->tcl_Flush)(chan) /* 103 */ -#endif -#ifndef Tcl_Free -#define Tcl_Free(ptr) \ - (tclStubsPtr->tcl_Free)(ptr) /* 104 */ -#endif -#ifndef TclFreeObj -#define TclFreeObj(objPtr) \ - (tclStubsPtr->tclFreeObj)(objPtr) /* 105 */ + (tclStubsPtr->tcl_Flush)(chan) /* 146 */ #endif #ifndef Tcl_FreeResult #define Tcl_FreeResult(interp) \ - (tclStubsPtr->tcl_FreeResult)(interp) /* 106 */ + (tclStubsPtr->tcl_FreeResult)(interp) /* 147 */ #endif #ifndef Tcl_GetAlias #define Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) \ - (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) /* 107 */ + (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) /* 148 */ #endif #ifndef Tcl_GetAliasObj #define Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) \ - (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) /* 108 */ + (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) /* 149 */ #endif #ifndef Tcl_GetAssocData #define Tcl_GetAssocData(interp, name, procPtr) \ - (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr) /* 109 */ -#endif -#ifndef Tcl_GetBoolean -#define Tcl_GetBoolean(interp, str, boolPtr) \ - (tclStubsPtr->tcl_GetBoolean)(interp, str, boolPtr) /* 110 */ -#endif -#ifndef Tcl_GetBooleanFromObj -#define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \ - (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr) /* 111 */ -#endif -#ifndef Tcl_GetByteArrayFromObj -#define Tcl_GetByteArrayFromObj(objPtr, lengthPtr) \ - (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr) /* 112 */ + (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr) /* 150 */ #endif #ifndef Tcl_GetChannel #define Tcl_GetChannel(interp, chanName, modePtr) \ - (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr) /* 113 */ + (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr) /* 151 */ #endif #ifndef Tcl_GetChannelBufferSize #define Tcl_GetChannelBufferSize(chan) \ - (tclStubsPtr->tcl_GetChannelBufferSize)(chan) /* 114 */ + (tclStubsPtr->tcl_GetChannelBufferSize)(chan) /* 152 */ #endif #ifndef Tcl_GetChannelHandle #define Tcl_GetChannelHandle(chan, direction, handlePtr) \ - (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr) /* 115 */ + (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr) /* 153 */ #endif #ifndef Tcl_GetChannelInstanceData #define Tcl_GetChannelInstanceData(chan) \ - (tclStubsPtr->tcl_GetChannelInstanceData)(chan) /* 116 */ + (tclStubsPtr->tcl_GetChannelInstanceData)(chan) /* 154 */ #endif #ifndef Tcl_GetChannelMode #define Tcl_GetChannelMode(chan) \ - (tclStubsPtr->tcl_GetChannelMode)(chan) /* 117 */ + (tclStubsPtr->tcl_GetChannelMode)(chan) /* 155 */ #endif #ifndef Tcl_GetChannelName #define Tcl_GetChannelName(chan) \ - (tclStubsPtr->tcl_GetChannelName)(chan) /* 118 */ + (tclStubsPtr->tcl_GetChannelName)(chan) /* 156 */ #endif #ifndef Tcl_GetChannelOption #define Tcl_GetChannelOption(interp, chan, optionName, dsPtr) \ - (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr) /* 119 */ + (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr) /* 157 */ #endif #ifndef Tcl_GetChannelType #define Tcl_GetChannelType(chan) \ - (tclStubsPtr->tcl_GetChannelType)(chan) /* 120 */ + (tclStubsPtr->tcl_GetChannelType)(chan) /* 158 */ #endif #ifndef Tcl_GetCommandInfo #define Tcl_GetCommandInfo(interp, cmdName, infoPtr) \ - (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr) /* 121 */ + (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr) /* 159 */ #endif #ifndef Tcl_GetCommandName #define Tcl_GetCommandName(interp, command) \ - (tclStubsPtr->tcl_GetCommandName)(interp, command) /* 122 */ -#endif -#ifndef Tcl_GetDouble -#define Tcl_GetDouble(interp, str, doublePtr) \ - (tclStubsPtr->tcl_GetDouble)(interp, str, doublePtr) /* 123 */ -#endif -#ifndef Tcl_GetDoubleFromObj -#define Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) \ - (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr) /* 124 */ + (tclStubsPtr->tcl_GetCommandName)(interp, command) /* 160 */ #endif #ifndef Tcl_GetErrno #define Tcl_GetErrno() \ - (tclStubsPtr->tcl_GetErrno)() /* 125 */ + (tclStubsPtr->tcl_GetErrno)() /* 161 */ #endif #ifndef Tcl_GetHostName #define Tcl_GetHostName() \ - (tclStubsPtr->tcl_GetHostName)() /* 126 */ -#endif -#ifndef Tcl_GetIndexFromObj -#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ - (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr) /* 127 */ -#endif -#ifndef Tcl_GetInt -#define Tcl_GetInt(interp, str, intPtr) \ - (tclStubsPtr->tcl_GetInt)(interp, str, intPtr) /* 128 */ + (tclStubsPtr->tcl_GetHostName)() /* 162 */ #endif #ifndef Tcl_GetInterpPath #define Tcl_GetInterpPath(askInterp, slaveInterp) \ - (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp) /* 129 */ -#endif -#ifndef Tcl_GetIntFromObj -#define Tcl_GetIntFromObj(interp, objPtr, intPtr) \ - (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr) /* 130 */ -#endif -#ifndef Tcl_GetLongFromObj -#define Tcl_GetLongFromObj(interp, objPtr, longPtr) \ - (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr) /* 131 */ + (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp) /* 163 */ #endif #ifndef Tcl_GetMaster #define Tcl_GetMaster(interp) \ - (tclStubsPtr->tcl_GetMaster)(interp) /* 132 */ + (tclStubsPtr->tcl_GetMaster)(interp) /* 164 */ #endif #ifndef Tcl_GetNameOfExecutable #define Tcl_GetNameOfExecutable() \ - (tclStubsPtr->tcl_GetNameOfExecutable)() /* 133 */ + (tclStubsPtr->tcl_GetNameOfExecutable)() /* 165 */ #endif #ifndef Tcl_GetObjResult #define Tcl_GetObjResult(interp) \ - (tclStubsPtr->tcl_GetObjResult)(interp) /* 134 */ + (tclStubsPtr->tcl_GetObjResult)(interp) /* 166 */ #endif -#ifndef Tcl_GetObjType -#define Tcl_GetObjType(typeName) \ - (tclStubsPtr->tcl_GetObjType)(typeName) /* 135 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#ifndef Tcl_GetOpenFile +#define Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) \ + (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr) /* 167 */ #endif +#endif /* UNIX */ #ifndef Tcl_GetPathType #define Tcl_GetPathType(path) \ - (tclStubsPtr->tcl_GetPathType)(path) /* 136 */ + (tclStubsPtr->tcl_GetPathType)(path) /* 168 */ #endif #ifndef Tcl_Gets #define Tcl_Gets(chan, dsPtr) \ - (tclStubsPtr->tcl_Gets)(chan, dsPtr) /* 137 */ + (tclStubsPtr->tcl_Gets)(chan, dsPtr) /* 169 */ #endif #ifndef Tcl_GetsObj #define Tcl_GetsObj(chan, objPtr) \ - (tclStubsPtr->tcl_GetsObj)(chan, objPtr) /* 138 */ + (tclStubsPtr->tcl_GetsObj)(chan, objPtr) /* 170 */ #endif #ifndef Tcl_GetServiceMode #define Tcl_GetServiceMode() \ - (tclStubsPtr->tcl_GetServiceMode)() /* 139 */ + (tclStubsPtr->tcl_GetServiceMode)() /* 171 */ #endif #ifndef Tcl_GetSlave #define Tcl_GetSlave(interp, slaveName) \ - (tclStubsPtr->tcl_GetSlave)(interp, slaveName) /* 140 */ + (tclStubsPtr->tcl_GetSlave)(interp, slaveName) /* 172 */ #endif #ifndef Tcl_GetStdChannel #define Tcl_GetStdChannel(type) \ - (tclStubsPtr->tcl_GetStdChannel)(type) /* 141 */ -#endif -#ifndef Tcl_GetStringFromObj -#define Tcl_GetStringFromObj(objPtr, lengthPtr) \ - (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr) /* 142 */ + (tclStubsPtr->tcl_GetStdChannel)(type) /* 173 */ #endif #ifndef Tcl_GetStringResult #define Tcl_GetStringResult(interp) \ - (tclStubsPtr->tcl_GetStringResult)(interp) /* 143 */ + (tclStubsPtr->tcl_GetStringResult)(interp) /* 174 */ #endif #ifndef Tcl_GetVar #define Tcl_GetVar(interp, varName, flags) \ - (tclStubsPtr->tcl_GetVar)(interp, varName, flags) /* 144 */ + (tclStubsPtr->tcl_GetVar)(interp, varName, flags) /* 175 */ #endif #ifndef Tcl_GetVar2 #define Tcl_GetVar2(interp, part1, part2, flags) \ - (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags) /* 145 */ + (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags) /* 176 */ #endif #ifndef Tcl_GlobalEval #define Tcl_GlobalEval(interp, command) \ - (tclStubsPtr->tcl_GlobalEval)(interp, command) /* 146 */ + (tclStubsPtr->tcl_GlobalEval)(interp, command) /* 177 */ #endif #ifndef Tcl_GlobalEvalObj #define Tcl_GlobalEvalObj(interp, objPtr) \ - (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr) /* 147 */ -#endif -#ifndef Tcl_HashStats -#define Tcl_HashStats(tablePtr) \ - (tclStubsPtr->tcl_HashStats)(tablePtr) /* 148 */ + (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr) /* 178 */ #endif #ifndef Tcl_HideCommand #define Tcl_HideCommand(interp, cmdName, hiddenCmdToken) \ - (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken) /* 149 */ + (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken) /* 179 */ #endif #ifndef Tcl_Init #define Tcl_Init(interp) \ - (tclStubsPtr->tcl_Init)(interp) /* 150 */ + (tclStubsPtr->tcl_Init)(interp) /* 180 */ #endif #ifndef Tcl_InitHashTable #define Tcl_InitHashTable(tablePtr, keyType) \ - (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType) /* 151 */ -#endif -#ifndef Tcl_InitMemory -#define Tcl_InitMemory(interp) \ - (tclStubsPtr->tcl_InitMemory)(interp) /* 152 */ + (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType) /* 181 */ #endif #ifndef Tcl_InputBlocked #define Tcl_InputBlocked(chan) \ - (tclStubsPtr->tcl_InputBlocked)(chan) /* 153 */ + (tclStubsPtr->tcl_InputBlocked)(chan) /* 182 */ #endif #ifndef Tcl_InputBuffered #define Tcl_InputBuffered(chan) \ - (tclStubsPtr->tcl_InputBuffered)(chan) /* 154 */ + (tclStubsPtr->tcl_InputBuffered)(chan) /* 183 */ #endif #ifndef Tcl_InterpDeleted #define Tcl_InterpDeleted(interp) \ - (tclStubsPtr->tcl_InterpDeleted)(interp) /* 155 */ + (tclStubsPtr->tcl_InterpDeleted)(interp) /* 184 */ #endif #ifndef Tcl_IsSafe #define Tcl_IsSafe(interp) \ - (tclStubsPtr->tcl_IsSafe)(interp) /* 156 */ -#endif -#ifndef Tcl_InvalidateStringRep -#define Tcl_InvalidateStringRep(objPtr) \ - (tclStubsPtr->tcl_InvalidateStringRep)(objPtr) /* 157 */ + (tclStubsPtr->tcl_IsSafe)(interp) /* 185 */ #endif #ifndef Tcl_JoinPath #define Tcl_JoinPath(argc, argv, resultPtr) \ - (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr) /* 158 */ + (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr) /* 186 */ #endif #ifndef Tcl_LinkVar #define Tcl_LinkVar(interp, varName, addr, type) \ - (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type) /* 159 */ -#endif -#ifndef Tcl_ListObjAppendList -#define Tcl_ListObjAppendList(interp, listPtr, elemListPtr) \ - (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr) /* 160 */ -#endif -#ifndef Tcl_ListObjAppendElement -#define Tcl_ListObjAppendElement(interp, listPtr, objPtr) \ - (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr) /* 161 */ -#endif -#ifndef Tcl_ListObjGetElements -#define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) \ - (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr) /* 162 */ -#endif -#ifndef Tcl_ListObjIndex -#define Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) \ - (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr) /* 163 */ -#endif -#ifndef Tcl_ListObjLength -#define Tcl_ListObjLength(interp, listPtr, intPtr) \ - (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr) /* 164 */ -#endif -#ifndef Tcl_ListObjReplace -#define Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) \ - (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv) /* 165 */ + (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type) /* 187 */ #endif +/* Slot 188 is reserved */ #ifndef Tcl_MakeFileChannel #define Tcl_MakeFileChannel(handle, mode) \ - (tclStubsPtr->tcl_MakeFileChannel)(handle, mode) /* 166 */ + (tclStubsPtr->tcl_MakeFileChannel)(handle, mode) /* 189 */ #endif #ifndef Tcl_MakeSafe #define Tcl_MakeSafe(interp) \ - (tclStubsPtr->tcl_MakeSafe)(interp) /* 167 */ + (tclStubsPtr->tcl_MakeSafe)(interp) /* 190 */ #endif #ifndef Tcl_MakeTcpClientChannel #define Tcl_MakeTcpClientChannel(tcpSocket) \ - (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket) /* 168 */ + (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket) /* 191 */ #endif #ifndef Tcl_Merge #define Tcl_Merge(argc, argv) \ - (tclStubsPtr->tcl_Merge)(argc, argv) /* 169 */ -#endif -#ifndef Tcl_NewBooleanObj -#define Tcl_NewBooleanObj(boolValue) \ - (tclStubsPtr->tcl_NewBooleanObj)(boolValue) /* 170 */ -#endif -#ifndef Tcl_NewByteArrayObj -#define Tcl_NewByteArrayObj(bytes, length) \ - (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length) /* 171 */ -#endif -#ifndef Tcl_NewDoubleObj -#define Tcl_NewDoubleObj(doubleValue) \ - (tclStubsPtr->tcl_NewDoubleObj)(doubleValue) /* 172 */ -#endif -#ifndef Tcl_NewIntObj -#define Tcl_NewIntObj(intValue) \ - (tclStubsPtr->tcl_NewIntObj)(intValue) /* 173 */ -#endif -#ifndef Tcl_NewListObj -#define Tcl_NewListObj(objc, objv) \ - (tclStubsPtr->tcl_NewListObj)(objc, objv) /* 174 */ -#endif -#ifndef Tcl_NewLongObj -#define Tcl_NewLongObj(longValue) \ - (tclStubsPtr->tcl_NewLongObj)(longValue) /* 175 */ -#endif -#ifndef Tcl_NewObj -#define Tcl_NewObj() \ - (tclStubsPtr->tcl_NewObj)() /* 176 */ -#endif -#ifndef Tcl_NewStringObj -#define Tcl_NewStringObj(bytes, length) \ - (tclStubsPtr->tcl_NewStringObj)(bytes, length) /* 177 */ + (tclStubsPtr->tcl_Merge)(argc, argv) /* 192 */ #endif #ifndef Tcl_NextHashEntry #define Tcl_NextHashEntry(searchPtr) \ - (tclStubsPtr->tcl_NextHashEntry)(searchPtr) /* 178 */ + (tclStubsPtr->tcl_NextHashEntry)(searchPtr) /* 193 */ #endif #ifndef Tcl_NotifyChannel #define Tcl_NotifyChannel(channel, mask) \ - (tclStubsPtr->tcl_NotifyChannel)(channel, mask) /* 179 */ + (tclStubsPtr->tcl_NotifyChannel)(channel, mask) /* 194 */ #endif #ifndef Tcl_ObjGetVar2 #define Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) \ - (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags) /* 180 */ + (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags) /* 195 */ #endif #ifndef Tcl_ObjSetVar2 #define Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) \ - (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags) /* 181 */ + (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags) /* 196 */ #endif #ifndef Tcl_OpenCommandChannel #define Tcl_OpenCommandChannel(interp, argc, argv, flags) \ - (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags) /* 182 */ + (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags) /* 197 */ #endif #ifndef Tcl_OpenFileChannel #define Tcl_OpenFileChannel(interp, fileName, modeString, permissions) \ - (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions) /* 183 */ + (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions) /* 198 */ #endif #ifndef Tcl_OpenTcpClient #define Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) \ - (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async) /* 184 */ + (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async) /* 199 */ #endif #ifndef Tcl_OpenTcpServer #define Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) \ - (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData) /* 185 */ -#endif -#ifndef panic -#define panic \ - (tclStubsPtr->panic) /* 186 */ -#endif -#ifndef panicVA -#define panicVA(format, argList) \ - (tclStubsPtr->panicVA)(format, argList) /* 187 */ -#endif -#ifndef Tcl_ParseVar -#define Tcl_ParseVar(interp, str, termPtr) \ - (tclStubsPtr->tcl_ParseVar)(interp, str, termPtr) /* 188 */ -#endif -#ifndef Tcl_PkgPresent -#define Tcl_PkgPresent(interp, name, version, exact) \ - (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact) /* 189 */ -#endif -#ifndef Tcl_PkgPresentEx -#define Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) \ - (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr) /* 190 */ -#endif -#ifndef Tcl_PkgProvide -#define Tcl_PkgProvide(interp, name, version) \ - (tclStubsPtr->tcl_PkgProvide)(interp, name, version) /* 191 */ -#endif -#ifndef Tcl_PkgProvideEx -#define Tcl_PkgProvideEx(interp, name, version, clientData) \ - (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData) /* 192 */ -#endif -#ifndef Tcl_PkgRequire -#define Tcl_PkgRequire(interp, name, version, exact) \ - (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact) /* 193 */ -#endif -#ifndef Tcl_PkgRequireEx -#define Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) \ - (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr) /* 194 */ -#endif -#ifndef Tcl_PosixError -#define Tcl_PosixError(interp) \ - (tclStubsPtr->tcl_PosixError)(interp) /* 195 */ + (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData) /* 200 */ #endif #ifndef Tcl_Preserve #define Tcl_Preserve(data) \ - (tclStubsPtr->tcl_Preserve)(data) /* 196 */ + (tclStubsPtr->tcl_Preserve)(data) /* 201 */ #endif #ifndef Tcl_PrintDouble #define Tcl_PrintDouble(interp, value, dst) \ - (tclStubsPtr->tcl_PrintDouble)(interp, value, dst) /* 197 */ + (tclStubsPtr->tcl_PrintDouble)(interp, value, dst) /* 202 */ #endif #ifndef Tcl_PutEnv -#define Tcl_PutEnv(str) \ - (tclStubsPtr->tcl_PutEnv)(str) /* 198 */ +#define Tcl_PutEnv(string) \ + (tclStubsPtr->tcl_PutEnv)(string) /* 203 */ +#endif +#ifndef Tcl_PosixError +#define Tcl_PosixError(interp) \ + (tclStubsPtr->tcl_PosixError)(interp) /* 204 */ #endif #ifndef Tcl_QueueEvent #define Tcl_QueueEvent(evPtr, position) \ - (tclStubsPtr->tcl_QueueEvent)(evPtr, position) /* 199 */ + (tclStubsPtr->tcl_QueueEvent)(evPtr, position) /* 205 */ #endif #ifndef Tcl_Read #define Tcl_Read(chan, bufPtr, toRead) \ - (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead) /* 200 */ -#endif -#ifndef Tcl_Realloc -#define Tcl_Realloc(ptr, size) \ - (tclStubsPtr->tcl_Realloc)(ptr, size) /* 201 */ + (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead) /* 206 */ #endif #ifndef Tcl_ReapDetachedProcs #define Tcl_ReapDetachedProcs() \ - (tclStubsPtr->tcl_ReapDetachedProcs)() /* 202 */ + (tclStubsPtr->tcl_ReapDetachedProcs)() /* 207 */ #endif #ifndef Tcl_RecordAndEval #define Tcl_RecordAndEval(interp, cmd, flags) \ - (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags) /* 203 */ + (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags) /* 208 */ #endif #ifndef Tcl_RecordAndEvalObj #define Tcl_RecordAndEvalObj(interp, cmdPtr, flags) \ - (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags) /* 204 */ + (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags) /* 209 */ +#endif +#ifndef Tcl_RegisterChannel +#define Tcl_RegisterChannel(interp, chan) \ + (tclStubsPtr->tcl_RegisterChannel)(interp, chan) /* 210 */ +#endif +#ifndef Tcl_RegisterObjType +#define Tcl_RegisterObjType(typePtr) \ + (tclStubsPtr->tcl_RegisterObjType)(typePtr) /* 211 */ #endif #ifndef Tcl_RegExpCompile -#define Tcl_RegExpCompile(interp, str) \ - (tclStubsPtr->tcl_RegExpCompile)(interp, str) /* 205 */ +#define Tcl_RegExpCompile(interp, string) \ + (tclStubsPtr->tcl_RegExpCompile)(interp, string) /* 212 */ #endif #ifndef Tcl_RegExpExec -#define Tcl_RegExpExec(interp, regexp, str, start) \ - (tclStubsPtr->tcl_RegExpExec)(interp, regexp, str, start) /* 206 */ +#define Tcl_RegExpExec(interp, regexp, string, start) \ + (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start) /* 213 */ #endif #ifndef Tcl_RegExpMatch -#define Tcl_RegExpMatch(interp, str, pattern) \ - (tclStubsPtr->tcl_RegExpMatch)(interp, str, pattern) /* 207 */ +#define Tcl_RegExpMatch(interp, string, pattern) \ + (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern) /* 214 */ #endif #ifndef Tcl_RegExpRange #define Tcl_RegExpRange(regexp, index, startPtr, endPtr) \ - (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr) /* 208 */ -#endif -#ifndef Tcl_RegisterChannel -#define Tcl_RegisterChannel(interp, chan) \ - (tclStubsPtr->tcl_RegisterChannel)(interp, chan) /* 209 */ -#endif -#ifndef Tcl_RegisterObjType -#define Tcl_RegisterObjType(typePtr) \ - (tclStubsPtr->tcl_RegisterObjType)(typePtr) /* 210 */ + (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr) /* 215 */ #endif #ifndef Tcl_Release #define Tcl_Release(clientData) \ - (tclStubsPtr->tcl_Release)(clientData) /* 211 */ + (tclStubsPtr->tcl_Release)(clientData) /* 216 */ #endif #ifndef Tcl_ResetResult #define Tcl_ResetResult(interp) \ - (tclStubsPtr->tcl_ResetResult)(interp) /* 212 */ -#endif -#ifndef Tcl_ScanCountedElement -#define Tcl_ScanCountedElement(str, length, flagPtr) \ - (tclStubsPtr->tcl_ScanCountedElement)(str, length, flagPtr) /* 213 */ + (tclStubsPtr->tcl_ResetResult)(interp) /* 217 */ #endif #ifndef Tcl_ScanElement -#define Tcl_ScanElement(str, flagPtr) \ - (tclStubsPtr->tcl_ScanElement)(str, flagPtr) /* 214 */ +#define Tcl_ScanElement(string, flagPtr) \ + (tclStubsPtr->tcl_ScanElement)(string, flagPtr) /* 218 */ +#endif +#ifndef Tcl_ScanCountedElement +#define Tcl_ScanCountedElement(string, length, flagPtr) \ + (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr) /* 219 */ #endif #ifndef Tcl_Seek #define Tcl_Seek(chan, offset, mode) \ - (tclStubsPtr->tcl_Seek)(chan, offset, mode) /* 215 */ + (tclStubsPtr->tcl_Seek)(chan, offset, mode) /* 220 */ #endif #ifndef Tcl_ServiceAll #define Tcl_ServiceAll() \ - (tclStubsPtr->tcl_ServiceAll)() /* 216 */ + (tclStubsPtr->tcl_ServiceAll)() /* 221 */ #endif #ifndef Tcl_ServiceEvent #define Tcl_ServiceEvent(flags) \ - (tclStubsPtr->tcl_ServiceEvent)(flags) /* 217 */ + (tclStubsPtr->tcl_ServiceEvent)(flags) /* 222 */ #endif #ifndef Tcl_SetAssocData #define Tcl_SetAssocData(interp, name, proc, clientData) \ - (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData) /* 218 */ -#endif -#ifndef Tcl_SetBooleanObj -#define Tcl_SetBooleanObj(objPtr, boolValue) \ - (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue) /* 219 */ -#endif -#ifndef Tcl_SetByteArrayLength -#define Tcl_SetByteArrayLength(objPtr, length) \ - (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length) /* 220 */ -#endif -#ifndef Tcl_SetByteArrayObj -#define Tcl_SetByteArrayObj(objPtr, bytes, length) \ - (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length) /* 221 */ + (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData) /* 223 */ #endif #ifndef Tcl_SetChannelBufferSize #define Tcl_SetChannelBufferSize(chan, sz) \ - (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz) /* 222 */ + (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz) /* 224 */ #endif #ifndef Tcl_SetChannelOption #define Tcl_SetChannelOption(interp, chan, optionName, newValue) \ - (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue) /* 223 */ + (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue) /* 225 */ #endif #ifndef Tcl_SetCommandInfo #define Tcl_SetCommandInfo(interp, cmdName, infoPtr) \ - (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr) /* 224 */ -#endif -#ifndef Tcl_SetDoubleObj -#define Tcl_SetDoubleObj(objPtr, doubleValue) \ - (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue) /* 225 */ + (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr) /* 226 */ #endif #ifndef Tcl_SetErrno #define Tcl_SetErrno(err) \ - (tclStubsPtr->tcl_SetErrno)(err) /* 226 */ + (tclStubsPtr->tcl_SetErrno)(err) /* 227 */ #endif #ifndef Tcl_SetErrorCode #define Tcl_SetErrorCode \ - (tclStubsPtr->tcl_SetErrorCode) /* 227 */ -#endif -#ifndef Tcl_SetErrorCodeVA -#define Tcl_SetErrorCodeVA(interp, argList) \ - (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList) /* 228 */ -#endif -#ifndef Tcl_SetIntObj -#define Tcl_SetIntObj(objPtr, intValue) \ - (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue) /* 229 */ -#endif -#ifndef Tcl_SetListObj -#define Tcl_SetListObj(objPtr, objc, objv) \ - (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv) /* 230 */ -#endif -#ifndef Tcl_SetLongObj -#define Tcl_SetLongObj(objPtr, longValue) \ - (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue) /* 231 */ + (tclStubsPtr->tcl_SetErrorCode) /* 228 */ #endif #ifndef Tcl_SetMaxBlockTime #define Tcl_SetMaxBlockTime(timePtr) \ - (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr) /* 232 */ -#endif -#ifndef Tcl_SetObjErrorCode -#define Tcl_SetObjErrorCode(interp, errorObjPtr) \ - (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr) /* 233 */ -#endif -#ifndef Tcl_SetObjLength -#define Tcl_SetObjLength(objPtr, length) \ - (tclStubsPtr->tcl_SetObjLength)(objPtr, length) /* 234 */ -#endif -#ifndef Tcl_SetObjResult -#define Tcl_SetObjResult(interp, resultObjPtr) \ - (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr) /* 235 */ + (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr) /* 229 */ #endif #ifndef Tcl_SetPanicProc #define Tcl_SetPanicProc(panicProc) \ - (tclStubsPtr->tcl_SetPanicProc)(panicProc) /* 236 */ + (tclStubsPtr->tcl_SetPanicProc)(panicProc) /* 230 */ #endif #ifndef Tcl_SetRecursionLimit #define Tcl_SetRecursionLimit(interp, depth) \ - (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth) /* 237 */ + (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth) /* 231 */ #endif #ifndef Tcl_SetResult -#define Tcl_SetResult(interp, str, freeProc) \ - (tclStubsPtr->tcl_SetResult)(interp, str, freeProc) /* 238 */ +#define Tcl_SetResult(interp, string, freeProc) \ + (tclStubsPtr->tcl_SetResult)(interp, string, freeProc) /* 232 */ #endif #ifndef Tcl_SetServiceMode #define Tcl_SetServiceMode(mode) \ - (tclStubsPtr->tcl_SetServiceMode)(mode) /* 239 */ + (tclStubsPtr->tcl_SetServiceMode)(mode) /* 233 */ #endif -#ifndef Tcl_SetStdChannel -#define Tcl_SetStdChannel(channel, type) \ - (tclStubsPtr->tcl_SetStdChannel)(channel, type) /* 240 */ +#ifndef Tcl_SetObjErrorCode +#define Tcl_SetObjErrorCode(interp, errorObjPtr) \ + (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr) /* 234 */ #endif -#ifndef Tcl_SetStringObj -#define Tcl_SetStringObj(objPtr, bytes, length) \ - (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length) /* 241 */ +#ifndef Tcl_SetObjResult +#define Tcl_SetObjResult(interp, resultObjPtr) \ + (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr) /* 235 */ #endif -#ifndef Tcl_SetTimer -#define Tcl_SetTimer(timePtr) \ - (tclStubsPtr->tcl_SetTimer)(timePtr) /* 242 */ +#ifndef Tcl_SetStdChannel +#define Tcl_SetStdChannel(channel, type) \ + (tclStubsPtr->tcl_SetStdChannel)(channel, type) /* 236 */ #endif #ifndef Tcl_SetVar #define Tcl_SetVar(interp, varName, newValue, flags) \ - (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags) /* 243 */ + (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags) /* 237 */ #endif #ifndef Tcl_SetVar2 #define Tcl_SetVar2(interp, part1, part2, newValue, flags) \ - (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags) /* 244 */ + (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags) /* 238 */ #endif #ifndef Tcl_SignalId #define Tcl_SignalId(sig) \ - (tclStubsPtr->tcl_SignalId)(sig) /* 245 */ + (tclStubsPtr->tcl_SignalId)(sig) /* 239 */ #endif #ifndef Tcl_SignalMsg #define Tcl_SignalMsg(sig) \ - (tclStubsPtr->tcl_SignalMsg)(sig) /* 246 */ -#endif -#ifndef Tcl_Sleep -#define Tcl_Sleep(ms) \ - (tclStubsPtr->tcl_Sleep)(ms) /* 247 */ + (tclStubsPtr->tcl_SignalMsg)(sig) /* 240 */ #endif #ifndef Tcl_SourceRCFile #define Tcl_SourceRCFile(interp) \ - (tclStubsPtr->tcl_SourceRCFile)(interp) /* 248 */ + (tclStubsPtr->tcl_SourceRCFile)(interp) /* 241 */ #endif #ifndef Tcl_SplitList -#define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) \ - (tclStubsPtr->tcl_SplitList)(interp, listStr, argcPtr, argvPtr) /* 249 */ +#define Tcl_SplitList(interp, list, argcPtr, argvPtr) \ + (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr) /* 242 */ #endif #ifndef Tcl_SplitPath #define Tcl_SplitPath(path, argcPtr, argvPtr) \ - (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr) /* 250 */ + (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr) /* 243 */ #endif #ifndef Tcl_StaticPackage #define Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) \ - (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc) /* 251 */ + (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc) /* 244 */ #endif #ifndef Tcl_StringMatch -#define Tcl_StringMatch(str, pattern) \ - (tclStubsPtr->tcl_StringMatch)(str, pattern) /* 252 */ +#define Tcl_StringMatch(string, pattern) \ + (tclStubsPtr->tcl_StringMatch)(string, pattern) /* 245 */ #endif #ifndef Tcl_Tell #define Tcl_Tell(chan) \ - (tclStubsPtr->tcl_Tell)(chan) /* 253 */ + (tclStubsPtr->tcl_Tell)(chan) /* 246 */ #endif #ifndef Tcl_TraceVar #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ - (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData) /* 254 */ + (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData) /* 247 */ #endif #ifndef Tcl_TraceVar2 #define Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) \ - (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData) /* 255 */ + (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData) /* 248 */ #endif #ifndef Tcl_TranslateFileName #define Tcl_TranslateFileName(interp, name, bufferPtr) \ - (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr) /* 256 */ + (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr) /* 249 */ #endif #ifndef Tcl_Ungets #define Tcl_Ungets(chan, str, len, atHead) \ - (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead) /* 257 */ + (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead) /* 250 */ #endif #ifndef Tcl_UnlinkVar #define Tcl_UnlinkVar(interp, varName) \ - (tclStubsPtr->tcl_UnlinkVar)(interp, varName) /* 258 */ + (tclStubsPtr->tcl_UnlinkVar)(interp, varName) /* 251 */ #endif #ifndef Tcl_UnregisterChannel #define Tcl_UnregisterChannel(interp, chan) \ - (tclStubsPtr->tcl_UnregisterChannel)(interp, chan) /* 259 */ + (tclStubsPtr->tcl_UnregisterChannel)(interp, chan) /* 252 */ #endif #ifndef Tcl_UnsetVar #define Tcl_UnsetVar(interp, varName, flags) \ - (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags) /* 260 */ + (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags) /* 253 */ #endif #ifndef Tcl_UnsetVar2 #define Tcl_UnsetVar2(interp, part1, part2, flags) \ - (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags) /* 261 */ + (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags) /* 254 */ #endif #ifndef Tcl_UntraceVar #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ - (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData) /* 262 */ + (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData) /* 255 */ #endif #ifndef Tcl_UntraceVar2 #define Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) \ - (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData) /* 263 */ + (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData) /* 256 */ #endif #ifndef Tcl_UpdateLinkedVar #define Tcl_UpdateLinkedVar(interp, varName) \ - (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName) /* 264 */ + (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName) /* 257 */ #endif #ifndef Tcl_UpVar #define Tcl_UpVar(interp, frameName, varName, localName, flags) \ - (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags) /* 265 */ + (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags) /* 258 */ #endif #ifndef Tcl_UpVar2 #define Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) \ - (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags) /* 266 */ -#endif -#ifndef Tcl_ValidateAllMemory -#define Tcl_ValidateAllMemory(file, line) \ - (tclStubsPtr->tcl_ValidateAllMemory)(file, line) /* 267 */ + (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags) /* 259 */ #endif #ifndef Tcl_VarEval #define Tcl_VarEval \ - (tclStubsPtr->tcl_VarEval) /* 268 */ -#endif -#ifndef Tcl_VarEvalVA -#define Tcl_VarEvalVA(interp, argList) \ - (tclStubsPtr->tcl_VarEvalVA)(interp, argList) /* 269 */ + (tclStubsPtr->tcl_VarEval) /* 260 */ #endif #ifndef Tcl_VarTraceInfo #define Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) \ - (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData) /* 270 */ + (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData) /* 261 */ #endif #ifndef Tcl_VarTraceInfo2 #define Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) \ - (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData) /* 271 */ -#endif -#ifndef Tcl_WaitForEvent -#define Tcl_WaitForEvent(timePtr) \ - (tclStubsPtr->tcl_WaitForEvent)(timePtr) /* 272 */ -#endif -#ifndef Tcl_WaitPid -#define Tcl_WaitPid(pid, statPtr, options) \ - (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options) /* 273 */ + (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData) /* 262 */ #endif #ifndef Tcl_Write #define Tcl_Write(chan, s, slen) \ - (tclStubsPtr->tcl_Write)(chan, s, slen) /* 274 */ + (tclStubsPtr->tcl_Write)(chan, s, slen) /* 263 */ #endif #ifndef Tcl_WrongNumArgs #define Tcl_WrongNumArgs(interp, objc, objv, message) \ - (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message) /* 275 */ + (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message) /* 264 */ +#endif +#ifndef Tcl_DumpActiveMemory +#define Tcl_DumpActiveMemory(fileName) \ + (tclStubsPtr->tcl_DumpActiveMemory)(fileName) /* 265 */ +#endif +#ifndef Tcl_ValidateAllMemory +#define Tcl_ValidateAllMemory(file, line) \ + (tclStubsPtr->tcl_ValidateAllMemory)(file, line) /* 266 */ +#endif +#ifndef Tcl_AppendResultVA +#define Tcl_AppendResultVA(interp, argList) \ + (tclStubsPtr->tcl_AppendResultVA)(interp, argList) /* 267 */ +#endif +#ifndef Tcl_AppendStringsToObjVA +#define Tcl_AppendStringsToObjVA(objPtr, argList) \ + (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList) /* 268 */ +#endif +#ifndef Tcl_HashStats +#define Tcl_HashStats(tablePtr) \ + (tclStubsPtr->tcl_HashStats)(tablePtr) /* 269 */ +#endif +#ifndef Tcl_ParseVar +#define Tcl_ParseVar(interp, string, termPtr) \ + (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr) /* 270 */ +#endif +#ifndef Tcl_PkgPresent +#define Tcl_PkgPresent(interp, name, version, exact) \ + (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact) /* 271 */ +#endif +#ifndef Tcl_PkgPresentEx +#define Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) \ + (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr) /* 272 */ +#endif +#ifndef Tcl_PkgProvide +#define Tcl_PkgProvide(interp, name, version) \ + (tclStubsPtr->tcl_PkgProvide)(interp, name, version) /* 273 */ +#endif +#ifndef Tcl_PkgRequire +#define Tcl_PkgRequire(interp, name, version, exact) \ + (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact) /* 274 */ +#endif +#ifndef Tcl_SetErrorCodeVA +#define Tcl_SetErrorCodeVA(interp, argList) \ + (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList) /* 275 */ +#endif +#ifndef Tcl_VarEvalVA +#define Tcl_VarEvalVA(interp, argList) \ + (tclStubsPtr->tcl_VarEvalVA)(interp, argList) /* 276 */ +#endif +#ifndef Tcl_WaitPid +#define Tcl_WaitPid(pid, statPtr, options) \ + (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options) /* 277 */ +#endif +#ifndef panicVA +#define panicVA(format, argList) \ + (tclStubsPtr->panicVA)(format, argList) /* 278 */ #endif #ifndef Tcl_AppendObjToObj #define Tcl_AppendObjToObj(objPtr, appendObjPtr) \ - (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr) /* 276 */ + (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr) /* 279 */ #endif #ifndef Tcl_AlertNotifier #define Tcl_AlertNotifier(clientData) \ - (tclStubsPtr->tcl_AlertNotifier)(clientData) /* 277 */ + (tclStubsPtr->tcl_AlertNotifier)(clientData) /* 280 */ #endif #ifndef Tcl_CreateEncoding #define Tcl_CreateEncoding(typePtr) \ - (tclStubsPtr->tcl_CreateEncoding)(typePtr) /* 278 */ + (tclStubsPtr->tcl_CreateEncoding)(typePtr) /* 281 */ #endif #ifndef Tcl_CreateThreadExitHandler #define Tcl_CreateThreadExitHandler(proc, clientData) \ - (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData) /* 279 */ + (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData) /* 282 */ #endif #ifndef Tcl_DeleteThreadExitHandler #define Tcl_DeleteThreadExitHandler(proc, clientData) \ - (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData) /* 280 */ + (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData) /* 283 */ #endif #ifndef Tcl_DiscardResult #define Tcl_DiscardResult(statePtr) \ - (tclStubsPtr->tcl_DiscardResult)(statePtr) /* 281 */ + (tclStubsPtr->tcl_DiscardResult)(statePtr) /* 284 */ #endif #ifndef Tcl_EvalEx #define Tcl_EvalEx(interp, script, numBytes, flags) \ - (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags) /* 282 */ + (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags) /* 285 */ #endif #ifndef Tcl_EvalObjv #define Tcl_EvalObjv(interp, objc, objv, flags) \ - (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags) /* 283 */ + (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags) /* 286 */ #endif #ifndef Tcl_EvalObjEx #define Tcl_EvalObjEx(interp, objPtr, flags) \ - (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags) /* 284 */ + (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags) /* 287 */ #endif #ifndef Tcl_ExitThread #define Tcl_ExitThread(status) \ - (tclStubsPtr->tcl_ExitThread)(status) /* 285 */ + (tclStubsPtr->tcl_ExitThread)(status) /* 288 */ #endif #ifndef Tcl_ExternalToUtf #define Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) \ - (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 286 */ + (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 289 */ #endif #ifndef Tcl_ExternalToUtfDString #define Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr) \ - (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr) /* 287 */ + (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr) /* 290 */ #endif #ifndef Tcl_FinalizeThread #define Tcl_FinalizeThread() \ - (tclStubsPtr->tcl_FinalizeThread)() /* 288 */ + (tclStubsPtr->tcl_FinalizeThread)() /* 291 */ #endif #ifndef Tcl_FinalizeNotifier #define Tcl_FinalizeNotifier(clientData) \ - (tclStubsPtr->tcl_FinalizeNotifier)(clientData) /* 289 */ + (tclStubsPtr->tcl_FinalizeNotifier)(clientData) /* 292 */ #endif #ifndef Tcl_FreeEncoding #define Tcl_FreeEncoding(encoding) \ - (tclStubsPtr->tcl_FreeEncoding)(encoding) /* 290 */ + (tclStubsPtr->tcl_FreeEncoding)(encoding) /* 293 */ #endif #ifndef Tcl_GetCurrentThread #define Tcl_GetCurrentThread() \ - (tclStubsPtr->tcl_GetCurrentThread)() /* 291 */ + (tclStubsPtr->tcl_GetCurrentThread)() /* 294 */ #endif #ifndef Tcl_GetEncoding #define Tcl_GetEncoding(interp, name) \ - (tclStubsPtr->tcl_GetEncoding)(interp, name) /* 292 */ + (tclStubsPtr->tcl_GetEncoding)(interp, name) /* 295 */ #endif #ifndef Tcl_GetEncodingName #define Tcl_GetEncodingName(encoding) \ - (tclStubsPtr->tcl_GetEncodingName)(encoding) /* 293 */ + (tclStubsPtr->tcl_GetEncodingName)(encoding) /* 296 */ #endif #ifndef Tcl_GetEncodingNames #define Tcl_GetEncodingNames(interp) \ - (tclStubsPtr->tcl_GetEncodingNames)(interp) /* 294 */ + (tclStubsPtr->tcl_GetEncodingNames)(interp) /* 297 */ #endif #ifndef Tcl_GetIndexFromObjStruct #define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \ - (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) /* 295 */ + (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) /* 298 */ #endif #ifndef Tcl_GetThreadData #define Tcl_GetThreadData(keyPtr, size) \ - (tclStubsPtr->tcl_GetThreadData)(keyPtr, size) /* 296 */ + (tclStubsPtr->tcl_GetThreadData)(keyPtr, size) /* 299 */ #endif #ifndef Tcl_GetVar2Ex #define Tcl_GetVar2Ex(interp, part1, part2, flags) \ - (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags) /* 297 */ + (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags) /* 300 */ #endif #ifndef Tcl_InitNotifier #define Tcl_InitNotifier() \ - (tclStubsPtr->tcl_InitNotifier)() /* 298 */ + (tclStubsPtr->tcl_InitNotifier)() /* 301 */ #endif #ifndef Tcl_MutexLock #define Tcl_MutexLock(mutexPtr) \ - (tclStubsPtr->tcl_MutexLock)(mutexPtr) /* 299 */ + (tclStubsPtr->tcl_MutexLock)(mutexPtr) /* 302 */ #endif #ifndef Tcl_MutexUnlock #define Tcl_MutexUnlock(mutexPtr) \ - (tclStubsPtr->tcl_MutexUnlock)(mutexPtr) /* 300 */ + (tclStubsPtr->tcl_MutexUnlock)(mutexPtr) /* 303 */ #endif #ifndef Tcl_ConditionNotify #define Tcl_ConditionNotify(condPtr) \ - (tclStubsPtr->tcl_ConditionNotify)(condPtr) /* 301 */ + (tclStubsPtr->tcl_ConditionNotify)(condPtr) /* 304 */ #endif #ifndef Tcl_ConditionWait #define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) \ - (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr) /* 302 */ + (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr) /* 305 */ #endif #ifndef Tcl_NumUtfChars #define Tcl_NumUtfChars(src, len) \ - (tclStubsPtr->tcl_NumUtfChars)(src, len) /* 303 */ + (tclStubsPtr->tcl_NumUtfChars)(src, len) /* 306 */ #endif #ifndef Tcl_ReadChars #define Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) \ - (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag) /* 304 */ + (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag) /* 307 */ #endif #ifndef Tcl_RestoreResult #define Tcl_RestoreResult(interp, statePtr) \ - (tclStubsPtr->tcl_RestoreResult)(interp, statePtr) /* 305 */ + (tclStubsPtr->tcl_RestoreResult)(interp, statePtr) /* 308 */ #endif #ifndef Tcl_SaveResult #define Tcl_SaveResult(interp, statePtr) \ - (tclStubsPtr->tcl_SaveResult)(interp, statePtr) /* 306 */ + (tclStubsPtr->tcl_SaveResult)(interp, statePtr) /* 309 */ #endif #ifndef Tcl_SetSystemEncoding #define Tcl_SetSystemEncoding(interp, name) \ - (tclStubsPtr->tcl_SetSystemEncoding)(interp, name) /* 307 */ + (tclStubsPtr->tcl_SetSystemEncoding)(interp, name) /* 310 */ #endif #ifndef Tcl_SetVar2Ex #define Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) \ - (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags) /* 308 */ + (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags) /* 311 */ #endif #ifndef Tcl_ThreadAlert #define Tcl_ThreadAlert(threadId) \ - (tclStubsPtr->tcl_ThreadAlert)(threadId) /* 309 */ + (tclStubsPtr->tcl_ThreadAlert)(threadId) /* 312 */ #endif #ifndef Tcl_ThreadQueueEvent #define Tcl_ThreadQueueEvent(threadId, evPtr, position) \ - (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position) /* 310 */ + (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position) /* 313 */ #endif #ifndef Tcl_UniCharAtIndex #define Tcl_UniCharAtIndex(src, index) \ - (tclStubsPtr->tcl_UniCharAtIndex)(src, index) /* 311 */ + (tclStubsPtr->tcl_UniCharAtIndex)(src, index) /* 314 */ #endif #ifndef Tcl_UniCharToLower #define Tcl_UniCharToLower(ch) \ - (tclStubsPtr->tcl_UniCharToLower)(ch) /* 312 */ + (tclStubsPtr->tcl_UniCharToLower)(ch) /* 315 */ #endif #ifndef Tcl_UniCharToTitle #define Tcl_UniCharToTitle(ch) \ - (tclStubsPtr->tcl_UniCharToTitle)(ch) /* 313 */ + (tclStubsPtr->tcl_UniCharToTitle)(ch) /* 316 */ #endif #ifndef Tcl_UniCharToUpper #define Tcl_UniCharToUpper(ch) \ - (tclStubsPtr->tcl_UniCharToUpper)(ch) /* 314 */ + (tclStubsPtr->tcl_UniCharToUpper)(ch) /* 317 */ #endif #ifndef Tcl_UniCharToUtf #define Tcl_UniCharToUtf(ch, buf) \ - (tclStubsPtr->tcl_UniCharToUtf)(ch, buf) /* 315 */ + (tclStubsPtr->tcl_UniCharToUtf)(ch, buf) /* 318 */ #endif #ifndef Tcl_UtfAtIndex #define Tcl_UtfAtIndex(src, index) \ - (tclStubsPtr->tcl_UtfAtIndex)(src, index) /* 316 */ + (tclStubsPtr->tcl_UtfAtIndex)(src, index) /* 319 */ #endif #ifndef Tcl_UtfCharComplete #define Tcl_UtfCharComplete(src, len) \ - (tclStubsPtr->tcl_UtfCharComplete)(src, len) /* 317 */ + (tclStubsPtr->tcl_UtfCharComplete)(src, len) /* 320 */ #endif #ifndef Tcl_UtfBackslash #define Tcl_UtfBackslash(src, readPtr, dst) \ - (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst) /* 318 */ + (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst) /* 321 */ #endif #ifndef Tcl_UtfFindFirst #define Tcl_UtfFindFirst(src, ch) \ - (tclStubsPtr->tcl_UtfFindFirst)(src, ch) /* 319 */ + (tclStubsPtr->tcl_UtfFindFirst)(src, ch) /* 322 */ #endif #ifndef Tcl_UtfFindLast #define Tcl_UtfFindLast(src, ch) \ - (tclStubsPtr->tcl_UtfFindLast)(src, ch) /* 320 */ + (tclStubsPtr->tcl_UtfFindLast)(src, ch) /* 323 */ #endif -/* Slot 321 is reserved */ -/* Slot 322 is reserved */ #ifndef Tcl_UtfNext #define Tcl_UtfNext(src) \ - (tclStubsPtr->tcl_UtfNext)(src) /* 323 */ + (tclStubsPtr->tcl_UtfNext)(src) /* 324 */ #endif #ifndef Tcl_UtfPrev #define Tcl_UtfPrev(src, start) \ - (tclStubsPtr->tcl_UtfPrev)(src, start) /* 324 */ + (tclStubsPtr->tcl_UtfPrev)(src, start) /* 325 */ #endif #ifndef Tcl_UtfToExternal #define Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) \ - (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 325 */ + (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 326 */ #endif #ifndef Tcl_UtfToExternalDString #define Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr) \ - (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr) /* 326 */ + (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr) /* 327 */ #endif #ifndef Tcl_UtfToLower #define Tcl_UtfToLower(src) \ - (tclStubsPtr->tcl_UtfToLower)(src) /* 327 */ + (tclStubsPtr->tcl_UtfToLower)(src) /* 328 */ #endif #ifndef Tcl_UtfToTitle #define Tcl_UtfToTitle(src) \ - (tclStubsPtr->tcl_UtfToTitle)(src) /* 328 */ + (tclStubsPtr->tcl_UtfToTitle)(src) /* 329 */ #endif #ifndef Tcl_UtfToUniChar #define Tcl_UtfToUniChar(src, chPtr) \ - (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr) /* 329 */ + (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr) /* 330 */ #endif #ifndef Tcl_UtfToUpper #define Tcl_UtfToUpper(src) \ - (tclStubsPtr->tcl_UtfToUpper)(src) /* 330 */ + (tclStubsPtr->tcl_UtfToUpper)(src) /* 331 */ #endif #ifndef Tcl_WriteChars #define Tcl_WriteChars(chan, src, srcLen) \ - (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen) /* 331 */ + (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen) /* 332 */ #endif #ifndef Tcl_WriteObj #define Tcl_WriteObj(chan, objPtr) \ - (tclStubsPtr->tcl_WriteObj)(chan, objPtr) /* 332 */ + (tclStubsPtr->tcl_WriteObj)(chan, objPtr) /* 333 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 924b45c..2ea5f18 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.2.4.2 1999/03/09 02:37:15 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.2.4.3 1999/03/10 06:41:50 stanton Exp $ library tcl @@ -496,82 +496,37 @@ declare 131 generic { Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) } - -# Compilation procedures for commands in the generic core: - -# Signature changed in 8.1: -# declare 132 generic { -# int TclCompileBreakCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 133 generic { -# int TclCompileCatchCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 134 generic { -# int TclCompileContinueCmd(Tcl_Interp *interp, char *string, \ -# char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 135 generic { -# int TclCompileExprCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 136 generic { -# int TclCompileForCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 137 generic { -# int TclCompileForeachCmd(Tcl_Interp *interp, char *string, \ -# char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 138 generic { -# int TclCompileIfCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 139 generic { -# int TclCompileIncrCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 140 generic { -# int TclCompileSetCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } -# declare 141 generic { -# int TclCompileWhileCmd(Tcl_Interp *interp, char *string, char *lastChar, \ -# int compileFlags, struct CompileEnv *compileEnvPtr) -# } - -declare 142 generic { +declare 132 generic { int TclpHasSockets(Tcl_Interp *interp) } -declare 143 generic { +declare 133 generic { struct tm * TclpGetDate(TclpTime_t time, int useGMT) } -declare 144 generic { +declare 134 generic { size_t TclpStrftime(char *s, size_t maxsize, const char *format, \ const struct tm *t) } -declare 145 generic { +declare 135 generic { int TclpCheckStackSpace(void) } # Added in 8.1: -declare 146 generic { +declare 136 generic { char * Tcl_GetString(Tcl_Obj *objPtr) } -declare 147 generic { +declare 137 generic { int TclpChdir(CONST char *dirName) } -declare 148 generic { +declare 138 generic { char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) } -declare 149 generic { +declare 139 generic { int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ char *sym2, Tcl_PackageInitProc **proc1Ptr, \ Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr) } -declare 150 generic { +declare 140 generic { int TclLooksLikeInt(char *bytes, int length) } @@ -770,6 +725,15 @@ declare 20 win { declare 21 win { char * TclpGetTZName(int isdst) } +declare 22 win { + char * TclWinNoBackslash(char *path) +} +declare 23 win { + TCHAR * Tcl_WinUtfToTChar(CONST char *string, int len, Tcl_DString *dsPtr) +} +declare 24 win { + char * Tcl_WinTCharToUtf(CONST TCHAR *string, int len, Tcl_DString *dsPtr) +} ######################### # Unix specific internals diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index b76551c..7fd3d1e 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.2.2.2 1999/03/09 02:37:16 stanton Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.2.2.3 1999/03/10 06:41:50 stanton Exp $ */ #ifndef _TCLINTDECLS @@ -416,39 +416,29 @@ EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* 142 */ +/* 132 */ EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); -/* 143 */ +/* 133 */ EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT)); -/* 144 */ +/* 134 */ EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); -/* 145 */ +/* 135 */ EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); -/* 146 */ +/* 136 */ EXTERN char * Tcl_GetString _ANSI_ARGS_((Tcl_Obj * objPtr)); -/* 147 */ +/* 137 */ EXTERN int TclpChdir _ANSI_ARGS_((CONST char * dirName)); -/* 148 */ +/* 138 */ EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); -/* 149 */ +/* 139 */ EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); -/* 150 */ +/* 140 */ EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes, int length)); @@ -588,25 +578,15 @@ typedef struct TclIntStubs { int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */ int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */ void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */ - void *reserved132; - void *reserved133; - void *reserved134; - void *reserved135; - void *reserved136; - void *reserved137; - void *reserved138; - void *reserved139; - void *reserved140; - void *reserved141; - int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 142 */ - struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 143 */ - size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 144 */ - int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 145 */ - char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 146 */ - int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 147 */ - char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 148 */ - int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 149 */ - int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 150 */ + int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */ + struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */ + size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 134 */ + int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */ + char * (*tcl_GetString) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 136 */ + int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 137 */ + char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */ + int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 139 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */ } TclIntStubs; extern TclIntStubs *tclIntStubsPtr; @@ -1106,51 +1086,41 @@ extern TclIntStubs *tclIntStubsPtr; #define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \ (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 131 */ #endif -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ #ifndef TclpHasSockets #define TclpHasSockets(interp) \ - (tclIntStubsPtr->tclpHasSockets)(interp) /* 142 */ + (tclIntStubsPtr->tclpHasSockets)(interp) /* 132 */ #endif #ifndef TclpGetDate #define TclpGetDate(time, useGMT) \ - (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 143 */ + (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 133 */ #endif #ifndef TclpStrftime #define TclpStrftime(s, maxsize, format, t) \ - (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 144 */ + (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 134 */ #endif #ifndef TclpCheckStackSpace #define TclpCheckStackSpace() \ - (tclIntStubsPtr->tclpCheckStackSpace)() /* 145 */ + (tclIntStubsPtr->tclpCheckStackSpace)() /* 135 */ #endif #ifndef Tcl_GetString #define Tcl_GetString(objPtr) \ - (tclIntStubsPtr->tcl_GetString)(objPtr) /* 146 */ + (tclIntStubsPtr->tcl_GetString)(objPtr) /* 136 */ #endif #ifndef TclpChdir #define TclpChdir(dirName) \ - (tclIntStubsPtr->tclpChdir)(dirName) /* 147 */ + (tclIntStubsPtr->tclpChdir)(dirName) /* 137 */ #endif #ifndef TclGetEnv #define TclGetEnv(name, valuePtr) \ - (tclIntStubsPtr->tclGetEnv)(name, valuePtr) /* 148 */ + (tclIntStubsPtr->tclGetEnv)(name, valuePtr) /* 138 */ #endif #ifndef TclpLoadFile #define TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) \ - (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) /* 149 */ + (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) /* 139 */ #endif #ifndef TclLooksLikeInt #define TclLooksLikeInt(bytes, length) \ - (tclIntStubsPtr->tclLooksLikeInt)(bytes, length) /* 150 */ + (tclIntStubsPtr->tclLooksLikeInt)(bytes, length) /* 140 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index f698293..d384000 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.2.2.2 1999/03/09 02:37:16 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.2.2.3 1999/03/10 06:41:51 stanton Exp $ */ #ifndef _TCLINTPLATDECLS @@ -27,6 +27,39 @@ * Exported function declarations: */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* 0 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 1 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 2 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 3 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 4 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* Slot 5 is reserved */ +/* 6 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 7 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, + int mode)); +/* 8 */ +EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, + int timeout)); +/* 9 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( + CONST char * contents)); +#endif /* UNIX */ #ifdef __WIN32__ /* 0 */ EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode)); @@ -86,40 +119,15 @@ EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( CONST char * contents)); /* 21 */ EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); +/* 22 */ +EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); +/* 23 */ +EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * string, + int len, Tcl_DString * dsPtr)); +/* 24 */ +EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * string, + int len, Tcl_DString * dsPtr)); #endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -/* 0 */ -EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 1 */ -EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); -/* 2 */ -EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( - TclFile readFile, TclFile writeFile, - TclFile errorFile, int numPids, - Tcl_Pid * pidPtr)); -/* 3 */ -EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, - TclFile * writePipe)); -/* 4 */ -EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, - int argc, char ** argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid * pidPtr)); -/* Slot 5 is reserved */ -/* 6 */ -EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, - int direction)); -/* 7 */ -EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, - int mode)); -/* 8 */ -EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, - int timeout)); -/* 9 */ -EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( - CONST char * contents)); -#endif /* UNIX */ #ifdef MAC_TCL /* 0 */ EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); @@ -192,6 +200,18 @@ typedef struct TclIntPlatStubs { int magic; struct TclIntPlatStubHooks *hooks; +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ + void *reserved5; + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ + int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ +#endif /* UNIX */ #ifdef __WIN32__ void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */ void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */ @@ -215,19 +235,10 @@ typedef struct TclIntPlatStubs { TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 20 */ char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 21 */ + char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 22 */ + TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * string, int len, Tcl_DString * dsPtr)); /* 23 */ + char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * string, int len, Tcl_DString * dsPtr)); /* 24 */ #endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) - void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ - int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ - Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ - int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ - int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ - void *reserved5; - TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ - TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ - int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ - TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ -#endif /* UNIX */ #ifdef MAC_TCL VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ @@ -266,6 +277,45 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; * Inline function declarations: */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */ +#endif +/* Slot 5 is reserved */ +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */ +#endif +#ifndef TclUnixWaitForFile +#define TclUnixWaitForFile(fd, mask, timeout) \ + (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 9 */ +#endif +#endif /* UNIX */ #ifdef __WIN32__ #ifndef TclWinConvertError #define TclWinConvertError(errCode) \ @@ -346,46 +396,19 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclpGetTZName(isdst) \ (tclIntPlatStubsPtr->tclpGetTZName)(isdst) /* 21 */ #endif -#endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids(interp, chan) \ - (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile(file) \ - (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ - (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe(readPipe, writePipe) \ - (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ - (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */ -#endif -/* Slot 5 is reserved */ -#ifndef TclpMakeFile -#define TclpMakeFile(channel, direction) \ - (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile(fname, mode) \ - (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */ +#ifndef TclWinNoBackslash +#define TclWinNoBackslash(path) \ + (tclIntPlatStubsPtr->tclWinNoBackslash)(path) /* 22 */ #endif -#ifndef TclUnixWaitForFile -#define TclUnixWaitForFile(fd, mask, timeout) \ - (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */ +#ifndef Tcl_WinUtfToTChar +#define Tcl_WinUtfToTChar(string, len, dsPtr) \ + (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(string, len, dsPtr) /* 23 */ #endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile(contents) \ - (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 9 */ +#ifndef Tcl_WinTCharToUtf +#define Tcl_WinTCharToUtf(string, len, dsPtr) \ + (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(string, len, dsPtr) /* 24 */ #endif -#endif /* UNIX */ +#endif /* __WIN32__ */ #ifdef MAC_TCL #ifndef TclpSysAlloc #define TclpSysAlloc(size, isBin) \ diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c index 7df2393..691bbd1 100644 --- a/generic/tclIntPlatStubs.c +++ b/generic/tclIntPlatStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2.2.2 1999/03/09 02:37:16 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2.2.3 1999/03/10 06:41:51 stanton Exp $ */ #include "tclInt.h" @@ -25,6 +25,97 @@ * Exported stub functions: */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 0 */ +void +TclGetAndDetachPids(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); +} + +/* Slot 1 */ +int +TclpCloseFile(file) + TclFile file; +{ + return (tclIntPlatStubsPtr->tclpCloseFile)(file); +} + +/* Slot 2 */ +Tcl_Channel +TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) + TclFile readFile; + TclFile writeFile; + TclFile errorFile; + int numPids; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); +} + +/* Slot 3 */ +int +TclpCreatePipe(readPipe, writePipe) + TclFile * readPipe; + TclFile * writePipe; +{ + return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); +} + +/* Slot 4 */ +int +TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) + Tcl_Interp * interp; + int argc; + char ** argv; + TclFile inputFile; + TclFile outputFile; + TclFile errorFile; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); +} + +/* Slot 5 is reserved */ +/* Slot 6 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 7 */ +TclFile +TclpOpenFile(fname, mode) + CONST char * fname; + int mode; +{ + return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); +} + +/* Slot 8 */ +int +TclUnixWaitForFile(fd, mask, timeout) + int fd; + int mask; + int timeout; +{ + return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout); +} + +/* Slot 9 */ +TclFile +TclpCreateTempFile(contents) + CONST char * contents; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents); +} + +#endif /* UNIX */ #ifdef __WIN32__ /* Slot 0 */ void @@ -205,98 +296,35 @@ TclpGetTZName(isdst) return (tclIntPlatStubsPtr->tclpGetTZName)(isdst); } -#endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -/* Slot 0 */ -void -TclGetAndDetachPids(interp, chan) - Tcl_Interp * interp; - Tcl_Channel chan; -{ - (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); -} - -/* Slot 1 */ -int -TclpCloseFile(file) - TclFile file; -{ - return (tclIntPlatStubsPtr->tclpCloseFile)(file); -} - -/* Slot 2 */ -Tcl_Channel -TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) - TclFile readFile; - TclFile writeFile; - TclFile errorFile; - int numPids; - Tcl_Pid * pidPtr; -{ - return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); -} - -/* Slot 3 */ -int -TclpCreatePipe(readPipe, writePipe) - TclFile * readPipe; - TclFile * writePipe; -{ - return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); -} - -/* Slot 4 */ -int -TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) - Tcl_Interp * interp; - int argc; - char ** argv; - TclFile inputFile; - TclFile outputFile; - TclFile errorFile; - Tcl_Pid * pidPtr; -{ - return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); -} - -/* Slot 5 is reserved */ -/* Slot 6 */ -TclFile -TclpMakeFile(channel, direction) - Tcl_Channel channel; - int direction; -{ - return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); -} - -/* Slot 7 */ -TclFile -TclpOpenFile(fname, mode) - CONST char * fname; - int mode; +/* Slot 22 */ +char * +TclWinNoBackslash(path) + char * path; { - return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); + return (tclIntPlatStubsPtr->tclWinNoBackslash)(path); } -/* Slot 8 */ -int -TclUnixWaitForFile(fd, mask, timeout) - int fd; - int mask; - int timeout; +/* Slot 23 */ +TCHAR * +Tcl_WinUtfToTChar(string, len, dsPtr) + CONST char * string; + int len; + Tcl_DString * dsPtr; { - return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout); + return (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(string, len, dsPtr); } -/* Slot 9 */ -TclFile -TclpCreateTempFile(contents) - CONST char * contents; +/* Slot 24 */ +char * +Tcl_WinTCharToUtf(string, len, dsPtr) + CONST TCHAR * string; + int len; + Tcl_DString * dsPtr; { - return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents); + return (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(string, len, dsPtr); } -#endif /* UNIX */ +#endif /* __WIN32__ */ #ifdef MAC_TCL /* Slot 0 */ VOID * diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c index fea427b..4d565de 100644 --- a/generic/tclIntStubs.c +++ b/generic/tclIntStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntStubs.c,v 1.2.2.2 1999/03/09 02:37:17 stanton Exp $ + * RCS: @(#) $Id: tclIntStubs.c,v 1.2.2.3 1999/03/10 06:41:51 stanton Exp $ */ #include "tclInt.h" @@ -1180,17 +1180,7 @@ Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc); } -/* Slot 132 is reserved */ -/* Slot 133 is reserved */ -/* Slot 134 is reserved */ -/* Slot 135 is reserved */ -/* Slot 136 is reserved */ -/* Slot 137 is reserved */ -/* Slot 138 is reserved */ -/* Slot 139 is reserved */ -/* Slot 140 is reserved */ -/* Slot 141 is reserved */ -/* Slot 142 */ +/* Slot 132 */ int TclpHasSockets(interp) Tcl_Interp * interp; @@ -1198,7 +1188,7 @@ TclpHasSockets(interp) return (tclIntStubsPtr->tclpHasSockets)(interp); } -/* Slot 143 */ +/* Slot 133 */ struct tm * TclpGetDate(time, useGMT) TclpTime_t time; @@ -1207,7 +1197,7 @@ TclpGetDate(time, useGMT) return (tclIntStubsPtr->tclpGetDate)(time, useGMT); } -/* Slot 144 */ +/* Slot 134 */ size_t TclpStrftime(s, maxsize, format, t) char * s; @@ -1218,14 +1208,14 @@ TclpStrftime(s, maxsize, format, t) return (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t); } -/* Slot 145 */ +/* Slot 135 */ int TclpCheckStackSpace() { return (tclIntStubsPtr->tclpCheckStackSpace)(); } -/* Slot 146 */ +/* Slot 136 */ char * Tcl_GetString(objPtr) Tcl_Obj * objPtr; @@ -1233,7 +1223,7 @@ Tcl_GetString(objPtr) return (tclIntStubsPtr->tcl_GetString)(objPtr); } -/* Slot 147 */ +/* Slot 137 */ int TclpChdir(dirName) CONST char * dirName; @@ -1241,7 +1231,7 @@ TclpChdir(dirName) return (tclIntStubsPtr->tclpChdir)(dirName); } -/* Slot 148 */ +/* Slot 138 */ char * TclGetEnv(name, valuePtr) CONST char * name; @@ -1250,7 +1240,7 @@ TclGetEnv(name, valuePtr) return (tclIntStubsPtr->tclGetEnv)(name, valuePtr); } -/* Slot 149 */ +/* Slot 139 */ int TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) Tcl_Interp * interp; @@ -1264,7 +1254,7 @@ TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) return (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr); } -/* Slot 150 */ +/* Slot 140 */ int TclLooksLikeInt(bytes, length) char * bytes; diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index d0373d7..9df194d 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -5,17 +5,6 @@ * Exported function declarations: */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -/* 0 */ -EXTERN void Tcl_CreateFileHandler _ANSI_ARGS_((int fd, int mask, - Tcl_FileProc * proc, ClientData clientData)); -/* 1 */ -EXTERN void Tcl_DeleteFileHandler _ANSI_ARGS_((int fd)); -/* 2 */ -EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, - char * str, int write, int checkUsage, - ClientData * filePtr)); -#endif /* UNIX */ #ifdef MAC_TCL /* 0 */ EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_(( @@ -53,11 +42,6 @@ typedef struct TclPlatStubs { int magic; struct TclPlatStubHooks *hooks; -#if !defined(__WIN32__) && !defined(MAC_TCL) - void (*tcl_CreateFileHandler) _ANSI_ARGS_((int fd, int mask, Tcl_FileProc * proc, ClientData clientData)); /* 0 */ - void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 1 */ - int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int write, int checkUsage, ClientData * filePtr)); /* 2 */ -#endif /* UNIX */ #ifdef MAC_TCL void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */ char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */ @@ -79,20 +63,6 @@ extern TclPlatStubs *tclPlatStubsPtr; * Inline function declarations: */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -#ifndef Tcl_CreateFileHandler -#define Tcl_CreateFileHandler(fd, mask, proc, clientData) \ - (tclPlatStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData) /* 0 */ -#endif -#ifndef Tcl_DeleteFileHandler -#define Tcl_DeleteFileHandler(fd) \ - (tclPlatStubsPtr->tcl_DeleteFileHandler)(fd) /* 1 */ -#endif -#ifndef Tcl_GetOpenFile -#define Tcl_GetOpenFile(interp, str, write, checkUsage, filePtr) \ - (tclPlatStubsPtr->tcl_GetOpenFile)(interp, str, write, checkUsage, filePtr) /* 2 */ -#endif -#endif /* UNIX */ #ifdef MAC_TCL #ifndef Tcl_MacSetEventProc #define Tcl_MacSetEventProc(procPtr) \ diff --git a/generic/tclPlatStubs.c b/generic/tclPlatStubs.c index 307501c..d7a8971 100644 --- a/generic/tclPlatStubs.c +++ b/generic/tclPlatStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclPlatStubs.c,v 1.2.2.1 1999/03/08 20:14:11 stanton Exp $ + * RCS: @(#) $Id: tclPlatStubs.c,v 1.2.2.2 1999/03/10 06:41:52 stanton Exp $ */ #include "tcl.h" @@ -24,39 +24,6 @@ * Exported stub functions: */ -#if !defined(__WIN32__) && !defined(MAC_TCL) -/* Slot 0 */ -void -Tcl_CreateFileHandler(fd, mask, proc, clientData) - int fd; - int mask; - Tcl_FileProc * proc; - ClientData clientData; -{ - (tclPlatStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData); -} - -/* Slot 1 */ -void -Tcl_DeleteFileHandler(fd) - int fd; -{ - (tclPlatStubsPtr->tcl_DeleteFileHandler)(fd); -} - -/* Slot 2 */ -int -Tcl_GetOpenFile(interp, str, write, checkUsage, filePtr) - Tcl_Interp * interp; - char * str; - int write; - int checkUsage; - ClientData * filePtr; -{ - return (tclPlatStubsPtr->tcl_GetOpenFile)(interp, str, write, checkUsage, filePtr); -} - -#endif /* UNIX */ #ifdef MAC_TCL /* Slot 0 */ void diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 7e0d83f..6c22ced 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.2.4.2 1999/03/09 02:37:18 stanton Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.2.4.3 1999/03/10 06:41:52 stanton Exp $ */ #include "tclInt.h" @@ -45,339 +45,364 @@ static TclStubHooks tclStubHooks; TclStubs tclStubs = { TCL_STUB_MAGIC, &tclStubHooks, - Tcl_AddErrorInfo, /* 0 */ - Tcl_AddObjErrorInfo, /* 1 */ - Tcl_Alloc, /* 2 */ - Tcl_AllowExceptions, /* 3 */ - Tcl_AppendAllObjTypes, /* 4 */ - Tcl_AppendElement, /* 5 */ - Tcl_AppendResult, /* 6 */ - Tcl_AppendResultVA, /* 7 */ - Tcl_AppendToObj, /* 8 */ - Tcl_AppendStringsToObj, /* 9 */ - Tcl_AppendStringsToObjVA, /* 10 */ - Tcl_AsyncCreate, /* 11 */ - Tcl_AsyncDelete, /* 12 */ - Tcl_AsyncInvoke, /* 13 */ - Tcl_AsyncMark, /* 14 */ - Tcl_AsyncReady, /* 15 */ - Tcl_BackgroundError, /* 16 */ - Tcl_Backslash, /* 17 */ - Tcl_BadChannelOption, /* 18 */ - Tcl_CallWhenDeleted, /* 19 */ - Tcl_CancelIdleCall, /* 20 */ - Tcl_Close, /* 21 */ - Tcl_CommandComplete, /* 22 */ - Tcl_Concat, /* 23 */ - Tcl_ConcatObj, /* 24 */ - Tcl_ConvertCountedElement, /* 25 */ - Tcl_ConvertElement, /* 26 */ - Tcl_ConvertToType, /* 27 */ - Tcl_CreateAlias, /* 28 */ - Tcl_CreateAliasObj, /* 29 */ - Tcl_CreateChannel, /* 30 */ - Tcl_CreateChannelHandler, /* 31 */ - Tcl_CreateCloseHandler, /* 32 */ - Tcl_CreateCommand, /* 33 */ - Tcl_CreateEventSource, /* 34 */ - Tcl_CreateExitHandler, /* 35 */ - Tcl_CreateInterp, /* 36 */ - Tcl_CreateMathFunc, /* 37 */ - Tcl_CreateObjCommand, /* 38 */ - Tcl_CreateSlave, /* 39 */ - Tcl_CreateTimerHandler, /* 40 */ - Tcl_CreateTrace, /* 41 */ - Tcl_DbCkalloc, /* 42 */ - Tcl_DbCkfree, /* 43 */ - Tcl_DbCkrealloc, /* 44 */ - Tcl_DbDecrRefCount, /* 45 */ - Tcl_DbIncrRefCount, /* 46 */ - Tcl_DbIsShared, /* 47 */ - Tcl_DbNewBooleanObj, /* 48 */ - Tcl_DbNewByteArrayObj, /* 49 */ - Tcl_DbNewDoubleObj, /* 50 */ - Tcl_DbNewListObj, /* 51 */ - Tcl_DbNewLongObj, /* 52 */ - Tcl_DbNewObj, /* 53 */ - Tcl_DbNewStringObj, /* 54 */ - Tcl_DeleteAssocData, /* 55 */ - Tcl_DeleteCommand, /* 56 */ - Tcl_DeleteCommandFromToken, /* 57 */ - Tcl_DeleteChannelHandler, /* 58 */ - Tcl_DeleteCloseHandler, /* 59 */ - Tcl_DeleteEvents, /* 60 */ - Tcl_DeleteEventSource, /* 61 */ - Tcl_DeleteExitHandler, /* 62 */ - Tcl_DeleteHashEntry, /* 63 */ - Tcl_DeleteHashTable, /* 64 */ - Tcl_DeleteInterp, /* 65 */ - Tcl_DeleteTimerHandler, /* 66 */ - Tcl_DeleteTrace, /* 67 */ - Tcl_DetachPids, /* 68 */ - Tcl_DontCallWhenDeleted, /* 69 */ - Tcl_DoOneEvent, /* 70 */ - Tcl_DoWhenIdle, /* 71 */ - Tcl_DStringAppend, /* 72 */ - Tcl_DStringAppendElement, /* 73 */ - Tcl_DStringEndSublist, /* 74 */ - Tcl_DStringFree, /* 75 */ - Tcl_DStringGetResult, /* 76 */ - Tcl_DStringInit, /* 77 */ - Tcl_DStringResult, /* 78 */ - Tcl_DStringSetLength, /* 79 */ - Tcl_DStringStartSublist, /* 80 */ - Tcl_DumpActiveMemory, /* 81 */ - Tcl_DuplicateObj, /* 82 */ - Tcl_Eof, /* 83 */ - Tcl_ErrnoId, /* 84 */ - Tcl_ErrnoMsg, /* 85 */ - Tcl_Eval, /* 86 */ - Tcl_EvalFile, /* 87 */ - Tcl_EventuallyFree, /* 88 */ - Tcl_EvalObj, /* 89 */ - Tcl_Exit, /* 90 */ - Tcl_ExposeCommand, /* 91 */ - Tcl_ExprBoolean, /* 92 */ - Tcl_ExprBooleanObj, /* 93 */ - Tcl_ExprDouble, /* 94 */ - Tcl_ExprDoubleObj, /* 95 */ - Tcl_ExprLong, /* 96 */ - Tcl_ExprLongObj, /* 97 */ - Tcl_ExprObj, /* 98 */ - Tcl_ExprString, /* 99 */ - Tcl_Finalize, /* 100 */ - Tcl_FindExecutable, /* 101 */ - Tcl_FirstHashEntry, /* 102 */ - Tcl_Flush, /* 103 */ - Tcl_Free, /* 104 */ - TclFreeObj, /* 105 */ - Tcl_FreeResult, /* 106 */ - Tcl_GetAlias, /* 107 */ - Tcl_GetAliasObj, /* 108 */ - Tcl_GetAssocData, /* 109 */ - Tcl_GetBoolean, /* 110 */ - Tcl_GetBooleanFromObj, /* 111 */ - Tcl_GetByteArrayFromObj, /* 112 */ - Tcl_GetChannel, /* 113 */ - Tcl_GetChannelBufferSize, /* 114 */ - Tcl_GetChannelHandle, /* 115 */ - Tcl_GetChannelInstanceData, /* 116 */ - Tcl_GetChannelMode, /* 117 */ - Tcl_GetChannelName, /* 118 */ - Tcl_GetChannelOption, /* 119 */ - Tcl_GetChannelType, /* 120 */ - Tcl_GetCommandInfo, /* 121 */ - Tcl_GetCommandName, /* 122 */ - Tcl_GetDouble, /* 123 */ - Tcl_GetDoubleFromObj, /* 124 */ - Tcl_GetErrno, /* 125 */ - Tcl_GetHostName, /* 126 */ - Tcl_GetIndexFromObj, /* 127 */ - Tcl_GetInt, /* 128 */ - Tcl_GetInterpPath, /* 129 */ - Tcl_GetIntFromObj, /* 130 */ - Tcl_GetLongFromObj, /* 131 */ - Tcl_GetMaster, /* 132 */ - Tcl_GetNameOfExecutable, /* 133 */ - Tcl_GetObjResult, /* 134 */ - Tcl_GetObjType, /* 135 */ - Tcl_GetPathType, /* 136 */ - Tcl_Gets, /* 137 */ - Tcl_GetsObj, /* 138 */ - Tcl_GetServiceMode, /* 139 */ - Tcl_GetSlave, /* 140 */ - Tcl_GetStdChannel, /* 141 */ - Tcl_GetStringFromObj, /* 142 */ - Tcl_GetStringResult, /* 143 */ - Tcl_GetVar, /* 144 */ - Tcl_GetVar2, /* 145 */ - Tcl_GlobalEval, /* 146 */ - Tcl_GlobalEvalObj, /* 147 */ - Tcl_HashStats, /* 148 */ - Tcl_HideCommand, /* 149 */ - Tcl_Init, /* 150 */ - Tcl_InitHashTable, /* 151 */ - Tcl_InitMemory, /* 152 */ - Tcl_InputBlocked, /* 153 */ - Tcl_InputBuffered, /* 154 */ - Tcl_InterpDeleted, /* 155 */ - Tcl_IsSafe, /* 156 */ - Tcl_InvalidateStringRep, /* 157 */ - Tcl_JoinPath, /* 158 */ - Tcl_LinkVar, /* 159 */ - Tcl_ListObjAppendList, /* 160 */ - Tcl_ListObjAppendElement, /* 161 */ - Tcl_ListObjGetElements, /* 162 */ - Tcl_ListObjIndex, /* 163 */ - Tcl_ListObjLength, /* 164 */ - Tcl_ListObjReplace, /* 165 */ - Tcl_MakeFileChannel, /* 166 */ - Tcl_MakeSafe, /* 167 */ - Tcl_MakeTcpClientChannel, /* 168 */ - Tcl_Merge, /* 169 */ - Tcl_NewBooleanObj, /* 170 */ - Tcl_NewByteArrayObj, /* 171 */ - Tcl_NewDoubleObj, /* 172 */ - Tcl_NewIntObj, /* 173 */ - Tcl_NewListObj, /* 174 */ - Tcl_NewLongObj, /* 175 */ - Tcl_NewObj, /* 176 */ - Tcl_NewStringObj, /* 177 */ - Tcl_NextHashEntry, /* 178 */ - Tcl_NotifyChannel, /* 179 */ - Tcl_ObjGetVar2, /* 180 */ - Tcl_ObjSetVar2, /* 181 */ - Tcl_OpenCommandChannel, /* 182 */ - Tcl_OpenFileChannel, /* 183 */ - Tcl_OpenTcpClient, /* 184 */ - Tcl_OpenTcpServer, /* 185 */ - panic, /* 186 */ - panicVA, /* 187 */ - Tcl_ParseVar, /* 188 */ - Tcl_PkgPresent, /* 189 */ - Tcl_PkgPresentEx, /* 190 */ - Tcl_PkgProvide, /* 191 */ - Tcl_PkgProvideEx, /* 192 */ - Tcl_PkgRequire, /* 193 */ - Tcl_PkgRequireEx, /* 194 */ - Tcl_PosixError, /* 195 */ - Tcl_Preserve, /* 196 */ - Tcl_PrintDouble, /* 197 */ - Tcl_PutEnv, /* 198 */ - Tcl_QueueEvent, /* 199 */ - Tcl_Read, /* 200 */ - Tcl_Realloc, /* 201 */ - Tcl_ReapDetachedProcs, /* 202 */ - Tcl_RecordAndEval, /* 203 */ - Tcl_RecordAndEvalObj, /* 204 */ - Tcl_RegExpCompile, /* 205 */ - Tcl_RegExpExec, /* 206 */ - Tcl_RegExpMatch, /* 207 */ - Tcl_RegExpRange, /* 208 */ - Tcl_RegisterChannel, /* 209 */ - Tcl_RegisterObjType, /* 210 */ - Tcl_Release, /* 211 */ - Tcl_ResetResult, /* 212 */ - Tcl_ScanCountedElement, /* 213 */ - Tcl_ScanElement, /* 214 */ - Tcl_Seek, /* 215 */ - Tcl_ServiceAll, /* 216 */ - Tcl_ServiceEvent, /* 217 */ - Tcl_SetAssocData, /* 218 */ - Tcl_SetBooleanObj, /* 219 */ - Tcl_SetByteArrayLength, /* 220 */ - Tcl_SetByteArrayObj, /* 221 */ - Tcl_SetChannelBufferSize, /* 222 */ - Tcl_SetChannelOption, /* 223 */ - Tcl_SetCommandInfo, /* 224 */ - Tcl_SetDoubleObj, /* 225 */ - Tcl_SetErrno, /* 226 */ - Tcl_SetErrorCode, /* 227 */ - Tcl_SetErrorCodeVA, /* 228 */ - Tcl_SetIntObj, /* 229 */ - Tcl_SetListObj, /* 230 */ - Tcl_SetLongObj, /* 231 */ - Tcl_SetMaxBlockTime, /* 232 */ - Tcl_SetObjErrorCode, /* 233 */ - Tcl_SetObjLength, /* 234 */ + Tcl_PkgProvideEx, /* 0 */ + Tcl_PkgRequireEx, /* 1 */ + panic, /* 2 */ + Tcl_Alloc, /* 3 */ + Tcl_Free, /* 4 */ + Tcl_Realloc, /* 5 */ + Tcl_DbCkalloc, /* 6 */ + Tcl_DbCkfree, /* 7 */ + Tcl_DbCkrealloc, /* 8 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + Tcl_CreateFileHandler, /* 9 */ +#endif /* UNIX */ +#ifdef __WIN32__ + NULL, /* 9 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + NULL, /* 9 */ +#endif /* MAC_TCL */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + Tcl_DeleteFileHandler, /* 10 */ +#endif /* UNIX */ +#ifdef __WIN32__ + NULL, /* 10 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + NULL, /* 10 */ +#endif /* MAC_TCL */ + Tcl_SetTimer, /* 11 */ + Tcl_Sleep, /* 12 */ + Tcl_WaitForEvent, /* 13 */ + Tcl_AppendAllObjTypes, /* 14 */ + Tcl_AppendStringsToObj, /* 15 */ + Tcl_AppendToObj, /* 16 */ + Tcl_ConcatObj, /* 17 */ + Tcl_ConvertToType, /* 18 */ + Tcl_DbDecrRefCount, /* 19 */ + Tcl_DbIncrRefCount, /* 20 */ + Tcl_DbIsShared, /* 21 */ + Tcl_DbNewBooleanObj, /* 22 */ + Tcl_DbNewByteArrayObj, /* 23 */ + Tcl_DbNewDoubleObj, /* 24 */ + Tcl_DbNewListObj, /* 25 */ + Tcl_DbNewLongObj, /* 26 */ + Tcl_DbNewObj, /* 27 */ + Tcl_DbNewStringObj, /* 28 */ + Tcl_DuplicateObj, /* 29 */ + TclFreeObj, /* 30 */ + Tcl_GetBoolean, /* 31 */ + Tcl_GetBooleanFromObj, /* 32 */ + Tcl_GetByteArrayFromObj, /* 33 */ + Tcl_GetDouble, /* 34 */ + Tcl_GetDoubleFromObj, /* 35 */ + Tcl_GetIndexFromObj, /* 36 */ + Tcl_GetInt, /* 37 */ + Tcl_GetIntFromObj, /* 38 */ + Tcl_GetLongFromObj, /* 39 */ + Tcl_GetObjType, /* 40 */ + Tcl_GetStringFromObj, /* 41 */ + Tcl_InvalidateStringRep, /* 42 */ + Tcl_ListObjAppendList, /* 43 */ + Tcl_ListObjAppendElement, /* 44 */ + Tcl_ListObjGetElements, /* 45 */ + Tcl_ListObjIndex, /* 46 */ + Tcl_ListObjLength, /* 47 */ + Tcl_ListObjReplace, /* 48 */ + Tcl_NewBooleanObj, /* 49 */ + Tcl_NewByteArrayObj, /* 50 */ + Tcl_NewDoubleObj, /* 51 */ + Tcl_NewIntObj, /* 52 */ + Tcl_NewListObj, /* 53 */ + Tcl_NewLongObj, /* 54 */ + Tcl_NewObj, /* 55 */ + Tcl_NewStringObj, /* 56 */ + Tcl_SetBooleanObj, /* 57 */ + Tcl_SetByteArrayLength, /* 58 */ + Tcl_SetByteArrayObj, /* 59 */ + Tcl_SetDoubleObj, /* 60 */ + Tcl_SetIntObj, /* 61 */ + Tcl_SetListObj, /* 62 */ + Tcl_SetLongObj, /* 63 */ + Tcl_SetObjLength, /* 64 */ + Tcl_SetStringObj, /* 65 */ + Tcl_AddErrorInfo, /* 66 */ + Tcl_AddObjErrorInfo, /* 67 */ + Tcl_AllowExceptions, /* 68 */ + Tcl_AppendElement, /* 69 */ + Tcl_AppendResult, /* 70 */ + Tcl_AsyncCreate, /* 71 */ + Tcl_AsyncDelete, /* 72 */ + Tcl_AsyncInvoke, /* 73 */ + Tcl_AsyncMark, /* 74 */ + Tcl_AsyncReady, /* 75 */ + Tcl_BackgroundError, /* 76 */ + Tcl_Backslash, /* 77 */ + Tcl_BadChannelOption, /* 78 */ + Tcl_CallWhenDeleted, /* 79 */ + Tcl_CancelIdleCall, /* 80 */ + Tcl_Close, /* 81 */ + Tcl_CommandComplete, /* 82 */ + Tcl_Concat, /* 83 */ + Tcl_ConvertElement, /* 84 */ + Tcl_ConvertCountedElement, /* 85 */ + Tcl_CreateAlias, /* 86 */ + Tcl_CreateAliasObj, /* 87 */ + Tcl_CreateChannel, /* 88 */ + Tcl_CreateChannelHandler, /* 89 */ + Tcl_CreateCloseHandler, /* 90 */ + Tcl_CreateCommand, /* 91 */ + Tcl_CreateEventSource, /* 92 */ + Tcl_CreateExitHandler, /* 93 */ + Tcl_CreateInterp, /* 94 */ + Tcl_CreateMathFunc, /* 95 */ + Tcl_CreateObjCommand, /* 96 */ + Tcl_CreateSlave, /* 97 */ + Tcl_CreateTimerHandler, /* 98 */ + Tcl_CreateTrace, /* 99 */ + Tcl_DeleteAssocData, /* 100 */ + Tcl_DeleteChannelHandler, /* 101 */ + Tcl_DeleteCloseHandler, /* 102 */ + Tcl_DeleteCommand, /* 103 */ + Tcl_DeleteCommandFromToken, /* 104 */ + Tcl_DeleteEvents, /* 105 */ + Tcl_DeleteEventSource, /* 106 */ + Tcl_DeleteExitHandler, /* 107 */ + Tcl_DeleteHashEntry, /* 108 */ + Tcl_DeleteHashTable, /* 109 */ + Tcl_DeleteInterp, /* 110 */ + Tcl_DetachPids, /* 111 */ + Tcl_DeleteTimerHandler, /* 112 */ + Tcl_DeleteTrace, /* 113 */ + Tcl_DontCallWhenDeleted, /* 114 */ + Tcl_DoOneEvent, /* 115 */ + Tcl_DoWhenIdle, /* 116 */ + Tcl_DStringAppend, /* 117 */ + Tcl_DStringAppendElement, /* 118 */ + Tcl_DStringEndSublist, /* 119 */ + Tcl_DStringFree, /* 120 */ + Tcl_DStringGetResult, /* 121 */ + Tcl_DStringInit, /* 122 */ + Tcl_DStringResult, /* 123 */ + Tcl_DStringSetLength, /* 124 */ + Tcl_DStringStartSublist, /* 125 */ + Tcl_Eof, /* 126 */ + Tcl_ErrnoId, /* 127 */ + Tcl_ErrnoMsg, /* 128 */ + Tcl_Eval, /* 129 */ + Tcl_EvalFile, /* 130 */ + Tcl_EvalObj, /* 131 */ + Tcl_EventuallyFree, /* 132 */ + Tcl_Exit, /* 133 */ + Tcl_ExposeCommand, /* 134 */ + Tcl_ExprBoolean, /* 135 */ + Tcl_ExprBooleanObj, /* 136 */ + Tcl_ExprDouble, /* 137 */ + Tcl_ExprDoubleObj, /* 138 */ + Tcl_ExprLong, /* 139 */ + Tcl_ExprLongObj, /* 140 */ + Tcl_ExprObj, /* 141 */ + Tcl_ExprString, /* 142 */ + Tcl_Finalize, /* 143 */ + Tcl_FindExecutable, /* 144 */ + Tcl_FirstHashEntry, /* 145 */ + Tcl_Flush, /* 146 */ + Tcl_FreeResult, /* 147 */ + Tcl_GetAlias, /* 148 */ + Tcl_GetAliasObj, /* 149 */ + Tcl_GetAssocData, /* 150 */ + Tcl_GetChannel, /* 151 */ + Tcl_GetChannelBufferSize, /* 152 */ + Tcl_GetChannelHandle, /* 153 */ + Tcl_GetChannelInstanceData, /* 154 */ + Tcl_GetChannelMode, /* 155 */ + Tcl_GetChannelName, /* 156 */ + Tcl_GetChannelOption, /* 157 */ + Tcl_GetChannelType, /* 158 */ + Tcl_GetCommandInfo, /* 159 */ + Tcl_GetCommandName, /* 160 */ + Tcl_GetErrno, /* 161 */ + Tcl_GetHostName, /* 162 */ + Tcl_GetInterpPath, /* 163 */ + Tcl_GetMaster, /* 164 */ + Tcl_GetNameOfExecutable, /* 165 */ + Tcl_GetObjResult, /* 166 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + Tcl_GetOpenFile, /* 167 */ +#endif /* UNIX */ +#ifdef __WIN32__ + NULL, /* 167 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + NULL, /* 167 */ +#endif /* MAC_TCL */ + Tcl_GetPathType, /* 168 */ + Tcl_Gets, /* 169 */ + Tcl_GetsObj, /* 170 */ + Tcl_GetServiceMode, /* 171 */ + Tcl_GetSlave, /* 172 */ + Tcl_GetStdChannel, /* 173 */ + Tcl_GetStringResult, /* 174 */ + Tcl_GetVar, /* 175 */ + Tcl_GetVar2, /* 176 */ + Tcl_GlobalEval, /* 177 */ + Tcl_GlobalEvalObj, /* 178 */ + Tcl_HideCommand, /* 179 */ + Tcl_Init, /* 180 */ + Tcl_InitHashTable, /* 181 */ + Tcl_InputBlocked, /* 182 */ + Tcl_InputBuffered, /* 183 */ + Tcl_InterpDeleted, /* 184 */ + Tcl_IsSafe, /* 185 */ + Tcl_JoinPath, /* 186 */ + Tcl_LinkVar, /* 187 */ + NULL, /* 188 */ + Tcl_MakeFileChannel, /* 189 */ + Tcl_MakeSafe, /* 190 */ + Tcl_MakeTcpClientChannel, /* 191 */ + Tcl_Merge, /* 192 */ + Tcl_NextHashEntry, /* 193 */ + Tcl_NotifyChannel, /* 194 */ + Tcl_ObjGetVar2, /* 195 */ + Tcl_ObjSetVar2, /* 196 */ + Tcl_OpenCommandChannel, /* 197 */ + Tcl_OpenFileChannel, /* 198 */ + Tcl_OpenTcpClient, /* 199 */ + Tcl_OpenTcpServer, /* 200 */ + Tcl_Preserve, /* 201 */ + Tcl_PrintDouble, /* 202 */ + Tcl_PutEnv, /* 203 */ + Tcl_PosixError, /* 204 */ + Tcl_QueueEvent, /* 205 */ + Tcl_Read, /* 206 */ + Tcl_ReapDetachedProcs, /* 207 */ + Tcl_RecordAndEval, /* 208 */ + Tcl_RecordAndEvalObj, /* 209 */ + Tcl_RegisterChannel, /* 210 */ + Tcl_RegisterObjType, /* 211 */ + Tcl_RegExpCompile, /* 212 */ + Tcl_RegExpExec, /* 213 */ + Tcl_RegExpMatch, /* 214 */ + Tcl_RegExpRange, /* 215 */ + Tcl_Release, /* 216 */ + Tcl_ResetResult, /* 217 */ + Tcl_ScanElement, /* 218 */ + Tcl_ScanCountedElement, /* 219 */ + Tcl_Seek, /* 220 */ + Tcl_ServiceAll, /* 221 */ + Tcl_ServiceEvent, /* 222 */ + Tcl_SetAssocData, /* 223 */ + Tcl_SetChannelBufferSize, /* 224 */ + Tcl_SetChannelOption, /* 225 */ + Tcl_SetCommandInfo, /* 226 */ + Tcl_SetErrno, /* 227 */ + Tcl_SetErrorCode, /* 228 */ + Tcl_SetMaxBlockTime, /* 229 */ + Tcl_SetPanicProc, /* 230 */ + Tcl_SetRecursionLimit, /* 231 */ + Tcl_SetResult, /* 232 */ + Tcl_SetServiceMode, /* 233 */ + Tcl_SetObjErrorCode, /* 234 */ Tcl_SetObjResult, /* 235 */ - Tcl_SetPanicProc, /* 236 */ - Tcl_SetRecursionLimit, /* 237 */ - Tcl_SetResult, /* 238 */ - Tcl_SetServiceMode, /* 239 */ - Tcl_SetStdChannel, /* 240 */ - Tcl_SetStringObj, /* 241 */ - Tcl_SetTimer, /* 242 */ - Tcl_SetVar, /* 243 */ - Tcl_SetVar2, /* 244 */ - Tcl_SignalId, /* 245 */ - Tcl_SignalMsg, /* 246 */ - Tcl_Sleep, /* 247 */ - Tcl_SourceRCFile, /* 248 */ - Tcl_SplitList, /* 249 */ - Tcl_SplitPath, /* 250 */ - Tcl_StaticPackage, /* 251 */ - Tcl_StringMatch, /* 252 */ - Tcl_Tell, /* 253 */ - Tcl_TraceVar, /* 254 */ - Tcl_TraceVar2, /* 255 */ - Tcl_TranslateFileName, /* 256 */ - Tcl_Ungets, /* 257 */ - Tcl_UnlinkVar, /* 258 */ - Tcl_UnregisterChannel, /* 259 */ - Tcl_UnsetVar, /* 260 */ - Tcl_UnsetVar2, /* 261 */ - Tcl_UntraceVar, /* 262 */ - Tcl_UntraceVar2, /* 263 */ - Tcl_UpdateLinkedVar, /* 264 */ - Tcl_UpVar, /* 265 */ - Tcl_UpVar2, /* 266 */ - Tcl_ValidateAllMemory, /* 267 */ - Tcl_VarEval, /* 268 */ - Tcl_VarEvalVA, /* 269 */ - Tcl_VarTraceInfo, /* 270 */ - Tcl_VarTraceInfo2, /* 271 */ - Tcl_WaitForEvent, /* 272 */ - Tcl_WaitPid, /* 273 */ - Tcl_Write, /* 274 */ - Tcl_WrongNumArgs, /* 275 */ - Tcl_AppendObjToObj, /* 276 */ - Tcl_AlertNotifier, /* 277 */ - Tcl_CreateEncoding, /* 278 */ - Tcl_CreateThreadExitHandler, /* 279 */ - Tcl_DeleteThreadExitHandler, /* 280 */ - Tcl_DiscardResult, /* 281 */ - Tcl_EvalEx, /* 282 */ - Tcl_EvalObjv, /* 283 */ - Tcl_EvalObjEx, /* 284 */ - Tcl_ExitThread, /* 285 */ - Tcl_ExternalToUtf, /* 286 */ - Tcl_ExternalToUtfDString, /* 287 */ - Tcl_FinalizeThread, /* 288 */ - Tcl_FinalizeNotifier, /* 289 */ - Tcl_FreeEncoding, /* 290 */ - Tcl_GetCurrentThread, /* 291 */ - Tcl_GetEncoding, /* 292 */ - Tcl_GetEncodingName, /* 293 */ - Tcl_GetEncodingNames, /* 294 */ - Tcl_GetIndexFromObjStruct, /* 295 */ - Tcl_GetThreadData, /* 296 */ - Tcl_GetVar2Ex, /* 297 */ - Tcl_InitNotifier, /* 298 */ - Tcl_MutexLock, /* 299 */ - Tcl_MutexUnlock, /* 300 */ - Tcl_ConditionNotify, /* 301 */ - Tcl_ConditionWait, /* 302 */ - Tcl_NumUtfChars, /* 303 */ - Tcl_ReadChars, /* 304 */ - Tcl_RestoreResult, /* 305 */ - Tcl_SaveResult, /* 306 */ - Tcl_SetSystemEncoding, /* 307 */ - Tcl_SetVar2Ex, /* 308 */ - Tcl_ThreadAlert, /* 309 */ - Tcl_ThreadQueueEvent, /* 310 */ - Tcl_UniCharAtIndex, /* 311 */ - Tcl_UniCharToLower, /* 312 */ - Tcl_UniCharToTitle, /* 313 */ - Tcl_UniCharToUpper, /* 314 */ - Tcl_UniCharToUtf, /* 315 */ - Tcl_UtfAtIndex, /* 316 */ - Tcl_UtfCharComplete, /* 317 */ - Tcl_UtfBackslash, /* 318 */ - Tcl_UtfFindFirst, /* 319 */ - Tcl_UtfFindLast, /* 320 */ - NULL, /* 321 */ - NULL, /* 322 */ - Tcl_UtfNext, /* 323 */ - Tcl_UtfPrev, /* 324 */ - Tcl_UtfToExternal, /* 325 */ - Tcl_UtfToExternalDString, /* 326 */ - Tcl_UtfToLower, /* 327 */ - Tcl_UtfToTitle, /* 328 */ - Tcl_UtfToUniChar, /* 329 */ - Tcl_UtfToUpper, /* 330 */ - Tcl_WriteChars, /* 331 */ - Tcl_WriteObj, /* 332 */ + Tcl_SetStdChannel, /* 236 */ + Tcl_SetVar, /* 237 */ + Tcl_SetVar2, /* 238 */ + Tcl_SignalId, /* 239 */ + Tcl_SignalMsg, /* 240 */ + Tcl_SourceRCFile, /* 241 */ + Tcl_SplitList, /* 242 */ + Tcl_SplitPath, /* 243 */ + Tcl_StaticPackage, /* 244 */ + Tcl_StringMatch, /* 245 */ + Tcl_Tell, /* 246 */ + Tcl_TraceVar, /* 247 */ + Tcl_TraceVar2, /* 248 */ + Tcl_TranslateFileName, /* 249 */ + Tcl_Ungets, /* 250 */ + Tcl_UnlinkVar, /* 251 */ + Tcl_UnregisterChannel, /* 252 */ + Tcl_UnsetVar, /* 253 */ + Tcl_UnsetVar2, /* 254 */ + Tcl_UntraceVar, /* 255 */ + Tcl_UntraceVar2, /* 256 */ + Tcl_UpdateLinkedVar, /* 257 */ + Tcl_UpVar, /* 258 */ + Tcl_UpVar2, /* 259 */ + Tcl_VarEval, /* 260 */ + Tcl_VarTraceInfo, /* 261 */ + Tcl_VarTraceInfo2, /* 262 */ + Tcl_Write, /* 263 */ + Tcl_WrongNumArgs, /* 264 */ + Tcl_DumpActiveMemory, /* 265 */ + Tcl_ValidateAllMemory, /* 266 */ + Tcl_AppendResultVA, /* 267 */ + Tcl_AppendStringsToObjVA, /* 268 */ + Tcl_HashStats, /* 269 */ + Tcl_ParseVar, /* 270 */ + Tcl_PkgPresent, /* 271 */ + Tcl_PkgPresentEx, /* 272 */ + Tcl_PkgProvide, /* 273 */ + Tcl_PkgRequire, /* 274 */ + Tcl_SetErrorCodeVA, /* 275 */ + Tcl_VarEvalVA, /* 276 */ + Tcl_WaitPid, /* 277 */ + panicVA, /* 278 */ + Tcl_AppendObjToObj, /* 279 */ + Tcl_AlertNotifier, /* 280 */ + Tcl_CreateEncoding, /* 281 */ + Tcl_CreateThreadExitHandler, /* 282 */ + Tcl_DeleteThreadExitHandler, /* 283 */ + Tcl_DiscardResult, /* 284 */ + Tcl_EvalEx, /* 285 */ + Tcl_EvalObjv, /* 286 */ + Tcl_EvalObjEx, /* 287 */ + Tcl_ExitThread, /* 288 */ + Tcl_ExternalToUtf, /* 289 */ + Tcl_ExternalToUtfDString, /* 290 */ + Tcl_FinalizeThread, /* 291 */ + Tcl_FinalizeNotifier, /* 292 */ + Tcl_FreeEncoding, /* 293 */ + Tcl_GetCurrentThread, /* 294 */ + Tcl_GetEncoding, /* 295 */ + Tcl_GetEncodingName, /* 296 */ + Tcl_GetEncodingNames, /* 297 */ + Tcl_GetIndexFromObjStruct, /* 298 */ + Tcl_GetThreadData, /* 299 */ + Tcl_GetVar2Ex, /* 300 */ + Tcl_InitNotifier, /* 301 */ + Tcl_MutexLock, /* 302 */ + Tcl_MutexUnlock, /* 303 */ + Tcl_ConditionNotify, /* 304 */ + Tcl_ConditionWait, /* 305 */ + Tcl_NumUtfChars, /* 306 */ + Tcl_ReadChars, /* 307 */ + Tcl_RestoreResult, /* 308 */ + Tcl_SaveResult, /* 309 */ + Tcl_SetSystemEncoding, /* 310 */ + Tcl_SetVar2Ex, /* 311 */ + Tcl_ThreadAlert, /* 312 */ + Tcl_ThreadQueueEvent, /* 313 */ + Tcl_UniCharAtIndex, /* 314 */ + Tcl_UniCharToLower, /* 315 */ + Tcl_UniCharToTitle, /* 316 */ + Tcl_UniCharToUpper, /* 317 */ + Tcl_UniCharToUtf, /* 318 */ + Tcl_UtfAtIndex, /* 319 */ + Tcl_UtfCharComplete, /* 320 */ + Tcl_UtfBackslash, /* 321 */ + Tcl_UtfFindFirst, /* 322 */ + Tcl_UtfFindLast, /* 323 */ + Tcl_UtfNext, /* 324 */ + Tcl_UtfPrev, /* 325 */ + Tcl_UtfToExternal, /* 326 */ + Tcl_UtfToExternalDString, /* 327 */ + Tcl_UtfToLower, /* 328 */ + Tcl_UtfToTitle, /* 329 */ + Tcl_UtfToUniChar, /* 330 */ + Tcl_UtfToUpper, /* 331 */ + Tcl_WriteChars, /* 332 */ + Tcl_WriteObj, /* 333 */ }; TclStubs *tclStubsPtr = &tclStubs; @@ -517,25 +542,15 @@ TclIntStubs tclIntStubs = { Tcl_PushCallFrame, /* 129 */ Tcl_RemoveInterpResolvers, /* 130 */ Tcl_SetNamespaceResolvers, /* 131 */ - NULL, /* 132 */ - NULL, /* 133 */ - NULL, /* 134 */ - NULL, /* 135 */ - NULL, /* 136 */ - NULL, /* 137 */ - NULL, /* 138 */ - NULL, /* 139 */ - NULL, /* 140 */ - NULL, /* 141 */ - TclpHasSockets, /* 142 */ - TclpGetDate, /* 143 */ - TclpStrftime, /* 144 */ - TclpCheckStackSpace, /* 145 */ - Tcl_GetString, /* 146 */ - TclpChdir, /* 147 */ - TclGetEnv, /* 148 */ - TclpLoadFile, /* 149 */ - TclLooksLikeInt, /* 150 */ + TclpHasSockets, /* 132 */ + TclpGetDate, /* 133 */ + TclpStrftime, /* 134 */ + TclpCheckStackSpace, /* 135 */ + Tcl_GetString, /* 136 */ + TclpChdir, /* 137 */ + TclGetEnv, /* 138 */ + TclpLoadFile, /* 139 */ + TclLooksLikeInt, /* 140 */ }; TclIntStubs *tclIntStubsPtr = &tclIntStubs; @@ -543,6 +558,18 @@ TclIntStubs *tclIntStubsPtr = &tclIntStubs; TclIntPlatStubs tclIntPlatStubs = { TCL_STUB_MAGIC, NULL, +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + TclGetAndDetachPids, /* 0 */ + TclpCloseFile, /* 1 */ + TclpCreateCommandChannel, /* 2 */ + TclpCreatePipe, /* 3 */ + TclpCreateProcess, /* 4 */ + NULL, /* 5 */ + TclpMakeFile, /* 6 */ + TclpOpenFile, /* 7 */ + TclUnixWaitForFile, /* 8 */ + TclpCreateTempFile, /* 9 */ +#endif /* UNIX */ #ifdef __WIN32__ TclWinConvertError, /* 0 */ TclWinConvertWSAError, /* 1 */ @@ -566,19 +593,10 @@ TclIntPlatStubs tclIntPlatStubs = { TclpOpenFile, /* 19 */ TclpCreateTempFile, /* 20 */ TclpGetTZName, /* 21 */ + TclWinNoBackslash, /* 22 */ + Tcl_WinUtfToTChar, /* 23 */ + Tcl_WinTCharToUtf, /* 24 */ #endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) - TclGetAndDetachPids, /* 0 */ - TclpCloseFile, /* 1 */ - TclpCreateCommandChannel, /* 2 */ - TclpCreatePipe, /* 3 */ - TclpCreateProcess, /* 4 */ - NULL, /* 5 */ - TclpMakeFile, /* 6 */ - TclpOpenFile, /* 7 */ - TclUnixWaitForFile, /* 8 */ - TclpCreateTempFile, /* 9 */ -#endif /* UNIX */ #ifdef MAC_TCL TclpSysAlloc, /* 0 */ TclpSysFree, /* 1 */ @@ -614,11 +632,6 @@ TclIntPlatStubs *tclIntPlatStubsPtr = &tclIntPlatStubs; TclPlatStubs tclPlatStubs = { TCL_STUB_MAGIC, NULL, -#if !defined(__WIN32__) && !defined(MAC_TCL) - Tcl_CreateFileHandler, /* 0 */ - Tcl_DeleteFileHandler, /* 1 */ - Tcl_GetOpenFile, /* 2 */ -#endif /* UNIX */ #ifdef MAC_TCL Tcl_MacSetEventProc, /* 0 */ Tcl_MacConvertTextResource, /* 1 */ diff --git a/generic/tclStubs.c b/generic/tclStubs.c index a1884c0..740c9ad 100644 --- a/generic/tclStubs.c +++ b/generic/tclStubs.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubs.c,v 1.2.4.1 1999/03/08 20:14:12 stanton Exp $ + * RCS: @(#) $Id: tclStubs.c,v 1.2.4.2 1999/03/10 06:41:52 stanton Exp $ */ #include "tcl.h" @@ -52,113 +52,695 @@ */ /* Slot 0 */ +int +Tcl_PkgProvideEx(interp, name, version, clientData) + Tcl_Interp * interp; + char * name; + char * version; + ClientData clientData; +{ + return (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData); +} + +/* Slot 1 */ +char * +Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) + Tcl_Interp * interp; + char * name; + char * version; + int exact; + ClientData * clientDataPtr; +{ + return (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr); +} + +/* Slot 2 */ void -Tcl_AddErrorInfo(interp, message) +panic TCL_VARARGS_DEF(char *,format) +{ + char * var; + va_list argList; + + var = (char *) TCL_VARARGS_START(char *,format,argList); + + (tclStubsPtr->panicVA)(var, argList); + va_end(argList); +} + +/* Slot 3 */ +char * +Tcl_Alloc(size) + unsigned int size; +{ + return (tclStubsPtr->tcl_Alloc)(size); +} + +/* Slot 4 */ +void +Tcl_Free(ptr) + char * ptr; +{ + (tclStubsPtr->tcl_Free)(ptr); +} + +/* Slot 5 */ +char * +Tcl_Realloc(ptr, size) + char * ptr; + unsigned int size; +{ + return (tclStubsPtr->tcl_Realloc)(ptr, size); +} + +/* Slot 6 */ +char * +Tcl_DbCkalloc(size, file, line) + unsigned int size; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkalloc)(size, file, line); +} + +/* Slot 7 */ +int +Tcl_DbCkfree(ptr, file, line) + char * ptr; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkfree)(ptr, file, line); +} + +/* Slot 8 */ +char * +Tcl_DbCkrealloc(ptr, size, file, line) + char * ptr; + unsigned int size; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line); +} + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 9 */ +void +Tcl_CreateFileHandler(fd, mask, proc, clientData) + int fd; + int mask; + Tcl_FileProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData); +} + +#endif /* UNIX */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 10 */ +void +Tcl_DeleteFileHandler(fd) + int fd; +{ + (tclStubsPtr->tcl_DeleteFileHandler)(fd); +} + +#endif /* UNIX */ +/* Slot 11 */ +void +Tcl_SetTimer(timePtr) + Tcl_Time * timePtr; +{ + (tclStubsPtr->tcl_SetTimer)(timePtr); +} + +/* Slot 12 */ +void +Tcl_Sleep(ms) + int ms; +{ + (tclStubsPtr->tcl_Sleep)(ms); +} + +/* Slot 13 */ +int +Tcl_WaitForEvent(timePtr) + Tcl_Time * timePtr; +{ + return (tclStubsPtr->tcl_WaitForEvent)(timePtr); +} + +/* Slot 14 */ +int +Tcl_AppendAllObjTypes(interp, objPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr); +} + +/* Slot 15 */ +void +Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,objPtr) +{ + Tcl_Obj * var; + va_list argList; + + var = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList); + + (tclStubsPtr->tcl_AppendStringsToObjVA)(var, argList); + va_end(argList); +} + +/* Slot 16 */ +void +Tcl_AppendToObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + char * bytes; + int length; +{ + (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length); +} + +/* Slot 17 */ +Tcl_Obj * +Tcl_ConcatObj(objc, objv) + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_ConcatObj)(objc, objv); +} + +/* Slot 18 */ +int +Tcl_ConvertToType(interp, objPtr, typePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + Tcl_ObjType * typePtr; +{ + return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr); +} + +/* Slot 19 */ +void +Tcl_DbDecrRefCount(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line); +} + +/* Slot 20 */ +void +Tcl_DbIncrRefCount(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line); +} + +/* Slot 21 */ +int +Tcl_DbIsShared(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line); +} + +/* Slot 22 */ +Tcl_Obj * +Tcl_DbNewBooleanObj(boolValue, file, line) + int boolValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line); +} + +/* Slot 23 */ +Tcl_Obj * +Tcl_DbNewByteArrayObj(bytes, length, file, line) + unsigned char * bytes; + int length; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line); +} + +/* Slot 24 */ +Tcl_Obj * +Tcl_DbNewDoubleObj(doubleValue, file, line) + double doubleValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line); +} + +/* Slot 25 */ +Tcl_Obj * +Tcl_DbNewListObj(objc, objv, file, line) + int objc; + Tcl_Obj *CONST objv[]; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line); +} + +/* Slot 26 */ +Tcl_Obj * +Tcl_DbNewLongObj(longValue, file, line) + long longValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line); +} + +/* Slot 27 */ +Tcl_Obj * +Tcl_DbNewObj(file, line) + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewObj)(file, line); +} + +/* Slot 28 */ +Tcl_Obj * +Tcl_DbNewStringObj(bytes, length, file, line) + CONST char * bytes; + int length; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line); +} + +/* Slot 29 */ +Tcl_Obj * +Tcl_DuplicateObj(objPtr) + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_DuplicateObj)(objPtr); +} + +/* Slot 30 */ +void +TclFreeObj(objPtr) + Tcl_Obj * objPtr; +{ + (tclStubsPtr->tclFreeObj)(objPtr); +} + +/* Slot 31 */ +int +Tcl_GetBoolean(interp, string, boolPtr) + Tcl_Interp * interp; + char * string; + int * boolPtr; +{ + return (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr); +} + +/* Slot 32 */ +int +Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * boolPtr; +{ + return (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr); +} + +/* Slot 33 */ +unsigned char * +Tcl_GetByteArrayFromObj(objPtr, lengthPtr) + Tcl_Obj * objPtr; + int * lengthPtr; +{ + return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr); +} + +/* Slot 34 */ +int +Tcl_GetDouble(interp, string, doublePtr) + Tcl_Interp * interp; + char * string; + double * doublePtr; +{ + return (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr); +} + +/* Slot 35 */ +int +Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + double * doublePtr; +{ + return (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr); +} + +/* Slot 36 */ +int +Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + char ** tablePtr; + char * msg; + int flags; + int * indexPtr; +{ + return (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr); +} + +/* Slot 37 */ +int +Tcl_GetInt(interp, string, intPtr) + Tcl_Interp * interp; + char * string; + int * intPtr; +{ + return (tclStubsPtr->tcl_GetInt)(interp, string, intPtr); +} + +/* Slot 38 */ +int +Tcl_GetIntFromObj(interp, objPtr, intPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * intPtr; +{ + return (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr); +} + +/* Slot 39 */ +int +Tcl_GetLongFromObj(interp, objPtr, longPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + long * longPtr; +{ + return (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr); +} + +/* Slot 40 */ +Tcl_ObjType * +Tcl_GetObjType(typeName) + char * typeName; +{ + return (tclStubsPtr->tcl_GetObjType)(typeName); +} + +/* Slot 41 */ +char * +Tcl_GetStringFromObj(objPtr, lengthPtr) + Tcl_Obj * objPtr; + int * lengthPtr; +{ + return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr); +} + +/* Slot 42 */ +void +Tcl_InvalidateStringRep(objPtr) + Tcl_Obj * objPtr; +{ + (tclStubsPtr->tcl_InvalidateStringRep)(objPtr); +} + +/* Slot 43 */ +int +Tcl_ListObjAppendList(interp, listPtr, elemListPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + Tcl_Obj * elemListPtr; +{ + return (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr); +} + +/* Slot 44 */ +int +Tcl_ListObjAppendElement(interp, listPtr, objPtr) Tcl_Interp * interp; - CONST char * message; + Tcl_Obj * listPtr; + Tcl_Obj * objPtr; { - (tclStubsPtr->tcl_AddErrorInfo)(interp, message); + return (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr); } -/* Slot 1 */ -void -Tcl_AddObjErrorInfo(interp, message, length) +/* Slot 45 */ +int +Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) Tcl_Interp * interp; - CONST char * message; - int length; + Tcl_Obj * listPtr; + int * objcPtr; + Tcl_Obj *** objvPtr; { - (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length); + return (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr); } -/* Slot 2 */ -char * -Tcl_Alloc(size) - unsigned int size; +/* Slot 46 */ +int +Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int index; + Tcl_Obj ** objPtrPtr; { - return (tclStubsPtr->tcl_Alloc)(size); + return (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr); } -/* Slot 3 */ -void -Tcl_AllowExceptions(interp) +/* Slot 47 */ +int +Tcl_ListObjLength(interp, listPtr, intPtr) Tcl_Interp * interp; + Tcl_Obj * listPtr; + int * intPtr; { - (tclStubsPtr->tcl_AllowExceptions)(interp); + return (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr); } -/* Slot 4 */ +/* Slot 48 */ int -Tcl_AppendAllObjTypes(interp, objPtr) +Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) Tcl_Interp * interp; + Tcl_Obj * listPtr; + int first; + int count; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv); +} + +/* Slot 49 */ +Tcl_Obj * +Tcl_NewBooleanObj(boolValue) + int boolValue; +{ + return (tclStubsPtr->tcl_NewBooleanObj)(boolValue); +} + +/* Slot 50 */ +Tcl_Obj * +Tcl_NewByteArrayObj(bytes, length) + unsigned char * bytes; + int length; +{ + return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length); +} + +/* Slot 51 */ +Tcl_Obj * +Tcl_NewDoubleObj(doubleValue) + double doubleValue; +{ + return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue); +} + +/* Slot 52 */ +Tcl_Obj * +Tcl_NewIntObj(intValue) + int intValue; +{ + return (tclStubsPtr->tcl_NewIntObj)(intValue); +} + +/* Slot 53 */ +Tcl_Obj * +Tcl_NewListObj(objc, objv) + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_NewListObj)(objc, objv); +} + +/* Slot 54 */ +Tcl_Obj * +Tcl_NewLongObj(longValue) + long longValue; +{ + return (tclStubsPtr->tcl_NewLongObj)(longValue); +} + +/* Slot 55 */ +Tcl_Obj * +Tcl_NewObj() +{ + return (tclStubsPtr->tcl_NewObj)(); +} + +/* Slot 56 */ +Tcl_Obj * +Tcl_NewStringObj(bytes, length) + CONST char * bytes; + int length; +{ + return (tclStubsPtr->tcl_NewStringObj)(bytes, length); +} + +/* Slot 57 */ +void +Tcl_SetBooleanObj(objPtr, boolValue) Tcl_Obj * objPtr; + int boolValue; { - return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr); + (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue); } -/* Slot 5 */ +/* Slot 58 */ +unsigned char * +Tcl_SetByteArrayLength(objPtr, length) + Tcl_Obj * objPtr; + int length; +{ + return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length); +} + +/* Slot 59 */ void -Tcl_AppendElement(interp, str) - Tcl_Interp * interp; - CONST char * str; +Tcl_SetByteArrayObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + unsigned char * bytes; + int length; { - (tclStubsPtr->tcl_AppendElement)(interp, str); + (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length); } -/* Slot 6 */ +/* Slot 60 */ void -Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,interp) +Tcl_SetDoubleObj(objPtr, doubleValue) + Tcl_Obj * objPtr; + double doubleValue; { - Tcl_Interp * var; - va_list argList; + (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue); +} - var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); +/* Slot 61 */ +void +Tcl_SetIntObj(objPtr, intValue) + Tcl_Obj * objPtr; + int intValue; +{ + (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue); +} - (tclStubsPtr->tcl_AppendResultVA)(var, argList); - va_end(argList); +/* Slot 62 */ +void +Tcl_SetListObj(objPtr, objc, objv) + Tcl_Obj * objPtr; + int objc; + Tcl_Obj *CONST objv[]; +{ + (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv); } -/* Slot 7 */ +/* Slot 63 */ void -Tcl_AppendResultVA(interp, argList) - Tcl_Interp * interp; - va_list argList; +Tcl_SetLongObj(objPtr, longValue) + Tcl_Obj * objPtr; + long longValue; { - (tclStubsPtr->tcl_AppendResultVA)(interp, argList); + (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue); } -/* Slot 8 */ +/* Slot 64 */ void -Tcl_AppendToObj(objPtr, bytes, length) +Tcl_SetObjLength(objPtr, length) + Tcl_Obj * objPtr; + int length; +{ + (tclStubsPtr->tcl_SetObjLength)(objPtr, length); +} + +/* Slot 65 */ +void +Tcl_SetStringObj(objPtr, bytes, length) Tcl_Obj * objPtr; char * bytes; int length; { - (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length); + (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length); } -/* Slot 9 */ +/* Slot 66 */ void -Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,objPtr) +Tcl_AddErrorInfo(interp, message) + Tcl_Interp * interp; + CONST char * message; { - Tcl_Obj * var; - va_list argList; + (tclStubsPtr->tcl_AddErrorInfo)(interp, message); +} - var = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList); +/* Slot 67 */ +void +Tcl_AddObjErrorInfo(interp, message, length) + Tcl_Interp * interp; + CONST char * message; + int length; +{ + (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length); +} - (tclStubsPtr->tcl_AppendStringsToObjVA)(var, argList); - va_end(argList); +/* Slot 68 */ +void +Tcl_AllowExceptions(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_AllowExceptions)(interp); } -/* Slot 10 */ +/* Slot 69 */ void -Tcl_AppendStringsToObjVA(objPtr, argList) - Tcl_Obj * objPtr; - va_list argList; +Tcl_AppendElement(interp, string) + Tcl_Interp * interp; + CONST char * string; { - (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList); + (tclStubsPtr->tcl_AppendElement)(interp, string); } -/* Slot 11 */ +/* Slot 70 */ +void +Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,interp) +{ + Tcl_Interp * var; + va_list argList; + + var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); + + (tclStubsPtr->tcl_AppendResultVA)(var, argList); + va_end(argList); +} + +/* Slot 71 */ Tcl_AsyncHandler Tcl_AsyncCreate(proc, clientData) Tcl_AsyncProc * proc; @@ -167,7 +749,7 @@ Tcl_AsyncCreate(proc, clientData) return (tclStubsPtr->tcl_AsyncCreate)(proc, clientData); } -/* Slot 12 */ +/* Slot 72 */ void Tcl_AsyncDelete(async) Tcl_AsyncHandler async; @@ -175,7 +757,7 @@ Tcl_AsyncDelete(async) (tclStubsPtr->tcl_AsyncDelete)(async); } -/* Slot 13 */ +/* Slot 73 */ int Tcl_AsyncInvoke(interp, code) Tcl_Interp * interp; @@ -184,7 +766,7 @@ Tcl_AsyncInvoke(interp, code) return (tclStubsPtr->tcl_AsyncInvoke)(interp, code); } -/* Slot 14 */ +/* Slot 74 */ void Tcl_AsyncMark(async) Tcl_AsyncHandler async; @@ -192,14 +774,14 @@ Tcl_AsyncMark(async) (tclStubsPtr->tcl_AsyncMark)(async); } -/* Slot 15 */ +/* Slot 75 */ int Tcl_AsyncReady() { return (tclStubsPtr->tcl_AsyncReady)(); } -/* Slot 16 */ +/* Slot 76 */ void Tcl_BackgroundError(interp) Tcl_Interp * interp; @@ -207,7 +789,7 @@ Tcl_BackgroundError(interp) (tclStubsPtr->tcl_BackgroundError)(interp); } -/* Slot 17 */ +/* Slot 77 */ char Tcl_Backslash(src, readPtr) CONST char * src; @@ -216,7 +798,7 @@ Tcl_Backslash(src, readPtr) return (tclStubsPtr->tcl_Backslash)(src, readPtr); } -/* Slot 18 */ +/* Slot 78 */ int Tcl_BadChannelOption(interp, optionName, optionList) Tcl_Interp * interp; @@ -226,7 +808,7 @@ Tcl_BadChannelOption(interp, optionName, optionList) return (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList); } -/* Slot 19 */ +/* Slot 79 */ void Tcl_CallWhenDeleted(interp, proc, clientData) Tcl_Interp * interp; @@ -236,7 +818,7 @@ Tcl_CallWhenDeleted(interp, proc, clientData) (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData); } -/* Slot 20 */ +/* Slot 80 */ void Tcl_CancelIdleCall(idleProc, clientData) Tcl_IdleProc * idleProc; @@ -245,7 +827,7 @@ Tcl_CancelIdleCall(idleProc, clientData) (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData); } -/* Slot 21 */ +/* Slot 81 */ int Tcl_Close(interp, chan) Tcl_Interp * interp; @@ -254,7 +836,7 @@ Tcl_Close(interp, chan) return (tclStubsPtr->tcl_Close)(interp, chan); } -/* Slot 22 */ +/* Slot 82 */ int Tcl_CommandComplete(cmd) char * cmd; @@ -262,7 +844,7 @@ Tcl_CommandComplete(cmd) return (tclStubsPtr->tcl_CommandComplete)(cmd); } -/* Slot 23 */ +/* Slot 83 */ char * Tcl_Concat(argc, argv) int argc; @@ -271,47 +853,28 @@ Tcl_Concat(argc, argv) return (tclStubsPtr->tcl_Concat)(argc, argv); } -/* Slot 24 */ -Tcl_Obj * -Tcl_ConcatObj(objc, objv) - int objc; - Tcl_Obj *CONST objv[]; -{ - return (tclStubsPtr->tcl_ConcatObj)(objc, objv); -} - -/* Slot 25 */ +/* Slot 84 */ int -Tcl_ConvertCountedElement(src, length, dst, flags) +Tcl_ConvertElement(src, dst, flags) CONST char * src; - int length; char * dst; int flags; { - return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags); + return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags); } -/* Slot 26 */ +/* Slot 85 */ int -Tcl_ConvertElement(src, dst, flags) +Tcl_ConvertCountedElement(src, length, dst, flags) CONST char * src; + int length; char * dst; int flags; { - return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags); -} - -/* Slot 27 */ -int -Tcl_ConvertToType(interp, objPtr, typePtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - Tcl_ObjType * typePtr; -{ - return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr); + return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags); } -/* Slot 28 */ +/* Slot 86 */ int Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) Tcl_Interp * slave; @@ -324,7 +887,7 @@ Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) return (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv); } -/* Slot 29 */ +/* Slot 87 */ int Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) Tcl_Interp * slave; @@ -337,7 +900,7 @@ Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) return (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv); } -/* Slot 30 */ +/* Slot 88 */ Tcl_Channel Tcl_CreateChannel(typePtr, chanName, instanceData, mask) Tcl_ChannelType * typePtr; @@ -348,7 +911,7 @@ Tcl_CreateChannel(typePtr, chanName, instanceData, mask) return (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask); } -/* Slot 31 */ +/* Slot 89 */ void Tcl_CreateChannelHandler(chan, mask, proc, clientData) Tcl_Channel chan; @@ -359,7 +922,7 @@ Tcl_CreateChannelHandler(chan, mask, proc, clientData) (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData); } -/* Slot 32 */ +/* Slot 90 */ void Tcl_CreateCloseHandler(chan, proc, clientData) Tcl_Channel chan; @@ -369,7 +932,7 @@ Tcl_CreateCloseHandler(chan, proc, clientData) (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData); } -/* Slot 33 */ +/* Slot 91 */ Tcl_Command Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) Tcl_Interp * interp; @@ -381,7 +944,7 @@ Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) return (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc); } -/* Slot 34 */ +/* Slot 92 */ void Tcl_CreateEventSource(setupProc, checkProc, clientData) Tcl_EventSetupProc * setupProc; @@ -391,7 +954,7 @@ Tcl_CreateEventSource(setupProc, checkProc, clientData) (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData); } -/* Slot 35 */ +/* Slot 93 */ void Tcl_CreateExitHandler(proc, clientData) Tcl_ExitProc * proc; @@ -400,14 +963,14 @@ Tcl_CreateExitHandler(proc, clientData) (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData); } -/* Slot 36 */ +/* Slot 94 */ Tcl_Interp * Tcl_CreateInterp() { return (tclStubsPtr->tcl_CreateInterp)(); } -/* Slot 37 */ +/* Slot 95 */ void Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) Tcl_Interp * interp; @@ -420,7 +983,7 @@ Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData); } -/* Slot 38 */ +/* Slot 96 */ Tcl_Command Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) Tcl_Interp * interp; @@ -432,7 +995,7 @@ Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) return (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc); } -/* Slot 39 */ +/* Slot 97 */ Tcl_Interp * Tcl_CreateSlave(interp, slaveName, isSafe) Tcl_Interp * interp; @@ -442,7 +1005,7 @@ Tcl_CreateSlave(interp, slaveName, isSafe) return (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe); } -/* Slot 40 */ +/* Slot 98 */ Tcl_TimerToken Tcl_CreateTimerHandler(milliseconds, proc, clientData) int milliseconds; @@ -452,7 +1015,7 @@ Tcl_CreateTimerHandler(milliseconds, proc, clientData) return (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData); } -/* Slot 41 */ +/* Slot 99 */ Tcl_Trace Tcl_CreateTrace(interp, level, proc, clientData) Tcl_Interp * interp; @@ -463,149 +1026,36 @@ Tcl_CreateTrace(interp, level, proc, clientData) return (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData); } -/* Slot 42 */ -char * -Tcl_DbCkalloc(size, file, line) - unsigned int size; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbCkalloc)(size, file, line); -} - -/* Slot 43 */ -int -Tcl_DbCkfree(ptr, file, line) - char * ptr; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbCkfree)(ptr, file, line); -} - -/* Slot 44 */ -char * -Tcl_DbCkrealloc(ptr, size, file, line) - char * ptr; - unsigned int size; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line); -} - -/* Slot 45 */ +/* Slot 100 */ void -Tcl_DbDecrRefCount(objPtr, file, line) - Tcl_Obj * objPtr; - char * file; - int line; +Tcl_DeleteAssocData(interp, name) + Tcl_Interp * interp; + char * name; { - (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line); + (tclStubsPtr->tcl_DeleteAssocData)(interp, name); } -/* Slot 46 */ +/* Slot 101 */ void -Tcl_DbIncrRefCount(objPtr, file, line) - Tcl_Obj * objPtr; - char * file; - int line; -{ - (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line); -} - -/* Slot 47 */ -int -Tcl_DbIsShared(objPtr, file, line) - Tcl_Obj * objPtr; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line); -} - -/* Slot 48 */ -Tcl_Obj * -Tcl_DbNewBooleanObj(boolValue, file, line) - int boolValue; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line); -} - -/* Slot 49 */ -Tcl_Obj * -Tcl_DbNewByteArrayObj(bytes, length, file, line) - unsigned char * bytes; - int length; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line); -} - -/* Slot 50 */ -Tcl_Obj * -Tcl_DbNewDoubleObj(doubleValue, file, line) - double doubleValue; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line); -} - -/* Slot 51 */ -Tcl_Obj * -Tcl_DbNewListObj(objc, objv, file, line) - int objc; - Tcl_Obj *CONST objv[]; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line); -} - -/* Slot 52 */ -Tcl_Obj * -Tcl_DbNewLongObj(longValue, file, line) - long longValue; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line); -} - -/* Slot 53 */ -Tcl_Obj * -Tcl_DbNewObj(file, line) - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewObj)(file, line); -} - -/* Slot 54 */ -Tcl_Obj * -Tcl_DbNewStringObj(bytes, length, file, line) - CONST char * bytes; - int length; - char * file; - int line; +Tcl_DeleteChannelHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_ChannelProc * proc; + ClientData clientData; { - return (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line); + (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData); } -/* Slot 55 */ +/* Slot 102 */ void -Tcl_DeleteAssocData(interp, name) - Tcl_Interp * interp; - char * name; +Tcl_DeleteCloseHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_CloseProc * proc; + ClientData clientData; { - (tclStubsPtr->tcl_DeleteAssocData)(interp, name); + (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData); } -/* Slot 56 */ +/* Slot 103 */ int Tcl_DeleteCommand(interp, cmdName) Tcl_Interp * interp; @@ -614,7 +1064,7 @@ Tcl_DeleteCommand(interp, cmdName) return (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName); } -/* Slot 57 */ +/* Slot 104 */ int Tcl_DeleteCommandFromToken(interp, command) Tcl_Interp * interp; @@ -623,27 +1073,7 @@ Tcl_DeleteCommandFromToken(interp, command) return (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command); } -/* Slot 58 */ -void -Tcl_DeleteChannelHandler(chan, proc, clientData) - Tcl_Channel chan; - Tcl_ChannelProc * proc; - ClientData clientData; -{ - (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData); -} - -/* Slot 59 */ -void -Tcl_DeleteCloseHandler(chan, proc, clientData) - Tcl_Channel chan; - Tcl_CloseProc * proc; - ClientData clientData; -{ - (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData); -} - -/* Slot 60 */ +/* Slot 105 */ void Tcl_DeleteEvents(proc, clientData) Tcl_EventDeleteProc * proc; @@ -652,7 +1082,7 @@ Tcl_DeleteEvents(proc, clientData) (tclStubsPtr->tcl_DeleteEvents)(proc, clientData); } -/* Slot 61 */ +/* Slot 106 */ void Tcl_DeleteEventSource(setupProc, checkProc, clientData) Tcl_EventSetupProc * setupProc; @@ -662,7 +1092,7 @@ Tcl_DeleteEventSource(setupProc, checkProc, clientData) (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData); } -/* Slot 62 */ +/* Slot 107 */ void Tcl_DeleteExitHandler(proc, clientData) Tcl_ExitProc * proc; @@ -671,7 +1101,7 @@ Tcl_DeleteExitHandler(proc, clientData) (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData); } -/* Slot 63 */ +/* Slot 108 */ void Tcl_DeleteHashEntry(entryPtr) Tcl_HashEntry * entryPtr; @@ -679,7 +1109,7 @@ Tcl_DeleteHashEntry(entryPtr) (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr); } -/* Slot 64 */ +/* Slot 109 */ void Tcl_DeleteHashTable(tablePtr) Tcl_HashTable * tablePtr; @@ -687,7 +1117,7 @@ Tcl_DeleteHashTable(tablePtr) (tclStubsPtr->tcl_DeleteHashTable)(tablePtr); } -/* Slot 65 */ +/* Slot 110 */ void Tcl_DeleteInterp(interp) Tcl_Interp * interp; @@ -695,7 +1125,16 @@ Tcl_DeleteInterp(interp) (tclStubsPtr->tcl_DeleteInterp)(interp); } -/* Slot 66 */ +/* Slot 111 */ +void +Tcl_DetachPids(numPids, pidPtr) + int numPids; + Tcl_Pid * pidPtr; +{ + (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr); +} + +/* Slot 112 */ void Tcl_DeleteTimerHandler(token) Tcl_TimerToken token; @@ -703,7 +1142,7 @@ Tcl_DeleteTimerHandler(token) (tclStubsPtr->tcl_DeleteTimerHandler)(token); } -/* Slot 67 */ +/* Slot 113 */ void Tcl_DeleteTrace(interp, trace) Tcl_Interp * interp; @@ -712,16 +1151,7 @@ Tcl_DeleteTrace(interp, trace) (tclStubsPtr->tcl_DeleteTrace)(interp, trace); } -/* Slot 68 */ -void -Tcl_DetachPids(numPids, pidPtr) - int numPids; - Tcl_Pid * pidPtr; -{ - (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr); -} - -/* Slot 69 */ +/* Slot 114 */ void Tcl_DontCallWhenDeleted(interp, proc, clientData) Tcl_Interp * interp; @@ -731,7 +1161,7 @@ Tcl_DontCallWhenDeleted(interp, proc, clientData) (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData); } -/* Slot 70 */ +/* Slot 115 */ int Tcl_DoOneEvent(flags) int flags; @@ -739,7 +1169,7 @@ Tcl_DoOneEvent(flags) return (tclStubsPtr->tcl_DoOneEvent)(flags); } -/* Slot 71 */ +/* Slot 116 */ void Tcl_DoWhenIdle(proc, clientData) Tcl_IdleProc * proc; @@ -748,26 +1178,26 @@ Tcl_DoWhenIdle(proc, clientData) (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData); } -/* Slot 72 */ +/* Slot 117 */ char * -Tcl_DStringAppend(dsPtr, str, length) +Tcl_DStringAppend(dsPtr, string, length) Tcl_DString * dsPtr; - CONST char * str; + CONST char * string; int length; { - return (tclStubsPtr->tcl_DStringAppend)(dsPtr, str, length); + return (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length); } -/* Slot 73 */ +/* Slot 118 */ char * -Tcl_DStringAppendElement(dsPtr, str) +Tcl_DStringAppendElement(dsPtr, string) Tcl_DString * dsPtr; - CONST char * str; + CONST char * string; { - return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, str); + return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string); } -/* Slot 74 */ +/* Slot 119 */ void Tcl_DStringEndSublist(dsPtr) Tcl_DString * dsPtr; @@ -775,7 +1205,7 @@ Tcl_DStringEndSublist(dsPtr) (tclStubsPtr->tcl_DStringEndSublist)(dsPtr); } -/* Slot 75 */ +/* Slot 120 */ void Tcl_DStringFree(dsPtr) Tcl_DString * dsPtr; @@ -783,7 +1213,7 @@ Tcl_DStringFree(dsPtr) (tclStubsPtr->tcl_DStringFree)(dsPtr); } -/* Slot 76 */ +/* Slot 121 */ void Tcl_DStringGetResult(interp, dsPtr) Tcl_Interp * interp; @@ -792,7 +1222,7 @@ Tcl_DStringGetResult(interp, dsPtr) (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr); } -/* Slot 77 */ +/* Slot 122 */ void Tcl_DStringInit(dsPtr) Tcl_DString * dsPtr; @@ -800,7 +1230,7 @@ Tcl_DStringInit(dsPtr) (tclStubsPtr->tcl_DStringInit)(dsPtr); } -/* Slot 78 */ +/* Slot 123 */ void Tcl_DStringResult(interp, dsPtr) Tcl_Interp * interp; @@ -809,7 +1239,7 @@ Tcl_DStringResult(interp, dsPtr) (tclStubsPtr->tcl_DStringResult)(interp, dsPtr); } -/* Slot 79 */ +/* Slot 124 */ void Tcl_DStringSetLength(dsPtr, length) Tcl_DString * dsPtr; @@ -818,7 +1248,7 @@ Tcl_DStringSetLength(dsPtr, length) (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length); } -/* Slot 80 */ +/* Slot 125 */ void Tcl_DStringStartSublist(dsPtr) Tcl_DString * dsPtr; @@ -826,23 +1256,7 @@ Tcl_DStringStartSublist(dsPtr) (tclStubsPtr->tcl_DStringStartSublist)(dsPtr); } -/* Slot 81 */ -int -Tcl_DumpActiveMemory(fileName) - char * fileName; -{ - return (tclStubsPtr->tcl_DumpActiveMemory)(fileName); -} - -/* Slot 82 */ -Tcl_Obj * -Tcl_DuplicateObj(objPtr) - Tcl_Obj * objPtr; -{ - return (tclStubsPtr->tcl_DuplicateObj)(objPtr); -} - -/* Slot 83 */ +/* Slot 126 */ int Tcl_Eof(chan) Tcl_Channel chan; @@ -850,14 +1264,14 @@ Tcl_Eof(chan) return (tclStubsPtr->tcl_Eof)(chan); } -/* Slot 84 */ +/* Slot 127 */ char * Tcl_ErrnoId() { return (tclStubsPtr->tcl_ErrnoId)(); } -/* Slot 85 */ +/* Slot 128 */ char * Tcl_ErrnoMsg(err) int err; @@ -865,16 +1279,16 @@ Tcl_ErrnoMsg(err) return (tclStubsPtr->tcl_ErrnoMsg)(err); } -/* Slot 86 */ +/* Slot 129 */ int -Tcl_Eval(interp, str) +Tcl_Eval(interp, string) Tcl_Interp * interp; - char * str; + char * string; { - return (tclStubsPtr->tcl_Eval)(interp, str); + return (tclStubsPtr->tcl_Eval)(interp, string); } -/* Slot 87 */ +/* Slot 130 */ int Tcl_EvalFile(interp, fileName) Tcl_Interp * interp; @@ -883,16 +1297,7 @@ Tcl_EvalFile(interp, fileName) return (tclStubsPtr->tcl_EvalFile)(interp, fileName); } -/* Slot 88 */ -void -Tcl_EventuallyFree(clientData, freeProc) - ClientData clientData; - Tcl_FreeProc * freeProc; -{ - (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc); -} - -/* Slot 89 */ +/* Slot 131 */ int Tcl_EvalObj(interp, objPtr) Tcl_Interp * interp; @@ -901,7 +1306,16 @@ Tcl_EvalObj(interp, objPtr) return (tclStubsPtr->tcl_EvalObj)(interp, objPtr); } -/* Slot 90 */ +/* Slot 132 */ +void +Tcl_EventuallyFree(clientData, freeProc) + ClientData clientData; + Tcl_FreeProc * freeProc; +{ + (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc); +} + +/* Slot 133 */ void Tcl_Exit(status) int status; @@ -909,7 +1323,7 @@ Tcl_Exit(status) (tclStubsPtr->tcl_Exit)(status); } -/* Slot 91 */ +/* Slot 134 */ int Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) Tcl_Interp * interp; @@ -919,17 +1333,17 @@ Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) return (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName); } -/* Slot 92 */ +/* Slot 135 */ int -Tcl_ExprBoolean(interp, str, ptr) +Tcl_ExprBoolean(interp, string, ptr) Tcl_Interp * interp; - char * str; + char * string; int * ptr; { - return (tclStubsPtr->tcl_ExprBoolean)(interp, str, ptr); + return (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr); } -/* Slot 93 */ +/* Slot 136 */ int Tcl_ExprBooleanObj(interp, objPtr, ptr) Tcl_Interp * interp; @@ -939,17 +1353,17 @@ Tcl_ExprBooleanObj(interp, objPtr, ptr) return (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr); } -/* Slot 94 */ +/* Slot 137 */ int -Tcl_ExprDouble(interp, str, ptr) +Tcl_ExprDouble(interp, string, ptr) Tcl_Interp * interp; - char * str; + char * string; double * ptr; { - return (tclStubsPtr->tcl_ExprDouble)(interp, str, ptr); + return (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr); } -/* Slot 95 */ +/* Slot 138 */ int Tcl_ExprDoubleObj(interp, objPtr, ptr) Tcl_Interp * interp; @@ -959,17 +1373,17 @@ Tcl_ExprDoubleObj(interp, objPtr, ptr) return (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr); } -/* Slot 96 */ +/* Slot 139 */ int -Tcl_ExprLong(interp, str, ptr) +Tcl_ExprLong(interp, string, ptr) Tcl_Interp * interp; - char * str; + char * string; long * ptr; { - return (tclStubsPtr->tcl_ExprLong)(interp, str, ptr); + return (tclStubsPtr->tcl_ExprLong)(interp, string, ptr); } -/* Slot 97 */ +/* Slot 140 */ int Tcl_ExprLongObj(interp, objPtr, ptr) Tcl_Interp * interp; @@ -979,7 +1393,7 @@ Tcl_ExprLongObj(interp, objPtr, ptr) return (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr); } -/* Slot 98 */ +/* Slot 141 */ int Tcl_ExprObj(interp, objPtr, resultPtrPtr) Tcl_Interp * interp; @@ -989,23 +1403,23 @@ Tcl_ExprObj(interp, objPtr, resultPtrPtr) return (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr); } -/* Slot 99 */ +/* Slot 142 */ int -Tcl_ExprString(interp, str) +Tcl_ExprString(interp, string) Tcl_Interp * interp; - char * str; + char * string; { - return (tclStubsPtr->tcl_ExprString)(interp, str); + return (tclStubsPtr->tcl_ExprString)(interp, string); } -/* Slot 100 */ +/* Slot 143 */ void Tcl_Finalize() { (tclStubsPtr->tcl_Finalize)(); } -/* Slot 101 */ +/* Slot 144 */ void Tcl_FindExecutable(argv0) CONST char * argv0; @@ -1013,7 +1427,7 @@ Tcl_FindExecutable(argv0) (tclStubsPtr->tcl_FindExecutable)(argv0); } -/* Slot 102 */ +/* Slot 145 */ Tcl_HashEntry * Tcl_FirstHashEntry(tablePtr, searchPtr) Tcl_HashTable * tablePtr; @@ -1022,7 +1436,7 @@ Tcl_FirstHashEntry(tablePtr, searchPtr) return (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr); } -/* Slot 103 */ +/* Slot 146 */ int Tcl_Flush(chan) Tcl_Channel chan; @@ -1030,23 +1444,7 @@ Tcl_Flush(chan) return (tclStubsPtr->tcl_Flush)(chan); } -/* Slot 104 */ -void -Tcl_Free(ptr) - char * ptr; -{ - (tclStubsPtr->tcl_Free)(ptr); -} - -/* Slot 105 */ -void -TclFreeObj(objPtr) - Tcl_Obj * objPtr; -{ - (tclStubsPtr->tclFreeObj)(objPtr); -} - -/* Slot 106 */ +/* Slot 147 */ void Tcl_FreeResult(interp) Tcl_Interp * interp; @@ -1054,7 +1452,7 @@ Tcl_FreeResult(interp) (tclStubsPtr->tcl_FreeResult)(interp); } -/* Slot 107 */ +/* Slot 148 */ int Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) Tcl_Interp * interp; @@ -1067,7 +1465,7 @@ Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) return (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr); } -/* Slot 108 */ +/* Slot 149 */ int Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) Tcl_Interp * interp; @@ -1080,7 +1478,7 @@ Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) return (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv); } -/* Slot 109 */ +/* Slot 150 */ ClientData Tcl_GetAssocData(interp, name, procPtr) Tcl_Interp * interp; @@ -1090,36 +1488,7 @@ Tcl_GetAssocData(interp, name, procPtr) return (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr); } -/* Slot 110 */ -int -Tcl_GetBoolean(interp, str, boolPtr) - Tcl_Interp * interp; - char * str; - int * boolPtr; -{ - return (tclStubsPtr->tcl_GetBoolean)(interp, str, boolPtr); -} - -/* Slot 111 */ -int -Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - int * boolPtr; -{ - return (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr); -} - -/* Slot 112 */ -unsigned char * -Tcl_GetByteArrayFromObj(objPtr, lengthPtr) - Tcl_Obj * objPtr; - int * lengthPtr; -{ - return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr); -} - -/* Slot 113 */ +/* Slot 151 */ Tcl_Channel Tcl_GetChannel(interp, chanName, modePtr) Tcl_Interp * interp; @@ -1129,7 +1498,7 @@ Tcl_GetChannel(interp, chanName, modePtr) return (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr); } -/* Slot 114 */ +/* Slot 152 */ int Tcl_GetChannelBufferSize(chan) Tcl_Channel chan; @@ -1137,7 +1506,7 @@ Tcl_GetChannelBufferSize(chan) return (tclStubsPtr->tcl_GetChannelBufferSize)(chan); } -/* Slot 115 */ +/* Slot 153 */ int Tcl_GetChannelHandle(chan, direction, handlePtr) Tcl_Channel chan; @@ -1147,7 +1516,7 @@ Tcl_GetChannelHandle(chan, direction, handlePtr) return (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr); } -/* Slot 116 */ +/* Slot 154 */ ClientData Tcl_GetChannelInstanceData(chan) Tcl_Channel chan; @@ -1155,7 +1524,7 @@ Tcl_GetChannelInstanceData(chan) return (tclStubsPtr->tcl_GetChannelInstanceData)(chan); } -/* Slot 117 */ +/* Slot 155 */ int Tcl_GetChannelMode(chan) Tcl_Channel chan; @@ -1163,7 +1532,7 @@ Tcl_GetChannelMode(chan) return (tclStubsPtr->tcl_GetChannelMode)(chan); } -/* Slot 118 */ +/* Slot 156 */ char * Tcl_GetChannelName(chan) Tcl_Channel chan; @@ -1171,7 +1540,7 @@ Tcl_GetChannelName(chan) return (tclStubsPtr->tcl_GetChannelName)(chan); } -/* Slot 119 */ +/* Slot 157 */ int Tcl_GetChannelOption(interp, chan, optionName, dsPtr) Tcl_Interp * interp; @@ -1182,7 +1551,7 @@ Tcl_GetChannelOption(interp, chan, optionName, dsPtr) return (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr); } -/* Slot 120 */ +/* Slot 158 */ Tcl_ChannelType * Tcl_GetChannelType(chan) Tcl_Channel chan; @@ -1190,7 +1559,7 @@ Tcl_GetChannelType(chan) return (tclStubsPtr->tcl_GetChannelType)(chan); } -/* Slot 121 */ +/* Slot 159 */ int Tcl_GetCommandInfo(interp, cmdName, infoPtr) Tcl_Interp * interp; @@ -1200,102 +1569,39 @@ Tcl_GetCommandInfo(interp, cmdName, infoPtr) return (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr); } -/* Slot 122 */ +/* Slot 160 */ char * Tcl_GetCommandName(interp, command) - Tcl_Interp * interp; - Tcl_Command command; -{ - return (tclStubsPtr->tcl_GetCommandName)(interp, command); -} - -/* Slot 123 */ -int -Tcl_GetDouble(interp, str, doublePtr) - Tcl_Interp * interp; - char * str; - double * doublePtr; -{ - return (tclStubsPtr->tcl_GetDouble)(interp, str, doublePtr); -} - -/* Slot 124 */ -int -Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - double * doublePtr; -{ - return (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr); -} - -/* Slot 125 */ -int -Tcl_GetErrno() -{ - return (tclStubsPtr->tcl_GetErrno)(); -} - -/* Slot 126 */ -char * -Tcl_GetHostName() -{ - return (tclStubsPtr->tcl_GetHostName)(); -} - -/* Slot 127 */ -int -Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - char ** tablePtr; - char * msg; - int flags; - int * indexPtr; -{ - return (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr); -} - -/* Slot 128 */ -int -Tcl_GetInt(interp, str, intPtr) - Tcl_Interp * interp; - char * str; - int * intPtr; + Tcl_Interp * interp; + Tcl_Command command; { - return (tclStubsPtr->tcl_GetInt)(interp, str, intPtr); + return (tclStubsPtr->tcl_GetCommandName)(interp, command); } -/* Slot 129 */ +/* Slot 161 */ int -Tcl_GetInterpPath(askInterp, slaveInterp) - Tcl_Interp * askInterp; - Tcl_Interp * slaveInterp; +Tcl_GetErrno() { - return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp); + return (tclStubsPtr->tcl_GetErrno)(); } -/* Slot 130 */ -int -Tcl_GetIntFromObj(interp, objPtr, intPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - int * intPtr; +/* Slot 162 */ +char * +Tcl_GetHostName() { - return (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr); + return (tclStubsPtr->tcl_GetHostName)(); } -/* Slot 131 */ +/* Slot 163 */ int -Tcl_GetLongFromObj(interp, objPtr, longPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - long * longPtr; +Tcl_GetInterpPath(askInterp, slaveInterp) + Tcl_Interp * askInterp; + Tcl_Interp * slaveInterp; { - return (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr); + return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp); } -/* Slot 132 */ +/* Slot 164 */ Tcl_Interp * Tcl_GetMaster(interp) Tcl_Interp * interp; @@ -1303,14 +1609,14 @@ Tcl_GetMaster(interp) return (tclStubsPtr->tcl_GetMaster)(interp); } -/* Slot 133 */ +/* Slot 165 */ CONST char * Tcl_GetNameOfExecutable() { return (tclStubsPtr->tcl_GetNameOfExecutable)(); } -/* Slot 134 */ +/* Slot 166 */ Tcl_Obj * Tcl_GetObjResult(interp) Tcl_Interp * interp; @@ -1318,15 +1624,21 @@ Tcl_GetObjResult(interp) return (tclStubsPtr->tcl_GetObjResult)(interp); } -/* Slot 135 */ -Tcl_ObjType * -Tcl_GetObjType(typeName) - char * typeName; +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 167 */ +int +Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) + Tcl_Interp * interp; + char * string; + int write; + int checkUsage; + ClientData * filePtr; { - return (tclStubsPtr->tcl_GetObjType)(typeName); + return (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr); } -/* Slot 136 */ +#endif /* UNIX */ +/* Slot 168 */ Tcl_PathType Tcl_GetPathType(path) char * path; @@ -1334,7 +1646,7 @@ Tcl_GetPathType(path) return (tclStubsPtr->tcl_GetPathType)(path); } -/* Slot 137 */ +/* Slot 169 */ int Tcl_Gets(chan, dsPtr) Tcl_Channel chan; @@ -1343,7 +1655,7 @@ Tcl_Gets(chan, dsPtr) return (tclStubsPtr->tcl_Gets)(chan, dsPtr); } -/* Slot 138 */ +/* Slot 170 */ int Tcl_GetsObj(chan, objPtr) Tcl_Channel chan; @@ -1352,14 +1664,14 @@ Tcl_GetsObj(chan, objPtr) return (tclStubsPtr->tcl_GetsObj)(chan, objPtr); } -/* Slot 139 */ +/* Slot 171 */ int Tcl_GetServiceMode() { return (tclStubsPtr->tcl_GetServiceMode)(); } -/* Slot 140 */ +/* Slot 172 */ Tcl_Interp * Tcl_GetSlave(interp, slaveName) Tcl_Interp * interp; @@ -1368,7 +1680,7 @@ Tcl_GetSlave(interp, slaveName) return (tclStubsPtr->tcl_GetSlave)(interp, slaveName); } -/* Slot 141 */ +/* Slot 173 */ Tcl_Channel Tcl_GetStdChannel(type) int type; @@ -1376,16 +1688,7 @@ Tcl_GetStdChannel(type) return (tclStubsPtr->tcl_GetStdChannel)(type); } -/* Slot 142 */ -char * -Tcl_GetStringFromObj(objPtr, lengthPtr) - Tcl_Obj * objPtr; - int * lengthPtr; -{ - return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr); -} - -/* Slot 143 */ +/* Slot 174 */ char * Tcl_GetStringResult(interp) Tcl_Interp * interp; @@ -1393,7 +1696,7 @@ Tcl_GetStringResult(interp) return (tclStubsPtr->tcl_GetStringResult)(interp); } -/* Slot 144 */ +/* Slot 175 */ char * Tcl_GetVar(interp, varName, flags) Tcl_Interp * interp; @@ -1403,7 +1706,7 @@ Tcl_GetVar(interp, varName, flags) return (tclStubsPtr->tcl_GetVar)(interp, varName, flags); } -/* Slot 145 */ +/* Slot 176 */ char * Tcl_GetVar2(interp, part1, part2, flags) Tcl_Interp * interp; @@ -1414,7 +1717,7 @@ Tcl_GetVar2(interp, part1, part2, flags) return (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags); } -/* Slot 146 */ +/* Slot 177 */ int Tcl_GlobalEval(interp, command) Tcl_Interp * interp; @@ -1423,7 +1726,7 @@ Tcl_GlobalEval(interp, command) return (tclStubsPtr->tcl_GlobalEval)(interp, command); } -/* Slot 147 */ +/* Slot 178 */ int Tcl_GlobalEvalObj(interp, objPtr) Tcl_Interp * interp; @@ -1432,15 +1735,7 @@ Tcl_GlobalEvalObj(interp, objPtr) return (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr); } -/* Slot 148 */ -char * -Tcl_HashStats(tablePtr) - Tcl_HashTable * tablePtr; -{ - return (tclStubsPtr->tcl_HashStats)(tablePtr); -} - -/* Slot 149 */ +/* Slot 179 */ int Tcl_HideCommand(interp, cmdName, hiddenCmdToken) Tcl_Interp * interp; @@ -1450,7 +1745,7 @@ Tcl_HideCommand(interp, cmdName, hiddenCmdToken) return (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken); } -/* Slot 150 */ +/* Slot 180 */ int Tcl_Init(interp) Tcl_Interp * interp; @@ -1458,7 +1753,7 @@ Tcl_Init(interp) return (tclStubsPtr->tcl_Init)(interp); } -/* Slot 151 */ +/* Slot 181 */ void Tcl_InitHashTable(tablePtr, keyType) Tcl_HashTable * tablePtr; @@ -1467,15 +1762,7 @@ Tcl_InitHashTable(tablePtr, keyType) (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType); } -/* Slot 152 */ -void -Tcl_InitMemory(interp) - Tcl_Interp * interp; -{ - (tclStubsPtr->tcl_InitMemory)(interp); -} - -/* Slot 153 */ +/* Slot 182 */ int Tcl_InputBlocked(chan) Tcl_Channel chan; @@ -1483,7 +1770,7 @@ Tcl_InputBlocked(chan) return (tclStubsPtr->tcl_InputBlocked)(chan); } -/* Slot 154 */ +/* Slot 183 */ int Tcl_InputBuffered(chan) Tcl_Channel chan; @@ -1491,7 +1778,7 @@ Tcl_InputBuffered(chan) return (tclStubsPtr->tcl_InputBuffered)(chan); } -/* Slot 155 */ +/* Slot 184 */ int Tcl_InterpDeleted(interp) Tcl_Interp * interp; @@ -1499,7 +1786,7 @@ Tcl_InterpDeleted(interp) return (tclStubsPtr->tcl_InterpDeleted)(interp); } -/* Slot 156 */ +/* Slot 185 */ int Tcl_IsSafe(interp) Tcl_Interp * interp; @@ -1507,15 +1794,7 @@ Tcl_IsSafe(interp) return (tclStubsPtr->tcl_IsSafe)(interp); } -/* Slot 157 */ -void -Tcl_InvalidateStringRep(objPtr) - Tcl_Obj * objPtr; -{ - (tclStubsPtr->tcl_InvalidateStringRep)(objPtr); -} - -/* Slot 158 */ +/* Slot 186 */ char * Tcl_JoinPath(argc, argv, resultPtr) int argc; @@ -1525,7 +1804,7 @@ Tcl_JoinPath(argc, argv, resultPtr) return (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr); } -/* Slot 159 */ +/* Slot 187 */ int Tcl_LinkVar(interp, varName, addr, type) Tcl_Interp * interp; @@ -1536,72 +1815,8 @@ Tcl_LinkVar(interp, varName, addr, type) return (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type); } -/* Slot 160 */ -int -Tcl_ListObjAppendList(interp, listPtr, elemListPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - Tcl_Obj * elemListPtr; -{ - return (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr); -} - -/* Slot 161 */ -int -Tcl_ListObjAppendElement(interp, listPtr, objPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - Tcl_Obj * objPtr; -{ - return (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr); -} - -/* Slot 162 */ -int -Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int * objcPtr; - Tcl_Obj *** objvPtr; -{ - return (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr); -} - -/* Slot 163 */ -int -Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int index; - Tcl_Obj ** objPtrPtr; -{ - return (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr); -} - -/* Slot 164 */ -int -Tcl_ListObjLength(interp, listPtr, intPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int * intPtr; -{ - return (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr); -} - -/* Slot 165 */ -int -Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int first; - int count; - int objc; - Tcl_Obj *CONST objv[]; -{ - return (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv); -} - -/* Slot 166 */ +/* Slot 188 is reserved */ +/* Slot 189 */ Tcl_Channel Tcl_MakeFileChannel(handle, mode) ClientData handle; @@ -1610,7 +1825,7 @@ Tcl_MakeFileChannel(handle, mode) return (tclStubsPtr->tcl_MakeFileChannel)(handle, mode); } -/* Slot 167 */ +/* Slot 190 */ int Tcl_MakeSafe(interp) Tcl_Interp * interp; @@ -1618,90 +1833,24 @@ Tcl_MakeSafe(interp) return (tclStubsPtr->tcl_MakeSafe)(interp); } -/* Slot 168 */ +/* Slot 191 */ Tcl_Channel Tcl_MakeTcpClientChannel(tcpSocket) ClientData tcpSocket; { - return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket); -} - -/* Slot 169 */ -char * -Tcl_Merge(argc, argv) - int argc; - char ** argv; -{ - return (tclStubsPtr->tcl_Merge)(argc, argv); -} - -/* Slot 170 */ -Tcl_Obj * -Tcl_NewBooleanObj(boolValue) - int boolValue; -{ - return (tclStubsPtr->tcl_NewBooleanObj)(boolValue); -} - -/* Slot 171 */ -Tcl_Obj * -Tcl_NewByteArrayObj(bytes, length) - unsigned char * bytes; - int length; -{ - return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length); -} - -/* Slot 172 */ -Tcl_Obj * -Tcl_NewDoubleObj(doubleValue) - double doubleValue; -{ - return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue); -} - -/* Slot 173 */ -Tcl_Obj * -Tcl_NewIntObj(intValue) - int intValue; -{ - return (tclStubsPtr->tcl_NewIntObj)(intValue); -} - -/* Slot 174 */ -Tcl_Obj * -Tcl_NewListObj(objc, objv) - int objc; - Tcl_Obj *CONST objv[]; -{ - return (tclStubsPtr->tcl_NewListObj)(objc, objv); -} - -/* Slot 175 */ -Tcl_Obj * -Tcl_NewLongObj(longValue) - long longValue; -{ - return (tclStubsPtr->tcl_NewLongObj)(longValue); -} - -/* Slot 176 */ -Tcl_Obj * -Tcl_NewObj() -{ - return (tclStubsPtr->tcl_NewObj)(); + return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket); } -/* Slot 177 */ -Tcl_Obj * -Tcl_NewStringObj(bytes, length) - CONST char * bytes; - int length; +/* Slot 192 */ +char * +Tcl_Merge(argc, argv) + int argc; + char ** argv; { - return (tclStubsPtr->tcl_NewStringObj)(bytes, length); + return (tclStubsPtr->tcl_Merge)(argc, argv); } -/* Slot 178 */ +/* Slot 193 */ Tcl_HashEntry * Tcl_NextHashEntry(searchPtr) Tcl_HashSearch * searchPtr; @@ -1709,7 +1858,7 @@ Tcl_NextHashEntry(searchPtr) return (tclStubsPtr->tcl_NextHashEntry)(searchPtr); } -/* Slot 179 */ +/* Slot 194 */ void Tcl_NotifyChannel(channel, mask) Tcl_Channel channel; @@ -1718,7 +1867,7 @@ Tcl_NotifyChannel(channel, mask) (tclStubsPtr->tcl_NotifyChannel)(channel, mask); } -/* Slot 180 */ +/* Slot 195 */ Tcl_Obj * Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) Tcl_Interp * interp; @@ -1729,7 +1878,7 @@ Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) return (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags); } -/* Slot 181 */ +/* Slot 196 */ Tcl_Obj * Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) Tcl_Interp * interp; @@ -1741,7 +1890,7 @@ Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) return (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags); } -/* Slot 182 */ +/* Slot 197 */ Tcl_Channel Tcl_OpenCommandChannel(interp, argc, argv, flags) Tcl_Interp * interp; @@ -1752,7 +1901,7 @@ Tcl_OpenCommandChannel(interp, argc, argv, flags) return (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags); } -/* Slot 183 */ +/* Slot 198 */ Tcl_Channel Tcl_OpenFileChannel(interp, fileName, modeString, permissions) Tcl_Interp * interp; @@ -1763,7 +1912,7 @@ Tcl_OpenFileChannel(interp, fileName, modeString, permissions) return (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions); } -/* Slot 184 */ +/* Slot 199 */ Tcl_Channel Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) Tcl_Interp * interp; @@ -1776,7 +1925,7 @@ Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) return (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async); } -/* Slot 185 */ +/* Slot 200 */ Tcl_Channel Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) Tcl_Interp * interp; @@ -1788,114 +1937,7 @@ Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) return (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData); } -/* Slot 186 */ -void -panic TCL_VARARGS_DEF(char *,format) -{ - char * var; - va_list argList; - - var = (char *) TCL_VARARGS_START(char *,format,argList); - - (tclStubsPtr->panicVA)(var, argList); - va_end(argList); -} - -/* Slot 187 */ -void -panicVA(format, argList) - char * format; - va_list argList; -{ - (tclStubsPtr->panicVA)(format, argList); -} - -/* Slot 188 */ -char * -Tcl_ParseVar(interp, str, termPtr) - Tcl_Interp * interp; - char * str; - char ** termPtr; -{ - return (tclStubsPtr->tcl_ParseVar)(interp, str, termPtr); -} - -/* Slot 189 */ -char * -Tcl_PkgPresent(interp, name, version, exact) - Tcl_Interp * interp; - char * name; - char * version; - int exact; -{ - return (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact); -} - -/* Slot 190 */ -char * -Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) - Tcl_Interp * interp; - char * name; - char * version; - int exact; - ClientData * clientDataPtr; -{ - return (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr); -} - -/* Slot 191 */ -int -Tcl_PkgProvide(interp, name, version) - Tcl_Interp * interp; - char * name; - char * version; -{ - return (tclStubsPtr->tcl_PkgProvide)(interp, name, version); -} - -/* Slot 192 */ -int -Tcl_PkgProvideEx(interp, name, version, clientData) - Tcl_Interp * interp; - char * name; - char * version; - ClientData clientData; -{ - return (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData); -} - -/* Slot 193 */ -char * -Tcl_PkgRequire(interp, name, version, exact) - Tcl_Interp * interp; - char * name; - char * version; - int exact; -{ - return (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact); -} - -/* Slot 194 */ -char * -Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) - Tcl_Interp * interp; - char * name; - char * version; - int exact; - ClientData * clientDataPtr; -{ - return (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr); -} - -/* Slot 195 */ -char * -Tcl_PosixError(interp) - Tcl_Interp * interp; -{ - return (tclStubsPtr->tcl_PosixError)(interp); -} - -/* Slot 196 */ +/* Slot 201 */ void Tcl_Preserve(data) ClientData data; @@ -1903,7 +1945,7 @@ Tcl_Preserve(data) (tclStubsPtr->tcl_Preserve)(data); } -/* Slot 197 */ +/* Slot 202 */ void Tcl_PrintDouble(interp, value, dst) Tcl_Interp * interp; @@ -1913,15 +1955,23 @@ Tcl_PrintDouble(interp, value, dst) (tclStubsPtr->tcl_PrintDouble)(interp, value, dst); } -/* Slot 198 */ +/* Slot 203 */ int -Tcl_PutEnv(str) - CONST char * str; +Tcl_PutEnv(string) + CONST char * string; { - return (tclStubsPtr->tcl_PutEnv)(str); + return (tclStubsPtr->tcl_PutEnv)(string); } -/* Slot 199 */ +/* Slot 204 */ +char * +Tcl_PosixError(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_PosixError)(interp); +} + +/* Slot 205 */ void Tcl_QueueEvent(evPtr, position) Tcl_Event * evPtr; @@ -1930,7 +1980,7 @@ Tcl_QueueEvent(evPtr, position) (tclStubsPtr->tcl_QueueEvent)(evPtr, position); } -/* Slot 200 */ +/* Slot 206 */ int Tcl_Read(chan, bufPtr, toRead) Tcl_Channel chan; @@ -1940,23 +1990,14 @@ Tcl_Read(chan, bufPtr, toRead) return (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead); } -/* Slot 201 */ -char * -Tcl_Realloc(ptr, size) - char * ptr; - unsigned int size; -{ - return (tclStubsPtr->tcl_Realloc)(ptr, size); -} - -/* Slot 202 */ +/* Slot 207 */ void Tcl_ReapDetachedProcs() { (tclStubsPtr->tcl_ReapDetachedProcs)(); } -/* Slot 203 */ +/* Slot 208 */ int Tcl_RecordAndEval(interp, cmd, flags) Tcl_Interp * interp; @@ -1966,7 +2007,7 @@ Tcl_RecordAndEval(interp, cmd, flags) return (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags); } -/* Slot 204 */ +/* Slot 209 */ int Tcl_RecordAndEvalObj(interp, cmdPtr, flags) Tcl_Interp * interp; @@ -1976,37 +2017,54 @@ Tcl_RecordAndEvalObj(interp, cmdPtr, flags) return (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags); } -/* Slot 205 */ +/* Slot 210 */ +void +Tcl_RegisterChannel(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclStubsPtr->tcl_RegisterChannel)(interp, chan); +} + +/* Slot 211 */ +void +Tcl_RegisterObjType(typePtr) + Tcl_ObjType * typePtr; +{ + (tclStubsPtr->tcl_RegisterObjType)(typePtr); +} + +/* Slot 212 */ Tcl_RegExp -Tcl_RegExpCompile(interp, str) +Tcl_RegExpCompile(interp, string) Tcl_Interp * interp; - char * str; + char * string; { - return (tclStubsPtr->tcl_RegExpCompile)(interp, str); + return (tclStubsPtr->tcl_RegExpCompile)(interp, string); } -/* Slot 206 */ +/* Slot 213 */ int -Tcl_RegExpExec(interp, regexp, str, start) +Tcl_RegExpExec(interp, regexp, string, start) Tcl_Interp * interp; Tcl_RegExp regexp; - CONST char * str; + CONST char * string; CONST char * start; { - return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, str, start); + return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start); } -/* Slot 207 */ +/* Slot 214 */ int -Tcl_RegExpMatch(interp, str, pattern) +Tcl_RegExpMatch(interp, string, pattern) Tcl_Interp * interp; - char * str; + char * string; char * pattern; { - return (tclStubsPtr->tcl_RegExpMatch)(interp, str, pattern); + return (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern); } -/* Slot 208 */ +/* Slot 215 */ void Tcl_RegExpRange(regexp, index, startPtr, endPtr) Tcl_RegExp regexp; @@ -2017,24 +2075,7 @@ Tcl_RegExpRange(regexp, index, startPtr, endPtr) (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr); } -/* Slot 209 */ -void -Tcl_RegisterChannel(interp, chan) - Tcl_Interp * interp; - Tcl_Channel chan; -{ - (tclStubsPtr->tcl_RegisterChannel)(interp, chan); -} - -/* Slot 210 */ -void -Tcl_RegisterObjType(typePtr) - Tcl_ObjType * typePtr; -{ - (tclStubsPtr->tcl_RegisterObjType)(typePtr); -} - -/* Slot 211 */ +/* Slot 216 */ void Tcl_Release(clientData) ClientData clientData; @@ -2042,7 +2083,7 @@ Tcl_Release(clientData) (tclStubsPtr->tcl_Release)(clientData); } -/* Slot 212 */ +/* Slot 217 */ void Tcl_ResetResult(interp) Tcl_Interp * interp; @@ -2050,26 +2091,26 @@ Tcl_ResetResult(interp) (tclStubsPtr->tcl_ResetResult)(interp); } -/* Slot 213 */ +/* Slot 218 */ int -Tcl_ScanCountedElement(str, length, flagPtr) - CONST char * str; - int length; +Tcl_ScanElement(string, flagPtr) + CONST char * string; int * flagPtr; { - return (tclStubsPtr->tcl_ScanCountedElement)(str, length, flagPtr); + return (tclStubsPtr->tcl_ScanElement)(string, flagPtr); } -/* Slot 214 */ +/* Slot 219 */ int -Tcl_ScanElement(str, flagPtr) - CONST char * str; +Tcl_ScanCountedElement(string, length, flagPtr) + CONST char * string; + int length; int * flagPtr; { - return (tclStubsPtr->tcl_ScanElement)(str, flagPtr); + return (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr); } -/* Slot 215 */ +/* Slot 220 */ int Tcl_Seek(chan, offset, mode) Tcl_Channel chan; @@ -2079,14 +2120,14 @@ Tcl_Seek(chan, offset, mode) return (tclStubsPtr->tcl_Seek)(chan, offset, mode); } -/* Slot 216 */ +/* Slot 221 */ int Tcl_ServiceAll() { return (tclStubsPtr->tcl_ServiceAll)(); } -/* Slot 217 */ +/* Slot 222 */ int Tcl_ServiceEvent(flags) int flags; @@ -2094,46 +2135,18 @@ Tcl_ServiceEvent(flags) return (tclStubsPtr->tcl_ServiceEvent)(flags); } -/* Slot 218 */ -void -Tcl_SetAssocData(interp, name, proc, clientData) - Tcl_Interp * interp; - char * name; - Tcl_InterpDeleteProc * proc; - ClientData clientData; -{ - (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData); -} - -/* Slot 219 */ -void -Tcl_SetBooleanObj(objPtr, boolValue) - Tcl_Obj * objPtr; - int boolValue; -{ - (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue); -} - -/* Slot 220 */ -unsigned char * -Tcl_SetByteArrayLength(objPtr, length) - Tcl_Obj * objPtr; - int length; -{ - return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length); -} - -/* Slot 221 */ +/* Slot 223 */ void -Tcl_SetByteArrayObj(objPtr, bytes, length) - Tcl_Obj * objPtr; - unsigned char * bytes; - int length; +Tcl_SetAssocData(interp, name, proc, clientData) + Tcl_Interp * interp; + char * name; + Tcl_InterpDeleteProc * proc; + ClientData clientData; { - (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length); + (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData); } -/* Slot 222 */ +/* Slot 224 */ void Tcl_SetChannelBufferSize(chan, sz) Tcl_Channel chan; @@ -2142,7 +2155,7 @@ Tcl_SetChannelBufferSize(chan, sz) (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz); } -/* Slot 223 */ +/* Slot 225 */ int Tcl_SetChannelOption(interp, chan, optionName, newValue) Tcl_Interp * interp; @@ -2153,7 +2166,7 @@ Tcl_SetChannelOption(interp, chan, optionName, newValue) return (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue); } -/* Slot 224 */ +/* Slot 226 */ int Tcl_SetCommandInfo(interp, cmdName, infoPtr) Tcl_Interp * interp; @@ -2163,16 +2176,7 @@ Tcl_SetCommandInfo(interp, cmdName, infoPtr) return (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr); } -/* Slot 225 */ -void -Tcl_SetDoubleObj(objPtr, doubleValue) - Tcl_Obj * objPtr; - double doubleValue; -{ - (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue); -} - -/* Slot 226 */ +/* Slot 227 */ void Tcl_SetErrno(err) int err; @@ -2180,7 +2184,7 @@ Tcl_SetErrno(err) (tclStubsPtr->tcl_SetErrno)(err); } -/* Slot 227 */ +/* Slot 228 */ void Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp) { @@ -2193,79 +2197,15 @@ Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp) va_end(argList); } -/* Slot 228 */ -void -Tcl_SetErrorCodeVA(interp, argList) - Tcl_Interp * interp; - va_list argList; -{ - (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList); -} - /* Slot 229 */ void -Tcl_SetIntObj(objPtr, intValue) - Tcl_Obj * objPtr; - int intValue; -{ - (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue); -} - -/* Slot 230 */ -void -Tcl_SetListObj(objPtr, objc, objv) - Tcl_Obj * objPtr; - int objc; - Tcl_Obj *CONST objv[]; -{ - (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv); -} - -/* Slot 231 */ -void -Tcl_SetLongObj(objPtr, longValue) - Tcl_Obj * objPtr; - long longValue; -{ - (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue); -} - -/* Slot 232 */ -void Tcl_SetMaxBlockTime(timePtr) Tcl_Time * timePtr; { (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr); } -/* Slot 233 */ -void -Tcl_SetObjErrorCode(interp, errorObjPtr) - Tcl_Interp * interp; - Tcl_Obj * errorObjPtr; -{ - (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr); -} - -/* Slot 234 */ -void -Tcl_SetObjLength(objPtr, length) - Tcl_Obj * objPtr; - int length; -{ - (tclStubsPtr->tcl_SetObjLength)(objPtr, length); -} - -/* Slot 235 */ -void -Tcl_SetObjResult(interp, resultObjPtr) - Tcl_Interp * interp; - Tcl_Obj * resultObjPtr; -{ - (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr); -} - -/* Slot 236 */ +/* Slot 230 */ void Tcl_SetPanicProc(panicProc) Tcl_PanicProc * panicProc; @@ -2273,7 +2213,7 @@ Tcl_SetPanicProc(panicProc) (tclStubsPtr->tcl_SetPanicProc)(panicProc); } -/* Slot 237 */ +/* Slot 231 */ int Tcl_SetRecursionLimit(interp, depth) Tcl_Interp * interp; @@ -2282,17 +2222,17 @@ Tcl_SetRecursionLimit(interp, depth) return (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth); } -/* Slot 238 */ +/* Slot 232 */ void -Tcl_SetResult(interp, str, freeProc) +Tcl_SetResult(interp, string, freeProc) Tcl_Interp * interp; - char * str; + char * string; Tcl_FreeProc * freeProc; { - (tclStubsPtr->tcl_SetResult)(interp, str, freeProc); + (tclStubsPtr->tcl_SetResult)(interp, string, freeProc); } -/* Slot 239 */ +/* Slot 233 */ int Tcl_SetServiceMode(mode) int mode; @@ -2300,34 +2240,34 @@ Tcl_SetServiceMode(mode) return (tclStubsPtr->tcl_SetServiceMode)(mode); } -/* Slot 240 */ +/* Slot 234 */ void -Tcl_SetStdChannel(channel, type) - Tcl_Channel channel; - int type; +Tcl_SetObjErrorCode(interp, errorObjPtr) + Tcl_Interp * interp; + Tcl_Obj * errorObjPtr; { - (tclStubsPtr->tcl_SetStdChannel)(channel, type); + (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr); } -/* Slot 241 */ +/* Slot 235 */ void -Tcl_SetStringObj(objPtr, bytes, length) - Tcl_Obj * objPtr; - char * bytes; - int length; +Tcl_SetObjResult(interp, resultObjPtr) + Tcl_Interp * interp; + Tcl_Obj * resultObjPtr; { - (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length); + (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr); } -/* Slot 242 */ +/* Slot 236 */ void -Tcl_SetTimer(timePtr) - Tcl_Time * timePtr; +Tcl_SetStdChannel(channel, type) + Tcl_Channel channel; + int type; { - (tclStubsPtr->tcl_SetTimer)(timePtr); + (tclStubsPtr->tcl_SetStdChannel)(channel, type); } -/* Slot 243 */ +/* Slot 237 */ char * Tcl_SetVar(interp, varName, newValue, flags) Tcl_Interp * interp; @@ -2338,7 +2278,7 @@ Tcl_SetVar(interp, varName, newValue, flags) return (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags); } -/* Slot 244 */ +/* Slot 238 */ char * Tcl_SetVar2(interp, part1, part2, newValue, flags) Tcl_Interp * interp; @@ -2350,7 +2290,7 @@ Tcl_SetVar2(interp, part1, part2, newValue, flags) return (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags); } -/* Slot 245 */ +/* Slot 239 */ char * Tcl_SignalId(sig) int sig; @@ -2358,7 +2298,7 @@ Tcl_SignalId(sig) return (tclStubsPtr->tcl_SignalId)(sig); } -/* Slot 246 */ +/* Slot 240 */ char * Tcl_SignalMsg(sig) int sig; @@ -2366,15 +2306,7 @@ Tcl_SignalMsg(sig) return (tclStubsPtr->tcl_SignalMsg)(sig); } -/* Slot 247 */ -void -Tcl_Sleep(ms) - int ms; -{ - (tclStubsPtr->tcl_Sleep)(ms); -} - -/* Slot 248 */ +/* Slot 241 */ void Tcl_SourceRCFile(interp) Tcl_Interp * interp; @@ -2382,18 +2314,18 @@ Tcl_SourceRCFile(interp) (tclStubsPtr->tcl_SourceRCFile)(interp); } -/* Slot 249 */ +/* Slot 242 */ int -Tcl_SplitList(interp, listStr, argcPtr, argvPtr) +Tcl_SplitList(interp, list, argcPtr, argvPtr) Tcl_Interp * interp; - CONST char * listStr; + CONST char * list; int * argcPtr; char *** argvPtr; { - return (tclStubsPtr->tcl_SplitList)(interp, listStr, argcPtr, argvPtr); + return (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr); } -/* Slot 250 */ +/* Slot 243 */ void Tcl_SplitPath(path, argcPtr, argvPtr) CONST char * path; @@ -2403,7 +2335,7 @@ Tcl_SplitPath(path, argcPtr, argvPtr) (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr); } -/* Slot 251 */ +/* Slot 244 */ void Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) Tcl_Interp * interp; @@ -2414,16 +2346,16 @@ Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc); } -/* Slot 252 */ +/* Slot 245 */ int -Tcl_StringMatch(str, pattern) - CONST char * str; +Tcl_StringMatch(string, pattern) + CONST char * string; CONST char * pattern; { - return (tclStubsPtr->tcl_StringMatch)(str, pattern); + return (tclStubsPtr->tcl_StringMatch)(string, pattern); } -/* Slot 253 */ +/* Slot 246 */ int Tcl_Tell(chan) Tcl_Channel chan; @@ -2431,7 +2363,7 @@ Tcl_Tell(chan) return (tclStubsPtr->tcl_Tell)(chan); } -/* Slot 254 */ +/* Slot 247 */ int Tcl_TraceVar(interp, varName, flags, proc, clientData) Tcl_Interp * interp; @@ -2443,7 +2375,7 @@ Tcl_TraceVar(interp, varName, flags, proc, clientData) return (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData); } -/* Slot 255 */ +/* Slot 248 */ int Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) Tcl_Interp * interp; @@ -2456,7 +2388,7 @@ Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) return (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData); } -/* Slot 256 */ +/* Slot 249 */ char * Tcl_TranslateFileName(interp, name, bufferPtr) Tcl_Interp * interp; @@ -2466,7 +2398,7 @@ Tcl_TranslateFileName(interp, name, bufferPtr) return (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr); } -/* Slot 257 */ +/* Slot 250 */ int Tcl_Ungets(chan, str, len, atHead) Tcl_Channel chan; @@ -2477,7 +2409,7 @@ Tcl_Ungets(chan, str, len, atHead) return (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead); } -/* Slot 258 */ +/* Slot 251 */ void Tcl_UnlinkVar(interp, varName) Tcl_Interp * interp; @@ -2486,7 +2418,7 @@ Tcl_UnlinkVar(interp, varName) (tclStubsPtr->tcl_UnlinkVar)(interp, varName); } -/* Slot 259 */ +/* Slot 252 */ int Tcl_UnregisterChannel(interp, chan) Tcl_Interp * interp; @@ -2495,7 +2427,7 @@ Tcl_UnregisterChannel(interp, chan) return (tclStubsPtr->tcl_UnregisterChannel)(interp, chan); } -/* Slot 260 */ +/* Slot 253 */ int Tcl_UnsetVar(interp, varName, flags) Tcl_Interp * interp; @@ -2505,7 +2437,7 @@ Tcl_UnsetVar(interp, varName, flags) return (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags); } -/* Slot 261 */ +/* Slot 254 */ int Tcl_UnsetVar2(interp, part1, part2, flags) Tcl_Interp * interp; @@ -2516,7 +2448,7 @@ Tcl_UnsetVar2(interp, part1, part2, flags) return (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags); } -/* Slot 262 */ +/* Slot 255 */ void Tcl_UntraceVar(interp, varName, flags, proc, clientData) Tcl_Interp * interp; @@ -2528,7 +2460,7 @@ Tcl_UntraceVar(interp, varName, flags, proc, clientData) (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData); } -/* Slot 263 */ +/* Slot 256 */ void Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) Tcl_Interp * interp; @@ -2541,7 +2473,7 @@ Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData); } -/* Slot 264 */ +/* Slot 257 */ void Tcl_UpdateLinkedVar(interp, varName) Tcl_Interp * interp; @@ -2550,7 +2482,7 @@ Tcl_UpdateLinkedVar(interp, varName) (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName); } -/* Slot 265 */ +/* Slot 258 */ int Tcl_UpVar(interp, frameName, varName, localName, flags) Tcl_Interp * interp; @@ -2559,23 +2491,92 @@ Tcl_UpVar(interp, frameName, varName, localName, flags) char * localName; int flags; { - return (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags); + return (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags); +} + +/* Slot 259 */ +int +Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) + Tcl_Interp * interp; + char * frameName; + char * part1; + char * part2; + char * localName; + int flags; +{ + return (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags); +} + +/* Slot 260 */ +int +Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp) +{ + Tcl_Interp * var; + va_list argList; + int resultValue; + + var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); + + resultValue = (tclStubsPtr->tcl_VarEvalVA)(var, argList); + va_end(argList); +return resultValue; +} + +/* Slot 261 */ +ClientData +Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) + Tcl_Interp * interp; + char * varName; + int flags; + Tcl_VarTraceProc * procPtr; + ClientData prevClientData; +{ + return (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData); +} + +/* Slot 262 */ +ClientData +Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; + Tcl_VarTraceProc * procPtr; + ClientData prevClientData; +{ + return (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData); +} + +/* Slot 263 */ +int +Tcl_Write(chan, s, slen) + Tcl_Channel chan; + char * s; + int slen; +{ + return (tclStubsPtr->tcl_Write)(chan, s, slen); +} + +/* Slot 264 */ +void +Tcl_WrongNumArgs(interp, objc, objv, message) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; + char * message; +{ + (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message); } -/* Slot 266 */ +/* Slot 265 */ int -Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) - Tcl_Interp * interp; - char * frameName; - char * part1; - char * part2; - char * localName; - int flags; +Tcl_DumpActiveMemory(fileName) + char * fileName; { - return (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags); + return (tclStubsPtr->tcl_DumpActiveMemory)(fileName); } -/* Slot 267 */ +/* Slot 266 */ void Tcl_ValidateAllMemory(file, line) char * file; @@ -2584,95 +2585,124 @@ Tcl_ValidateAllMemory(file, line) (tclStubsPtr->tcl_ValidateAllMemory)(file, line); } -/* Slot 268 */ -int -Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp) -{ - Tcl_Interp * var; +/* Slot 267 */ +void +Tcl_AppendResultVA(interp, argList) + Tcl_Interp * interp; va_list argList; - int resultValue; - - var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); +{ + (tclStubsPtr->tcl_AppendResultVA)(interp, argList); +} - resultValue = (tclStubsPtr->tcl_VarEvalVA)(var, argList); - va_end(argList); -return resultValue; +/* Slot 268 */ +void +Tcl_AppendStringsToObjVA(objPtr, argList) + Tcl_Obj * objPtr; + va_list argList; +{ + (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList); } /* Slot 269 */ -int -Tcl_VarEvalVA(interp, argList) - Tcl_Interp * interp; - va_list argList; +char * +Tcl_HashStats(tablePtr) + Tcl_HashTable * tablePtr; { - return (tclStubsPtr->tcl_VarEvalVA)(interp, argList); + return (tclStubsPtr->tcl_HashStats)(tablePtr); } /* Slot 270 */ -ClientData -Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) +char * +Tcl_ParseVar(interp, string, termPtr) Tcl_Interp * interp; - char * varName; - int flags; - Tcl_VarTraceProc * procPtr; - ClientData prevClientData; + char * string; + char ** termPtr; { - return (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData); + return (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr); } /* Slot 271 */ -ClientData -Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) +char * +Tcl_PkgPresent(interp, name, version, exact) Tcl_Interp * interp; - char * part1; - char * part2; - int flags; - Tcl_VarTraceProc * procPtr; - ClientData prevClientData; + char * name; + char * version; + int exact; { - return (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData); + return (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact); } /* Slot 272 */ -int -Tcl_WaitForEvent(timePtr) - Tcl_Time * timePtr; +char * +Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) + Tcl_Interp * interp; + char * name; + char * version; + int exact; + ClientData * clientDataPtr; { - return (tclStubsPtr->tcl_WaitForEvent)(timePtr); + return (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr); } /* Slot 273 */ -Tcl_Pid -Tcl_WaitPid(pid, statPtr, options) - Tcl_Pid pid; - int * statPtr; - int options; +int +Tcl_PkgProvide(interp, name, version) + Tcl_Interp * interp; + char * name; + char * version; { - return (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options); + return (tclStubsPtr->tcl_PkgProvide)(interp, name, version); } /* Slot 274 */ -int -Tcl_Write(chan, s, slen) - Tcl_Channel chan; - char * s; - int slen; +char * +Tcl_PkgRequire(interp, name, version, exact) + Tcl_Interp * interp; + char * name; + char * version; + int exact; { - return (tclStubsPtr->tcl_Write)(chan, s, slen); + return (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact); } /* Slot 275 */ void -Tcl_WrongNumArgs(interp, objc, objv, message) +Tcl_SetErrorCodeVA(interp, argList) Tcl_Interp * interp; - int objc; - Tcl_Obj *CONST objv[]; - char * message; + va_list argList; { - (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message); + (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList); } /* Slot 276 */ +int +Tcl_VarEvalVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + return (tclStubsPtr->tcl_VarEvalVA)(interp, argList); +} + +/* Slot 277 */ +Tcl_Pid +Tcl_WaitPid(pid, statPtr, options) + Tcl_Pid pid; + int * statPtr; + int options; +{ + return (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options); +} + +/* Slot 278 */ +void +panicVA(format, argList) + char * format; + va_list argList; +{ + (tclStubsPtr->panicVA)(format, argList); +} + +/* Slot 279 */ void Tcl_AppendObjToObj(objPtr, appendObjPtr) Tcl_Obj * objPtr; @@ -2681,7 +2711,7 @@ Tcl_AppendObjToObj(objPtr, appendObjPtr) (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr); } -/* Slot 277 */ +/* Slot 280 */ void Tcl_AlertNotifier(clientData) ClientData clientData; @@ -2689,7 +2719,7 @@ Tcl_AlertNotifier(clientData) (tclStubsPtr->tcl_AlertNotifier)(clientData); } -/* Slot 278 */ +/* Slot 281 */ Tcl_Encoding Tcl_CreateEncoding(typePtr) Tcl_EncodingType * typePtr; @@ -2697,7 +2727,7 @@ Tcl_CreateEncoding(typePtr) return (tclStubsPtr->tcl_CreateEncoding)(typePtr); } -/* Slot 279 */ +/* Slot 282 */ void Tcl_CreateThreadExitHandler(proc, clientData) Tcl_ExitProc * proc; @@ -2706,7 +2736,7 @@ Tcl_CreateThreadExitHandler(proc, clientData) (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData); } -/* Slot 280 */ +/* Slot 283 */ void Tcl_DeleteThreadExitHandler(proc, clientData) Tcl_ExitProc * proc; @@ -2715,7 +2745,7 @@ Tcl_DeleteThreadExitHandler(proc, clientData) (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData); } -/* Slot 281 */ +/* Slot 284 */ void Tcl_DiscardResult(statePtr) Tcl_SavedResult * statePtr; @@ -2723,7 +2753,7 @@ Tcl_DiscardResult(statePtr) (tclStubsPtr->tcl_DiscardResult)(statePtr); } -/* Slot 282 */ +/* Slot 285 */ int Tcl_EvalEx(interp, script, numBytes, flags) Tcl_Interp * interp; @@ -2734,7 +2764,7 @@ Tcl_EvalEx(interp, script, numBytes, flags) return (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags); } -/* Slot 283 */ +/* Slot 286 */ int Tcl_EvalObjv(interp, objc, objv, flags) Tcl_Interp * interp; @@ -2745,7 +2775,7 @@ Tcl_EvalObjv(interp, objc, objv, flags) return (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags); } -/* Slot 284 */ +/* Slot 287 */ int Tcl_EvalObjEx(interp, objPtr, flags) Tcl_Interp * interp; @@ -2755,7 +2785,7 @@ Tcl_EvalObjEx(interp, objPtr, flags) return (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags); } -/* Slot 285 */ +/* Slot 288 */ void Tcl_ExitThread(status) int status; @@ -2763,7 +2793,7 @@ Tcl_ExitThread(status) (tclStubsPtr->tcl_ExitThread)(status); } -/* Slot 286 */ +/* Slot 289 */ int Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) Tcl_Interp * interp; @@ -2781,7 +2811,7 @@ Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, s return (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr); } -/* Slot 287 */ +/* Slot 290 */ char * Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr) Tcl_Encoding encoding; @@ -2792,14 +2822,14 @@ Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr) return (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr); } -/* Slot 288 */ +/* Slot 291 */ void Tcl_FinalizeThread() { (tclStubsPtr->tcl_FinalizeThread)(); } -/* Slot 289 */ +/* Slot 292 */ void Tcl_FinalizeNotifier(clientData) ClientData clientData; @@ -2807,7 +2837,7 @@ Tcl_FinalizeNotifier(clientData) (tclStubsPtr->tcl_FinalizeNotifier)(clientData); } -/* Slot 290 */ +/* Slot 293 */ void Tcl_FreeEncoding(encoding) Tcl_Encoding encoding; @@ -2815,14 +2845,14 @@ Tcl_FreeEncoding(encoding) (tclStubsPtr->tcl_FreeEncoding)(encoding); } -/* Slot 291 */ +/* Slot 294 */ Tcl_ThreadId Tcl_GetCurrentThread() { return (tclStubsPtr->tcl_GetCurrentThread)(); } -/* Slot 292 */ +/* Slot 295 */ Tcl_Encoding Tcl_GetEncoding(interp, name) Tcl_Interp * interp; @@ -2831,7 +2861,7 @@ Tcl_GetEncoding(interp, name) return (tclStubsPtr->tcl_GetEncoding)(interp, name); } -/* Slot 293 */ +/* Slot 296 */ char * Tcl_GetEncodingName(encoding) Tcl_Encoding encoding; @@ -2839,7 +2869,7 @@ Tcl_GetEncodingName(encoding) return (tclStubsPtr->tcl_GetEncodingName)(encoding); } -/* Slot 294 */ +/* Slot 297 */ void Tcl_GetEncodingNames(interp) Tcl_Interp * interp; @@ -2847,7 +2877,7 @@ Tcl_GetEncodingNames(interp) (tclStubsPtr->tcl_GetEncodingNames)(interp); } -/* Slot 295 */ +/* Slot 298 */ int Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) Tcl_Interp * interp; @@ -2861,7 +2891,7 @@ Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr return (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr); } -/* Slot 296 */ +/* Slot 299 */ VOID * Tcl_GetThreadData(keyPtr, size) Tcl_ThreadDataKey * keyPtr; @@ -2870,7 +2900,7 @@ Tcl_GetThreadData(keyPtr, size) return (tclStubsPtr->tcl_GetThreadData)(keyPtr, size); } -/* Slot 297 */ +/* Slot 300 */ Tcl_Obj * Tcl_GetVar2Ex(interp, part1, part2, flags) Tcl_Interp * interp; @@ -2881,14 +2911,14 @@ Tcl_GetVar2Ex(interp, part1, part2, flags) return (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags); } -/* Slot 298 */ +/* Slot 301 */ ClientData Tcl_InitNotifier() { return (tclStubsPtr->tcl_InitNotifier)(); } -/* Slot 299 */ +/* Slot 302 */ void Tcl_MutexLock(mutexPtr) Tcl_Mutex * mutexPtr; @@ -2896,7 +2926,7 @@ Tcl_MutexLock(mutexPtr) (tclStubsPtr->tcl_MutexLock)(mutexPtr); } -/* Slot 300 */ +/* Slot 303 */ void Tcl_MutexUnlock(mutexPtr) Tcl_Mutex * mutexPtr; @@ -2904,7 +2934,7 @@ Tcl_MutexUnlock(mutexPtr) (tclStubsPtr->tcl_MutexUnlock)(mutexPtr); } -/* Slot 301 */ +/* Slot 304 */ void Tcl_ConditionNotify(condPtr) Tcl_Condition * condPtr; @@ -2912,7 +2942,7 @@ Tcl_ConditionNotify(condPtr) (tclStubsPtr->tcl_ConditionNotify)(condPtr); } -/* Slot 302 */ +/* Slot 305 */ void Tcl_ConditionWait(condPtr, mutexPtr, timePtr) Tcl_Condition * condPtr; @@ -2922,7 +2952,7 @@ Tcl_ConditionWait(condPtr, mutexPtr, timePtr) (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr); } -/* Slot 303 */ +/* Slot 306 */ int Tcl_NumUtfChars(src, len) CONST char * src; @@ -2931,7 +2961,7 @@ Tcl_NumUtfChars(src, len) return (tclStubsPtr->tcl_NumUtfChars)(src, len); } -/* Slot 304 */ +/* Slot 307 */ int Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) Tcl_Channel channel; @@ -2942,7 +2972,7 @@ Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) return (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag); } -/* Slot 305 */ +/* Slot 308 */ void Tcl_RestoreResult(interp, statePtr) Tcl_Interp * interp; @@ -2951,7 +2981,7 @@ Tcl_RestoreResult(interp, statePtr) (tclStubsPtr->tcl_RestoreResult)(interp, statePtr); } -/* Slot 306 */ +/* Slot 309 */ void Tcl_SaveResult(interp, statePtr) Tcl_Interp * interp; @@ -2960,7 +2990,7 @@ Tcl_SaveResult(interp, statePtr) (tclStubsPtr->tcl_SaveResult)(interp, statePtr); } -/* Slot 307 */ +/* Slot 310 */ int Tcl_SetSystemEncoding(interp, name) Tcl_Interp * interp; @@ -2969,7 +2999,7 @@ Tcl_SetSystemEncoding(interp, name) return (tclStubsPtr->tcl_SetSystemEncoding)(interp, name); } -/* Slot 308 */ +/* Slot 311 */ Tcl_Obj * Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) Tcl_Interp * interp; @@ -2981,7 +3011,7 @@ Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) return (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags); } -/* Slot 309 */ +/* Slot 312 */ void Tcl_ThreadAlert(threadId) Tcl_ThreadId threadId; @@ -2989,7 +3019,7 @@ Tcl_ThreadAlert(threadId) (tclStubsPtr->tcl_ThreadAlert)(threadId); } -/* Slot 310 */ +/* Slot 313 */ void Tcl_ThreadQueueEvent(threadId, evPtr, position) Tcl_ThreadId threadId; @@ -2999,7 +3029,7 @@ Tcl_ThreadQueueEvent(threadId, evPtr, position) (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position); } -/* Slot 311 */ +/* Slot 314 */ Tcl_UniChar Tcl_UniCharAtIndex(src, index) CONST char * src; @@ -3008,7 +3038,7 @@ Tcl_UniCharAtIndex(src, index) return (tclStubsPtr->tcl_UniCharAtIndex)(src, index); } -/* Slot 312 */ +/* Slot 315 */ Tcl_UniChar Tcl_UniCharToLower(ch) int ch; @@ -3016,7 +3046,7 @@ Tcl_UniCharToLower(ch) return (tclStubsPtr->tcl_UniCharToLower)(ch); } -/* Slot 313 */ +/* Slot 316 */ Tcl_UniChar Tcl_UniCharToTitle(ch) int ch; @@ -3024,7 +3054,7 @@ Tcl_UniCharToTitle(ch) return (tclStubsPtr->tcl_UniCharToTitle)(ch); } -/* Slot 314 */ +/* Slot 317 */ Tcl_UniChar Tcl_UniCharToUpper(ch) int ch; @@ -3032,7 +3062,7 @@ Tcl_UniCharToUpper(ch) return (tclStubsPtr->tcl_UniCharToUpper)(ch); } -/* Slot 315 */ +/* Slot 318 */ int Tcl_UniCharToUtf(ch, buf) int ch; @@ -3041,7 +3071,7 @@ Tcl_UniCharToUtf(ch, buf) return (tclStubsPtr->tcl_UniCharToUtf)(ch, buf); } -/* Slot 316 */ +/* Slot 319 */ char * Tcl_UtfAtIndex(src, index) CONST char * src; @@ -3050,7 +3080,7 @@ Tcl_UtfAtIndex(src, index) return (tclStubsPtr->tcl_UtfAtIndex)(src, index); } -/* Slot 317 */ +/* Slot 320 */ int Tcl_UtfCharComplete(src, len) CONST char * src; @@ -3059,7 +3089,7 @@ Tcl_UtfCharComplete(src, len) return (tclStubsPtr->tcl_UtfCharComplete)(src, len); } -/* Slot 318 */ +/* Slot 321 */ int Tcl_UtfBackslash(src, readPtr, dst) CONST char * src; @@ -3069,7 +3099,7 @@ Tcl_UtfBackslash(src, readPtr, dst) return (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst); } -/* Slot 319 */ +/* Slot 322 */ char * Tcl_UtfFindFirst(src, ch) CONST char * src; @@ -3078,7 +3108,7 @@ Tcl_UtfFindFirst(src, ch) return (tclStubsPtr->tcl_UtfFindFirst)(src, ch); } -/* Slot 320 */ +/* Slot 323 */ char * Tcl_UtfFindLast(src, ch) CONST char * src; @@ -3087,9 +3117,7 @@ Tcl_UtfFindLast(src, ch) return (tclStubsPtr->tcl_UtfFindLast)(src, ch); } -/* Slot 321 is reserved */ -/* Slot 322 is reserved */ -/* Slot 323 */ +/* Slot 324 */ char * Tcl_UtfNext(src) CONST char * src; @@ -3097,7 +3125,7 @@ Tcl_UtfNext(src) return (tclStubsPtr->tcl_UtfNext)(src); } -/* Slot 324 */ +/* Slot 325 */ char * Tcl_UtfPrev(src, start) CONST char * src; @@ -3106,7 +3134,7 @@ Tcl_UtfPrev(src, start) return (tclStubsPtr->tcl_UtfPrev)(src, start); } -/* Slot 325 */ +/* Slot 326 */ int Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) Tcl_Interp * interp; @@ -3124,7 +3152,7 @@ Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, s return (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr); } -/* Slot 326 */ +/* Slot 327 */ char * Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr) Tcl_Encoding encoding; @@ -3135,7 +3163,7 @@ Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr) return (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr); } -/* Slot 327 */ +/* Slot 328 */ int Tcl_UtfToLower(src) char * src; @@ -3143,7 +3171,7 @@ Tcl_UtfToLower(src) return (tclStubsPtr->tcl_UtfToLower)(src); } -/* Slot 328 */ +/* Slot 329 */ int Tcl_UtfToTitle(src) char * src; @@ -3151,7 +3179,7 @@ Tcl_UtfToTitle(src) return (tclStubsPtr->tcl_UtfToTitle)(src); } -/* Slot 329 */ +/* Slot 330 */ int Tcl_UtfToUniChar(src, chPtr) CONST char * src; @@ -3160,7 +3188,7 @@ Tcl_UtfToUniChar(src, chPtr) return (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr); } -/* Slot 330 */ +/* Slot 331 */ int Tcl_UtfToUpper(src) char * src; @@ -3168,7 +3196,7 @@ Tcl_UtfToUpper(src) return (tclStubsPtr->tcl_UtfToUpper)(src); } -/* Slot 331 */ +/* Slot 332 */ int Tcl_WriteChars(chan, src, srcLen) Tcl_Channel chan; @@ -3178,7 +3206,7 @@ Tcl_WriteChars(chan, src, srcLen) return (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen); } -/* Slot 332 */ +/* Slot 333 */ int Tcl_WriteObj(chan, objPtr) Tcl_Channel chan; diff --git a/tests/pkg.test b/tests/pkg.test index 2fac347..acc5f1c 100644 --- a/tests/pkg.test +++ b/tests/pkg.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: pkg.test,v 1.1.2.2.2.1 1999/03/08 20:14:14 stanton Exp $ +# RCS: @(#) $Id: pkg.test,v 1.1.2.2.2.2 1999/03/10 06:41:53 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -604,16 +604,16 @@ test pkg-7.10 {Tcl_PkgPresent procedure, unknown package} { } {1 {package t 2.4 is not present}} test pkg-7.11 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present} msg] $msg -} {1 {wrong # args: must be "package present ?-exact? package ?version?"}} +} {1 {wrong # args: should be "package present ?-exact? package ?version?"}} test pkg-7.12 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present a b c} msg] $msg -} {1 {wrong # args: must be "package present ?-exact? package ?version?"}} +} {1 {wrong # args: should be "package present ?-exact? package ?version?"}} test pkg-7.13 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present -exact a b c} msg] $msg -} {1 {wrong # args: must be "package present ?-exact? package ?version?"}} +} {1 {wrong # args: should be "package present ?-exact? package ?version?"}} test pkg-7.14 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present -bs a b} msg] $msg -} {1 {wrong # args: must be "package present ?-exact? package ?version?"}} +} {1 {wrong # args: should be "package present ?-exact? package ?version?"}} test pkg-7.15 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present x a.b} msg] $msg } {1 {expected version number but got "a.b"}} @@ -622,10 +622,10 @@ test pkg-7.16 {Tcl_PackageCmd procedure, "present" option} { } {1 {expected version number but got "a.b"}} test pkg-7.17 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present -exact x} msg] $msg -} {1 {wrong # args: must be "package present ?-exact? package ?version?"}} +} {1 {wrong # args: should be "package present ?-exact? package ?version?"}} test pkg-7.18 {Tcl_PackageCmd procedure, "present" option} { list [catch {package present -exact} msg] $msg -} {1 {wrong # args: must be "package present ?-exact? package ?version?"}} +} {1 {wrong # args: should be "package present ?-exact? package ?version?"}} set auto_path $oldPath package unknown $oldPkgUnknown diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 1686fa0..072044e 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: genStubs.tcl,v 1.1.4.1 1999/03/08 20:14:15 stanton Exp $ +# RCS: @(#) $Id: genStubs.tcl,v 1.1.4.2 1999/03/10 06:41:53 stanton Exp $ namespace eval genStubs { # libraryName -- @@ -214,7 +214,7 @@ proc genStubs::addPlatformGuard {plat text} { return "#ifdef __WIN32__\n${text}#endif /* __WIN32__ */\n" } unix { - return "#if !defined(__WIN32__) && !defined(MAC_TCL)\n${text}#endif /* UNIX */\n" + return "#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */\n${text}#endif /* UNIX */\n" } mac { return "#ifdef MAC_TCL\n${text}#endif /* MAC_TCL */\n" @@ -226,8 +226,8 @@ proc genStubs::addPlatformGuard {plat text} { # genStubs::emitSlots -- # # Generate the stub table slots for the given interface. If there -# are no platform specific slots, then one table is generated for -# all platforms, otherwise one table is generated for each platform. +# are no generic slots, then one table is generated for each +# platform, otherwise one table is generated for all platforms. # # Arguments: # name The name of the interface being emitted. @@ -240,43 +240,7 @@ proc genStubs::emitSlots {name textVar} { variable stubs upvar $textVar text - set lastNum -1 - if {[info exists stubs($name,generic,lastNum)]} { - set lastNum $stubs($name,generic,lastNum) - } - set output 0 - foreach plat {win unix mac} { - if {[info exists stubs($name,$plat,lastNum)]} { - set num $stubs($name,$plat,lastNum) - if {$num < $lastNum} { - set num $lastNum - } - set temp "" - for {set i 0} {$i <= $num} {incr i} { - if {[info exists stubs($name,$plat,$i)]} { - if {[info exists stubs($name,generic,$i)]} { - puts stderr "platform entry duplicates generic entry: $i" - } - append temp [makeSlot $stubs($name,$plat,$i) $i] - } elseif {[info exists stubs($name,generic,$i)]} { - append temp [makeSlot $stubs($name,generic,$i) $i] - } else { - append temp " void *reserved$i;\n" - } - } - append text [addPlatformGuard $plat $temp] - set output 1 - } - } - if {!$output} { - for {set i 0} {$i <= $lastNum} {incr i} { - if {[info exists stubs($name,generic,$i)]} { - append text [makeSlot $stubs($name,generic,$i) $i] - } else { - append text " void *reserved$i;\n" - } - } - } + forAllStubs $name makeSlot 1 text {" void *reserved$i;\n"} return } @@ -532,13 +496,14 @@ proc genStubs::makeStub {name decl index} { # Generate the stub table entry for a function. # # Arguments: +# name The interface name. # decl The function declaration. # index The slot index for this function. # # Results: # Returns the formatted table entry. -proc genStubs::makeSlot {decl index} { +proc genStubs::makeSlot {name decl index} { lassign $decl rtype fname args set lfname [string tolower [string index $fname 0]] @@ -571,6 +536,23 @@ proc genStubs::makeSlot {decl index} { return $text } +# genStubs::makeInit -- +# +# Generate the prototype for a function. +# +# Arguments: +# name The interface name. +# decl The function declaration. +# index The slot index for this function. +# +# Results: +# Returns the formatted declaration string. + +proc genStubs::makeInit {name decl index} { + append text " " [lindex $decl 1] ", /* " $index " */\n" + return $text +} + # genStubs::forAllStubs -- # # This function iterates over all of the platforms and invokes @@ -582,29 +564,74 @@ proc genStubs::makeSlot {decl index} { # slotProc The proc to invoke to handle the slot. It will # have the interface name, the declaration, and # the index appended. +# onAll If 1, emit the skip string even if there are +# definitions for one or more platforms. # textVar The variable to use for output. +# skipString The string to emit if a slot is skipped. This +# string will be subst'ed in the loop so "$i" can +# be used to substitute the index value. # # Results: # None. -proc genStubs::forAllStubs {name slotProc textVar} { +proc genStubs::forAllStubs {name slotProc onAll textVar \ + {skipString {"/* Slot $i is reserved */\n"}}} { variable stubs upvar $textVar text - foreach plat {generic win unix mac} { - if {[info exists stubs($name,$plat,lastNum)]} { - set lastNum $stubs($name,$plat,lastNum) - set temp {} - for {set i 0} {$i <= $lastNum} {incr i} { - if {![info exists stubs($name,$plat,$i)]} { - append temp "/* Slot $i is reserved */\n" - } else { - append temp [$slotProc $name $stubs($name,$plat,$i) $i] + set plats [array names stubs $name,*,lastNum] + if {[info exists stubs($name,generic,lastNum)]} { + # Emit integrated stubs block + set lastNum -1 + foreach plat [array names stubs $name,*,lastNum] { + if {$stubs($plat) > $lastNum} { + set lastNum $stubs($plat) + } + } + for {set i 0} {$i <= $lastNum} {incr i} { + set slots [array names stubs $name,*,$i] + set emit 0 + if {[info exists stubs($name,generic,$i)]} { + if {[llength $slots] > 1} { + puts stderr "platform entry duplicates generic entry: $i" + } + append text [$slotProc $name $stubs($name,generic,$i) $i] + set emit 1 + } elseif {[llength $slots] > 0} { + foreach plat {unix win mac} { + if {[info exists stubs($name,$plat,$i)]} { + append text [addPlatformGuard $plat \ + [$slotProc $name $stubs($name,$plat,$i) $i]] + set emit 1 + } elseif {$onAll} { + append text [eval {addPlatformGuard $plat} $skipString] + set emit 1 + } + } + } + if {$emit == 0} { + eval {append text} $skipString + } + } + + } else { + # Emit separate stubs blocks per platform + foreach plat {unix win mac} { + if {[info exists stubs($name,$plat,lastNum)]} { + set lastNum $stubs($name,$plat,lastNum) + set temp {} + for {set i 0} {$i <= $lastNum} {incr i} { + if {![info exists stubs($name,$plat,$i)]} { + eval {append temp} $skipString + } else { + append temp [$slotProc $name $stubs($name,$plat,$i) $i] + } } + append text [addPlatformGuard $plat $temp] } - append text [addPlatformGuard $plat $temp] } } + } # genStubs::emitDeclarations -- @@ -623,7 +650,7 @@ proc genStubs::emitDeclarations {name textVar} { upvar $textVar text append text "\n/*\n * Exported function declarations:\n */\n\n" - forAllStubs $name makeDecl text + forAllStubs $name makeDecl 0 text return } @@ -647,7 +674,7 @@ proc genStubs::emitMacros {name textVar} { append text "\n#if defined(USE_${upName}_STUBS) && !defined(USE_${upName}_STUB_PROCS)\n" append text "\n/*\n * Inline function declarations:\n */\n\n" - forAllStubs $name makeMacro text + forAllStubs $name makeMacro 0 text append text "\n#endif /* defined(USE_${upName}_STUBS) && !defined(USE_${upName}_STUB_PROCS) */\n" return @@ -713,13 +740,13 @@ proc genStubs::emitStubs {name} { variable outDir append text "\n/*\n * Exported stub functions:\n */\n\n" - forAllStubs $name makeStub text + forAllStubs $name makeStub 0 text rewriteFile [file join $outDir ${name}Stubs.c] $text return } -# genStubs::makeInit -- +# genStubs::emitInit -- # # Generate the table initializers for an interface. # @@ -730,7 +757,7 @@ proc genStubs::emitStubs {name} { # Results: # Returns the formatted output. -proc genStubs::makeInit {name textVar} { +proc genStubs::emitInit {name textVar} { variable stubs variable hooks upvar $textVar text @@ -749,53 +776,14 @@ proc genStubs::makeInit {name textVar} { append text " NULL,\n" } - set lastNum -1 - if {[info exists stubs($name,generic,lastNum)]} { - set lastNum $stubs($name,generic,lastNum) - } - set output 0 - foreach plat {win unix mac} { - if {[info exists stubs($name,$plat,lastNum)]} { - set num $stubs($name,$plat,lastNum) - if {$num < $lastNum} { - set num $lastNum - } - set temp "" - for {set i 0} {$i <= $num} {incr i} { - append temp " " - if {[info exists stubs($name,$plat,$i)]} { - if {[info exists stubs($name,generic,$i)]} { - puts stderr "platform entry duplicates generic entry: $i" - } - append temp [lindex $stubs($name,$plat,$i) 1] - } elseif {[info exists stubs($name,generic,$i)]} { - append temp [lindex $stubs($name,generic,$i) 1] - } else { - append temp "NULL" - } - append temp ", /* $i */\n" - } - append text [addPlatformGuard $plat $temp] - set output 1 - } - } - if {!$output} { - for {set i 0} {$i <= $lastNum} {incr i} { - append text " " - if {[info exists stubs($name,generic,$i)]} { - append text [lindex $stubs($name,generic,$i) 1] - } else { - append text "NULL" - } - append text ", /* $i */\n" - } - } + forAllStubs $name makeInit 1 text {" NULL, /* $i */\n"} + append text "\};\n\n" append text "${capName}Stubs *${name}StubsPtr = &${name}Stubs;\n" return } -# genStubs::emitInit -- +# genStubs::emitInits -- # # This function emits the body of the StubInit.c file for # the specified interface. @@ -806,14 +794,14 @@ proc genStubs::makeInit {name textVar} { # Results: # None. -proc genStubs::emitInit {} { +proc genStubs::emitInits {} { variable hooks variable outDir variable libraryName variable interfaces foreach name [lsort [array names interfaces]] { - makeInit $name text + emitInit $name text } @@ -865,7 +853,7 @@ proc genStubs::init {} { emitStubs $name } - emitInit + emitInits } # lassign -- diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index f1d7361..211619a 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPort.h,v 1.1.2.4.2.1 1999/03/08 20:14:17 stanton Exp $ + * RCS: @(#) $Id: tclUnixPort.h,v 1.1.2.4.2.2 1999/03/10 06:41:54 stanton Exp $ */ #ifndef _TCLUNIXPORT @@ -469,8 +469,6 @@ EXTERN int TclpLstat _ANSI_ARGS_((CONST char *path, EXTERN int TclpStat _ANSI_ARGS_((CONST char *path, struct stat *buf)); -#include "tclIntPlatDecls.h" - /* * Platform specific mutex definition used by memory allocators. * These mutexes are statically allocated and explicitly initialized. @@ -491,4 +489,7 @@ typedef int TclpMutex; #define TclpMutexUnlock(a) #endif /* TCL_THREADS */ +#include "tclPlatDecls.h" +#include "tclIntPlatDecls.h" + #endif /* _TCLUNIXPORT */ diff --git a/win/tclWinChan.c b/win/tclWinChan.c index a9bf113..376d2a9 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinChan.c,v 1.1.2.4 1999/02/26 02:19:23 redman Exp $ + * RCS: @(#) $Id: tclWinChan.c,v 1.1.2.4.2.1 1999/03/10 06:41:54 stanton Exp $ */ #include "tclWinInt.h" @@ -443,7 +443,8 @@ FileSeekProc(instanceData, offset, mode, errorCodePtr) newPos = SetFilePointer(infoPtr->handle, offset, NULL, moveMethod); if (newPos == 0xFFFFFFFF) { TclWinConvertError(GetLastError()); - return -1; + *errorCodePtr = errno; + return -1; } return newPos; } diff --git a/win/tclWinInt.h b/win/tclWinInt.h index 8333b24..7b409bf 100644 --- a/win/tclWinInt.h +++ b/win/tclWinInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinInt.h,v 1.1.2.3.2.1 1999/03/08 20:14:18 stanton Exp $ + * RCS: @(#) $Id: tclWinInt.h,v 1.1.2.3.2.2 1999/03/10 06:41:54 stanton Exp $ */ #ifndef _TCLWININT @@ -94,17 +94,16 @@ typedef struct TclWinProcs { EXTERN TclWinProcs *tclWinProcs; EXTERN Tcl_Encoding tclWinTCharEncoding; +/* + * Declarations of functions that are not accessible by way of the + * stubs table. + */ + EXTERN TclPlatformType *TclWinGetPlatform(void); EXTERN int TclWinGetPlatformId(void); EXTERN void TclWinInit(HINSTANCE hInst); -EXTERN char * TclWinNoBackslash(char *path); EXTERN void TclWinSetInterfaces(int); -EXTERN int TclWinSynchSpawn(void *args, int type, void **trans, - Tcl_Pid *pidPtr); -EXTERN TCHAR * Tcl_WinUtfToTChar(CONST char *string, int len, - Tcl_DString *dsPtr); -EXTERN char * Tcl_WinTCharToUtf(CONST TCHAR *string, int len, - Tcl_DString *dsPtr); + # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT -- cgit v0.12