开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
tclIntDecls.h
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：51k
源码类别：

通讯编程

开发平台：

Visual C++

tclIntDecls.h：源码内容
  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.2.9 2007/04/21 19:52:14 kennykb Exp $
  15.  */
  17. #ifndef _TCLINTDECLS
  18. #define _TCLINTDECLS
  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.  */
  26. /* !BEGIN!: Do not edit below this line. */
  28. /*
  29.  * Exported function declarations:
  30.  */
  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, CONST char ** argv, 
  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, CONST char ** argv, 
  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, Tcl_WideInt now, 
  119. long zone, Tcl_WideInt * 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 char ** argv, 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 char ** argv, int flags));
  187. /* 53 */
  188. EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
  189. ClientData clientData, Tcl_Interp * interp, 
  190. int argc, CONST84 char ** argv));
  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_((Tcl_WideInt 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 char ** argv));
  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. /* Slot 174 is reserved */
  507. /* Slot 175 is reserved */
  508. /* Slot 176 is reserved */
  509. /* Slot 177 is reserved */
  510. /* Slot 178 is reserved */
  511. /* Slot 179 is reserved */
  512. /* Slot 180 is reserved */
  513. /* Slot 181 is reserved */
  514. /* 182 */
  515. EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((TclpTime_t_CONST clock));
  516. /* 183 */
  517. EXTERN struct tm * TclpGmtime _ANSI_ARGS_((TclpTime_t_CONST clock));
  518. /* Slot 184 is reserved */
  519. /* Slot 185 is reserved */
  520. /* Slot 186 is reserved */
  521. /* Slot 187 is reserved */
  522. /* Slot 188 is reserved */
  523. /* Slot 189 is reserved */
  524. /* Slot 190 is reserved */
  525. /* Slot 191 is reserved */
  526. /* Slot 192 is reserved */
  527. /* Slot 193 is reserved */
  528. /* Slot 194 is reserved */
  529. /* Slot 195 is reserved */
  530. /* Slot 196 is reserved */
  531. /* Slot 197 is reserved */
  532. /* Slot 198 is reserved */
  533. /* 199 */
  534. EXTERN int TclMatchIsTrivial _ANSI_ARGS_((CONST char * pattern));
  536. typedef struct TclIntStubs {
  537.     int magic;
  538.     struct TclIntStubHooks *hooks;
  540.     void *reserved0;
  541.     int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
  542.     int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
  543.     void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
  544.     void *reserved4;
  545. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  546.     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
  547. #endif /* UNIX */
  548. #ifdef __WIN32__
  549.     int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
  550. #endif /* __WIN32__ */
  551. #ifdef MAC_TCL
  552.     void *reserved5;
  553. #endif /* MAC_TCL */
  554.     void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
  555.     int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
  556.     int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
  557. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  558.     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
  559. #endif /* UNIX */
  560. #ifdef __WIN32__
  561.     int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
  562. #endif /* __WIN32__ */
  563. #ifdef MAC_TCL
  564.     void *reserved9;
  565. #endif /* MAC_TCL */
  566.     int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
  567.     void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
  568.     void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
  569.     int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail, Tcl_GlobTypeData * types)); /* 13 */
  570.     void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
  571.     void *reserved15;
  572.     void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
  573.     void *reserved17;
  574.     void *reserved18;
  575.     void *reserved19;
  576.     void *reserved20;
  577.     void *reserved21;
  578.     int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
  579.     Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */
  580.     int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
  581.     void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
  582.     void *reserved26;
  583.     int (*tclGetDate) _ANSI_ARGS_((char * p, Tcl_WideInt now, long zone, Tcl_WideInt * timePtr)); /* 27 */
  584.     Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
  585.     void *reserved29;
  586.     void *reserved30;
  587.     char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
  588.     int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */
  589.     TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
  590.     int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
  591.     void *reserved35;
  592.     int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */
  593.     int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
  594.     int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */
  595.     TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
  596.     int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */
  597.     Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
  598.     char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
  599.     int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 43 */
  600.     int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */
  601.     int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
  602.     int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
  603.     void *reserved47;
  604.     void *reserved48;
  605.     Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
  606.     void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
  607.     int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
  608.     int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 52 */
  609.     int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */
  610.     int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
  611.     Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
  612.     void *reserved56;
  613.     void *reserved57;
  614.     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 */
  615.     void *reserved59;
  616.     int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */
  617.     Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
  618.     int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
  619.     int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
  620.     int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
  621.     int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
  622.     int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
  623.     int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
  624.     void *reserved68;
  625.     char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
  626.     void *reserved70;
  627.     void *reserved71;
  628.     void *reserved72;
  629.     void *reserved73;
  630.     void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
  631.     unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
  632.     unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
  633.     void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
  634.     int (*tclpGetTimeZone) _ANSI_ARGS_((Tcl_WideInt time)); /* 78 */
  635.     void *reserved79;
  636.     void *reserved80;
  637.     char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
  638.     void *reserved82;
  639.     void *reserved83;
  640.     void *reserved84;
  641.     void *reserved85;
  642.     void *reserved86;
  643.     void *reserved87;
  644.     char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */
  645.     int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
  646.     void *reserved90;
  647.     void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
  648.     int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
  649.     void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
  650.     int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 94 */
  651.     void *reserved95;
  652.     int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
  653.     void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
  654.     int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
  655.     void *reserved99;
  656.     void *reserved100;
  657.     char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
  658.     void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
  659.     int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
  660. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  661.     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
  662. #endif /* UNIX */
  663. #ifdef __WIN32__
  664.     int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
  665. #endif /* __WIN32__ */
  666. #ifdef MAC_TCL
  667.     void *reserved104;
  668. #endif /* MAC_TCL */
  669.     void *reserved105;
  670.     int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
  671.     int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
  672.     void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
  673.     int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
  674.     void *reserved110;
  675.     void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
  676.     int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
  677.     Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
  678.     void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
  679.     int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst)); /* 115 */
  680.     Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
  681.     Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
  682.     int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
  683.     int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
  684.     Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
  685.     int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern)); /* 121 */
  686.     Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
  687.     void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
  688.     Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
  689.     Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
  690.     void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
  691.     int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite)); /* 127 */
  692.     void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
  693.     int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
  694.     int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name)); /* 130 */
  695.     void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
  696.     int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
  697.     struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
  698.     size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */
  699.     int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
  700.     void *reserved136;
  701.     void *reserved137;
  702.     CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
  703.     void *reserved139;
  704.     int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */
  705.     CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
  706.     int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
  707.     int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
  708.     void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
  709.     struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
  710.     TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
  711.     void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
  712.     TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
  713.     void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
  714.     int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
  715.     void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
  716.     void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
  717.     Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
  718.     void *reserved154;
  719.     void *reserved155;
  720.     void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */
  721.     Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */
  722.     void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */
  723.     CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
  724.     void *reserved160;
  725.     int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
  726.     void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
  727.     void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */
  728.     void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */
  729.     void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */
  730.     int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */
  731.     void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */
  732.     Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */
  733.     int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */
  734.     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 */
  735.     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 */
  736.     int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */
  737.     int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */
  738.     void *reserved174;
  739.     void *reserved175;
  740.     void *reserved176;
  741.     void *reserved177;
  742.     void *reserved178;
  743.     void *reserved179;
  744.     void *reserved180;
  745.     void *reserved181;
  746.     struct tm * (*tclpLocaltime) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 182 */
  747.     struct tm * (*tclpGmtime) _ANSI_ARGS_((TclpTime_t_CONST clock)); /* 183 */
  748.     void *reserved184;
  749.     void *reserved185;
  750.     void *reserved186;
  751.     void *reserved187;
  752.     void *reserved188;
  753.     void *reserved189;
  754.     void *reserved190;
  755.     void *reserved191;
  756.     void *reserved192;
  757.     void *reserved193;
  758.     void *reserved194;
  759.     void *reserved195;
  760.     void *reserved196;
  761.     void *reserved197;
  762.     void *reserved198;
  763.     int (*tclMatchIsTrivial) _ANSI_ARGS_((CONST char * pattern)); /* 199 */
  764. } TclIntStubs;
  766. #ifdef __cplusplus
  767. extern "C" {
  768. #endif
  769. extern TclIntStubs *tclIntStubsPtr;
  770. #ifdef __cplusplus
  771. }
  772. #endif
  774. #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
  776. /*
  777.  * Inline function declarations:
  778.  */
  780. /* Slot 0 is reserved */
  781. #ifndef TclAccessDeleteProc
  782. #define TclAccessDeleteProc 
  783. (tclIntStubsPtr->tclAccessDeleteProc) /* 1 */
  784. #endif
  785. #ifndef TclAccessInsertProc
  786. #define TclAccessInsertProc 
  787. (tclIntStubsPtr->tclAccessInsertProc) /* 2 */
  788. #endif
  789. #ifndef TclAllocateFreeObjects
  790. #define TclAllocateFreeObjects 
  791. (tclIntStubsPtr->tclAllocateFreeObjects) /* 3 */
  792. #endif
  793. /* Slot 4 is reserved */
  794. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  795. #ifndef TclCleanupChildren
  796. #define TclCleanupChildren 
  797. (tclIntStubsPtr->tclCleanupChildren) /* 5 */
  798. #endif
  799. #endif /* UNIX */
  800. #ifdef __WIN32__
  801. #ifndef TclCleanupChildren
  802. #define TclCleanupChildren 
  803. (tclIntStubsPtr->tclCleanupChildren) /* 5 */
  804. #endif
  805. #endif /* __WIN32__ */
  806. #ifndef TclCleanupCommand
  807. #define TclCleanupCommand 
  808. (tclIntStubsPtr->tclCleanupCommand) /* 6 */
  809. #endif
  810. #ifndef TclCopyAndCollapse
  811. #define TclCopyAndCollapse 
  812. (tclIntStubsPtr->tclCopyAndCollapse) /* 7 */
  813. #endif
  814. #ifndef TclCopyChannel
  815. #define TclCopyChannel 
  816. (tclIntStubsPtr->tclCopyChannel) /* 8 */
  817. #endif
  818. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  819. #ifndef TclCreatePipeline
  820. #define TclCreatePipeline 
  821. (tclIntStubsPtr->tclCreatePipeline) /* 9 */
  822. #endif
  823. #endif /* UNIX */
  824. #ifdef __WIN32__
  825. #ifndef TclCreatePipeline
  826. #define TclCreatePipeline 
  827. (tclIntStubsPtr->tclCreatePipeline) /* 9 */
  828. #endif
  829. #endif /* __WIN32__ */
  830. #ifndef TclCreateProc
  831. #define TclCreateProc 
  832. (tclIntStubsPtr->tclCreateProc) /* 10 */
  833. #endif
  834. #ifndef TclDeleteCompiledLocalVars
  835. #define TclDeleteCompiledLocalVars 
  836. (tclIntStubsPtr->tclDeleteCompiledLocalVars) /* 11 */
  837. #endif
  838. #ifndef TclDeleteVars
  839. #define TclDeleteVars 
  840. (tclIntStubsPtr->tclDeleteVars) /* 12 */
  841. #endif
  842. #ifndef TclDoGlob
  843. #define TclDoGlob 
  844. (tclIntStubsPtr->tclDoGlob) /* 13 */
  845. #endif
  846. #ifndef TclDumpMemoryInfo
  847. #define TclDumpMemoryInfo 
  848. (tclIntStubsPtr->tclDumpMemoryInfo) /* 14 */
  849. #endif
  850. /* Slot 15 is reserved */
  851. #ifndef TclExprFloatError
  852. #define TclExprFloatError 
  853. (tclIntStubsPtr->tclExprFloatError) /* 16 */
  854. #endif
  855. /* Slot 17 is reserved */
  856. /* Slot 18 is reserved */
  857. /* Slot 19 is reserved */
  858. /* Slot 20 is reserved */
  859. /* Slot 21 is reserved */
  860. #ifndef TclFindElement
  861. #define TclFindElement 
  862. (tclIntStubsPtr->tclFindElement) /* 22 */
  863. #endif
  864. #ifndef TclFindProc
  865. #define TclFindProc 
  866. (tclIntStubsPtr->tclFindProc) /* 23 */
  867. #endif
  868. #ifndef TclFormatInt
  869. #define TclFormatInt 
  870. (tclIntStubsPtr->tclFormatInt) /* 24 */
  871. #endif
  872. #ifndef TclFreePackageInfo
  873. #define TclFreePackageInfo 
  874. (tclIntStubsPtr->tclFreePackageInfo) /* 25 */
  875. #endif
  876. /* Slot 26 is reserved */
  877. #ifndef TclGetDate
  878. #define TclGetDate 
  879. (tclIntStubsPtr->tclGetDate) /* 27 */
  880. #endif
  881. #ifndef TclpGetDefaultStdChannel
  882. #define TclpGetDefaultStdChannel 
  883. (tclIntStubsPtr->tclpGetDefaultStdChannel) /* 28 */
  884. #endif
  885. /* Slot 29 is reserved */
  886. /* Slot 30 is reserved */
  887. #ifndef TclGetExtension
  888. #define TclGetExtension 
  889. (tclIntStubsPtr->tclGetExtension) /* 31 */
  890. #endif
  891. #ifndef TclGetFrame
  892. #define TclGetFrame 
  893. (tclIntStubsPtr->tclGetFrame) /* 32 */
  894. #endif
  895. #ifndef TclGetInterpProc
  896. #define TclGetInterpProc 
  897. (tclIntStubsPtr->tclGetInterpProc) /* 33 */
  898. #endif
  899. #ifndef TclGetIntForIndex
  900. #define TclGetIntForIndex 
  901. (tclIntStubsPtr->tclGetIntForIndex) /* 34 */
  902. #endif
  903. /* Slot 35 is reserved */
  904. #ifndef TclGetLong
  905. #define TclGetLong 
  906. (tclIntStubsPtr->tclGetLong) /* 36 */
  907. #endif
  908. #ifndef TclGetLoadedPackages
  909. #define TclGetLoadedPackages 
  910. (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */
  911. #endif
  912. #ifndef TclGetNamespaceForQualName
  913. #define TclGetNamespaceForQualName 
  914. (tclIntStubsPtr->tclGetNamespaceForQualName) /* 38 */
  915. #endif
  916. #ifndef TclGetObjInterpProc
  917. #define TclGetObjInterpProc 
  918. (tclIntStubsPtr->tclGetObjInterpProc) /* 39 */
  919. #endif
  920. #ifndef TclGetOpenMode
  921. #define TclGetOpenMode 
  922. (tclIntStubsPtr->tclGetOpenMode) /* 40 */
  923. #endif
  924. #ifndef TclGetOriginalCommand
  925. #define TclGetOriginalCommand 
  926. (tclIntStubsPtr->tclGetOriginalCommand) /* 41 */
  927. #endif
  928. #ifndef TclpGetUserHome
  929. #define TclpGetUserHome 
  930. (tclIntStubsPtr->tclpGetUserHome) /* 42 */
  931. #endif
  932. #ifndef TclGlobalInvoke
  933. #define TclGlobalInvoke 
  934. (tclIntStubsPtr->tclGlobalInvoke) /* 43 */
  935. #endif
  936. #ifndef TclGuessPackageName
  937. #define TclGuessPackageName 
  938. (tclIntStubsPtr->tclGuessPackageName) /* 44 */
  939. #endif
  940. #ifndef TclHideUnsafeCommands
  941. #define TclHideUnsafeCommands 
  942. (tclIntStubsPtr->tclHideUnsafeCommands) /* 45 */
  943. #endif
  944. #ifndef TclInExit
  945. #define TclInExit 
  946. (tclIntStubsPtr->tclInExit) /* 46 */
  947. #endif
  948. /* Slot 47 is reserved */
  949. /* Slot 48 is reserved */
  950. #ifndef TclIncrVar2
  951. #define TclIncrVar2 
  952. (tclIntStubsPtr->tclIncrVar2) /* 49 */
  953. #endif
  954. #ifndef TclInitCompiledLocals
  955. #define TclInitCompiledLocals 
  956. (tclIntStubsPtr->tclInitCompiledLocals) /* 50 */
  957. #endif
  958. #ifndef TclInterpInit
  959. #define TclInterpInit 
  960. (tclIntStubsPtr->tclInterpInit) /* 51 */
  961. #endif
  962. #ifndef TclInvoke
  963. #define TclInvoke 
  964. (tclIntStubsPtr->tclInvoke) /* 52 */
  965. #endif
  966. #ifndef TclInvokeObjectCommand
  967. #define TclInvokeObjectCommand 
  968. (tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
  969. #endif
  970. #ifndef TclInvokeStringCommand
  971. #define TclInvokeStringCommand 
  972. (tclIntStubsPtr->tclInvokeStringCommand) /* 54 */
  973. #endif
  974. #ifndef TclIsProc
  975. #define TclIsProc 
  976. (tclIntStubsPtr->tclIsProc) /* 55 */
  977. #endif
  978. /* Slot 56 is reserved */
  979. /* Slot 57 is reserved */
  980. #ifndef TclLookupVar
  981. #define TclLookupVar 
  982. (tclIntStubsPtr->tclLookupVar) /* 58 */
  983. #endif
  984. /* Slot 59 is reserved */
  985. #ifndef TclNeedSpace
  986. #define TclNeedSpace 
  987. (tclIntStubsPtr->tclNeedSpace) /* 60 */
  988. #endif
  989. #ifndef TclNewProcBodyObj
  990. #define TclNewProcBodyObj 
  991. (tclIntStubsPtr->tclNewProcBodyObj) /* 61 */
  992. #endif
  993. #ifndef TclObjCommandComplete
  994. #define TclObjCommandComplete 
  995. (tclIntStubsPtr->tclObjCommandComplete) /* 62 */
  996. #endif
  997. #ifndef TclObjInterpProc
  998. #define TclObjInterpProc 
  999. (tclIntStubsPtr->tclObjInterpProc) /* 63 */
  1000. #endif
  1001. #ifndef TclObjInvoke
  1002. #define TclObjInvoke 
  1003. (tclIntStubsPtr->tclObjInvoke) /* 64 */
  1004. #endif
  1005. #ifndef TclObjInvokeGlobal
  1006. #define TclObjInvokeGlobal 
  1007. (tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
  1008. #endif
  1009. #ifndef TclOpenFileChannelDeleteProc
  1010. #define TclOpenFileChannelDeleteProc 
  1011. (tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */
  1012. #endif
  1013. #ifndef TclOpenFileChannelInsertProc
  1014. #define TclOpenFileChannelInsertProc 
  1015. (tclIntStubsPtr->tclOpenFileChannelInsertProc) /* 67 */
  1016. #endif
  1017. /* Slot 68 is reserved */
  1018. #ifndef TclpAlloc
  1019. #define TclpAlloc 
  1020. (tclIntStubsPtr->tclpAlloc) /* 69 */
  1021. #endif
  1022. /* Slot 70 is reserved */
  1023. /* Slot 71 is reserved */
  1024. /* Slot 72 is reserved */
  1025. /* Slot 73 is reserved */
  1026. #ifndef TclpFree
  1027. #define TclpFree 
  1028. (tclIntStubsPtr->tclpFree) /* 74 */
  1029. #endif
  1030. #ifndef TclpGetClicks
  1031. #define TclpGetClicks 
  1032. (tclIntStubsPtr->tclpGetClicks) /* 75 */
  1033. #endif
  1034. #ifndef TclpGetSeconds
  1035. #define TclpGetSeconds 
  1036. (tclIntStubsPtr->tclpGetSeconds) /* 76 */
  1037. #endif
  1038. #ifndef TclpGetTime
  1039. #define TclpGetTime 
  1040. (tclIntStubsPtr->tclpGetTime) /* 77 */
  1041. #endif
  1042. #ifndef TclpGetTimeZone
  1043. #define TclpGetTimeZone 
  1044. (tclIntStubsPtr->tclpGetTimeZone) /* 78 */
  1045. #endif
  1046. /* Slot 79 is reserved */
  1047. /* Slot 80 is reserved */
  1048. #ifndef TclpRealloc
  1049. #define TclpRealloc 
  1050. (tclIntStubsPtr->tclpRealloc) /* 81 */
  1051. #endif
  1052. /* Slot 82 is reserved */
  1053. /* Slot 83 is reserved */
  1054. /* Slot 84 is reserved */
  1055. /* Slot 85 is reserved */
  1056. /* Slot 86 is reserved */
  1057. /* Slot 87 is reserved */
  1058. #ifndef TclPrecTraceProc
  1059. #define TclPrecTraceProc 
  1060. (tclIntStubsPtr->tclPrecTraceProc) /* 88 */
  1061. #endif
  1062. #ifndef TclPreventAliasLoop
  1063. #define TclPreventAliasLoop 
  1064. (tclIntStubsPtr->tclPreventAliasLoop) /* 89 */
  1065. #endif
  1066. /* Slot 90 is reserved */
  1067. #ifndef TclProcCleanupProc
  1068. #define TclProcCleanupProc 
  1069. (tclIntStubsPtr->tclProcCleanupProc) /* 91 */
  1070. #endif
  1071. #ifndef TclProcCompileProc
  1072. #define TclProcCompileProc 
  1073. (tclIntStubsPtr->tclProcCompileProc) /* 92 */
  1074. #endif
  1075. #ifndef TclProcDeleteProc
  1076. #define TclProcDeleteProc 
  1077. (tclIntStubsPtr->tclProcDeleteProc) /* 93 */
  1078. #endif
  1079. #ifndef TclProcInterpProc
  1080. #define TclProcInterpProc 
  1081. (tclIntStubsPtr->tclProcInterpProc) /* 94 */
  1082. #endif
  1083. /* Slot 95 is reserved */
  1084. #ifndef TclRenameCommand
  1085. #define TclRenameCommand 
  1086. (tclIntStubsPtr->tclRenameCommand) /* 96 */
  1087. #endif
  1088. #ifndef TclResetShadowedCmdRefs
  1089. #define TclResetShadowedCmdRefs 
  1090. (tclIntStubsPtr->tclResetShadowedCmdRefs) /* 97 */
  1091. #endif
  1092. #ifndef TclServiceIdle
  1093. #define TclServiceIdle 
  1094. (tclIntStubsPtr->tclServiceIdle) /* 98 */
  1095. #endif
  1096. /* Slot 99 is reserved */
  1097. /* Slot 100 is reserved */
  1098. #ifndef TclSetPreInitScript
  1099. #define TclSetPreInitScript 
  1100. (tclIntStubsPtr->tclSetPreInitScript) /* 101 */
  1101. #endif
  1102. #ifndef TclSetupEnv
  1103. #define TclSetupEnv 
  1104. (tclIntStubsPtr->tclSetupEnv) /* 102 */
  1105. #endif
  1106. #ifndef TclSockGetPort
  1107. #define TclSockGetPort 
  1108. (tclIntStubsPtr->tclSockGetPort) /* 103 */
  1109. #endif
  1110. #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
  1111. #ifndef TclSockMinimumBuffers
  1112. #define TclSockMinimumBuffers 
  1113. (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
  1114. #endif
  1115. #endif /* UNIX */
  1116. #ifdef __WIN32__
  1117. #ifndef TclSockMinimumBuffers
  1118. #define TclSockMinimumBuffers 
  1119. (tclIntStubsPtr->tclSockMinimumBuffers) /* 104 */
  1120. #endif
  1121. #endif /* __WIN32__ */
  1122. /* Slot 105 is reserved */
  1123. #ifndef TclStatDeleteProc
  1124. #define TclStatDeleteProc 
  1125. (tclIntStubsPtr->tclStatDeleteProc) /* 106 */
  1126. #endif
  1127. #ifndef TclStatInsertProc
  1128. #define TclStatInsertProc 
  1129. (tclIntStubsPtr->tclStatInsertProc) /* 107 */
  1130. #endif
  1131. #ifndef TclTeardownNamespace
  1132. #define TclTeardownNamespace 
  1133. (tclIntStubsPtr->tclTeardownNamespace) /* 108 */
  1134. #endif
  1135. #ifndef TclUpdateReturnInfo
  1136. #define TclUpdateReturnInfo 
  1137. (tclIntStubsPtr->tclUpdateReturnInfo) /* 109 */
  1138. #endif
  1139. /* Slot 110 is reserved */
  1140. #ifndef Tcl_AddInterpResolvers
  1141. #define Tcl_AddInterpResolvers 
  1142. (tclIntStubsPtr->tcl_AddInterpResolvers) /* 111 */
  1143. #endif
  1144. #ifndef Tcl_AppendExportList
  1145. #define Tcl_AppendExportList 
  1146. (tclIntStubsPtr->tcl_AppendExportList) /* 112 */
  1147. #endif
  1148. #ifndef Tcl_CreateNamespace
  1149. #define Tcl_CreateNamespace 
  1150. (tclIntStubsPtr->tcl_CreateNamespace) /* 113 */
  1151. #endif
  1152. #ifndef Tcl_DeleteNamespace
  1153. #define Tcl_DeleteNamespace 
  1154. (tclIntStubsPtr->tcl_DeleteNamespace) /* 114 */
  1155. #endif
  1156. #ifndef Tcl_Export
  1157. #define Tcl_Export 
  1158. (tclIntStubsPtr->tcl_Export) /* 115 */
  1159. #endif
  1160. #ifndef Tcl_FindCommand
  1161. #define Tcl_FindCommand 
  1162. (tclIntStubsPtr->tcl_FindCommand) /* 116 */
  1163. #endif
  1164. #ifndef Tcl_FindNamespace
  1165. #define Tcl_FindNamespace 
  1166. (tclIntStubsPtr->tcl_FindNamespace) /* 117 */
  1167. #endif
  1168. #ifndef Tcl_GetInterpResolvers
  1169. #define Tcl_GetInterpResolvers 
  1170. (tclIntStubsPtr->tcl_GetInterpResolvers) /* 118 */
  1171. #endif
  1172. #ifndef Tcl_GetNamespaceResolvers
  1173. #define Tcl_GetNamespaceResolvers 
  1174. (tclIntStubsPtr->tcl_GetNamespaceResolvers) /* 119 */
  1175. #endif
  1176. #ifndef Tcl_FindNamespaceVar
  1177. #define Tcl_FindNamespaceVar 
  1178. (tclIntStubsPtr->tcl_FindNamespaceVar) /* 120 */
  1179. #endif
  1180. #ifndef Tcl_ForgetImport
  1181. #define Tcl_ForgetImport 
  1182. (tclIntStubsPtr->tcl_ForgetImport) /* 121 */
  1183. #endif
  1184. #ifndef Tcl_GetCommandFromObj
  1185. #define Tcl_GetCommandFromObj 
  1186. (tclIntStubsPtr->tcl_GetCommandFromObj) /* 122 */
  1187. #endif
  1188. #ifndef Tcl_GetCommandFullName
  1189. #define Tcl_GetCommandFullName 
  1190. (tclIntStubsPtr->tcl_GetCommandFullName) /* 123 */
  1191. #endif
  1192. #ifndef Tcl_GetCurrentNamespace
  1193. #define Tcl_GetCurrentNamespace 
  1194. (tclIntStubsPtr->tcl_GetCurrentNamespace) /* 124 */
  1195. #endif
  1196. #ifndef Tcl_GetGlobalNamespace
  1197. #define Tcl_GetGlobalNamespace 
  1198. (tclIntStubsPtr->tcl_GetGlobalNamespace) /* 125 */
  1199. #endif
  1200. #ifndef Tcl_GetVariableFullName
  1201. #define Tcl_GetVariableFullName 
  1202. (tclIntStubsPtr->tcl_GetVariableFullName) /* 126 */
  1203. #endif
  1204. #ifndef Tcl_Import
  1205. #define Tcl_Import 
  1206. (tclIntStubsPtr->tcl_Import) /* 127 */
  1207. #endif
  1208. #ifndef Tcl_PopCallFrame
  1209. #define Tcl_PopCallFrame 
  1210. (tclIntStubsPtr->tcl_PopCallFrame) /* 128 */
  1211. #endif
  1212. #ifndef Tcl_PushCallFrame
  1213. #define Tcl_PushCallFrame 
  1214. (tclIntStubsPtr->tcl_PushCallFrame) /* 129 */
  1215. #endif
  1216. #ifndef Tcl_RemoveInterpResolvers
  1217. #define Tcl_RemoveInterpResolvers 
  1218. (tclIntStubsPtr->tcl_RemoveInterpResolvers) /* 130 */
  1219. #endif
  1220. #ifndef Tcl_SetNamespaceResolvers
  1221. #define Tcl_SetNamespaceResolvers 
  1222. (tclIntStubsPtr->tcl_SetNamespaceResolvers) /* 131 */
  1223. #endif
  1224. #ifndef TclpHasSockets
  1225. #define TclpHasSockets 
  1226. (tclIntStubsPtr->tclpHasSockets) /* 132 */
  1227. #endif
  1228. #ifndef TclpGetDate
  1229. #define TclpGetDate 
  1230. (tclIntStubsPtr->tclpGetDate) /* 133 */
  1231. #endif
  1232. #ifndef TclpStrftime
  1233. #define TclpStrftime 
  1234. (tclIntStubsPtr->tclpStrftime) /* 134 */
  1235. #endif
  1236. #ifndef TclpCheckStackSpace
  1237. #define TclpCheckStackSpace 
  1238. (tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
  1239. #endif
  1240. /* Slot 136 is reserved */
  1241. /* Slot 137 is reserved */
  1242. #ifndef TclGetEnv
  1243. #define TclGetEnv 
  1244. (tclIntStubsPtr->tclGetEnv) /* 138 */
  1245. #endif
  1246. /* Slot 139 is reserved */
  1247. #ifndef TclLooksLikeInt
  1248. #define TclLooksLikeInt 
  1249. (tclIntStubsPtr->tclLooksLikeInt) /* 140 */
  1250. #endif
  1251. #ifndef TclpGetCwd
  1252. #define TclpGetCwd 
  1253. (tclIntStubsPtr->tclpGetCwd) /* 141 */
  1254. #endif
  1255. #ifndef TclSetByteCodeFromAny
  1256. #define TclSetByteCodeFromAny 
  1257. (tclIntStubsPtr->tclSetByteCodeFromAny) /* 142 */
  1258. #endif
  1259. #ifndef TclAddLiteralObj
  1260. #define TclAddLiteralObj 
  1261. (tclIntStubsPtr->tclAddLiteralObj) /* 143 */
  1262. #endif
  1263. #ifndef TclHideLiteral
  1264. #define TclHideLiteral 
  1265. (tclIntStubsPtr->tclHideLiteral) /* 144 */
  1266. #endif
  1267. #ifndef TclGetAuxDataType
  1268. #define TclGetAuxDataType 
  1269. (tclIntStubsPtr->tclGetAuxDataType) /* 145 */
  1270. #endif
  1271. #ifndef TclHandleCreate
  1272. #define TclHandleCreate 
  1273. (tclIntStubsPtr->tclHandleCreate) /* 146 */
  1274. #endif
  1275. #ifndef TclHandleFree
  1276. #define TclHandleFree 
  1277. (tclIntStubsPtr->tclHandleFree) /* 147 */
  1278. #endif
  1279. #ifndef TclHandlePreserve
  1280. #define TclHandlePreserve 
  1281. (tclIntStubsPtr->tclHandlePreserve) /* 148 */
  1282. #endif
  1283. #ifndef TclHandleRelease
  1284. #define TclHandleRelease 
  1285. (tclIntStubsPtr->tclHandleRelease) /* 149 */
  1286. #endif
  1287. #ifndef TclRegAbout
  1288. #define TclRegAbout 
  1289. (tclIntStubsPtr->tclRegAbout) /* 150 */
  1290. #endif
  1291. #ifndef TclRegExpRangeUniChar
  1292. #define TclRegExpRangeUniChar 
  1293. (tclIntStubsPtr->tclRegExpRangeUniChar) /* 151 */
  1294. #endif
  1295. #ifndef TclSetLibraryPath
  1296. #define TclSetLibraryPath 
  1297. (tclIntStubsPtr->tclSetLibraryPath) /* 152 */
  1298. #endif
  1299. #ifndef TclGetLibraryPath
  1300. #define TclGetLibraryPath 
  1301. (tclIntStubsPtr->tclGetLibraryPath) /* 153 */
  1302. #endif
  1303. /* Slot 154 is reserved */
  1304. /* Slot 155 is reserved */
  1305. #ifndef TclRegError
  1306. #define TclRegError 
  1307. (tclIntStubsPtr->tclRegError) /* 156 */
  1308. #endif
  1309. #ifndef TclVarTraceExists
  1310. #define TclVarTraceExists 
  1311. (tclIntStubsPtr->tclVarTraceExists) /* 157 */
  1312. #endif
  1313. #ifndef TclSetStartupScriptFileName
  1314. #define TclSetStartupScriptFileName 
  1315. (tclIntStubsPtr->tclSetStartupScriptFileName) /* 158 */
  1316. #endif
  1317. #ifndef TclGetStartupScriptFileName
  1318. #define TclGetStartupScriptFileName 
  1319. (tclIntStubsPtr->tclGetStartupScriptFileName) /* 159 */
  1320. #endif
  1321. /* Slot 160 is reserved */
  1322. #ifndef TclChannelTransform
  1323. #define TclChannelTransform 
  1324. (tclIntStubsPtr->tclChannelTransform) /* 161 */
  1325. #endif
  1326. #ifndef TclChannelEventScriptInvoker
  1327. #define TclChannelEventScriptInvoker 
  1328. (tclIntStubsPtr->tclChannelEventScriptInvoker) /* 162 */
  1329. #endif
  1330. #ifndef TclGetInstructionTable
  1331. #define TclGetInstructionTable 
  1332. (tclIntStubsPtr->tclGetInstructionTable) /* 163 */
  1333. #endif
  1334. #ifndef TclExpandCodeArray
  1335. #define TclExpandCodeArray 
  1336. (tclIntStubsPtr->tclExpandCodeArray) /* 164 */
  1337. #endif
  1338. #ifndef TclpSetInitialEncodings
  1339. #define TclpSetInitialEncodings 
  1340. (tclIntStubsPtr->tclpSetInitialEncodings) /* 165 */
  1341. #endif
  1342. #ifndef TclListObjSetElement
  1343. #define TclListObjSetElement 
  1344. (tclIntStubsPtr->tclListObjSetElement) /* 166 */
  1345. #endif
  1346. #ifndef TclSetStartupScriptPath
  1347. #define TclSetStartupScriptPath 
  1348. (tclIntStubsPtr->tclSetStartupScriptPath) /* 167 */
  1349. #endif
  1350. #ifndef TclGetStartupScriptPath
  1351. #define TclGetStartupScriptPath 
  1352. (tclIntStubsPtr->tclGetStartupScriptPath) /* 168 */
  1353. #endif
  1354. #ifndef TclpUtfNcmp2
  1355. #define TclpUtfNcmp2 
  1356. (tclIntStubsPtr->tclpUtfNcmp2) /* 169 */
  1357. #endif
  1358. #ifndef TclCheckInterpTraces
  1359. #define TclCheckInterpTraces 
  1360. (tclIntStubsPtr->tclCheckInterpTraces) /* 170 */
  1361. #endif
  1362. #ifndef TclCheckExecutionTraces
  1363. #define TclCheckExecutionTraces 
  1364. (tclIntStubsPtr->tclCheckExecutionTraces) /* 171 */
  1365. #endif
  1366. #ifndef TclInThreadExit
  1367. #define TclInThreadExit 
  1368. (tclIntStubsPtr->tclInThreadExit) /* 172 */
  1369. #endif
  1370. #ifndef TclUniCharMatch
  1371. #define TclUniCharMatch 
  1372. (tclIntStubsPtr->tclUniCharMatch) /* 173 */
  1373. #endif
  1374. /* Slot 174 is reserved */
  1375. /* Slot 175 is reserved */
  1376. /* Slot 176 is reserved */
  1377. /* Slot 177 is reserved */
  1378. /* Slot 178 is reserved */
  1379. /* Slot 179 is reserved */
  1380. /* Slot 180 is reserved */
  1381. /* Slot 181 is reserved */
  1382. #ifndef TclpLocaltime
  1383. #define TclpLocaltime 
  1384. (tclIntStubsPtr->tclpLocaltime) /* 182 */
  1385. #endif
  1386. #ifndef TclpGmtime
  1387. #define TclpGmtime 
  1388. (tclIntStubsPtr->tclpGmtime) /* 183 */
  1389. #endif
  1390. /* Slot 184 is reserved */
  1391. /* Slot 185 is reserved */
  1392. /* Slot 186 is reserved */
  1393. /* Slot 187 is reserved */
  1394. /* Slot 188 is reserved */
  1395. /* Slot 189 is reserved */
  1396. /* Slot 190 is reserved */
  1397. /* Slot 191 is reserved */
  1398. /* Slot 192 is reserved */
  1399. /* Slot 193 is reserved */
  1400. /* Slot 194 is reserved */
  1401. /* Slot 195 is reserved */
  1402. /* Slot 196 is reserved */
  1403. /* Slot 197 is reserved */
  1404. /* Slot 198 is reserved */
  1405. #ifndef TclMatchIsTrivial
  1406. #define TclMatchIsTrivial 
  1407. (tclIntStubsPtr->tclMatchIsTrivial) /* 199 */
  1408. #endif
  1410. #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
  1412. /* !END!: Do not edit above this line. */
  1414. #endif /* _TCLINTDECLS */