1/* 2 * tclStubInit.c -- 3 * 4 * This file contains the initializers for the Tcl stub vectors. 5 * 6 * Copyright (c) 1998-1999 by Scriptics Corporation. 7 * 8 * See the file "license.terms" for information on usage and redistribution 9 * of this file, and for a DISCLAIMER OF ALL WARRANTIES. 10 * 11 * RCS: @(#) $Id: tclStubInit.c,v 1.2 1999/04/19 18:29:42 aku Exp $ 12 */ 13 14#include "tclInt.h" 15#include "tclPort.h" 16 17/* 18 * Remove macros that will interfere with the definitions below. 19 */ 20 21#undef Tcl_Alloc 22#undef Tcl_Free 23#undef Tcl_Realloc 24#undef Tcl_NewBooleanObj 25#undef Tcl_NewByteArrayObj 26#undef Tcl_NewDoubleObj 27#undef Tcl_NewIntObj 28#undef Tcl_NewListObj 29#undef Tcl_NewLongObj 30#undef Tcl_NewObj 31#undef Tcl_NewStringObj 32#undef Tcl_DumpActiveMemory 33#undef Tcl_ValidateAllMemory 34 35/* 36 * WARNING: The contents of this file is automatically generated by the 37 * tools/genStubs.tcl script. Any modifications to the function declarations 38 * below should be made in the generic/tcl.decls script. 39 */ 40 41/* !BEGIN!: Do not edit below this line. */ 42 43static TclStubHooks tclStubHooks; 44 45TclStubs tclStubs = { 46 TCL_STUB_MAGIC, 47 &tclStubHooks, 48 Tcl_PkgProvideEx, /* 0 */ 49 Tcl_PkgRequireEx, /* 1 */ 50 Tcl_Panic, /* 2 */ 51 Tcl_Alloc, /* 3 */ 52 Tcl_Free, /* 4 */ 53 Tcl_Realloc, /* 5 */ 54 Tcl_DbCkalloc, /* 6 */ 55 Tcl_DbCkfree, /* 7 */ 56 Tcl_DbCkrealloc, /* 8 */ 57#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 58 Tcl_CreateFileHandler, /* 9 */ 59#endif /* UNIX */ 60#ifdef __WIN32__ 61 NULL, /* 9 */ 62#endif /* __WIN32__ */ 63#ifdef MAC_TCL 64 NULL, /* 9 */ 65#endif /* MAC_TCL */ 66#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 67 Tcl_DeleteFileHandler, /* 10 */ 68#endif /* UNIX */ 69#ifdef __WIN32__ 70 NULL, /* 10 */ 71#endif /* __WIN32__ */ 72#ifdef MAC_TCL 73 NULL, /* 10 */ 74#endif /* MAC_TCL */ 75 Tcl_SetTimer, /* 11 */ 76 Tcl_Sleep, /* 12 */ 77 Tcl_WaitForEvent, /* 13 */ 78 Tcl_AppendAllObjTypes, /* 14 */ 79 Tcl_AppendStringsToObj, /* 15 */ 80 Tcl_AppendToObj, /* 16 */ 81 Tcl_ConcatObj, /* 17 */ 82 Tcl_ConvertToType, /* 18 */ 83 Tcl_DbDecrRefCount, /* 19 */ 84 Tcl_DbIncrRefCount, /* 20 */ 85 Tcl_DbIsShared, /* 21 */ 86 Tcl_DbNewBooleanObj, /* 22 */ 87 Tcl_DbNewByteArrayObj, /* 23 */ 88 Tcl_DbNewDoubleObj, /* 24 */ 89 Tcl_DbNewListObj, /* 25 */ 90 Tcl_DbNewLongObj, /* 26 */ 91 Tcl_DbNewObj, /* 27 */ 92 Tcl_DbNewStringObj, /* 28 */ 93 Tcl_DuplicateObj, /* 29 */ 94 TclFreeObj, /* 30 */ 95 Tcl_GetBoolean, /* 31 */ 96 Tcl_GetBooleanFromObj, /* 32 */ 97 Tcl_GetByteArrayFromObj, /* 33 */ 98 Tcl_GetDouble, /* 34 */ 99 Tcl_GetDoubleFromObj, /* 35 */ 100 Tcl_GetIndexFromObj, /* 36 */ 101 Tcl_GetInt, /* 37 */ 102 Tcl_GetIntFromObj, /* 38 */ 103 Tcl_GetLongFromObj, /* 39 */ 104 Tcl_GetObjType, /* 40 */ 105 Tcl_GetStringFromObj, /* 41 */ 106 Tcl_InvalidateStringRep, /* 42 */ 107 Tcl_ListObjAppendList, /* 43 */ 108 Tcl_ListObjAppendElement, /* 44 */ 109 Tcl_ListObjGetElements, /* 45 */ 110 Tcl_ListObjIndex, /* 46 */ 111 Tcl_ListObjLength, /* 47 */ 112 Tcl_ListObjReplace, /* 48 */ 113 Tcl_NewBooleanObj, /* 49 */ 114 Tcl_NewByteArrayObj, /* 50 */ 115 Tcl_NewDoubleObj, /* 51 */ 116 Tcl_NewIntObj, /* 52 */ 117 Tcl_NewListObj, /* 53 */ 118 Tcl_NewLongObj, /* 54 */ 119 Tcl_NewObj, /* 55 */ 120 Tcl_NewStringObj, /* 56 */ 121 Tcl_SetBooleanObj, /* 57 */ 122 Tcl_SetByteArrayLength, /* 58 */ 123 Tcl_SetByteArrayObj, /* 59 */ 124 Tcl_SetDoubleObj, /* 60 */ 125 Tcl_SetIntObj, /* 61 */ 126 Tcl_SetListObj, /* 62 */ 127 Tcl_SetLongObj, /* 63 */ 128 Tcl_SetObjLength, /* 64 */ 129 Tcl_SetStringObj, /* 65 */ 130 Tcl_AddErrorInfo, /* 66 */ 131 Tcl_AddObjErrorInfo, /* 67 */ 132 Tcl_AllowExceptions, /* 68 */ 133 Tcl_AppendElement, /* 69 */ 134 Tcl_AppendResult, /* 70 */ 135 Tcl_AsyncCreate, /* 71 */ 136 Tcl_AsyncDelete, /* 72 */ 137 Tcl_AsyncInvoke, /* 73 */ 138 Tcl_AsyncMark, /* 74 */ 139 Tcl_AsyncReady, /* 75 */ 140 Tcl_BackgroundError, /* 76 */ 141 Tcl_Backslash, /* 77 */ 142 Tcl_BadChannelOption, /* 78 */ 143 Tcl_CallWhenDeleted, /* 79 */ 144 Tcl_CancelIdleCall, /* 80 */ 145 Tcl_Close, /* 81 */ 146 Tcl_CommandComplete, /* 82 */ 147 Tcl_Concat, /* 83 */ 148 Tcl_ConvertElement, /* 84 */ 149 Tcl_ConvertCountedElement, /* 85 */ 150 Tcl_CreateAlias, /* 86 */ 151 Tcl_CreateAliasObj, /* 87 */ 152 Tcl_CreateChannel, /* 88 */ 153 Tcl_CreateChannelHandler, /* 89 */ 154 Tcl_CreateCloseHandler, /* 90 */ 155 Tcl_CreateCommand, /* 91 */ 156 Tcl_CreateEventSource, /* 92 */ 157 Tcl_CreateExitHandler, /* 93 */ 158 Tcl_CreateInterp, /* 94 */ 159 Tcl_CreateMathFunc, /* 95 */ 160 Tcl_CreateObjCommand, /* 96 */ 161 Tcl_CreateSlave, /* 97 */ 162 Tcl_CreateTimerHandler, /* 98 */ 163 Tcl_CreateTrace, /* 99 */ 164 Tcl_DeleteAssocData, /* 100 */ 165 Tcl_DeleteChannelHandler, /* 101 */ 166 Tcl_DeleteCloseHandler, /* 102 */ 167 Tcl_DeleteCommand, /* 103 */ 168 Tcl_DeleteCommandFromToken, /* 104 */ 169 Tcl_DeleteEvents, /* 105 */ 170 Tcl_DeleteEventSource, /* 106 */ 171 Tcl_DeleteExitHandler, /* 107 */ 172 Tcl_DeleteHashEntry, /* 108 */ 173 Tcl_DeleteHashTable, /* 109 */ 174 Tcl_DeleteInterp, /* 110 */ 175 Tcl_DetachPids, /* 111 */ 176 Tcl_DeleteTimerHandler, /* 112 */ 177 Tcl_DeleteTrace, /* 113 */ 178 Tcl_DontCallWhenDeleted, /* 114 */ 179 Tcl_DoOneEvent, /* 115 */ 180 Tcl_DoWhenIdle, /* 116 */ 181 Tcl_DStringAppend, /* 117 */ 182 Tcl_DStringAppendElement, /* 118 */ 183 Tcl_DStringEndSublist, /* 119 */ 184 Tcl_DStringFree, /* 120 */ 185 Tcl_DStringGetResult, /* 121 */ 186 Tcl_DStringInit, /* 122 */ 187 Tcl_DStringResult, /* 123 */ 188 Tcl_DStringSetLength, /* 124 */ 189 Tcl_DStringStartSublist, /* 125 */ 190 Tcl_Eof, /* 126 */ 191 Tcl_ErrnoId, /* 127 */ 192 Tcl_ErrnoMsg, /* 128 */ 193 Tcl_Eval, /* 129 */ 194 Tcl_EvalFile, /* 130 */ 195 Tcl_EvalObj, /* 131 */ 196 Tcl_EventuallyFree, /* 132 */ 197 Tcl_Exit, /* 133 */ 198 Tcl_ExposeCommand, /* 134 */ 199 Tcl_ExprBoolean, /* 135 */ 200 Tcl_ExprBooleanObj, /* 136 */ 201 Tcl_ExprDouble, /* 137 */ 202 Tcl_ExprDoubleObj, /* 138 */ 203 Tcl_ExprLong, /* 139 */ 204 Tcl_ExprLongObj, /* 140 */ 205 Tcl_ExprObj, /* 141 */ 206 Tcl_ExprString, /* 142 */ 207 Tcl_Finalize, /* 143 */ 208 Tcl_FindExecutable, /* 144 */ 209 Tcl_FirstHashEntry, /* 145 */ 210 Tcl_Flush, /* 146 */ 211 Tcl_FreeResult, /* 147 */ 212 Tcl_GetAlias, /* 148 */ 213 Tcl_GetAliasObj, /* 149 */ 214 Tcl_GetAssocData, /* 150 */ 215 Tcl_GetChannel, /* 151 */ 216 Tcl_GetChannelBufferSize, /* 152 */ 217 Tcl_GetChannelHandle, /* 153 */ 218 Tcl_GetChannelInstanceData, /* 154 */ 219 Tcl_GetChannelMode, /* 155 */ 220 Tcl_GetChannelName, /* 156 */ 221 Tcl_GetChannelOption, /* 157 */ 222 Tcl_GetChannelType, /* 158 */ 223 Tcl_GetCommandInfo, /* 159 */ 224 Tcl_GetCommandName, /* 160 */ 225 Tcl_GetErrno, /* 161 */ 226 Tcl_GetHostName, /* 162 */ 227 Tcl_GetInterpPath, /* 163 */ 228 Tcl_GetMaster, /* 164 */ 229 Tcl_GetNameOfExecutable, /* 165 */ 230 Tcl_GetObjResult, /* 166 */ 231#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 232 Tcl_GetOpenFile, /* 167 */ 233#endif /* UNIX */ 234#ifdef __WIN32__ 235 NULL, /* 167 */ 236#endif /* __WIN32__ */ 237#ifdef MAC_TCL 238 NULL, /* 167 */ 239#endif /* MAC_TCL */ 240 Tcl_GetPathType, /* 168 */ 241 Tcl_Gets, /* 169 */ 242 Tcl_GetsObj, /* 170 */ 243 Tcl_GetServiceMode, /* 171 */ 244 Tcl_GetSlave, /* 172 */ 245 Tcl_GetStdChannel, /* 173 */ 246 Tcl_GetStringResult, /* 174 */ 247 Tcl_GetVar, /* 175 */ 248 Tcl_GetVar2, /* 176 */ 249 Tcl_GlobalEval, /* 177 */ 250 Tcl_GlobalEvalObj, /* 178 */ 251 Tcl_HideCommand, /* 179 */ 252 Tcl_Init, /* 180 */ 253 Tcl_InitHashTable, /* 181 */ 254 Tcl_InputBlocked, /* 182 */ 255 Tcl_InputBuffered, /* 183 */ 256 Tcl_InterpDeleted, /* 184 */ 257 Tcl_IsSafe, /* 185 */ 258 Tcl_JoinPath, /* 186 */ 259 Tcl_LinkVar, /* 187 */ 260 NULL, /* 188 */ 261 Tcl_MakeFileChannel, /* 189 */ 262 Tcl_MakeSafe, /* 190 */ 263 Tcl_MakeTcpClientChannel, /* 191 */ 264 Tcl_Merge, /* 192 */ 265 Tcl_NextHashEntry, /* 193 */ 266 Tcl_NotifyChannel, /* 194 */ 267 Tcl_ObjGetVar2, /* 195 */ 268 Tcl_ObjSetVar2, /* 196 */ 269 Tcl_OpenCommandChannel, /* 197 */ 270 Tcl_OpenFileChannel, /* 198 */ 271 Tcl_OpenTcpClient, /* 199 */ 272 Tcl_OpenTcpServer, /* 200 */ 273 Tcl_Preserve, /* 201 */ 274 Tcl_PrintDouble, /* 202 */ 275 Tcl_PutEnv, /* 203 */ 276 Tcl_PosixError, /* 204 */ 277 Tcl_QueueEvent, /* 205 */ 278 Tcl_Read, /* 206 */ 279 Tcl_ReapDetachedProcs, /* 207 */ 280 Tcl_RecordAndEval, /* 208 */ 281 Tcl_RecordAndEvalObj, /* 209 */ 282 Tcl_RegisterChannel, /* 210 */ 283 Tcl_RegisterObjType, /* 211 */ 284 Tcl_RegExpCompile, /* 212 */ 285 Tcl_RegExpExec, /* 213 */ 286 Tcl_RegExpMatch, /* 214 */ 287 Tcl_RegExpRange, /* 215 */ 288 Tcl_Release, /* 216 */ 289 Tcl_ResetResult, /* 217 */ 290 Tcl_ScanElement, /* 218 */ 291 Tcl_ScanCountedElement, /* 219 */ 292 Tcl_Seek, /* 220 */ 293 Tcl_ServiceAll, /* 221 */ 294 Tcl_ServiceEvent, /* 222 */ 295 Tcl_SetAssocData, /* 223 */ 296 Tcl_SetChannelBufferSize, /* 224 */ 297 Tcl_SetChannelOption, /* 225 */ 298 Tcl_SetCommandInfo, /* 226 */ 299 Tcl_SetErrno, /* 227 */ 300 Tcl_SetErrorCode, /* 228 */ 301 Tcl_SetMaxBlockTime, /* 229 */ 302 Tcl_SetPanicProc, /* 230 */ 303 Tcl_SetRecursionLimit, /* 231 */ 304 Tcl_SetResult, /* 232 */ 305 Tcl_SetServiceMode, /* 233 */ 306 Tcl_SetObjErrorCode, /* 234 */ 307 Tcl_SetObjResult, /* 235 */ 308 Tcl_SetStdChannel, /* 236 */ 309 Tcl_SetVar, /* 237 */ 310 Tcl_SetVar2, /* 238 */ 311 Tcl_SignalId, /* 239 */ 312 Tcl_SignalMsg, /* 240 */ 313 Tcl_SourceRCFile, /* 241 */ 314 Tcl_SplitList, /* 242 */ 315 Tcl_SplitPath, /* 243 */ 316 Tcl_StaticPackage, /* 244 */ 317 Tcl_StringMatch, /* 245 */ 318 Tcl_Tell, /* 246 */ 319 Tcl_TraceVar, /* 247 */ 320 Tcl_TraceVar2, /* 248 */ 321 Tcl_TranslateFileName, /* 249 */ 322 Tcl_Ungets, /* 250 */ 323 Tcl_UnlinkVar, /* 251 */ 324 Tcl_UnregisterChannel, /* 252 */ 325 Tcl_UnsetVar, /* 253 */ 326 Tcl_UnsetVar2, /* 254 */ 327 Tcl_UntraceVar, /* 255 */ 328 Tcl_UntraceVar2, /* 256 */ 329 Tcl_UpdateLinkedVar, /* 257 */ 330 Tcl_UpVar, /* 258 */ 331 Tcl_UpVar2, /* 259 */ 332 Tcl_VarEval, /* 260 */ 333 Tcl_VarTraceInfo, /* 261 */ 334 Tcl_VarTraceInfo2, /* 262 */ 335 Tcl_Write, /* 263 */ 336 Tcl_WrongNumArgs, /* 264 */ 337 Tcl_DumpActiveMemory, /* 265 */ 338 Tcl_ValidateAllMemory, /* 266 */ 339 Tcl_AppendResultVA, /* 267 */ 340 Tcl_AppendStringsToObjVA, /* 268 */ 341 Tcl_HashStats, /* 269 */ 342 Tcl_ParseVar, /* 270 */ 343 Tcl_PkgPresent, /* 271 */ 344 Tcl_PkgPresentEx, /* 272 */ 345 Tcl_PkgProvide, /* 273 */ 346 Tcl_PkgRequire, /* 274 */ 347 Tcl_SetErrorCodeVA, /* 275 */ 348 Tcl_VarEvalVA, /* 276 */ 349 Tcl_WaitPid, /* 277 */ 350 Tcl_PanicVA, /* 278 */ 351 Tcl_GetVersion, /* 279 */ 352 Tcl_InitMemory, /* 280 */ 353 Tcl_ReplaceChannel, /* 281 */ 354 Tcl_UndoReplaceChannel, /* 282 */ 355 NULL, /* 283 */ 356 NULL, /* 284 */ 357 NULL, /* 285 */ 358 Tcl_AppendObjToObj, /* 286 */ 359 Tcl_CreateEncoding, /* 287 */ 360 Tcl_CreateThreadExitHandler, /* 288 */ 361 Tcl_DeleteThreadExitHandler, /* 289 */ 362 Tcl_DiscardResult, /* 290 */ 363 Tcl_EvalEx, /* 291 */ 364 Tcl_EvalObjv, /* 292 */ 365 Tcl_EvalObjEx, /* 293 */ 366 Tcl_ExitThread, /* 294 */ 367 Tcl_ExternalToUtf, /* 295 */ 368 Tcl_ExternalToUtfDString, /* 296 */ 369 Tcl_FinalizeThread, /* 297 */ 370 Tcl_FinalizeNotifier, /* 298 */ 371 Tcl_FreeEncoding, /* 299 */ 372 Tcl_GetCurrentThread, /* 300 */ 373 Tcl_GetEncoding, /* 301 */ 374 Tcl_GetEncodingName, /* 302 */ 375 Tcl_GetEncodingNames, /* 303 */ 376 Tcl_GetIndexFromObjStruct, /* 304 */ 377 Tcl_GetThreadData, /* 305 */ 378 Tcl_GetVar2Ex, /* 306 */ 379 Tcl_InitNotifier, /* 307 */ 380 Tcl_MutexLock, /* 308 */ 381 Tcl_MutexUnlock, /* 309 */ 382 Tcl_ConditionNotify, /* 310 */ 383 Tcl_ConditionWait, /* 311 */ 384 Tcl_NumUtfChars, /* 312 */ 385 Tcl_ReadChars, /* 313 */ 386 Tcl_RestoreResult, /* 314 */ 387 Tcl_SaveResult, /* 315 */ 388 Tcl_SetSystemEncoding, /* 316 */ 389 Tcl_SetVar2Ex, /* 317 */ 390 Tcl_ThreadAlert, /* 318 */ 391 Tcl_ThreadQueueEvent, /* 319 */ 392 Tcl_UniCharAtIndex, /* 320 */ 393 Tcl_UniCharToLower, /* 321 */ 394 Tcl_UniCharToTitle, /* 322 */ 395 Tcl_UniCharToUpper, /* 323 */ 396 Tcl_UniCharToUtf, /* 324 */ 397 Tcl_UtfAtIndex, /* 325 */ 398 Tcl_UtfCharComplete, /* 326 */ 399 Tcl_UtfBackslash, /* 327 */ 400 Tcl_UtfFindFirst, /* 328 */ 401 Tcl_UtfFindLast, /* 329 */ 402 Tcl_UtfNext, /* 330 */ 403 Tcl_UtfPrev, /* 331 */ 404 Tcl_UtfToExternal, /* 332 */ 405 Tcl_UtfToExternalDString, /* 333 */ 406 Tcl_UtfToLower, /* 334 */ 407 Tcl_UtfToTitle, /* 335 */ 408 Tcl_UtfToUniChar, /* 336 */ 409 Tcl_UtfToUpper, /* 337 */ 410 Tcl_WriteChars, /* 338 */ 411 Tcl_WriteObj, /* 339 */ 412 Tcl_GetString, /* 340 */ 413 Tcl_GetDefaultEncodingDir, /* 341 */ 414 Tcl_SetDefaultEncodingDir, /* 342 */ 415 Tcl_AlertNotifier, /* 343 */ 416 Tcl_ServiceModeHook, /* 344 */ 417 Tcl_UniCharIsAlnum, /* 345 */ 418 Tcl_UniCharIsAlpha, /* 346 */ 419 Tcl_UniCharIsDigit, /* 347 */ 420 Tcl_UniCharIsLower, /* 348 */ 421 Tcl_UniCharIsSpace, /* 349 */ 422 Tcl_UniCharIsUpper, /* 350 */ 423 Tcl_UniCharIsWordChar, /* 351 */ 424 Tcl_UniCharLen, /* 352 */ 425 Tcl_UniCharNcmp, /* 353 */ 426 Tcl_UniCharToUtfDString, /* 354 */ 427 Tcl_UtfToUniCharDString, /* 355 */ 428 Tcl_GetRegExpFromObj, /* 356 */ 429 Tcl_EvalTokens, /* 357 */ 430 Tcl_FreeParse, /* 358 */ 431 Tcl_LogCommandInfo, /* 359 */ 432 Tcl_ParseBraces, /* 360 */ 433 Tcl_ParseCommand, /* 361 */ 434 Tcl_ParseExpr, /* 362 */ 435 Tcl_ParseQuotedString, /* 363 */ 436 Tcl_ParseVarName, /* 364 */ 437 Tcl_GetCwd, /* 365 */ 438 Tcl_Chdir, /* 366 */ 439}; 440 441TclIntStubs tclIntStubs = { 442 TCL_STUB_MAGIC, 443 NULL, 444 TclAccess, /* 0 */ 445 TclAccessDeleteProc, /* 1 */ 446 TclAccessInsertProc, /* 2 */ 447 TclAllocateFreeObjects, /* 3 */ 448 NULL, /* 4 */ 449 TclCleanupChildren, /* 5 */ 450 TclCleanupCommand, /* 6 */ 451 TclCopyAndCollapse, /* 7 */ 452 TclCopyChannel, /* 8 */ 453 TclCreatePipeline, /* 9 */ 454 TclCreateProc, /* 10 */ 455 TclDeleteCompiledLocalVars, /* 11 */ 456 TclDeleteVars, /* 12 */ 457 TclDoGlob, /* 13 */ 458 TclDumpMemoryInfo, /* 14 */ 459 NULL, /* 15 */ 460 TclExprFloatError, /* 16 */ 461 TclFileAttrsCmd, /* 17 */ 462 TclFileCopyCmd, /* 18 */ 463 TclFileDeleteCmd, /* 19 */ 464 TclFileMakeDirsCmd, /* 20 */ 465 TclFileRenameCmd, /* 21 */ 466 TclFindElement, /* 22 */ 467 TclFindProc, /* 23 */ 468 TclFormatInt, /* 24 */ 469 TclFreePackageInfo, /* 25 */ 470 NULL, /* 26 */ 471 TclGetDate, /* 27 */ 472 TclpGetDefaultStdChannel, /* 28 */ 473 TclGetElementOfIndexedArray, /* 29 */ 474 NULL, /* 30 */ 475 TclGetExtension, /* 31 */ 476 TclGetFrame, /* 32 */ 477 TclGetInterpProc, /* 33 */ 478 TclGetIntForIndex, /* 34 */ 479 TclGetIndexedScalar, /* 35 */ 480 TclGetLong, /* 36 */ 481 TclGetLoadedPackages, /* 37 */ 482 TclGetNamespaceForQualName, /* 38 */ 483 TclGetObjInterpProc, /* 39 */ 484 TclGetOpenMode, /* 40 */ 485 TclGetOriginalCommand, /* 41 */ 486 TclpGetUserHome, /* 42 */ 487 TclGlobalInvoke, /* 43 */ 488 TclGuessPackageName, /* 44 */ 489 TclHideUnsafeCommands, /* 45 */ 490 TclInExit, /* 46 */ 491 TclIncrElementOfIndexedArray, /* 47 */ 492 TclIncrIndexedScalar, /* 48 */ 493 TclIncrVar2, /* 49 */ 494 TclInitCompiledLocals, /* 50 */ 495 TclInterpInit, /* 51 */ 496 TclInvoke, /* 52 */ 497 TclInvokeObjectCommand, /* 53 */ 498 TclInvokeStringCommand, /* 54 */ 499 TclIsProc, /* 55 */ 500 NULL, /* 56 */ 501 NULL, /* 57 */ 502 TclLookupVar, /* 58 */ 503 TclpMatchFiles, /* 59 */ 504 TclNeedSpace, /* 60 */ 505 TclNewProcBodyObj, /* 61 */ 506 TclObjCommandComplete, /* 62 */ 507 TclObjInterpProc, /* 63 */ 508 TclObjInvoke, /* 64 */ 509 TclObjInvokeGlobal, /* 65 */ 510 TclOpenFileChannelDeleteProc, /* 66 */ 511 TclOpenFileChannelInsertProc, /* 67 */ 512 TclpAccess, /* 68 */ 513 TclpAlloc, /* 69 */ 514 TclpCopyFile, /* 70 */ 515 TclpCopyDirectory, /* 71 */ 516 TclpCreateDirectory, /* 72 */ 517 TclpDeleteFile, /* 73 */ 518 TclpFree, /* 74 */ 519 TclpGetClicks, /* 75 */ 520 TclpGetSeconds, /* 76 */ 521 TclpGetTime, /* 77 */ 522 TclpGetTimeZone, /* 78 */ 523 TclpListVolumes, /* 79 */ 524 TclpOpenFileChannel, /* 80 */ 525 TclpRealloc, /* 81 */ 526 TclpRemoveDirectory, /* 82 */ 527 TclpRenameFile, /* 83 */ 528 NULL, /* 84 */ 529 NULL, /* 85 */ 530 NULL, /* 86 */ 531 NULL, /* 87 */ 532 TclPrecTraceProc, /* 88 */ 533 TclPreventAliasLoop, /* 89 */ 534 NULL, /* 90 */ 535 TclProcCleanupProc, /* 91 */ 536 TclProcCompileProc, /* 92 */ 537 TclProcDeleteProc, /* 93 */ 538 TclProcInterpProc, /* 94 */ 539 TclpStat, /* 95 */ 540 TclRenameCommand, /* 96 */ 541 TclResetShadowedCmdRefs, /* 97 */ 542 TclServiceIdle, /* 98 */ 543 TclSetElementOfIndexedArray, /* 99 */ 544 TclSetIndexedScalar, /* 100 */ 545 NULL, /* 101 */ 546 TclSetupEnv, /* 102 */ 547 TclSockGetPort, /* 103 */ 548 TclSockMinimumBuffers, /* 104 */ 549 TclStat, /* 105 */ 550 TclStatDeleteProc, /* 106 */ 551 TclStatInsertProc, /* 107 */ 552 TclTeardownNamespace, /* 108 */ 553 TclUpdateReturnInfo, /* 109 */ 554 NULL, /* 110 */ 555 Tcl_AddInterpResolvers, /* 111 */ 556 Tcl_AppendExportList, /* 112 */ 557 Tcl_CreateNamespace, /* 113 */ 558 Tcl_DeleteNamespace, /* 114 */ 559 Tcl_Export, /* 115 */ 560 Tcl_FindCommand, /* 116 */ 561 Tcl_FindNamespace, /* 117 */ 562 Tcl_GetInterpResolvers, /* 118 */ 563 Tcl_GetNamespaceResolvers, /* 119 */ 564 Tcl_FindNamespaceVar, /* 120 */ 565 Tcl_ForgetImport, /* 121 */ 566 Tcl_GetCommandFromObj, /* 122 */ 567 Tcl_GetCommandFullName, /* 123 */ 568 Tcl_GetCurrentNamespace, /* 124 */ 569 Tcl_GetGlobalNamespace, /* 125 */ 570 Tcl_GetVariableFullName, /* 126 */ 571 Tcl_Import, /* 127 */ 572 Tcl_PopCallFrame, /* 128 */ 573 Tcl_PushCallFrame, /* 129 */ 574 Tcl_RemoveInterpResolvers, /* 130 */ 575 Tcl_SetNamespaceResolvers, /* 131 */ 576 TclpHasSockets, /* 132 */ 577 TclpGetDate, /* 133 */ 578 TclpStrftime, /* 134 */ 579 TclpCheckStackSpace, /* 135 */ 580 NULL, /* 136 */ 581 TclpChdir, /* 137 */ 582 TclGetEnv, /* 138 */ 583 TclpLoadFile, /* 139 */ 584 TclLooksLikeInt, /* 140 */ 585 TclpGetCwd, /* 141 */ 586}; 587 588TclIntPlatStubs tclIntPlatStubs = { 589 TCL_STUB_MAGIC, 590 NULL, 591#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ 592 TclGetAndDetachPids, /* 0 */ 593 TclpCloseFile, /* 1 */ 594 TclpCreateCommandChannel, /* 2 */ 595 TclpCreatePipe, /* 3 */ 596 TclpCreateProcess, /* 4 */ 597 NULL, /* 5 */ 598 TclpMakeFile, /* 6 */ 599 TclpOpenFile, /* 7 */ 600 TclUnixWaitForFile, /* 8 */ 601 TclpCreateTempFile, /* 9 */ 602#endif /* UNIX */ 603#ifdef __WIN32__ 604 TclWinConvertError, /* 0 */ 605 TclWinConvertWSAError, /* 1 */ 606 TclWinGetServByName, /* 2 */ 607 TclWinGetSockOpt, /* 3 */ 608 TclWinGetTclInstance, /* 4 */ 609 NULL, /* 5 */ 610 TclWinNToHS, /* 6 */ 611 TclWinSetSockOpt, /* 7 */ 612 TclpGetPid, /* 8 */ 613 TclWinGetPlatformId, /* 9 */ 614 TclWinSynchSpawn, /* 10 */ 615 TclGetAndDetachPids, /* 11 */ 616 TclpCloseFile, /* 12 */ 617 TclpCreateCommandChannel, /* 13 */ 618 TclpCreatePipe, /* 14 */ 619 TclpCreateProcess, /* 15 */ 620 NULL, /* 16 */ 621 NULL, /* 17 */ 622 TclpMakeFile, /* 18 */ 623 TclpOpenFile, /* 19 */ 624 TclWinAddProcess, /* 20 */ 625 TclpAsyncMark, /* 21 */ 626 TclpCreateTempFile, /* 22 */ 627 TclpGetTZName, /* 23 */ 628 TclWinNoBackslash, /* 24 */ 629#endif /* __WIN32__ */ 630#ifdef MAC_TCL 631 TclpSysAlloc, /* 0 */ 632 TclpSysFree, /* 1 */ 633 TclpSysRealloc, /* 2 */ 634 TclpExit, /* 3 */ 635 FSpGetDefaultDir, /* 4 */ 636 FSpSetDefaultDir, /* 5 */ 637 FSpFindFolder, /* 6 */ 638 GetGlobalMouse, /* 7 */ 639 FSpGetDirectoryID, /* 8 */ 640 FSpOpenResFileCompat, /* 9 */ 641 FSpCreateResFileCompat, /* 10 */ 642 FSpLocationFromPath, /* 11 */ 643 FSpPathFromLocation, /* 12 */ 644 TclMacExitHandler, /* 13 */ 645 TclMacInitExitToShell, /* 14 */ 646 TclMacInstallExitToShellPatch, /* 15 */ 647 TclMacOSErrorToPosixError, /* 16 */ 648 TclMacRemoveTimer, /* 17 */ 649 TclMacStartTimer, /* 18 */ 650 TclMacTimerExpired, /* 19 */ 651 TclMacRegisterResourceFork, /* 20 */ 652 TclMacUnRegisterResourceFork, /* 21 */ 653 TclMacCreateEnv, /* 22 */ 654 TclMacFOpenHack, /* 23 */ 655 NULL, /* 24 */ 656 TclMacChmod, /* 25 */ 657#endif /* MAC_TCL */ 658}; 659 660TclPlatStubs tclPlatStubs = { 661 TCL_STUB_MAGIC, 662 NULL, 663#ifdef __WIN32__ 664 Tcl_WinUtfToTChar, /* 0 */ 665 Tcl_WinTCharToUtf, /* 1 */ 666#endif /* __WIN32__ */ 667#ifdef MAC_TCL 668 Tcl_MacSetEventProc, /* 0 */ 669 Tcl_MacConvertTextResource, /* 1 */ 670 Tcl_MacEvalResource, /* 2 */ 671 Tcl_MacFindResource, /* 3 */ 672 Tcl_GetOSTypeFromObj, /* 4 */ 673 Tcl_SetOSTypeObj, /* 5 */ 674 Tcl_NewOSTypeObj, /* 6 */ 675 strncasecmp, /* 7 */ 676 strcasecmp, /* 8 */ 677#endif /* MAC_TCL */ 678}; 679 680static TclStubHooks tclStubHooks = { 681 &tclPlatStubs, 682 &tclIntStubs, 683 &tclIntPlatStubs 684}; 685 686 687/* !END!: Do not edit above this line. */ 688