tclIntDecls.h 55 KB

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