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