home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / include / tclIntDecls.h < prev    next >
Encoding:
C/C++ Source or Header  |  2001-10-22  |  51.9 KB  |  1,408 lines
  1. /*
  2.  * tclIntDecls.h --
  3.  *
  4.  *    This file contains the declarations for all unsupported
  5.  *    functions that are exported by the Tcl library.  These
  6.  *    interfaces are not guaranteed to remain the same between
  7.  *    versions.  Use at your own risk.
  8.  *
  9.  * Copyright (c) 1998-1999 by Scriptics Corporation.
  10.  *
  11.  * See the file "license.terms" for information on usage and redistribution
  12.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  13.  *
  14.  * RCS: @(#) $Id: tclIntDecls.h,v 1.19.2.2 2001/10/15 20:27:23 andreas_kupries Exp $
  15.  */
  16.  
  17. #ifndef _TCLINTDECLS
  18. #define _TCLINTDECLS
  19.  
  20. /*
  21.  * WARNING: This file is automatically generated by the tools/genStubs.tcl
  22.  * script.  Any modifications to the function declarations below should be made
  23.  * in the generic/tclInt.decls script.
  24.  */
  25.  
  26. /* !BEGIN!: Do not edit below this line. */
  27.  
  28. /*
  29.  * Exported function declarations:
  30.  */
  31.  
  32. /* 0 */
  33. EXTERN int        TclAccess _ANSI_ARGS_((CONST char * path, int mode));
  34. /* 1 */
  35. EXTERN int        TclAccessDeleteProc _ANSI_ARGS_((
  36.                 TclAccessProc_ * proc));
  37. /* 2 */
  38. EXTERN int        TclAccessInsertProc _ANSI_ARGS_((
  39.                 TclAccessProc_ * proc));
  40. /* 3 */
  41. EXTERN void        TclAllocateFreeObjects _ANSI_ARGS_((void));
  42. /* Slot 4 is reserved */
  43. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  44. /* 5 */
  45. EXTERN int        TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, 
  46.                 int numPids, Tcl_Pid * pidPtr, 
  47.                 Tcl_Channel errorChan));
  48. #endif /* UNIX */
  49. #ifdef __WIN32__
  50. /* 5 */
  51. EXTERN int        TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, 
  52.                 int numPids, Tcl_Pid * pidPtr, 
  53.                 Tcl_Channel errorChan));
  54. #endif /* __WIN32__ */
  55. /* 6 */
  56. EXTERN void        TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
  57. /* 7 */
  58. EXTERN int        TclCopyAndCollapse _ANSI_ARGS_((int count, 
  59.                 CONST char * src, char * dst));
  60. /* 8 */
  61. EXTERN int        TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, 
  62.                 Tcl_Channel inChan, Tcl_Channel outChan, 
  63.                 int toRead, Tcl_Obj * cmdPtr));
  64. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  65. /* 9 */
  66. EXTERN int        TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, 
  67.                 int argc, char ** argv, 
  68.                 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, 
  69.                 TclFile * outPipePtr, TclFile * errFilePtr));
  70. #endif /* UNIX */
  71. #ifdef __WIN32__
  72. /* 9 */
  73. EXTERN int        TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, 
  74.                 int argc, char ** argv, 
  75.                 Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, 
  76.                 TclFile * outPipePtr, TclFile * errFilePtr));
  77. #endif /* __WIN32__ */
  78. /* 10 */
  79. EXTERN int        TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, 
  80.                 Namespace * nsPtr, char * procName, 
  81.                 Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, 
  82.                 Proc ** procPtrPtr));
  83. /* 11 */
  84. EXTERN void        TclDeleteCompiledLocalVars _ANSI_ARGS_((
  85.                 Interp * iPtr, CallFrame * framePtr));
  86. /* 12 */
  87. EXTERN void        TclDeleteVars _ANSI_ARGS_((Interp * iPtr, 
  88.                 Tcl_HashTable * tablePtr));
  89. /* 13 */
  90. EXTERN int        TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, 
  91.                 char * separators, Tcl_DString * headPtr, 
  92.                 char * tail, GlobTypeData * types));
  93. /* 14 */
  94. EXTERN void        TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
  95. /* Slot 15 is reserved */
  96. /* 16 */
  97. EXTERN void        TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, 
  98.                 double value));
  99. /* 17 */
  100. EXTERN int        TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp, 
  101.                 int objc, Tcl_Obj *CONST objv[]));
  102. /* 18 */
  103. EXTERN int        TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp, 
  104.                 int argc, char ** argv));
  105. /* 19 */
  106. EXTERN int        TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp, 
  107.                 int argc, char ** argv));
  108. /* 20 */
  109. EXTERN int        TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp, 
  110.                 int argc, char ** argv));
  111. /* 21 */
  112. EXTERN int        TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp, 
  113.                 int argc, char ** argv));
  114. /* 22 */
  115. EXTERN int        TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, 
  116.                 CONST char * listStr, int listLength, 
  117.                 CONST char ** elementPtr, 
  118.                 CONST char ** nextPtr, int * sizePtr, 
  119.                 int * bracePtr));
  120. /* 23 */
  121. EXTERN Proc *        TclFindProc _ANSI_ARGS_((Interp * iPtr, 
  122.                 char * procName));
  123. /* 24 */
  124. EXTERN int        TclFormatInt _ANSI_ARGS_((char * buffer, long n));
  125. /* 25 */
  126. EXTERN void        TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
  127. /* Slot 26 is reserved */
  128. /* 27 */
  129. EXTERN int        TclGetDate _ANSI_ARGS_((char * p, unsigned long now, 
  130.                 long zone, unsigned long * timePtr));
  131. /* 28 */
  132. EXTERN Tcl_Channel    TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
  133. /* 29 */
  134. EXTERN Tcl_Obj *    TclGetElementOfIndexedArray _ANSI_ARGS_((
  135.                 Tcl_Interp * interp, int localIndex, 
  136.                 Tcl_Obj * elemPtr, int leaveErrorMsg));
  137. /* Slot 30 is reserved */
  138. /* 31 */
  139. EXTERN char *        TclGetExtension _ANSI_ARGS_((char * name));
  140. /* 32 */
  141. EXTERN int        TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, 
  142.                 char * str, CallFrame ** framePtrPtr));
  143. /* 33 */
  144. EXTERN TclCmdProcType    TclGetInterpProc _ANSI_ARGS_((void));
  145. /* 34 */
  146. EXTERN int        TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, 
  147.                 Tcl_Obj * objPtr, int endValue, 
  148.                 int * indexPtr));
  149. /* 35 */
  150. EXTERN Tcl_Obj *    TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, 
  151.                 int localIndex, int leaveErrorMsg));
  152. /* 36 */
  153. EXTERN int        TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, 
  154.                 char * str, long * longPtr));
  155. /* 37 */
  156. EXTERN int        TclGetLoadedPackages _ANSI_ARGS_((
  157.                 Tcl_Interp * interp, char * targetName));
  158. /* 38 */
  159. EXTERN int        TclGetNamespaceForQualName _ANSI_ARGS_((
  160.                 Tcl_Interp * interp, char * qualName, 
  161.                 Namespace * cxtNsPtr, int flags, 
  162.                 Namespace ** nsPtrPtr, 
  163.                 Namespace ** altNsPtrPtr, 
  164.                 Namespace ** actualCxtPtrPtr, 
  165.                 char ** simpleNamePtr));
  166. /* 39 */
  167. EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
  168. /* 40 */
  169. EXTERN int        TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, 
  170.                 char * str, int * seekFlagPtr));
  171. /* 41 */
  172. EXTERN Tcl_Command    TclGetOriginalCommand _ANSI_ARGS_((
  173.                 Tcl_Command command));
  174. /* 42 */
  175. EXTERN char *        TclpGetUserHome _ANSI_ARGS_((CONST char * name, 
  176.                 Tcl_DString * bufferPtr));
  177. /* 43 */
  178. EXTERN int        TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
  179.                 int argc, char ** argv, int flags));
  180. /* 44 */
  181. EXTERN int        TclGuessPackageName _ANSI_ARGS_((char * fileName, 
  182.                 Tcl_DString * bufPtr));
  183. /* 45 */
  184. EXTERN int        TclHideUnsafeCommands _ANSI_ARGS_((
  185.                 Tcl_Interp * interp));
  186. /* 46 */
  187. EXTERN int        TclInExit _ANSI_ARGS_((void));
  188. /* 47 */
  189. EXTERN Tcl_Obj *    TclIncrElementOfIndexedArray _ANSI_ARGS_((
  190.                 Tcl_Interp * interp, int localIndex, 
  191.                 Tcl_Obj * elemPtr, long incrAmount));
  192. /* 48 */
  193. EXTERN Tcl_Obj *    TclIncrIndexedScalar _ANSI_ARGS_((
  194.                 Tcl_Interp * interp, int localIndex, 
  195.                 long incrAmount));
  196. /* 49 */
  197. EXTERN Tcl_Obj *    TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, 
  198.                 Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, 
  199.                 long incrAmount, int part1NotParsed));
  200. /* 50 */
  201. EXTERN void        TclInitCompiledLocals _ANSI_ARGS_((
  202.                 Tcl_Interp * interp, CallFrame * framePtr, 
  203.                 Namespace * nsPtr));
  204. /* 51 */
  205. EXTERN int        TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
  206. /* 52 */
  207. EXTERN int        TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, 
  208.                 char ** argv, int flags));
  209. /* 53 */
  210. EXTERN int        TclInvokeObjectCommand _ANSI_ARGS_((
  211.                 ClientData clientData, Tcl_Interp * interp, 
  212.                 int argc, char ** argv));
  213. /* 54 */
  214. EXTERN int        TclInvokeStringCommand _ANSI_ARGS_((
  215.                 ClientData clientData, Tcl_Interp * interp, 
  216.                 int objc, Tcl_Obj *CONST objv[]));
  217. /* 55 */
  218. EXTERN Proc *        TclIsProc _ANSI_ARGS_((Command * cmdPtr));
  219. /* Slot 56 is reserved */
  220. /* Slot 57 is reserved */
  221. /* 58 */
  222. EXTERN Var *        TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, 
  223.                 char * part1, char * part2, int flags, 
  224.                 char * msg, int createPart1, int createPart2, 
  225.                 Var ** arrayPtrPtr));
  226. /* 59 */
  227. EXTERN int        TclpMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, 
  228.                 char * separators, Tcl_DString * dirPtr, 
  229.                 char * pattern, char * tail));
  230. /* 60 */
  231. EXTERN int        TclNeedSpace _ANSI_ARGS_((char * start, char * end));
  232. /* 61 */
  233. EXTERN Tcl_Obj *    TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
  234. /* 62 */
  235. EXTERN int        TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
  236. /* 63 */
  237. EXTERN int        TclObjInterpProc _ANSI_ARGS_((ClientData clientData, 
  238.                 Tcl_Interp * interp, int objc, 
  239.                 Tcl_Obj *CONST objv[]));
  240. /* 64 */
  241. EXTERN int        TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
  242.                 int objc, Tcl_Obj *CONST objv[], int flags));
  243. /* 65 */
  244. EXTERN int        TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, 
  245.                 int objc, Tcl_Obj *CONST objv[], int flags));
  246. /* 66 */
  247. EXTERN int        TclOpenFileChannelDeleteProc _ANSI_ARGS_((
  248.                 TclOpenFileChannelProc_ * proc));
  249. /* 67 */
  250. EXTERN int        TclOpenFileChannelInsertProc _ANSI_ARGS_((
  251.                 TclOpenFileChannelProc_ * proc));
  252. /* 68 */
  253. EXTERN int        TclpAccess _ANSI_ARGS_((CONST char * path, int mode));
  254. /* 69 */
  255. EXTERN char *        TclpAlloc _ANSI_ARGS_((unsigned int size));
  256. /* 70 */
  257. EXTERN int        TclpCopyFile _ANSI_ARGS_((CONST char * source, 
  258.                 CONST char * dest));
  259. /* 71 */
  260. EXTERN int        TclpCopyDirectory _ANSI_ARGS_((CONST char * source, 
  261.                 CONST char * dest, Tcl_DString * errorPtr));
  262. /* 72 */
  263. EXTERN int        TclpCreateDirectory _ANSI_ARGS_((CONST char * path));
  264. /* 73 */
  265. EXTERN int        TclpDeleteFile _ANSI_ARGS_((CONST char * path));
  266. /* 74 */
  267. EXTERN void        TclpFree _ANSI_ARGS_((char * ptr));
  268. /* 75 */
  269. EXTERN unsigned long    TclpGetClicks _ANSI_ARGS_((void));
  270. /* 76 */
  271. EXTERN unsigned long    TclpGetSeconds _ANSI_ARGS_((void));
  272. /* 77 */
  273. EXTERN void        TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
  274. /* 78 */
  275. EXTERN int        TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
  276. /* 79 */
  277. EXTERN int        TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp));
  278. /* 80 */
  279. EXTERN Tcl_Channel    TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, 
  280.                 char * fileName, char * modeString, 
  281.                 int permissions));
  282. /* 81 */
  283. EXTERN char *        TclpRealloc _ANSI_ARGS_((char * ptr, 
  284.                 unsigned int size));
  285. /* 82 */
  286. EXTERN int        TclpRemoveDirectory _ANSI_ARGS_((CONST char * path, 
  287.                 int recursive, Tcl_DString * errorPtr));
  288. /* 83 */
  289. EXTERN int        TclpRenameFile _ANSI_ARGS_((CONST char * source, 
  290.                 CONST char * dest));
  291. /* Slot 84 is reserved */
  292. /* Slot 85 is reserved */
  293. /* Slot 86 is reserved */
  294. /* Slot 87 is reserved */
  295. /* 88 */
  296. EXTERN char *        TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, 
  297.                 Tcl_Interp * interp, char * name1, 
  298.                 char * name2, int flags));
  299. /* 89 */
  300. EXTERN int        TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, 
  301.                 Tcl_Interp * cmdInterp, Tcl_Command cmd));
  302. /* Slot 90 is reserved */
  303. /* 91 */
  304. EXTERN void        TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
  305. /* 92 */
  306. EXTERN int        TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, 
  307.                 Proc * procPtr, Tcl_Obj * bodyPtr, 
  308.                 Namespace * nsPtr, CONST char * description, 
  309.                 CONST char * procName));
  310. /* 93 */
  311. EXTERN void        TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
  312. /* 94 */
  313. EXTERN int        TclProcInterpProc _ANSI_ARGS_((ClientData clientData, 
  314.                 Tcl_Interp * interp, int argc, char ** argv));
  315. /* 95 */
  316. EXTERN int        TclpStat _ANSI_ARGS_((CONST char * path, 
  317.                 struct stat * buf));
  318. /* 96 */
  319. EXTERN int        TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, 
  320.                 char * oldName, char * newName));
  321. /* 97 */
  322. EXTERN void        TclResetShadowedCmdRefs _ANSI_ARGS_((
  323.                 Tcl_Interp * interp, Command * newCmdPtr));
  324. /* 98 */
  325. EXTERN int        TclServiceIdle _ANSI_ARGS_((void));
  326. /* 99 */
  327. EXTERN Tcl_Obj *    TclSetElementOfIndexedArray _ANSI_ARGS_((
  328.                 Tcl_Interp * interp, int localIndex, 
  329.                 Tcl_Obj * elemPtr, Tcl_Obj * objPtr, 
  330.                 int leaveErrorMsg));
  331. /* 100 */
  332. EXTERN Tcl_Obj *    TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, 
  333.                 int localIndex, Tcl_Obj * objPtr, 
  334.                 int leaveErrorMsg));
  335. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  336. /* 101 */
  337. EXTERN char *        TclSetPreInitScript _ANSI_ARGS_((char * string));
  338. #endif /* UNIX */
  339. #ifdef __WIN32__
  340. /* 101 */
  341. EXTERN char *        TclSetPreInitScript _ANSI_ARGS_((char * string));
  342. #endif /* __WIN32__ */
  343. /* 102 */
  344. EXTERN void        TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
  345. /* 103 */
  346. EXTERN int        TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, 
  347.                 char * str, char * proto, int * portPtr));
  348. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  349. /* 104 */
  350. EXTERN int        TclSockMinimumBuffers _ANSI_ARGS_((int sock, 
  351.                 int size));
  352. #endif /* UNIX */
  353. #ifdef __WIN32__
  354. /* 104 */
  355. EXTERN int        TclSockMinimumBuffers _ANSI_ARGS_((int sock, 
  356.                 int size));
  357. #endif /* __WIN32__ */
  358. /* 105 */
  359. EXTERN int        TclStat _ANSI_ARGS_((CONST char * path, 
  360.                 struct stat * buf));
  361. /* 106 */
  362. EXTERN int        TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
  363. /* 107 */
  364. EXTERN int        TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
  365. /* 108 */
  366. EXTERN void        TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
  367. /* 109 */
  368. EXTERN int        TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
  369. /* Slot 110 is reserved */
  370. /* 111 */
  371. EXTERN void        Tcl_AddInterpResolvers _ANSI_ARGS_((
  372.                 Tcl_Interp * interp, char * name, 
  373.                 Tcl_ResolveCmdProc * cmdProc, 
  374.                 Tcl_ResolveVarProc * varProc, 
  375.                 Tcl_ResolveCompiledVarProc * compiledVarProc));
  376. /* 112 */
  377. EXTERN int        Tcl_AppendExportList _ANSI_ARGS_((
  378.                 Tcl_Interp * interp, Tcl_Namespace * nsPtr, 
  379.                 Tcl_Obj * objPtr));
  380. /* 113 */
  381. EXTERN Tcl_Namespace *    Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
  382.                 char * name, ClientData clientData, 
  383.                 Tcl_NamespaceDeleteProc * deleteProc));
  384. /* 114 */
  385. EXTERN void        Tcl_DeleteNamespace _ANSI_ARGS_((
  386.                 Tcl_Namespace * nsPtr));
  387. /* 115 */
  388. EXTERN int        Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, 
  389.                 Tcl_Namespace * nsPtr, char * pattern, 
  390.                 int resetListFirst));
  391. /* 116 */
  392. EXTERN Tcl_Command    Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, 
  393.                 char * name, Tcl_Namespace * contextNsPtr, 
  394.                 int flags));
  395. /* 117 */
  396. EXTERN Tcl_Namespace *    Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, 
  397.                 char * name, Tcl_Namespace * contextNsPtr, 
  398.                 int flags));
  399. /* 118 */
  400. EXTERN int        Tcl_GetInterpResolvers _ANSI_ARGS_((
  401.                 Tcl_Interp * interp, char * name, 
  402.                 Tcl_ResolverInfo * resInfo));
  403. /* 119 */
  404. EXTERN int        Tcl_GetNamespaceResolvers _ANSI_ARGS_((
  405.                 Tcl_Namespace * namespacePtr, 
  406.                 Tcl_ResolverInfo * resInfo));
  407. /* 120 */
  408. EXTERN Tcl_Var        Tcl_FindNamespaceVar _ANSI_ARGS_((
  409.                 Tcl_Interp * interp, char * name, 
  410.                 Tcl_Namespace * contextNsPtr, int flags));
  411. /* 121 */
  412. EXTERN int        Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, 
  413.                 Tcl_Namespace * nsPtr, char * pattern));
  414. /* 122 */
  415. EXTERN Tcl_Command    Tcl_GetCommandFromObj _ANSI_ARGS_((
  416.                 Tcl_Interp * interp, Tcl_Obj * objPtr));
  417. /* 123 */
  418. EXTERN void        Tcl_GetCommandFullName _ANSI_ARGS_((
  419.                 Tcl_Interp * interp, Tcl_Command command, 
  420.                 Tcl_Obj * objPtr));
  421. /* 124 */
  422. EXTERN Tcl_Namespace *    Tcl_GetCurrentNamespace _ANSI_ARGS_((
  423.                 Tcl_Interp * interp));
  424. /* 125 */
  425. EXTERN Tcl_Namespace *    Tcl_GetGlobalNamespace _ANSI_ARGS_((
  426.                 Tcl_Interp * interp));
  427. /* 126 */
  428. EXTERN void        Tcl_GetVariableFullName _ANSI_ARGS_((
  429.                 Tcl_Interp * interp, Tcl_Var variable, 
  430.                 Tcl_Obj * objPtr));
  431. /* 127 */
  432. EXTERN int        Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, 
  433.                 Tcl_Namespace * nsPtr, char * pattern, 
  434.                 int allowOverwrite));
  435. /* 128 */
  436. EXTERN void        Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
  437. /* 129 */
  438. EXTERN int        Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, 
  439.                 Tcl_CallFrame * framePtr, 
  440.                 Tcl_Namespace * nsPtr, int isProcCallFrame));
  441. /* 130 */
  442. EXTERN int        Tcl_RemoveInterpResolvers _ANSI_ARGS_((
  443.                 Tcl_Interp * interp, char * name));
  444. /* 131 */
  445. EXTERN void        Tcl_SetNamespaceResolvers _ANSI_ARGS_((
  446.                 Tcl_Namespace * namespacePtr, 
  447.                 Tcl_ResolveCmdProc * cmdProc, 
  448.                 Tcl_ResolveVarProc * varProc, 
  449.                 Tcl_ResolveCompiledVarProc * compiledVarProc));
  450. /* 132 */
  451. EXTERN int        TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
  452. /* 133 */
  453. EXTERN struct tm *    TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
  454. /* 134 */
  455. EXTERN size_t        TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, 
  456.                 CONST char * format, CONST struct tm * t));
  457. /* 135 */
  458. EXTERN int        TclpCheckStackSpace _ANSI_ARGS_((void));
  459. /* Slot 136 is reserved */
  460. /* 137 */
  461. EXTERN int        TclpChdir _ANSI_ARGS_((CONST char * dirName));
  462. /* 138 */
  463. EXTERN char *        TclGetEnv _ANSI_ARGS_((CONST char * name, 
  464.                 Tcl_DString * valuePtr));
  465. /* 139 */
  466. EXTERN int        TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp, 
  467.                 char * fileName, char * sym1, char * sym2, 
  468.                 Tcl_PackageInitProc ** proc1Ptr, 
  469.                 Tcl_PackageInitProc ** proc2Ptr, 
  470.                 ClientData * clientDataPtr));
  471. /* 140 */
  472. EXTERN int        TclLooksLikeInt _ANSI_ARGS_((char * bytes, 
  473.                 int length));
  474. /* 141 */
  475. EXTERN char *        TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp, 
  476.                 Tcl_DString * cwdPtr));
  477. /* 142 */
  478. EXTERN int        TclSetByteCodeFromAny _ANSI_ARGS_((
  479.                 Tcl_Interp * interp, Tcl_Obj * objPtr, 
  480.                 CompileHookProc * hookProc, 
  481.                 ClientData clientData));
  482. /* 143 */
  483. EXTERN int        TclAddLiteralObj _ANSI_ARGS_((
  484.                 struct CompileEnv * envPtr, Tcl_Obj * objPtr, 
  485.                 LiteralEntry ** litPtrPtr));
  486. /* 144 */
  487. EXTERN void        TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp, 
  488.                 struct CompileEnv * envPtr, int index));
  489. /* 145 */
  490. EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
  491. /* 146 */
  492. EXTERN TclHandle    TclHandleCreate _ANSI_ARGS_((VOID * ptr));
  493. /* 147 */
  494. EXTERN void        TclHandleFree _ANSI_ARGS_((TclHandle handle));
  495. /* 148 */
  496. EXTERN TclHandle    TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
  497. /* 149 */
  498. EXTERN void        TclHandleRelease _ANSI_ARGS_((TclHandle handle));
  499. /* 150 */
  500. EXTERN int        TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp, 
  501.                 Tcl_RegExp re));
  502. /* 151 */
  503. EXTERN void        TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re, 
  504.                 int index, int * startPtr, int * endPtr));
  505. /* 152 */
  506. EXTERN void        TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
  507. /* 153 */
  508. EXTERN Tcl_Obj *    TclGetLibraryPath _ANSI_ARGS_((void));
  509. /* Slot 154 is reserved */
  510. /* Slot 155 is reserved */
  511. /* 156 */
  512. EXTERN void        TclRegError _ANSI_ARGS_((Tcl_Interp * interp, 
  513.                 char * msg, int status));
  514. /* 157 */
  515. EXTERN Var *        TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp, 
  516.                 char * varName));
  517. /* 158 */
  518. EXTERN void        TclSetStartupScriptFileName _ANSI_ARGS_((
  519.                 char * filename));
  520. /* 159 */
  521. EXTERN char *        TclGetStartupScriptFileName _ANSI_ARGS_((void));
  522. /* 160 */
  523. EXTERN int        TclpMatchFilesTypes _ANSI_ARGS_((Tcl_Interp * interp, 
  524.                 char * separators, Tcl_DString * dirPtr, 
  525.                 char * pattern, char * tail, 
  526.                 GlobTypeData * types));
  527. /* 161 */
  528. EXTERN int        TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp, 
  529.                 Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
  530. /* 162 */
  531. EXTERN void        TclChannelEventScriptInvoker _ANSI_ARGS_((
  532.                 ClientData clientData, int flags));
  533. /* 163 */
  534. EXTERN void *        TclGetInstructionTable _ANSI_ARGS_((void));
  535. /* 164 */
  536. EXTERN void        TclExpandCodeArray _ANSI_ARGS_((void * envPtr));
  537.  
  538. typedef struct TclIntStubs {
  539.     int magic;
  540.     struct TclIntStubHooks *hooks;
  541.  
  542.     int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */
  543.     int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
  544.     int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
  545.     void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
  546.     void *reserved4;
  547. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  548.     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
  549. #endif /* UNIX */
  550. #ifdef __WIN32__
  551.     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
  552. #endif /* __WIN32__ */
  553. #ifdef MAC_TCL
  554.     void *reserved5;
  555. #endif /* MAC_TCL */
  556.     void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
  557.     int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
  558.     int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
  559. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  560.     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
  561. #endif /* UNIX */
  562. #ifdef __WIN32__
  563.     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
  564. #endif /* __WIN32__ */
  565. #ifdef MAC_TCL
  566.     void *reserved9;
  567. #endif /* MAC_TCL */
  568.     int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
  569.     void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
  570.     void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
  571.     int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, GlobTypeData * types)); /* 13 */
  572.     void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
  573.     void *reserved15;
  574.     void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
  575.     int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */
  576.     int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */
  577.     int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */
  578.     int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */
  579.     int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */
  580.     int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
  581.     Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */
  582.     int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
  583.     void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
  584.     void *reserved26;
  585.     int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
  586.     Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
  587.     Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */
  588.     void *reserved30;
  589.     char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
  590.     int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * str, CallFrame ** framePtrPtr)); /* 32 */
  591.     TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
  592.     int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
  593.     Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
  594.     int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr)); /* 36 */
  595.     int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
  596.     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */
  597.     TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
  598.     int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * str, int * seekFlagPtr)); /* 40 */
  599.     Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
  600.     char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
  601.     int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */
  602.     int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */
  603.     int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
  604.     int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
  605.     Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */
  606.     Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */
  607.     Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
  608.     void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
  609.     int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
  610.     int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */
  611.     int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */
  612.     int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
  613.     Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
  614.     void *reserved56;
  615.     void *reserved57;
  616.     Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
  617.     int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */
  618.     int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */
  619.     Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
  620.     int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
  621.     int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
  622.     int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
  623.     int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
  624.     int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
  625.     int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
  626.     int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */
  627.     char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
  628.     int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 70 */
  629.     int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 71 */
  630.     int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 72 */
  631.     int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 73 */
  632.     void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
  633.     unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
  634.     unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
  635.     void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
  636.     int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
  637.     int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */
  638.     Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */
  639.     char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
  640.     int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */
  641.     int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 83 */
  642.     void *reserved84;
  643.     void *reserved85;
  644.     void *reserved86;
  645.     void *reserved87;
  646.     char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */
  647.     int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
  648.     void *reserved90;
  649.     void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
  650.     int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
  651.     void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
  652.     int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */
  653.     int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */
  654.     int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
  655.     void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
  656.     int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
  657.     Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */
  658.     Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */
  659. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  660.     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
  661. #endif /* UNIX */
  662. #ifdef __WIN32__
  663.     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
  664. #endif /* __WIN32__ */
  665. #ifdef MAC_TCL
  666.     void *reserved101;
  667. #endif /* MAC_TCL */
  668.     void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
  669.     int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
  670. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  671.     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
  672. #endif /* UNIX */
  673. #ifdef __WIN32__
  674.     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
  675. #endif /* __WIN32__ */
  676. #ifdef MAC_TCL
  677.     void *reserved104;
  678. #endif /* MAC_TCL */
  679.     int (*tclStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 105 */
  680.     int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
  681.     int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
  682.     void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
  683.     int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
  684.     void *reserved110;
  685.     void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
  686.     int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
  687.     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
  688.     void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
  689.     int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
  690.     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
  691.     Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
  692.     int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
  693.     int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
  694.     Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
  695.     int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */
  696.     Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
  697.     void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
  698.     Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
  699.     Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
  700.     void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
  701.     int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */
  702.     void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
  703.     int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
  704.     int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */
  705.     void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
  706.     int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
  707.     struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
  708.     size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t)); /* 134 */
  709.     int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
  710.     void *reserved136;
  711.     int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 137 */
  712.     char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
  713.     int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 139 */
  714.     int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */
  715.     char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
  716.     int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
  717.     int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
  718.     void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
  719.     struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
  720.     TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
  721.     void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
  722.     TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
  723.     void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
  724.     int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
  725.     void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
  726.     void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
  727.     Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
  728.     void *reserved154;
  729.     void *reserved155;
  730.     void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, char * msg, int status)); /* 156 */
  731.     Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, char * varName)); /* 157 */
  732.     void (*tclSetStartupScriptFileName) _ANSI_ARGS_((char * filename)); /* 158 */
  733.     char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
  734.     int (*tclpMatchFilesTypes) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail, GlobTypeData * types)); /* 160 */
  735.     int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
  736.     void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
  737.     void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */
  738.     void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */
  739. } TclIntStubs;
  740.  
  741. #ifdef __cplusplus
  742. extern "C" {
  743. #endif
  744. extern TclIntStubs *tclIntStubsPtr;
  745. #ifdef __cplusplus
  746. }
  747. #endif
  748.  
  749. #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
  750.  
  751. /*
  752.  * Inline function declarations:
  753.  */
  754.  
  755. #ifndef TclAccess
  756. #define TclAccess \
  757.     (tclIntStubsPtr->tclAccess) /* 0 */
  758. #endif
  759. #ifndef TclAccessDeleteProc
  760. #define TclAccessDeleteProc \
  761.     (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
  762. #endif
  763. #ifndef TclAccessInsertProc
  764. #define TclAccessInsertProc \
  765.     (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
  766. #endif
  767. #ifndef TclAllocateFreeObjects
  768. #define TclAllocateFreeObjects \
  769.     (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
  770. #endif
  771. /* Slot 4 is reserved */
  772. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  773. #ifndef TclCleanupChildren
  774. #define TclCleanupChildren \
  775.     (tclIntStubsPtr->tclCleanupChildren) /* 5 */
  776. #endif
  777. #endif /* UNIX */
  778. #ifdef __WIN32__
  779. #ifndef TclCleanupChildren
  780. #define TclCleanupChildren \
  781.     (tclIntStubsPtr->tclCleanupChildren) /* 5 */
  782. #endif
  783. #endif /* __WIN32__ */
  784. #ifndef TclCleanupCommand
  785. #define TclCleanupCommand \
  786.     (tclIntStubsPtr->tclCleanupCommand) /* 6 */
  787. #endif
  788. #ifndef TclCopyAndCollapse
  789. #define TclCopyAndCollapse \
  790.     (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
  791. #endif
  792. #ifndef TclCopyChannel
  793. #define TclCopyChannel \
  794.     (tclIntStubsPtr->tclCopyChannel) /* 8 */
  795. #endif
  796. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  797. #ifndef TclCreatePipeline
  798. #define TclCreatePipeline \
  799.     (tclIntStubsPtr->tclCreatePipeline) /* 9 */
  800. #endif
  801. #endif /* UNIX */
  802. #ifdef __WIN32__
  803. #ifndef TclCreatePipeline
  804. #define TclCreatePipeline \
  805.     (tclIntStubsPtr->tclCreatePipeline) /* 9 */
  806. #endif
  807. #endif /* __WIN32__ */
  808. #ifndef TclCreateProc
  809. #define TclCreateProc \
  810.     (tclIntStubsPtr->tclCreateProc) /* 10 */
  811. #endif
  812. #ifndef TclDeleteCompiledLocalVars
  813. #define TclDeleteCompiledLocalVars \
  814.     (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
  815. #endif
  816. #ifndef TclDeleteVars
  817. #define TclDeleteVars \
  818.     (tclIntStubsPtr->tclDeleteVars) /* 12 */
  819. #endif
  820. #ifndef TclDoGlob
  821. #define TclDoGlob \
  822.     (tclIntStubsPtr->tclDoGlob) /* 13 */
  823. #endif
  824. #ifndef TclDumpMemoryInfo
  825. #define TclDumpMemoryInfo \
  826.     (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
  827. #endif
  828. /* Slot 15 is reserved */
  829. #ifndef TclExprFloatError
  830. #define TclExprFloatError \
  831.     (tclIntStubsPtr->tclExprFloatError) /* 16 */
  832. #endif
  833. #ifndef TclFileAttrsCmd
  834. #define TclFileAttrsCmd \
  835.     (tclIntStubsPtr->tclFileAttrsCmd) /* 17 */
  836. #endif
  837. #ifndef TclFileCopyCmd
  838. #define TclFileCopyCmd \
  839.     (tclIntStubsPtr->tclFileCopyCmd) /* 18 */
  840. #endif
  841. #ifndef TclFileDeleteCmd
  842. #define TclFileDeleteCmd \
  843.     (tclIntStubsPtr->tclFileDeleteCmd) /* 19 */
  844. #endif
  845. #ifndef TclFileMakeDirsCmd
  846. #define TclFileMakeDirsCmd \
  847.     (tclIntStubsPtr->tclFileMakeDirsCmd) /* 20 */
  848. #endif
  849. #ifndef TclFileRenameCmd
  850. #define TclFileRenameCmd \
  851.     (tclIntStubsPtr->tclFileRenameCmd) /* 21 */
  852. #endif
  853. #ifndef TclFindElement
  854. #define TclFindElement \
  855.     (tclIntStubsPtr->tclFindElement) /* 22 */
  856. #endif
  857. #ifndef TclFindProc
  858. #define TclFindProc \
  859.     (tclIntStubsPtr->tclFindProc) /* 23 */
  860. #endif
  861. #ifndef TclFormatInt
  862. #define TclFormatInt \
  863.     (tclIntStubsPtr->tclFormatInt) /* 24 */
  864. #endif
  865. #ifndef TclFreePackageInfo
  866. #define TclFreePackageInfo \
  867.     (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
  868. #endif
  869. /* Slot 26 is reserved */
  870. #ifndef TclGetDate
  871. #define TclGetDate \
  872.     (tclIntStubsPtr->tclGetDate) /* 27 */
  873. #endif
  874. #ifndef TclpGetDefaultStdChannel
  875. #define TclpGetDefaultStdChannel \
  876.     (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
  877. #endif
  878. #ifndef TclGetElementOfIndexedArray
  879. #define TclGetElementOfIndexedArray \
  880.     (tclIntStubsPtr->tclGetElementOfIndexedArray) /* 29 */
  881. #endif
  882. /* Slot 30 is reserved */
  883. #ifndef TclGetExtension
  884. #define TclGetExtension \
  885.     (tclIntStubsPtr->tclGetExtension) /* 31 */
  886. #endif
  887. #ifndef TclGetFrame
  888. #define TclGetFrame \
  889.     (tclIntStubsPtr->tclGetFrame) /* 32 */
  890. #endif
  891. #ifndef TclGetInterpProc
  892. #define TclGetInterpProc \
  893.     (tclIntStubsPtr->tclGetInterpProc) /* 33 */
  894. #endif
  895. #ifndef TclGetIntForIndex
  896. #define TclGetIntForIndex \
  897.     (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
  898. #endif
  899. #ifndef TclGetIndexedScalar
  900. #define TclGetIndexedScalar \
  901.     (tclIntStubsPtr->tclGetIndexedScalar) /* 35 */
  902. #endif
  903. #ifndef TclGetLong
  904. #define TclGetLong \
  905.     (tclIntStubsPtr->tclGetLong) /* 36 */
  906. #endif
  907. #ifndef TclGetLoadedPackages
  908. #define TclGetLoadedPackages \
  909.     (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
  910. #endif
  911. #ifndef TclGetNamespaceForQualName
  912. #define TclGetNamespaceForQualName \
  913.     (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
  914. #endif
  915. #ifndef TclGetObjInterpProc
  916. #define TclGetObjInterpProc \
  917.     (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
  918. #endif
  919. #ifndef TclGetOpenMode
  920. #define TclGetOpenMode \
  921.     (tclIntStubsPtr->tclGetOpenMode) /* 40 */
  922. #endif
  923. #ifndef TclGetOriginalCommand
  924. #define TclGetOriginalCommand \
  925.     (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
  926. #endif
  927. #ifndef TclpGetUserHome
  928. #define TclpGetUserHome \
  929.     (tclIntStubsPtr->tclpGetUserHome) /* 42 */
  930. #endif
  931. #ifndef TclGlobalInvoke
  932. #define TclGlobalInvoke \
  933.     (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
  934. #endif
  935. #ifndef TclGuessPackageName
  936. #define TclGuessPackageName \
  937.     (tclIntStubsPtr->tclGuessPackageName) /* 44 */
  938. #endif
  939. #ifndef TclHideUnsafeCommands
  940. #define TclHideUnsafeCommands \
  941.     (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
  942. #endif
  943. #ifndef TclInExit
  944. #define TclInExit \
  945.     (tclIntStubsPtr->tclInExit) /* 46 */
  946. #endif
  947. #ifndef TclIncrElementOfIndexedArray
  948. #define TclIncrElementOfIndexedArray \
  949.     (tclIntStubsPtr->tclIncrElementOfIndexedArray) /* 47 */
  950. #endif
  951. #ifndef TclIncrIndexedScalar
  952. #define TclIncrIndexedScalar \
  953.     (tclIntStubsPtr->tclIncrIndexedScalar) /* 48 */
  954. #endif
  955. #ifndef TclIncrVar2
  956. #define TclIncrVar2 \
  957.     (tclIntStubsPtr->tclIncrVar2) /* 49 */
  958. #endif
  959. #ifndef TclInitCompiledLocals
  960. #define TclInitCompiledLocals \
  961.     (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
  962. #endif
  963. #ifndef TclInterpInit
  964. #define TclInterpInit \
  965.     (tclIntStubsPtr->tclInterpInit) /* 51 */
  966. #endif
  967. #ifndef TclInvoke
  968. #define TclInvoke \
  969.     (tclIntStubsPtr->tclInvoke) /* 52 */
  970. #endif
  971. #ifndef TclInvokeObjectCommand
  972. #define TclInvokeObjectCommand \
  973.     (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
  974. #endif
  975. #ifndef TclInvokeStringCommand
  976. #define TclInvokeStringCommand \
  977.     (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
  978. #endif
  979. #ifndef TclIsProc
  980. #define TclIsProc \
  981.     (tclIntStubsPtr->tclIsProc) /* 55 */
  982. #endif
  983. /* Slot 56 is reserved */
  984. /* Slot 57 is reserved */
  985. #ifndef TclLookupVar
  986. #define TclLookupVar \
  987.     (tclIntStubsPtr->tclLookupVar) /* 58 */
  988. #endif
  989. #ifndef TclpMatchFiles
  990. #define TclpMatchFiles \
  991.     (tclIntStubsPtr->tclpMatchFiles) /* 59 */
  992. #endif
  993. #ifndef TclNeedSpace
  994. #define TclNeedSpace \
  995.     (tclIntStubsPtr->tclNeedSpace) /* 60 */
  996. #endif
  997. #ifndef TclNewProcBodyObj
  998. #define TclNewProcBodyObj \
  999.     (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
  1000. #endif
  1001. #ifndef TclObjCommandComplete
  1002. #define TclObjCommandComplete \
  1003.     (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
  1004. #endif
  1005. #ifndef TclObjInterpProc
  1006. #define TclObjInterpProc \
  1007.     (tclIntStubsPtr->tclObjInterpProc) /* 63 */
  1008. #endif
  1009. #ifndef TclObjInvoke
  1010. #define TclObjInvoke \
  1011.     (tclIntStubsPtr->tclObjInvoke) /* 64 */
  1012. #endif
  1013. #ifndef TclObjInvokeGlobal
  1014. #define TclObjInvokeGlobal \
  1015.     (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
  1016. #endif
  1017. #ifndef TclOpenFileChannelDeleteProc
  1018. #define TclOpenFileChannelDeleteProc \
  1019.     (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
  1020. #endif
  1021. #ifndef TclOpenFileChannelInsertProc
  1022. #define TclOpenFileChannelInsertProc \
  1023.     (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
  1024. #endif
  1025. #ifndef TclpAccess
  1026. #define TclpAccess \
  1027.     (tclIntStubsPtr->tclpAccess) /* 68 */
  1028. #endif
  1029. #ifndef TclpAlloc
  1030. #define TclpAlloc \
  1031.     (tclIntStubsPtr->tclpAlloc) /* 69 */
  1032. #endif
  1033. #ifndef TclpCopyFile
  1034. #define TclpCopyFile \
  1035.     (tclIntStubsPtr->tclpCopyFile) /* 70 */
  1036. #endif
  1037. #ifndef TclpCopyDirectory
  1038. #define TclpCopyDirectory \
  1039.     (tclIntStubsPtr->tclpCopyDirectory) /* 71 */
  1040. #endif
  1041. #ifndef TclpCreateDirectory
  1042. #define TclpCreateDirectory \
  1043.     (tclIntStubsPtr->tclpCreateDirectory) /* 72 */
  1044. #endif
  1045. #ifndef TclpDeleteFile
  1046. #define TclpDeleteFile \
  1047.     (tclIntStubsPtr->tclpDeleteFile) /* 73 */
  1048. #endif
  1049. #ifndef TclpFree
  1050. #define TclpFree \
  1051.     (tclIntStubsPtr->tclpFree) /* 74 */
  1052. #endif
  1053. #ifndef TclpGetClicks
  1054. #define TclpGetClicks \
  1055.     (tclIntStubsPtr->tclpGetClicks) /* 75 */
  1056. #endif
  1057. #ifndef TclpGetSeconds
  1058. #define TclpGetSeconds \
  1059.     (tclIntStubsPtr->tclpGetSeconds) /* 76 */
  1060. #endif
  1061. #ifndef TclpGetTime
  1062. #define TclpGetTime \
  1063.     (tclIntStubsPtr->tclpGetTime) /* 77 */
  1064. #endif
  1065. #ifndef TclpGetTimeZone
  1066. #define TclpGetTimeZone \
  1067.     (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
  1068. #endif
  1069. #ifndef TclpListVolumes
  1070. #define TclpListVolumes \
  1071.     (tclIntStubsPtr->tclpListVolumes) /* 79 */
  1072. #endif
  1073. #ifndef TclpOpenFileChannel
  1074. #define TclpOpenFileChannel \
  1075.     (tclIntStubsPtr->tclpOpenFileChannel) /* 80 */
  1076. #endif
  1077. #ifndef TclpRealloc
  1078. #define TclpRealloc \
  1079.     (tclIntStubsPtr->tclpRealloc) /* 81 */
  1080. #endif
  1081. #ifndef TclpRemoveDirectory
  1082. #define TclpRemoveDirectory \
  1083.     (tclIntStubsPtr->tclpRemoveDirectory) /* 82 */
  1084. #endif
  1085. #ifndef TclpRenameFile
  1086. #define TclpRenameFile \
  1087.     (tclIntStubsPtr->tclpRenameFile) /* 83 */
  1088. #endif
  1089. /* Slot 84 is reserved */
  1090. /* Slot 85 is reserved */
  1091. /* Slot 86 is reserved */
  1092. /* Slot 87 is reserved */
  1093. #ifndef TclPrecTraceProc
  1094. #define TclPrecTraceProc \
  1095.     (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
  1096. #endif
  1097. #ifndef TclPreventAliasLoop
  1098. #define TclPreventAliasLoop \
  1099.     (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
  1100. #endif
  1101. /* Slot 90 is reserved */
  1102. #ifndef TclProcCleanupProc
  1103. #define TclProcCleanupProc \
  1104.     (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
  1105. #endif
  1106. #ifndef TclProcCompileProc
  1107. #define TclProcCompileProc \
  1108.     (tclIntStubsPtr->tclProcCompileProc) /* 92 */
  1109. #endif
  1110. #ifndef TclProcDeleteProc
  1111. #define TclProcDeleteProc \
  1112.     (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
  1113. #endif
  1114. #ifndef TclProcInterpProc
  1115. #define TclProcInterpProc \
  1116.     (tclIntStubsPtr->tclProcInterpProc) /* 94 */
  1117. #endif
  1118. #ifndef TclpStat
  1119. #define TclpStat \
  1120.     (tclIntStubsPtr->tclpStat) /* 95 */
  1121. #endif
  1122. #ifndef TclRenameCommand
  1123. #define TclRenameCommand \
  1124.     (tclIntStubsPtr->tclRenameCommand) /* 96 */
  1125. #endif
  1126. #ifndef TclResetShadowedCmdRefs
  1127. #define TclResetShadowedCmdRefs \
  1128.     (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
  1129. #endif
  1130. #ifndef TclServiceIdle
  1131. #define TclServiceIdle \
  1132.     (tclIntStubsPtr->tclServiceIdle) /* 98 */
  1133. #endif
  1134. #ifndef TclSetElementOfIndexedArray
  1135. #define TclSetElementOfIndexedArray \
  1136.     (tclIntStubsPtr->tclSetElementOfIndexedArray) /* 99 */
  1137. #endif
  1138. #ifndef TclSetIndexedScalar
  1139. #define TclSetIndexedScalar \
  1140.     (tclIntStubsPtr->tclSetIndexedScalar) /* 100 */
  1141. #endif
  1142. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  1143. #ifndef TclSetPreInitScript
  1144. #define TclSetPreInitScript \
  1145.     (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
  1146. #endif
  1147. #endif /* UNIX */
  1148. #ifdef __WIN32__
  1149. #ifndef TclSetPreInitScript
  1150. #define TclSetPreInitScript \
  1151.     (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
  1152. #endif
  1153. #endif /* __WIN32__ */
  1154. #ifndef TclSetupEnv
  1155. #define TclSetupEnv \
  1156.     (tclIntStubsPtr->tclSetupEnv) /* 102 */
  1157. #endif
  1158. #ifndef TclSockGetPort
  1159. #define TclSockGetPort \
  1160.     (tclIntStubsPtr->tclSockGetPort) /* 103 */
  1161. #endif
  1162. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  1163. #ifndef TclSockMinimumBuffers
  1164. #define TclSockMinimumBuffers \
  1165.     (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
  1166. #endif
  1167. #endif /* UNIX */
  1168. #ifdef __WIN32__
  1169. #ifndef TclSockMinimumBuffers
  1170. #define TclSockMinimumBuffers \
  1171.     (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
  1172. #endif
  1173. #endif /* __WIN32__ */
  1174. #ifndef TclStat
  1175. #define TclStat \
  1176.     (tclIntStubsPtr->tclStat) /* 105 */
  1177. #endif
  1178. #ifndef TclStatDeleteProc
  1179. #define TclStatDeleteProc \
  1180.     (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
  1181. #endif
  1182. #ifndef TclStatInsertProc
  1183. #define TclStatInsertProc \
  1184.     (tclIntStubsPtr->tclStatInsertProc) /* 107 */
  1185. #endif
  1186. #ifndef TclTeardownNamespace
  1187. #define TclTeardownNamespace \
  1188.     (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
  1189. #endif
  1190. #ifndef TclUpdateReturnInfo
  1191. #define TclUpdateReturnInfo \
  1192.     (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
  1193. #endif
  1194. /* Slot 110 is reserved */
  1195. #ifndef Tcl_AddInterpResolvers
  1196. #define Tcl_AddInterpResolvers \
  1197.     (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
  1198. #endif
  1199. #ifndef Tcl_AppendExportList
  1200. #define Tcl_AppendExportList \
  1201.     (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
  1202. #endif
  1203. #ifndef Tcl_CreateNamespace
  1204. #define Tcl_CreateNamespace \
  1205.     (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
  1206. #endif
  1207. #ifndef Tcl_DeleteNamespace
  1208. #define Tcl_DeleteNamespace \
  1209.     (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
  1210. #endif
  1211. #ifndef Tcl_Export
  1212. #define Tcl_Export \
  1213.     (tclIntStubsPtr->tcl_Export) /* 115 */
  1214. #endif
  1215. #ifndef Tcl_FindCommand
  1216. #define Tcl_FindCommand \
  1217.     (tclIntStubsPtr->tcl_FindCommand) /* 116 */
  1218. #endif
  1219. #ifndef Tcl_FindNamespace
  1220. #define Tcl_FindNamespace \
  1221.     (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
  1222. #endif
  1223. #ifndef Tcl_GetInterpResolvers
  1224. #define Tcl_GetInterpResolvers \
  1225.     (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
  1226. #endif
  1227. #ifndef Tcl_GetNamespaceResolvers
  1228. #define Tcl_GetNamespaceResolvers \
  1229.     (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
  1230. #endif
  1231. #ifndef Tcl_FindNamespaceVar
  1232. #define Tcl_FindNamespaceVar \
  1233.     (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
  1234. #endif
  1235. #ifndef Tcl_ForgetImport
  1236. #define Tcl_ForgetImport \
  1237.     (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
  1238. #endif
  1239. #ifndef Tcl_GetCommandFromObj
  1240. #define Tcl_GetCommandFromObj \
  1241.     (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
  1242. #endif
  1243. #ifndef Tcl_GetCommandFullName
  1244. #define Tcl_GetCommandFullName \
  1245.     (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
  1246. #endif
  1247. #ifndef Tcl_GetCurrentNamespace
  1248. #define Tcl_GetCurrentNamespace \
  1249.     (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
  1250. #endif
  1251. #ifndef Tcl_GetGlobalNamespace
  1252. #define Tcl_GetGlobalNamespace \
  1253.     (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
  1254. #endif
  1255. #ifndef Tcl_GetVariableFullName
  1256. #define Tcl_GetVariableFullName \
  1257.     (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
  1258. #endif
  1259. #ifndef Tcl_Import
  1260. #define Tcl_Import \
  1261.     (tclIntStubsPtr->tcl_Import) /* 127 */
  1262. #endif
  1263. #ifndef Tcl_PopCallFrame
  1264. #define Tcl_PopCallFrame \
  1265.     (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
  1266. #endif
  1267. #ifndef Tcl_PushCallFrame
  1268. #define Tcl_PushCallFrame \
  1269.     (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
  1270. #endif
  1271. #ifndef Tcl_RemoveInterpResolvers
  1272. #define Tcl_RemoveInterpResolvers \
  1273.     (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
  1274. #endif
  1275. #ifndef Tcl_SetNamespaceResolvers
  1276. #define Tcl_SetNamespaceResolvers \
  1277.     (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
  1278. #endif
  1279. #ifndef TclpHasSockets
  1280. #define TclpHasSockets \
  1281.     (tclIntStubsPtr->tclpHasSockets) /* 132 */
  1282. #endif
  1283. #ifndef TclpGetDate
  1284. #define TclpGetDate \
  1285.     (tclIntStubsPtr->tclpGetDate) /* 133 */
  1286. #endif
  1287. #ifndef TclpStrftime
  1288. #define TclpStrftime \
  1289.     (tclIntStubsPtr->tclpStrftime) /* 134 */
  1290. #endif
  1291. #ifndef TclpCheckStackSpace
  1292. #define TclpCheckStackSpace \
  1293.     (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
  1294. #endif
  1295. /* Slot 136 is reserved */
  1296. #ifndef TclpChdir
  1297. #define TclpChdir \
  1298.     (tclIntStubsPtr->tclpChdir) /* 137 */
  1299. #endif
  1300. #ifndef TclGetEnv
  1301. #define TclGetEnv \
  1302.     (tclIntStubsPtr->tclGetEnv) /* 138 */
  1303. #endif
  1304. #ifndef TclpLoadFile
  1305. #define TclpLoadFile \
  1306.     (tclIntStubsPtr->tclpLoadFile) /* 139 */
  1307. #endif
  1308. #ifndef TclLooksLikeInt
  1309. #define TclLooksLikeInt \
  1310.     (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
  1311. #endif
  1312. #ifndef TclpGetCwd
  1313. #define TclpGetCwd \
  1314.     (tclIntStubsPtr->tclpGetCwd) /* 141 */
  1315. #endif
  1316. #ifndef TclSetByteCodeFromAny
  1317. #define TclSetByteCodeFromAny \
  1318.     (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
  1319. #endif
  1320. #ifndef TclAddLiteralObj
  1321. #define TclAddLiteralObj \
  1322.     (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
  1323. #endif
  1324. #ifndef TclHideLiteral
  1325. #define TclHideLiteral \
  1326.     (tclIntStubsPtr->tclHideLiteral) /* 144 */
  1327. #endif
  1328. #ifndef TclGetAuxDataType
  1329. #define TclGetAuxDataType \
  1330.     (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
  1331. #endif
  1332. #ifndef TclHandleCreate
  1333. #define TclHandleCreate \
  1334.     (tclIntStubsPtr->tclHandleCreate) /* 146 */
  1335. #endif
  1336. #ifndef TclHandleFree
  1337. #define TclHandleFree \
  1338.     (tclIntStubsPtr->tclHandleFree) /* 147 */
  1339. #endif
  1340. #ifndef TclHandlePreserve
  1341. #define TclHandlePreserve \
  1342.     (tclIntStubsPtr->tclHandlePreserve) /* 148 */
  1343. #endif
  1344. #ifndef TclHandleRelease
  1345. #define TclHandleRelease \
  1346.     (tclIntStubsPtr->tclHandleRelease) /* 149 */
  1347. #endif
  1348. #ifndef TclRegAbout
  1349. #define TclRegAbout \
  1350.     (tclIntStubsPtr->tclRegAbout) /* 150 */
  1351. #endif
  1352. #ifndef TclRegExpRangeUniChar
  1353. #define TclRegExpRangeUniChar \
  1354.     (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
  1355. #endif
  1356. #ifndef TclSetLibraryPath
  1357. #define TclSetLibraryPath \
  1358.     (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
  1359. #endif
  1360. #ifndef TclGetLibraryPath
  1361. #define TclGetLibraryPath \
  1362.     (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
  1363. #endif
  1364. /* Slot 154 is reserved */
  1365. /* Slot 155 is reserved */
  1366. #ifndef TclRegError
  1367. #define TclRegError \
  1368.     (tclIntStubsPtr->tclRegError) /* 156 */
  1369. #endif
  1370. #ifndef TclVarTraceExists
  1371. #define TclVarTraceExists \
  1372.     (tclIntStubsPtr->tclVarTraceExists) /* 157 */
  1373. #endif
  1374. #ifndef TclSetStartupScriptFileName
  1375. #define TclSetStartupScriptFileName \
  1376.     (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
  1377. #endif
  1378. #ifndef TclGetStartupScriptFileName
  1379. #define TclGetStartupScriptFileName \
  1380.     (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
  1381. #endif
  1382. #ifndef TclpMatchFilesTypes
  1383. #define TclpMatchFilesTypes \
  1384.     (tclIntStubsPtr->tclpMatchFilesTypes) /* 160 */
  1385. #endif
  1386. #ifndef TclChannelTransform
  1387. #define TclChannelTransform \
  1388.     (tclIntStubsPtr->tclChannelTransform) /* 161 */
  1389. #endif
  1390. #ifndef TclChannelEventScriptInvoker
  1391. #define TclChannelEventScriptInvoker \
  1392.     (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
  1393. #endif
  1394. #ifndef TclGetInstructionTable
  1395. #define TclGetInstructionTable \
  1396.     (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
  1397. #endif
  1398. #ifndef TclExpandCodeArray
  1399. #define TclExpandCodeArray \
  1400.     (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
  1401. #endif
  1402.  
  1403. #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
  1404.  
  1405. /* !END!: Do not edit above this line. */
  1406.  
  1407. #endif /* _TCLINTDECLS */
  1408.