/home/ntakagi/work/tcl8.5.1/generic/tclIntDecls.h Source File

00001 /*
00002  * tclIntDecls.h --
00003  *
00004  *      This file contains the declarations for all unsupported
00005  *      functions that are exported by the Tcl library.  These
00006  *      interfaces are not guaranteed to remain the same between
00007  *      versions.  Use at your own risk.
00008  *
00009  * Copyright (c) 1998-1999 by Scriptics Corporation.
00010  *
00011  * See the file "license.terms" for information on usage and redistribution
00012  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
00013  *
00014  * RCS: @(#) $Id: tclIntDecls.h,v 1.112 2008/01/23 17:31:42 dgp Exp $
00015  */
00016 
00017 #ifndef _TCLINTDECLS
00018 #define _TCLINTDECLS
00019 
00020 #include "tclPort.h"
00021 
00022 #undef TCL_STORAGE_CLASS
00023 #ifdef BUILD_tcl
00024 #   define TCL_STORAGE_CLASS DLLEXPORT
00025 #else
00026 #   ifdef USE_TCL_STUBS
00027 #      define TCL_STORAGE_CLASS
00028 #   else
00029 #      define TCL_STORAGE_CLASS DLLIMPORT
00030 #   endif
00031 #endif
00032 
00033 /*
00034  * WARNING: This file is automatically generated by the tools/genStubs.tcl
00035  * script.  Any modifications to the function declarations below should be made
00036  * in the generic/tclInt.decls script.
00037  */
00038 
00039 /* !BEGIN!: Do not edit below this line. */
00040 
00041 /*
00042  * Exported function declarations:
00043  */
00044 
00045 /* Slot 0 is reserved */
00046 /* Slot 1 is reserved */
00047 /* Slot 2 is reserved */
00048 #ifndef TclAllocateFreeObjects_TCL_DECLARED
00049 #define TclAllocateFreeObjects_TCL_DECLARED
00050 /* 3 */
00051 EXTERN void             TclAllocateFreeObjects (void);
00052 #endif
00053 /* Slot 4 is reserved */
00054 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
00055 #ifndef TclCleanupChildren_TCL_DECLARED
00056 #define TclCleanupChildren_TCL_DECLARED
00057 /* 5 */
00058 EXTERN int              TclCleanupChildren (Tcl_Interp * interp, int numPids, 
00059                                 Tcl_Pid * pidPtr, Tcl_Channel errorChan);
00060 #endif
00061 #endif /* UNIX */
00062 #ifdef __WIN32__ /* WIN */
00063 #ifndef TclCleanupChildren_TCL_DECLARED
00064 #define TclCleanupChildren_TCL_DECLARED
00065 /* 5 */
00066 EXTERN int              TclCleanupChildren (Tcl_Interp * interp, int numPids, 
00067                                 Tcl_Pid * pidPtr, Tcl_Channel errorChan);
00068 #endif
00069 #endif /* WIN */
00070 #ifdef MAC_OSX_TCL /* MACOSX */
00071 #ifndef TclCleanupChildren_TCL_DECLARED
00072 #define TclCleanupChildren_TCL_DECLARED
00073 /* 5 */
00074 EXTERN int              TclCleanupChildren (Tcl_Interp * interp, int numPids, 
00075                                 Tcl_Pid * pidPtr, Tcl_Channel errorChan);
00076 #endif
00077 #endif /* MACOSX */
00078 #ifndef TclCleanupCommand_TCL_DECLARED
00079 #define TclCleanupCommand_TCL_DECLARED
00080 /* 6 */
00081 EXTERN void             TclCleanupCommand (Command * cmdPtr);
00082 #endif
00083 #ifndef TclCopyAndCollapse_TCL_DECLARED
00084 #define TclCopyAndCollapse_TCL_DECLARED
00085 /* 7 */
00086 EXTERN int              TclCopyAndCollapse (int count, CONST char * src, 
00087                                 char * dst);
00088 #endif
00089 #ifndef TclCopyChannel_TCL_DECLARED
00090 #define TclCopyChannel_TCL_DECLARED
00091 /* 8 */
00092 EXTERN int              TclCopyChannel (Tcl_Interp * interp, 
00093                                 Tcl_Channel inChan, Tcl_Channel outChan, 
00094                                 int toRead, Tcl_Obj * cmdPtr);
00095 #endif
00096 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
00097 #ifndef TclCreatePipeline_TCL_DECLARED
00098 #define TclCreatePipeline_TCL_DECLARED
00099 /* 9 */
00100 EXTERN int              TclCreatePipeline (Tcl_Interp * interp, int argc, 
00101                                 CONST char ** argv, Tcl_Pid ** pidArrayPtr, 
00102                                 TclFile * inPipePtr, TclFile * outPipePtr, 
00103                                 TclFile * errFilePtr);
00104 #endif
00105 #endif /* UNIX */
00106 #ifdef __WIN32__ /* WIN */
00107 #ifndef TclCreatePipeline_TCL_DECLARED
00108 #define TclCreatePipeline_TCL_DECLARED
00109 /* 9 */
00110 EXTERN int              TclCreatePipeline (Tcl_Interp * interp, int argc, 
00111                                 CONST char ** argv, Tcl_Pid ** pidArrayPtr, 
00112                                 TclFile * inPipePtr, TclFile * outPipePtr, 
00113                                 TclFile * errFilePtr);
00114 #endif
00115 #endif /* WIN */
00116 #ifdef MAC_OSX_TCL /* MACOSX */
00117 #ifndef TclCreatePipeline_TCL_DECLARED
00118 #define TclCreatePipeline_TCL_DECLARED
00119 /* 9 */
00120 EXTERN int              TclCreatePipeline (Tcl_Interp * interp, int argc, 
00121                                 CONST char ** argv, Tcl_Pid ** pidArrayPtr, 
00122                                 TclFile * inPipePtr, TclFile * outPipePtr, 
00123                                 TclFile * errFilePtr);
00124 #endif
00125 #endif /* MACOSX */
00126 #ifndef TclCreateProc_TCL_DECLARED
00127 #define TclCreateProc_TCL_DECLARED
00128 /* 10 */
00129 EXTERN int              TclCreateProc (Tcl_Interp * interp, 
00130                                 Namespace * nsPtr, CONST char * procName, 
00131                                 Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, 
00132                                 Proc ** procPtrPtr);
00133 #endif
00134 #ifndef TclDeleteCompiledLocalVars_TCL_DECLARED
00135 #define TclDeleteCompiledLocalVars_TCL_DECLARED
00136 /* 11 */
00137 EXTERN void             TclDeleteCompiledLocalVars (Interp * iPtr, 
00138                                 CallFrame * framePtr);
00139 #endif
00140 #ifndef TclDeleteVars_TCL_DECLARED
00141 #define TclDeleteVars_TCL_DECLARED
00142 /* 12 */
00143 EXTERN void             TclDeleteVars (Interp * iPtr, 
00144                                 TclVarHashTable * tablePtr);
00145 #endif
00146 /* Slot 13 is reserved */
00147 #ifndef TclDumpMemoryInfo_TCL_DECLARED
00148 #define TclDumpMemoryInfo_TCL_DECLARED
00149 /* 14 */
00150 EXTERN void             TclDumpMemoryInfo (FILE * outFile);
00151 #endif
00152 /* Slot 15 is reserved */
00153 #ifndef TclExprFloatError_TCL_DECLARED
00154 #define TclExprFloatError_TCL_DECLARED
00155 /* 16 */
00156 EXTERN void             TclExprFloatError (Tcl_Interp * interp, double value);
00157 #endif
00158 /* Slot 17 is reserved */
00159 /* Slot 18 is reserved */
00160 /* Slot 19 is reserved */
00161 /* Slot 20 is reserved */
00162 /* Slot 21 is reserved */
00163 #ifndef TclFindElement_TCL_DECLARED
00164 #define TclFindElement_TCL_DECLARED
00165 /* 22 */
00166 EXTERN int              TclFindElement (Tcl_Interp * interp, 
00167                                 CONST char * listStr, int listLength, 
00168                                 CONST char ** elementPtr, 
00169                                 CONST char ** nextPtr, int * sizePtr, 
00170                                 int * bracePtr);
00171 #endif
00172 #ifndef TclFindProc_TCL_DECLARED
00173 #define TclFindProc_TCL_DECLARED
00174 /* 23 */
00175 EXTERN Proc *           TclFindProc (Interp * iPtr, CONST char * procName);
00176 #endif
00177 /* Slot 24 is reserved */
00178 #ifndef TclFreePackageInfo_TCL_DECLARED
00179 #define TclFreePackageInfo_TCL_DECLARED
00180 /* 25 */
00181 EXTERN void             TclFreePackageInfo (Interp * iPtr);
00182 #endif
00183 /* Slot 26 is reserved */
00184 /* Slot 27 is reserved */
00185 #ifndef TclpGetDefaultStdChannel_TCL_DECLARED
00186 #define TclpGetDefaultStdChannel_TCL_DECLARED
00187 /* 28 */
00188 EXTERN Tcl_Channel      TclpGetDefaultStdChannel (int type);
00189 #endif
00190 /* Slot 29 is reserved */
00191 /* Slot 30 is reserved */
00192 #ifndef TclGetExtension_TCL_DECLARED
00193 #define TclGetExtension_TCL_DECLARED
00194 /* 31 */
00195 EXTERN CONST char *     TclGetExtension (CONST char * name);
00196 #endif
00197 #ifndef TclGetFrame_TCL_DECLARED
00198 #define TclGetFrame_TCL_DECLARED
00199 /* 32 */
00200 EXTERN int              TclGetFrame (Tcl_Interp * interp, CONST char * str, 
00201                                 CallFrame ** framePtrPtr);
00202 #endif
00203 /* Slot 33 is reserved */
00204 #ifndef TclGetIntForIndex_TCL_DECLARED
00205 #define TclGetIntForIndex_TCL_DECLARED
00206 /* 34 */
00207 EXTERN int              TclGetIntForIndex (Tcl_Interp * interp, 
00208                                 Tcl_Obj * objPtr, int endValue, 
00209                                 int * indexPtr);
00210 #endif
00211 /* Slot 35 is reserved */
00212 #ifndef TclGetLong_TCL_DECLARED
00213 #define TclGetLong_TCL_DECLARED
00214 /* 36 */
00215 EXTERN int              TclGetLong (Tcl_Interp * interp, CONST char * str, 
00216                                 long * longPtr);
00217 #endif
00218 #ifndef TclGetLoadedPackages_TCL_DECLARED
00219 #define TclGetLoadedPackages_TCL_DECLARED
00220 /* 37 */
00221 EXTERN int              TclGetLoadedPackages (Tcl_Interp * interp, 
00222                                 char * targetName);
00223 #endif
00224 #ifndef TclGetNamespaceForQualName_TCL_DECLARED
00225 #define TclGetNamespaceForQualName_TCL_DECLARED
00226 /* 38 */
00227 EXTERN int              TclGetNamespaceForQualName (Tcl_Interp * interp, 
00228                                 CONST char * qualName, Namespace * cxtNsPtr, 
00229                                 int flags, Namespace ** nsPtrPtr, 
00230                                 Namespace ** altNsPtrPtr, 
00231                                 Namespace ** actualCxtPtrPtr, 
00232                                 CONST char ** simpleNamePtr);
00233 #endif
00234 #ifndef TclGetObjInterpProc_TCL_DECLARED
00235 #define TclGetObjInterpProc_TCL_DECLARED
00236 /* 39 */
00237 EXTERN TclObjCmdProcType TclGetObjInterpProc (void);
00238 #endif
00239 #ifndef TclGetOpenMode_TCL_DECLARED
00240 #define TclGetOpenMode_TCL_DECLARED
00241 /* 40 */
00242 EXTERN int              TclGetOpenMode (Tcl_Interp * interp, 
00243                                 CONST char * str, int * seekFlagPtr);
00244 #endif
00245 #ifndef TclGetOriginalCommand_TCL_DECLARED
00246 #define TclGetOriginalCommand_TCL_DECLARED
00247 /* 41 */
00248 EXTERN Tcl_Command      TclGetOriginalCommand (Tcl_Command command);
00249 #endif
00250 #ifndef TclpGetUserHome_TCL_DECLARED
00251 #define TclpGetUserHome_TCL_DECLARED
00252 /* 42 */
00253 EXTERN char *           TclpGetUserHome (CONST char * name, 
00254                                 Tcl_DString * bufferPtr);
00255 #endif
00256 /* Slot 43 is reserved */
00257 #ifndef TclGuessPackageName_TCL_DECLARED
00258 #define TclGuessPackageName_TCL_DECLARED
00259 /* 44 */
00260 EXTERN int              TclGuessPackageName (CONST char * fileName, 
00261                                 Tcl_DString * bufPtr);
00262 #endif
00263 #ifndef TclHideUnsafeCommands_TCL_DECLARED
00264 #define TclHideUnsafeCommands_TCL_DECLARED
00265 /* 45 */
00266 EXTERN int              TclHideUnsafeCommands (Tcl_Interp * interp);
00267 #endif
00268 #ifndef TclInExit_TCL_DECLARED
00269 #define TclInExit_TCL_DECLARED
00270 /* 46 */
00271 EXTERN int              TclInExit (void);
00272 #endif
00273 /* Slot 47 is reserved */
00274 /* Slot 48 is reserved */
00275 /* Slot 49 is reserved */
00276 #ifndef TclInitCompiledLocals_TCL_DECLARED
00277 #define TclInitCompiledLocals_TCL_DECLARED
00278 /* 50 */
00279 EXTERN void             TclInitCompiledLocals (Tcl_Interp * interp, 
00280                                 CallFrame * framePtr, Namespace * nsPtr);
00281 #endif
00282 #ifndef TclInterpInit_TCL_DECLARED
00283 #define TclInterpInit_TCL_DECLARED
00284 /* 51 */
00285 EXTERN int              TclInterpInit (Tcl_Interp * interp);
00286 #endif
00287 /* Slot 52 is reserved */
00288 #ifndef TclInvokeObjectCommand_TCL_DECLARED
00289 #define TclInvokeObjectCommand_TCL_DECLARED
00290 /* 53 */
00291 EXTERN int              TclInvokeObjectCommand (ClientData clientData, 
00292                                 Tcl_Interp * interp, int argc, 
00293                                 CONST84 char ** argv);
00294 #endif
00295 #ifndef TclInvokeStringCommand_TCL_DECLARED
00296 #define TclInvokeStringCommand_TCL_DECLARED
00297 /* 54 */
00298 EXTERN int              TclInvokeStringCommand (ClientData clientData, 
00299                                 Tcl_Interp * interp, int objc, 
00300                                 Tcl_Obj *CONST objv[]);
00301 #endif
00302 #ifndef TclIsProc_TCL_DECLARED
00303 #define TclIsProc_TCL_DECLARED
00304 /* 55 */
00305 EXTERN Proc *           TclIsProc (Command * cmdPtr);
00306 #endif
00307 /* Slot 56 is reserved */
00308 /* Slot 57 is reserved */
00309 #ifndef TclLookupVar_TCL_DECLARED
00310 #define TclLookupVar_TCL_DECLARED
00311 /* 58 */
00312 EXTERN Var *            TclLookupVar (Tcl_Interp * interp, 
00313                                 CONST char * part1, CONST char * part2, 
00314                                 int flags, CONST char * msg, int createPart1, 
00315                                 int createPart2, Var ** arrayPtrPtr);
00316 #endif
00317 /* Slot 59 is reserved */
00318 #ifndef TclNeedSpace_TCL_DECLARED
00319 #define TclNeedSpace_TCL_DECLARED
00320 /* 60 */
00321 EXTERN int              TclNeedSpace (CONST char * start, CONST char * end);
00322 #endif
00323 #ifndef TclNewProcBodyObj_TCL_DECLARED
00324 #define TclNewProcBodyObj_TCL_DECLARED
00325 /* 61 */
00326 EXTERN Tcl_Obj *        TclNewProcBodyObj (Proc * procPtr);
00327 #endif
00328 #ifndef TclObjCommandComplete_TCL_DECLARED
00329 #define TclObjCommandComplete_TCL_DECLARED
00330 /* 62 */
00331 EXTERN int              TclObjCommandComplete (Tcl_Obj * cmdPtr);
00332 #endif
00333 #ifndef TclObjInterpProc_TCL_DECLARED
00334 #define TclObjInterpProc_TCL_DECLARED
00335 /* 63 */
00336 EXTERN int              TclObjInterpProc (ClientData clientData, 
00337                                 Tcl_Interp * interp, int objc, 
00338                                 Tcl_Obj *CONST objv[]);
00339 #endif
00340 #ifndef TclObjInvoke_TCL_DECLARED
00341 #define TclObjInvoke_TCL_DECLARED
00342 /* 64 */
00343 EXTERN int              TclObjInvoke (Tcl_Interp * interp, int objc, 
00344                                 Tcl_Obj *CONST objv[], int flags);
00345 #endif
00346 /* Slot 65 is reserved */
00347 /* Slot 66 is reserved */
00348 /* Slot 67 is reserved */
00349 /* Slot 68 is reserved */
00350 #ifndef TclpAlloc_TCL_DECLARED
00351 #define TclpAlloc_TCL_DECLARED
00352 /* 69 */
00353 EXTERN char *           TclpAlloc (unsigned int size);
00354 #endif
00355 /* Slot 70 is reserved */
00356 /* Slot 71 is reserved */
00357 /* Slot 72 is reserved */
00358 /* Slot 73 is reserved */
00359 #ifndef TclpFree_TCL_DECLARED
00360 #define TclpFree_TCL_DECLARED
00361 /* 74 */
00362 EXTERN void             TclpFree (char * ptr);
00363 #endif
00364 #ifndef TclpGetClicks_TCL_DECLARED
00365 #define TclpGetClicks_TCL_DECLARED
00366 /* 75 */
00367 EXTERN unsigned long    TclpGetClicks (void);
00368 #endif
00369 #ifndef TclpGetSeconds_TCL_DECLARED
00370 #define TclpGetSeconds_TCL_DECLARED
00371 /* 76 */
00372 EXTERN unsigned long    TclpGetSeconds (void);
00373 #endif
00374 #ifndef TclpGetTime_TCL_DECLARED
00375 #define TclpGetTime_TCL_DECLARED
00376 /* 77 */
00377 EXTERN void             TclpGetTime (Tcl_Time * time);
00378 #endif
00379 #ifndef TclpGetTimeZone_TCL_DECLARED
00380 #define TclpGetTimeZone_TCL_DECLARED
00381 /* 78 */
00382 EXTERN int              TclpGetTimeZone (unsigned long time);
00383 #endif
00384 /* Slot 79 is reserved */
00385 /* Slot 80 is reserved */
00386 #ifndef TclpRealloc_TCL_DECLARED
00387 #define TclpRealloc_TCL_DECLARED
00388 /* 81 */
00389 EXTERN char *           TclpRealloc (char * ptr, unsigned int size);
00390 #endif
00391 /* Slot 82 is reserved */
00392 /* Slot 83 is reserved */
00393 /* Slot 84 is reserved */
00394 /* Slot 85 is reserved */
00395 /* Slot 86 is reserved */
00396 /* Slot 87 is reserved */
00397 #ifndef TclPrecTraceProc_TCL_DECLARED
00398 #define TclPrecTraceProc_TCL_DECLARED
00399 /* 88 */
00400 EXTERN char *           TclPrecTraceProc (ClientData clientData, 
00401                                 Tcl_Interp * interp, CONST char * name1, 
00402                                 CONST char * name2, int flags);
00403 #endif
00404 #ifndef TclPreventAliasLoop_TCL_DECLARED
00405 #define TclPreventAliasLoop_TCL_DECLARED
00406 /* 89 */
00407 EXTERN int              TclPreventAliasLoop (Tcl_Interp * interp, 
00408                                 Tcl_Interp * cmdInterp, Tcl_Command cmd);
00409 #endif
00410 /* Slot 90 is reserved */
00411 #ifndef TclProcCleanupProc_TCL_DECLARED
00412 #define TclProcCleanupProc_TCL_DECLARED
00413 /* 91 */
00414 EXTERN void             TclProcCleanupProc (Proc * procPtr);
00415 #endif
00416 #ifndef TclProcCompileProc_TCL_DECLARED
00417 #define TclProcCompileProc_TCL_DECLARED
00418 /* 92 */
00419 EXTERN int              TclProcCompileProc (Tcl_Interp * interp, 
00420                                 Proc * procPtr, Tcl_Obj * bodyPtr, 
00421                                 Namespace * nsPtr, CONST char * description, 
00422                                 CONST char * procName);
00423 #endif
00424 #ifndef TclProcDeleteProc_TCL_DECLARED
00425 #define TclProcDeleteProc_TCL_DECLARED
00426 /* 93 */
00427 EXTERN void             TclProcDeleteProc (ClientData clientData);
00428 #endif
00429 /* Slot 94 is reserved */
00430 /* Slot 95 is reserved */
00431 #ifndef TclRenameCommand_TCL_DECLARED
00432 #define TclRenameCommand_TCL_DECLARED
00433 /* 96 */
00434 EXTERN int              TclRenameCommand (Tcl_Interp * interp, 
00435                                 CONST char * oldName, CONST char * newName);
00436 #endif
00437 #ifndef TclResetShadowedCmdRefs_TCL_DECLARED
00438 #define TclResetShadowedCmdRefs_TCL_DECLARED
00439 /* 97 */
00440 EXTERN void             TclResetShadowedCmdRefs (Tcl_Interp * interp, 
00441                                 Command * newCmdPtr);
00442 #endif
00443 #ifndef TclServiceIdle_TCL_DECLARED
00444 #define TclServiceIdle_TCL_DECLARED
00445 /* 98 */
00446 EXTERN int              TclServiceIdle (void);
00447 #endif
00448 /* Slot 99 is reserved */
00449 /* Slot 100 is reserved */
00450 #ifndef TclSetPreInitScript_TCL_DECLARED
00451 #define TclSetPreInitScript_TCL_DECLARED
00452 /* 101 */
00453 EXTERN char *           TclSetPreInitScript (char * string);
00454 #endif
00455 #ifndef TclSetupEnv_TCL_DECLARED
00456 #define TclSetupEnv_TCL_DECLARED
00457 /* 102 */
00458 EXTERN void             TclSetupEnv (Tcl_Interp * interp);
00459 #endif
00460 #ifndef TclSockGetPort_TCL_DECLARED
00461 #define TclSockGetPort_TCL_DECLARED
00462 /* 103 */
00463 EXTERN int              TclSockGetPort (Tcl_Interp * interp, 
00464                                 CONST char * str, CONST char * proto, 
00465                                 int * portPtr);
00466 #endif
00467 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
00468 #ifndef TclSockMinimumBuffers_TCL_DECLARED
00469 #define TclSockMinimumBuffers_TCL_DECLARED
00470 /* 104 */
00471 EXTERN int              TclSockMinimumBuffers (int sock, int size);
00472 #endif
00473 #endif /* UNIX */
00474 #ifdef __WIN32__ /* WIN */
00475 #ifndef TclSockMinimumBuffers_TCL_DECLARED
00476 #define TclSockMinimumBuffers_TCL_DECLARED
00477 /* 104 */
00478 EXTERN int              TclSockMinimumBuffers (int sock, int size);
00479 #endif
00480 #endif /* WIN */
00481 #ifdef MAC_OSX_TCL /* MACOSX */
00482 #ifndef TclSockMinimumBuffers_TCL_DECLARED
00483 #define TclSockMinimumBuffers_TCL_DECLARED
00484 /* 104 */
00485 EXTERN int              TclSockMinimumBuffers (int sock, int size);
00486 #endif
00487 #endif /* MACOSX */
00488 /* Slot 105 is reserved */
00489 /* Slot 106 is reserved */
00490 /* Slot 107 is reserved */
00491 #ifndef TclTeardownNamespace_TCL_DECLARED
00492 #define TclTeardownNamespace_TCL_DECLARED
00493 /* 108 */
00494 EXTERN void             TclTeardownNamespace (Namespace * nsPtr);
00495 #endif
00496 #ifndef TclUpdateReturnInfo_TCL_DECLARED
00497 #define TclUpdateReturnInfo_TCL_DECLARED
00498 /* 109 */
00499 EXTERN int              TclUpdateReturnInfo (Interp * iPtr);
00500 #endif
00501 /* Slot 110 is reserved */
00502 #ifndef Tcl_AddInterpResolvers_TCL_DECLARED
00503 #define Tcl_AddInterpResolvers_TCL_DECLARED
00504 /* 111 */
00505 EXTERN void             Tcl_AddInterpResolvers (Tcl_Interp * interp, 
00506                                 CONST char * name, 
00507                                 Tcl_ResolveCmdProc * cmdProc, 
00508                                 Tcl_ResolveVarProc * varProc, 
00509                                 Tcl_ResolveCompiledVarProc * compiledVarProc);
00510 #endif
00511 #ifndef Tcl_AppendExportList_TCL_DECLARED
00512 #define Tcl_AppendExportList_TCL_DECLARED
00513 /* 112 */
00514 EXTERN int              Tcl_AppendExportList (Tcl_Interp * interp, 
00515                                 Tcl_Namespace * nsPtr, Tcl_Obj * objPtr);
00516 #endif
00517 #ifndef Tcl_CreateNamespace_TCL_DECLARED
00518 #define Tcl_CreateNamespace_TCL_DECLARED
00519 /* 113 */
00520 EXTERN Tcl_Namespace *  Tcl_CreateNamespace (Tcl_Interp * interp, 
00521                                 CONST char * name, ClientData clientData, 
00522                                 Tcl_NamespaceDeleteProc * deleteProc);
00523 #endif
00524 #ifndef Tcl_DeleteNamespace_TCL_DECLARED
00525 #define Tcl_DeleteNamespace_TCL_DECLARED
00526 /* 114 */
00527 EXTERN void             Tcl_DeleteNamespace (Tcl_Namespace * nsPtr);
00528 #endif
00529 #ifndef Tcl_Export_TCL_DECLARED
00530 #define Tcl_Export_TCL_DECLARED
00531 /* 115 */
00532 EXTERN int              Tcl_Export (Tcl_Interp * interp, 
00533                                 Tcl_Namespace * nsPtr, CONST char * pattern, 
00534                                 int resetListFirst);
00535 #endif
00536 #ifndef Tcl_FindCommand_TCL_DECLARED
00537 #define Tcl_FindCommand_TCL_DECLARED
00538 /* 116 */
00539 EXTERN Tcl_Command      Tcl_FindCommand (Tcl_Interp * interp, 
00540                                 CONST char * name, 
00541                                 Tcl_Namespace * contextNsPtr, int flags);
00542 #endif
00543 #ifndef Tcl_FindNamespace_TCL_DECLARED
00544 #define Tcl_FindNamespace_TCL_DECLARED
00545 /* 117 */
00546 EXTERN Tcl_Namespace *  Tcl_FindNamespace (Tcl_Interp * interp, 
00547                                 CONST char * name, 
00548                                 Tcl_Namespace * contextNsPtr, int flags);
00549 #endif
00550 #ifndef Tcl_GetInterpResolvers_TCL_DECLARED
00551 #define Tcl_GetInterpResolvers_TCL_DECLARED
00552 /* 118 */
00553 EXTERN int              Tcl_GetInterpResolvers (Tcl_Interp * interp, 
00554                                 CONST char * name, 
00555                                 Tcl_ResolverInfo * resInfo);
00556 #endif
00557 #ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED
00558 #define Tcl_GetNamespaceResolvers_TCL_DECLARED
00559 /* 119 */
00560 EXTERN int              Tcl_GetNamespaceResolvers (
00561                                 Tcl_Namespace * namespacePtr, 
00562                                 Tcl_ResolverInfo * resInfo);
00563 #endif
00564 #ifndef Tcl_FindNamespaceVar_TCL_DECLARED
00565 #define Tcl_FindNamespaceVar_TCL_DECLARED
00566 /* 120 */
00567 EXTERN Tcl_Var          Tcl_FindNamespaceVar (Tcl_Interp * interp, 
00568                                 CONST char * name, 
00569                                 Tcl_Namespace * contextNsPtr, int flags);
00570 #endif
00571 #ifndef Tcl_ForgetImport_TCL_DECLARED
00572 #define Tcl_ForgetImport_TCL_DECLARED
00573 /* 121 */
00574 EXTERN int              Tcl_ForgetImport (Tcl_Interp * interp, 
00575                                 Tcl_Namespace * nsPtr, CONST char * pattern);
00576 #endif
00577 #ifndef Tcl_GetCommandFromObj_TCL_DECLARED
00578 #define Tcl_GetCommandFromObj_TCL_DECLARED
00579 /* 122 */
00580 EXTERN Tcl_Command      Tcl_GetCommandFromObj (Tcl_Interp * interp, 
00581                                 Tcl_Obj * objPtr);
00582 #endif
00583 #ifndef Tcl_GetCommandFullName_TCL_DECLARED
00584 #define Tcl_GetCommandFullName_TCL_DECLARED
00585 /* 123 */
00586 EXTERN void             Tcl_GetCommandFullName (Tcl_Interp * interp, 
00587                                 Tcl_Command command, Tcl_Obj * objPtr);
00588 #endif
00589 #ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
00590 #define Tcl_GetCurrentNamespace_TCL_DECLARED
00591 /* 124 */
00592 EXTERN Tcl_Namespace *  Tcl_GetCurrentNamespace (Tcl_Interp * interp);
00593 #endif
00594 #ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
00595 #define Tcl_GetGlobalNamespace_TCL_DECLARED
00596 /* 125 */
00597 EXTERN Tcl_Namespace *  Tcl_GetGlobalNamespace (Tcl_Interp * interp);
00598 #endif
00599 #ifndef Tcl_GetVariableFullName_TCL_DECLARED
00600 #define Tcl_GetVariableFullName_TCL_DECLARED
00601 /* 126 */
00602 EXTERN void             Tcl_GetVariableFullName (Tcl_Interp * interp, 
00603                                 Tcl_Var variable, Tcl_Obj * objPtr);
00604 #endif
00605 #ifndef Tcl_Import_TCL_DECLARED
00606 #define Tcl_Import_TCL_DECLARED
00607 /* 127 */
00608 EXTERN int              Tcl_Import (Tcl_Interp * interp, 
00609                                 Tcl_Namespace * nsPtr, CONST char * pattern, 
00610                                 int allowOverwrite);
00611 #endif
00612 #ifndef Tcl_PopCallFrame_TCL_DECLARED
00613 #define Tcl_PopCallFrame_TCL_DECLARED
00614 /* 128 */
00615 EXTERN void             Tcl_PopCallFrame (Tcl_Interp * interp);
00616 #endif
00617 #ifndef Tcl_PushCallFrame_TCL_DECLARED
00618 #define Tcl_PushCallFrame_TCL_DECLARED
00619 /* 129 */
00620 EXTERN int              Tcl_PushCallFrame (Tcl_Interp * interp, 
00621                                 Tcl_CallFrame * framePtr, 
00622                                 Tcl_Namespace * nsPtr, int isProcCallFrame);
00623 #endif
00624 #ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED
00625 #define Tcl_RemoveInterpResolvers_TCL_DECLARED
00626 /* 130 */
00627 EXTERN int              Tcl_RemoveInterpResolvers (Tcl_Interp * interp, 
00628                                 CONST char * name);
00629 #endif
00630 #ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED
00631 #define Tcl_SetNamespaceResolvers_TCL_DECLARED
00632 /* 131 */
00633 EXTERN void             Tcl_SetNamespaceResolvers (
00634                                 Tcl_Namespace * namespacePtr, 
00635                                 Tcl_ResolveCmdProc * cmdProc, 
00636                                 Tcl_ResolveVarProc * varProc, 
00637                                 Tcl_ResolveCompiledVarProc * compiledVarProc);
00638 #endif
00639 #ifndef TclpHasSockets_TCL_DECLARED
00640 #define TclpHasSockets_TCL_DECLARED
00641 /* 132 */
00642 EXTERN int              TclpHasSockets (Tcl_Interp * interp);
00643 #endif
00644 #ifndef TclpGetDate_TCL_DECLARED
00645 #define TclpGetDate_TCL_DECLARED
00646 /* 133 */
00647 EXTERN struct tm *      TclpGetDate (CONST time_t * time, int useGMT);
00648 #endif
00649 /* Slot 134 is reserved */
00650 /* Slot 135 is reserved */
00651 /* Slot 136 is reserved */
00652 /* Slot 137 is reserved */
00653 #ifndef TclGetEnv_TCL_DECLARED
00654 #define TclGetEnv_TCL_DECLARED
00655 /* 138 */
00656 EXTERN CONST84_RETURN char * TclGetEnv (CONST char * name, 
00657                                 Tcl_DString * valuePtr);
00658 #endif
00659 /* Slot 139 is reserved */
00660 /* Slot 140 is reserved */
00661 #ifndef TclpGetCwd_TCL_DECLARED
00662 #define TclpGetCwd_TCL_DECLARED
00663 /* 141 */
00664 EXTERN CONST84_RETURN char * TclpGetCwd (Tcl_Interp * interp, 
00665                                 Tcl_DString * cwdPtr);
00666 #endif
00667 #ifndef TclSetByteCodeFromAny_TCL_DECLARED
00668 #define TclSetByteCodeFromAny_TCL_DECLARED
00669 /* 142 */
00670 EXTERN int              TclSetByteCodeFromAny (Tcl_Interp * interp, 
00671                                 Tcl_Obj * objPtr, CompileHookProc * hookProc, 
00672                                 ClientData clientData);
00673 #endif
00674 #ifndef TclAddLiteralObj_TCL_DECLARED
00675 #define TclAddLiteralObj_TCL_DECLARED
00676 /* 143 */
00677 EXTERN int              TclAddLiteralObj (struct CompileEnv * envPtr, 
00678                                 Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr);
00679 #endif
00680 #ifndef TclHideLiteral_TCL_DECLARED
00681 #define TclHideLiteral_TCL_DECLARED
00682 /* 144 */
00683 EXTERN void             TclHideLiteral (Tcl_Interp * interp, 
00684                                 struct CompileEnv * envPtr, int index);
00685 #endif
00686 #ifndef TclGetAuxDataType_TCL_DECLARED
00687 #define TclGetAuxDataType_TCL_DECLARED
00688 /* 145 */
00689 EXTERN struct AuxDataType * TclGetAuxDataType (char * typeName);
00690 #endif
00691 #ifndef TclHandleCreate_TCL_DECLARED
00692 #define TclHandleCreate_TCL_DECLARED
00693 /* 146 */
00694 EXTERN TclHandle        TclHandleCreate (VOID * ptr);
00695 #endif
00696 #ifndef TclHandleFree_TCL_DECLARED
00697 #define TclHandleFree_TCL_DECLARED
00698 /* 147 */
00699 EXTERN void             TclHandleFree (TclHandle handle);
00700 #endif
00701 #ifndef TclHandlePreserve_TCL_DECLARED
00702 #define TclHandlePreserve_TCL_DECLARED
00703 /* 148 */
00704 EXTERN TclHandle        TclHandlePreserve (TclHandle handle);
00705 #endif
00706 #ifndef TclHandleRelease_TCL_DECLARED
00707 #define TclHandleRelease_TCL_DECLARED
00708 /* 149 */
00709 EXTERN void             TclHandleRelease (TclHandle handle);
00710 #endif
00711 #ifndef TclRegAbout_TCL_DECLARED
00712 #define TclRegAbout_TCL_DECLARED
00713 /* 150 */
00714 EXTERN int              TclRegAbout (Tcl_Interp * interp, Tcl_RegExp re);
00715 #endif
00716 #ifndef TclRegExpRangeUniChar_TCL_DECLARED
00717 #define TclRegExpRangeUniChar_TCL_DECLARED
00718 /* 151 */
00719 EXTERN void             TclRegExpRangeUniChar (Tcl_RegExp re, int index, 
00720                                 int * startPtr, int * endPtr);
00721 #endif
00722 #ifndef TclSetLibraryPath_TCL_DECLARED
00723 #define TclSetLibraryPath_TCL_DECLARED
00724 /* 152 */
00725 EXTERN void             TclSetLibraryPath (Tcl_Obj * pathPtr);
00726 #endif
00727 #ifndef TclGetLibraryPath_TCL_DECLARED
00728 #define TclGetLibraryPath_TCL_DECLARED
00729 /* 153 */
00730 EXTERN Tcl_Obj *        TclGetLibraryPath (void);
00731 #endif
00732 /* Slot 154 is reserved */
00733 /* Slot 155 is reserved */
00734 #ifndef TclRegError_TCL_DECLARED
00735 #define TclRegError_TCL_DECLARED
00736 /* 156 */
00737 EXTERN void             TclRegError (Tcl_Interp * interp, CONST char * msg, 
00738                                 int status);
00739 #endif
00740 #ifndef TclVarTraceExists_TCL_DECLARED
00741 #define TclVarTraceExists_TCL_DECLARED
00742 /* 157 */
00743 EXTERN Var *            TclVarTraceExists (Tcl_Interp * interp, 
00744                                 CONST char * varName);
00745 #endif
00746 #ifndef TclSetStartupScriptFileName_TCL_DECLARED
00747 #define TclSetStartupScriptFileName_TCL_DECLARED
00748 /* 158 */
00749 EXTERN void             TclSetStartupScriptFileName (CONST char * filename);
00750 #endif
00751 #ifndef TclGetStartupScriptFileName_TCL_DECLARED
00752 #define TclGetStartupScriptFileName_TCL_DECLARED
00753 /* 159 */
00754 EXTERN CONST84_RETURN char * TclGetStartupScriptFileName (void);
00755 #endif
00756 /* Slot 160 is reserved */
00757 #ifndef TclChannelTransform_TCL_DECLARED
00758 #define TclChannelTransform_TCL_DECLARED
00759 /* 161 */
00760 EXTERN int              TclChannelTransform (Tcl_Interp * interp, 
00761                                 Tcl_Channel chan, Tcl_Obj * cmdObjPtr);
00762 #endif
00763 #ifndef TclChannelEventScriptInvoker_TCL_DECLARED
00764 #define TclChannelEventScriptInvoker_TCL_DECLARED
00765 /* 162 */
00766 EXTERN void             TclChannelEventScriptInvoker (ClientData clientData, 
00767                                 int flags);
00768 #endif
00769 #ifndef TclGetInstructionTable_TCL_DECLARED
00770 #define TclGetInstructionTable_TCL_DECLARED
00771 /* 163 */
00772 EXTERN void *           TclGetInstructionTable (void);
00773 #endif
00774 #ifndef TclExpandCodeArray_TCL_DECLARED
00775 #define TclExpandCodeArray_TCL_DECLARED
00776 /* 164 */
00777 EXTERN void             TclExpandCodeArray (void * envPtr);
00778 #endif
00779 #ifndef TclpSetInitialEncodings_TCL_DECLARED
00780 #define TclpSetInitialEncodings_TCL_DECLARED
00781 /* 165 */
00782 EXTERN void             TclpSetInitialEncodings (void);
00783 #endif
00784 #ifndef TclListObjSetElement_TCL_DECLARED
00785 #define TclListObjSetElement_TCL_DECLARED
00786 /* 166 */
00787 EXTERN int              TclListObjSetElement (Tcl_Interp * interp, 
00788                                 Tcl_Obj * listPtr, int index, 
00789                                 Tcl_Obj * valuePtr);
00790 #endif
00791 #ifndef TclSetStartupScriptPath_TCL_DECLARED
00792 #define TclSetStartupScriptPath_TCL_DECLARED
00793 /* 167 */
00794 EXTERN void             TclSetStartupScriptPath (Tcl_Obj * pathPtr);
00795 #endif
00796 #ifndef TclGetStartupScriptPath_TCL_DECLARED
00797 #define TclGetStartupScriptPath_TCL_DECLARED
00798 /* 168 */
00799 EXTERN Tcl_Obj *        TclGetStartupScriptPath (void);
00800 #endif
00801 #ifndef TclpUtfNcmp2_TCL_DECLARED
00802 #define TclpUtfNcmp2_TCL_DECLARED
00803 /* 169 */
00804 EXTERN int              TclpUtfNcmp2 (CONST char * s1, CONST char * s2, 
00805                                 unsigned long n);
00806 #endif
00807 #ifndef TclCheckInterpTraces_TCL_DECLARED
00808 #define TclCheckInterpTraces_TCL_DECLARED
00809 /* 170 */
00810 EXTERN int              TclCheckInterpTraces (Tcl_Interp * interp, 
00811                                 CONST char * command, int numChars, 
00812                                 Command * cmdPtr, int result, int traceFlags, 
00813                                 int objc, Tcl_Obj *CONST objv[]);
00814 #endif
00815 #ifndef TclCheckExecutionTraces_TCL_DECLARED
00816 #define TclCheckExecutionTraces_TCL_DECLARED
00817 /* 171 */
00818 EXTERN int              TclCheckExecutionTraces (Tcl_Interp * interp, 
00819                                 CONST char * command, int numChars, 
00820                                 Command * cmdPtr, int result, int traceFlags, 
00821                                 int objc, Tcl_Obj *CONST objv[]);
00822 #endif
00823 #ifndef TclInThreadExit_TCL_DECLARED
00824 #define TclInThreadExit_TCL_DECLARED
00825 /* 172 */
00826 EXTERN int              TclInThreadExit (void);
00827 #endif
00828 #ifndef TclUniCharMatch_TCL_DECLARED
00829 #define TclUniCharMatch_TCL_DECLARED
00830 /* 173 */
00831 EXTERN int              TclUniCharMatch (CONST Tcl_UniChar * string, 
00832                                 int strLen, CONST Tcl_UniChar * pattern, 
00833                                 int ptnLen, int flags);
00834 #endif
00835 /* Slot 174 is reserved */
00836 #ifndef TclCallVarTraces_TCL_DECLARED
00837 #define TclCallVarTraces_TCL_DECLARED
00838 /* 175 */
00839 EXTERN int              TclCallVarTraces (Interp * iPtr, Var * arrayPtr, 
00840                                 Var * varPtr, CONST char * part1, 
00841                                 CONST char * part2, int flags, 
00842                                 int leaveErrMsg);
00843 #endif
00844 #ifndef TclCleanupVar_TCL_DECLARED
00845 #define TclCleanupVar_TCL_DECLARED
00846 /* 176 */
00847 EXTERN void             TclCleanupVar (Var * varPtr, Var * arrayPtr);
00848 #endif
00849 #ifndef TclVarErrMsg_TCL_DECLARED
00850 #define TclVarErrMsg_TCL_DECLARED
00851 /* 177 */
00852 EXTERN void             TclVarErrMsg (Tcl_Interp * interp, 
00853                                 CONST char * part1, CONST char * part2, 
00854                                 CONST char * operation, CONST char * reason);
00855 #endif
00856 #ifndef Tcl_SetStartupScript_TCL_DECLARED
00857 #define Tcl_SetStartupScript_TCL_DECLARED
00858 /* 178 */
00859 EXTERN void             Tcl_SetStartupScript (Tcl_Obj * pathPtr, 
00860                                 CONST char* encodingName);
00861 #endif
00862 #ifndef Tcl_GetStartupScript_TCL_DECLARED
00863 #define Tcl_GetStartupScript_TCL_DECLARED
00864 /* 179 */
00865 EXTERN Tcl_Obj *        Tcl_GetStartupScript (CONST char ** encodingNamePtr);
00866 #endif
00867 /* Slot 180 is reserved */
00868 /* Slot 181 is reserved */
00869 #ifndef TclpLocaltime_TCL_DECLARED
00870 #define TclpLocaltime_TCL_DECLARED
00871 /* 182 */
00872 EXTERN struct tm *      TclpLocaltime (CONST time_t * clock);
00873 #endif
00874 #ifndef TclpGmtime_TCL_DECLARED
00875 #define TclpGmtime_TCL_DECLARED
00876 /* 183 */
00877 EXTERN struct tm *      TclpGmtime (CONST time_t * clock);
00878 #endif
00879 /* Slot 184 is reserved */
00880 /* Slot 185 is reserved */
00881 /* Slot 186 is reserved */
00882 /* Slot 187 is reserved */
00883 /* Slot 188 is reserved */
00884 /* Slot 189 is reserved */
00885 /* Slot 190 is reserved */
00886 /* Slot 191 is reserved */
00887 /* Slot 192 is reserved */
00888 /* Slot 193 is reserved */
00889 /* Slot 194 is reserved */
00890 /* Slot 195 is reserved */
00891 /* Slot 196 is reserved */
00892 /* Slot 197 is reserved */
00893 #ifndef TclObjGetFrame_TCL_DECLARED
00894 #define TclObjGetFrame_TCL_DECLARED
00895 /* 198 */
00896 EXTERN int              TclObjGetFrame (Tcl_Interp * interp, 
00897                                 Tcl_Obj * objPtr, CallFrame ** framePtrPtr);
00898 #endif
00899 /* Slot 199 is reserved */
00900 #ifndef TclpObjRemoveDirectory_TCL_DECLARED
00901 #define TclpObjRemoveDirectory_TCL_DECLARED
00902 /* 200 */
00903 EXTERN int              TclpObjRemoveDirectory (Tcl_Obj * pathPtr, 
00904                                 int recursive, Tcl_Obj ** errorPtr);
00905 #endif
00906 #ifndef TclpObjCopyDirectory_TCL_DECLARED
00907 #define TclpObjCopyDirectory_TCL_DECLARED
00908 /* 201 */
00909 EXTERN int              TclpObjCopyDirectory (Tcl_Obj * srcPathPtr, 
00910                                 Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr);
00911 #endif
00912 #ifndef TclpObjCreateDirectory_TCL_DECLARED
00913 #define TclpObjCreateDirectory_TCL_DECLARED
00914 /* 202 */
00915 EXTERN int              TclpObjCreateDirectory (Tcl_Obj * pathPtr);
00916 #endif
00917 #ifndef TclpObjDeleteFile_TCL_DECLARED
00918 #define TclpObjDeleteFile_TCL_DECLARED
00919 /* 203 */
00920 EXTERN int              TclpObjDeleteFile (Tcl_Obj * pathPtr);
00921 #endif
00922 #ifndef TclpObjCopyFile_TCL_DECLARED
00923 #define TclpObjCopyFile_TCL_DECLARED
00924 /* 204 */
00925 EXTERN int              TclpObjCopyFile (Tcl_Obj * srcPathPtr, 
00926                                 Tcl_Obj * destPathPtr);
00927 #endif
00928 #ifndef TclpObjRenameFile_TCL_DECLARED
00929 #define TclpObjRenameFile_TCL_DECLARED
00930 /* 205 */
00931 EXTERN int              TclpObjRenameFile (Tcl_Obj * srcPathPtr, 
00932                                 Tcl_Obj * destPathPtr);
00933 #endif
00934 #ifndef TclpObjStat_TCL_DECLARED
00935 #define TclpObjStat_TCL_DECLARED
00936 /* 206 */
00937 EXTERN int              TclpObjStat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf);
00938 #endif
00939 #ifndef TclpObjAccess_TCL_DECLARED
00940 #define TclpObjAccess_TCL_DECLARED
00941 /* 207 */
00942 EXTERN int              TclpObjAccess (Tcl_Obj * pathPtr, int mode);
00943 #endif
00944 #ifndef TclpOpenFileChannel_TCL_DECLARED
00945 #define TclpOpenFileChannel_TCL_DECLARED
00946 /* 208 */
00947 EXTERN Tcl_Channel      TclpOpenFileChannel (Tcl_Interp * interp, 
00948                                 Tcl_Obj * pathPtr, int mode, int permissions);
00949 #endif
00950 /* Slot 209 is reserved */
00951 /* Slot 210 is reserved */
00952 /* Slot 211 is reserved */
00953 #ifndef TclpFindExecutable_TCL_DECLARED
00954 #define TclpFindExecutable_TCL_DECLARED
00955 /* 212 */
00956 EXTERN void             TclpFindExecutable (CONST char * argv0);
00957 #endif
00958 #ifndef TclGetObjNameOfExecutable_TCL_DECLARED
00959 #define TclGetObjNameOfExecutable_TCL_DECLARED
00960 /* 213 */
00961 EXTERN Tcl_Obj *        TclGetObjNameOfExecutable (void);
00962 #endif
00963 #ifndef TclSetObjNameOfExecutable_TCL_DECLARED
00964 #define TclSetObjNameOfExecutable_TCL_DECLARED
00965 /* 214 */
00966 EXTERN void             TclSetObjNameOfExecutable (Tcl_Obj * name, 
00967                                 Tcl_Encoding encoding);
00968 #endif
00969 #ifndef TclStackAlloc_TCL_DECLARED
00970 #define TclStackAlloc_TCL_DECLARED
00971 /* 215 */
00972 EXTERN void *           TclStackAlloc (Tcl_Interp * interp, int numBytes);
00973 #endif
00974 #ifndef TclStackFree_TCL_DECLARED
00975 #define TclStackFree_TCL_DECLARED
00976 /* 216 */
00977 EXTERN void             TclStackFree (Tcl_Interp * interp, void * freePtr);
00978 #endif
00979 #ifndef TclPushStackFrame_TCL_DECLARED
00980 #define TclPushStackFrame_TCL_DECLARED
00981 /* 217 */
00982 EXTERN int              TclPushStackFrame (Tcl_Interp * interp, 
00983                                 Tcl_CallFrame ** framePtrPtr, 
00984                                 Tcl_Namespace * namespacePtr, 
00985                                 int isProcCallFrame);
00986 #endif
00987 #ifndef TclPopStackFrame_TCL_DECLARED
00988 #define TclPopStackFrame_TCL_DECLARED
00989 /* 218 */
00990 EXTERN void             TclPopStackFrame (Tcl_Interp * interp);
00991 #endif
00992 /* Slot 219 is reserved */
00993 /* Slot 220 is reserved */
00994 /* Slot 221 is reserved */
00995 /* Slot 222 is reserved */
00996 /* Slot 223 is reserved */
00997 #ifndef TclGetPlatform_TCL_DECLARED
00998 #define TclGetPlatform_TCL_DECLARED
00999 /* 224 */
01000 EXTERN TclPlatformType * TclGetPlatform (void);
01001 #endif
01002 #ifndef TclTraceDictPath_TCL_DECLARED
01003 #define TclTraceDictPath_TCL_DECLARED
01004 /* 225 */
01005 EXTERN Tcl_Obj *        TclTraceDictPath (Tcl_Interp * interp, 
01006                                 Tcl_Obj * rootPtr, int keyc, 
01007                                 Tcl_Obj *CONST keyv[], int flags);
01008 #endif
01009 #ifndef TclObjBeingDeleted_TCL_DECLARED
01010 #define TclObjBeingDeleted_TCL_DECLARED
01011 /* 226 */
01012 EXTERN int              TclObjBeingDeleted (Tcl_Obj * objPtr);
01013 #endif
01014 #ifndef TclSetNsPath_TCL_DECLARED
01015 #define TclSetNsPath_TCL_DECLARED
01016 /* 227 */
01017 EXTERN void             TclSetNsPath (Namespace * nsPtr, int pathLength, 
01018                                 Tcl_Namespace * pathAry[]);
01019 #endif
01020 #ifndef TclObjInterpProcCore_TCL_DECLARED
01021 #define TclObjInterpProcCore_TCL_DECLARED
01022 /* 228 */
01023 EXTERN int              TclObjInterpProcCore (register Tcl_Interp * interp, 
01024                                 Tcl_Obj * procNameObj, int skip, 
01025                                 ProcErrorProc errorProc);
01026 #endif
01027 #ifndef TclPtrMakeUpvar_TCL_DECLARED
01028 #define TclPtrMakeUpvar_TCL_DECLARED
01029 /* 229 */
01030 EXTERN int              TclPtrMakeUpvar (Tcl_Interp * interp, 
01031                                 Var * otherP1Ptr, CONST char * myName, 
01032                                 int myFlags, int index);
01033 #endif
01034 #ifndef TclObjLookupVar_TCL_DECLARED
01035 #define TclObjLookupVar_TCL_DECLARED
01036 /* 230 */
01037 EXTERN Var *            TclObjLookupVar (Tcl_Interp * interp, 
01038                                 Tcl_Obj * part1Ptr, CONST char * part2, 
01039                                 int flags, CONST char * msg, 
01040                                 CONST int createPart1, CONST int createPart2, 
01041                                 Var ** arrayPtrPtr);
01042 #endif
01043 #ifndef TclGetNamespaceFromObj_TCL_DECLARED
01044 #define TclGetNamespaceFromObj_TCL_DECLARED
01045 /* 231 */
01046 EXTERN int              TclGetNamespaceFromObj (Tcl_Interp * interp, 
01047                                 Tcl_Obj * objPtr, Tcl_Namespace ** nsPtrPtr);
01048 #endif
01049 #ifndef TclEvalObjEx_TCL_DECLARED
01050 #define TclEvalObjEx_TCL_DECLARED
01051 /* 232 */
01052 EXTERN int              TclEvalObjEx (Tcl_Interp * interp, Tcl_Obj * objPtr, 
01053                                 int flags, const CmdFrame * invoker, 
01054                                 int word);
01055 #endif
01056 #ifndef TclGetSrcInfoForPc_TCL_DECLARED
01057 #define TclGetSrcInfoForPc_TCL_DECLARED
01058 /* 233 */
01059 EXTERN void             TclGetSrcInfoForPc (CmdFrame * contextPtr);
01060 #endif
01061 #ifndef TclVarHashCreateVar_TCL_DECLARED
01062 #define TclVarHashCreateVar_TCL_DECLARED
01063 /* 234 */
01064 EXTERN Var *            TclVarHashCreateVar (TclVarHashTable * tablePtr, 
01065                                 const char * key, int * newPtr);
01066 #endif
01067 #ifndef TclInitVarHashTable_TCL_DECLARED
01068 #define TclInitVarHashTable_TCL_DECLARED
01069 /* 235 */
01070 EXTERN void             TclInitVarHashTable (TclVarHashTable * tablePtr, 
01071                                 Namespace * nsPtr);
01072 #endif
01073 #ifndef TclBackgroundException_TCL_DECLARED
01074 #define TclBackgroundException_TCL_DECLARED
01075 /* 236 */
01076 EXTERN void             TclBackgroundException (Tcl_Interp * interp, 
01077                                 int code);
01078 #endif
01079 
01080 typedef struct TclIntStubs {
01081     int magic;
01082     struct TclIntStubHooks *hooks;
01083 
01084     void *reserved0;
01085     void *reserved1;
01086     void *reserved2;
01087     void (*tclAllocateFreeObjects) (void); /* 3 */
01088     void *reserved4;
01089 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
01090     int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
01091 #endif /* UNIX */
01092 #ifdef __WIN32__ /* WIN */
01093     int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
01094 #endif /* WIN */
01095 #ifdef MAC_OSX_TCL /* MACOSX */
01096     int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
01097 #endif /* MACOSX */
01098     void (*tclCleanupCommand) (Command * cmdPtr); /* 6 */
01099     int (*tclCopyAndCollapse) (int count, CONST char * src, char * dst); /* 7 */
01100     int (*tclCopyChannel) (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); /* 8 */
01101 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
01102     int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
01103 #endif /* UNIX */
01104 #ifdef __WIN32__ /* WIN */
01105     int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
01106 #endif /* WIN */
01107 #ifdef MAC_OSX_TCL /* MACOSX */
01108     int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
01109 #endif /* MACOSX */
01110     int (*tclCreateProc) (Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); /* 10 */
01111     void (*tclDeleteCompiledLocalVars) (Interp * iPtr, CallFrame * framePtr); /* 11 */
01112     void (*tclDeleteVars) (Interp * iPtr, TclVarHashTable * tablePtr); /* 12 */
01113     void *reserved13;
01114     void (*tclDumpMemoryInfo) (FILE * outFile); /* 14 */
01115     void *reserved15;
01116     void (*tclExprFloatError) (Tcl_Interp * interp, double value); /* 16 */
01117     void *reserved17;
01118     void *reserved18;
01119     void *reserved19;
01120     void *reserved20;
01121     void *reserved21;
01122     int (*tclFindElement) (Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr); /* 22 */
01123     Proc * (*tclFindProc) (Interp * iPtr, CONST char * procName); /* 23 */
01124     void *reserved24;
01125     void (*tclFreePackageInfo) (Interp * iPtr); /* 25 */
01126     void *reserved26;
01127     void *reserved27;
01128     Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
01129     void *reserved29;
01130     void *reserved30;
01131     CONST char * (*tclGetExtension) (CONST char * name); /* 31 */
01132     int (*tclGetFrame) (Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr); /* 32 */
01133     void *reserved33;
01134     int (*tclGetIntForIndex) (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); /* 34 */
01135     void *reserved35;
01136     int (*tclGetLong) (Tcl_Interp * interp, CONST char * str, long * longPtr); /* 36 */
01137     int (*tclGetLoadedPackages) (Tcl_Interp * interp, char * targetName); /* 37 */
01138     int (*tclGetNamespaceForQualName) (Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr); /* 38 */
01139     TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */
01140     int (*tclGetOpenMode) (Tcl_Interp * interp, CONST char * str, int * seekFlagPtr); /* 40 */
01141     Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
01142     char * (*tclpGetUserHome) (CONST char * name, Tcl_DString * bufferPtr); /* 42 */
01143     void *reserved43;
01144     int (*tclGuessPackageName) (CONST char * fileName, Tcl_DString * bufPtr); /* 44 */
01145     int (*tclHideUnsafeCommands) (Tcl_Interp * interp); /* 45 */
01146     int (*tclInExit) (void); /* 46 */
01147     void *reserved47;
01148     void *reserved48;
01149     void *reserved49;
01150     void (*tclInitCompiledLocals) (Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr); /* 50 */
01151     int (*tclInterpInit) (Tcl_Interp * interp); /* 51 */
01152     void *reserved52;
01153     int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv); /* 53 */
01154     int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */
01155     Proc * (*tclIsProc) (Command * cmdPtr); /* 55 */
01156     void *reserved56;
01157     void *reserved57;
01158     Var * (*tclLookupVar) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr); /* 58 */
01159     void *reserved59;
01160     int (*tclNeedSpace) (CONST char * start, CONST char * end); /* 60 */
01161     Tcl_Obj * (*tclNewProcBodyObj) (Proc * procPtr); /* 61 */
01162     int (*tclObjCommandComplete) (Tcl_Obj * cmdPtr); /* 62 */
01163     int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */
01164     int (*tclObjInvoke) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */
01165     void *reserved65;
01166     void *reserved66;
01167     void *reserved67;
01168     void *reserved68;
01169     char * (*tclpAlloc) (unsigned int size); /* 69 */
01170     void *reserved70;
01171     void *reserved71;
01172     void *reserved72;
01173     void *reserved73;
01174     void (*tclpFree) (char * ptr); /* 74 */
01175     unsigned long (*tclpGetClicks) (void); /* 75 */
01176     unsigned long (*tclpGetSeconds) (void); /* 76 */
01177     void (*tclpGetTime) (Tcl_Time * time); /* 77 */
01178     int (*tclpGetTimeZone) (unsigned long time); /* 78 */
01179     void *reserved79;
01180     void *reserved80;
01181     char * (*tclpRealloc) (char * ptr, unsigned int size); /* 81 */
01182     void *reserved82;
01183     void *reserved83;
01184     void *reserved84;
01185     void *reserved85;
01186     void *reserved86;
01187     void *reserved87;
01188     char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags); /* 88 */
01189     int (*tclPreventAliasLoop) (Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd); /* 89 */
01190     void *reserved90;
01191     void (*tclProcCleanupProc) (Proc * procPtr); /* 91 */
01192     int (*tclProcCompileProc) (Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName); /* 92 */
01193     void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
01194     void *reserved94;
01195     void *reserved95;
01196     int (*tclRenameCommand) (Tcl_Interp * interp, CONST char * oldName, CONST char * newName); /* 96 */
01197     void (*tclResetShadowedCmdRefs) (Tcl_Interp * interp, Command * newCmdPtr); /* 97 */
01198     int (*tclServiceIdle) (void); /* 98 */
01199     void *reserved99;
01200     void *reserved100;
01201     char * (*tclSetPreInitScript) (char * string); /* 101 */
01202     void (*tclSetupEnv) (Tcl_Interp * interp); /* 102 */
01203     int (*tclSockGetPort) (Tcl_Interp * interp, CONST char * str, CONST char * proto, int * portPtr); /* 103 */
01204 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
01205     int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
01206 #endif /* UNIX */
01207 #ifdef __WIN32__ /* WIN */
01208     int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
01209 #endif /* WIN */
01210 #ifdef MAC_OSX_TCL /* MACOSX */
01211     int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
01212 #endif /* MACOSX */
01213     void *reserved105;
01214     void *reserved106;
01215     void *reserved107;
01216     void (*tclTeardownNamespace) (Namespace * nsPtr); /* 108 */
01217     int (*tclUpdateReturnInfo) (Interp * iPtr); /* 109 */
01218     void *reserved110;
01219     void (*tcl_AddInterpResolvers) (Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); /* 111 */
01220     int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 112 */
01221     Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 113 */
01222     void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 114 */
01223     int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst); /* 115 */
01224     Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 116 */
01225     Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 117 */
01226     int (*tcl_GetInterpResolvers) (Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo); /* 118 */
01227     int (*tcl_GetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo); /* 119 */
01228     Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 120 */
01229     int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern); /* 121 */
01230     Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 122 */
01231     void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); /* 123 */
01232     Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); /* 124 */
01233     Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); /* 125 */
01234     void (*tcl_GetVariableFullName) (Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr); /* 126 */
01235     int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite); /* 127 */
01236     void (*tcl_PopCallFrame) (Tcl_Interp * interp); /* 128 */
01237     int (*tcl_PushCallFrame) (Tcl_Interp * interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame); /* 129 */
01238     int (*tcl_RemoveInterpResolvers) (Tcl_Interp * interp, CONST char * name); /* 130 */
01239     void (*tcl_SetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); /* 131 */
01240     int (*tclpHasSockets) (Tcl_Interp * interp); /* 132 */
01241     struct tm * (*tclpGetDate) (CONST time_t * time, int useGMT); /* 133 */
01242     void *reserved134;
01243     void *reserved135;
01244     void *reserved136;
01245     void *reserved137;
01246     CONST84_RETURN char * (*tclGetEnv) (CONST char * name, Tcl_DString * valuePtr); /* 138 */
01247     void *reserved139;
01248     void *reserved140;
01249     CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); /* 141 */
01250     int (*tclSetByteCodeFromAny) (Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData); /* 142 */
01251     int (*tclAddLiteralObj) (struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr); /* 143 */
01252     void (*tclHideLiteral) (Tcl_Interp * interp, struct CompileEnv * envPtr, int index); /* 144 */
01253     struct AuxDataType * (*tclGetAuxDataType) (char * typeName); /* 145 */
01254     TclHandle (*tclHandleCreate) (VOID * ptr); /* 146 */
01255     void (*tclHandleFree) (TclHandle handle); /* 147 */
01256     TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
01257     void (*tclHandleRelease) (TclHandle handle); /* 149 */
01258     int (*tclRegAbout) (Tcl_Interp * interp, Tcl_RegExp re); /* 150 */
01259     void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int * startPtr, int * endPtr); /* 151 */
01260     void (*tclSetLibraryPath) (Tcl_Obj * pathPtr); /* 152 */
01261     Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
01262     void *reserved154;
01263     void *reserved155;
01264     void (*tclRegError) (Tcl_Interp * interp, CONST char * msg, int status); /* 156 */
01265     Var * (*tclVarTraceExists) (Tcl_Interp * interp, CONST char * varName); /* 157 */
01266     void (*tclSetStartupScriptFileName) (CONST char * filename); /* 158 */
01267     CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */
01268     void *reserved160;
01269     int (*tclChannelTransform) (Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr); /* 161 */
01270     void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
01271     void * (*tclGetInstructionTable) (void); /* 163 */
01272     void (*tclExpandCodeArray) (void * envPtr); /* 164 */
01273     void (*tclpSetInitialEncodings) (void); /* 165 */
01274     int (*tclListObjSetElement) (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr); /* 166 */
01275     void (*tclSetStartupScriptPath) (Tcl_Obj * pathPtr); /* 167 */
01276     Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
01277     int (*tclpUtfNcmp2) (CONST char * s1, CONST char * s2, unsigned long n); /* 169 */
01278     int (*tclCheckInterpTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */
01279     int (*tclCheckExecutionTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */
01280     int (*tclInThreadExit) (void); /* 172 */
01281     int (*tclUniCharMatch) (CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int flags); /* 173 */
01282     void *reserved174;
01283     int (*tclCallVarTraces) (Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg); /* 175 */
01284     void (*tclCleanupVar) (Var * varPtr, Var * arrayPtr); /* 176 */
01285     void (*tclVarErrMsg) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason); /* 177 */
01286     void (*tcl_SetStartupScript) (Tcl_Obj * pathPtr, CONST char* encodingName); /* 178 */
01287     Tcl_Obj * (*tcl_GetStartupScript) (CONST char ** encodingNamePtr); /* 179 */
01288     void *reserved180;
01289     void *reserved181;
01290     struct tm * (*tclpLocaltime) (CONST time_t * clock); /* 182 */
01291     struct tm * (*tclpGmtime) (CONST time_t * clock); /* 183 */
01292     void *reserved184;
01293     void *reserved185;
01294     void *reserved186;
01295     void *reserved187;
01296     void *reserved188;
01297     void *reserved189;
01298     void *reserved190;
01299     void *reserved191;
01300     void *reserved192;
01301     void *reserved193;
01302     void *reserved194;
01303     void *reserved195;
01304     void *reserved196;
01305     void *reserved197;
01306     int (*tclObjGetFrame) (Tcl_Interp * interp, Tcl_Obj * objPtr, CallFrame ** framePtrPtr); /* 198 */
01307     void *reserved199;
01308     int (*tclpObjRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); /* 200 */
01309     int (*tclpObjCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); /* 201 */
01310     int (*tclpObjCreateDirectory) (Tcl_Obj * pathPtr); /* 202 */
01311     int (*tclpObjDeleteFile) (Tcl_Obj * pathPtr); /* 203 */
01312     int (*tclpObjCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 204 */
01313     int (*tclpObjRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 205 */
01314     int (*tclpObjStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 206 */
01315     int (*tclpObjAccess) (Tcl_Obj * pathPtr, int mode); /* 207 */
01316     Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions); /* 208 */
01317     void *reserved209;
01318     void *reserved210;
01319     void *reserved211;
01320     void (*tclpFindExecutable) (CONST char * argv0); /* 212 */
01321     Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
01322     void (*tclSetObjNameOfExecutable) (Tcl_Obj * name, Tcl_Encoding encoding); /* 214 */
01323     void * (*tclStackAlloc) (Tcl_Interp * interp, int numBytes); /* 215 */
01324     void (*tclStackFree) (Tcl_Interp * interp, void * freePtr); /* 216 */
01325     int (*tclPushStackFrame) (Tcl_Interp * interp, Tcl_CallFrame ** framePtrPtr, Tcl_Namespace * namespacePtr, int isProcCallFrame); /* 217 */
01326     void (*tclPopStackFrame) (Tcl_Interp * interp); /* 218 */
01327     void *reserved219;
01328     void *reserved220;
01329     void *reserved221;
01330     void *reserved222;
01331     void *reserved223;
01332     TclPlatformType * (*tclGetPlatform) (void); /* 224 */
01333     Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp * interp, Tcl_Obj * rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */
01334     int (*tclObjBeingDeleted) (Tcl_Obj * objPtr); /* 226 */
01335     void (*tclSetNsPath) (Namespace * nsPtr, int pathLength, Tcl_Namespace * pathAry[]); /* 227 */
01336     int (*tclObjInterpProcCore) (register Tcl_Interp * interp, Tcl_Obj * procNameObj, int skip, ProcErrorProc errorProc); /* 228 */
01337     int (*tclPtrMakeUpvar) (Tcl_Interp * interp, Var * otherP1Ptr, CONST char * myName, int myFlags, int index); /* 229 */
01338     Var * (*tclObjLookupVar) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, CONST char * part2, int flags, CONST char * msg, CONST int createPart1, CONST int createPart2, Var ** arrayPtrPtr); /* 230 */
01339     int (*tclGetNamespaceFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, Tcl_Namespace ** nsPtrPtr); /* 231 */
01340     int (*tclEvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags, const CmdFrame * invoker, int word); /* 232 */
01341     void (*tclGetSrcInfoForPc) (CmdFrame * contextPtr); /* 233 */
01342     Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */
01343     void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */
01344     void (*tclBackgroundException) (Tcl_Interp * interp, int code); /* 236 */
01345 } TclIntStubs;
01346 
01347 #ifdef __cplusplus
01348 extern "C" {
01349 #endif
01350 extern TclIntStubs *tclIntStubsPtr;
01351 #ifdef __cplusplus
01352 }
01353 #endif
01354 
01355 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
01356 
01357 /*
01358  * Inline function declarations:
01359  */
01360 
01361 /* Slot 0 is reserved */
01362 /* Slot 1 is reserved */
01363 /* Slot 2 is reserved */
01364 #ifndef TclAllocateFreeObjects
01365 #define TclAllocateFreeObjects \
01366         (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
01367 #endif
01368 /* Slot 4 is reserved */
01369 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
01370 #ifndef TclCleanupChildren
01371 #define TclCleanupChildren \
01372         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
01373 #endif
01374 #endif /* UNIX */
01375 #ifdef __WIN32__ /* WIN */
01376 #ifndef TclCleanupChildren
01377 #define TclCleanupChildren \
01378         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
01379 #endif
01380 #endif /* WIN */
01381 #ifdef MAC_OSX_TCL /* MACOSX */
01382 #ifndef TclCleanupChildren
01383 #define TclCleanupChildren \
01384         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
01385 #endif
01386 #endif /* MACOSX */
01387 #ifndef TclCleanupCommand
01388 #define TclCleanupCommand \
01389         (tclIntStubsPtr->tclCleanupCommand) /* 6 */
01390 #endif
01391 #ifndef TclCopyAndCollapse
01392 #define TclCopyAndCollapse \
01393         (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
01394 #endif
01395 #ifndef TclCopyChannel
01396 #define TclCopyChannel \
01397         (tclIntStubsPtr->tclCopyChannel) /* 8 */
01398 #endif
01399 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
01400 #ifndef TclCreatePipeline
01401 #define TclCreatePipeline \
01402         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
01403 #endif
01404 #endif /* UNIX */
01405 #ifdef __WIN32__ /* WIN */
01406 #ifndef TclCreatePipeline
01407 #define TclCreatePipeline \
01408         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
01409 #endif
01410 #endif /* WIN */
01411 #ifdef MAC_OSX_TCL /* MACOSX */
01412 #ifndef TclCreatePipeline
01413 #define TclCreatePipeline \
01414         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
01415 #endif
01416 #endif /* MACOSX */
01417 #ifndef TclCreateProc
01418 #define TclCreateProc \
01419         (tclIntStubsPtr->tclCreateProc) /* 10 */
01420 #endif
01421 #ifndef TclDeleteCompiledLocalVars
01422 #define TclDeleteCompiledLocalVars \
01423         (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
01424 #endif
01425 #ifndef TclDeleteVars
01426 #define TclDeleteVars \
01427         (tclIntStubsPtr->tclDeleteVars) /* 12 */
01428 #endif
01429 /* Slot 13 is reserved */
01430 #ifndef TclDumpMemoryInfo
01431 #define TclDumpMemoryInfo \
01432         (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
01433 #endif
01434 /* Slot 15 is reserved */
01435 #ifndef TclExprFloatError
01436 #define TclExprFloatError \
01437         (tclIntStubsPtr->tclExprFloatError) /* 16 */
01438 #endif
01439 /* Slot 17 is reserved */
01440 /* Slot 18 is reserved */
01441 /* Slot 19 is reserved */
01442 /* Slot 20 is reserved */
01443 /* Slot 21 is reserved */
01444 #ifndef TclFindElement
01445 #define TclFindElement \
01446         (tclIntStubsPtr->tclFindElement) /* 22 */
01447 #endif
01448 #ifndef TclFindProc
01449 #define TclFindProc \
01450         (tclIntStubsPtr->tclFindProc) /* 23 */
01451 #endif
01452 /* Slot 24 is reserved */
01453 #ifndef TclFreePackageInfo
01454 #define TclFreePackageInfo \
01455         (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
01456 #endif
01457 /* Slot 26 is reserved */
01458 /* Slot 27 is reserved */
01459 #ifndef TclpGetDefaultStdChannel
01460 #define TclpGetDefaultStdChannel \
01461         (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
01462 #endif
01463 /* Slot 29 is reserved */
01464 /* Slot 30 is reserved */
01465 #ifndef TclGetExtension
01466 #define TclGetExtension \
01467         (tclIntStubsPtr->tclGetExtension) /* 31 */
01468 #endif
01469 #ifndef TclGetFrame
01470 #define TclGetFrame \
01471         (tclIntStubsPtr->tclGetFrame) /* 32 */
01472 #endif
01473 /* Slot 33 is reserved */
01474 #ifndef TclGetIntForIndex
01475 #define TclGetIntForIndex \
01476         (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
01477 #endif
01478 /* Slot 35 is reserved */
01479 #ifndef TclGetLong
01480 #define TclGetLong \
01481         (tclIntStubsPtr->tclGetLong) /* 36 */
01482 #endif
01483 #ifndef TclGetLoadedPackages
01484 #define TclGetLoadedPackages \
01485         (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
01486 #endif
01487 #ifndef TclGetNamespaceForQualName
01488 #define TclGetNamespaceForQualName \
01489         (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
01490 #endif
01491 #ifndef TclGetObjInterpProc
01492 #define TclGetObjInterpProc \
01493         (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
01494 #endif
01495 #ifndef TclGetOpenMode
01496 #define TclGetOpenMode \
01497         (tclIntStubsPtr->tclGetOpenMode) /* 40 */
01498 #endif
01499 #ifndef TclGetOriginalCommand
01500 #define TclGetOriginalCommand \
01501         (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
01502 #endif
01503 #ifndef TclpGetUserHome
01504 #define TclpGetUserHome \
01505         (tclIntStubsPtr->tclpGetUserHome) /* 42 */
01506 #endif
01507 /* Slot 43 is reserved */
01508 #ifndef TclGuessPackageName
01509 #define TclGuessPackageName \
01510         (tclIntStubsPtr->tclGuessPackageName) /* 44 */
01511 #endif
01512 #ifndef TclHideUnsafeCommands
01513 #define TclHideUnsafeCommands \
01514         (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
01515 #endif
01516 #ifndef TclInExit
01517 #define TclInExit \
01518         (tclIntStubsPtr->tclInExit) /* 46 */
01519 #endif
01520 /* Slot 47 is reserved */
01521 /* Slot 48 is reserved */
01522 /* Slot 49 is reserved */
01523 #ifndef TclInitCompiledLocals
01524 #define TclInitCompiledLocals \
01525         (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
01526 #endif
01527 #ifndef TclInterpInit
01528 #define TclInterpInit \
01529         (tclIntStubsPtr->tclInterpInit) /* 51 */
01530 #endif
01531 /* Slot 52 is reserved */
01532 #ifndef TclInvokeObjectCommand
01533 #define TclInvokeObjectCommand \
01534         (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
01535 #endif
01536 #ifndef TclInvokeStringCommand
01537 #define TclInvokeStringCommand \
01538         (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
01539 #endif
01540 #ifndef TclIsProc
01541 #define TclIsProc \
01542         (tclIntStubsPtr->tclIsProc) /* 55 */
01543 #endif
01544 /* Slot 56 is reserved */
01545 /* Slot 57 is reserved */
01546 #ifndef TclLookupVar
01547 #define TclLookupVar \
01548         (tclIntStubsPtr->tclLookupVar) /* 58 */
01549 #endif
01550 /* Slot 59 is reserved */
01551 #ifndef TclNeedSpace
01552 #define TclNeedSpace \
01553         (tclIntStubsPtr->tclNeedSpace) /* 60 */
01554 #endif
01555 #ifndef TclNewProcBodyObj
01556 #define TclNewProcBodyObj \
01557         (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
01558 #endif
01559 #ifndef TclObjCommandComplete
01560 #define TclObjCommandComplete \
01561         (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
01562 #endif
01563 #ifndef TclObjInterpProc
01564 #define TclObjInterpProc \
01565         (tclIntStubsPtr->tclObjInterpProc) /* 63 */
01566 #endif
01567 #ifndef TclObjInvoke
01568 #define TclObjInvoke \
01569         (tclIntStubsPtr->tclObjInvoke) /* 64 */
01570 #endif
01571 /* Slot 65 is reserved */
01572 /* Slot 66 is reserved */
01573 /* Slot 67 is reserved */
01574 /* Slot 68 is reserved */
01575 #ifndef TclpAlloc
01576 #define TclpAlloc \
01577         (tclIntStubsPtr->tclpAlloc) /* 69 */
01578 #endif
01579 /* Slot 70 is reserved */
01580 /* Slot 71 is reserved */
01581 /* Slot 72 is reserved */
01582 /* Slot 73 is reserved */
01583 #ifndef TclpFree
01584 #define TclpFree \
01585         (tclIntStubsPtr->tclpFree) /* 74 */
01586 #endif
01587 #ifndef TclpGetClicks
01588 #define TclpGetClicks \
01589         (tclIntStubsPtr->tclpGetClicks) /* 75 */
01590 #endif
01591 #ifndef TclpGetSeconds
01592 #define TclpGetSeconds \
01593         (tclIntStubsPtr->tclpGetSeconds) /* 76 */
01594 #endif
01595 #ifndef TclpGetTime
01596 #define TclpGetTime \
01597         (tclIntStubsPtr->tclpGetTime) /* 77 */
01598 #endif
01599 #ifndef TclpGetTimeZone
01600 #define TclpGetTimeZone \
01601         (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
01602 #endif
01603 /* Slot 79 is reserved */
01604 /* Slot 80 is reserved */
01605 #ifndef TclpRealloc
01606 #define TclpRealloc \
01607         (tclIntStubsPtr->tclpRealloc) /* 81 */
01608 #endif
01609 /* Slot 82 is reserved */
01610 /* Slot 83 is reserved */
01611 /* Slot 84 is reserved */
01612 /* Slot 85 is reserved */
01613 /* Slot 86 is reserved */
01614 /* Slot 87 is reserved */
01615 #ifndef TclPrecTraceProc
01616 #define TclPrecTraceProc \
01617         (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
01618 #endif
01619 #ifndef TclPreventAliasLoop
01620 #define TclPreventAliasLoop \
01621         (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
01622 #endif
01623 /* Slot 90 is reserved */
01624 #ifndef TclProcCleanupProc
01625 #define TclProcCleanupProc \
01626         (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
01627 #endif
01628 #ifndef TclProcCompileProc
01629 #define TclProcCompileProc \
01630         (tclIntStubsPtr->tclProcCompileProc) /* 92 */
01631 #endif
01632 #ifndef TclProcDeleteProc
01633 #define TclProcDeleteProc \
01634         (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
01635 #endif
01636 /* Slot 94 is reserved */
01637 /* Slot 95 is reserved */
01638 #ifndef TclRenameCommand
01639 #define TclRenameCommand \
01640         (tclIntStubsPtr->tclRenameCommand) /* 96 */
01641 #endif
01642 #ifndef TclResetShadowedCmdRefs
01643 #define TclResetShadowedCmdRefs \
01644         (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
01645 #endif
01646 #ifndef TclServiceIdle
01647 #define TclServiceIdle \
01648         (tclIntStubsPtr->tclServiceIdle) /* 98 */
01649 #endif
01650 /* Slot 99 is reserved */
01651 /* Slot 100 is reserved */
01652 #ifndef TclSetPreInitScript
01653 #define TclSetPreInitScript \
01654         (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
01655 #endif
01656 #ifndef TclSetupEnv
01657 #define TclSetupEnv \
01658         (tclIntStubsPtr->tclSetupEnv) /* 102 */
01659 #endif
01660 #ifndef TclSockGetPort
01661 #define TclSockGetPort \
01662         (tclIntStubsPtr->tclSockGetPort) /* 103 */
01663 #endif
01664 #if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
01665 #ifndef TclSockMinimumBuffers
01666 #define TclSockMinimumBuffers \
01667         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
01668 #endif
01669 #endif /* UNIX */
01670 #ifdef __WIN32__ /* WIN */
01671 #ifndef TclSockMinimumBuffers
01672 #define TclSockMinimumBuffers \
01673         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
01674 #endif
01675 #endif /* WIN */
01676 #ifdef MAC_OSX_TCL /* MACOSX */
01677 #ifndef TclSockMinimumBuffers
01678 #define TclSockMinimumBuffers \
01679         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
01680 #endif
01681 #endif /* MACOSX */
01682 /* Slot 105 is reserved */
01683 /* Slot 106 is reserved */
01684 /* Slot 107 is reserved */
01685 #ifndef TclTeardownNamespace
01686 #define TclTeardownNamespace \
01687         (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
01688 #endif
01689 #ifndef TclUpdateReturnInfo
01690 #define TclUpdateReturnInfo \
01691         (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
01692 #endif
01693 /* Slot 110 is reserved */
01694 #ifndef Tcl_AddInterpResolvers
01695 #define Tcl_AddInterpResolvers \
01696         (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
01697 #endif
01698 #ifndef Tcl_AppendExportList
01699 #define Tcl_AppendExportList \
01700         (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
01701 #endif
01702 #ifndef Tcl_CreateNamespace
01703 #define Tcl_CreateNamespace \
01704         (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
01705 #endif
01706 #ifndef Tcl_DeleteNamespace
01707 #define Tcl_DeleteNamespace \
01708         (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
01709 #endif
01710 #ifndef Tcl_Export
01711 #define Tcl_Export \
01712         (tclIntStubsPtr->tcl_Export) /* 115 */
01713 #endif
01714 #ifndef Tcl_FindCommand
01715 #define Tcl_FindCommand \
01716         (tclIntStubsPtr->tcl_FindCommand) /* 116 */
01717 #endif
01718 #ifndef Tcl_FindNamespace
01719 #define Tcl_FindNamespace \
01720         (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
01721 #endif
01722 #ifndef Tcl_GetInterpResolvers
01723 #define Tcl_GetInterpResolvers \
01724         (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
01725 #endif
01726 #ifndef Tcl_GetNamespaceResolvers
01727 #define Tcl_GetNamespaceResolvers \
01728         (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
01729 #endif
01730 #ifndef Tcl_FindNamespaceVar
01731 #define Tcl_FindNamespaceVar \
01732         (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
01733 #endif
01734 #ifndef Tcl_ForgetImport
01735 #define Tcl_ForgetImport \
01736         (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
01737 #endif
01738 #ifndef Tcl_GetCommandFromObj
01739 #define Tcl_GetCommandFromObj \
01740         (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
01741 #endif
01742 #ifndef Tcl_GetCommandFullName
01743 #define Tcl_GetCommandFullName \
01744         (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
01745 #endif
01746 #ifndef Tcl_GetCurrentNamespace
01747 #define Tcl_GetCurrentNamespace \
01748         (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
01749 #endif
01750 #ifndef Tcl_GetGlobalNamespace
01751 #define Tcl_GetGlobalNamespace \
01752         (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
01753 #endif
01754 #ifndef Tcl_GetVariableFullName
01755 #define Tcl_GetVariableFullName \
01756         (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
01757 #endif
01758 #ifndef Tcl_Import
01759 #define Tcl_Import \
01760         (tclIntStubsPtr->tcl_Import) /* 127 */
01761 #endif
01762 #ifndef Tcl_PopCallFrame
01763 #define Tcl_PopCallFrame \
01764         (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
01765 #endif
01766 #ifndef Tcl_PushCallFrame
01767 #define Tcl_PushCallFrame \
01768         (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
01769 #endif
01770 #ifndef Tcl_RemoveInterpResolvers
01771 #define Tcl_RemoveInterpResolvers \
01772         (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
01773 #endif
01774 #ifndef Tcl_SetNamespaceResolvers
01775 #define Tcl_SetNamespaceResolvers \
01776         (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
01777 #endif
01778 #ifndef TclpHasSockets
01779 #define TclpHasSockets \
01780         (tclIntStubsPtr->tclpHasSockets) /* 132 */
01781 #endif
01782 #ifndef TclpGetDate
01783 #define TclpGetDate \
01784         (tclIntStubsPtr->tclpGetDate) /* 133 */
01785 #endif
01786 /* Slot 134 is reserved */
01787 /* Slot 135 is reserved */
01788 /* Slot 136 is reserved */
01789 /* Slot 137 is reserved */
01790 #ifndef TclGetEnv
01791 #define TclGetEnv \
01792         (tclIntStubsPtr->tclGetEnv) /* 138 */
01793 #endif
01794 /* Slot 139 is reserved */
01795 /* Slot 140 is reserved */
01796 #ifndef TclpGetCwd
01797 #define TclpGetCwd \
01798         (tclIntStubsPtr->tclpGetCwd) /* 141 */
01799 #endif
01800 #ifndef TclSetByteCodeFromAny
01801 #define TclSetByteCodeFromAny \
01802         (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
01803 #endif
01804 #ifndef TclAddLiteralObj
01805 #define TclAddLiteralObj \
01806         (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
01807 #endif
01808 #ifndef TclHideLiteral
01809 #define TclHideLiteral \
01810         (tclIntStubsPtr->tclHideLiteral) /* 144 */
01811 #endif
01812 #ifndef TclGetAuxDataType
01813 #define TclGetAuxDataType \
01814         (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
01815 #endif
01816 #ifndef TclHandleCreate
01817 #define TclHandleCreate \
01818         (tclIntStubsPtr->tclHandleCreate) /* 146 */
01819 #endif
01820 #ifndef TclHandleFree
01821 #define TclHandleFree \
01822         (tclIntStubsPtr->tclHandleFree) /* 147 */
01823 #endif
01824 #ifndef TclHandlePreserve
01825 #define TclHandlePreserve \
01826         (tclIntStubsPtr->tclHandlePreserve) /* 148 */
01827 #endif
01828 #ifndef TclHandleRelease
01829 #define TclHandleRelease \
01830         (tclIntStubsPtr->tclHandleRelease) /* 149 */
01831 #endif
01832 #ifndef TclRegAbout
01833 #define TclRegAbout \
01834         (tclIntStubsPtr->tclRegAbout) /* 150 */
01835 #endif
01836 #ifndef TclRegExpRangeUniChar
01837 #define TclRegExpRangeUniChar \
01838         (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
01839 #endif
01840 #ifndef TclSetLibraryPath
01841 #define TclSetLibraryPath \
01842         (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
01843 #endif
01844 #ifndef TclGetLibraryPath
01845 #define TclGetLibraryPath \
01846         (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
01847 #endif
01848 /* Slot 154 is reserved */
01849 /* Slot 155 is reserved */
01850 #ifndef TclRegError
01851 #define TclRegError \
01852         (tclIntStubsPtr->tclRegError) /* 156 */
01853 #endif
01854 #ifndef TclVarTraceExists
01855 #define TclVarTraceExists \
01856         (tclIntStubsPtr->tclVarTraceExists) /* 157 */
01857 #endif
01858 #ifndef TclSetStartupScriptFileName
01859 #define TclSetStartupScriptFileName \
01860         (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
01861 #endif
01862 #ifndef TclGetStartupScriptFileName
01863 #define TclGetStartupScriptFileName \
01864         (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
01865 #endif
01866 /* Slot 160 is reserved */
01867 #ifndef TclChannelTransform
01868 #define TclChannelTransform \
01869         (tclIntStubsPtr->tclChannelTransform) /* 161 */
01870 #endif
01871 #ifndef TclChannelEventScriptInvoker
01872 #define TclChannelEventScriptInvoker \
01873         (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
01874 #endif
01875 #ifndef TclGetInstructionTable
01876 #define TclGetInstructionTable \
01877         (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
01878 #endif
01879 #ifndef TclExpandCodeArray
01880 #define TclExpandCodeArray \
01881         (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
01882 #endif
01883 #ifndef TclpSetInitialEncodings
01884 #define TclpSetInitialEncodings \
01885         (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
01886 #endif
01887 #ifndef TclListObjSetElement
01888 #define TclListObjSetElement \
01889         (tclIntStubsPtr->tclListObjSetElement) /* 166 */
01890 #endif
01891 #ifndef TclSetStartupScriptPath
01892 #define TclSetStartupScriptPath \
01893         (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
01894 #endif
01895 #ifndef TclGetStartupScriptPath
01896 #define TclGetStartupScriptPath \
01897         (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
01898 #endif
01899 #ifndef TclpUtfNcmp2
01900 #define TclpUtfNcmp2 \
01901         (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
01902 #endif
01903 #ifndef TclCheckInterpTraces
01904 #define TclCheckInterpTraces \
01905         (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
01906 #endif
01907 #ifndef TclCheckExecutionTraces
01908 #define TclCheckExecutionTraces \
01909         (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
01910 #endif
01911 #ifndef TclInThreadExit
01912 #define TclInThreadExit \
01913         (tclIntStubsPtr->tclInThreadExit) /* 172 */
01914 #endif
01915 #ifndef TclUniCharMatch
01916 #define TclUniCharMatch \
01917         (tclIntStubsPtr->tclUniCharMatch) /* 173 */
01918 #endif
01919 /* Slot 174 is reserved */
01920 #ifndef TclCallVarTraces
01921 #define TclCallVarTraces \
01922         (tclIntStubsPtr->tclCallVarTraces) /* 175 */
01923 #endif
01924 #ifndef TclCleanupVar
01925 #define TclCleanupVar \
01926         (tclIntStubsPtr->tclCleanupVar) /* 176 */
01927 #endif
01928 #ifndef TclVarErrMsg
01929 #define TclVarErrMsg \
01930         (tclIntStubsPtr->tclVarErrMsg) /* 177 */
01931 #endif
01932 #ifndef Tcl_SetStartupScript
01933 #define Tcl_SetStartupScript \
01934         (tclIntStubsPtr->tcl_SetStartupScript) /* 178 */
01935 #endif
01936 #ifndef Tcl_GetStartupScript
01937 #define Tcl_GetStartupScript \
01938         (tclIntStubsPtr->tcl_GetStartupScript) /* 179 */
01939 #endif
01940 /* Slot 180 is reserved */
01941 /* Slot 181 is reserved */
01942 #ifndef TclpLocaltime
01943 #define TclpLocaltime \
01944         (tclIntStubsPtr->tclpLocaltime) /* 182 */
01945 #endif
01946 #ifndef TclpGmtime
01947 #define TclpGmtime \
01948         (tclIntStubsPtr->tclpGmtime) /* 183 */
01949 #endif
01950 /* Slot 184 is reserved */
01951 /* Slot 185 is reserved */
01952 /* Slot 186 is reserved */
01953 /* Slot 187 is reserved */
01954 /* Slot 188 is reserved */
01955 /* Slot 189 is reserved */
01956 /* Slot 190 is reserved */
01957 /* Slot 191 is reserved */
01958 /* Slot 192 is reserved */
01959 /* Slot 193 is reserved */
01960 /* Slot 194 is reserved */
01961 /* Slot 195 is reserved */
01962 /* Slot 196 is reserved */
01963 /* Slot 197 is reserved */
01964 #ifndef TclObjGetFrame
01965 #define TclObjGetFrame \
01966         (tclIntStubsPtr->tclObjGetFrame) /* 198 */
01967 #endif
01968 /* Slot 199 is reserved */
01969 #ifndef TclpObjRemoveDirectory
01970 #define TclpObjRemoveDirectory \
01971         (tclIntStubsPtr->tclpObjRemoveDirectory) /* 200 */
01972 #endif
01973 #ifndef TclpObjCopyDirectory
01974 #define TclpObjCopyDirectory \
01975         (tclIntStubsPtr->tclpObjCopyDirectory) /* 201 */
01976 #endif
01977 #ifndef TclpObjCreateDirectory
01978 #define TclpObjCreateDirectory \
01979         (tclIntStubsPtr->tclpObjCreateDirectory) /* 202 */
01980 #endif
01981 #ifndef TclpObjDeleteFile
01982 #define TclpObjDeleteFile \
01983         (tclIntStubsPtr->tclpObjDeleteFile) /* 203 */
01984 #endif
01985 #ifndef TclpObjCopyFile
01986 #define TclpObjCopyFile \
01987         (tclIntStubsPtr->tclpObjCopyFile) /* 204 */
01988 #endif
01989 #ifndef TclpObjRenameFile
01990 #define TclpObjRenameFile \
01991         (tclIntStubsPtr->tclpObjRenameFile) /* 205 */
01992 #endif
01993 #ifndef TclpObjStat
01994 #define TclpObjStat \
01995         (tclIntStubsPtr->tclpObjStat) /* 206 */
01996 #endif
01997 #ifndef TclpObjAccess
01998 #define TclpObjAccess \
01999         (tclIntStubsPtr->tclpObjAccess) /* 207 */
02000 #endif
02001 #ifndef TclpOpenFileChannel
02002 #define TclpOpenFileChannel \
02003         (tclIntStubsPtr->tclpOpenFileChannel) /* 208 */
02004 #endif
02005 /* Slot 209 is reserved */
02006 /* Slot 210 is reserved */
02007 /* Slot 211 is reserved */
02008 #ifndef TclpFindExecutable
02009 #define TclpFindExecutable \
02010         (tclIntStubsPtr->tclpFindExecutable) /* 212 */
02011 #endif
02012 #ifndef TclGetObjNameOfExecutable
02013 #define TclGetObjNameOfExecutable \
02014         (tclIntStubsPtr->tclGetObjNameOfExecutable) /* 213 */
02015 #endif
02016 #ifndef TclSetObjNameOfExecutable
02017 #define TclSetObjNameOfExecutable \
02018         (tclIntStubsPtr->tclSetObjNameOfExecutable) /* 214 */
02019 #endif
02020 #ifndef TclStackAlloc
02021 #define TclStackAlloc \
02022         (tclIntStubsPtr->tclStackAlloc) /* 215 */
02023 #endif
02024 #ifndef TclStackFree
02025 #define TclStackFree \
02026         (tclIntStubsPtr->tclStackFree) /* 216 */
02027 #endif
02028 #ifndef TclPushStackFrame
02029 #define TclPushStackFrame \
02030         (tclIntStubsPtr->tclPushStackFrame) /* 217 */
02031 #endif
02032 #ifndef TclPopStackFrame
02033 #define TclPopStackFrame \
02034         (tclIntStubsPtr->tclPopStackFrame) /* 218 */
02035 #endif
02036 /* Slot 219 is reserved */
02037 /* Slot 220 is reserved */
02038 /* Slot 221 is reserved */
02039 /* Slot 222 is reserved */
02040 /* Slot 223 is reserved */
02041 #ifndef TclGetPlatform
02042 #define TclGetPlatform \
02043         (tclIntStubsPtr->tclGetPlatform) /* 224 */
02044 #endif
02045 #ifndef TclTraceDictPath
02046 #define TclTraceDictPath \
02047         (tclIntStubsPtr->tclTraceDictPath) /* 225 */
02048 #endif
02049 #ifndef TclObjBeingDeleted
02050 #define TclObjBeingDeleted \
02051         (tclIntStubsPtr->tclObjBeingDeleted) /* 226 */
02052 #endif
02053 #ifndef TclSetNsPath
02054 #define TclSetNsPath \
02055         (tclIntStubsPtr->tclSetNsPath) /* 227 */
02056 #endif
02057 #ifndef TclObjInterpProcCore
02058 #define TclObjInterpProcCore \
02059         (tclIntStubsPtr->tclObjInterpProcCore) /* 228 */
02060 #endif
02061 #ifndef TclPtrMakeUpvar
02062 #define TclPtrMakeUpvar \
02063         (tclIntStubsPtr->tclPtrMakeUpvar) /* 229 */
02064 #endif
02065 #ifndef TclObjLookupVar
02066 #define TclObjLookupVar \
02067         (tclIntStubsPtr->tclObjLookupVar) /* 230 */
02068 #endif
02069 #ifndef TclGetNamespaceFromObj
02070 #define TclGetNamespaceFromObj \
02071         (tclIntStubsPtr->tclGetNamespaceFromObj) /* 231 */
02072 #endif
02073 #ifndef TclEvalObjEx
02074 #define TclEvalObjEx \
02075         (tclIntStubsPtr->tclEvalObjEx) /* 232 */
02076 #endif
02077 #ifndef TclGetSrcInfoForPc
02078 #define TclGetSrcInfoForPc \
02079         (tclIntStubsPtr->tclGetSrcInfoForPc) /* 233 */
02080 #endif
02081 #ifndef TclVarHashCreateVar
02082 #define TclVarHashCreateVar \
02083         (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */
02084 #endif
02085 #ifndef TclInitVarHashTable
02086 #define TclInitVarHashTable \
02087         (tclIntStubsPtr->tclInitVarHashTable) /* 235 */
02088 #endif
02089 #ifndef TclBackgroundException
02090 #define TclBackgroundException \
02091         (tclIntStubsPtr->tclBackgroundException) /* 236 */
02092 #endif
02093 
02094 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
02095 
02096 /* !END!: Do not edit above this line. */
02097 
02098 #undef TCL_STORAGE_CLASS
02099 #define TCL_STORAGE_CLASS DLLIMPORT
02100 
02101 #endif /* _TCLINTDECLS */