include

tclIntDecls.h

Go to the documentation of this 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 14.1 2004/11/16 19:42:10 morrison Exp $
00015  */
00016 
00017 #ifndef _TCLINTDECLS
00018 #define _TCLINTDECLS
00019 
00020 /*
00021  * WARNING: This file is automatically generated by the tools/genStubs.tcl
00022  * script.  Any modifications to the function declarations below should be made
00023  * in the generic/tclInt.decls script.
00024  */
00025 
00026 /* !BEGIN!: Do not edit below this line. */
00027 
00028 /*
00029  * Exported function declarations:
00030  */
00031 
00032 /* Slot 0 is reserved */
00033 /* 1 */
00034 EXTERN int              TclAccessDeleteProc _ANSI_ARGS_((
00035                                 TclAccessProc_ * proc));
00036 /* 2 */
00037 EXTERN int              TclAccessInsertProc _ANSI_ARGS_((
00038                                 TclAccessProc_ * proc));
00039 /* 3 */
00040 EXTERN void             TclAllocateFreeObjects _ANSI_ARGS_((void));
00041 /* Slot 4 is reserved */
00042 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00043 /* 5 */
00044 EXTERN int              TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, 
00045                                 int numPids, Tcl_Pid * pidPtr, 
00046                                 Tcl_Channel errorChan));
00047 #endif /* UNIX */
00048 #ifdef __WIN32__
00049 /* 5 */
00050 EXTERN int              TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, 
00051                                 int numPids, Tcl_Pid * pidPtr, 
00052                                 Tcl_Channel errorChan));
00053 #endif /* __WIN32__ */
00054 /* 6 */
00055 EXTERN void             TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
00056 /* 7 */
00057 EXTERN int              TclCopyAndCollapse _ANSI_ARGS_((int count, 
00058                                 CONST char * src, char * dst));
00059 /* 8 */
00060 EXTERN int              TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, 
00061                                 Tcl_Channel inChan, Tcl_Channel outChan, 
00062                                 int toRead, Tcl_Obj * cmdPtr));
00063 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00064 /* 9 */
00065 EXTERN int              TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, 
00066                                 int argc, CONST char ** argv, 
00067                                 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, 
00068                                 TclFile * outPipePtr, TclFile * errFilePtr));
00069 #endif /* UNIX */
00070 #ifdef __WIN32__
00071 /* 9 */
00072 EXTERN int              TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, 
00073                                 int argc, CONST char ** argv, 
00074                                 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, 
00075                                 TclFile * outPipePtr, TclFile * errFilePtr));
00076 #endif /* __WIN32__ */
00077 /* 10 */
00078 EXTERN int              TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, 
00079                                 Namespace * nsPtr, CONST char * procName, 
00080                                 Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, 
00081                                 Proc ** procPtrPtr));
00082 /* 11 */
00083 EXTERN void             TclDeleteCompiledLocalVars _ANSI_ARGS_((
00084                                 Interp * iPtr, CallFrame * framePtr));
00085 /* 12 */
00086 EXTERN void             TclDeleteVars _ANSI_ARGS_((Interp * iPtr, 
00087                                 Tcl_HashTable * tablePtr));
00088 /* 13 */
00089 EXTERN int              TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, 
00090                                 char * separators, Tcl_DString * headPtr, 
00091                                 char * tail, Tcl_GlobTypeData * types));
00092 /* 14 */
00093 EXTERN void             TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
00094 /* Slot 15 is reserved */
00095 /* 16 */
00096 EXTERN void             TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, 
00097                                 double value));
00098 /* Slot 17 is reserved */
00099 /* Slot 18 is reserved */
00100 /* Slot 19 is reserved */
00101 /* Slot 20 is reserved */
00102 /* Slot 21 is reserved */
00103 /* 22 */
00104 EXTERN int              TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, 
00105                                 CONST char * listStr, int listLength, 
00106                                 CONST char ** elementPtr, 
00107                                 CONST char ** nextPtr, int * sizePtr, 
00108                                 int * bracePtr));
00109 /* 23 */
00110 EXTERN Proc *           TclFindProc _ANSI_ARGS_((Interp * iPtr, 
00111                                 CONST char * procName));
00112 /* 24 */
00113 EXTERN int              TclFormatInt _ANSI_ARGS_((char * buffer, long n));
00114 /* 25 */
00115 EXTERN void             TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
00116 /* Slot 26 is reserved */
00117 /* 27 */
00118 EXTERN int              TclGetDate _ANSI_ARGS_((char * p, unsigned long now, 
00119                                 long zone, unsigned long * timePtr));
00120 /* 28 */
00121 EXTERN Tcl_Channel      TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
00122 /* Slot 29 is reserved */
00123 /* Slot 30 is reserved */
00124 /* 31 */
00125 EXTERN char *           TclGetExtension _ANSI_ARGS_((char * name));
00126 /* 32 */
00127 EXTERN int              TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, 
00128                                 CONST char * str, CallFrame ** framePtrPtr));
00129 /* 33 */
00130 EXTERN TclCmdProcType   TclGetInterpProc _ANSI_ARGS_((void));
00131 /* 34 */
00132 EXTERN int              TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, 
00133                                 Tcl_Obj * objPtr, int endValue, 
00134                                 int * indexPtr));
00135 /* Slot 35 is reserved */
00136 /* 36 */
00137 EXTERN int              TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, 
00138                                 CONST char * str, long * longPtr));
00139 /* 37 */
00140 EXTERN int              TclGetLoadedPackages _ANSI_ARGS_((
00141                                 Tcl_Interp * interp, char * targetName));
00142 /* 38 */
00143 EXTERN int              TclGetNamespaceForQualName _ANSI_ARGS_((
00144                                 Tcl_Interp * interp, CONST char * qualName, 
00145                                 Namespace * cxtNsPtr, int flags, 
00146                                 Namespace ** nsPtrPtr, 
00147                                 Namespace ** altNsPtrPtr, 
00148                                 Namespace ** actualCxtPtrPtr, 
00149                                 CONST char ** simpleNamePtr));
00150 /* 39 */
00151 EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
00152 /* 40 */
00153 EXTERN int              TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, 
00154                                 CONST char * str, int * seekFlagPtr));
00155 /* 41 */
00156 EXTERN Tcl_Command      TclGetOriginalCommand _ANSI_ARGS_((
00157                                 Tcl_Command command));
00158 /* 42 */
00159 EXTERN char *           TclpGetUserHome _ANSI_ARGS_((CONST char * name, 
00160                                 Tcl_DString * bufferPtr));
00161 /* 43 */
00162 EXTERN int              TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
00163                                 int argc, CONST84 char ** argv, int flags));
00164 /* 44 */
00165 EXTERN int              TclGuessPackageName _ANSI_ARGS_((
00166                                 CONST char * fileName, Tcl_DString * bufPtr));
00167 /* 45 */
00168 EXTERN int              TclHideUnsafeCommands _ANSI_ARGS_((
00169                                 Tcl_Interp * interp));
00170 /* 46 */
00171 EXTERN int              TclInExit _ANSI_ARGS_((void));
00172 /* Slot 47 is reserved */
00173 /* Slot 48 is reserved */
00174 /* 49 */
00175 EXTERN Tcl_Obj *        TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, 
00176                                 Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, 
00177                                 long incrAmount, int part1NotParsed));
00178 /* 50 */
00179 EXTERN void             TclInitCompiledLocals _ANSI_ARGS_((
00180                                 Tcl_Interp * interp, CallFrame * framePtr, 
00181                                 Namespace * nsPtr));
00182 /* 51 */
00183 EXTERN int              TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
00184 /* 52 */
00185 EXTERN int              TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, 
00186                                 CONST84 char ** argv, int flags));
00187 /* 53 */
00188 EXTERN int              TclInvokeObjectCommand _ANSI_ARGS_((
00189                                 ClientData clientData, Tcl_Interp * interp, 
00190                                 int argc, CONST84 char ** argv));
00191 /* 54 */
00192 EXTERN int              TclInvokeStringCommand _ANSI_ARGS_((
00193                                 ClientData clientData, Tcl_Interp * interp, 
00194                                 int objc, Tcl_Obj *CONST objv[]));
00195 /* 55 */
00196 EXTERN Proc *           TclIsProc _ANSI_ARGS_((Command * cmdPtr));
00197 /* Slot 56 is reserved */
00198 /* Slot 57 is reserved */
00199 /* 58 */
00200 EXTERN Var *            TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, 
00201                                 CONST char * part1, CONST char * part2, 
00202                                 int flags, CONST char * msg, int createPart1, 
00203                                 int createPart2, Var ** arrayPtrPtr));
00204 /* Slot 59 is reserved */
00205 /* 60 */
00206 EXTERN int              TclNeedSpace _ANSI_ARGS_((CONST char * start, 
00207                                 CONST char * end));
00208 /* 61 */
00209 EXTERN Tcl_Obj *        TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
00210 /* 62 */
00211 EXTERN int              TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
00212 /* 63 */
00213 EXTERN int              TclObjInterpProc _ANSI_ARGS_((ClientData clientData, 
00214                                 Tcl_Interp * interp, int objc, 
00215                                 Tcl_Obj *CONST objv[]));
00216 /* 64 */
00217 EXTERN int              TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
00218                                 int objc, Tcl_Obj *CONST objv[], int flags));
00219 /* 65 */
00220 EXTERN int              TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, 
00221                                 int objc, Tcl_Obj *CONST objv[], int flags));
00222 /* 66 */
00223 EXTERN int              TclOpenFileChannelDeleteProc _ANSI_ARGS_((
00224                                 TclOpenFileChannelProc_ * proc));
00225 /* 67 */
00226 EXTERN int              TclOpenFileChannelInsertProc _ANSI_ARGS_((
00227                                 TclOpenFileChannelProc_ * proc));
00228 /* Slot 68 is reserved */
00229 /* 69 */
00230 EXTERN char *           TclpAlloc _ANSI_ARGS_((unsigned int size));
00231 /* Slot 70 is reserved */
00232 /* Slot 71 is reserved */
00233 /* Slot 72 is reserved */
00234 /* Slot 73 is reserved */
00235 /* 74 */
00236 EXTERN void             TclpFree _ANSI_ARGS_((char * ptr));
00237 /* 75 */
00238 EXTERN unsigned long    TclpGetClicks _ANSI_ARGS_((void));
00239 /* 76 */
00240 EXTERN unsigned long    TclpGetSeconds _ANSI_ARGS_((void));
00241 /* 77 */
00242 EXTERN void             TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
00243 /* 78 */
00244 EXTERN int              TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
00245 /* Slot 79 is reserved */
00246 /* Slot 80 is reserved */
00247 /* 81 */
00248 EXTERN char *           TclpRealloc _ANSI_ARGS_((char * ptr, 
00249                                 unsigned int size));
00250 /* Slot 82 is reserved */
00251 /* Slot 83 is reserved */
00252 /* Slot 84 is reserved */
00253 /* Slot 85 is reserved */
00254 /* Slot 86 is reserved */
00255 /* Slot 87 is reserved */
00256 /* 88 */
00257 EXTERN char *           TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, 
00258                                 Tcl_Interp * interp, CONST char * name1, 
00259                                 CONST char * name2, int flags));
00260 /* 89 */
00261 EXTERN int              TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, 
00262                                 Tcl_Interp * cmdInterp, Tcl_Command cmd));
00263 /* Slot 90 is reserved */
00264 /* 91 */
00265 EXTERN void             TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
00266 /* 92 */
00267 EXTERN int              TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, 
00268                                 Proc * procPtr, Tcl_Obj * bodyPtr, 
00269                                 Namespace * nsPtr, CONST char * description, 
00270                                 CONST char * procName));
00271 /* 93 */
00272 EXTERN void             TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
00273 /* 94 */
00274 EXTERN int              TclProcInterpProc _ANSI_ARGS_((ClientData clientData, 
00275                                 Tcl_Interp * interp, int argc, 
00276                                 CONST84 char ** argv));
00277 /* Slot 95 is reserved */
00278 /* 96 */
00279 EXTERN int              TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, 
00280                                 char * oldName, char * newName));
00281 /* 97 */
00282 EXTERN void             TclResetShadowedCmdRefs _ANSI_ARGS_((
00283                                 Tcl_Interp * interp, Command * newCmdPtr));
00284 /* 98 */
00285 EXTERN int              TclServiceIdle _ANSI_ARGS_((void));
00286 /* Slot 99 is reserved */
00287 /* Slot 100 is reserved */
00288 /* 101 */
00289 EXTERN char *           TclSetPreInitScript _ANSI_ARGS_((char * string));
00290 /* 102 */
00291 EXTERN void             TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
00292 /* 103 */
00293 EXTERN int              TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, 
00294                                 char * str, char * proto, int * portPtr));
00295 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00296 /* 104 */
00297 EXTERN int              TclSockMinimumBuffers _ANSI_ARGS_((int sock, 
00298                                 int size));
00299 #endif /* UNIX */
00300 #ifdef __WIN32__
00301 /* 104 */
00302 EXTERN int              TclSockMinimumBuffers _ANSI_ARGS_((int sock, 
00303                                 int size));
00304 #endif /* __WIN32__ */
00305 /* Slot 105 is reserved */
00306 /* 106 */
00307 EXTERN int              TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
00308 /* 107 */
00309 EXTERN int              TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
00310 /* 108 */
00311 EXTERN void             TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
00312 /* 109 */
00313 EXTERN int              TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
00314 /* Slot 110 is reserved */
00315 /* 111 */
00316 EXTERN void             Tcl_AddInterpResolvers _ANSI_ARGS_((
00317                                 Tcl_Interp * interp, CONST char * name, 
00318                                 Tcl_ResolveCmdProc * cmdProc, 
00319                                 Tcl_ResolveVarProc * varProc, 
00320                                 Tcl_ResolveCompiledVarProc * compiledVarProc));
00321 /* 112 */
00322 EXTERN int              Tcl_AppendExportList _ANSI_ARGS_((
00323                                 Tcl_Interp * interp, Tcl_Namespace * nsPtr, 
00324                                 Tcl_Obj * objPtr));
00325 /* 113 */
00326 EXTERN Tcl_Namespace *  Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
00327                                 CONST char * name, ClientData clientData, 
00328                                 Tcl_NamespaceDeleteProc * deleteProc));
00329 /* 114 */
00330 EXTERN void             Tcl_DeleteNamespace _ANSI_ARGS_((
00331                                 Tcl_Namespace * nsPtr));
00332 /* 115 */
00333 EXTERN int              Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, 
00334                                 Tcl_Namespace * nsPtr, CONST char * pattern, 
00335                                 int resetListFirst));
00336 /* 116 */
00337 EXTERN Tcl_Command      Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, 
00338                                 CONST char * name, 
00339                                 Tcl_Namespace * contextNsPtr, int flags));
00340 /* 117 */
00341 EXTERN Tcl_Namespace *  Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
00342                                 CONST char * name, 
00343                                 Tcl_Namespace * contextNsPtr, int flags));
00344 /* 118 */
00345 EXTERN int              Tcl_GetInterpResolvers _ANSI_ARGS_((
00346                                 Tcl_Interp * interp, CONST char * name, 
00347                                 Tcl_ResolverInfo * resInfo));
00348 /* 119 */
00349 EXTERN int              Tcl_GetNamespaceResolvers _ANSI_ARGS_((
00350                                 Tcl_Namespace * namespacePtr, 
00351                                 Tcl_ResolverInfo * resInfo));
00352 /* 120 */
00353 EXTERN Tcl_Var          Tcl_FindNamespaceVar _ANSI_ARGS_((
00354                                 Tcl_Interp * interp, CONST char * name, 
00355                                 Tcl_Namespace * contextNsPtr, int flags));
00356 /* 121 */
00357 EXTERN int              Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, 
00358                                 Tcl_Namespace * nsPtr, CONST char * pattern));
00359 /* 122 */
00360 EXTERN Tcl_Command      Tcl_GetCommandFromObj _ANSI_ARGS_((
00361                                 Tcl_Interp * interp, Tcl_Obj * objPtr));
00362 /* 123 */
00363 EXTERN void             Tcl_GetCommandFullName _ANSI_ARGS_((
00364                                 Tcl_Interp * interp, Tcl_Command command, 
00365                                 Tcl_Obj * objPtr));
00366 /* 124 */
00367 EXTERN Tcl_Namespace *  Tcl_GetCurrentNamespace _ANSI_ARGS_((
00368                                 Tcl_Interp * interp));
00369 /* 125 */
00370 EXTERN Tcl_Namespace *  Tcl_GetGlobalNamespace _ANSI_ARGS_((
00371                                 Tcl_Interp * interp));
00372 /* 126 */
00373 EXTERN void             Tcl_GetVariableFullName _ANSI_ARGS_((
00374                                 Tcl_Interp * interp, Tcl_Var variable, 
00375                                 Tcl_Obj * objPtr));
00376 /* 127 */
00377 EXTERN int              Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, 
00378                                 Tcl_Namespace * nsPtr, CONST char * pattern, 
00379                                 int allowOverwrite));
00380 /* 128 */
00381 EXTERN void             Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
00382 /* 129 */
00383 EXTERN int              Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, 
00384                                 Tcl_CallFrame * framePtr, 
00385                                 Tcl_Namespace * nsPtr, int isProcCallFrame));
00386 /* 130 */
00387 EXTERN int              Tcl_RemoveInterpResolvers _ANSI_ARGS_((
00388                                 Tcl_Interp * interp, CONST char * name));
00389 /* 131 */
00390 EXTERN void             Tcl_SetNamespaceResolvers _ANSI_ARGS_((
00391                                 Tcl_Namespace * namespacePtr, 
00392                                 Tcl_ResolveCmdProc * cmdProc, 
00393                                 Tcl_ResolveVarProc * varProc, 
00394                                 Tcl_ResolveCompiledVarProc * compiledVarProc));
00395 /* 132 */
00396 EXTERN int              TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
00397 /* 133 */
00398 EXTERN struct tm *      TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
00399 /* 134 */
00400 EXTERN size_t           TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, 
00401                                 CONST char * format, CONST struct tm * t, 
00402                                 int useGMT));
00403 /* 135 */
00404 EXTERN int              TclpCheckStackSpace _ANSI_ARGS_((void));
00405 /* Slot 136 is reserved */
00406 /* Slot 137 is reserved */
00407 /* 138 */
00408 EXTERN CONST84_RETURN char * TclGetEnv _ANSI_ARGS_((CONST char * name, 
00409                                 Tcl_DString * valuePtr));
00410 /* Slot 139 is reserved */
00411 /* 140 */
00412 EXTERN int              TclLooksLikeInt _ANSI_ARGS_((CONST char * bytes, 
00413                                 int length));
00414 /* 141 */
00415 EXTERN CONST84_RETURN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp, 
00416                                 Tcl_DString * cwdPtr));
00417 /* 142 */
00418 EXTERN int              TclSetByteCodeFromAny _ANSI_ARGS_((
00419                                 Tcl_Interp * interp, Tcl_Obj * objPtr, 
00420                                 CompileHookProc * hookProc, 
00421                                 ClientData clientData));
00422 /* 143 */
00423 EXTERN int              TclAddLiteralObj _ANSI_ARGS_((
00424                                 struct CompileEnv * envPtr, Tcl_Obj * objPtr, 
00425                                 LiteralEntry ** litPtrPtr));
00426 /* 144 */
00427 EXTERN void             TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp, 
00428                                 struct CompileEnv * envPtr, int index));
00429 /* 145 */
00430 EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
00431 /* 146 */
00432 EXTERN TclHandle        TclHandleCreate _ANSI_ARGS_((VOID * ptr));
00433 /* 147 */
00434 EXTERN void             TclHandleFree _ANSI_ARGS_((TclHandle handle));
00435 /* 148 */
00436 EXTERN TclHandle        TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
00437 /* 149 */
00438 EXTERN void             TclHandleRelease _ANSI_ARGS_((TclHandle handle));
00439 /* 150 */
00440 EXTERN int              TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp, 
00441                                 Tcl_RegExp re));
00442 /* 151 */
00443 EXTERN void             TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re, 
00444                                 int index, int * startPtr, int * endPtr));
00445 /* 152 */
00446 EXTERN void             TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
00447 /* 153 */
00448 EXTERN Tcl_Obj *        TclGetLibraryPath _ANSI_ARGS_((void));
00449 /* Slot 154 is reserved */
00450 /* Slot 155 is reserved */
00451 /* 156 */
00452 EXTERN void             TclRegError _ANSI_ARGS_((Tcl_Interp * interp, 
00453                                 CONST char * msg, int status));
00454 /* 157 */
00455 EXTERN Var *            TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp, 
00456                                 CONST char * varName));
00457 /* 158 */
00458 EXTERN void             TclSetStartupScriptFileName _ANSI_ARGS_((
00459                                 CONST char * filename));
00460 /* 159 */
00461 EXTERN CONST84_RETURN char * TclGetStartupScriptFileName _ANSI_ARGS_((void));
00462 /* Slot 160 is reserved */
00463 /* 161 */
00464 EXTERN int              TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp, 
00465                                 Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
00466 /* 162 */
00467 EXTERN void             TclChannelEventScriptInvoker _ANSI_ARGS_((
00468                                 ClientData clientData, int flags));
00469 /* 163 */
00470 EXTERN void *           TclGetInstructionTable _ANSI_ARGS_((void));
00471 /* 164 */
00472 EXTERN void             TclExpandCodeArray _ANSI_ARGS_((void * envPtr));
00473 /* 165 */
00474 EXTERN void             TclpSetInitialEncodings _ANSI_ARGS_((void));
00475 /* 166 */
00476 EXTERN int              TclListObjSetElement _ANSI_ARGS_((
00477                                 Tcl_Interp * interp, Tcl_Obj * listPtr, 
00478                                 int index, Tcl_Obj * valuePtr));
00479 /* 167 */
00480 EXTERN void             TclSetStartupScriptPath _ANSI_ARGS_((
00481                                 Tcl_Obj * pathPtr));
00482 /* 168 */
00483 EXTERN Tcl_Obj *        TclGetStartupScriptPath _ANSI_ARGS_((void));
00484 /* 169 */
00485 EXTERN int              TclpUtfNcmp2 _ANSI_ARGS_((CONST char * s1, 
00486                                 CONST char * s2, unsigned long n));
00487 /* 170 */
00488 EXTERN int              TclCheckInterpTraces _ANSI_ARGS_((
00489                                 Tcl_Interp * interp, CONST char * command, 
00490                                 int numChars, Command * cmdPtr, int result, 
00491                                 int traceFlags, int objc, 
00492                                 Tcl_Obj *CONST objv[]));
00493 /* 171 */
00494 EXTERN int              TclCheckExecutionTraces _ANSI_ARGS_((
00495                                 Tcl_Interp * interp, CONST char * command, 
00496                                 int numChars, Command * cmdPtr, int result, 
00497                                 int traceFlags, int objc, 
00498                                 Tcl_Obj *CONST objv[]));
00499 /* 172 */
00500 EXTERN int              TclInThreadExit _ANSI_ARGS_((void));
00501 /* 173 */
00502 EXTERN int              TclUniCharMatch _ANSI_ARGS_((
00503                                 CONST Tcl_UniChar * string, int strLen, 
00504                                 CONST Tcl_UniChar * pattern, int ptnLen, 
00505                                 int nocase));
00506 
00507 typedef struct TclIntStubs {
00508     int magic;
00509     struct TclIntStubHooks *hooks;
00510 
00511     void *reserved0;
00512     int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
00513     int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
00514     void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
00515     void *reserved4;
00516 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00517     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
00518 #endif /* UNIX */
00519 #ifdef __WIN32__
00520     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
00521 #endif /* __WIN32__ */
00522 #ifdef MAC_TCL
00523     void *reserved5;
00524 #endif /* MAC_TCL */
00525     void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
00526     int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
00527     int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
00528 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00529     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
00530 #endif /* UNIX */
00531 #ifdef __WIN32__
00532     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
00533 #endif /* __WIN32__ */
00534 #ifdef MAC_TCL
00535     void *reserved9;
00536 #endif /* MAC_TCL */
00537     int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
00538     void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
00539     void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
00540     int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, Tcl_GlobTypeData * types)); /* 13 */
00541     void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
00542     void *reserved15;
00543     void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
00544     void *reserved17;
00545     void *reserved18;
00546     void *reserved19;
00547     void *reserved20;
00548     void *reserved21;
00549     int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
00550     Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */
00551     int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
00552     void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
00553     void *reserved26;
00554     int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
00555     Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
00556     void *reserved29;
00557     void *reserved30;
00558     char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
00559     int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */
00560     TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
00561     int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
00562     void *reserved35;
00563     int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */
00564     int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
00565     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */
00566     TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
00567     int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */
00568     Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
00569     char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
00570     int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 43 */
00571     int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */
00572     int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
00573     int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
00574     void *reserved47;
00575     void *reserved48;
00576     Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
00577     void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
00578     int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
00579     int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 52 */
00580     int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */
00581     int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
00582     Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
00583     void *reserved56;
00584     void *reserved57;
00585     Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
00586     void *reserved59;
00587     int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */
00588     Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
00589     int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
00590     int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
00591     int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
00592     int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
00593     int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
00594     int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
00595     void *reserved68;
00596     char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
00597     void *reserved70;
00598     void *reserved71;
00599     void *reserved72;
00600     void *reserved73;
00601     void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
00602     unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
00603     unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
00604     void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
00605     int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
00606     void *reserved79;
00607     void *reserved80;
00608     char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
00609     void *reserved82;
00610     void *reserved83;
00611     void *reserved84;
00612     void *reserved85;
00613     void *reserved86;
00614     void *reserved87;
00615     char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */
00616     int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
00617     void *reserved90;
00618     void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
00619     int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
00620     void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
00621     int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 94 */
00622     void *reserved95;
00623     int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
00624     void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
00625     int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
00626     void *reserved99;
00627     void *reserved100;
00628     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
00629     void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
00630     int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
00631 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00632     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
00633 #endif /* UNIX */
00634 #ifdef __WIN32__
00635     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
00636 #endif /* __WIN32__ */
00637 #ifdef MAC_TCL
00638     void *reserved104;
00639 #endif /* MAC_TCL */
00640     void *reserved105;
00641     int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
00642     int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
00643     void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
00644     int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
00645     void *reserved110;
00646     void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
00647     int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
00648     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
00649     void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
00650     int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst)); /* 115 */
00651     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
00652     Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
00653     int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
00654     int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
00655     Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
00656     int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern)); /* 121 */
00657     Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
00658     void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
00659     Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
00660     Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
00661     void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
00662     int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite)); /* 127 */
00663     void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
00664     int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
00665     int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 130 */
00666     void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
00667     int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
00668     struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
00669     size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */
00670     int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
00671     void *reserved136;
00672     void *reserved137;
00673     CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
00674     void *reserved139;
00675     int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */
00676     CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
00677     int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
00678     int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
00679     void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
00680     struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
00681     TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
00682     void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
00683     TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
00684     void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
00685     int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
00686     void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
00687     void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
00688     Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
00689     void *reserved154;
00690     void *reserved155;
00691     void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */
00692     Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */
00693     void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */
00694     CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
00695     void *reserved160;
00696     int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
00697     void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
00698     void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */
00699     void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */
00700     void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */
00701     int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */
00702     void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */
00703     Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */
00704     int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */
00705     int (*tclCheckInterpTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 170 */
00706     int (*tclCheckExecutionTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 171 */
00707     int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */
00708     int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */
00709 } TclIntStubs;
00710 
00711 #ifdef __cplusplus
00712 extern "C" {
00713 #endif
00714 extern TclIntStubs *tclIntStubsPtr;
00715 #ifdef __cplusplus
00716 }
00717 #endif
00718 
00719 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
00720 
00721 /*
00722  * Inline function declarations:
00723  */
00724 
00725 /* Slot 0 is reserved */
00726 #ifndef TclAccessDeleteProc
00727 #define TclAccessDeleteProc \
00728         (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
00729 #endif
00730 #ifndef TclAccessInsertProc
00731 #define TclAccessInsertProc \
00732         (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
00733 #endif
00734 #ifndef TclAllocateFreeObjects
00735 #define TclAllocateFreeObjects \
00736         (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
00737 #endif
00738 /* Slot 4 is reserved */
00739 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00740 #ifndef TclCleanupChildren
00741 #define TclCleanupChildren \
00742         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
00743 #endif
00744 #endif /* UNIX */
00745 #ifdef __WIN32__
00746 #ifndef TclCleanupChildren
00747 #define TclCleanupChildren \
00748         (tclIntStubsPtr->tclCleanupChildren) /* 5 */
00749 #endif
00750 #endif /* __WIN32__ */
00751 #ifndef TclCleanupCommand
00752 #define TclCleanupCommand \
00753         (tclIntStubsPtr->tclCleanupCommand) /* 6 */
00754 #endif
00755 #ifndef TclCopyAndCollapse
00756 #define TclCopyAndCollapse \
00757         (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
00758 #endif
00759 #ifndef TclCopyChannel
00760 #define TclCopyChannel \
00761         (tclIntStubsPtr->tclCopyChannel) /* 8 */
00762 #endif
00763 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
00764 #ifndef TclCreatePipeline
00765 #define TclCreatePipeline \
00766         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
00767 #endif
00768 #endif /* UNIX */
00769 #ifdef __WIN32__
00770 #ifndef TclCreatePipeline
00771 #define TclCreatePipeline \
00772         (tclIntStubsPtr->tclCreatePipeline) /* 9 */
00773 #endif
00774 #endif /* __WIN32__ */
00775 #ifndef TclCreateProc
00776 #define TclCreateProc \
00777         (tclIntStubsPtr->tclCreateProc) /* 10 */
00778 #endif
00779 #ifndef TclDeleteCompiledLocalVars
00780 #define TclDeleteCompiledLocalVars \
00781         (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
00782 #endif
00783 #ifndef TclDeleteVars
00784 #define TclDeleteVars \
00785         (tclIntStubsPtr->tclDeleteVars) /* 12 */
00786 #endif
00787 #ifndef TclDoGlob
00788 #define TclDoGlob \
00789         (tclIntStubsPtr->tclDoGlob) /* 13 */
00790 #endif
00791 #ifndef TclDumpMemoryInfo
00792 #define TclDumpMemoryInfo \
00793         (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
00794 #endif
00795 /* Slot 15 is reserved */
00796 #ifndef TclExprFloatError
00797 #define TclExprFloatError \
00798         (tclIntStubsPtr->tclExprFloatError) /* 16 */
00799 #endif
00800 /* Slot 17 is reserved */
00801 /* Slot 18 is reserved */
00802 /* Slot 19 is reserved */
00803 /* Slot 20 is reserved */
00804 /* Slot 21 is reserved */
00805 #ifndef TclFindElement
00806 #define TclFindElement \
00807         (tclIntStubsPtr->tclFindElement) /* 22 */
00808 #endif
00809 #ifndef TclFindProc
00810 #define TclFindProc \
00811         (tclIntStubsPtr->tclFindProc) /* 23 */
00812 #endif
00813 #ifndef TclFormatInt
00814 #define TclFormatInt \
00815         (tclIntStubsPtr->tclFormatInt) /* 24 */
00816 #endif
00817 #ifndef TclFreePackageInfo
00818 #define TclFreePackageInfo \
00819         (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
00820 #endif
00821 /* Slot 26 is reserved */
00822 #ifndef TclGetDate
00823 #define TclGetDate \
00824         (tclIntStubsPtr->tclGetDate) /* 27 */
00825 #endif
00826 #ifndef TclpGetDefaultStdChannel
00827 #define TclpGetDefaultStdChannel \
00828         (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
00829 #endif
00830 /* Slot 29 is reserved */
00831 /* Slot 30 is reserved */
00832 #ifndef TclGetExtension
00833 #define TclGetExtension \
00834         (tclIntStubsPtr->tclGetExtension) /* 31 */
00835 #endif
00836 #ifndef TclGetFrame
00837 #define TclGetFrame \
00838         (tclIntStubsPtr->tclGetFrame) /* 32 */
00839 #endif
00840 #ifndef TclGetInterpProc
00841 #define TclGetInterpProc \
00842         (tclIntStubsPtr->tclGetInterpProc) /* 33 */
00843 #endif
00844 #ifndef TclGetIntForIndex
00845 #define TclGetIntForIndex \
00846         (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
00847 #endif
00848 /* Slot 35 is reserved */
00849 #ifndef TclGetLong
00850 #define TclGetLong \
00851         (tclIntStubsPtr->tclGetLong) /* 36 */
00852 #endif
00853 #ifndef TclGetLoadedPackages
00854 #define TclGetLoadedPackages \
00855         (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
00856 #endif
00857 #ifndef TclGetNamespaceForQualName
00858 #define TclGetNamespaceForQualName \
00859         (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
00860 #endif
00861 #ifndef TclGetObjInterpProc
00862 #define TclGetObjInterpProc \
00863         (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
00864 #endif
00865 #ifndef TclGetOpenMode
00866 #define TclGetOpenMode \
00867         (tclIntStubsPtr->tclGetOpenMode) /* 40 */
00868 #endif
00869 #ifndef TclGetOriginalCommand
00870 #define TclGetOriginalCommand \
00871         (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
00872 #endif
00873 #ifndef TclpGetUserHome
00874 #define TclpGetUserHome \
00875         (tclIntStubsPtr->tclpGetUserHome) /* 42 */
00876 #endif
00877 #ifndef TclGlobalInvoke
00878 #define TclGlobalInvoke \
00879         (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
00880 #endif
00881 #ifndef TclGuessPackageName
00882 #define TclGuessPackageName \
00883         (tclIntStubsPtr->tclGuessPackageName) /* 44 */
00884 #endif
00885 #ifndef TclHideUnsafeCommands
00886 #define TclHideUnsafeCommands \
00887         (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
00888 #endif
00889 #ifndef TclInExit
00890 #define TclInExit \
00891         (tclIntStubsPtr->tclInExit) /* 46 */
00892 #endif
00893 /* Slot 47 is reserved */
00894 /* Slot 48 is reserved */
00895 #ifndef TclIncrVar2
00896 #define TclIncrVar2 \
00897         (tclIntStubsPtr->tclIncrVar2) /* 49 */
00898 #endif
00899 #ifndef TclInitCompiledLocals
00900 #define TclInitCompiledLocals \
00901         (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
00902 #endif
00903 #ifndef TclInterpInit
00904 #define TclInterpInit \
00905         (tclIntStubsPtr->tclInterpInit) /* 51 */
00906 #endif
00907 #ifndef TclInvoke
00908 #define TclInvoke \
00909         (tclIntStubsPtr->tclInvoke) /* 52 */
00910 #endif
00911 #ifndef TclInvokeObjectCommand
00912 #define TclInvokeObjectCommand \
00913         (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
00914 #endif
00915 #ifndef TclInvokeStringCommand
00916 #define TclInvokeStringCommand \
00917         (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
00918 #endif
00919 #ifndef TclIsProc
00920 #define TclIsProc \
00921         (tclIntStubsPtr->tclIsProc) /* 55 */
00922 #endif
00923 /* Slot 56 is reserved */
00924 /* Slot 57 is reserved */
00925 #ifndef TclLookupVar
00926 #define TclLookupVar \
00927         (tclIntStubsPtr->tclLookupVar) /* 58 */
00928 #endif
00929 /* Slot 59 is reserved */
00930 #ifndef TclNeedSpace
00931 #define TclNeedSpace \
00932         (tclIntStubsPtr->tclNeedSpace) /* 60 */
00933 #endif
00934 #ifndef TclNewProcBodyObj
00935 #define TclNewProcBodyObj \
00936         (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
00937 #endif
00938 #ifndef TclObjCommandComplete
00939 #define TclObjCommandComplete \
00940         (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
00941 #endif
00942 #ifndef TclObjInterpProc
00943 #define TclObjInterpProc \
00944         (tclIntStubsPtr->tclObjInterpProc) /* 63 */
00945 #endif
00946 #ifndef TclObjInvoke
00947 #define TclObjInvoke \
00948         (tclIntStubsPtr->tclObjInvoke) /* 64 */
00949 #endif
00950 #ifndef TclObjInvokeGlobal
00951 #define TclObjInvokeGlobal \
00952         (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
00953 #endif
00954 #ifndef TclOpenFileChannelDeleteProc
00955 #define TclOpenFileChannelDeleteProc \
00956         (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
00957 #endif
00958 #ifndef TclOpenFileChannelInsertProc
00959 #define TclOpenFileChannelInsertProc \
00960         (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
00961 #endif
00962 /* Slot 68 is reserved */
00963 #ifndef TclpAlloc
00964 #define TclpAlloc \
00965         (tclIntStubsPtr->tclpAlloc) /* 69 */
00966 #endif
00967 /* Slot 70 is reserved */
00968 /* Slot 71 is reserved */
00969 /* Slot 72 is reserved */
00970 /* Slot 73 is reserved */
00971 #ifndef TclpFree
00972 #define TclpFree \
00973         (tclIntStubsPtr->tclpFree) /* 74 */
00974 #endif
00975 #ifndef TclpGetClicks
00976 #define TclpGetClicks \
00977         (tclIntStubsPtr->tclpGetClicks) /* 75 */
00978 #endif
00979 #ifndef TclpGetSeconds
00980 #define TclpGetSeconds \
00981         (tclIntStubsPtr->tclpGetSeconds) /* 76 */
00982 #endif
00983 #ifndef TclpGetTime
00984 #define TclpGetTime \
00985         (tclIntStubsPtr->tclpGetTime) /* 77 */
00986 #endif
00987 #ifndef TclpGetTimeZone
00988 #define TclpGetTimeZone \
00989         (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
00990 #endif
00991 /* Slot 79 is reserved */
00992 /* Slot 80 is reserved */
00993 #ifndef TclpRealloc
00994 #define TclpRealloc \
00995         (tclIntStubsPtr->tclpRealloc) /* 81 */
00996 #endif
00997 /* Slot 82 is reserved */
00998 /* Slot 83 is reserved */
00999 /* Slot 84 is reserved */
01000 /* Slot 85 is reserved */
01001 /* Slot 86 is reserved */
01002 /* Slot 87 is reserved */
01003 #ifndef TclPrecTraceProc
01004 #define TclPrecTraceProc \
01005         (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
01006 #endif
01007 #ifndef TclPreventAliasLoop
01008 #define TclPreventAliasLoop \
01009         (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
01010 #endif
01011 /* Slot 90 is reserved */
01012 #ifndef TclProcCleanupProc
01013 #define TclProcCleanupProc \
01014         (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
01015 #endif
01016 #ifndef TclProcCompileProc
01017 #define TclProcCompileProc \
01018         (tclIntStubsPtr->tclProcCompileProc) /* 92 */
01019 #endif
01020 #ifndef TclProcDeleteProc
01021 #define TclProcDeleteProc \
01022         (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
01023 #endif
01024 #ifndef TclProcInterpProc
01025 #define TclProcInterpProc \
01026         (tclIntStubsPtr->tclProcInterpProc) /* 94 */
01027 #endif
01028 /* Slot 95 is reserved */
01029 #ifndef TclRenameCommand
01030 #define TclRenameCommand \
01031         (tclIntStubsPtr->tclRenameCommand) /* 96 */
01032 #endif
01033 #ifndef TclResetShadowedCmdRefs
01034 #define TclResetShadowedCmdRefs \
01035         (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
01036 #endif
01037 #ifndef TclServiceIdle
01038 #define TclServiceIdle \
01039         (tclIntStubsPtr->tclServiceIdle) /* 98 */
01040 #endif
01041 /* Slot 99 is reserved */
01042 /* Slot 100 is reserved */
01043 #ifndef TclSetPreInitScript
01044 #define TclSetPreInitScript \
01045         (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
01046 #endif
01047 #ifndef TclSetupEnv
01048 #define TclSetupEnv \
01049         (tclIntStubsPtr->tclSetupEnv) /* 102 */
01050 #endif
01051 #ifndef TclSockGetPort
01052 #define TclSockGetPort \
01053         (tclIntStubsPtr->tclSockGetPort) /* 103 */
01054 #endif
01055 #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
01056 #ifndef TclSockMinimumBuffers
01057 #define TclSockMinimumBuffers \
01058         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
01059 #endif
01060 #endif /* UNIX */
01061 #ifdef __WIN32__
01062 #ifndef TclSockMinimumBuffers
01063 #define TclSockMinimumBuffers \
01064         (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
01065 #endif
01066 #endif /* __WIN32__ */
01067 /* Slot 105 is reserved */
01068 #ifndef TclStatDeleteProc
01069 #define TclStatDeleteProc \
01070         (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
01071 #endif
01072 #ifndef TclStatInsertProc
01073 #define TclStatInsertProc \
01074         (tclIntStubsPtr->tclStatInsertProc) /* 107 */
01075 #endif
01076 #ifndef TclTeardownNamespace
01077 #define TclTeardownNamespace \
01078         (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
01079 #endif
01080 #ifndef TclUpdateReturnInfo
01081 #define TclUpdateReturnInfo \
01082         (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
01083 #endif
01084 /* Slot 110 is reserved */
01085 #ifndef Tcl_AddInterpResolvers
01086 #define Tcl_AddInterpResolvers \
01087         (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
01088 #endif
01089 #ifndef Tcl_AppendExportList
01090 #define Tcl_AppendExportList \
01091         (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
01092 #endif
01093 #ifndef Tcl_CreateNamespace
01094 #define Tcl_CreateNamespace \
01095         (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
01096 #endif
01097 #ifndef Tcl_DeleteNamespace
01098 #define Tcl_DeleteNamespace \
01099         (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
01100 #endif
01101 #ifndef Tcl_Export
01102 #define Tcl_Export \
01103         (tclIntStubsPtr->tcl_Export) /* 115 */
01104 #endif
01105 #ifndef Tcl_FindCommand
01106 #define Tcl_FindCommand \
01107         (tclIntStubsPtr->tcl_FindCommand) /* 116 */
01108 #endif
01109 #ifndef Tcl_FindNamespace
01110 #define Tcl_FindNamespace \
01111         (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
01112 #endif
01113 #ifndef Tcl_GetInterpResolvers
01114 #define Tcl_GetInterpResolvers \
01115         (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
01116 #endif
01117 #ifndef Tcl_GetNamespaceResolvers
01118 #define Tcl_GetNamespaceResolvers \
01119         (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
01120 #endif
01121 #ifndef Tcl_FindNamespaceVar
01122 #define Tcl_FindNamespaceVar \
01123         (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
01124 #endif
01125 #ifndef Tcl_ForgetImport
01126 #define Tcl_ForgetImport \
01127         (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
01128 #endif
01129 #ifndef Tcl_GetCommandFromObj
01130 #define Tcl_GetCommandFromObj \
01131         (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
01132 #endif
01133 #ifndef Tcl_GetCommandFullName
01134 #define Tcl_GetCommandFullName \
01135         (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
01136 #endif
01137 #ifndef Tcl_GetCurrentNamespace
01138 #define Tcl_GetCurrentNamespace \
01139         (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
01140 #endif
01141 #ifndef Tcl_GetGlobalNamespace
01142 #define Tcl_GetGlobalNamespace \
01143         (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
01144 #endif
01145 #ifndef Tcl_GetVariableFullName
01146 #define Tcl_GetVariableFullName \
01147         (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
01148 #endif
01149 #ifndef Tcl_Import
01150 #define Tcl_Import \
01151         (tclIntStubsPtr->tcl_Import) /* 127 */
01152 #endif
01153 #ifndef Tcl_PopCallFrame
01154 #define Tcl_PopCallFrame \
01155         (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
01156 #endif
01157 #ifndef Tcl_PushCallFrame
01158 #define Tcl_PushCallFrame \
01159         (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
01160 #endif
01161 #ifndef Tcl_RemoveInterpResolvers
01162 #define Tcl_RemoveInterpResolvers \
01163         (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
01164 #endif
01165 #ifndef Tcl_SetNamespaceResolvers
01166 #define Tcl_SetNamespaceResolvers \
01167         (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
01168 #endif
01169 #ifndef TclpHasSockets
01170 #define TclpHasSockets \
01171         (tclIntStubsPtr->tclpHasSockets) /* 132 */
01172 #endif
01173 #ifndef TclpGetDate
01174 #define TclpGetDate \
01175         (tclIntStubsPtr->tclpGetDate) /* 133 */
01176 #endif
01177 #ifndef TclpStrftime
01178 #define TclpStrftime \
01179         (tclIntStubsPtr->tclpStrftime) /* 134 */
01180 #endif
01181 #ifndef TclpCheckStackSpace
01182 #define TclpCheckStackSpace \
01183         (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
01184 #endif
01185 /* Slot 136 is reserved */
01186 /* Slot 137 is reserved */
01187 #ifndef TclGetEnv
01188 #define TclGetEnv \
01189         (tclIntStubsPtr->tclGetEnv) /* 138 */
01190 #endif
01191 /* Slot 139 is reserved */
01192 #ifndef TclLooksLikeInt
01193 #define TclLooksLikeInt \
01194         (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
01195 #endif
01196 #ifndef TclpGetCwd
01197 #define TclpGetCwd \
01198         (tclIntStubsPtr->tclpGetCwd) /* 141 */
01199 #endif
01200 #ifndef TclSetByteCodeFromAny
01201 #define TclSetByteCodeFromAny \
01202         (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
01203 #endif
01204 #ifndef TclAddLiteralObj
01205 #define TclAddLiteralObj \
01206         (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
01207 #endif
01208 #ifndef TclHideLiteral
01209 #define TclHideLiteral \
01210         (tclIntStubsPtr->tclHideLiteral) /* 144 */
01211 #endif
01212 #ifndef TclGetAuxDataType
01213 #define TclGetAuxDataType \
01214         (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
01215 #endif
01216 #ifndef TclHandleCreate
01217 #define TclHandleCreate \
01218         (tclIntStubsPtr->tclHandleCreate) /* 146 */
01219 #endif
01220 #ifndef TclHandleFree
01221 #define TclHandleFree \
01222         (tclIntStubsPtr->tclHandleFree) /* 147 */
01223 #endif
01224 #ifndef TclHandlePreserve
01225 #define TclHandlePreserve \
01226         (tclIntStubsPtr->tclHandlePreserve) /* 148 */
01227 #endif
01228 #ifndef TclHandleRelease
01229 #define TclHandleRelease \
01230         (tclIntStubsPtr->tclHandleRelease) /* 149 */
01231 #endif
01232 #ifndef TclRegAbout
01233 #define TclRegAbout \
01234         (tclIntStubsPtr->tclRegAbout) /* 150 */
01235 #endif
01236 #ifndef TclRegExpRangeUniChar
01237 #define TclRegExpRangeUniChar \
01238         (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
01239 #endif
01240 #ifndef TclSetLibraryPath
01241 #define TclSetLibraryPath \
01242         (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
01243 #endif
01244 #ifndef TclGetLibraryPath
01245 #define TclGetLibraryPath \
01246         (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
01247 #endif
01248 /* Slot 154 is reserved */
01249 /* Slot 155 is reserved */
01250 #ifndef TclRegError
01251 #define TclRegError \
01252         (tclIntStubsPtr->tclRegError) /* 156 */
01253 #endif
01254 #ifndef TclVarTraceExists
01255 #define TclVarTraceExists \
01256         (tclIntStubsPtr->tclVarTraceExists) /* 157 */
01257 #endif
01258 #ifndef TclSetStartupScriptFileName
01259 #define TclSetStartupScriptFileName \
01260         (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
01261 #endif
01262 #ifndef TclGetStartupScriptFileName
01263 #define TclGetStartupScriptFileName \
01264         (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
01265 #endif
01266 /* Slot 160 is reserved */
01267 #ifndef TclChannelTransform
01268 #define TclChannelTransform \
01269         (tclIntStubsPtr->tclChannelTransform) /* 161 */
01270 #endif
01271 #ifndef TclChannelEventScriptInvoker
01272 #define TclChannelEventScriptInvoker \
01273         (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
01274 #endif
01275 #ifndef TclGetInstructionTable
01276 #define TclGetInstructionTable \
01277         (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
01278 #endif
01279 #ifndef TclExpandCodeArray
01280 #define TclExpandCodeArray \
01281         (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
01282 #endif
01283 #ifndef TclpSetInitialEncodings
01284 #define TclpSetInitialEncodings \
01285         (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
01286 #endif
01287 #ifndef TclListObjSetElement
01288 #define TclListObjSetElement \
01289         (tclIntStubsPtr->tclListObjSetElement) /* 166 */
01290 #endif
01291 #ifndef TclSetStartupScriptPath
01292 #define TclSetStartupScriptPath \
01293         (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
01294 #endif
01295 #ifndef TclGetStartupScriptPath
01296 #define TclGetStartupScriptPath \
01297         (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
01298 #endif
01299 #ifndef TclpUtfNcmp2
01300 #define TclpUtfNcmp2 \
01301         (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
01302 #endif
01303 #ifndef TclCheckInterpTraces
01304 #define TclCheckInterpTraces \
01305         (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
01306 #endif
01307 #ifndef TclCheckExecutionTraces
01308 #define TclCheckExecutionTraces \
01309         (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
01310 #endif
01311 #ifndef TclInThreadExit
01312 #define TclInThreadExit \
01313         (tclIntStubsPtr->tclInThreadExit) /* 172 */
01314 #endif
01315 #ifndef TclUniCharMatch
01316 #define TclUniCharMatch \
01317         (tclIntStubsPtr->tclUniCharMatch) /* 173 */
01318 #endif
01319 
01320 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
01321 
01322 /* !END!: Do not edit above this line. */
01323 
01324 #endif /* _TCLINTDECLS */
01325 
01326 /*
01327  * Local Variables:
01328  * mode: C
01329  * tab-width: 8
01330  * c-basic-offset: 4
01331  * indent-tabs-mode: t
01332  * End:
01333  * ex: shiftwidth=4 tabstop=8
01334  */
Generated on Mon Sep 18 01:24:44 2006 for BRL-CAD by  doxygen 1.4.6