00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017 #ifndef _TCLINTDECLS
00018 #define _TCLINTDECLS
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033 EXTERN int TclAccess _ANSI_ARGS_((CONST char * path, int mode));
00034
00035 EXTERN int TclAccessDeleteProc _ANSI_ARGS_((
00036 TclAccessProc_ * proc));
00037
00038 EXTERN int TclAccessInsertProc _ANSI_ARGS_((
00039 TclAccessProc_ * proc));
00040
00041 EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void));
00042
00043 #if !defined(__WIN32__) && !defined(MAC_TCL)
00044
00045 EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
00046 int numPids, Tcl_Pid * pidPtr,
00047 Tcl_Channel errorChan));
00048 #endif
00049 #ifdef __WIN32__
00050
00051 EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
00052 int numPids, Tcl_Pid * pidPtr,
00053 Tcl_Channel errorChan));
00054 #endif
00055
00056 EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
00057
00058 EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count,
00059 CONST char * src, char * dst));
00060
00061 EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp,
00062 Tcl_Channel inChan, Tcl_Channel outChan,
00063 int toRead, Tcl_Obj * cmdPtr));
00064 #if !defined(__WIN32__) && !defined(MAC_TCL)
00065
00066 EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
00067 int argc, char ** argv,
00068 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
00069 TclFile * outPipePtr, TclFile * errFilePtr));
00070 #endif
00071 #ifdef __WIN32__
00072
00073 EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
00074 int argc, char ** argv,
00075 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
00076 TclFile * outPipePtr, TclFile * errFilePtr));
00077 #endif
00078
00079 EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp,
00080 Namespace * nsPtr, char * procName,
00081 Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr,
00082 Proc ** procPtrPtr));
00083
00084 EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_((
00085 Interp * iPtr, CallFrame * framePtr));
00086
00087 EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr,
00088 Tcl_HashTable * tablePtr));
00089
00090 EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp,
00091 char * separators, Tcl_DString * headPtr,
00092 char * tail, GlobTypeData * types));
00093
00094 EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
00095
00096
00097 EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
00098 double value));
00099
00100 EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp,
00101 int objc, Tcl_Obj *CONST objv[]));
00102
00103 EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp,
00104 int argc, char ** argv));
00105
00106 EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp,
00107 int argc, char ** argv));
00108
00109 EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp,
00110 int argc, char ** argv));
00111
00112 EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp,
00113 int argc, char ** argv));
00114
00115 EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp,
00116 CONST char * listStr, int listLength,
00117 CONST char ** elementPtr,
00118 CONST char ** nextPtr, int * sizePtr,
00119 int * bracePtr));
00120
00121 EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr,
00122 char * procName));
00123
00124 EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n));
00125
00126 EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
00127
00128
00129 EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now,
00130 long zone, unsigned long * timePtr));
00131
00132 EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
00133
00134 EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_((
00135 Tcl_Interp * interp, int localIndex,
00136 Tcl_Obj * elemPtr, int leaveErrorMsg));
00137
00138
00139 EXTERN char * TclGetExtension _ANSI_ARGS_((char * name));
00140
00141 EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
00142 char * str, CallFrame ** framePtrPtr));
00143
00144 EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void));
00145
00146 EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp,
00147 Tcl_Obj * objPtr, int endValue,
00148 int * indexPtr));
00149
00150 EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
00151 int localIndex, int leaveErrorMsg));
00152
00153 EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp,
00154 char * str, long * longPtr));
00155
00156 EXTERN int TclGetLoadedPackages _ANSI_ARGS_((
00157 Tcl_Interp * interp, char * targetName));
00158
00159 EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_((
00160 Tcl_Interp * interp, char * qualName,
00161 Namespace * cxtNsPtr, int flags,
00162 Namespace ** nsPtrPtr,
00163 Namespace ** altNsPtrPtr,
00164 Namespace ** actualCxtPtrPtr,
00165 char ** simpleNamePtr));
00166
00167 EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
00168
00169 EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp,
00170 char * str, int * seekFlagPtr));
00171
00172 EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_((
00173 Tcl_Command command));
00174
00175 EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name,
00176 Tcl_DString * bufferPtr));
00177
00178 EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp,
00179 int argc, char ** argv, int flags));
00180
00181 EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName,
00182 Tcl_DString * bufPtr));
00183
00184 EXTERN int TclHideUnsafeCommands _ANSI_ARGS_((
00185 Tcl_Interp * interp));
00186
00187 EXTERN int TclInExit _ANSI_ARGS_((void));
00188
00189 EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_((
00190 Tcl_Interp * interp, int localIndex,
00191 Tcl_Obj * elemPtr, long incrAmount));
00192
00193 EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_((
00194 Tcl_Interp * interp, int localIndex,
00195 long incrAmount));
00196
00197 EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp,
00198 Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
00199 long incrAmount, int part1NotParsed));
00200
00201 EXTERN void TclInitCompiledLocals _ANSI_ARGS_((
00202 Tcl_Interp * interp, CallFrame * framePtr,
00203 Namespace * nsPtr));
00204
00205 EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
00206
00207 EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc,
00208 char ** argv, int flags));
00209
00210 EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
00211 ClientData clientData, Tcl_Interp * interp,
00212 int argc, char ** argv));
00213
00214 EXTERN int TclInvokeStringCommand _ANSI_ARGS_((
00215 ClientData clientData, Tcl_Interp * interp,
00216 int objc, Tcl_Obj *CONST objv[]));
00217
00218 EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr));
00219
00220
00221
00222 EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
00223 char * part1, char * part2, int flags,
00224 char * msg, int createPart1, int createPart2,
00225 Var ** arrayPtrPtr));
00226
00227 EXTERN int TclpMatchFiles _ANSI_ARGS_((Tcl_Interp * interp,
00228 char * separators, Tcl_DString * dirPtr,
00229 char * pattern, char * tail));
00230
00231 EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end));
00232
00233 EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
00234
00235 EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
00236
00237 EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
00238 Tcl_Interp * interp, int objc,
00239 Tcl_Obj *CONST objv[]));
00240
00241 EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
00242 int objc, Tcl_Obj *CONST objv[], int flags));
00243
00244 EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp,
00245 int objc, Tcl_Obj *CONST objv[], int flags));
00246
00247 EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_((
00248 TclOpenFileChannelProc_ * proc));
00249
00250 EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_((
00251 TclOpenFileChannelProc_ * proc));
00252
00253 EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode));
00254
00255 EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
00256
00257 EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char * source,
00258 CONST char * dest));
00259
00260 EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char * source,
00261 CONST char * dest, Tcl_DString * errorPtr));
00262
00263 EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char * path));
00264
00265 EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char * path));
00266
00267 EXTERN void TclpFree _ANSI_ARGS_((char * ptr));
00268
00269 EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void));
00270
00271 EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void));
00272
00273 EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
00274
00275 EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
00276
00277 EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp));
00278
00279 EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp,
00280 char * fileName, char * modeString,
00281 int permissions));
00282
00283 EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
00284 unsigned int size));
00285
00286 EXTERN int TclpRemoveDirectory _ANSI_ARGS_((CONST char * path,
00287 int recursive, Tcl_DString * errorPtr));
00288
00289 EXTERN int TclpRenameFile _ANSI_ARGS_((CONST char * source,
00290 CONST char * dest));
00291
00292
00293
00294
00295
00296 EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
00297 Tcl_Interp * interp, char * name1,
00298 char * name2, int flags));
00299
00300 EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp,
00301 Tcl_Interp * cmdInterp, Tcl_Command cmd));
00302
00303
00304 EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
00305
00306 EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp,
00307 Proc * procPtr, Tcl_Obj * bodyPtr,
00308 Namespace * nsPtr, CONST char * description,
00309 CONST char * procName));
00310
00311 EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
00312
00313 EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData,
00314 Tcl_Interp * interp, int argc, char ** argv));
00315
00316 EXTERN int TclpStat _ANSI_ARGS_((CONST char * path,
00317 struct stat * buf));
00318
00319 EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp,
00320 char * oldName, char * newName));
00321
00322 EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_((
00323 Tcl_Interp * interp, Command * newCmdPtr));
00324
00325 EXTERN int TclServiceIdle _ANSI_ARGS_((void));
00326
00327 EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_((
00328 Tcl_Interp * interp, int localIndex,
00329 Tcl_Obj * elemPtr, Tcl_Obj * objPtr,
00330 int leaveErrorMsg));
00331
00332 EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
00333 int localIndex, Tcl_Obj * objPtr,
00334 int leaveErrorMsg));
00335 #if !defined(__WIN32__) && !defined(MAC_TCL)
00336
00337 EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
00338 #endif
00339 #ifdef __WIN32__
00340
00341 EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
00342 #endif
00343
00344 EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
00345
00346 EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp,
00347 char * str, char * proto, int * portPtr));
00348 #if !defined(__WIN32__) && !defined(MAC_TCL)
00349
00350 EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
00351 int size));
00352 #endif
00353 #ifdef __WIN32__
00354
00355 EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
00356 int size));
00357 #endif
00358
00359 EXTERN int TclStat _ANSI_ARGS_((CONST char * path,
00360 struct stat * buf));
00361
00362 EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
00363
00364 EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
00365
00366 EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
00367
00368 EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
00369
00370
00371 EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((
00372 Tcl_Interp * interp, char * name,
00373 Tcl_ResolveCmdProc * cmdProc,
00374 Tcl_ResolveVarProc * varProc,
00375 Tcl_ResolveCompiledVarProc * compiledVarProc));
00376
00377 EXTERN int Tcl_AppendExportList _ANSI_ARGS_((
00378 Tcl_Interp * interp, Tcl_Namespace * nsPtr,
00379 Tcl_Obj * objPtr));
00380
00381 EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp,
00382 char * name, ClientData clientData,
00383 Tcl_NamespaceDeleteProc * deleteProc));
00384
00385 EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((
00386 Tcl_Namespace * nsPtr));
00387
00388 EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp,
00389 Tcl_Namespace * nsPtr, char * pattern,
00390 int resetListFirst));
00391
00392 EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp,
00393 char * name, Tcl_Namespace * contextNsPtr,
00394 int flags));
00395
00396 EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp,
00397 char * name, Tcl_Namespace * contextNsPtr,
00398 int flags));
00399
00400 EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((
00401 Tcl_Interp * interp, char * name,
00402 Tcl_ResolverInfo * resInfo));
00403
00404 EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_((
00405 Tcl_Namespace * namespacePtr,
00406 Tcl_ResolverInfo * resInfo));
00407
00408 EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((
00409 Tcl_Interp * interp, char * name,
00410 Tcl_Namespace * contextNsPtr, int flags));
00411
00412 EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp,
00413 Tcl_Namespace * nsPtr, char * pattern));
00414
00415 EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_((
00416 Tcl_Interp * interp, Tcl_Obj * objPtr));
00417
00418 EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_((
00419 Tcl_Interp * interp, Tcl_Command command,
00420 Tcl_Obj * objPtr));
00421
00422 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_((
00423 Tcl_Interp * interp));
00424
00425 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_((
00426 Tcl_Interp * interp));
00427
00428 EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_((
00429 Tcl_Interp * interp, Tcl_Var variable,
00430 Tcl_Obj * objPtr));
00431
00432 EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp,
00433 Tcl_Namespace * nsPtr, char * pattern,
00434 int allowOverwrite));
00435
00436 EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
00437
00438 EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp,
00439 Tcl_CallFrame * framePtr,
00440 Tcl_Namespace * nsPtr, int isProcCallFrame));
00441
00442 EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_((
00443 Tcl_Interp * interp, char * name));
00444
00445 EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_((
00446 Tcl_Namespace * namespacePtr,
00447 Tcl_ResolveCmdProc * cmdProc,
00448 Tcl_ResolveVarProc * varProc,
00449 Tcl_ResolveCompiledVarProc * compiledVarProc));
00450
00451 EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
00452
00453 EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
00454
00455 EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize,
00456 CONST char * format, CONST struct tm * t));
00457
00458 EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void));
00459
00460
00461 EXTERN int TclpChdir _ANSI_ARGS_((CONST char * dirName));
00462
00463 EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name,
00464 Tcl_DString * valuePtr));
00465
00466 EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp,
00467 char * fileName, char * sym1, char * sym2,
00468 Tcl_PackageInitProc ** proc1Ptr,
00469 Tcl_PackageInitProc ** proc2Ptr,
00470 ClientData * clientDataPtr));
00471
00472 EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes,
00473 int length));
00474
00475 EXTERN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp,
00476 Tcl_DString * cwdPtr));
00477
00478 EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_((
00479 Tcl_Interp * interp, Tcl_Obj * objPtr,
00480 CompileHookProc * hookProc,
00481 ClientData clientData));
00482
00483 EXTERN int TclAddLiteralObj _ANSI_ARGS_((
00484 struct CompileEnv * envPtr, Tcl_Obj * objPtr,
00485 LiteralEntry ** litPtrPtr));
00486
00487 EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp,
00488 struct CompileEnv * envPtr, int index));
00489
00490 EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
00491
00492 EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr));
00493
00494 EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle));
00495
00496 EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
00497
00498 EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle));
00499
00500 EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp,
00501 Tcl_RegExp re));
00502
00503 EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re,
00504 int index, int * startPtr, int * endPtr));
00505
00506 EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
00507
00508 EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void));
00509
00510
00511
00512 EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp,
00513 char * msg, int status));
00514
00515 EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp,
00516 char * varName));
00517
00518 EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_((
00519 char * filename));
00520
00521 EXTERN char * TclGetStartupScriptFileName _ANSI_ARGS_((void));
00522
00523 EXTERN int TclpMatchFilesTypes _ANSI_ARGS_((Tcl_Interp * interp,
00524 char * separators, Tcl_DString * dirPtr,
00525 char * pattern, char * tail,
00526 GlobTypeData * types));
00527
00528 EXTERN int TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp,
00529 Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
00530
00531 EXTERN void TclChannelEventScriptInvoker _ANSI_ARGS_((
00532 ClientData clientData, int flags));
00533
00534 typedef struct TclIntStubs {
00535 int magic;
00536 struct TclIntStubHooks *hooks;
00537
00538 int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode));
00539 int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc));
00540 int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc));
00541 void (*tclAllocateFreeObjects) _ANSI_ARGS_((void));
00542 void *reserved4;
00543 #if !defined(__WIN32__) && !defined(MAC_TCL)
00544 int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan));
00545 #endif
00546 #ifdef __WIN32__
00547 int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan));
00548 #endif
00549 #ifdef MAC_TCL
00550 void *reserved5;
00551 #endif
00552 void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr));
00553 int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst));
00554 int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr));
00555 #if !defined(__WIN32__) && !defined(MAC_TCL)
00556 int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr));
00557 #endif
00558 #ifdef __WIN32__
00559 int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr));
00560 #endif
00561 #ifdef MAC_TCL
00562 void *reserved9;
00563 #endif
00564 int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr));
00565 void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr));
00566 void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr));
00567 int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, GlobTypeData * types));
00568 void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile));
00569 void *reserved15;
00570 void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value));
00571 int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00572 int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv));
00573 int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv));
00574 int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv));
00575 int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv));
00576 int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr));
00577 Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName));
00578 int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n));
00579 void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr));
00580 void *reserved26;
00581 int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr));
00582 Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type));
00583 Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg));
00584 void *reserved30;
00585 char * (*tclGetExtension) _ANSI_ARGS_((char * name));
00586 int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * str, CallFrame ** framePtrPtr));
00587 TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void));
00588 int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr));
00589 Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg));
00590 int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr));
00591 int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName));
00592 int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr));
00593 TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void));
00594 int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * seekFlagPtr));
00595 Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command));
00596 char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr));
00597 int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags));
00598 int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr));
00599 int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp));
00600 int (*tclInExit) _ANSI_ARGS_((void));
00601 Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount));
00602 Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount));
00603 Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed));
00604 void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr));
00605 int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp));
00606 int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags));
00607 int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv));
00608 int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00609 Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr));
00610 void *reserved56;
00611 void *reserved57;
00612 Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr));
00613 int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail));
00614 int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end));
00615 Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr));
00616 int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr));
00617 int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00618 int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags));
00619 int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags));
00620 int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc));
00621 int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc));
00622 int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode));
00623 char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size));
00624 int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest));
00625 int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr));
00626 int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path));
00627 int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path));
00628 void (*tclpFree) _ANSI_ARGS_((char * ptr));
00629 unsigned long (*tclpGetClicks) _ANSI_ARGS_((void));
00630 unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void));
00631 void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time));
00632 int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time));
00633 int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp));
00634 Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions));
00635 char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size));
00636 int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr));
00637 int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest));
00638 void *reserved84;
00639 void *reserved85;
00640 void *reserved86;
00641 void *reserved87;
00642 char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags));
00643 int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd));
00644 void *reserved90;
00645 void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr));
00646 int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName));
00647 void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData));
00648 int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv));
00649 int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf));
00650 int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName));
00651 void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr));
00652 int (*tclServiceIdle) _ANSI_ARGS_((void));
00653 Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg));
00654 Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg));
00655 #if !defined(__WIN32__) && !defined(MAC_TCL)
00656 char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string));
00657 #endif
00658 #ifdef __WIN32__
00659 char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string));
00660 #endif
00661 #ifdef MAC_TCL
00662 void *reserved101;
00663 #endif
00664 void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp));
00665 int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr));
00666 #if !defined(__WIN32__) && !defined(MAC_TCL)
00667 int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size));
00668 #endif
00669 #ifdef __WIN32__
00670 int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size));
00671 #endif
00672 #ifdef MAC_TCL
00673 void *reserved104;
00674 #endif
00675 int (*tclStat) _ANSI_ARGS_((CONST char * path, struct stat * buf));
00676 int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc));
00677 int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc));
00678 void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr));
00679 int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr));
00680 void *reserved110;
00681 void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc));
00682 int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr));
00683 Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc));
00684 void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr));
00685 int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst));
00686 Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags));
00687 Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags));
00688 int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo));
00689 int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo));
00690 Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags));
00691 int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern));
00692 Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr));
00693 void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr));
00694 Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp));
00695 Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp));
00696 void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr));
00697 int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite));
00698 void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp));
00699 int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame));
00700 int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name));
00701 void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc));
00702 int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp));
00703 struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT));
00704 size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t));
00705 int (*tclpCheckStackSpace) _ANSI_ARGS_((void));
00706 void *reserved136;
00707 int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName));
00708 char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr));
00709 int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr));
00710 int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length));
00711 char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr));
00712 int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData));
00713 int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr));
00714 void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index));
00715 struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName));
00716 TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr));
00717 void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle));
00718 TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle));
00719 void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle));
00720 int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re));
00721 void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr));
00722 void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr));
00723 Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void));
00724 void *reserved154;
00725 void *reserved155;
00726 void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, char * msg, int status));
00727 Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, char * varName));
00728 void (*tclSetStartupScriptFileName) _ANSI_ARGS_((char * filename));
00729 char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void));
00730 int (*tclpMatchFilesTypes) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types));
00731 int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
00732 void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags));
00733 } TclIntStubs;
00734
00735 #ifdef __cplusplus
00736 extern "C" {
00737 #endif
00738 extern TclIntStubs *tclIntStubsPtr;
00739 #ifdef __cplusplus
00740 }
00741 #endif
00742
00743 #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
00744
00745
00746
00747
00748
00749 #ifndef TclAccess
00750 #define TclAccess \
00751 (tclIntStubsPtr->tclAccess)
00752 #endif
00753 #ifndef TclAccessDeleteProc
00754 #define TclAccessDeleteProc \
00755 (tclIntStubsPtr->tclAccessDeleteProc)
00756 #endif
00757 #ifndef TclAccessInsertProc
00758 #define TclAccessInsertProc \
00759 (tclIntStubsPtr->tclAccessInsertProc)
00760 #endif
00761 #ifndef TclAllocateFreeObjects
00762 #define TclAllocateFreeObjects \
00763 (tclIntStubsPtr->tclAllocateFreeObjects)
00764 #endif
00765
00766 #if !defined(__WIN32__) && !defined(MAC_TCL)
00767 #ifndef TclCleanupChildren
00768 #define TclCleanupChildren \
00769 (tclIntStubsPtr->tclCleanupChildren)
00770 #endif
00771 #endif
00772 #ifdef __WIN32__
00773 #ifndef TclCleanupChildren
00774 #define TclCleanupChildren \
00775 (tclIntStubsPtr->tclCleanupChildren)
00776 #endif
00777 #endif
00778 #ifndef TclCleanupCommand
00779 #define TclCleanupCommand \
00780 (tclIntStubsPtr->tclCleanupCommand)
00781 #endif
00782 #ifndef TclCopyAndCollapse
00783 #define TclCopyAndCollapse \
00784 (tclIntStubsPtr->tclCopyAndCollapse)
00785 #endif
00786 #ifndef TclCopyChannel
00787 #define TclCopyChannel \
00788 (tclIntStubsPtr->tclCopyChannel)
00789 #endif
00790 #if !defined(__WIN32__) && !defined(MAC_TCL)
00791 #ifndef TclCreatePipeline
00792 #define TclCreatePipeline \
00793 (tclIntStubsPtr->tclCreatePipeline)
00794 #endif
00795 #endif
00796 #ifdef __WIN32__
00797 #ifndef TclCreatePipeline
00798 #define TclCreatePipeline \
00799 (tclIntStubsPtr->tclCreatePipeline)
00800 #endif
00801 #endif
00802 #ifndef TclCreateProc
00803 #define TclCreateProc \
00804 (tclIntStubsPtr->tclCreateProc)
00805 #endif
00806 #ifndef TclDeleteCompiledLocalVars
00807 #define TclDeleteCompiledLocalVars \
00808 (tclIntStubsPtr->tclDeleteCompiledLocalVars)
00809 #endif
00810 #ifndef TclDeleteVars
00811 #define TclDeleteVars \
00812 (tclIntStubsPtr->tclDeleteVars)
00813 #endif
00814 #ifndef TclDoGlob
00815 #define TclDoGlob \
00816 (tclIntStubsPtr->tclDoGlob)
00817 #endif
00818 #ifndef TclDumpMemoryInfo
00819 #define TclDumpMemoryInfo \
00820 (tclIntStubsPtr->tclDumpMemoryInfo)
00821 #endif
00822
00823 #ifndef TclExprFloatError
00824 #define TclExprFloatError \
00825 (tclIntStubsPtr->tclExprFloatError)
00826 #endif
00827 #ifndef TclFileAttrsCmd
00828 #define TclFileAttrsCmd \
00829 (tclIntStubsPtr->tclFileAttrsCmd)
00830 #endif
00831 #ifndef TclFileCopyCmd
00832 #define TclFileCopyCmd \
00833 (tclIntStubsPtr->tclFileCopyCmd)
00834 #endif
00835 #ifndef TclFileDeleteCmd
00836 #define TclFileDeleteCmd \
00837 (tclIntStubsPtr->tclFileDeleteCmd)
00838 #endif
00839 #ifndef TclFileMakeDirsCmd
00840 #define TclFileMakeDirsCmd \
00841 (tclIntStubsPtr->tclFileMakeDirsCmd)
00842 #endif
00843 #ifndef TclFileRenameCmd
00844 #define TclFileRenameCmd \
00845 (tclIntStubsPtr->tclFileRenameCmd)
00846 #endif
00847 #ifndef TclFindElement
00848 #define TclFindElement \
00849 (tclIntStubsPtr->tclFindElement)
00850 #endif
00851 #ifndef TclFindProc
00852 #define TclFindProc \
00853 (tclIntStubsPtr->tclFindProc)
00854 #endif
00855 #ifndef TclFormatInt
00856 #define TclFormatInt \
00857 (tclIntStubsPtr->tclFormatInt)
00858 #endif
00859 #ifndef TclFreePackageInfo
00860 #define TclFreePackageInfo \
00861 (tclIntStubsPtr->tclFreePackageInfo)
00862 #endif
00863
00864 #ifndef TclGetDate
00865 #define TclGetDate \
00866 (tclIntStubsPtr->tclGetDate)
00867 #endif
00868 #ifndef TclpGetDefaultStdChannel
00869 #define TclpGetDefaultStdChannel \
00870 (tclIntStubsPtr->tclpGetDefaultStdChannel)
00871 #endif
00872 #ifndef TclGetElementOfIndexedArray
00873 #define TclGetElementOfIndexedArray \
00874 (tclIntStubsPtr->tclGetElementOfIndexedArray)
00875 #endif
00876
00877 #ifndef TclGetExtension
00878 #define TclGetExtension \
00879 (tclIntStubsPtr->tclGetExtension)
00880 #endif
00881 #ifndef TclGetFrame
00882 #define TclGetFrame \
00883 (tclIntStubsPtr->tclGetFrame)
00884 #endif
00885 #ifndef TclGetInterpProc
00886 #define TclGetInterpProc \
00887 (tclIntStubsPtr->tclGetInterpProc)
00888 #endif
00889 #ifndef TclGetIntForIndex
00890 #define TclGetIntForIndex \
00891 (tclIntStubsPtr->tclGetIntForIndex)
00892 #endif
00893 #ifndef TclGetIndexedScalar
00894 #define TclGetIndexedScalar \
00895 (tclIntStubsPtr->tclGetIndexedScalar)
00896 #endif
00897 #ifndef TclGetLong
00898 #define TclGetLong \
00899 (tclIntStubsPtr->tclGetLong)
00900 #endif
00901 #ifndef TclGetLoadedPackages
00902 #define TclGetLoadedPackages \
00903 (tclIntStubsPtr->tclGetLoadedPackages)
00904 #endif
00905 #ifndef TclGetNamespaceForQualName
00906 #define TclGetNamespaceForQualName \
00907 (tclIntStubsPtr->tclGetNamespaceForQualName)
00908 #endif
00909 #ifndef TclGetObjInterpProc
00910 #define TclGetObjInterpProc \
00911 (tclIntStubsPtr->tclGetObjInterpProc)
00912 #endif
00913 #ifndef TclGetOpenMode
00914 #define TclGetOpenMode \
00915 (tclIntStubsPtr->tclGetOpenMode)
00916 #endif
00917 #ifndef TclGetOriginalCommand
00918 #define TclGetOriginalCommand \
00919 (tclIntStubsPtr->tclGetOriginalCommand)
00920 #endif
00921 #ifndef TclpGetUserHome
00922 #define TclpGetUserHome \
00923 (tclIntStubsPtr->tclpGetUserHome)
00924 #endif
00925 #ifndef TclGlobalInvoke
00926 #define TclGlobalInvoke \
00927 (tclIntStubsPtr->tclGlobalInvoke)
00928 #endif
00929 #ifndef TclGuessPackageName
00930 #define TclGuessPackageName \
00931 (tclIntStubsPtr->tclGuessPackageName)
00932 #endif
00933 #ifndef TclHideUnsafeCommands
00934 #define TclHideUnsafeCommands \
00935 (tclIntStubsPtr->tclHideUnsafeCommands)
00936 #endif
00937 #ifndef TclInExit
00938 #define TclInExit \
00939 (tclIntStubsPtr->tclInExit)
00940 #endif
00941 #ifndef TclIncrElementOfIndexedArray
00942 #define TclIncrElementOfIndexedArray \
00943 (tclIntStubsPtr->tclIncrElementOfIndexedArray)
00944 #endif
00945 #ifndef TclIncrIndexedScalar
00946 #define TclIncrIndexedScalar \
00947 (tclIntStubsPtr->tclIncrIndexedScalar)
00948 #endif
00949 #ifndef TclIncrVar2
00950 #define TclIncrVar2 \
00951 (tclIntStubsPtr->tclIncrVar2)
00952 #endif
00953 #ifndef TclInitCompiledLocals
00954 #define TclInitCompiledLocals \
00955 (tclIntStubsPtr->tclInitCompiledLocals)
00956 #endif
00957 #ifndef TclInterpInit
00958 #define TclInterpInit \
00959 (tclIntStubsPtr->tclInterpInit)
00960 #endif
00961 #ifndef TclInvoke
00962 #define TclInvoke \
00963 (tclIntStubsPtr->tclInvoke)
00964 #endif
00965 #ifndef TclInvokeObjectCommand
00966 #define TclInvokeObjectCommand \
00967 (tclIntStubsPtr->tclInvokeObjectCommand)
00968 #endif
00969 #ifndef TclInvokeStringCommand
00970 #define TclInvokeStringCommand \
00971 (tclIntStubsPtr->tclInvokeStringCommand)
00972 #endif
00973 #ifndef TclIsProc
00974 #define TclIsProc \
00975 (tclIntStubsPtr->tclIsProc)
00976 #endif
00977
00978
00979 #ifndef TclLookupVar
00980 #define TclLookupVar \
00981 (tclIntStubsPtr->tclLookupVar)
00982 #endif
00983 #ifndef TclpMatchFiles
00984 #define TclpMatchFiles \
00985 (tclIntStubsPtr->tclpMatchFiles)
00986 #endif
00987 #ifndef TclNeedSpace
00988 #define TclNeedSpace \
00989 (tclIntStubsPtr->tclNeedSpace)
00990 #endif
00991 #ifndef TclNewProcBodyObj
00992 #define TclNewProcBodyObj \
00993 (tclIntStubsPtr->tclNewProcBodyObj)
00994 #endif
00995 #ifndef TclObjCommandComplete
00996 #define TclObjCommandComplete \
00997 (tclIntStubsPtr->tclObjCommandComplete)
00998 #endif
00999 #ifndef TclObjInterpProc
01000 #define TclObjInterpProc \
01001 (tclIntStubsPtr->tclObjInterpProc)
01002 #endif
01003 #ifndef TclObjInvoke
01004 #define TclObjInvoke \
01005 (tclIntStubsPtr->tclObjInvoke)
01006 #endif
01007 #ifndef TclObjInvokeGlobal
01008 #define TclObjInvokeGlobal \
01009 (tclIntStubsPtr->tclObjInvokeGlobal)
01010 #endif
01011 #ifndef TclOpenFileChannelDeleteProc
01012 #define TclOpenFileChannelDeleteProc \
01013 (tclIntStubsPtr->tclOpenFileChannelDeleteProc)
01014 #endif
01015 #ifndef TclOpenFileChannelInsertProc
01016 #define TclOpenFileChannelInsertProc \
01017 (tclIntStubsPtr->tclOpenFileChannelInsertProc)
01018 #endif
01019 #ifndef TclpAccess
01020 #define TclpAccess \
01021 (tclIntStubsPtr->tclpAccess)
01022 #endif
01023 #ifndef TclpAlloc
01024 #define TclpAlloc \
01025 (tclIntStubsPtr->tclpAlloc)
01026 #endif
01027 #ifndef TclpCopyFile
01028 #define TclpCopyFile \
01029 (tclIntStubsPtr->tclpCopyFile)
01030 #endif
01031 #ifndef TclpCopyDirectory
01032 #define TclpCopyDirectory \
01033 (tclIntStubsPtr->tclpCopyDirectory)
01034 #endif
01035 #ifndef TclpCreateDirectory
01036 #define TclpCreateDirectory \
01037 (tclIntStubsPtr->tclpCreateDirectory)
01038 #endif
01039 #ifndef TclpDeleteFile
01040 #define TclpDeleteFile \
01041 (tclIntStubsPtr->tclpDeleteFile)
01042 #endif
01043 #ifndef TclpFree
01044 #define TclpFree \
01045 (tclIntStubsPtr->tclpFree)
01046 #endif
01047 #ifndef TclpGetClicks
01048 #define TclpGetClicks \
01049 (tclIntStubsPtr->tclpGetClicks)
01050 #endif
01051 #ifndef TclpGetSeconds
01052 #define TclpGetSeconds \
01053 (tclIntStubsPtr->tclpGetSeconds)
01054 #endif
01055 #ifndef TclpGetTime
01056 #define TclpGetTime \
01057 (tclIntStubsPtr->tclpGetTime)
01058 #endif
01059 #ifndef TclpGetTimeZone
01060 #define TclpGetTimeZone \
01061 (tclIntStubsPtr->tclpGetTimeZone)
01062 #endif
01063 #ifndef TclpListVolumes
01064 #define TclpListVolumes \
01065 (tclIntStubsPtr->tclpListVolumes)
01066 #endif
01067 #ifndef TclpOpenFileChannel
01068 #define TclpOpenFileChannel \
01069 (tclIntStubsPtr->tclpOpenFileChannel)
01070 #endif
01071 #ifndef TclpRealloc
01072 #define TclpRealloc \
01073 (tclIntStubsPtr->tclpRealloc)
01074 #endif
01075 #ifndef TclpRemoveDirectory
01076 #define TclpRemoveDirectory \
01077 (tclIntStubsPtr->tclpRemoveDirectory)
01078 #endif
01079 #ifndef TclpRenameFile
01080 #define TclpRenameFile \
01081 (tclIntStubsPtr->tclpRenameFile)
01082 #endif
01083
01084
01085
01086
01087 #ifndef TclPrecTraceProc
01088 #define TclPrecTraceProc \
01089 (tclIntStubsPtr->tclPrecTraceProc)
01090 #endif
01091 #ifndef TclPreventAliasLoop
01092 #define TclPreventAliasLoop \
01093 (tclIntStubsPtr->tclPreventAliasLoop)
01094 #endif
01095
01096 #ifndef TclProcCleanupProc
01097 #define TclProcCleanupProc \
01098 (tclIntStubsPtr->tclProcCleanupProc)
01099 #endif
01100 #ifndef TclProcCompileProc
01101 #define TclProcCompileProc \
01102 (tclIntStubsPtr->tclProcCompileProc)
01103 #endif
01104 #ifndef TclProcDeleteProc
01105 #define TclProcDeleteProc \
01106 (tclIntStubsPtr->tclProcDeleteProc)
01107 #endif
01108 #ifndef TclProcInterpProc
01109 #define TclProcInterpProc \
01110 (tclIntStubsPtr->tclProcInterpProc)
01111 #endif
01112 #ifndef TclpStat
01113 #define TclpStat \
01114 (tclIntStubsPtr->tclpStat)
01115 #endif
01116 #ifndef TclRenameCommand
01117 #define TclRenameCommand \
01118 (tclIntStubsPtr->tclRenameCommand)
01119 #endif
01120 #ifndef TclResetShadowedCmdRefs
01121 #define TclResetShadowedCmdRefs \
01122 (tclIntStubsPtr->tclResetShadowedCmdRefs)
01123 #endif
01124 #ifndef TclServiceIdle
01125 #define TclServiceIdle \
01126 (tclIntStubsPtr->tclServiceIdle)
01127 #endif
01128 #ifndef TclSetElementOfIndexedArray
01129 #define TclSetElementOfIndexedArray \
01130 (tclIntStubsPtr->tclSetElementOfIndexedArray)
01131 #endif
01132 #ifndef TclSetIndexedScalar
01133 #define TclSetIndexedScalar \
01134 (tclIntStubsPtr->tclSetIndexedScalar)
01135 #endif
01136 #if !defined(__WIN32__) && !defined(MAC_TCL)
01137 #ifndef TclSetPreInitScript
01138 #define TclSetPreInitScript \
01139 (tclIntStubsPtr->tclSetPreInitScript)
01140 #endif
01141 #endif
01142 #ifdef __WIN32__
01143 #ifndef TclSetPreInitScript
01144 #define TclSetPreInitScript \
01145 (tclIntStubsPtr->tclSetPreInitScript)
01146 #endif
01147 #endif
01148 #ifndef TclSetupEnv
01149 #define TclSetupEnv \
01150 (tclIntStubsPtr->tclSetupEnv)
01151 #endif
01152 #ifndef TclSockGetPort
01153 #define TclSockGetPort \
01154 (tclIntStubsPtr->tclSockGetPort)
01155 #endif
01156 #if !defined(__WIN32__) && !defined(MAC_TCL)
01157 #ifndef TclSockMinimumBuffers
01158 #define TclSockMinimumBuffers \
01159 (tclIntStubsPtr->tclSockMinimumBuffers)
01160 #endif
01161 #endif
01162 #ifdef __WIN32__
01163 #ifndef TclSockMinimumBuffers
01164 #define TclSockMinimumBuffers \
01165 (tclIntStubsPtr->tclSockMinimumBuffers)
01166 #endif
01167 #endif
01168 #ifndef TclStat
01169 #define TclStat \
01170 (tclIntStubsPtr->tclStat)
01171 #endif
01172 #ifndef TclStatDeleteProc
01173 #define TclStatDeleteProc \
01174 (tclIntStubsPtr->tclStatDeleteProc)
01175 #endif
01176 #ifndef TclStatInsertProc
01177 #define TclStatInsertProc \
01178 (tclIntStubsPtr->tclStatInsertProc)
01179 #endif
01180 #ifndef TclTeardownNamespace
01181 #define TclTeardownNamespace \
01182 (tclIntStubsPtr->tclTeardownNamespace)
01183 #endif
01184 #ifndef TclUpdateReturnInfo
01185 #define TclUpdateReturnInfo \
01186 (tclIntStubsPtr->tclUpdateReturnInfo)
01187 #endif
01188
01189 #ifndef Tcl_AddInterpResolvers
01190 #define Tcl_AddInterpResolvers \
01191 (tclIntStubsPtr->tcl_AddInterpResolvers)
01192 #endif
01193 #ifndef Tcl_AppendExportList
01194 #define Tcl_AppendExportList \
01195 (tclIntStubsPtr->tcl_AppendExportList)
01196 #endif
01197 #ifndef Tcl_CreateNamespace
01198 #define Tcl_CreateNamespace \
01199 (tclIntStubsPtr->tcl_CreateNamespace)
01200 #endif
01201 #ifndef Tcl_DeleteNamespace
01202 #define Tcl_DeleteNamespace \
01203 (tclIntStubsPtr->tcl_DeleteNamespace)
01204 #endif
01205 #ifndef Tcl_Export
01206 #define Tcl_Export \
01207 (tclIntStubsPtr->tcl_Export)
01208 #endif
01209 #ifndef Tcl_FindCommand
01210 #define Tcl_FindCommand \
01211 (tclIntStubsPtr->tcl_FindCommand)
01212 #endif
01213 #ifndef Tcl_FindNamespace
01214 #define Tcl_FindNamespace \
01215 (tclIntStubsPtr->tcl_FindNamespace)
01216 #endif
01217 #ifndef Tcl_GetInterpResolvers
01218 #define Tcl_GetInterpResolvers \
01219 (tclIntStubsPtr->tcl_GetInterpResolvers)
01220 #endif
01221 #ifndef Tcl_GetNamespaceResolvers
01222 #define Tcl_GetNamespaceResolvers \
01223 (tclIntStubsPtr->tcl_GetNamespaceResolvers)
01224 #endif
01225 #ifndef Tcl_FindNamespaceVar
01226 #define Tcl_FindNamespaceVar \
01227 (tclIntStubsPtr->tcl_FindNamespaceVar)
01228 #endif
01229 #ifndef Tcl_ForgetImport
01230 #define Tcl_ForgetImport \
01231 (tclIntStubsPtr->tcl_ForgetImport)
01232 #endif
01233 #ifndef Tcl_GetCommandFromObj
01234 #define Tcl_GetCommandFromObj \
01235 (tclIntStubsPtr->tcl_GetCommandFromObj)
01236 #endif
01237 #ifndef Tcl_GetCommandFullName
01238 #define Tcl_GetCommandFullName \
01239 (tclIntStubsPtr->tcl_GetCommandFullName)
01240 #endif
01241 #ifndef Tcl_GetCurrentNamespace
01242 #define Tcl_GetCurrentNamespace \
01243 (tclIntStubsPtr->tcl_GetCurrentNamespace)
01244 #endif
01245 #ifndef Tcl_GetGlobalNamespace
01246 #define Tcl_GetGlobalNamespace \
01247 (tclIntStubsPtr->tcl_GetGlobalNamespace)
01248 #endif
01249 #ifndef Tcl_GetVariableFullName
01250 #define Tcl_GetVariableFullName \
01251 (tclIntStubsPtr->tcl_GetVariableFullName)
01252 #endif
01253 #ifndef Tcl_Import
01254 #define Tcl_Import \
01255 (tclIntStubsPtr->tcl_Import)
01256 #endif
01257 #ifndef Tcl_PopCallFrame
01258 #define Tcl_PopCallFrame \
01259 (tclIntStubsPtr->tcl_PopCallFrame)
01260 #endif
01261 #ifndef Tcl_PushCallFrame
01262 #define Tcl_PushCallFrame \
01263 (tclIntStubsPtr->tcl_PushCallFrame)
01264 #endif
01265 #ifndef Tcl_RemoveInterpResolvers
01266 #define Tcl_RemoveInterpResolvers \
01267 (tclIntStubsPtr->tcl_RemoveInterpResolvers)
01268 #endif
01269 #ifndef Tcl_SetNamespaceResolvers
01270 #define Tcl_SetNamespaceResolvers \
01271 (tclIntStubsPtr->tcl_SetNamespaceResolvers)
01272 #endif
01273 #ifndef TclpHasSockets
01274 #define TclpHasSockets \
01275 (tclIntStubsPtr->tclpHasSockets)
01276 #endif
01277 #ifndef TclpGetDate
01278 #define TclpGetDate \
01279 (tclIntStubsPtr->tclpGetDate)
01280 #endif
01281 #ifndef TclpStrftime
01282 #define TclpStrftime \
01283 (tclIntStubsPtr->tclpStrftime)
01284 #endif
01285 #ifndef TclpCheckStackSpace
01286 #define TclpCheckStackSpace \
01287 (tclIntStubsPtr->tclpCheckStackSpace)
01288 #endif
01289
01290 #ifndef TclpChdir
01291 #define TclpChdir \
01292 (tclIntStubsPtr->tclpChdir)
01293 #endif
01294 #ifndef TclGetEnv
01295 #define TclGetEnv \
01296 (tclIntStubsPtr->tclGetEnv)
01297 #endif
01298 #ifndef TclpLoadFile
01299 #define TclpLoadFile \
01300 (tclIntStubsPtr->tclpLoadFile)
01301 #endif
01302 #ifndef TclLooksLikeInt
01303 #define TclLooksLikeInt \
01304 (tclIntStubsPtr->tclLooksLikeInt)
01305 #endif
01306 #ifndef TclpGetCwd
01307 #define TclpGetCwd \
01308 (tclIntStubsPtr->tclpGetCwd)
01309 #endif
01310 #ifndef TclSetByteCodeFromAny
01311 #define TclSetByteCodeFromAny \
01312 (tclIntStubsPtr->tclSetByteCodeFromAny)
01313 #endif
01314 #ifndef TclAddLiteralObj
01315 #define TclAddLiteralObj \
01316 (tclIntStubsPtr->tclAddLiteralObj)
01317 #endif
01318 #ifndef TclHideLiteral
01319 #define TclHideLiteral \
01320 (tclIntStubsPtr->tclHideLiteral)
01321 #endif
01322 #ifndef TclGetAuxDataType
01323 #define TclGetAuxDataType \
01324 (tclIntStubsPtr->tclGetAuxDataType)
01325 #endif
01326 #ifndef TclHandleCreate
01327 #define TclHandleCreate \
01328 (tclIntStubsPtr->tclHandleCreate)
01329 #endif
01330 #ifndef TclHandleFree
01331 #define TclHandleFree \
01332 (tclIntStubsPtr->tclHandleFree)
01333 #endif
01334 #ifndef TclHandlePreserve
01335 #define TclHandlePreserve \
01336 (tclIntStubsPtr->tclHandlePreserve)
01337 #endif
01338 #ifndef TclHandleRelease
01339 #define TclHandleRelease \
01340 (tclIntStubsPtr->tclHandleRelease)
01341 #endif
01342 #ifndef TclRegAbout
01343 #define TclRegAbout \
01344 (tclIntStubsPtr->tclRegAbout)
01345 #endif
01346 #ifndef TclRegExpRangeUniChar
01347 #define TclRegExpRangeUniChar \
01348 (tclIntStubsPtr->tclRegExpRangeUniChar)
01349 #endif
01350 #ifndef TclSetLibraryPath
01351 #define TclSetLibraryPath \
01352 (tclIntStubsPtr->tclSetLibraryPath)
01353 #endif
01354 #ifndef TclGetLibraryPath
01355 #define TclGetLibraryPath \
01356 (tclIntStubsPtr->tclGetLibraryPath)
01357 #endif
01358
01359
01360 #ifndef TclRegError
01361 #define TclRegError \
01362 (tclIntStubsPtr->tclRegError)
01363 #endif
01364 #ifndef TclVarTraceExists
01365 #define TclVarTraceExists \
01366 (tclIntStubsPtr->tclVarTraceExists)
01367 #endif
01368 #ifndef TclSetStartupScriptFileName
01369 #define TclSetStartupScriptFileName \
01370 (tclIntStubsPtr->tclSetStartupScriptFileName)
01371 #endif
01372 #ifndef TclGetStartupScriptFileName
01373 #define TclGetStartupScriptFileName \
01374 (tclIntStubsPtr->tclGetStartupScriptFileName)
01375 #endif
01376 #ifndef TclpMatchFilesTypes
01377 #define TclpMatchFilesTypes \
01378 (tclIntStubsPtr->tclpMatchFilesTypes)
01379 #endif
01380 #ifndef TclChannelTransform
01381 #define TclChannelTransform \
01382 (tclIntStubsPtr->tclChannelTransform)
01383 #endif
01384 #ifndef TclChannelEventScriptInvoker
01385 #define TclChannelEventScriptInvoker \
01386 (tclIntStubsPtr->tclChannelEventScriptInvoker)
01387 #endif
01388
01389 #endif
01390
01391
01392
01393 #endif