00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015 #ifndef _ITCLINTDECLS
00016 #define _ITCLINTDECLS
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030 #ifndef Itcl_IsClassNamespace_TCL_DECLARED
00031 #define Itcl_IsClassNamespace_TCL_DECLARED
00032
00033 TCL_EXTERN(int) Itcl_IsClassNamespace _ANSI_ARGS_((
00034 Tcl_Namespace * namesp));
00035 #endif
00036 #ifndef Itcl_IsClass_TCL_DECLARED
00037 #define Itcl_IsClass_TCL_DECLARED
00038
00039 TCL_EXTERN(int) Itcl_IsClass _ANSI_ARGS_((Tcl_Command cmd));
00040 #endif
00041 #ifndef Itcl_FindClass_TCL_DECLARED
00042 #define Itcl_FindClass_TCL_DECLARED
00043
00044 TCL_EXTERN(ItclClass*) Itcl_FindClass _ANSI_ARGS_((Tcl_Interp* interp,
00045 CONST char* path, int autoload));
00046 #endif
00047 #ifndef Itcl_FindObject_TCL_DECLARED
00048 #define Itcl_FindObject_TCL_DECLARED
00049
00050 TCL_EXTERN(int) Itcl_FindObject _ANSI_ARGS_((Tcl_Interp * interp,
00051 CONST char * name, ItclObject ** roPtr));
00052 #endif
00053 #ifndef Itcl_IsObject_TCL_DECLARED
00054 #define Itcl_IsObject_TCL_DECLARED
00055
00056 TCL_EXTERN(int) Itcl_IsObject _ANSI_ARGS_((Tcl_Command cmd));
00057 #endif
00058 #ifndef Itcl_ObjectIsa_TCL_DECLARED
00059 #define Itcl_ObjectIsa_TCL_DECLARED
00060
00061 TCL_EXTERN(int) Itcl_ObjectIsa _ANSI_ARGS_((ItclObject * contextObj,
00062 ItclClass * cdefn));
00063 #endif
00064 #ifndef Itcl_Protection_TCL_DECLARED
00065 #define Itcl_Protection_TCL_DECLARED
00066
00067 TCL_EXTERN(int) Itcl_Protection _ANSI_ARGS_((Tcl_Interp * interp,
00068 int newLevel));
00069 #endif
00070 #ifndef Itcl_ProtectionStr_TCL_DECLARED
00071 #define Itcl_ProtectionStr_TCL_DECLARED
00072
00073 TCL_EXTERN(char*) Itcl_ProtectionStr _ANSI_ARGS_((int pLevel));
00074 #endif
00075 #ifndef Itcl_CanAccess_TCL_DECLARED
00076 #define Itcl_CanAccess_TCL_DECLARED
00077
00078 TCL_EXTERN(int) Itcl_CanAccess _ANSI_ARGS_((ItclMember* memberPtr,
00079 Tcl_Namespace* fromNsPtr));
00080 #endif
00081 #ifndef Itcl_CanAccessFunc_TCL_DECLARED
00082 #define Itcl_CanAccessFunc_TCL_DECLARED
00083
00084 TCL_EXTERN(int) Itcl_CanAccessFunc _ANSI_ARGS_((
00085 ItclMemberFunc* mfunc,
00086 Tcl_Namespace* fromNsPtr));
00087 #endif
00088 #ifndef Itcl_GetTrueNamespace_TCL_DECLARED
00089 #define Itcl_GetTrueNamespace_TCL_DECLARED
00090
00091 TCL_EXTERN(Tcl_Namespace*) Itcl_GetTrueNamespace _ANSI_ARGS_((
00092 Tcl_Interp * interp, ItclObjectInfo * info));
00093 #endif
00094 #ifndef Itcl_ParseNamespPath_TCL_DECLARED
00095 #define Itcl_ParseNamespPath_TCL_DECLARED
00096
00097 TCL_EXTERN(void) Itcl_ParseNamespPath _ANSI_ARGS_((CONST char * name,
00098 Tcl_DString * buffer, char ** head,
00099 char ** tail));
00100 #endif
00101 #ifndef Itcl_DecodeScopedCommand_TCL_DECLARED
00102 #define Itcl_DecodeScopedCommand_TCL_DECLARED
00103
00104 TCL_EXTERN(int) Itcl_DecodeScopedCommand _ANSI_ARGS_((
00105 Tcl_Interp * interp, CONST char * name,
00106 Tcl_Namespace ** rNsPtr, char ** rCmdPtr));
00107 #endif
00108 #ifndef Itcl_EvalArgs_TCL_DECLARED
00109 #define Itcl_EvalArgs_TCL_DECLARED
00110
00111 TCL_EXTERN(int) Itcl_EvalArgs _ANSI_ARGS_((Tcl_Interp * interp,
00112 int objc, Tcl_Obj *CONST objv[]));
00113 #endif
00114 #ifndef Itcl_CreateArgs_TCL_DECLARED
00115 #define Itcl_CreateArgs_TCL_DECLARED
00116
00117 TCL_EXTERN(Tcl_Obj*) Itcl_CreateArgs _ANSI_ARGS_((Tcl_Interp * interp,
00118 CONST char * string, int objc,
00119 Tcl_Obj *CONST objv[]));
00120 #endif
00121 #ifndef Itcl_PushContext_TCL_DECLARED
00122 #define Itcl_PushContext_TCL_DECLARED
00123
00124 TCL_EXTERN(int) Itcl_PushContext _ANSI_ARGS_((Tcl_Interp * interp,
00125 ItclMember * member,
00126 ItclClass * contextClass,
00127 ItclObject * contextObj,
00128 ItclContext * contextPtr));
00129 #endif
00130 #ifndef Itcl_PopContext_TCL_DECLARED
00131 #define Itcl_PopContext_TCL_DECLARED
00132
00133 TCL_EXTERN(void) Itcl_PopContext _ANSI_ARGS_((Tcl_Interp * interp,
00134 ItclContext * contextPtr));
00135 #endif
00136 #ifndef Itcl_GetContext_TCL_DECLARED
00137 #define Itcl_GetContext_TCL_DECLARED
00138
00139 TCL_EXTERN(int) Itcl_GetContext _ANSI_ARGS_((Tcl_Interp * interp,
00140 ItclClass ** cdefnPtr,
00141 ItclObject ** odefnPtr));
00142 #endif
00143 #ifndef Itcl_InitHierIter_TCL_DECLARED
00144 #define Itcl_InitHierIter_TCL_DECLARED
00145
00146 TCL_EXTERN(void) Itcl_InitHierIter _ANSI_ARGS_((ItclHierIter * iter,
00147 ItclClass * cdefn));
00148 #endif
00149 #ifndef Itcl_DeleteHierIter_TCL_DECLARED
00150 #define Itcl_DeleteHierIter_TCL_DECLARED
00151
00152 TCL_EXTERN(void) Itcl_DeleteHierIter _ANSI_ARGS_((ItclHierIter * iter));
00153 #endif
00154 #ifndef Itcl_AdvanceHierIter_TCL_DECLARED
00155 #define Itcl_AdvanceHierIter_TCL_DECLARED
00156
00157 TCL_EXTERN(ItclClass*) Itcl_AdvanceHierIter _ANSI_ARGS_((
00158 ItclHierIter * iter));
00159 #endif
00160 #ifndef Itcl_FindClassesCmd_TCL_DECLARED
00161 #define Itcl_FindClassesCmd_TCL_DECLARED
00162
00163 TCL_EXTERN(int) Itcl_FindClassesCmd _ANSI_ARGS_((
00164 ClientData clientData, Tcl_Interp * interp,
00165 int objc, Tcl_Obj *CONST objv[]));
00166 #endif
00167 #ifndef Itcl_FindObjectsCmd_TCL_DECLARED
00168 #define Itcl_FindObjectsCmd_TCL_DECLARED
00169
00170 TCL_EXTERN(int) Itcl_FindObjectsCmd _ANSI_ARGS_((
00171 ClientData clientData, Tcl_Interp * interp,
00172 int objc, Tcl_Obj *CONST objv[]));
00173 #endif
00174 #ifndef Itcl_ProtectionCmd_TCL_DECLARED
00175 #define Itcl_ProtectionCmd_TCL_DECLARED
00176
00177 TCL_EXTERN(int) Itcl_ProtectionCmd _ANSI_ARGS_((
00178 ClientData clientData, Tcl_Interp * interp,
00179 int objc, Tcl_Obj *CONST objv[]));
00180 #endif
00181 #ifndef Itcl_DelClassCmd_TCL_DECLARED
00182 #define Itcl_DelClassCmd_TCL_DECLARED
00183
00184 TCL_EXTERN(int) Itcl_DelClassCmd _ANSI_ARGS_((ClientData clientData,
00185 Tcl_Interp * interp, int objc,
00186 Tcl_Obj *CONST objv[]));
00187 #endif
00188 #ifndef Itcl_DelObjectCmd_TCL_DECLARED
00189 #define Itcl_DelObjectCmd_TCL_DECLARED
00190
00191 TCL_EXTERN(int) Itcl_DelObjectCmd _ANSI_ARGS_((ClientData clientData,
00192 Tcl_Interp * interp, int objc,
00193 Tcl_Obj *CONST objv[]));
00194 #endif
00195 #ifndef Itcl_ScopeCmd_TCL_DECLARED
00196 #define Itcl_ScopeCmd_TCL_DECLARED
00197
00198 TCL_EXTERN(int) Itcl_ScopeCmd _ANSI_ARGS_((ClientData clientData,
00199 Tcl_Interp * interp, int objc,
00200 Tcl_Obj *CONST objv[]));
00201 #endif
00202 #ifndef Itcl_CodeCmd_TCL_DECLARED
00203 #define Itcl_CodeCmd_TCL_DECLARED
00204
00205 TCL_EXTERN(int) Itcl_CodeCmd _ANSI_ARGS_((ClientData clientData,
00206 Tcl_Interp * interp, int objc,
00207 Tcl_Obj *CONST objv[]));
00208 #endif
00209 #ifndef Itcl_StubCreateCmd_TCL_DECLARED
00210 #define Itcl_StubCreateCmd_TCL_DECLARED
00211
00212 TCL_EXTERN(int) Itcl_StubCreateCmd _ANSI_ARGS_((
00213 ClientData clientData, Tcl_Interp * interp,
00214 int objc, Tcl_Obj *CONST objv[]));
00215 #endif
00216 #ifndef Itcl_StubExistsCmd_TCL_DECLARED
00217 #define Itcl_StubExistsCmd_TCL_DECLARED
00218
00219 TCL_EXTERN(int) Itcl_StubExistsCmd _ANSI_ARGS_((
00220 ClientData clientData, Tcl_Interp * interp,
00221 int objc, Tcl_Obj *CONST objv[]));
00222 #endif
00223 #ifndef Itcl_IsStub_TCL_DECLARED
00224 #define Itcl_IsStub_TCL_DECLARED
00225
00226 TCL_EXTERN(int) Itcl_IsStub _ANSI_ARGS_((Tcl_Command cmd));
00227 #endif
00228 #ifndef Itcl_CreateClass_TCL_DECLARED
00229 #define Itcl_CreateClass_TCL_DECLARED
00230
00231 TCL_EXTERN(int) Itcl_CreateClass _ANSI_ARGS_((Tcl_Interp* interp,
00232 CONST char* path, ItclObjectInfo * info,
00233 ItclClass ** rPtr));
00234 #endif
00235 #ifndef Itcl_DeleteClass_TCL_DECLARED
00236 #define Itcl_DeleteClass_TCL_DECLARED
00237
00238 TCL_EXTERN(int) Itcl_DeleteClass _ANSI_ARGS_((Tcl_Interp * interp,
00239 ItclClass * cdefnPtr));
00240 #endif
00241 #ifndef Itcl_FindClassNamespace_TCL_DECLARED
00242 #define Itcl_FindClassNamespace_TCL_DECLARED
00243
00244 TCL_EXTERN(Tcl_Namespace*) Itcl_FindClassNamespace _ANSI_ARGS_((
00245 Tcl_Interp* interp, CONST char* path));
00246 #endif
00247 #ifndef Itcl_HandleClass_TCL_DECLARED
00248 #define Itcl_HandleClass_TCL_DECLARED
00249
00250 TCL_EXTERN(int) Itcl_HandleClass _ANSI_ARGS_((ClientData clientData,
00251 Tcl_Interp * interp, int objc,
00252 Tcl_Obj *CONST objv[]));
00253 #endif
00254 #ifndef Itcl_ClassCmdResolver_TCL_DECLARED
00255 #define Itcl_ClassCmdResolver_TCL_DECLARED
00256
00257 TCL_EXTERN(int) Itcl_ClassCmdResolver _ANSI_ARGS_((
00258 Tcl_Interp * interp, CONST char* name,
00259 Tcl_Namespace * context, int flags,
00260 Tcl_Command * rPtr));
00261 #endif
00262 #ifndef Itcl_ClassVarResolver_TCL_DECLARED
00263 #define Itcl_ClassVarResolver_TCL_DECLARED
00264
00265 TCL_EXTERN(int) Itcl_ClassVarResolver _ANSI_ARGS_((
00266 Tcl_Interp * interp, CONST char* name,
00267 Tcl_Namespace * context, int flags,
00268 Tcl_Var * rPtr));
00269 #endif
00270 #ifndef Itcl_ClassCompiledVarResolver_TCL_DECLARED
00271 #define Itcl_ClassCompiledVarResolver_TCL_DECLARED
00272
00273 TCL_EXTERN(int) Itcl_ClassCompiledVarResolver _ANSI_ARGS_((
00274 Tcl_Interp * interp, CONST char* name,
00275 int length, Tcl_Namespace * context,
00276 Tcl_ResolvedVarInfo ** rPtr));
00277 #endif
00278 #ifndef Itcl_BuildVirtualTables_TCL_DECLARED
00279 #define Itcl_BuildVirtualTables_TCL_DECLARED
00280
00281 TCL_EXTERN(void) Itcl_BuildVirtualTables _ANSI_ARGS_((
00282 ItclClass* cdefnPtr));
00283 #endif
00284 #ifndef Itcl_CreateVarDefn_TCL_DECLARED
00285 #define Itcl_CreateVarDefn_TCL_DECLARED
00286
00287 TCL_EXTERN(int) Itcl_CreateVarDefn _ANSI_ARGS_((Tcl_Interp * interp,
00288 ItclClass* cdefn, char* name, char* init,
00289 char* config, ItclVarDefn** vdefnPtr));
00290 #endif
00291 #ifndef Itcl_DeleteVarDefn_TCL_DECLARED
00292 #define Itcl_DeleteVarDefn_TCL_DECLARED
00293
00294 TCL_EXTERN(void) Itcl_DeleteVarDefn _ANSI_ARGS_((ItclVarDefn * vdefn));
00295 #endif
00296 #ifndef Itcl_GetCommonVar_TCL_DECLARED
00297 #define Itcl_GetCommonVar_TCL_DECLARED
00298
00299 TCL_EXTERN(CONST char*) Itcl_GetCommonVar _ANSI_ARGS_((Tcl_Interp * interp,
00300 CONST char * name, ItclClass * contextClass));
00301 #endif
00302 #ifndef Itcl_CreateMember_TCL_DECLARED
00303 #define Itcl_CreateMember_TCL_DECLARED
00304
00305 TCL_EXTERN(ItclMember*) Itcl_CreateMember _ANSI_ARGS_((Tcl_Interp* interp,
00306 ItclClass * cdefn, CONST char* name));
00307 #endif
00308 #ifndef Itcl_DeleteMember_TCL_DECLARED
00309 #define Itcl_DeleteMember_TCL_DECLARED
00310
00311 TCL_EXTERN(void) Itcl_DeleteMember _ANSI_ARGS_((ItclMember * memPtr));
00312 #endif
00313 #ifndef Itcl_CreateObject_TCL_DECLARED
00314 #define Itcl_CreateObject_TCL_DECLARED
00315
00316 TCL_EXTERN(int) Itcl_CreateObject _ANSI_ARGS_((Tcl_Interp * interp,
00317 CONST char* name, ItclClass * cdefn,
00318 int objc, Tcl_Obj *CONST objv[],
00319 ItclObject ** roPtr));
00320 #endif
00321 #ifndef Itcl_DeleteObject_TCL_DECLARED
00322 #define Itcl_DeleteObject_TCL_DECLARED
00323
00324 TCL_EXTERN(int) Itcl_DeleteObject _ANSI_ARGS_((Tcl_Interp * interp,
00325 ItclObject * contextObj));
00326 #endif
00327 #ifndef Itcl_DestructObject_TCL_DECLARED
00328 #define Itcl_DestructObject_TCL_DECLARED
00329
00330 TCL_EXTERN(int) Itcl_DestructObject _ANSI_ARGS_((Tcl_Interp * interp,
00331 ItclObject * contextObj, int flags));
00332 #endif
00333 #ifndef Itcl_HandleInstance_TCL_DECLARED
00334 #define Itcl_HandleInstance_TCL_DECLARED
00335
00336 TCL_EXTERN(int) Itcl_HandleInstance _ANSI_ARGS_((
00337 ClientData clientData, Tcl_Interp * interp,
00338 int objc, Tcl_Obj *CONST objv[]));
00339 #endif
00340 #ifndef Itcl_GetInstanceVar_TCL_DECLARED
00341 #define Itcl_GetInstanceVar_TCL_DECLARED
00342
00343 TCL_EXTERN(CONST char*) Itcl_GetInstanceVar _ANSI_ARGS_((
00344 Tcl_Interp * interp, CONST char * name,
00345 ItclObject * contextObj,
00346 ItclClass * contextClass));
00347 #endif
00348 #ifndef Itcl_ScopedVarResolver_TCL_DECLARED
00349 #define Itcl_ScopedVarResolver_TCL_DECLARED
00350
00351 TCL_EXTERN(int) Itcl_ScopedVarResolver _ANSI_ARGS_((
00352 Tcl_Interp * interp, CONST char * name,
00353 Tcl_Namespace * contextNs, int flags,
00354 Tcl_Var * rPtr));
00355 #endif
00356 #ifndef Itcl_BodyCmd_TCL_DECLARED
00357 #define Itcl_BodyCmd_TCL_DECLARED
00358
00359 TCL_EXTERN(int) Itcl_BodyCmd _ANSI_ARGS_((ClientData dummy,
00360 Tcl_Interp * interp, int objc,
00361 Tcl_Obj *CONST objv[]));
00362 #endif
00363 #ifndef Itcl_ConfigBodyCmd_TCL_DECLARED
00364 #define Itcl_ConfigBodyCmd_TCL_DECLARED
00365
00366 TCL_EXTERN(int) Itcl_ConfigBodyCmd _ANSI_ARGS_((ClientData dummy,
00367 Tcl_Interp * interp, int objc,
00368 Tcl_Obj *CONST objv[]));
00369 #endif
00370 #ifndef Itcl_CreateMethod_TCL_DECLARED
00371 #define Itcl_CreateMethod_TCL_DECLARED
00372
00373 TCL_EXTERN(int) Itcl_CreateMethod _ANSI_ARGS_((Tcl_Interp* interp,
00374 ItclClass * cdefn, CONST char* name,
00375 CONST char* arglist, CONST char* body));
00376 #endif
00377 #ifndef Itcl_CreateProc_TCL_DECLARED
00378 #define Itcl_CreateProc_TCL_DECLARED
00379
00380 TCL_EXTERN(int) Itcl_CreateProc _ANSI_ARGS_((Tcl_Interp* interp,
00381 ItclClass * cdefn, CONST char* name,
00382 CONST char* arglist, CONST char* body));
00383 #endif
00384 #ifndef Itcl_CreateMemberFunc_TCL_DECLARED
00385 #define Itcl_CreateMemberFunc_TCL_DECLARED
00386
00387 TCL_EXTERN(int) Itcl_CreateMemberFunc _ANSI_ARGS_((
00388 Tcl_Interp* interp, ItclClass * cdefn,
00389 CONST char* name, CONST char* arglist,
00390 CONST char* body, ItclMemberFunc** mfuncPtr));
00391 #endif
00392 #ifndef Itcl_ChangeMemberFunc_TCL_DECLARED
00393 #define Itcl_ChangeMemberFunc_TCL_DECLARED
00394
00395 TCL_EXTERN(int) Itcl_ChangeMemberFunc _ANSI_ARGS_((
00396 Tcl_Interp* interp, ItclMemberFunc* mfunc,
00397 CONST char* arglist, CONST char* body));
00398 #endif
00399 #ifndef Itcl_DeleteMemberFunc_TCL_DECLARED
00400 #define Itcl_DeleteMemberFunc_TCL_DECLARED
00401
00402 TCL_EXTERN(void) Itcl_DeleteMemberFunc _ANSI_ARGS_((CONST char* cdata));
00403 #endif
00404 #ifndef Itcl_CreateMemberCode_TCL_DECLARED
00405 #define Itcl_CreateMemberCode_TCL_DECLARED
00406
00407 TCL_EXTERN(int) Itcl_CreateMemberCode _ANSI_ARGS_((
00408 Tcl_Interp* interp, ItclClass * cdefn,
00409 CONST char* arglist, CONST char* body,
00410 ItclMemberCode** mcodePtr));
00411 #endif
00412 #ifndef Itcl_DeleteMemberCode_TCL_DECLARED
00413 #define Itcl_DeleteMemberCode_TCL_DECLARED
00414
00415 TCL_EXTERN(void) Itcl_DeleteMemberCode _ANSI_ARGS_((CONST char* cdata));
00416 #endif
00417 #ifndef Itcl_GetMemberCode_TCL_DECLARED
00418 #define Itcl_GetMemberCode_TCL_DECLARED
00419
00420 TCL_EXTERN(int) Itcl_GetMemberCode _ANSI_ARGS_((Tcl_Interp* interp,
00421 ItclMember* member));
00422 #endif
00423
00424 #ifndef Itcl_EvalMemberCode_TCL_DECLARED
00425 #define Itcl_EvalMemberCode_TCL_DECLARED
00426
00427 TCL_EXTERN(int) Itcl_EvalMemberCode _ANSI_ARGS_((Tcl_Interp * interp,
00428 ItclMemberFunc * mfunc, ItclMember * member,
00429 ItclObject * contextObj, int objc,
00430 Tcl_Obj *CONST objv[]));
00431 #endif
00432 #ifndef Itcl_CreateArgList_TCL_DECLARED
00433 #define Itcl_CreateArgList_TCL_DECLARED
00434
00435 TCL_EXTERN(int) Itcl_CreateArgList _ANSI_ARGS_((Tcl_Interp* interp,
00436 CONST char* decl, int* argcPtr,
00437 CompiledLocal** argPtr));
00438 #endif
00439 #ifndef Itcl_CreateArg_TCL_DECLARED
00440 #define Itcl_CreateArg_TCL_DECLARED
00441
00442 TCL_EXTERN(CompiledLocal*) Itcl_CreateArg _ANSI_ARGS_((CONST char* name,
00443 CONST char* init));
00444 #endif
00445 #ifndef Itcl_DeleteArgList_TCL_DECLARED
00446 #define Itcl_DeleteArgList_TCL_DECLARED
00447
00448 TCL_EXTERN(void) Itcl_DeleteArgList _ANSI_ARGS_((
00449 CompiledLocal * arglist));
00450 #endif
00451 #ifndef Itcl_ArgList_TCL_DECLARED
00452 #define Itcl_ArgList_TCL_DECLARED
00453
00454 TCL_EXTERN(Tcl_Obj*) Itcl_ArgList _ANSI_ARGS_((int argc,
00455 CompiledLocal* arglist));
00456 #endif
00457 #ifndef Itcl_EquivArgLists_TCL_DECLARED
00458 #define Itcl_EquivArgLists_TCL_DECLARED
00459
00460 TCL_EXTERN(int) Itcl_EquivArgLists _ANSI_ARGS_((CompiledLocal* arg1,
00461 int arg1c, CompiledLocal* arg2, int arg2c));
00462 #endif
00463 #ifndef Itcl_GetMemberFuncUsage_TCL_DECLARED
00464 #define Itcl_GetMemberFuncUsage_TCL_DECLARED
00465
00466 TCL_EXTERN(void) Itcl_GetMemberFuncUsage _ANSI_ARGS_((
00467 ItclMemberFunc * mfunc,
00468 ItclObject * contextObj, Tcl_Obj * objPtr));
00469 #endif
00470 #ifndef Itcl_ExecMethod_TCL_DECLARED
00471 #define Itcl_ExecMethod_TCL_DECLARED
00472
00473 TCL_EXTERN(int) Itcl_ExecMethod _ANSI_ARGS_((ClientData clientData,
00474 Tcl_Interp * interp, int objc,
00475 Tcl_Obj *CONST objv[]));
00476 #endif
00477 #ifndef Itcl_ExecProc_TCL_DECLARED
00478 #define Itcl_ExecProc_TCL_DECLARED
00479
00480 TCL_EXTERN(int) Itcl_ExecProc _ANSI_ARGS_((ClientData clientData,
00481 Tcl_Interp * interp, int objc,
00482 Tcl_Obj *CONST objv[]));
00483 #endif
00484 #ifndef Itcl_AssignArgs_TCL_DECLARED
00485 #define Itcl_AssignArgs_TCL_DECLARED
00486
00487 TCL_EXTERN(int) Itcl_AssignArgs _ANSI_ARGS_((Tcl_Interp * interp,
00488 int objc, Tcl_Obj *CONST objv[],
00489 ItclMemberFunc * mfunc));
00490 #endif
00491 #ifndef Itcl_ConstructBase_TCL_DECLARED
00492 #define Itcl_ConstructBase_TCL_DECLARED
00493
00494 TCL_EXTERN(int) Itcl_ConstructBase _ANSI_ARGS_((Tcl_Interp * interp,
00495 ItclObject * contextObj,
00496 ItclClass * contextClass));
00497 #endif
00498 #ifndef Itcl_InvokeMethodIfExists_TCL_DECLARED
00499 #define Itcl_InvokeMethodIfExists_TCL_DECLARED
00500
00501 TCL_EXTERN(int) Itcl_InvokeMethodIfExists _ANSI_ARGS_((
00502 Tcl_Interp * interp, CONST char * name,
00503 ItclClass * contextClass,
00504 ItclObject * contextObj, int objc,
00505 Tcl_Obj *CONST objv[]));
00506 #endif
00507
00508 #ifndef Itcl_ReportFuncErrors_TCL_DECLARED
00509 #define Itcl_ReportFuncErrors_TCL_DECLARED
00510
00511 TCL_EXTERN(int) Itcl_ReportFuncErrors _ANSI_ARGS_((
00512 Tcl_Interp* interp, ItclMemberFunc * mfunc,
00513 ItclObject * contextObj, int result));
00514 #endif
00515 #ifndef Itcl_ParseInit_TCL_DECLARED
00516 #define Itcl_ParseInit_TCL_DECLARED
00517
00518 TCL_EXTERN(int) Itcl_ParseInit _ANSI_ARGS_((Tcl_Interp * interp,
00519 ItclObjectInfo * info));
00520 #endif
00521 #ifndef Itcl_ClassCmd_TCL_DECLARED
00522 #define Itcl_ClassCmd_TCL_DECLARED
00523
00524 TCL_EXTERN(int) Itcl_ClassCmd _ANSI_ARGS_((ClientData clientData,
00525 Tcl_Interp * interp, int objc,
00526 Tcl_Obj *CONST objv[]));
00527 #endif
00528 #ifndef Itcl_ClassInheritCmd_TCL_DECLARED
00529 #define Itcl_ClassInheritCmd_TCL_DECLARED
00530
00531 TCL_EXTERN(int) Itcl_ClassInheritCmd _ANSI_ARGS_((
00532 ClientData clientData, Tcl_Interp * interp,
00533 int objc, Tcl_Obj *CONST objv[]));
00534 #endif
00535 #ifndef Itcl_ClassProtectionCmd_TCL_DECLARED
00536 #define Itcl_ClassProtectionCmd_TCL_DECLARED
00537
00538 TCL_EXTERN(int) Itcl_ClassProtectionCmd _ANSI_ARGS_((
00539 ClientData clientData, Tcl_Interp * interp,
00540 int objc, Tcl_Obj *CONST objv[]));
00541 #endif
00542 #ifndef Itcl_ClassConstructorCmd_TCL_DECLARED
00543 #define Itcl_ClassConstructorCmd_TCL_DECLARED
00544
00545 TCL_EXTERN(int) Itcl_ClassConstructorCmd _ANSI_ARGS_((
00546 ClientData clientData, Tcl_Interp * interp,
00547 int objc, Tcl_Obj *CONST objv[]));
00548 #endif
00549 #ifndef Itcl_ClassDestructorCmd_TCL_DECLARED
00550 #define Itcl_ClassDestructorCmd_TCL_DECLARED
00551
00552 TCL_EXTERN(int) Itcl_ClassDestructorCmd _ANSI_ARGS_((
00553 ClientData clientData, Tcl_Interp * interp,
00554 int objc, Tcl_Obj *CONST objv[]));
00555 #endif
00556 #ifndef Itcl_ClassMethodCmd_TCL_DECLARED
00557 #define Itcl_ClassMethodCmd_TCL_DECLARED
00558
00559 TCL_EXTERN(int) Itcl_ClassMethodCmd _ANSI_ARGS_((
00560 ClientData clientData, Tcl_Interp * interp,
00561 int objc, Tcl_Obj *CONST objv[]));
00562 #endif
00563 #ifndef Itcl_ClassProcCmd_TCL_DECLARED
00564 #define Itcl_ClassProcCmd_TCL_DECLARED
00565
00566 TCL_EXTERN(int) Itcl_ClassProcCmd _ANSI_ARGS_((ClientData clientData,
00567 Tcl_Interp * interp, int objc,
00568 Tcl_Obj *CONST objv[]));
00569 #endif
00570 #ifndef Itcl_ClassVariableCmd_TCL_DECLARED
00571 #define Itcl_ClassVariableCmd_TCL_DECLARED
00572
00573 TCL_EXTERN(int) Itcl_ClassVariableCmd _ANSI_ARGS_((
00574 ClientData clientData, Tcl_Interp * interp,
00575 int objc, Tcl_Obj *CONST objv[]));
00576 #endif
00577 #ifndef Itcl_ClassCommonCmd_TCL_DECLARED
00578 #define Itcl_ClassCommonCmd_TCL_DECLARED
00579
00580 TCL_EXTERN(int) Itcl_ClassCommonCmd _ANSI_ARGS_((
00581 ClientData clientData, Tcl_Interp * interp,
00582 int objc, Tcl_Obj *CONST objv[]));
00583 #endif
00584 #ifndef Itcl_ParseVarResolver_TCL_DECLARED
00585 #define Itcl_ParseVarResolver_TCL_DECLARED
00586
00587 TCL_EXTERN(int) Itcl_ParseVarResolver _ANSI_ARGS_((
00588 Tcl_Interp * interp, CONST char* name,
00589 Tcl_Namespace * contextNs, int flags,
00590 Tcl_Var* rPtr));
00591 #endif
00592 #ifndef Itcl_BiInit_TCL_DECLARED
00593 #define Itcl_BiInit_TCL_DECLARED
00594
00595 TCL_EXTERN(int) Itcl_BiInit _ANSI_ARGS_((Tcl_Interp * interp));
00596 #endif
00597 #ifndef Itcl_InstallBiMethods_TCL_DECLARED
00598 #define Itcl_InstallBiMethods_TCL_DECLARED
00599
00600 TCL_EXTERN(int) Itcl_InstallBiMethods _ANSI_ARGS_((
00601 Tcl_Interp * interp, ItclClass * cdefn));
00602 #endif
00603 #ifndef Itcl_BiIsaCmd_TCL_DECLARED
00604 #define Itcl_BiIsaCmd_TCL_DECLARED
00605
00606 TCL_EXTERN(int) Itcl_BiIsaCmd _ANSI_ARGS_((ClientData clientData,
00607 Tcl_Interp * interp, int objc,
00608 Tcl_Obj *CONST objv[]));
00609 #endif
00610 #ifndef Itcl_BiConfigureCmd_TCL_DECLARED
00611 #define Itcl_BiConfigureCmd_TCL_DECLARED
00612
00613 TCL_EXTERN(int) Itcl_BiConfigureCmd _ANSI_ARGS_((
00614 ClientData clientData, Tcl_Interp * interp,
00615 int objc, Tcl_Obj *CONST objv[]));
00616 #endif
00617 #ifndef Itcl_BiCgetCmd_TCL_DECLARED
00618 #define Itcl_BiCgetCmd_TCL_DECLARED
00619
00620 TCL_EXTERN(int) Itcl_BiCgetCmd _ANSI_ARGS_((ClientData clientData,
00621 Tcl_Interp * interp, int objc,
00622 Tcl_Obj *CONST objv[]));
00623 #endif
00624 #ifndef Itcl_BiChainCmd_TCL_DECLARED
00625 #define Itcl_BiChainCmd_TCL_DECLARED
00626
00627 TCL_EXTERN(int) Itcl_BiChainCmd _ANSI_ARGS_((ClientData dummy,
00628 Tcl_Interp * interp, int objc,
00629 Tcl_Obj *CONST objv[]));
00630 #endif
00631 #ifndef Itcl_BiInfoClassCmd_TCL_DECLARED
00632 #define Itcl_BiInfoClassCmd_TCL_DECLARED
00633
00634 TCL_EXTERN(int) Itcl_BiInfoClassCmd _ANSI_ARGS_((ClientData dummy,
00635 Tcl_Interp * interp, int objc,
00636 Tcl_Obj *CONST objv[]));
00637 #endif
00638 #ifndef Itcl_BiInfoInheritCmd_TCL_DECLARED
00639 #define Itcl_BiInfoInheritCmd_TCL_DECLARED
00640
00641 TCL_EXTERN(int) Itcl_BiInfoInheritCmd _ANSI_ARGS_((ClientData dummy,
00642 Tcl_Interp * interp, int objc,
00643 Tcl_Obj *CONST objv[]));
00644 #endif
00645 #ifndef Itcl_BiInfoHeritageCmd_TCL_DECLARED
00646 #define Itcl_BiInfoHeritageCmd_TCL_DECLARED
00647
00648 TCL_EXTERN(int) Itcl_BiInfoHeritageCmd _ANSI_ARGS_((ClientData dummy,
00649 Tcl_Interp * interp, int objc,
00650 Tcl_Obj *CONST objv[]));
00651 #endif
00652 #ifndef Itcl_BiInfoFunctionCmd_TCL_DECLARED
00653 #define Itcl_BiInfoFunctionCmd_TCL_DECLARED
00654
00655 TCL_EXTERN(int) Itcl_BiInfoFunctionCmd _ANSI_ARGS_((ClientData dummy,
00656 Tcl_Interp * interp, int objc,
00657 Tcl_Obj *CONST objv[]));
00658 #endif
00659 #ifndef Itcl_BiInfoVariableCmd_TCL_DECLARED
00660 #define Itcl_BiInfoVariableCmd_TCL_DECLARED
00661
00662 TCL_EXTERN(int) Itcl_BiInfoVariableCmd _ANSI_ARGS_((ClientData dummy,
00663 Tcl_Interp * interp, int objc,
00664 Tcl_Obj *CONST objv[]));
00665 #endif
00666 #ifndef Itcl_BiInfoBodyCmd_TCL_DECLARED
00667 #define Itcl_BiInfoBodyCmd_TCL_DECLARED
00668
00669 TCL_EXTERN(int) Itcl_BiInfoBodyCmd _ANSI_ARGS_((ClientData dummy,
00670 Tcl_Interp * interp, int objc,
00671 Tcl_Obj *CONST objv[]));
00672 #endif
00673 #ifndef Itcl_BiInfoArgsCmd_TCL_DECLARED
00674 #define Itcl_BiInfoArgsCmd_TCL_DECLARED
00675
00676 TCL_EXTERN(int) Itcl_BiInfoArgsCmd _ANSI_ARGS_((ClientData dummy,
00677 Tcl_Interp * interp, int objc,
00678 Tcl_Obj *CONST objv[]));
00679 #endif
00680 #ifndef Itcl_DefaultInfoCmd_TCL_DECLARED
00681 #define Itcl_DefaultInfoCmd_TCL_DECLARED
00682
00683 TCL_EXTERN(int) Itcl_DefaultInfoCmd _ANSI_ARGS_((ClientData dummy,
00684 Tcl_Interp * interp, int objc,
00685 Tcl_Obj *CONST objv[]));
00686 #endif
00687 #ifndef Itcl_EnsembleInit_TCL_DECLARED
00688 #define Itcl_EnsembleInit_TCL_DECLARED
00689
00690 TCL_EXTERN(int) Itcl_EnsembleInit _ANSI_ARGS_((Tcl_Interp * interp));
00691 #endif
00692 #ifndef Itcl_CreateEnsemble_TCL_DECLARED
00693 #define Itcl_CreateEnsemble_TCL_DECLARED
00694
00695 TCL_EXTERN(int) Itcl_CreateEnsemble _ANSI_ARGS_((Tcl_Interp * interp,
00696 CONST char* ensName));
00697 #endif
00698 #ifndef Itcl_AddEnsemblePart_TCL_DECLARED
00699 #define Itcl_AddEnsemblePart_TCL_DECLARED
00700
00701 TCL_EXTERN(int) Itcl_AddEnsemblePart _ANSI_ARGS_((
00702 Tcl_Interp * interp, CONST char* ensName,
00703 CONST char* partName, CONST char* usageInfo,
00704 Tcl_ObjCmdProc * objProc,
00705 ClientData clientData,
00706 Tcl_CmdDeleteProc * deleteProc));
00707 #endif
00708 #ifndef Itcl_GetEnsemblePart_TCL_DECLARED
00709 #define Itcl_GetEnsemblePart_TCL_DECLARED
00710
00711 TCL_EXTERN(int) Itcl_GetEnsemblePart _ANSI_ARGS_((
00712 Tcl_Interp * interp, CONST char * ensName,
00713 CONST char * partName, Tcl_CmdInfo * infoPtr));
00714 #endif
00715 #ifndef Itcl_IsEnsemble_TCL_DECLARED
00716 #define Itcl_IsEnsemble_TCL_DECLARED
00717
00718 TCL_EXTERN(int) Itcl_IsEnsemble _ANSI_ARGS_((Tcl_CmdInfo* infoPtr));
00719 #endif
00720 #ifndef Itcl_GetEnsembleUsage_TCL_DECLARED
00721 #define Itcl_GetEnsembleUsage_TCL_DECLARED
00722
00723 TCL_EXTERN(int) Itcl_GetEnsembleUsage _ANSI_ARGS_((
00724 Tcl_Interp * interp, CONST char * ensName,
00725 Tcl_Obj * objPtr));
00726 #endif
00727 #ifndef Itcl_GetEnsembleUsageForObj_TCL_DECLARED
00728 #define Itcl_GetEnsembleUsageForObj_TCL_DECLARED
00729
00730 TCL_EXTERN(int) Itcl_GetEnsembleUsageForObj _ANSI_ARGS_((
00731 Tcl_Interp * interp, Tcl_Obj * ensObjPtr,
00732 Tcl_Obj * objPtr));
00733 #endif
00734 #ifndef Itcl_EnsembleCmd_TCL_DECLARED
00735 #define Itcl_EnsembleCmd_TCL_DECLARED
00736
00737 TCL_EXTERN(int) Itcl_EnsembleCmd _ANSI_ARGS_((ClientData clientData,
00738 Tcl_Interp * interp, int objc,
00739 Tcl_Obj *CONST objv[]));
00740 #endif
00741 #ifndef Itcl_EnsPartCmd_TCL_DECLARED
00742 #define Itcl_EnsPartCmd_TCL_DECLARED
00743
00744 TCL_EXTERN(int) Itcl_EnsPartCmd _ANSI_ARGS_((ClientData clientData,
00745 Tcl_Interp * interp, int objc,
00746 Tcl_Obj *CONST objv[]));
00747 #endif
00748 #ifndef Itcl_EnsembleErrorCmd_TCL_DECLARED
00749 #define Itcl_EnsembleErrorCmd_TCL_DECLARED
00750
00751 TCL_EXTERN(int) Itcl_EnsembleErrorCmd _ANSI_ARGS_((
00752 ClientData clientData, Tcl_Interp * interp,
00753 int objc, Tcl_Obj *CONST objv[]));
00754 #endif
00755
00756
00757 #ifndef _Tcl_GetCallFrame_TCL_DECLARED
00758 #define _Tcl_GetCallFrame_TCL_DECLARED
00759
00760 TCL_EXTERN(Tcl_CallFrame*) _Tcl_GetCallFrame _ANSI_ARGS_((
00761 Tcl_Interp * interp, int level));
00762 #endif
00763 #ifndef _Tcl_ActivateCallFrame_TCL_DECLARED
00764 #define _Tcl_ActivateCallFrame_TCL_DECLARED
00765
00766 TCL_EXTERN(Tcl_CallFrame*) _Tcl_ActivateCallFrame _ANSI_ARGS_((
00767 Tcl_Interp * interp,
00768 Tcl_CallFrame * framePtr));
00769 #endif
00770 #ifndef _TclNewVar_TCL_DECLARED
00771 #define _TclNewVar_TCL_DECLARED
00772
00773 TCL_EXTERN(Var*) _TclNewVar _ANSI_ARGS_((void));
00774 #endif
00775 #ifndef Itcl_Assert_TCL_DECLARED
00776 #define Itcl_Assert_TCL_DECLARED
00777
00778 TCL_EXTERN(void) Itcl_Assert _ANSI_ARGS_((CONST char * testExpr,
00779 CONST char * fileName, int lineNum));
00780 #endif
00781 #ifndef Itcl_IsObjectCmd_TCL_DECLARED
00782 #define Itcl_IsObjectCmd_TCL_DECLARED
00783
00784 TCL_EXTERN(int) Itcl_IsObjectCmd _ANSI_ARGS_((ClientData clientData,
00785 Tcl_Interp * interp, int objc,
00786 Tcl_Obj *CONST objv[]));
00787 #endif
00788 #ifndef Itcl_IsClassCmd_TCL_DECLARED
00789 #define Itcl_IsClassCmd_TCL_DECLARED
00790
00791 TCL_EXTERN(int) Itcl_IsClassCmd _ANSI_ARGS_((ClientData clientData,
00792 Tcl_Interp * interp, int objc,
00793 Tcl_Obj *CONST objv[]));
00794 #endif
00795
00796 typedef struct ItclIntStubs {
00797 int magic;
00798 struct ItclIntStubHooks *hooks;
00799
00800 int (*itcl_IsClassNamespace) _ANSI_ARGS_((Tcl_Namespace * namesp));
00801 int (*itcl_IsClass) _ANSI_ARGS_((Tcl_Command cmd));
00802 ItclClass* (*itcl_FindClass) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* path, int autoload));
00803 int (*itcl_FindObject) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ItclObject ** roPtr));
00804 int (*itcl_IsObject) _ANSI_ARGS_((Tcl_Command cmd));
00805 int (*itcl_ObjectIsa) _ANSI_ARGS_((ItclObject * contextObj, ItclClass * cdefn));
00806 int (*itcl_Protection) _ANSI_ARGS_((Tcl_Interp * interp, int newLevel));
00807 char* (*itcl_ProtectionStr) _ANSI_ARGS_((int pLevel));
00808 int (*itcl_CanAccess) _ANSI_ARGS_((ItclMember* memberPtr, Tcl_Namespace* fromNsPtr));
00809 int (*itcl_CanAccessFunc) _ANSI_ARGS_((ItclMemberFunc* mfunc, Tcl_Namespace* fromNsPtr));
00810 Tcl_Namespace* (*itcl_GetTrueNamespace) _ANSI_ARGS_((Tcl_Interp * interp, ItclObjectInfo * info));
00811 void (*itcl_ParseNamespPath) _ANSI_ARGS_((CONST char * name, Tcl_DString * buffer, char ** head, char ** tail));
00812 int (*itcl_DecodeScopedCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace ** rNsPtr, char ** rCmdPtr));
00813 int (*itcl_EvalArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00814 Tcl_Obj* (*itcl_CreateArgs) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * string, int objc, Tcl_Obj *CONST objv[]));
00815 int (*itcl_PushContext) _ANSI_ARGS_((Tcl_Interp * interp, ItclMember * member, ItclClass * contextClass, ItclObject * contextObj, ItclContext * contextPtr));
00816 void (*itcl_PopContext) _ANSI_ARGS_((Tcl_Interp * interp, ItclContext * contextPtr));
00817 int (*itcl_GetContext) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass ** cdefnPtr, ItclObject ** odefnPtr));
00818 void (*itcl_InitHierIter) _ANSI_ARGS_((ItclHierIter * iter, ItclClass * cdefn));
00819 void (*itcl_DeleteHierIter) _ANSI_ARGS_((ItclHierIter * iter));
00820 ItclClass* (*itcl_AdvanceHierIter) _ANSI_ARGS_((ItclHierIter * iter));
00821 int (*itcl_FindClassesCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00822 int (*itcl_FindObjectsCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00823 int (*itcl_ProtectionCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00824 int (*itcl_DelClassCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00825 int (*itcl_DelObjectCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00826 int (*itcl_ScopeCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00827 int (*itcl_CodeCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00828 int (*itcl_StubCreateCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00829 int (*itcl_StubExistsCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00830 int (*itcl_IsStub) _ANSI_ARGS_((Tcl_Command cmd));
00831 int (*itcl_CreateClass) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* path, ItclObjectInfo * info, ItclClass ** rPtr));
00832 int (*itcl_DeleteClass) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass * cdefnPtr));
00833 Tcl_Namespace* (*itcl_FindClassNamespace) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* path));
00834 int (*itcl_HandleClass) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00835 int (*itcl_ClassCmdResolver) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* name, Tcl_Namespace * context, int flags, Tcl_Command * rPtr));
00836 int (*itcl_ClassVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* name, Tcl_Namespace * context, int flags, Tcl_Var * rPtr));
00837 int (*itcl_ClassCompiledVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* name, int length, Tcl_Namespace * context, Tcl_ResolvedVarInfo ** rPtr));
00838 void (*itcl_BuildVirtualTables) _ANSI_ARGS_((ItclClass* cdefnPtr));
00839 int (*itcl_CreateVarDefn) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass* cdefn, char* name, char* init, char* config, ItclVarDefn** vdefnPtr));
00840 void (*itcl_DeleteVarDefn) _ANSI_ARGS_((ItclVarDefn * vdefn));
00841 CONST char* (*itcl_GetCommonVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ItclClass * contextClass));
00842 ItclMember* (*itcl_CreateMember) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, CONST char* name));
00843 void (*itcl_DeleteMember) _ANSI_ARGS_((ItclMember * memPtr));
00844 int (*itcl_CreateObject) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* name, ItclClass * cdefn, int objc, Tcl_Obj *CONST objv[], ItclObject ** roPtr));
00845 int (*itcl_DeleteObject) _ANSI_ARGS_((Tcl_Interp * interp, ItclObject * contextObj));
00846 int (*itcl_DestructObject) _ANSI_ARGS_((Tcl_Interp * interp, ItclObject * contextObj, int flags));
00847 int (*itcl_HandleInstance) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00848 CONST char* (*itcl_GetInstanceVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ItclObject * contextObj, ItclClass * contextClass));
00849 int (*itcl_ScopedVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNs, int flags, Tcl_Var * rPtr));
00850 int (*itcl_BodyCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00851 int (*itcl_ConfigBodyCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00852 int (*itcl_CreateMethod) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, CONST char* name, CONST char* arglist, CONST char* body));
00853 int (*itcl_CreateProc) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, CONST char* name, CONST char* arglist, CONST char* body));
00854 int (*itcl_CreateMemberFunc) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, CONST char* name, CONST char* arglist, CONST char* body, ItclMemberFunc** mfuncPtr));
00855 int (*itcl_ChangeMemberFunc) _ANSI_ARGS_((Tcl_Interp* interp, ItclMemberFunc* mfunc, CONST char* arglist, CONST char* body));
00856 void (*itcl_DeleteMemberFunc) _ANSI_ARGS_((CONST char* cdata));
00857 int (*itcl_CreateMemberCode) _ANSI_ARGS_((Tcl_Interp* interp, ItclClass * cdefn, CONST char* arglist, CONST char* body, ItclMemberCode** mcodePtr));
00858 void (*itcl_DeleteMemberCode) _ANSI_ARGS_((CONST char* cdata));
00859 int (*itcl_GetMemberCode) _ANSI_ARGS_((Tcl_Interp* interp, ItclMember* member));
00860 void *reserved60;
00861 int (*itcl_EvalMemberCode) _ANSI_ARGS_((Tcl_Interp * interp, ItclMemberFunc * mfunc, ItclMember * member, ItclObject * contextObj, int objc, Tcl_Obj *CONST objv[]));
00862 int (*itcl_CreateArgList) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* decl, int* argcPtr, CompiledLocal** argPtr));
00863 CompiledLocal* (*itcl_CreateArg) _ANSI_ARGS_((CONST char* name, CONST char* init));
00864 void (*itcl_DeleteArgList) _ANSI_ARGS_((CompiledLocal * arglist));
00865 Tcl_Obj* (*itcl_ArgList) _ANSI_ARGS_((int argc, CompiledLocal* arglist));
00866 int (*itcl_EquivArgLists) _ANSI_ARGS_((CompiledLocal* arg1, int arg1c, CompiledLocal* arg2, int arg2c));
00867 void (*itcl_GetMemberFuncUsage) _ANSI_ARGS_((ItclMemberFunc * mfunc, ItclObject * contextObj, Tcl_Obj * objPtr));
00868 int (*itcl_ExecMethod) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00869 int (*itcl_ExecProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00870 int (*itcl_AssignArgs) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], ItclMemberFunc * mfunc));
00871 int (*itcl_ConstructBase) _ANSI_ARGS_((Tcl_Interp * interp, ItclObject * contextObj, ItclClass * contextClass));
00872 int (*itcl_InvokeMethodIfExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, ItclClass * contextClass, ItclObject * contextObj, int objc, Tcl_Obj *CONST objv[]));
00873 void *reserved73;
00874 int (*itcl_ReportFuncErrors) _ANSI_ARGS_((Tcl_Interp* interp, ItclMemberFunc * mfunc, ItclObject * contextObj, int result));
00875 int (*itcl_ParseInit) _ANSI_ARGS_((Tcl_Interp * interp, ItclObjectInfo * info));
00876 int (*itcl_ClassCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00877 int (*itcl_ClassInheritCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00878 int (*itcl_ClassProtectionCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00879 int (*itcl_ClassConstructorCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00880 int (*itcl_ClassDestructorCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00881 int (*itcl_ClassMethodCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00882 int (*itcl_ClassProcCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00883 int (*itcl_ClassVariableCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00884 int (*itcl_ClassCommonCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00885 int (*itcl_ParseVarResolver) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* name, Tcl_Namespace * contextNs, int flags, Tcl_Var* rPtr));
00886 int (*itcl_BiInit) _ANSI_ARGS_((Tcl_Interp * interp));
00887 int (*itcl_InstallBiMethods) _ANSI_ARGS_((Tcl_Interp * interp, ItclClass * cdefn));
00888 int (*itcl_BiIsaCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00889 int (*itcl_BiConfigureCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00890 int (*itcl_BiCgetCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00891 int (*itcl_BiChainCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00892 int (*itcl_BiInfoClassCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00893 int (*itcl_BiInfoInheritCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00894 int (*itcl_BiInfoHeritageCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00895 int (*itcl_BiInfoFunctionCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00896 int (*itcl_BiInfoVariableCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00897 int (*itcl_BiInfoBodyCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00898 int (*itcl_BiInfoArgsCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00899 int (*itcl_DefaultInfoCmd) _ANSI_ARGS_((ClientData dummy, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00900 int (*itcl_EnsembleInit) _ANSI_ARGS_((Tcl_Interp * interp));
00901 int (*itcl_CreateEnsemble) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* ensName));
00902 int (*itcl_AddEnsemblePart) _ANSI_ARGS_((Tcl_Interp * interp, CONST char* ensName, CONST char* partName, CONST char* usageInfo, Tcl_ObjCmdProc * objProc, ClientData clientData, Tcl_CmdDeleteProc * deleteProc));
00903 int (*itcl_GetEnsemblePart) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * ensName, CONST char * partName, Tcl_CmdInfo * infoPtr));
00904 int (*itcl_IsEnsemble) _ANSI_ARGS_((Tcl_CmdInfo* infoPtr));
00905 int (*itcl_GetEnsembleUsage) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * ensName, Tcl_Obj * objPtr));
00906 int (*itcl_GetEnsembleUsageForObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * ensObjPtr, Tcl_Obj * objPtr));
00907 int (*itcl_EnsembleCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00908 int (*itcl_EnsPartCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00909 int (*itcl_EnsembleErrorCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00910 void *reserved110;
00911 void *reserved111;
00912 Tcl_CallFrame* (*_Tcl_GetCallFrame) _ANSI_ARGS_((Tcl_Interp * interp, int level));
00913 Tcl_CallFrame* (*_Tcl_ActivateCallFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_CallFrame * framePtr));
00914 Var* (*_TclNewVar) _ANSI_ARGS_((void));
00915 void (*itcl_Assert) _ANSI_ARGS_((CONST char * testExpr, CONST char * fileName, int lineNum));
00916 int (*itcl_IsObjectCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00917 int (*itcl_IsClassCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]));
00918 } ItclIntStubs;
00919
00920 TCL_EXTERNC ItclIntStubs *itclIntStubsPtr;
00921
00922 #if defined(USE_ITCL_STUBS) && !defined(USE_ITCL_STUB_PROCS)
00923
00924
00925
00926
00927
00928 #ifndef Itcl_IsClassNamespace
00929 #define Itcl_IsClassNamespace \
00930 (itclIntStubsPtr->itcl_IsClassNamespace)
00931 #endif
00932 #ifndef Itcl_IsClass
00933 #define Itcl_IsClass \
00934 (itclIntStubsPtr->itcl_IsClass)
00935 #endif
00936 #ifndef Itcl_FindClass
00937 #define Itcl_FindClass \
00938 (itclIntStubsPtr->itcl_FindClass)
00939 #endif
00940 #ifndef Itcl_FindObject
00941 #define Itcl_FindObject \
00942 (itclIntStubsPtr->itcl_FindObject)
00943 #endif
00944 #ifndef Itcl_IsObject
00945 #define Itcl_IsObject \
00946 (itclIntStubsPtr->itcl_IsObject)
00947 #endif
00948 #ifndef Itcl_ObjectIsa
00949 #define Itcl_ObjectIsa \
00950 (itclIntStubsPtr->itcl_ObjectIsa)
00951 #endif
00952 #ifndef Itcl_Protection
00953 #define Itcl_Protection \
00954 (itclIntStubsPtr->itcl_Protection)
00955 #endif
00956 #ifndef Itcl_ProtectionStr
00957 #define Itcl_ProtectionStr \
00958 (itclIntStubsPtr->itcl_ProtectionStr)
00959 #endif
00960 #ifndef Itcl_CanAccess
00961 #define Itcl_CanAccess \
00962 (itclIntStubsPtr->itcl_CanAccess)
00963 #endif
00964 #ifndef Itcl_CanAccessFunc
00965 #define Itcl_CanAccessFunc \
00966 (itclIntStubsPtr->itcl_CanAccessFunc)
00967 #endif
00968 #ifndef Itcl_GetTrueNamespace
00969 #define Itcl_GetTrueNamespace \
00970 (itclIntStubsPtr->itcl_GetTrueNamespace)
00971 #endif
00972 #ifndef Itcl_ParseNamespPath
00973 #define Itcl_ParseNamespPath \
00974 (itclIntStubsPtr->itcl_ParseNamespPath)
00975 #endif
00976 #ifndef Itcl_DecodeScopedCommand
00977 #define Itcl_DecodeScopedCommand \
00978 (itclIntStubsPtr->itcl_DecodeScopedCommand)
00979 #endif
00980 #ifndef Itcl_EvalArgs
00981 #define Itcl_EvalArgs \
00982 (itclIntStubsPtr->itcl_EvalArgs)
00983 #endif
00984 #ifndef Itcl_CreateArgs
00985 #define Itcl_CreateArgs \
00986 (itclIntStubsPtr->itcl_CreateArgs)
00987 #endif
00988 #ifndef Itcl_PushContext
00989 #define Itcl_PushContext \
00990 (itclIntStubsPtr->itcl_PushContext)
00991 #endif
00992 #ifndef Itcl_PopContext
00993 #define Itcl_PopContext \
00994 (itclIntStubsPtr->itcl_PopContext)
00995 #endif
00996 #ifndef Itcl_GetContext
00997 #define Itcl_GetContext \
00998 (itclIntStubsPtr->itcl_GetContext)
00999 #endif
01000 #ifndef Itcl_InitHierIter
01001 #define Itcl_InitHierIter \
01002 (itclIntStubsPtr->itcl_InitHierIter)
01003 #endif
01004 #ifndef Itcl_DeleteHierIter
01005 #define Itcl_DeleteHierIter \
01006 (itclIntStubsPtr->itcl_DeleteHierIter)
01007 #endif
01008 #ifndef Itcl_AdvanceHierIter
01009 #define Itcl_AdvanceHierIter \
01010 (itclIntStubsPtr->itcl_AdvanceHierIter)
01011 #endif
01012 #ifndef Itcl_FindClassesCmd
01013 #define Itcl_FindClassesCmd \
01014 (itclIntStubsPtr->itcl_FindClassesCmd)
01015 #endif
01016 #ifndef Itcl_FindObjectsCmd
01017 #define Itcl_FindObjectsCmd \
01018 (itclIntStubsPtr->itcl_FindObjectsCmd)
01019 #endif
01020 #ifndef Itcl_ProtectionCmd
01021 #define Itcl_ProtectionCmd \
01022 (itclIntStubsPtr->itcl_ProtectionCmd)
01023 #endif
01024 #ifndef Itcl_DelClassCmd
01025 #define Itcl_DelClassCmd \
01026 (itclIntStubsPtr->itcl_DelClassCmd)
01027 #endif
01028 #ifndef Itcl_DelObjectCmd
01029 #define Itcl_DelObjectCmd \
01030 (itclIntStubsPtr->itcl_DelObjectCmd)
01031 #endif
01032 #ifndef Itcl_ScopeCmd
01033 #define Itcl_ScopeCmd \
01034 (itclIntStubsPtr->itcl_ScopeCmd)
01035 #endif
01036 #ifndef Itcl_CodeCmd
01037 #define Itcl_CodeCmd \
01038 (itclIntStubsPtr->itcl_CodeCmd)
01039 #endif
01040 #ifndef Itcl_StubCreateCmd
01041 #define Itcl_StubCreateCmd \
01042 (itclIntStubsPtr->itcl_StubCreateCmd)
01043 #endif
01044 #ifndef Itcl_StubExistsCmd
01045 #define Itcl_StubExistsCmd \
01046 (itclIntStubsPtr->itcl_StubExistsCmd)
01047 #endif
01048 #ifndef Itcl_IsStub
01049 #define Itcl_IsStub \
01050 (itclIntStubsPtr->itcl_IsStub)
01051 #endif
01052 #ifndef Itcl_CreateClass
01053 #define Itcl_CreateClass \
01054 (itclIntStubsPtr->itcl_CreateClass)
01055 #endif
01056 #ifndef Itcl_DeleteClass
01057 #define Itcl_DeleteClass \
01058 (itclIntStubsPtr->itcl_DeleteClass)
01059 #endif
01060 #ifndef Itcl_FindClassNamespace
01061 #define Itcl_FindClassNamespace \
01062 (itclIntStubsPtr->itcl_FindClassNamespace)
01063 #endif
01064 #ifndef Itcl_HandleClass
01065 #define Itcl_HandleClass \
01066 (itclIntStubsPtr->itcl_HandleClass)
01067 #endif
01068 #ifndef Itcl_ClassCmdResolver
01069 #define Itcl_ClassCmdResolver \
01070 (itclIntStubsPtr->itcl_ClassCmdResolver)
01071 #endif
01072 #ifndef Itcl_ClassVarResolver
01073 #define Itcl_ClassVarResolver \
01074 (itclIntStubsPtr->itcl_ClassVarResolver)
01075 #endif
01076 #ifndef Itcl_ClassCompiledVarResolver
01077 #define Itcl_ClassCompiledVarResolver \
01078 (itclIntStubsPtr->itcl_ClassCompiledVarResolver)
01079 #endif
01080 #ifndef Itcl_BuildVirtualTables
01081 #define Itcl_BuildVirtualTables \
01082 (itclIntStubsPtr->itcl_BuildVirtualTables)
01083 #endif
01084 #ifndef Itcl_CreateVarDefn
01085 #define Itcl_CreateVarDefn \
01086 (itclIntStubsPtr->itcl_CreateVarDefn)
01087 #endif
01088 #ifndef Itcl_DeleteVarDefn
01089 #define Itcl_DeleteVarDefn \
01090 (itclIntStubsPtr->itcl_DeleteVarDefn)
01091 #endif
01092 #ifndef Itcl_GetCommonVar
01093 #define Itcl_GetCommonVar \
01094 (itclIntStubsPtr->itcl_GetCommonVar)
01095 #endif
01096 #ifndef Itcl_CreateMember
01097 #define Itcl_CreateMember \
01098 (itclIntStubsPtr->itcl_CreateMember)
01099 #endif
01100 #ifndef Itcl_DeleteMember
01101 #define Itcl_DeleteMember \
01102 (itclIntStubsPtr->itcl_DeleteMember)
01103 #endif
01104 #ifndef Itcl_CreateObject
01105 #define Itcl_CreateObject \
01106 (itclIntStubsPtr->itcl_CreateObject)
01107 #endif
01108 #ifndef Itcl_DeleteObject
01109 #define Itcl_DeleteObject \
01110 (itclIntStubsPtr->itcl_DeleteObject)
01111 #endif
01112 #ifndef Itcl_DestructObject
01113 #define Itcl_DestructObject \
01114 (itclIntStubsPtr->itcl_DestructObject)
01115 #endif
01116 #ifndef Itcl_HandleInstance
01117 #define Itcl_HandleInstance \
01118 (itclIntStubsPtr->itcl_HandleInstance)
01119 #endif
01120 #ifndef Itcl_GetInstanceVar
01121 #define Itcl_GetInstanceVar \
01122 (itclIntStubsPtr->itcl_GetInstanceVar)
01123 #endif
01124 #ifndef Itcl_ScopedVarResolver
01125 #define Itcl_ScopedVarResolver \
01126 (itclIntStubsPtr->itcl_ScopedVarResolver)
01127 #endif
01128 #ifndef Itcl_BodyCmd
01129 #define Itcl_BodyCmd \
01130 (itclIntStubsPtr->itcl_BodyCmd)
01131 #endif
01132 #ifndef Itcl_ConfigBodyCmd
01133 #define Itcl_ConfigBodyCmd \
01134 (itclIntStubsPtr->itcl_ConfigBodyCmd)
01135 #endif
01136 #ifndef Itcl_CreateMethod
01137 #define Itcl_CreateMethod \
01138 (itclIntStubsPtr->itcl_CreateMethod)
01139 #endif
01140 #ifndef Itcl_CreateProc
01141 #define Itcl_CreateProc \
01142 (itclIntStubsPtr->itcl_CreateProc)
01143 #endif
01144 #ifndef Itcl_CreateMemberFunc
01145 #define Itcl_CreateMemberFunc \
01146 (itclIntStubsPtr->itcl_CreateMemberFunc)
01147 #endif
01148 #ifndef Itcl_ChangeMemberFunc
01149 #define Itcl_ChangeMemberFunc \
01150 (itclIntStubsPtr->itcl_ChangeMemberFunc)
01151 #endif
01152 #ifndef Itcl_DeleteMemberFunc
01153 #define Itcl_DeleteMemberFunc \
01154 (itclIntStubsPtr->itcl_DeleteMemberFunc)
01155 #endif
01156 #ifndef Itcl_CreateMemberCode
01157 #define Itcl_CreateMemberCode \
01158 (itclIntStubsPtr->itcl_CreateMemberCode)
01159 #endif
01160 #ifndef Itcl_DeleteMemberCode
01161 #define Itcl_DeleteMemberCode \
01162 (itclIntStubsPtr->itcl_DeleteMemberCode)
01163 #endif
01164 #ifndef Itcl_GetMemberCode
01165 #define Itcl_GetMemberCode \
01166 (itclIntStubsPtr->itcl_GetMemberCode)
01167 #endif
01168
01169 #ifndef Itcl_EvalMemberCode
01170 #define Itcl_EvalMemberCode \
01171 (itclIntStubsPtr->itcl_EvalMemberCode)
01172 #endif
01173 #ifndef Itcl_CreateArgList
01174 #define Itcl_CreateArgList \
01175 (itclIntStubsPtr->itcl_CreateArgList)
01176 #endif
01177 #ifndef Itcl_CreateArg
01178 #define Itcl_CreateArg \
01179 (itclIntStubsPtr->itcl_CreateArg)
01180 #endif
01181 #ifndef Itcl_DeleteArgList
01182 #define Itcl_DeleteArgList \
01183 (itclIntStubsPtr->itcl_DeleteArgList)
01184 #endif
01185 #ifndef Itcl_ArgList
01186 #define Itcl_ArgList \
01187 (itclIntStubsPtr->itcl_ArgList)
01188 #endif
01189 #ifndef Itcl_EquivArgLists
01190 #define Itcl_EquivArgLists \
01191 (itclIntStubsPtr->itcl_EquivArgLists)
01192 #endif
01193 #ifndef Itcl_GetMemberFuncUsage
01194 #define Itcl_GetMemberFuncUsage \
01195 (itclIntStubsPtr->itcl_GetMemberFuncUsage)
01196 #endif
01197 #ifndef Itcl_ExecMethod
01198 #define Itcl_ExecMethod \
01199 (itclIntStubsPtr->itcl_ExecMethod)
01200 #endif
01201 #ifndef Itcl_ExecProc
01202 #define Itcl_ExecProc \
01203 (itclIntStubsPtr->itcl_ExecProc)
01204 #endif
01205 #ifndef Itcl_AssignArgs
01206 #define Itcl_AssignArgs \
01207 (itclIntStubsPtr->itcl_AssignArgs)
01208 #endif
01209 #ifndef Itcl_ConstructBase
01210 #define Itcl_ConstructBase \
01211 (itclIntStubsPtr->itcl_ConstructBase)
01212 #endif
01213 #ifndef Itcl_InvokeMethodIfExists
01214 #define Itcl_InvokeMethodIfExists \
01215 (itclIntStubsPtr->itcl_InvokeMethodIfExists)
01216 #endif
01217
01218 #ifndef Itcl_ReportFuncErrors
01219 #define Itcl_ReportFuncErrors \
01220 (itclIntStubsPtr->itcl_ReportFuncErrors)
01221 #endif
01222 #ifndef Itcl_ParseInit
01223 #define Itcl_ParseInit \
01224 (itclIntStubsPtr->itcl_ParseInit)
01225 #endif
01226 #ifndef Itcl_ClassCmd
01227 #define Itcl_ClassCmd \
01228 (itclIntStubsPtr->itcl_ClassCmd)
01229 #endif
01230 #ifndef Itcl_ClassInheritCmd
01231 #define Itcl_ClassInheritCmd \
01232 (itclIntStubsPtr->itcl_ClassInheritCmd)
01233 #endif
01234 #ifndef Itcl_ClassProtectionCmd
01235 #define Itcl_ClassProtectionCmd \
01236 (itclIntStubsPtr->itcl_ClassProtectionCmd)
01237 #endif
01238 #ifndef Itcl_ClassConstructorCmd
01239 #define Itcl_ClassConstructorCmd \
01240 (itclIntStubsPtr->itcl_ClassConstructorCmd)
01241 #endif
01242 #ifndef Itcl_ClassDestructorCmd
01243 #define Itcl_ClassDestructorCmd \
01244 (itclIntStubsPtr->itcl_ClassDestructorCmd)
01245 #endif
01246 #ifndef Itcl_ClassMethodCmd
01247 #define Itcl_ClassMethodCmd \
01248 (itclIntStubsPtr->itcl_ClassMethodCmd)
01249 #endif
01250 #ifndef Itcl_ClassProcCmd
01251 #define Itcl_ClassProcCmd \
01252 (itclIntStubsPtr->itcl_ClassProcCmd)
01253 #endif
01254 #ifndef Itcl_ClassVariableCmd
01255 #define Itcl_ClassVariableCmd \
01256 (itclIntStubsPtr->itcl_ClassVariableCmd)
01257 #endif
01258 #ifndef Itcl_ClassCommonCmd
01259 #define Itcl_ClassCommonCmd \
01260 (itclIntStubsPtr->itcl_ClassCommonCmd)
01261 #endif
01262 #ifndef Itcl_ParseVarResolver
01263 #define Itcl_ParseVarResolver \
01264 (itclIntStubsPtr->itcl_ParseVarResolver)
01265 #endif
01266 #ifndef Itcl_BiInit
01267 #define Itcl_BiInit \
01268 (itclIntStubsPtr->itcl_BiInit)
01269 #endif
01270 #ifndef Itcl_InstallBiMethods
01271 #define Itcl_InstallBiMethods \
01272 (itclIntStubsPtr->itcl_InstallBiMethods)
01273 #endif
01274 #ifndef Itcl_BiIsaCmd
01275 #define Itcl_BiIsaCmd \
01276 (itclIntStubsPtr->itcl_BiIsaCmd)
01277 #endif
01278 #ifndef Itcl_BiConfigureCmd
01279 #define Itcl_BiConfigureCmd \
01280 (itclIntStubsPtr->itcl_BiConfigureCmd)
01281 #endif
01282 #ifndef Itcl_BiCgetCmd
01283 #define Itcl_BiCgetCmd \
01284 (itclIntStubsPtr->itcl_BiCgetCmd)
01285 #endif
01286 #ifndef Itcl_BiChainCmd
01287 #define Itcl_BiChainCmd \
01288 (itclIntStubsPtr->itcl_BiChainCmd)
01289 #endif
01290 #ifndef Itcl_BiInfoClassCmd
01291 #define Itcl_BiInfoClassCmd \
01292 (itclIntStubsPtr->itcl_BiInfoClassCmd)
01293 #endif
01294 #ifndef Itcl_BiInfoInheritCmd
01295 #define Itcl_BiInfoInheritCmd \
01296 (itclIntStubsPtr->itcl_BiInfoInheritCmd)
01297 #endif
01298 #ifndef Itcl_BiInfoHeritageCmd
01299 #define Itcl_BiInfoHeritageCmd \
01300 (itclIntStubsPtr->itcl_BiInfoHeritageCmd)
01301 #endif
01302 #ifndef Itcl_BiInfoFunctionCmd
01303 #define Itcl_BiInfoFunctionCmd \
01304 (itclIntStubsPtr->itcl_BiInfoFunctionCmd)
01305 #endif
01306 #ifndef Itcl_BiInfoVariableCmd
01307 #define Itcl_BiInfoVariableCmd \
01308 (itclIntStubsPtr->itcl_BiInfoVariableCmd)
01309 #endif
01310 #ifndef Itcl_BiInfoBodyCmd
01311 #define Itcl_BiInfoBodyCmd \
01312 (itclIntStubsPtr->itcl_BiInfoBodyCmd)
01313 #endif
01314 #ifndef Itcl_BiInfoArgsCmd
01315 #define Itcl_BiInfoArgsCmd \
01316 (itclIntStubsPtr->itcl_BiInfoArgsCmd)
01317 #endif
01318 #ifndef Itcl_DefaultInfoCmd
01319 #define Itcl_DefaultInfoCmd \
01320 (itclIntStubsPtr->itcl_DefaultInfoCmd)
01321 #endif
01322 #ifndef Itcl_EnsembleInit
01323 #define Itcl_EnsembleInit \
01324 (itclIntStubsPtr->itcl_EnsembleInit)
01325 #endif
01326 #ifndef Itcl_CreateEnsemble
01327 #define Itcl_CreateEnsemble \
01328 (itclIntStubsPtr->itcl_CreateEnsemble)
01329 #endif
01330 #ifndef Itcl_AddEnsemblePart
01331 #define Itcl_AddEnsemblePart \
01332 (itclIntStubsPtr->itcl_AddEnsemblePart)
01333 #endif
01334 #ifndef Itcl_GetEnsemblePart
01335 #define Itcl_GetEnsemblePart \
01336 (itclIntStubsPtr->itcl_GetEnsemblePart)
01337 #endif
01338 #ifndef Itcl_IsEnsemble
01339 #define Itcl_IsEnsemble \
01340 (itclIntStubsPtr->itcl_IsEnsemble)
01341 #endif
01342 #ifndef Itcl_GetEnsembleUsage
01343 #define Itcl_GetEnsembleUsage \
01344 (itclIntStubsPtr->itcl_GetEnsembleUsage)
01345 #endif
01346 #ifndef Itcl_GetEnsembleUsageForObj
01347 #define Itcl_GetEnsembleUsageForObj \
01348 (itclIntStubsPtr->itcl_GetEnsembleUsageForObj)
01349 #endif
01350 #ifndef Itcl_EnsembleCmd
01351 #define Itcl_EnsembleCmd \
01352 (itclIntStubsPtr->itcl_EnsembleCmd)
01353 #endif
01354 #ifndef Itcl_EnsPartCmd
01355 #define Itcl_EnsPartCmd \
01356 (itclIntStubsPtr->itcl_EnsPartCmd)
01357 #endif
01358 #ifndef Itcl_EnsembleErrorCmd
01359 #define Itcl_EnsembleErrorCmd \
01360 (itclIntStubsPtr->itcl_EnsembleErrorCmd)
01361 #endif
01362
01363
01364 #ifndef _Tcl_GetCallFrame
01365 #define _Tcl_GetCallFrame \
01366 (itclIntStubsPtr->_Tcl_GetCallFrame)
01367 #endif
01368 #ifndef _Tcl_ActivateCallFrame
01369 #define _Tcl_ActivateCallFrame \
01370 (itclIntStubsPtr->_Tcl_ActivateCallFrame)
01371 #endif
01372 #ifndef _TclNewVar
01373 #define _TclNewVar \
01374 (itclIntStubsPtr->_TclNewVar)
01375 #endif
01376 #ifndef Itcl_Assert
01377 #define Itcl_Assert \
01378 (itclIntStubsPtr->itcl_Assert)
01379 #endif
01380 #ifndef Itcl_IsObjectCmd
01381 #define Itcl_IsObjectCmd \
01382 (itclIntStubsPtr->itcl_IsObjectCmd)
01383 #endif
01384 #ifndef Itcl_IsClassCmd
01385 #define Itcl_IsClassCmd \
01386 (itclIntStubsPtr->itcl_IsClassCmd)
01387 #endif
01388
01389 #endif
01390
01391
01392
01393 #endif
01394
01395
01396
01397
01398
01399
01400
01401
01402
01403