Mercurial > repos > rliterman > csp2

annotate CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/itclDecls.h @ 69:33d812a61356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 2e9511a184a1ca667c7be0c6321a36dc4e3d116d
author jpayne
date Tue, 18 Mar 2025 17:55:14 -0400
parents
children
rev   line source
jpayne@69 1 /*
jpayne@69 2 * This file is (mostly) automatically generated from itcl.decls.
jpayne@69 3 */
jpayne@69 4
jpayne@69 5 #ifndef _ITCLDECLS
jpayne@69 6 #define _ITCLDECLS
jpayne@69 7
jpayne@69 8 #if defined(USE_ITCL_STUBS)
jpayne@69 9
jpayne@69 10 ITCLAPI const char *Itcl_InitStubs(
jpayne@69 11 Tcl_Interp *, const char *version, int exact);
jpayne@69 12 #else
jpayne@69 13
jpayne@69 14 #define Itcl_InitStubs(interp, version, exact) Tcl_PkgRequireEx(interp,"itcl",version,exact,NULL)
jpayne@69 15
jpayne@69 16 #endif
jpayne@69 17
jpayne@69 18
jpayne@69 19 /* !BEGIN!: Do not edit below this line. */
jpayne@69 20
jpayne@69 21 #define ITCL_STUBS_EPOCH 0
jpayne@69 22 #define ITCL_STUBS_REVISION 153
jpayne@69 23
jpayne@69 24 #ifdef __cplusplus
jpayne@69 25 extern "C" {
jpayne@69 26 #endif
jpayne@69 27
jpayne@69 28 /*
jpayne@69 29 * Exported function declarations:
jpayne@69 30 */
jpayne@69 31
jpayne@69 32 /* Slot 0 is reserved */
jpayne@69 33 /* Slot 1 is reserved */
jpayne@69 34 /* 2 */
jpayne@69 35 ITCLAPI int Itcl_RegisterC(Tcl_Interp *interp, const char *name,
jpayne@69 36 Tcl_CmdProc *proc, void *clientData,
jpayne@69 37 Tcl_CmdDeleteProc *deleteProc);
jpayne@69 38 /* 3 */
jpayne@69 39 ITCLAPI int Itcl_RegisterObjC(Tcl_Interp *interp,
jpayne@69 40 const char *name, Tcl_ObjCmdProc *proc,
jpayne@69 41 void *clientData,
jpayne@69 42 Tcl_CmdDeleteProc *deleteProc);
jpayne@69 43 /* 4 */
jpayne@69 44 ITCLAPI int Itcl_FindC(Tcl_Interp *interp, const char *name,
jpayne@69 45 Tcl_CmdProc **argProcPtr,
jpayne@69 46 Tcl_ObjCmdProc **objProcPtr, void **cDataPtr);
jpayne@69 47 /* 5 */
jpayne@69 48 ITCLAPI void Itcl_InitStack(Itcl_Stack *stack);
jpayne@69 49 /* 6 */
jpayne@69 50 ITCLAPI void Itcl_DeleteStack(Itcl_Stack *stack);
jpayne@69 51 /* 7 */
jpayne@69 52 ITCLAPI void Itcl_PushStack(void *cdata, Itcl_Stack *stack);
jpayne@69 53 /* 8 */
jpayne@69 54 ITCLAPI void * Itcl_PopStack(Itcl_Stack *stack);
jpayne@69 55 /* 9 */
jpayne@69 56 ITCLAPI void * Itcl_PeekStack(Itcl_Stack *stack);
jpayne@69 57 /* 10 */
jpayne@69 58 ITCLAPI void * Itcl_GetStackValue(Itcl_Stack *stack, int pos);
jpayne@69 59 /* 11 */
jpayne@69 60 ITCLAPI void Itcl_InitList(Itcl_List *listPtr);
jpayne@69 61 /* 12 */
jpayne@69 62 ITCLAPI void Itcl_DeleteList(Itcl_List *listPtr);
jpayne@69 63 /* 13 */
jpayne@69 64 ITCLAPI Itcl_ListElem * Itcl_CreateListElem(Itcl_List *listPtr);
jpayne@69 65 /* 14 */
jpayne@69 66 ITCLAPI Itcl_ListElem * Itcl_DeleteListElem(Itcl_ListElem *elemPtr);
jpayne@69 67 /* 15 */
jpayne@69 68 ITCLAPI Itcl_ListElem * Itcl_InsertList(Itcl_List *listPtr, void *val);
jpayne@69 69 /* 16 */
jpayne@69 70 ITCLAPI Itcl_ListElem * Itcl_InsertListElem(Itcl_ListElem *pos, void *val);
jpayne@69 71 /* 17 */
jpayne@69 72 ITCLAPI Itcl_ListElem * Itcl_AppendList(Itcl_List *listPtr, void *val);
jpayne@69 73 /* 18 */
jpayne@69 74 ITCLAPI Itcl_ListElem * Itcl_AppendListElem(Itcl_ListElem *pos, void *val);
jpayne@69 75 /* 19 */
jpayne@69 76 ITCLAPI void Itcl_SetListValue(Itcl_ListElem *elemPtr, void *val);
jpayne@69 77 /* 20 */
jpayne@69 78 ITCLAPI void Itcl_EventuallyFree(void *cdata, Tcl_FreeProc *fproc);
jpayne@69 79 /* 21 */
jpayne@69 80 ITCLAPI void Itcl_PreserveData(void *cdata);
jpayne@69 81 /* 22 */
jpayne@69 82 ITCLAPI void Itcl_ReleaseData(void *cdata);
jpayne@69 83 /* 23 */
jpayne@69 84 ITCLAPI Itcl_InterpState Itcl_SaveInterpState(Tcl_Interp *interp, int status);
jpayne@69 85 /* 24 */
jpayne@69 86 ITCLAPI int Itcl_RestoreInterpState(Tcl_Interp *interp,
jpayne@69 87 Itcl_InterpState state);
jpayne@69 88 /* 25 */
jpayne@69 89 ITCLAPI void Itcl_DiscardInterpState(Itcl_InterpState state);
jpayne@69 90 /* 26 */
jpayne@69 91 ITCLAPI void * Itcl_Alloc(size_t size);
jpayne@69 92 /* 27 */
jpayne@69 93 ITCLAPI void Itcl_Free(void *ptr);
jpayne@69 94 /* 28 */
jpayne@69 95 ITCLAPI void * ItclGetStackValue(Itcl_Stack *stack, size_t pos);
jpayne@69 96
jpayne@69 97 typedef struct {
jpayne@69 98 const struct ItclIntStubs *itclIntStubs;
jpayne@69 99 } ItclStubHooks;
jpayne@69 100
jpayne@69 101 typedef struct ItclStubs {
jpayne@69 102 int magic;
jpayne@69 103 int epoch;
jpayne@69 104 int revision;
jpayne@69 105 const ItclStubHooks *hooks;
jpayne@69 106
jpayne@69 107 void (*reserved0)(void);
jpayne@69 108 void (*reserved1)(void);
jpayne@69 109 int (*itcl_RegisterC) (Tcl_Interp *interp, const char *name, Tcl_CmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 2 */
jpayne@69 110 int (*itcl_RegisterObjC) (Tcl_Interp *interp, const char *name, Tcl_ObjCmdProc *proc, void *clientData, Tcl_CmdDeleteProc *deleteProc); /* 3 */
jpayne@69 111 int (*itcl_FindC) (Tcl_Interp *interp, const char *name, Tcl_CmdProc **argProcPtr, Tcl_ObjCmdProc **objProcPtr, void **cDataPtr); /* 4 */
jpayne@69 112 void (*itcl_InitStack) (Itcl_Stack *stack); /* 5 */
jpayne@69 113 void (*itcl_DeleteStack) (Itcl_Stack *stack); /* 6 */
jpayne@69 114 void (*itcl_PushStack) (void *cdata, Itcl_Stack *stack); /* 7 */
jpayne@69 115 void * (*itcl_PopStack) (Itcl_Stack *stack); /* 8 */
jpayne@69 116 void * (*itcl_PeekStack) (Itcl_Stack *stack); /* 9 */
jpayne@69 117 void * (*itcl_GetStackValue) (Itcl_Stack *stack, int pos); /* 10 */
jpayne@69 118 void (*itcl_InitList) (Itcl_List *listPtr); /* 11 */
jpayne@69 119 void (*itcl_DeleteList) (Itcl_List *listPtr); /* 12 */
jpayne@69 120 Itcl_ListElem * (*itcl_CreateListElem) (Itcl_List *listPtr); /* 13 */
jpayne@69 121 Itcl_ListElem * (*itcl_DeleteListElem) (Itcl_ListElem *elemPtr); /* 14 */
jpayne@69 122 Itcl_ListElem * (*itcl_InsertList) (Itcl_List *listPtr, void *val); /* 15 */
jpayne@69 123 Itcl_ListElem * (*itcl_InsertListElem) (Itcl_ListElem *pos, void *val); /* 16 */
jpayne@69 124 Itcl_ListElem * (*itcl_AppendList) (Itcl_List *listPtr, void *val); /* 17 */
jpayne@69 125 Itcl_ListElem * (*itcl_AppendListElem) (Itcl_ListElem *pos, void *val); /* 18 */
jpayne@69 126 void (*itcl_SetListValue) (Itcl_ListElem *elemPtr, void *val); /* 19 */
jpayne@69 127 void (*itcl_EventuallyFree) (void *cdata, Tcl_FreeProc *fproc); /* 20 */
jpayne@69 128 void (*itcl_PreserveData) (void *cdata); /* 21 */
jpayne@69 129 void (*itcl_ReleaseData) (void *cdata); /* 22 */
jpayne@69 130 Itcl_InterpState (*itcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 23 */
jpayne@69 131 int (*itcl_RestoreInterpState) (Tcl_Interp *interp, Itcl_InterpState state); /* 24 */
jpayne@69 132 void (*itcl_DiscardInterpState) (Itcl_InterpState state); /* 25 */
jpayne@69 133 void * (*itcl_Alloc) (size_t size); /* 26 */
jpayne@69 134 void (*itcl_Free) (void *ptr); /* 27 */
jpayne@69 135 void * (*itclGetStackValue) (Itcl_Stack *stack, size_t pos); /* 28 */
jpayne@69 136 } ItclStubs;
jpayne@69 137
jpayne@69 138 extern const ItclStubs *itclStubsPtr;
jpayne@69 139
jpayne@69 140 #ifdef __cplusplus
jpayne@69 141 }
jpayne@69 142 #endif
jpayne@69 143
jpayne@69 144 #if defined(USE_ITCL_STUBS)
jpayne@69 145
jpayne@69 146 /*
jpayne@69 147 * Inline function declarations:
jpayne@69 148 */
jpayne@69 149
jpayne@69 150 /* Slot 0 is reserved */
jpayne@69 151 /* Slot 1 is reserved */
jpayne@69 152 #define Itcl_RegisterC \
jpayne@69 153 (itclStubsPtr->itcl_RegisterC) /* 2 */
jpayne@69 154 #define Itcl_RegisterObjC \
jpayne@69 155 (itclStubsPtr->itcl_RegisterObjC) /* 3 */
jpayne@69 156 #define Itcl_FindC \
jpayne@69 157 (itclStubsPtr->itcl_FindC) /* 4 */
jpayne@69 158 #define Itcl_InitStack \
jpayne@69 159 (itclStubsPtr->itcl_InitStack) /* 5 */
jpayne@69 160 #define Itcl_DeleteStack \
jpayne@69 161 (itclStubsPtr->itcl_DeleteStack) /* 6 */
jpayne@69 162 #define Itcl_PushStack \
jpayne@69 163 (itclStubsPtr->itcl_PushStack) /* 7 */
jpayne@69 164 #define Itcl_PopStack \
jpayne@69 165 (itclStubsPtr->itcl_PopStack) /* 8 */
jpayne@69 166 #define Itcl_PeekStack \
jpayne@69 167 (itclStubsPtr->itcl_PeekStack) /* 9 */
jpayne@69 168 #define Itcl_GetStackValue \
jpayne@69 169 (itclStubsPtr->itcl_GetStackValue) /* 10 */
jpayne@69 170 #define Itcl_InitList \
jpayne@69 171 (itclStubsPtr->itcl_InitList) /* 11 */
jpayne@69 172 #define Itcl_DeleteList \
jpayne@69 173 (itclStubsPtr->itcl_DeleteList) /* 12 */
jpayne@69 174 #define Itcl_CreateListElem \
jpayne@69 175 (itclStubsPtr->itcl_CreateListElem) /* 13 */
jpayne@69 176 #define Itcl_DeleteListElem \
jpayne@69 177 (itclStubsPtr->itcl_DeleteListElem) /* 14 */
jpayne@69 178 #define Itcl_InsertList \
jpayne@69 179 (itclStubsPtr->itcl_InsertList) /* 15 */
jpayne@69 180 #define Itcl_InsertListElem \
jpayne@69 181 (itclStubsPtr->itcl_InsertListElem) /* 16 */
jpayne@69 182 #define Itcl_AppendList \
jpayne@69 183 (itclStubsPtr->itcl_AppendList) /* 17 */
jpayne@69 184 #define Itcl_AppendListElem \
jpayne@69 185 (itclStubsPtr->itcl_AppendListElem) /* 18 */
jpayne@69 186 #define Itcl_SetListValue \
jpayne@69 187 (itclStubsPtr->itcl_SetListValue) /* 19 */
jpayne@69 188 #define Itcl_EventuallyFree \
jpayne@69 189 (itclStubsPtr->itcl_EventuallyFree) /* 20 */
jpayne@69 190 #define Itcl_PreserveData \
jpayne@69 191 (itclStubsPtr->itcl_PreserveData) /* 21 */
jpayne@69 192 #define Itcl_ReleaseData \
jpayne@69 193 (itclStubsPtr->itcl_ReleaseData) /* 22 */
jpayne@69 194 #define Itcl_SaveInterpState \
jpayne@69 195 (itclStubsPtr->itcl_SaveInterpState) /* 23 */
jpayne@69 196 #define Itcl_RestoreInterpState \
jpayne@69 197 (itclStubsPtr->itcl_RestoreInterpState) /* 24 */
jpayne@69 198 #define Itcl_DiscardInterpState \
jpayne@69 199 (itclStubsPtr->itcl_DiscardInterpState) /* 25 */
jpayne@69 200 #define Itcl_Alloc \
jpayne@69 201 (itclStubsPtr->itcl_Alloc) /* 26 */
jpayne@69 202 #define Itcl_Free \
jpayne@69 203 (itclStubsPtr->itcl_Free) /* 27 */
jpayne@69 204 #define ItclGetStackValue \
jpayne@69 205 (itclStubsPtr->itclGetStackValue) /* 28 */
jpayne@69 206
jpayne@69 207 #endif /* defined(USE_ITCL_STUBS) */
jpayne@69 208
jpayne@69 209 /* !END!: Do not edit above this line. */
jpayne@69 210
jpayne@69 211 #if TCL_MAJOR_VERSION > 8
jpayne@69 212 # undef Itcl_GetStackValue
jpayne@69 213 # define Itcl_GetStackValue ItclGetStackValue
jpayne@69 214 #endif
jpayne@69 215
jpayne@69 216 #endif /* _ITCLDECLS */