diff options
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 880 |
1 files changed, 444 insertions, 436 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 4bef701..902f528 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,11 +8,12 @@ * 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 1999/03/04 01:01:59 stanton Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.3 1999/03/10 05:52:50 stanton Exp $ */ #include "tclInt.h" #include "tclPort.h" +#include "tclCompile.h" /* * Remove macros that will interfere with the definitions below. @@ -45,284 +46,312 @@ 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_InputBlocked, /* 152 */ - Tcl_InputBuffered, /* 153 */ - Tcl_InterpDeleted, /* 154 */ - Tcl_IsSafe, /* 155 */ - Tcl_InvalidateStringRep, /* 156 */ - Tcl_JoinPath, /* 157 */ - Tcl_LinkVar, /* 158 */ - Tcl_ListObjAppendList, /* 159 */ - Tcl_ListObjAppendElement, /* 160 */ - Tcl_ListObjGetElements, /* 161 */ - Tcl_ListObjIndex, /* 162 */ - Tcl_ListObjLength, /* 163 */ - Tcl_ListObjReplace, /* 164 */ - Tcl_MakeFileChannel, /* 165 */ - Tcl_MakeSafe, /* 166 */ - Tcl_MakeTcpClientChannel, /* 167 */ - Tcl_Merge, /* 168 */ - Tcl_NewBooleanObj, /* 169 */ - Tcl_NewByteArrayObj, /* 170 */ - Tcl_NewDoubleObj, /* 171 */ - Tcl_NewIntObj, /* 172 */ - Tcl_NewListObj, /* 173 */ - Tcl_NewLongObj, /* 174 */ - Tcl_NewObj, /* 175 */ - Tcl_NewStringObj, /* 176 */ - Tcl_NextHashEntry, /* 177 */ - Tcl_NotifyChannel, /* 178 */ - Tcl_ObjGetVar2, /* 179 */ - Tcl_ObjSetVar2, /* 180 */ - Tcl_OpenCommandChannel, /* 181 */ - Tcl_OpenFileChannel, /* 182 */ - Tcl_OpenTcpClient, /* 183 */ - Tcl_OpenTcpServer, /* 184 */ - panic, /* 185 */ - panicVA, /* 186 */ - Tcl_ParseVar, /* 187 */ - Tcl_PkgPresent, /* 188 */ - Tcl_PkgPresentEx, /* 189 */ - Tcl_PkgProvide, /* 190 */ - Tcl_PkgProvideEx, /* 191 */ - Tcl_PkgRequire, /* 192 */ - Tcl_PkgRequireEx, /* 193 */ - Tcl_PosixError, /* 194 */ - Tcl_Preserve, /* 195 */ - Tcl_PrintDouble, /* 196 */ - Tcl_PutEnv, /* 197 */ - Tcl_QueueEvent, /* 198 */ - Tcl_Read, /* 199 */ - Tcl_Realloc, /* 200 */ - Tcl_ReapDetachedProcs, /* 201 */ - Tcl_RecordAndEval, /* 202 */ - Tcl_RecordAndEvalObj, /* 203 */ - Tcl_RegExpCompile, /* 204 */ - Tcl_RegExpExec, /* 205 */ - Tcl_RegExpMatch, /* 206 */ - Tcl_RegExpRange, /* 207 */ - Tcl_RegisterChannel, /* 208 */ - Tcl_RegisterObjType, /* 209 */ - Tcl_Release, /* 210 */ - Tcl_ResetResult, /* 211 */ - Tcl_ScanCountedElement, /* 212 */ - Tcl_ScanElement, /* 213 */ - Tcl_Seek, /* 214 */ - Tcl_ServiceAll, /* 215 */ - Tcl_ServiceEvent, /* 216 */ - Tcl_SetAssocData, /* 217 */ - Tcl_SetBooleanObj, /* 218 */ - Tcl_SetByteArrayLength, /* 219 */ - Tcl_SetByteArrayObj, /* 220 */ - Tcl_SetChannelBufferSize, /* 221 */ - Tcl_SetChannelOption, /* 222 */ - Tcl_SetCommandInfo, /* 223 */ - Tcl_SetDoubleObj, /* 224 */ - Tcl_SetErrno, /* 225 */ - Tcl_SetErrorCode, /* 226 */ - Tcl_SetErrorCodeVA, /* 227 */ - Tcl_SetIntObj, /* 228 */ - Tcl_SetListObj, /* 229 */ - Tcl_SetLongObj, /* 230 */ - Tcl_SetMaxBlockTime, /* 231 */ - Tcl_SetObjErrorCode, /* 232 */ - Tcl_SetObjLength, /* 233 */ - Tcl_SetObjResult, /* 234 */ - Tcl_SetPanicProc, /* 235 */ - Tcl_SetRecursionLimit, /* 236 */ - Tcl_SetResult, /* 237 */ - Tcl_SetServiceMode, /* 238 */ - Tcl_SetStdChannel, /* 239 */ - Tcl_SetStringObj, /* 240 */ - Tcl_SetTimer, /* 241 */ - Tcl_SetVar, /* 242 */ - Tcl_SetVar2, /* 243 */ - Tcl_SignalId, /* 244 */ - Tcl_SignalMsg, /* 245 */ - Tcl_Sleep, /* 246 */ - Tcl_SourceRCFile, /* 247 */ - Tcl_SplitList, /* 248 */ - Tcl_SplitPath, /* 249 */ - Tcl_StaticPackage, /* 250 */ - Tcl_StringMatch, /* 251 */ - Tcl_Tell, /* 252 */ - Tcl_TraceVar, /* 253 */ - Tcl_TraceVar2, /* 254 */ - Tcl_TranslateFileName, /* 255 */ - Tcl_Ungets, /* 256 */ - Tcl_UnlinkVar, /* 257 */ - Tcl_UnregisterChannel, /* 258 */ - Tcl_UnsetVar, /* 259 */ - Tcl_UnsetVar2, /* 260 */ - Tcl_UntraceVar, /* 261 */ - Tcl_UntraceVar2, /* 262 */ - Tcl_UpdateLinkedVar, /* 263 */ - Tcl_UpVar, /* 264 */ - Tcl_UpVar2, /* 265 */ + 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_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_VarEval, /* 267 */ - Tcl_VarEvalVA, /* 268 */ - Tcl_VarTraceInfo, /* 269 */ - Tcl_VarTraceInfo2, /* 270 */ - Tcl_WaitForEvent, /* 271 */ - Tcl_WaitPid, /* 272 */ - Tcl_Write, /* 273 */ - Tcl_WrongNumArgs, /* 274 */ + 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 */ }; -extern TclStubs *tclStubsPtr = &tclStubs; +TclStubs *tclStubsPtr = &tclStubs; TclIntStubs tclIntStubs = { TCL_STUB_MAGIC, @@ -349,141 +378,138 @@ TclIntStubs tclIntStubs = { TclFileDeleteCmd, /* 19 */ TclFileMakeDirsCmd, /* 20 */ TclFileRenameCmd, /* 21 */ - TclFinalizeCompExecEnv, /* 22 */ - TclFinalizeEnvironment, /* 23 */ - TclFinalizeExecEnv, /* 24 */ - TclFindElement, /* 25 */ - TclFindProc, /* 26 */ - TclFormatInt, /* 27 */ - TclFreePackageInfo, /* 28 */ - TclGetCwd, /* 29 */ - TclGetDate, /* 30 */ - TclGetDefaultStdChannel, /* 31 */ - TclGetElementOfIndexedArray, /* 32 */ - TclGetEnv, /* 33 */ - TclGetExtension, /* 34 */ - TclGetFrame, /* 35 */ - TclGetInterpProc, /* 36 */ - TclGetIntForIndex, /* 37 */ - TclGetIndexedScalar, /* 38 */ - TclGetLong, /* 39 */ - TclGetLoadedPackages, /* 40 */ - TclGetNamespaceForQualName, /* 41 */ - TclGetObjInterpProc, /* 42 */ - TclGetOpenMode, /* 43 */ - TclGetOriginalCommand, /* 44 */ - TclGetUserHome, /* 45 */ - TclGlobalInvoke, /* 46 */ - TclGuessPackageName, /* 47 */ - TclHideUnsafeCommands, /* 48 */ - TclInExit, /* 49 */ - TclIncrElementOfIndexedArray, /* 50 */ - TclIncrIndexedScalar, /* 51 */ - TclIncrVar2, /* 52 */ - TclInitCompiledLocals, /* 53 */ - TclInitNamespaces, /* 54 */ - TclInterpInit, /* 55 */ - TclInvoke, /* 56 */ - TclInvokeObjectCommand, /* 57 */ - TclInvokeStringCommand, /* 58 */ - TclIsProc, /* 59 */ - TclLoadFile, /* 60 */ - TclLooksLikeInt, /* 61 */ - TclLookupVar, /* 62 */ - TclMatchFiles, /* 63 */ - TclNeedSpace, /* 64 */ - TclNewProcBodyObj, /* 65 */ - TclObjCommandComplete, /* 66 */ - TclObjInterpProc, /* 67 */ - TclObjInvoke, /* 68 */ - TclObjInvokeGlobal, /* 69 */ - TclOpenFileChannelDeleteProc, /* 70 */ - TclOpenFileChannelInsertProc, /* 71 */ - TclpAccess, /* 72 */ - TclpAlloc, /* 73 */ - TclpCopyFile, /* 74 */ - TclpCopyDirectory, /* 75 */ - TclpCreateDirectory, /* 76 */ - TclpDeleteFile, /* 77 */ - TclpFree, /* 78 */ - TclpGetClicks, /* 79 */ - TclpGetSeconds, /* 80 */ - TclpGetTime, /* 81 */ - TclpGetTimeZone, /* 82 */ - TclpListVolumes, /* 83 */ - TclpOpenFileChannel, /* 84 */ - TclpRealloc, /* 85 */ - TclpRemoveDirectory, /* 86 */ - TclpRenameFile, /* 87 */ - TclParseBraces, /* 88 */ - TclParseNestedCmd, /* 89 */ - TclParseQuotes, /* 90 */ - TclPlatformInit, /* 91 */ - TclPrecTraceProc, /* 92 */ - TclPreventAliasLoop, /* 93 */ - TclPrintByteCodeObj, /* 94 */ - TclProcCleanupProc, /* 95 */ - TclProcCompileProc, /* 96 */ - TclProcDeleteProc, /* 97 */ - TclProcInterpProc, /* 98 */ - TclpStat, /* 99 */ - TclRenameCommand, /* 100 */ - TclResetShadowedCmdRefs, /* 101 */ - TclServiceIdle, /* 102 */ - TclSetElementOfIndexedArray, /* 103 */ - TclSetIndexedScalar, /* 104 */ - TclSetPreInitScript, /* 105 */ - TclSetupEnv, /* 106 */ - TclSockGetPort, /* 107 */ - TclSockMinimumBuffers, /* 108 */ - TclStat, /* 109 */ - TclStatDeleteProc, /* 110 */ - TclStatInsertProc, /* 111 */ - TclTeardownNamespace, /* 112 */ - TclUpdateReturnInfo, /* 113 */ - TclWordEnd, /* 114 */ - Tcl_AddInterpResolvers, /* 115 */ - Tcl_AppendExportList, /* 116 */ - Tcl_CreateNamespace, /* 117 */ - Tcl_DeleteNamespace, /* 118 */ - Tcl_Export, /* 119 */ - Tcl_FindCommand, /* 120 */ - Tcl_FindNamespace, /* 121 */ - Tcl_GetInterpResolvers, /* 122 */ - Tcl_GetNamespaceResolvers, /* 123 */ - Tcl_FindNamespaceVar, /* 124 */ - Tcl_ForgetImport, /* 125 */ - Tcl_GetCommandFromObj, /* 126 */ - Tcl_GetCommandFullName, /* 127 */ - Tcl_GetCurrentNamespace, /* 128 */ - Tcl_GetGlobalNamespace, /* 129 */ - Tcl_GetVariableFullName, /* 130 */ - Tcl_Import, /* 131 */ - Tcl_PopCallFrame, /* 132 */ - Tcl_PushCallFrame, /* 133 */ - Tcl_RemoveInterpResolvers, /* 134 */ - Tcl_SetNamespaceResolvers, /* 135 */ - TclCompileBreakCmd, /* 136 */ - TclCompileCatchCmd, /* 137 */ - TclCompileContinueCmd, /* 138 */ - TclCompileExprCmd, /* 139 */ - TclCompileForCmd, /* 140 */ - TclCompileForeachCmd, /* 141 */ - TclCompileIfCmd, /* 142 */ - TclCompileIncrCmd, /* 143 */ - TclCompileSetCmd, /* 144 */ - TclCompileWhileCmd, /* 145 */ - TclHasSockets, /* 146 */ - TclpGetDate, /* 147 */ - TclStrftime, /* 148 */ - TclpCheckStackSpace, /* 149 */ + TclFindElement, /* 22 */ + TclFindProc, /* 23 */ + TclFormatInt, /* 24 */ + TclFreePackageInfo, /* 25 */ + TclGetCwd, /* 26 */ + TclGetDate, /* 27 */ + TclGetDefaultStdChannel, /* 28 */ + TclGetElementOfIndexedArray, /* 29 */ + TclGetEnv, /* 30 */ + TclGetExtension, /* 31 */ + TclGetFrame, /* 32 */ + TclGetInterpProc, /* 33 */ + TclGetIntForIndex, /* 34 */ + TclGetIndexedScalar, /* 35 */ + TclGetLong, /* 36 */ + TclGetLoadedPackages, /* 37 */ + TclGetNamespaceForQualName, /* 38 */ + TclGetObjInterpProc, /* 39 */ + TclGetOpenMode, /* 40 */ + TclGetOriginalCommand, /* 41 */ + TclGetUserHome, /* 42 */ + TclGlobalInvoke, /* 43 */ + TclGuessPackageName, /* 44 */ + TclHideUnsafeCommands, /* 45 */ + TclInExit, /* 46 */ + TclIncrElementOfIndexedArray, /* 47 */ + TclIncrIndexedScalar, /* 48 */ + TclIncrVar2, /* 49 */ + TclInitCompiledLocals, /* 50 */ + TclInterpInit, /* 51 */ + TclInvoke, /* 52 */ + TclInvokeObjectCommand, /* 53 */ + TclInvokeStringCommand, /* 54 */ + TclIsProc, /* 55 */ + TclLoadFile, /* 56 */ + TclLooksLikeInt, /* 57 */ + TclLookupVar, /* 58 */ + TclMatchFiles, /* 59 */ + TclNeedSpace, /* 60 */ + TclNewProcBodyObj, /* 61 */ + TclObjCommandComplete, /* 62 */ + TclObjInterpProc, /* 63 */ + TclObjInvoke, /* 64 */ + TclObjInvokeGlobal, /* 65 */ + TclOpenFileChannelDeleteProc, /* 66 */ + TclOpenFileChannelInsertProc, /* 67 */ + TclpAccess, /* 68 */ + TclpAlloc, /* 69 */ + TclpCopyFile, /* 70 */ + TclpCopyDirectory, /* 71 */ + TclpCreateDirectory, /* 72 */ + TclpDeleteFile, /* 73 */ + TclpFree, /* 74 */ + TclpGetClicks, /* 75 */ + TclpGetSeconds, /* 76 */ + TclpGetTime, /* 77 */ + TclpGetTimeZone, /* 78 */ + TclpListVolumes, /* 79 */ + TclpOpenFileChannel, /* 80 */ + TclpRealloc, /* 81 */ + TclpRemoveDirectory, /* 82 */ + TclpRenameFile, /* 83 */ + TclParseBraces, /* 84 */ + TclParseNestedCmd, /* 85 */ + TclParseQuotes, /* 86 */ + TclPlatformInit, /* 87 */ + TclPrecTraceProc, /* 88 */ + TclPreventAliasLoop, /* 89 */ + TclPrintByteCodeObj, /* 90 */ + TclProcCleanupProc, /* 91 */ + TclProcCompileProc, /* 92 */ + TclProcDeleteProc, /* 93 */ + TclProcInterpProc, /* 94 */ + TclpStat, /* 95 */ + TclRenameCommand, /* 96 */ + TclResetShadowedCmdRefs, /* 97 */ + TclServiceIdle, /* 98 */ + TclSetElementOfIndexedArray, /* 99 */ + TclSetIndexedScalar, /* 100 */ + TclSetPreInitScript, /* 101 */ + TclSetupEnv, /* 102 */ + TclSockGetPort, /* 103 */ + TclSockMinimumBuffers, /* 104 */ + TclStat, /* 105 */ + TclStatDeleteProc, /* 106 */ + TclStatInsertProc, /* 107 */ + TclTeardownNamespace, /* 108 */ + TclUpdateReturnInfo, /* 109 */ + TclWordEnd, /* 110 */ + Tcl_AddInterpResolvers, /* 111 */ + Tcl_AppendExportList, /* 112 */ + Tcl_CreateNamespace, /* 113 */ + Tcl_DeleteNamespace, /* 114 */ + Tcl_Export, /* 115 */ + Tcl_FindCommand, /* 116 */ + Tcl_FindNamespace, /* 117 */ + Tcl_GetInterpResolvers, /* 118 */ + Tcl_GetNamespaceResolvers, /* 119 */ + Tcl_FindNamespaceVar, /* 120 */ + Tcl_ForgetImport, /* 121 */ + Tcl_GetCommandFromObj, /* 122 */ + Tcl_GetCommandFullName, /* 123 */ + Tcl_GetCurrentNamespace, /* 124 */ + Tcl_GetGlobalNamespace, /* 125 */ + Tcl_GetVariableFullName, /* 126 */ + Tcl_Import, /* 127 */ + Tcl_PopCallFrame, /* 128 */ + Tcl_PushCallFrame, /* 129 */ + Tcl_RemoveInterpResolvers, /* 130 */ + Tcl_SetNamespaceResolvers, /* 131 */ + TclHasSockets, /* 132 */ + TclpGetDate, /* 133 */ + TclStrftime, /* 134 */ + TclpCheckStackSpace, /* 135 */ }; -extern TclIntStubs *tclIntStubsPtr = &tclIntStubs; +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 */ + TclpCreateTempFile, /* 5 */ + TclpMakeFile, /* 6 */ + TclpOpenFile, /* 7 */ + TclUnixWaitForFile, /* 8 */ +#endif /* UNIX */ #ifdef __WIN32__ TclWinConvertError, /* 0 */ TclWinConvertWSAError, /* 1 */ @@ -494,31 +520,18 @@ TclIntPlatStubs tclIntPlatStubs = { TclWinNToHS, /* 6 */ TclWinSetSockOpt, /* 7 */ TclpGetPid, /* 8 */ - TclpFinalize, /* 9 */ - TclWinGetPlatformId, /* 10 */ - TclWinInit, /* 11 */ - TclWinSynchSpawn, /* 12 */ - TclGetAndDetachPids, /* 13 */ - TclpCloseFile, /* 14 */ - TclpCreateCommandChannel, /* 15 */ - TclpCreatePipe, /* 16 */ - TclpCreateProcess, /* 17 */ - TclpCreateTempFile, /* 18 */ - TclpGetTZName, /* 19 */ - TclpMakeFile, /* 20 */ - TclpOpenFile, /* 21 */ + TclWinGetPlatformId, /* 9 */ + TclWinSynchSpawn, /* 10 */ + TclGetAndDetachPids, /* 11 */ + TclpCloseFile, /* 12 */ + TclpCreateCommandChannel, /* 13 */ + TclpCreatePipe, /* 14 */ + TclpCreateProcess, /* 15 */ + TclpCreateTempFile, /* 16 */ + TclpGetTZName, /* 17 */ + TclpMakeFile, /* 18 */ + TclpOpenFile, /* 19 */ #endif /* __WIN32__ */ -#if !defined(__WIN32__) && !defined(MAC_TCL) - TclGetAndDetachPids, /* 0 */ - TclpCloseFile, /* 1 */ - TclpCreateCommandChannel, /* 2 */ - TclpCreatePipe, /* 3 */ - TclpCreateProcess, /* 4 */ - TclpCreateTempFile, /* 5 */ - TclpMakeFile, /* 6 */ - TclpOpenFile, /* 7 */ - TclUnixWaitForFile, /* 8 */ -#endif /* UNIX */ #ifdef MAC_TCL TclpSysAlloc, /* 0 */ TclpSysFree, /* 1 */ @@ -549,16 +562,11 @@ TclIntPlatStubs tclIntPlatStubs = { #endif /* MAC_TCL */ }; -extern TclIntPlatStubs *tclIntPlatStubsPtr = &tclIntPlatStubs; +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 */ @@ -572,7 +580,7 @@ TclPlatStubs tclPlatStubs = { #endif /* MAC_TCL */ }; -extern TclPlatStubs *tclPlatStubsPtr = &tclPlatStubs; +TclPlatStubs *tclPlatStubsPtr = &tclPlatStubs; static TclStubHooks tclStubHooks = { &tclPlatStubs, |