home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / include / itclIntDecls.h < prev    next >
Encoding:
C/C++ Source or Header  |  2001-10-22  |  40.9 KB  |  1,049 lines
  1. /*
  2.  * itclIntDecls.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 XXXX
  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: itclIntDecls.h,v 1.4 2001/09/16 15:02:41 davygrvy Exp $
  15.  */
  16.  
  17. #ifndef _ITCLINTDECLS
  18. #define _ITCLINTDECLS
  19.  
  20. /*
  21.  * WARNING: This file is automatically generated by the tools/genStubs.tcl
  22.  * script.  Any modifications to the function declarations below should be made
  23.  * in the itcl/generic/tclInt.decls script.
  24.  */
  25.  
  26. /* !BEGIN!: Do not edit below this line. */
  27.  
  28. /*
  29.  * Exported function declarations:
  30.  */
  31.  
  32. /* 0 */
  33. EXTERN(int)        Itcl_IsClassNamespace _ANSI_ARGS_((
  34.                 Tcl_Namespace * namesp));
  35. /* 1 */
  36. EXTERN(int)        Itcl_IsClass _ANSI_ARGS_((Tcl_Command cmd));
  37. /* 2 */
  38. EXTERN(ItclClass*)    Itcl_FindClass _ANSI_ARGS_((Tcl_Interp* interp, 
  39.                 char* path, int autoload));
  40. /* 3 */
  41. EXTERN(int)        Itcl_FindObject _ANSI_ARGS_((Tcl_Interp * interp, 
  42.                 char * name, ItclObject ** roPtr));
  43. /* 4 */
  44. EXTERN(int)        Itcl_IsObject _ANSI_ARGS_((Tcl_Command cmd));
  45. /* 5 */
  46. EXTERN(int)        Itcl_ObjectIsa _ANSI_ARGS_((ItclObject * contextObj, 
  47.                 ItclClass * cdefn));
  48. /* 6 */
  49. EXTERN(int)        Itcl_Protection _ANSI_ARGS_((Tcl_Interp * interp, 
  50.                 int newLevel));
  51. /* 7 */
  52. EXTERN(char*)        Itcl_ProtectionStr _ANSI_ARGS_((int pLevel));
  53. /* 8 */
  54. EXTERN(int)        Itcl_CanAccess _ANSI_ARGS_((ItclMember* memberPtr, 
  55.                 Tcl_Namespace* fromNsPtr));
  56. /* 9 */
  57. EXTERN(int)        Itcl_CanAccessFunc _ANSI_ARGS_((
  58.                 ItclMemberFunc* mfunc, 
  59.                 Tcl_Namespace* fromNsPtr));
  60. /* 10 */
  61. EXTERN(Tcl_Namespace*)    Itcl_GetTrueNamespace _ANSI_ARGS_((
  62.                 Tcl_Interp * interp, ItclObjectInfo * info));
  63. /* 11 */
  64. EXTERN(void)        Itcl_ParseNamespPath _ANSI_ARGS_((char * name, 
  65.                 Tcl_DString * buffer, char ** head, 
  66.                 char ** tail));
  67. /* 12 */
  68. EXTERN(int)        Itcl_DecodeScopedCommand _ANSI_ARGS_((
  69.                 Tcl_Interp * interp, char * name, 
  70.                 Tcl_Namespace ** rNsPtr, char ** rCmdPtr));
  71. /* 13 */
  72. EXTERN(int)        Itcl_EvalArgs _ANSI_ARGS_((Tcl_Interp * interp, 
  73.                 int objc, Tcl_Obj *CONST objv[]));
  74. /* 14 */
  75. EXTERN(Tcl_Obj*)    Itcl_CreateArgs _ANSI_ARGS_((Tcl_Interp * interp, 
  76.                 char * string, int objc, 
  77.                 Tcl_Obj *CONST objv[]));
  78. /* 15 */
  79. EXTERN(int)        Itcl_PushContext _ANSI_ARGS_((Tcl_Interp * interp, 
  80.                 ItclMember * member, 
  81.                 ItclClass * contextClass, 
  82.                 ItclObject * contextObj, 
  83.                 ItclContext * contextPtr));
  84. /* 16 */
  85. EXTERN(void)        Itcl_PopContext _ANSI_ARGS_((Tcl_Interp * interp, 
  86.                 ItclContext * contextPtr));
  87. /* 17 */
  88. EXTERN(int)        Itcl_GetContext _ANSI_ARGS_((Tcl_Interp * interp, 
  89.                 ItclClass ** cdefnPtr, 
  90.                 ItclObject ** odefnPtr));
  91. /* 18 */
  92. EXTERN(void)        Itcl_InitHierIter _ANSI_ARGS_((ItclHierIter * iter, 
  93.                 ItclClass * cdefn));
  94. /* 19 */
  95. EXTERN(void)        Itcl_DeleteHierIter _ANSI_ARGS_((ItclHierIter * iter));
  96. /* 20 */
  97. EXTERN(ItclClass*)    Itcl_AdvanceHierIter _ANSI_ARGS_((
  98.                 ItclHierIter * iter));
  99. /* 21 */
  100. EXTERN(int)        Itcl_FindClassesCmd _ANSI_ARGS_((
  101.                 ClientData clientData, Tcl_Interp * interp, 
  102.                 int objc, Tcl_Obj *CONST objv[]));
  103. /* 22 */
  104. EXTERN(int)        Itcl_FindObjectsCmd _ANSI_ARGS_((
  105.                 ClientData clientData, Tcl_Interp * interp, 
  106.                 int objc, Tcl_Obj *CONST objv[]));
  107. /* 23 */
  108. EXTERN(int)        Itcl_ProtectionCmd _ANSI_ARGS_((
  109.                 ClientData clientData, Tcl_Interp * interp, 
  110.                 int objc, Tcl_Obj *CONST objv[]));
  111. /* 24 */
  112. EXTERN(int)        Itcl_DelClassCmd _ANSI_ARGS_((ClientData clientData, 
  113.                 Tcl_Interp * interp, int objc, 
  114.                 Tcl_Obj *CONST objv[]));
  115. /* 25 */
  116. EXTERN(int)        Itcl_DelObjectCmd _ANSI_ARGS_((ClientData clientData, 
  117.                 Tcl_Interp * interp, int objc, 
  118.                 Tcl_Obj *CONST objv[]));
  119. /* 26 */
  120. EXTERN(int)        Itcl_ScopeCmd _ANSI_ARGS_((ClientData clientData, 
  121.                 Tcl_Interp * interp, int objc, 
  122.                 Tcl_Obj *CONST objv[]));
  123. /* 27 */
  124. EXTERN(int)        Itcl_CodeCmd _ANSI_ARGS_((ClientData clientData, 
  125.                 Tcl_Interp * interp, int objc, 
  126.                 Tcl_Obj *CONST objv[]));
  127. /* 28 */
  128. EXTERN(int)        Itcl_StubCreateCmd _ANSI_ARGS_((
  129.                 ClientData clientData, Tcl_Interp * interp, 
  130.                 int objc, Tcl_Obj *CONST objv[]));
  131. /* 29 */
  132. EXTERN(int)        Itcl_StubExistsCmd _ANSI_ARGS_((
  133.                 ClientData clientData, Tcl_Interp * interp, 
  134.                 int objc, Tcl_Obj *CONST objv[]));
  135. /* 30 */
  136. EXTERN(int)        Itcl_IsStub _ANSI_ARGS_((Tcl_Command cmd));
  137. /* 31 */
  138. EXTERN(int)        Itcl_CreateClass _ANSI_ARGS_((Tcl_Interp* interp, 
  139.                 char* path, ItclObjectInfo * info, 
  140.                 ItclClass ** rPtr));
  141. /* 32 */
  142. EXTERN(int)        Itcl_DeleteClass _ANSI_ARGS_((Tcl_Interp * interp, 
  143.                 ItclClass * cdefnPtr));
  144. /* 33 */
  145. EXTERN(Tcl_Namespace*)    Itcl_FindClassNamespace _ANSI_ARGS_((
  146.                 Tcl_Interp* interp, char* path));
  147. /* 34 */
  148. EXTERN(int)        Itcl_HandleClass _ANSI_ARGS_((ClientData clientData, 
  149.                 Tcl_Interp * interp, int objc, 
  150.                 Tcl_Obj *CONST objv[]));
  151. /* 35 */
  152. EXTERN(int)        Itcl_ClassCmdResolver _ANSI_ARGS_((
  153.                 Tcl_Interp * interp, CONST char* name, 
  154.                 Tcl_Namespace * context, int flags, 
  155.                 Tcl_Command * rPtr));
  156. /* 36 */
  157. EXTERN(int)        Itcl_ClassVarResolver _ANSI_ARGS_((
  158.                 Tcl_Interp * interp, char* name, 
  159.                 Tcl_Namespace * context, int flags, 
  160.                 Tcl_Var * rPtr));
  161. /* 37 */
  162. EXTERN(int)        Itcl_ClassCompiledVarResolver _ANSI_ARGS_((
  163.                 Tcl_Interp * interp, char* name, int length, 
  164.                 Tcl_Namespace * context, 
  165.                 Tcl_ResolvedVarInfo ** rPtr));
  166. /* 38 */
  167. EXTERN(void)        Itcl_BuildVirtualTables _ANSI_ARGS_((
  168.                 ItclClass* cdefnPtr));
  169. /* 39 */
  170. EXTERN(int)        Itcl_CreateVarDefn _ANSI_ARGS_((Tcl_Interp * interp, 
  171.                 ItclClass* cdefn, char* name, char* init, 
  172.                 char* config, ItclVarDefn** vdefnPtr));
  173. /* 40 */
  174. EXTERN(void)        Itcl_DeleteVarDefn _ANSI_ARGS_((ItclVarDefn * vdefn));
  175. /* 41 */
  176. EXTERN(char*)        Itcl_GetCommonVar _ANSI_ARGS_((Tcl_Interp * interp, 
  177.                 char * name, ItclClass * contextClass));
  178. /* 42 */
  179. EXTERN(ItclMember*)    Itcl_CreateMember _ANSI_ARGS_((Tcl_Interp* interp, 
  180.                 ItclClass * cdefn, char* name));
  181. /* 43 */
  182. EXTERN(void)        Itcl_DeleteMember _ANSI_ARGS_((ItclMember * memPtr));
  183. /* 44 */
  184. EXTERN(int)        Itcl_CreateObject _ANSI_ARGS_((Tcl_Interp * interp, 
  185.                 char* name, ItclClass * cdefn, int objc, 
  186.                 Tcl_Obj *CONST objv[], ItclObject ** roPtr));
  187. /* 45 */
  188. EXTERN(int)        Itcl_DeleteObject _ANSI_ARGS_((Tcl_Interp * interp, 
  189.                 ItclObject * contextObj));
  190. /* 46 */
  191. EXTERN(int)        Itcl_DestructObject _ANSI_ARGS_((Tcl_Interp * interp, 
  192.                 ItclObject * contextObj, int flags));
  193. /* 47 */
  194. EXTERN(int)        Itcl_HandleInstance _ANSI_ARGS_((
  195.                 ClientData clientData, Tcl_Interp * interp, 
  196.                 int objc, Tcl_Obj *CONST objv[]));
  197. /* 48 */
  198. EXTERN(char*)        Itcl_GetInstanceVar _ANSI_ARGS_((Tcl_Interp * interp, 
  199.                 char * name, ItclObject * contextObj, 
  200.                 ItclClass * contextClass));
  201. /* 49 */
  202. EXTERN(int)        Itcl_ScopedVarResolver _ANSI_ARGS_((
  203.                 Tcl_Interp * interp, char * name, 
  204.                 Tcl_Namespace * contextNs, int flags, 
  205.                 Tcl_Var * rPtr));
  206. /* 50 */
  207. EXTERN(int)        Itcl_BodyCmd _ANSI_ARGS_((ClientData dummy, 
  208.                 Tcl_Interp * interp, int objc, 
  209.                 Tcl_Obj *CONST objv[]));
  210. /* 51 */
  211. EXTERN(int)        Itcl_ConfigBodyCmd _ANSI_ARGS_((ClientData dummy, 
  212.                 Tcl_Interp * interp, int objc, 
  213.                 Tcl_Obj *CONST objv[]));
  214. /* 52 */
  215. EXTERN(int)        Itcl_CreateMethod _ANSI_ARGS_((Tcl_Interp* interp, 
  216.                 ItclClass * cdefn, char* name, char* arglist, 
  217.                 char* body));
  218. /* 53 */
  219. EXTERN(int)        Itcl_CreateProc _ANSI_ARGS_((Tcl_Interp* interp, 
  220.                 ItclClass * cdefn, char* name, char* arglist, 
  221.                 char* body));
  222. /* 54 */
  223. EXTERN(int)        Itcl_CreateMemberFunc _ANSI_ARGS_((
  224.                 Tcl_Interp* interp, ItclClass * cdefn, 
  225.                 char* name, char* arglist, char* body, 
  226.                 ItclMemberFunc** mfuncPtr));
  227. /* 55 */
  228. EXTERN(int)        Itcl_ChangeMemberFunc _ANSI_ARGS_((
  229.                 Tcl_Interp* interp, ItclMemberFunc* mfunc, 
  230.                 char* arglist, char* body));
  231. /* 56 */
  232. EXTERN(void)        Itcl_DeleteMemberFunc _ANSI_ARGS_((char* cdata));
  233. /* 57 */
  234. EXTERN(int)        Itcl_CreateMemberCode _ANSI_ARGS_((
  235.                 Tcl_Interp* interp, ItclClass * cdefn, 
  236.                 char* arglist, char* body, 
  237.                 ItclMemberCode** mcodePtr));
  238. /* 58 */
  239. EXTERN(void)        Itcl_DeleteMemberCode _ANSI_ARGS_((char* cdata));
  240. /* 59 */
  241. EXTERN(int)        Itcl_GetMemberCode _ANSI_ARGS_((Tcl_Interp* interp, 
  242.                 ItclMember* member));
  243. /* Slot 60 is reserved */
  244. /* 61 */
  245. EXTERN(int)        Itcl_EvalMemberCode _ANSI_ARGS_((Tcl_Interp * interp, 
  246.                 ItclMemberFunc * mfunc, ItclMember * member, 
  247.                 ItclObject * contextObj, int objc, 
  248.                 Tcl_Obj *CONST objv[]));
  249. /* 62 */
  250. EXTERN(int)        Itcl_CreateArgList _ANSI_ARGS_((Tcl_Interp* interp, 
  251.                 char* decl, int* argcPtr, 
  252.                 CompiledLocal** argPtr));
  253. /* 63 */
  254. EXTERN(CompiledLocal*)    Itcl_CreateArg _ANSI_ARGS_((char* name, char* init));
  255. /* 64 */
  256. EXTERN(void)        Itcl_DeleteArgList _ANSI_ARGS_((
  257.                 CompiledLocal * arglist));
  258. /* 65 */
  259. EXTERN(Tcl_Obj*)    Itcl_ArgList _ANSI_ARGS_((int argc, 
  260.                 CompiledLocal* arglist));
  261. /* 66 */
  262. EXTERN(int)        Itcl_EquivArgLists _ANSI_ARGS_((CompiledLocal* arg1, 
  263.                 int arg1c, CompiledLocal* arg2, int arg2c));
  264. /* 67 */
  265. EXTERN(void)        Itcl_GetMemberFuncUsage _ANSI_ARGS_((
  266.                 ItclMemberFunc * mfunc, 
  267.                 ItclObject * contextObj, Tcl_Obj * objPtr));
  268. /* 68 */
  269. EXTERN(int)        Itcl_ExecMethod _ANSI_ARGS_((ClientData clientData, 
  270.                 Tcl_Interp * interp, int objc, 
  271.                 Tcl_Obj *CONST objv[]));
  272. /* 69 */
  273. EXTERN(int)        Itcl_ExecProc _ANSI_ARGS_((ClientData clientData, 
  274.                 Tcl_Interp * interp, int objc, 
  275.                 Tcl_Obj *CONST objv[]));
  276. /* 70 */
  277. EXTERN(int)        Itcl_AssignArgs _ANSI_ARGS_((Tcl_Interp * interp, 
  278.                 int objc, Tcl_Obj *CONST objv[], 
  279.                 ItclMemberFunc * mfunc));
  280. /* 71 */
  281. EXTERN(int)        Itcl_ConstructBase _ANSI_ARGS_((Tcl_Interp * interp, 
  282.                 ItclObject * contextObj, 
  283.                 ItclClass * contextClass));
  284. /* 72 */
  285. EXTERN(int)        Itcl_InvokeMethodIfExists _ANSI_ARGS_((
  286.                 Tcl_Interp * interp, char * name, 
  287.                 ItclClass * contextClass, 
  288.                 ItclObject * contextObj, int objc, 
  289.                 Tcl_Obj *CONST objv[]));
  290. /* Slot 73 is reserved */
  291. /* 74 */
  292. EXTERN(int)        Itcl_ReportFuncErrors _ANSI_ARGS_((
  293.                 Tcl_Interp* interp, ItclMemberFunc * mfunc, 
  294.                 ItclObject * contextObj, int result));
  295. /* 75 */
  296. EXTERN(int)        Itcl_ParseInit _ANSI_ARGS_((Tcl_Interp * interp, 
  297.                 ItclObjectInfo * info));
  298. /* 76 */
  299. EXTERN(int)        Itcl_ClassCmd _ANSI_ARGS_((ClientData clientData, 
  300.                 Tcl_Interp * interp, int objc, 
  301.                 Tcl_Obj *CONST objv[]));
  302. /* 77 */
  303. EXTERN(int)        Itcl_ClassInheritCmd _ANSI_ARGS_((
  304.                 ClientData clientData, Tcl_Interp * interp, 
  305.                 int objc, Tcl_Obj *CONST objv[]));
  306. /* 78 */
  307. EXTERN(int)        Itcl_ClassProtectionCmd _ANSI_ARGS_((
  308.                 ClientData clientData, Tcl_Interp * interp, 
  309.                 int objc, Tcl_Obj *CONST objv[]));
  310. /* 79 */
  311. EXTERN(int)        Itcl_ClassConstructorCmd _ANSI_ARGS_((
  312.                 ClientData clientData, Tcl_Interp * interp, 
  313.                 int objc, Tcl_Obj *CONST objv[]));
  314. /* 80 */
  315. EXTERN(int)        Itcl_ClassDestructorCmd _ANSI_ARGS_((
  316.                 ClientData clientData, Tcl_Interp * interp, 
  317.                 int objc, Tcl_Obj *CONST objv[]));
  318. /* 81 */
  319. EXTERN(int)        Itcl_ClassMethodCmd _ANSI_ARGS_((
  320.                 ClientData clientData, Tcl_Interp * interp, 
  321.                 int objc, Tcl_Obj *CONST objv[]));
  322. /* 82 */
  323. EXTERN(int)        Itcl_ClassProcCmd _ANSI_ARGS_((ClientData clientData, 
  324.                 Tcl_Interp * interp, int objc, 
  325.                 Tcl_Obj *CONST objv[]));
  326. /* 83 */
  327. EXTERN(int)        Itcl_ClassVariableCmd _ANSI_ARGS_((
  328.                 ClientData clientData, Tcl_Interp * interp, 
  329.                 int objc, Tcl_Obj *CONST objv[]));
  330. /* 84 */
  331. EXTERN(int)        Itcl_ClassCommonCmd _ANSI_ARGS_((
  332.                 ClientData clientData, Tcl_Interp * interp, 
  333.                 int objc, Tcl_Obj *CONST objv[]));
  334. /* 85 */
  335. EXTERN(int)        Itcl_ParseVarResolver _ANSI_ARGS_((
  336.                 Tcl_Interp * interp, char* name, 
  337.                 Tcl_Namespace * contextNs, int flags, 
  338.                 Tcl_Var* rPtr));
  339. /* 86 */
  340. EXTERN(int)        Itcl_BiInit _ANSI_ARGS_((Tcl_Interp * interp));
  341. /* 87 */
  342. EXTERN(int)        Itcl_InstallBiMethods _ANSI_ARGS_((
  343.                 Tcl_Interp * interp, ItclClass * cdefn));
  344. /* 88 */
  345. EXTERN(int)        Itcl_BiIsaCmd _ANSI_ARGS_((ClientData clientData, 
  346.                 Tcl_Interp * interp, int objc, 
  347.                 Tcl_Obj *CONST objv[]));
  348. /* 89 */
  349. EXTERN(int)        Itcl_BiConfigureCmd _ANSI_ARGS_((
  350.                 ClientData clientData, Tcl_Interp * interp, 
  351.                 int objc, Tcl_Obj *CONST objv[]));
  352. /* 90 */
  353. EXTERN(int)        Itcl_BiCgetCmd _ANSI_ARGS_((ClientData clientData, 
  354.                 Tcl_Interp * interp, int objc, 
  355.                 Tcl_Obj *CONST objv[]));
  356. /* 91 */
  357. EXTERN(int)        Itcl_BiChainCmd _ANSI_ARGS_((ClientData dummy, 
  358.                 Tcl_Interp * interp, int objc, 
  359.                 Tcl_Obj *CONST objv[]));
  360. /* 92 */
  361. EXTERN(int)        Itcl_BiInfoClassCmd _ANSI_ARGS_((ClientData dummy, 
  362.                 Tcl_Interp * interp, int objc, 
  363.                 Tcl_Obj *CONST objv[]));
  364. /* 93 */
  365. EXTERN(int)        Itcl_BiInfoInheritCmd _ANSI_ARGS_((ClientData dummy, 
  366.                 Tcl_Interp * interp, int objc, 
  367.                 Tcl_Obj *CONST objv[]));
  368. /* 94 */
  369. EXTERN(int)        Itcl_BiInfoHeritageCmd _ANSI_ARGS_((ClientData dummy, 
  370.                 Tcl_Interp * interp, int objc, 
  371.                 Tcl_Obj *CONST objv[]));
  372. /* 95 */
  373. EXTERN(int)        Itcl_BiInfoFunctionCmd _ANSI_ARGS_((ClientData dummy, 
  374.                 Tcl_Interp * interp, int objc, 
  375.                 Tcl_Obj *CONST objv[]));
  376. /* 96 */
  377. EXTERN(int)        Itcl_BiInfoVariableCmd _ANSI_ARGS_((ClientData dummy, 
  378.                 Tcl_Interp * interp, int objc, 
  379.                 Tcl_Obj *CONST objv[]));
  380. /* 97 */
  381. EXTERN(int)        Itcl_BiInfoBodyCmd _ANSI_ARGS_((ClientData dummy, 
  382.                 Tcl_Interp * interp, int objc, 
  383.                 Tcl_Obj *CONST objv[]));
  384. /* 98 */
  385. EXTERN(int)        Itcl_BiInfoArgsCmd _ANSI_ARGS_((ClientData dummy, 
  386.                 Tcl_Interp * interp, int objc, 
  387.                 Tcl_Obj *CONST objv[]));
  388. /* 99 */
  389. EXTERN(int)        Itcl_DefaultInfoCmd _ANSI_ARGS_((ClientData dummy, 
  390.                 Tcl_Interp * interp, int objc, 
  391.                 Tcl_Obj *CONST objv[]));
  392. /* 100 */
  393. EXTERN(int)        Itcl_EnsembleInit _ANSI_ARGS_((Tcl_Interp * interp));
  394. /* 101 */
  395. EXTERN(int)        Itcl_CreateEnsemble _ANSI_ARGS_((Tcl_Interp * interp, 
  396.                 char* ensName));
  397. /* 102 */
  398. EXTERN(int)        Itcl_AddEnsemblePart _ANSI_ARGS_((
  399.                 Tcl_Interp * interp, char* ensName, 
  400.                 char* partName, char* usageInfo, 
  401.                 Tcl_ObjCmdProc * objProc, 
  402.                 ClientData clientData, 
  403.                 Tcl_CmdDeleteProc * deleteProc));
  404. /* 103 */
  405. EXTERN(int)        Itcl_GetEnsemblePart _ANSI_ARGS_((
  406.                 Tcl_Interp * interp, char * ensName, 
  407.                 char * partName, Tcl_CmdInfo * infoPtr));
  408. /* 104 */
  409. EXTERN(int)        Itcl_IsEnsemble _ANSI_ARGS_((Tcl_CmdInfo* infoPtr));
  410. /* 105 */
  411. EXTERN(int)        Itcl_GetEnsembleUsage _ANSI_ARGS_((
  412.                 Tcl_Interp * interp, char * ensName, 
  413.                 Tcl_Obj * objPtr));
  414. /* 106 */
  415. EXTERN(int)        Itcl_GetEnsembleUsageForObj _ANSI_ARGS_((
  416.                 Tcl_Interp * interp, Tcl_Obj * ensObjPtr, 
  417.                 Tcl_Obj * objPtr));
  418. /* 107 */
  419. EXTERN(int)        Itcl_EnsembleCmd _ANSI_ARGS_((ClientData clientData, 
  420.                 Tcl_Interp * interp, int objc, 
  421.                 Tcl_Obj *CONST objv[]));
  422. /* 108 */
  423. EXTERN(int)        Itcl_EnsPartCmd _ANSI_ARGS_((ClientData clientData, 
  424.                 Tcl_Interp * interp, int objc, 
  425.                 Tcl_Obj *CONST objv[]));
  426. /* 109 */
  427. EXTERN(int)        Itcl_EnsembleErrorCmd _ANSI_ARGS_((
  428.                 ClientData clientData, Tcl_Interp * interp, 
  429.                 int objc, Tcl_Obj *CONST objv[]));
  430. /* 110 */
  431. EXTERN(int)        Itcl_OldInit _ANSI_ARGS_((Tcl_Interp* interp, 
  432.                 ItclObjectInfo* info));
  433. /* 111 */
  434. EXTERN(int)        Itcl_InstallOldBiMethods _ANSI_ARGS_((
  435.                 Tcl_Interp * interp, ItclClass * cdefn));
  436. /* 112 */
  437. EXTERN(Tcl_CallFrame*)    _Tcl_GetCallFrame _ANSI_ARGS_((Tcl_Interp * interp, 
  438.                 int level));
  439. /* 113 */
  440. EXTERN(Tcl_CallFrame*)    _Tcl_ActivateCallFrame _ANSI_ARGS_((
  441.                 Tcl_Interp * interp, 
  442.                 Tcl_CallFrame * framePtr));
  443. /* 114 */
  444. EXTERN(Var*)        _TclNewVar _ANSI_ARGS_((void));
  445. /* 115 */
  446. EXTERN(void)        Itcl_Assert _ANSI_ARGS_((char * testExpr, 
  447.                 char * fileName, int lineNum));
  448.  
  449. typedef struct ItclIntStubs {
  450.     int magic;
  451.     struct ItclIntStubHooks *hooks;
  452.  
  453.     int (*itcl_IsClassNamespace) _ANSI_ARGS_((Tcl_Namespace * namesp)); /* 0 */
  454.     int (*itcl_IsClass) _ANSI_ARGS_((Tcl_Command cmd)); /* 1 */
  455.     ItclClass* (*itcl_FindClass) _ANSI_ARGS_((Tcl_Interp* interp, char* path, int autoload)); /* 2 */
  456.     int (*itcl_FindObject) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ItclObject ** roPtr)); /* 3 */
  457.     int (*itcl_IsObject) _ANSI_ARGS_((Tcl_Command cmd)); /* 4 */
  458.     int (*itcl_ObjectIsa) _ANSI_ARGS_((ItclObject * contextObj, ItclClass * cdefn)); /* 5 */
  459.     int (*itcl_Protection) _ANSI_ARGS_((Tcl_Interp * interp, int newLevel)); /* 6 */
  460.     char* (*itcl_ProtectionStr) _ANSI_ARGS_((int pLevel)); /* 7 */
  461.     int (*itcl_CanAccess) _ANSI_ARGS_((ItclMember* memberPtr, Tcl_Namespace* fromNsPtr)); /* 8 */
  462.     int (*itcl_CanAccessFunc) _ANSI_ARGS_((ItclMemberFunc* mfunc, Tcl_Namespace* fromNsPtr)); /* 9 */
  463.     Tcl_Namespace* (*itcl_GetTrueNamespace) _ANSI_ARGS_((Tcl_Interp * interp, ItclObjectInfo * info)); /* 10 */
  464.     void (*itcl_ParseNamespPath) _ANSI_ARGS_((char * name, Tcl_DString * buffer, char ** head, char ** tail)); /* 11 */
  465.     int (*itcl_DecodeScopedCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace ** rNsPtr, char ** rCmdPtr)); /* 12 */
  466.     int (*itcl_EvalArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 13 */
  467.     Tcl_Obj* (*itcl_CreateArgs) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int objc, Tcl_Obj *CONST objv[])); /* 14 */
  468.     int (*itcl_PushContext) _ANSI_ARGS_((Tcl_Interp * interp, ItclMember * member, ItclClass * contextClass, ItclObject * contextObj, ItclContext * contextPtr)); /* 15 */
  469.     void (*itcl_PopContext) _ANSI_ARGS_((Tcl_Interp * interp, ItclContext * contextPtr)); /* 16 */
  470.     int (*itcl_GetContext) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass ** cdefnPtr, ItclObject ** odefnPtr)); /* 17 */
  471.     void (*itcl_InitHierIter) _ANSI_ARGS_((ItclHierIter * iter, ItclClass * cdefn)); /* 18 */
  472.     void (*itcl_DeleteHierIter) _ANSI_ARGS_((ItclHierIter * iter)); /* 19 */
  473.     ItclClass* (*itcl_AdvanceHierIter) _ANSI_ARGS_((ItclHierIter * iter)); /* 20 */
  474.     int (*itcl_FindClassesCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 21 */
  475.     int (*itcl_FindObjectsCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 22 */
  476.     int (*itcl_ProtectionCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 23 */
  477.     int (*itcl_DelClassCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 24 */
  478.     int (*itcl_DelObjectCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 25 */
  479.     int (*itcl_ScopeCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 26 */
  480.     int (*itcl_CodeCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 27 */
  481.     int (*itcl_StubCreateCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 28 */
  482.     int (*itcl_StubExistsCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 29 */
  483.     int (*itcl_IsStub) _ANSI_ARGS_((Tcl_Command cmd)); /* 30 */
  484.     int (*itcl_CreateClass) _ANSI_ARGS_((Tcl_Interp* interp, char* path, ItclObjectInfo * info, ItclClass ** rPtr)); /* 31 */
  485.     int (*itcl_DeleteClass) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass * cdefnPtr)); /* 32 */
  486.     Tcl_Namespace* (*itcl_FindClassNamespace) _ANSI_ARGS_((Tcl_Interp* interp, char* path)); /* 33 */
  487.     int (*itcl_HandleClass) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 34 */
  488.     int (*itcl_ClassCmdResolver) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* name, Tcl_Namespace * context, int flags, Tcl_Command * rPtr)); /* 35 */
  489.     int (*itcl_ClassVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, char* name, Tcl_Namespace * context, int flags, Tcl_Var * rPtr)); /* 36 */
  490.     int (*itcl_ClassCompiledVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, char* name, int length, Tcl_Namespace * context, Tcl_ResolvedVarInfo ** rPtr)); /* 37 */
  491.     void (*itcl_BuildVirtualTables) _ANSI_ARGS_((ItclClass* cdefnPtr)); /* 38 */
  492.     int (*itcl_CreateVarDefn) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass* cdefn, char* name, char* init, char* config, ItclVarDefn** vdefnPtr)); /* 39 */
  493.     void (*itcl_DeleteVarDefn) _ANSI_ARGS_((ItclVarDefn * vdefn)); /* 40 */
  494.     char* (*itcl_GetCommonVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ItclClass * contextClass)); /* 41 */
  495.     ItclMember* (*itcl_CreateMember) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, char* name)); /* 42 */
  496.     void (*itcl_DeleteMember) _ANSI_ARGS_((ItclMember * memPtr)); /* 43 */
  497.     int (*itcl_CreateObject) _ANSI_ARGS_((Tcl_Interp * interp, char* name, ItclClass * cdefn, int objc, Tcl_Obj *CONST objv[], ItclObject ** roPtr)); /* 44 */
  498.     int (*itcl_DeleteObject) _ANSI_ARGS_((Tcl_Interp * interp, ItclObject * contextObj)); /* 45 */
  499.     int (*itcl_DestructObject) _ANSI_ARGS_((Tcl_Interp * interp, ItclObject * contextObj, int flags)); /* 46 */
  500.     int (*itcl_HandleInstance) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 47 */
  501.     char* (*itcl_GetInstanceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ItclObject * contextObj, ItclClass * contextClass)); /* 48 */
  502.     int (*itcl_ScopedVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNs, int flags, Tcl_Var * rPtr)); /* 49 */
  503.     int (*itcl_BodyCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 50 */
  504.     int (*itcl_ConfigBodyCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 51 */
  505.     int (*itcl_CreateMethod) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body)); /* 52 */
  506.     int (*itcl_CreateProc) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body)); /* 53 */
  507.     int (*itcl_CreateMemberFunc) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, char* name, char* arglist, char* body, ItclMemberFunc** mfuncPtr)); /* 54 */
  508.     int (*itcl_ChangeMemberFunc) _ANSI_ARGS_((Tcl_Interp* interp, ItclMemberFunc* mfunc, char* arglist, char* body)); /* 55 */
  509.     void (*itcl_DeleteMemberFunc) _ANSI_ARGS_((char* cdata)); /* 56 */
  510.     int (*itcl_CreateMemberCode) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, char* arglist, char* body, ItclMemberCode** mcodePtr)); /* 57 */
  511.     void (*itcl_DeleteMemberCode) _ANSI_ARGS_((char* cdata)); /* 58 */
  512.     int (*itcl_GetMemberCode) _ANSI_ARGS_((Tcl_Interp* interp, ItclMember* member)); /* 59 */
  513.     void *reserved60;
  514.     int (*itcl_EvalMemberCode) _ANSI_ARGS_((Tcl_Interp * interp, ItclMemberFunc * mfunc, ItclMember * member, ItclObject * contextObj, int objc, Tcl_Obj *CONST objv[])); /* 61 */
  515.     int (*itcl_CreateArgList) _ANSI_ARGS_((Tcl_Interp* interp, char* decl, int* argcPtr, CompiledLocal** argPtr)); /* 62 */
  516.     CompiledLocal* (*itcl_CreateArg) _ANSI_ARGS_((char* name, char* init)); /* 63 */
  517.     void (*itcl_DeleteArgList) _ANSI_ARGS_((CompiledLocal * arglist)); /* 64 */
  518.     Tcl_Obj* (*itcl_ArgList) _ANSI_ARGS_((int argc, CompiledLocal* arglist)); /* 65 */
  519.     int (*itcl_EquivArgLists) _ANSI_ARGS_((CompiledLocal* arg1, int arg1c, CompiledLocal* arg2, int arg2c)); /* 66 */
  520.     void (*itcl_GetMemberFuncUsage) _ANSI_ARGS_((ItclMemberFunc * mfunc, ItclObject * contextObj, Tcl_Obj * objPtr)); /* 67 */
  521.     int (*itcl_ExecMethod) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 68 */
  522.     int (*itcl_ExecProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 69 */
  523.     int (*itcl_AssignArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], ItclMemberFunc * mfunc)); /* 70 */
  524.     int (*itcl_ConstructBase) _ANSI_ARGS_((Tcl_Interp * interp, ItclObject * contextObj, ItclClass * contextClass)); /* 71 */
  525.     int (*itcl_InvokeMethodIfExists) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ItclClass * contextClass, ItclObject * contextObj, int objc, Tcl_Obj *CONST objv[])); /* 72 */
  526.     void *reserved73;
  527.     int (*itcl_ReportFuncErrors) _ANSI_ARGS_((Tcl_Interp* interp, ItclMemberFunc * mfunc, ItclObject * contextObj, int result)); /* 74 */
  528.     int (*itcl_ParseInit) _ANSI_ARGS_((Tcl_Interp * interp, ItclObjectInfo * info)); /* 75 */
  529.     int (*itcl_ClassCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 76 */
  530.     int (*itcl_ClassInheritCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 77 */
  531.     int (*itcl_ClassProtectionCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 78 */
  532.     int (*itcl_ClassConstructorCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 79 */
  533.     int (*itcl_ClassDestructorCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 80 */
  534.     int (*itcl_ClassMethodCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 81 */
  535.     int (*itcl_ClassProcCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 82 */
  536.     int (*itcl_ClassVariableCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 83 */
  537.     int (*itcl_ClassCommonCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 84 */
  538.     int (*itcl_ParseVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, char* name, Tcl_Namespace * contextNs, int flags, Tcl_Var* rPtr)); /* 85 */
  539.     int (*itcl_BiInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 86 */
  540.     int (*itcl_InstallBiMethods) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass * cdefn)); /* 87 */
  541.     int (*itcl_BiIsaCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 88 */
  542.     int (*itcl_BiConfigureCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 89 */
  543.     int (*itcl_BiCgetCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 90 */
  544.     int (*itcl_BiChainCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 91 */
  545.     int (*itcl_BiInfoClassCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 92 */
  546.     int (*itcl_BiInfoInheritCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 93 */
  547.     int (*itcl_BiInfoHeritageCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 94 */
  548.     int (*itcl_BiInfoFunctionCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 95 */
  549.     int (*itcl_BiInfoVariableCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 96 */
  550.     int (*itcl_BiInfoBodyCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 97 */
  551.     int (*itcl_BiInfoArgsCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 98 */
  552.     int (*itcl_DefaultInfoCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 99 */
  553.     int (*itcl_EnsembleInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 100 */
  554.     int (*itcl_CreateEnsemble) _ANSI_ARGS_((Tcl_Interp * interp, char* ensName)); /* 101 */
  555.     int (*itcl_AddEnsemblePart) _ANSI_ARGS_((Tcl_Interp * interp, char* ensName, char* partName, char* usageInfo, Tcl_ObjCmdProc * objProc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc)); /* 102 */
  556.     int (*itcl_GetEnsemblePart) _ANSI_ARGS_((Tcl_Interp * interp, char * ensName, char * partName, Tcl_CmdInfo * infoPtr)); /* 103 */
  557.     int (*itcl_IsEnsemble) _ANSI_ARGS_((Tcl_CmdInfo* infoPtr)); /* 104 */
  558.     int (*itcl_GetEnsembleUsage) _ANSI_ARGS_((Tcl_Interp * interp, char * ensName, Tcl_Obj * objPtr)); /* 105 */
  559.     int (*itcl_GetEnsembleUsageForObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ensObjPtr, Tcl_Obj * objPtr)); /* 106 */
  560.     int (*itcl_EnsembleCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 107 */
  561.     int (*itcl_EnsPartCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 108 */
  562.     int (*itcl_EnsembleErrorCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 109 */
  563.     int (*itcl_OldInit) _ANSI_ARGS_((Tcl_Interp* interp, ItclObjectInfo* info)); /* 110 */
  564.     int (*itcl_InstallOldBiMethods) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass * cdefn)); /* 111 */
  565.     Tcl_CallFrame* (*_Tcl_GetCallFrame) _ANSI_ARGS_((Tcl_Interp * interp, int level)); /* 112 */
  566.     Tcl_CallFrame* (*_Tcl_ActivateCallFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_CallFrame * framePtr)); /* 113 */
  567.     Var* (*_TclNewVar) _ANSI_ARGS_((void)); /* 114 */
  568.     void (*itcl_Assert) _ANSI_ARGS_((char * testExpr, char * fileName, int lineNum)); /* 115 */
  569. } ItclIntStubs;
  570.  
  571. #ifdef __cplusplus
  572. extern "C" {
  573. #endif
  574. extern ItclIntStubs *itclIntStubsPtr;
  575. #ifdef __cplusplus
  576. }
  577. #endif
  578.  
  579. #if defined(USE_ITCL_STUBS) && !defined(USE_ITCL_STUB_PROCS)
  580.  
  581. /*
  582.  * Inline function declarations:
  583.  */
  584.  
  585. #ifndef Itcl_IsClassNamespace
  586. #define Itcl_IsClassNamespace \
  587.     (itclIntStubsPtr->itcl_IsClassNamespace) /* 0 */
  588. #endif
  589. #ifndef Itcl_IsClass
  590. #define Itcl_IsClass \
  591.     (itclIntStubsPtr->itcl_IsClass) /* 1 */
  592. #endif
  593. #ifndef Itcl_FindClass
  594. #define Itcl_FindClass \
  595.     (itclIntStubsPtr->itcl_FindClass) /* 2 */
  596. #endif
  597. #ifndef Itcl_FindObject
  598. #define Itcl_FindObject \
  599.     (itclIntStubsPtr->itcl_FindObject) /* 3 */
  600. #endif
  601. #ifndef Itcl_IsObject
  602. #define Itcl_IsObject \
  603.     (itclIntStubsPtr->itcl_IsObject) /* 4 */
  604. #endif
  605. #ifndef Itcl_ObjectIsa
  606. #define Itcl_ObjectIsa \
  607.     (itclIntStubsPtr->itcl_ObjectIsa) /* 5 */
  608. #endif
  609. #ifndef Itcl_Protection
  610. #define Itcl_Protection \
  611.     (itclIntStubsPtr->itcl_Protection) /* 6 */
  612. #endif
  613. #ifndef Itcl_ProtectionStr
  614. #define Itcl_ProtectionStr \
  615.     (itclIntStubsPtr->itcl_ProtectionStr) /* 7 */
  616. #endif
  617. #ifndef Itcl_CanAccess
  618. #define Itcl_CanAccess \
  619.     (itclIntStubsPtr->itcl_CanAccess) /* 8 */
  620. #endif
  621. #ifndef Itcl_CanAccessFunc
  622. #define Itcl_CanAccessFunc \
  623.     (itclIntStubsPtr->itcl_CanAccessFunc) /* 9 */
  624. #endif
  625. #ifndef Itcl_GetTrueNamespace
  626. #define Itcl_GetTrueNamespace \
  627.     (itclIntStubsPtr->itcl_GetTrueNamespace) /* 10 */
  628. #endif
  629. #ifndef Itcl_ParseNamespPath
  630. #define Itcl_ParseNamespPath \
  631.     (itclIntStubsPtr->itcl_ParseNamespPath) /* 11 */
  632. #endif
  633. #ifndef Itcl_DecodeScopedCommand
  634. #define Itcl_DecodeScopedCommand \
  635.     (itclIntStubsPtr->itcl_DecodeScopedCommand) /* 12 */
  636. #endif
  637. #ifndef Itcl_EvalArgs
  638. #define Itcl_EvalArgs \
  639.     (itclIntStubsPtr->itcl_EvalArgs) /* 13 */
  640. #endif
  641. #ifndef Itcl_CreateArgs
  642. #define Itcl_CreateArgs \
  643.     (itclIntStubsPtr->itcl_CreateArgs) /* 14 */
  644. #endif
  645. #ifndef Itcl_PushContext
  646. #define Itcl_PushContext \
  647.     (itclIntStubsPtr->itcl_PushContext) /* 15 */
  648. #endif
  649. #ifndef Itcl_PopContext
  650. #define Itcl_PopContext \
  651.     (itclIntStubsPtr->itcl_PopContext) /* 16 */
  652. #endif
  653. #ifndef Itcl_GetContext
  654. #define Itcl_GetContext \
  655.     (itclIntStubsPtr->itcl_GetContext) /* 17 */
  656. #endif
  657. #ifndef Itcl_InitHierIter
  658. #define Itcl_InitHierIter \
  659.     (itclIntStubsPtr->itcl_InitHierIter) /* 18 */
  660. #endif
  661. #ifndef Itcl_DeleteHierIter
  662. #define Itcl_DeleteHierIter \
  663.     (itclIntStubsPtr->itcl_DeleteHierIter) /* 19 */
  664. #endif
  665. #ifndef Itcl_AdvanceHierIter
  666. #define Itcl_AdvanceHierIter \
  667.     (itclIntStubsPtr->itcl_AdvanceHierIter) /* 20 */
  668. #endif
  669. #ifndef Itcl_FindClassesCmd
  670. #define Itcl_FindClassesCmd \
  671.     (itclIntStubsPtr->itcl_FindClassesCmd) /* 21 */
  672. #endif
  673. #ifndef Itcl_FindObjectsCmd
  674. #define Itcl_FindObjectsCmd \
  675.     (itclIntStubsPtr->itcl_FindObjectsCmd) /* 22 */
  676. #endif
  677. #ifndef Itcl_ProtectionCmd
  678. #define Itcl_ProtectionCmd \
  679.     (itclIntStubsPtr->itcl_ProtectionCmd) /* 23 */
  680. #endif
  681. #ifndef Itcl_DelClassCmd
  682. #define Itcl_DelClassCmd \
  683.     (itclIntStubsPtr->itcl_DelClassCmd) /* 24 */
  684. #endif
  685. #ifndef Itcl_DelObjectCmd
  686. #define Itcl_DelObjectCmd \
  687.     (itclIntStubsPtr->itcl_DelObjectCmd) /* 25 */
  688. #endif
  689. #ifndef Itcl_ScopeCmd
  690. #define Itcl_ScopeCmd \
  691.     (itclIntStubsPtr->itcl_ScopeCmd) /* 26 */
  692. #endif
  693. #ifndef Itcl_CodeCmd
  694. #define Itcl_CodeCmd \
  695.     (itclIntStubsPtr->itcl_CodeCmd) /* 27 */
  696. #endif
  697. #ifndef Itcl_StubCreateCmd
  698. #define Itcl_StubCreateCmd \
  699.     (itclIntStubsPtr->itcl_StubCreateCmd) /* 28 */
  700. #endif
  701. #ifndef Itcl_StubExistsCmd
  702. #define Itcl_StubExistsCmd \
  703.     (itclIntStubsPtr->itcl_StubExistsCmd) /* 29 */
  704. #endif
  705. #ifndef Itcl_IsStub
  706. #define Itcl_IsStub \
  707.     (itclIntStubsPtr->itcl_IsStub) /* 30 */
  708. #endif
  709. #ifndef Itcl_CreateClass
  710. #define Itcl_CreateClass \
  711.     (itclIntStubsPtr->itcl_CreateClass) /* 31 */
  712. #endif
  713. #ifndef Itcl_DeleteClass
  714. #define Itcl_DeleteClass \
  715.     (itclIntStubsPtr->itcl_DeleteClass) /* 32 */
  716. #endif
  717. #ifndef Itcl_FindClassNamespace
  718. #define Itcl_FindClassNamespace \
  719.     (itclIntStubsPtr->itcl_FindClassNamespace) /* 33 */
  720. #endif
  721. #ifndef Itcl_HandleClass
  722. #define Itcl_HandleClass \
  723.     (itclIntStubsPtr->itcl_HandleClass) /* 34 */
  724. #endif
  725. #ifndef Itcl_ClassCmdResolver
  726. #define Itcl_ClassCmdResolver \
  727.     (itclIntStubsPtr->itcl_ClassCmdResolver) /* 35 */
  728. #endif
  729. #ifndef Itcl_ClassVarResolver
  730. #define Itcl_ClassVarResolver \
  731.     (itclIntStubsPtr->itcl_ClassVarResolver) /* 36 */
  732. #endif
  733. #ifndef Itcl_ClassCompiledVarResolver
  734. #define Itcl_ClassCompiledVarResolver \
  735.     (itclIntStubsPtr->itcl_ClassCompiledVarResolver) /* 37 */
  736. #endif
  737. #ifndef Itcl_BuildVirtualTables
  738. #define Itcl_BuildVirtualTables \
  739.     (itclIntStubsPtr->itcl_BuildVirtualTables) /* 38 */
  740. #endif
  741. #ifndef Itcl_CreateVarDefn
  742. #define Itcl_CreateVarDefn \
  743.     (itclIntStubsPtr->itcl_CreateVarDefn) /* 39 */
  744. #endif
  745. #ifndef Itcl_DeleteVarDefn
  746. #define Itcl_DeleteVarDefn \
  747.     (itclIntStubsPtr->itcl_DeleteVarDefn) /* 40 */
  748. #endif
  749. #ifndef Itcl_GetCommonVar
  750. #define Itcl_GetCommonVar \
  751.     (itclIntStubsPtr->itcl_GetCommonVar) /* 41 */
  752. #endif
  753. #ifndef Itcl_CreateMember
  754. #define Itcl_CreateMember \
  755.     (itclIntStubsPtr->itcl_CreateMember) /* 42 */
  756. #endif
  757. #ifndef Itcl_DeleteMember
  758. #define Itcl_DeleteMember \
  759.     (itclIntStubsPtr->itcl_DeleteMember) /* 43 */
  760. #endif
  761. #ifndef Itcl_CreateObject
  762. #define Itcl_CreateObject \
  763.     (itclIntStubsPtr->itcl_CreateObject) /* 44 */
  764. #endif
  765. #ifndef Itcl_DeleteObject
  766. #define Itcl_DeleteObject \
  767.     (itclIntStubsPtr->itcl_DeleteObject) /* 45 */
  768. #endif
  769. #ifndef Itcl_DestructObject
  770. #define Itcl_DestructObject \
  771.     (itclIntStubsPtr->itcl_DestructObject) /* 46 */
  772. #endif
  773. #ifndef Itcl_HandleInstance
  774. #define Itcl_HandleInstance \
  775.     (itclIntStubsPtr->itcl_HandleInstance) /* 47 */
  776. #endif
  777. #ifndef Itcl_GetInstanceVar
  778. #define Itcl_GetInstanceVar \
  779.     (itclIntStubsPtr->itcl_GetInstanceVar) /* 48 */
  780. #endif
  781. #ifndef Itcl_ScopedVarResolver
  782. #define Itcl_ScopedVarResolver \
  783.     (itclIntStubsPtr->itcl_ScopedVarResolver) /* 49 */
  784. #endif
  785. #ifndef Itcl_BodyCmd
  786. #define Itcl_BodyCmd \
  787.     (itclIntStubsPtr->itcl_BodyCmd) /* 50 */
  788. #endif
  789. #ifndef Itcl_ConfigBodyCmd
  790. #define Itcl_ConfigBodyCmd \
  791.     (itclIntStubsPtr->itcl_ConfigBodyCmd) /* 51 */
  792. #endif
  793. #ifndef Itcl_CreateMethod
  794. #define Itcl_CreateMethod \
  795.     (itclIntStubsPtr->itcl_CreateMethod) /* 52 */
  796. #endif
  797. #ifndef Itcl_CreateProc
  798. #define Itcl_CreateProc \
  799.     (itclIntStubsPtr->itcl_CreateProc) /* 53 */
  800. #endif
  801. #ifndef Itcl_CreateMemberFunc
  802. #define Itcl_CreateMemberFunc \
  803.     (itclIntStubsPtr->itcl_CreateMemberFunc) /* 54 */
  804. #endif
  805. #ifndef Itcl_ChangeMemberFunc
  806. #define Itcl_ChangeMemberFunc \
  807.     (itclIntStubsPtr->itcl_ChangeMemberFunc) /* 55 */
  808. #endif
  809. #ifndef Itcl_DeleteMemberFunc
  810. #define Itcl_DeleteMemberFunc \
  811.     (itclIntStubsPtr->itcl_DeleteMemberFunc) /* 56 */
  812. #endif
  813. #ifndef Itcl_CreateMemberCode
  814. #define Itcl_CreateMemberCode \
  815.     (itclIntStubsPtr->itcl_CreateMemberCode) /* 57 */
  816. #endif
  817. #ifndef Itcl_DeleteMemberCode
  818. #define Itcl_DeleteMemberCode \
  819.     (itclIntStubsPtr->itcl_DeleteMemberCode) /* 58 */
  820. #endif
  821. #ifndef Itcl_GetMemberCode
  822. #define Itcl_GetMemberCode \
  823.     (itclIntStubsPtr->itcl_GetMemberCode) /* 59 */
  824. #endif
  825. /* Slot 60 is reserved */
  826. #ifndef Itcl_EvalMemberCode
  827. #define Itcl_EvalMemberCode \
  828.     (itclIntStubsPtr->itcl_EvalMemberCode) /* 61 */
  829. #endif
  830. #ifndef Itcl_CreateArgList
  831. #define Itcl_CreateArgList \
  832.     (itclIntStubsPtr->itcl_CreateArgList) /* 62 */
  833. #endif
  834. #ifndef Itcl_CreateArg
  835. #define Itcl_CreateArg \
  836.     (itclIntStubsPtr->itcl_CreateArg) /* 63 */
  837. #endif
  838. #ifndef Itcl_DeleteArgList
  839. #define Itcl_DeleteArgList \
  840.     (itclIntStubsPtr->itcl_DeleteArgList) /* 64 */
  841. #endif
  842. #ifndef Itcl_ArgList
  843. #define Itcl_ArgList \
  844.     (itclIntStubsPtr->itcl_ArgList) /* 65 */
  845. #endif
  846. #ifndef Itcl_EquivArgLists
  847. #define Itcl_EquivArgLists \
  848.     (itclIntStubsPtr->itcl_EquivArgLists) /* 66 */
  849. #endif
  850. #ifndef Itcl_GetMemberFuncUsage
  851. #define Itcl_GetMemberFuncUsage \
  852.     (itclIntStubsPtr->itcl_GetMemberFuncUsage) /* 67 */
  853. #endif
  854. #ifndef Itcl_ExecMethod
  855. #define Itcl_ExecMethod \
  856.     (itclIntStubsPtr->itcl_ExecMethod) /* 68 */
  857. #endif
  858. #ifndef Itcl_ExecProc
  859. #define Itcl_ExecProc \
  860.     (itclIntStubsPtr->itcl_ExecProc) /* 69 */
  861. #endif
  862. #ifndef Itcl_AssignArgs
  863. #define Itcl_AssignArgs \
  864.     (itclIntStubsPtr->itcl_AssignArgs) /* 70 */
  865. #endif
  866. #ifndef Itcl_ConstructBase
  867. #define Itcl_ConstructBase \
  868.     (itclIntStubsPtr->itcl_ConstructBase) /* 71 */
  869. #endif
  870. #ifndef Itcl_InvokeMethodIfExists
  871. #define Itcl_InvokeMethodIfExists \
  872.     (itclIntStubsPtr->itcl_InvokeMethodIfExists) /* 72 */
  873. #endif
  874. /* Slot 73 is reserved */
  875. #ifndef Itcl_ReportFuncErrors
  876. #define Itcl_ReportFuncErrors \
  877.     (itclIntStubsPtr->itcl_ReportFuncErrors) /* 74 */
  878. #endif
  879. #ifndef Itcl_ParseInit
  880. #define Itcl_ParseInit \
  881.     (itclIntStubsPtr->itcl_ParseInit) /* 75 */
  882. #endif
  883. #ifndef Itcl_ClassCmd
  884. #define Itcl_ClassCmd \
  885.     (itclIntStubsPtr->itcl_ClassCmd) /* 76 */
  886. #endif
  887. #ifndef Itcl_ClassInheritCmd
  888. #define Itcl_ClassInheritCmd \
  889.     (itclIntStubsPtr->itcl_ClassInheritCmd) /* 77 */
  890. #endif
  891. #ifndef Itcl_ClassProtectionCmd
  892. #define Itcl_ClassProtectionCmd \
  893.     (itclIntStubsPtr->itcl_ClassProtectionCmd) /* 78 */
  894. #endif
  895. #ifndef Itcl_ClassConstructorCmd
  896. #define Itcl_ClassConstructorCmd \
  897.     (itclIntStubsPtr->itcl_ClassConstructorCmd) /* 79 */
  898. #endif
  899. #ifndef Itcl_ClassDestructorCmd
  900. #define Itcl_ClassDestructorCmd \
  901.     (itclIntStubsPtr->itcl_ClassDestructorCmd) /* 80 */
  902. #endif
  903. #ifndef Itcl_ClassMethodCmd
  904. #define Itcl_ClassMethodCmd \
  905.     (itclIntStubsPtr->itcl_ClassMethodCmd) /* 81 */
  906. #endif
  907. #ifndef Itcl_ClassProcCmd
  908. #define Itcl_ClassProcCmd \
  909.     (itclIntStubsPtr->itcl_ClassProcCmd) /* 82 */
  910. #endif
  911. #ifndef Itcl_ClassVariableCmd
  912. #define Itcl_ClassVariableCmd \
  913.     (itclIntStubsPtr->itcl_ClassVariableCmd) /* 83 */
  914. #endif
  915. #ifndef Itcl_ClassCommonCmd
  916. #define Itcl_ClassCommonCmd \
  917.     (itclIntStubsPtr->itcl_ClassCommonCmd) /* 84 */
  918. #endif
  919. #ifndef Itcl_ParseVarResolver
  920. #define Itcl_ParseVarResolver \
  921.     (itclIntStubsPtr->itcl_ParseVarResolver) /* 85 */
  922. #endif
  923. #ifndef Itcl_BiInit
  924. #define Itcl_BiInit \
  925.     (itclIntStubsPtr->itcl_BiInit) /* 86 */
  926. #endif
  927. #ifndef Itcl_InstallBiMethods
  928. #define Itcl_InstallBiMethods \
  929.     (itclIntStubsPtr->itcl_InstallBiMethods) /* 87 */
  930. #endif
  931. #ifndef Itcl_BiIsaCmd
  932. #define Itcl_BiIsaCmd \
  933.     (itclIntStubsPtr->itcl_BiIsaCmd) /* 88 */
  934. #endif
  935. #ifndef Itcl_BiConfigureCmd
  936. #define Itcl_BiConfigureCmd \
  937.     (itclIntStubsPtr->itcl_BiConfigureCmd) /* 89 */
  938. #endif
  939. #ifndef Itcl_BiCgetCmd
  940. #define Itcl_BiCgetCmd \
  941.     (itclIntStubsPtr->itcl_BiCgetCmd) /* 90 */
  942. #endif
  943. #ifndef Itcl_BiChainCmd
  944. #define Itcl_BiChainCmd \
  945.     (itclIntStubsPtr->itcl_BiChainCmd) /* 91 */
  946. #endif
  947. #ifndef Itcl_BiInfoClassCmd
  948. #define Itcl_BiInfoClassCmd \
  949.     (itclIntStubsPtr->itcl_BiInfoClassCmd) /* 92 */
  950. #endif
  951. #ifndef Itcl_BiInfoInheritCmd
  952. #define Itcl_BiInfoInheritCmd \
  953.     (itclIntStubsPtr->itcl_BiInfoInheritCmd) /* 93 */
  954. #endif
  955. #ifndef Itcl_BiInfoHeritageCmd
  956. #define Itcl_BiInfoHeritageCmd \
  957.     (itclIntStubsPtr->itcl_BiInfoHeritageCmd) /* 94 */
  958. #endif
  959. #ifndef Itcl_BiInfoFunctionCmd
  960. #define Itcl_BiInfoFunctionCmd \
  961.     (itclIntStubsPtr->itcl_BiInfoFunctionCmd) /* 95 */
  962. #endif
  963. #ifndef Itcl_BiInfoVariableCmd
  964. #define Itcl_BiInfoVariableCmd \
  965.     (itclIntStubsPtr->itcl_BiInfoVariableCmd) /* 96 */
  966. #endif
  967. #ifndef Itcl_BiInfoBodyCmd
  968. #define Itcl_BiInfoBodyCmd \
  969.     (itclIntStubsPtr->itcl_BiInfoBodyCmd) /* 97 */
  970. #endif
  971. #ifndef Itcl_BiInfoArgsCmd
  972. #define Itcl_BiInfoArgsCmd \
  973.     (itclIntStubsPtr->itcl_BiInfoArgsCmd) /* 98 */
  974. #endif
  975. #ifndef Itcl_DefaultInfoCmd
  976. #define Itcl_DefaultInfoCmd \
  977.     (itclIntStubsPtr->itcl_DefaultInfoCmd) /* 99 */
  978. #endif
  979. #ifndef Itcl_EnsembleInit
  980. #define Itcl_EnsembleInit \
  981.     (itclIntStubsPtr->itcl_EnsembleInit) /* 100 */
  982. #endif
  983. #ifndef Itcl_CreateEnsemble
  984. #define Itcl_CreateEnsemble \
  985.     (itclIntStubsPtr->itcl_CreateEnsemble) /* 101 */
  986. #endif
  987. #ifndef Itcl_AddEnsemblePart
  988. #define Itcl_AddEnsemblePart \
  989.     (itclIntStubsPtr->itcl_AddEnsemblePart) /* 102 */
  990. #endif
  991. #ifndef Itcl_GetEnsemblePart
  992. #define Itcl_GetEnsemblePart \
  993.     (itclIntStubsPtr->itcl_GetEnsemblePart) /* 103 */
  994. #endif
  995. #ifndef Itcl_IsEnsemble
  996. #define Itcl_IsEnsemble \
  997.     (itclIntStubsPtr->itcl_IsEnsemble) /* 104 */
  998. #endif
  999. #ifndef Itcl_GetEnsembleUsage
  1000. #define Itcl_GetEnsembleUsage \
  1001.     (itclIntStubsPtr->itcl_GetEnsembleUsage) /* 105 */
  1002. #endif
  1003. #ifndef Itcl_GetEnsembleUsageForObj
  1004. #define Itcl_GetEnsembleUsageForObj \
  1005.     (itclIntStubsPtr->itcl_GetEnsembleUsageForObj) /* 106 */
  1006. #endif
  1007. #ifndef Itcl_EnsembleCmd
  1008. #define Itcl_EnsembleCmd \
  1009.     (itclIntStubsPtr->itcl_EnsembleCmd) /* 107 */
  1010. #endif
  1011. #ifndef Itcl_EnsPartCmd
  1012. #define Itcl_EnsPartCmd \
  1013.     (itclIntStubsPtr->itcl_EnsPartCmd) /* 108 */
  1014. #endif
  1015. #ifndef Itcl_EnsembleErrorCmd
  1016. #define Itcl_EnsembleErrorCmd \
  1017.     (itclIntStubsPtr->itcl_EnsembleErrorCmd) /* 109 */
  1018. #endif
  1019. #ifndef Itcl_OldInit
  1020. #define Itcl_OldInit \
  1021.     (itclIntStubsPtr->itcl_OldInit) /* 110 */
  1022. #endif
  1023. #ifndef Itcl_InstallOldBiMethods
  1024. #define Itcl_InstallOldBiMethods \
  1025.     (itclIntStubsPtr->itcl_InstallOldBiMethods) /* 111 */
  1026. #endif
  1027. #ifndef _Tcl_GetCallFrame
  1028. #define _Tcl_GetCallFrame \
  1029.     (itclIntStubsPtr->_Tcl_GetCallFrame) /* 112 */
  1030. #endif
  1031. #ifndef _Tcl_ActivateCallFrame
  1032. #define _Tcl_ActivateCallFrame \
  1033.     (itclIntStubsPtr->_Tcl_ActivateCallFrame) /* 113 */
  1034. #endif
  1035. #ifndef _TclNewVar
  1036. #define _TclNewVar \
  1037.     (itclIntStubsPtr->_TclNewVar) /* 114 */
  1038. #endif
  1039. #ifndef Itcl_Assert
  1040. #define Itcl_Assert \
  1041.     (itclIntStubsPtr->itcl_Assert) /* 115 */
  1042. #endif
  1043.  
  1044. #endif /* defined(USE_ITCL_STUBS) && !defined(USE_ITCL_STUB_PROCS) */
  1045.  
  1046. /* !END!: Do not edit above this line. */
  1047.  
  1048. #endif /* _ITCLINTDECLS */
  1049.