Mercurial > repos > rliterman > csp2

annotate CSP2/CSP2_env/env-d9b9114564458d9d-741b3de822f2aaca6c6caa4325c4afce/include/tclDecls.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 * tclDecls.h --
jpayne@69 3 *
jpayne@69 4 * Declarations of functions in the platform independent public Tcl API.
jpayne@69 5 *
jpayne@69 6 * Copyright (c) 1998-1999 by Scriptics Corporation.
jpayne@69 7 *
jpayne@69 8 * See the file "license.terms" for information on usage and redistribution
jpayne@69 9 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
jpayne@69 10 */
jpayne@69 11
jpayne@69 12 #ifndef _TCLDECLS
jpayne@69 13 #define _TCLDECLS
jpayne@69 14
jpayne@69 15 #undef TCL_STORAGE_CLASS
jpayne@69 16 #ifdef BUILD_tcl
jpayne@69 17 # define TCL_STORAGE_CLASS DLLEXPORT
jpayne@69 18 #else
jpayne@69 19 # ifdef USE_TCL_STUBS
jpayne@69 20 # define TCL_STORAGE_CLASS
jpayne@69 21 # else
jpayne@69 22 # define TCL_STORAGE_CLASS DLLIMPORT
jpayne@69 23 # endif
jpayne@69 24 #endif
jpayne@69 25
jpayne@69 26 /*
jpayne@69 27 * WARNING: This file is automatically generated by the tools/genStubs.tcl
jpayne@69 28 * script. Any modifications to the function declarations below should be made
jpayne@69 29 * in the generic/tcl.decls script.
jpayne@69 30 */
jpayne@69 31
jpayne@69 32 /* !BEGIN!: Do not edit below this line. */
jpayne@69 33
jpayne@69 34 #ifdef __cplusplus
jpayne@69 35 extern "C" {
jpayne@69 36 #endif
jpayne@69 37
jpayne@69 38 /*
jpayne@69 39 * Exported function declarations:
jpayne@69 40 */
jpayne@69 41
jpayne@69 42 /* 0 */
jpayne@69 43 EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp,
jpayne@69 44 const char *name, const char *version,
jpayne@69 45 const void *clientData);
jpayne@69 46 /* 1 */
jpayne@69 47 EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp,
jpayne@69 48 const char *name, const char *version,
jpayne@69 49 int exact, void *clientDataPtr);
jpayne@69 50 /* 2 */
jpayne@69 51 EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
jpayne@69 52 /* 3 */
jpayne@69 53 EXTERN char * Tcl_Alloc(unsigned int size);
jpayne@69 54 /* 4 */
jpayne@69 55 EXTERN void Tcl_Free(char *ptr);
jpayne@69 56 /* 5 */
jpayne@69 57 EXTERN char * Tcl_Realloc(char *ptr, unsigned int size);
jpayne@69 58 /* 6 */
jpayne@69 59 EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file,
jpayne@69 60 int line);
jpayne@69 61 /* 7 */
jpayne@69 62 EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line);
jpayne@69 63 /* 8 */
jpayne@69 64 EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
jpayne@69 65 const char *file, int line);
jpayne@69 66 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 67 /* 9 */
jpayne@69 68 EXTERN void Tcl_CreateFileHandler(int fd, int mask,
jpayne@69 69 Tcl_FileProc *proc, ClientData clientData);
jpayne@69 70 #endif /* UNIX */
jpayne@69 71 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 72 /* 9 */
jpayne@69 73 EXTERN void Tcl_CreateFileHandler(int fd, int mask,
jpayne@69 74 Tcl_FileProc *proc, ClientData clientData);
jpayne@69 75 #endif /* MACOSX */
jpayne@69 76 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 77 /* 10 */
jpayne@69 78 EXTERN void Tcl_DeleteFileHandler(int fd);
jpayne@69 79 #endif /* UNIX */
jpayne@69 80 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 81 /* 10 */
jpayne@69 82 EXTERN void Tcl_DeleteFileHandler(int fd);
jpayne@69 83 #endif /* MACOSX */
jpayne@69 84 /* 11 */
jpayne@69 85 EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr);
jpayne@69 86 /* 12 */
jpayne@69 87 EXTERN void Tcl_Sleep(int ms);
jpayne@69 88 /* 13 */
jpayne@69 89 EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr);
jpayne@69 90 /* 14 */
jpayne@69 91 EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp,
jpayne@69 92 Tcl_Obj *objPtr);
jpayne@69 93 /* 15 */
jpayne@69 94 EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...);
jpayne@69 95 /* 16 */
jpayne@69 96 EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes,
jpayne@69 97 int length);
jpayne@69 98 /* 17 */
jpayne@69 99 EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]);
jpayne@69 100 /* 18 */
jpayne@69 101 EXTERN int Tcl_ConvertToType(Tcl_Interp *interp,
jpayne@69 102 Tcl_Obj *objPtr, const Tcl_ObjType *typePtr);
jpayne@69 103 /* 19 */
jpayne@69 104 EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file,
jpayne@69 105 int line);
jpayne@69 106 /* 20 */
jpayne@69 107 EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file,
jpayne@69 108 int line);
jpayne@69 109 /* 21 */
jpayne@69 110 EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file,
jpayne@69 111 int line);
jpayne@69 112 /* 22 */
jpayne@69 113 EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int intValue, const char *file,
jpayne@69 114 int line);
jpayne@69 115 /* 23 */
jpayne@69 116 EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes,
jpayne@69 117 int length, const char *file, int line);
jpayne@69 118 /* 24 */
jpayne@69 119 EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
jpayne@69 120 const char *file, int line);
jpayne@69 121 /* 25 */
jpayne@69 122 EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv,
jpayne@69 123 const char *file, int line);
jpayne@69 124 /* 26 */
jpayne@69 125 EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file,
jpayne@69 126 int line);
jpayne@69 127 /* 27 */
jpayne@69 128 EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line);
jpayne@69 129 /* 28 */
jpayne@69 130 EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length,
jpayne@69 131 const char *file, int line);
jpayne@69 132 /* 29 */
jpayne@69 133 EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr);
jpayne@69 134 /* 30 */
jpayne@69 135 EXTERN void TclFreeObj(Tcl_Obj *objPtr);
jpayne@69 136 /* 31 */
jpayne@69 137 EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src,
jpayne@69 138 int *intPtr);
jpayne@69 139 /* 32 */
jpayne@69 140 EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp,
jpayne@69 141 Tcl_Obj *objPtr, int *intPtr);
jpayne@69 142 /* 33 */
jpayne@69 143 EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr,
jpayne@69 144 int *lengthPtr);
jpayne@69 145 /* 34 */
jpayne@69 146 EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src,
jpayne@69 147 double *doublePtr);
jpayne@69 148 /* 35 */
jpayne@69 149 EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp,
jpayne@69 150 Tcl_Obj *objPtr, double *doublePtr);
jpayne@69 151 /* 36 */
jpayne@69 152 EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp,
jpayne@69 153 Tcl_Obj *objPtr,
jpayne@69 154 CONST84 char *const *tablePtr,
jpayne@69 155 const char *msg, int flags, int *indexPtr);
jpayne@69 156 /* 37 */
jpayne@69 157 EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src,
jpayne@69 158 int *intPtr);
jpayne@69 159 /* 38 */
jpayne@69 160 EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp,
jpayne@69 161 Tcl_Obj *objPtr, int *intPtr);
jpayne@69 162 /* 39 */
jpayne@69 163 EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp,
jpayne@69 164 Tcl_Obj *objPtr, long *longPtr);
jpayne@69 165 /* 40 */
jpayne@69 166 EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName);
jpayne@69 167 /* 41 */
jpayne@69 168 EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr);
jpayne@69 169 /* 42 */
jpayne@69 170 EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr);
jpayne@69 171 /* 43 */
jpayne@69 172 EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp,
jpayne@69 173 Tcl_Obj *listPtr, Tcl_Obj *elemListPtr);
jpayne@69 174 /* 44 */
jpayne@69 175 EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp,
jpayne@69 176 Tcl_Obj *listPtr, Tcl_Obj *objPtr);
jpayne@69 177 /* 45 */
jpayne@69 178 EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp,
jpayne@69 179 Tcl_Obj *listPtr, int *objcPtr,
jpayne@69 180 Tcl_Obj ***objvPtr);
jpayne@69 181 /* 46 */
jpayne@69 182 EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp,
jpayne@69 183 Tcl_Obj *listPtr, int index,
jpayne@69 184 Tcl_Obj **objPtrPtr);
jpayne@69 185 /* 47 */
jpayne@69 186 EXTERN int Tcl_ListObjLength(Tcl_Interp *interp,
jpayne@69 187 Tcl_Obj *listPtr, int *lengthPtr);
jpayne@69 188 /* 48 */
jpayne@69 189 EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp,
jpayne@69 190 Tcl_Obj *listPtr, int first, int count,
jpayne@69 191 int objc, Tcl_Obj *const objv[]);
jpayne@69 192 /* 49 */
jpayne@69 193 EXTERN Tcl_Obj * Tcl_NewBooleanObj(int intValue);
jpayne@69 194 /* 50 */
jpayne@69 195 EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes,
jpayne@69 196 int length);
jpayne@69 197 /* 51 */
jpayne@69 198 EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue);
jpayne@69 199 /* 52 */
jpayne@69 200 EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue);
jpayne@69 201 /* 53 */
jpayne@69 202 EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]);
jpayne@69 203 /* 54 */
jpayne@69 204 EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue);
jpayne@69 205 /* 55 */
jpayne@69 206 EXTERN Tcl_Obj * Tcl_NewObj(void);
jpayne@69 207 /* 56 */
jpayne@69 208 EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length);
jpayne@69 209 /* 57 */
jpayne@69 210 EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int intValue);
jpayne@69 211 /* 58 */
jpayne@69 212 EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int numBytes);
jpayne@69 213 /* 59 */
jpayne@69 214 EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr,
jpayne@69 215 const unsigned char *bytes, int numBytes);
jpayne@69 216 /* 60 */
jpayne@69 217 EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue);
jpayne@69 218 /* 61 */
jpayne@69 219 EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue);
jpayne@69 220 /* 62 */
jpayne@69 221 EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc,
jpayne@69 222 Tcl_Obj *const objv[]);
jpayne@69 223 /* 63 */
jpayne@69 224 EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue);
jpayne@69 225 /* 64 */
jpayne@69 226 EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length);
jpayne@69 227 /* 65 */
jpayne@69 228 EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes,
jpayne@69 229 int length);
jpayne@69 230 /* 66 */
jpayne@69 231 EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp,
jpayne@69 232 const char *message);
jpayne@69 233 /* 67 */
jpayne@69 234 EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp,
jpayne@69 235 const char *message, int length);
jpayne@69 236 /* 68 */
jpayne@69 237 EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp);
jpayne@69 238 /* 69 */
jpayne@69 239 EXTERN void Tcl_AppendElement(Tcl_Interp *interp,
jpayne@69 240 const char *element);
jpayne@69 241 /* 70 */
jpayne@69 242 EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...);
jpayne@69 243 /* 71 */
jpayne@69 244 EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
jpayne@69 245 ClientData clientData);
jpayne@69 246 /* 72 */
jpayne@69 247 EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async);
jpayne@69 248 /* 73 */
jpayne@69 249 EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code);
jpayne@69 250 /* 74 */
jpayne@69 251 EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async);
jpayne@69 252 /* 75 */
jpayne@69 253 EXTERN int Tcl_AsyncReady(void);
jpayne@69 254 /* 76 */
jpayne@69 255 EXTERN void Tcl_BackgroundError(Tcl_Interp *interp);
jpayne@69 256 /* 77 */
jpayne@69 257 EXTERN char Tcl_Backslash(const char *src, int *readPtr);
jpayne@69 258 /* 78 */
jpayne@69 259 EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp,
jpayne@69 260 const char *optionName,
jpayne@69 261 const char *optionList);
jpayne@69 262 /* 79 */
jpayne@69 263 EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp,
jpayne@69 264 Tcl_InterpDeleteProc *proc,
jpayne@69 265 ClientData clientData);
jpayne@69 266 /* 80 */
jpayne@69 267 EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc,
jpayne@69 268 ClientData clientData);
jpayne@69 269 /* 81 */
jpayne@69 270 EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan);
jpayne@69 271 /* 82 */
jpayne@69 272 EXTERN int Tcl_CommandComplete(const char *cmd);
jpayne@69 273 /* 83 */
jpayne@69 274 EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv);
jpayne@69 275 /* 84 */
jpayne@69 276 EXTERN int Tcl_ConvertElement(const char *src, char *dst,
jpayne@69 277 int flags);
jpayne@69 278 /* 85 */
jpayne@69 279 EXTERN int Tcl_ConvertCountedElement(const char *src,
jpayne@69 280 int length, char *dst, int flags);
jpayne@69 281 /* 86 */
jpayne@69 282 EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp,
jpayne@69 283 const char *childCmd, Tcl_Interp *target,
jpayne@69 284 const char *targetCmd, int argc,
jpayne@69 285 CONST84 char *const *argv);
jpayne@69 286 /* 87 */
jpayne@69 287 EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp,
jpayne@69 288 const char *childCmd, Tcl_Interp *target,
jpayne@69 289 const char *targetCmd, int objc,
jpayne@69 290 Tcl_Obj *const objv[]);
jpayne@69 291 /* 88 */
jpayne@69 292 EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr,
jpayne@69 293 const char *chanName,
jpayne@69 294 ClientData instanceData, int mask);
jpayne@69 295 /* 89 */
jpayne@69 296 EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
jpayne@69 297 Tcl_ChannelProc *proc, ClientData clientData);
jpayne@69 298 /* 90 */
jpayne@69 299 EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan,
jpayne@69 300 Tcl_CloseProc *proc, ClientData clientData);
jpayne@69 301 /* 91 */
jpayne@69 302 EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp,
jpayne@69 303 const char *cmdName, Tcl_CmdProc *proc,
jpayne@69 304 ClientData clientData,
jpayne@69 305 Tcl_CmdDeleteProc *deleteProc);
jpayne@69 306 /* 92 */
jpayne@69 307 EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
jpayne@69 308 Tcl_EventCheckProc *checkProc,
jpayne@69 309 ClientData clientData);
jpayne@69 310 /* 93 */
jpayne@69 311 EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc,
jpayne@69 312 ClientData clientData);
jpayne@69 313 /* 94 */
jpayne@69 314 EXTERN Tcl_Interp * Tcl_CreateInterp(void);
jpayne@69 315 /* 95 */
jpayne@69 316 EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp,
jpayne@69 317 const char *name, int numArgs,
jpayne@69 318 Tcl_ValueType *argTypes, Tcl_MathProc *proc,
jpayne@69 319 ClientData clientData);
jpayne@69 320 /* 96 */
jpayne@69 321 EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
jpayne@69 322 const char *cmdName, Tcl_ObjCmdProc *proc,
jpayne@69 323 ClientData clientData,
jpayne@69 324 Tcl_CmdDeleteProc *deleteProc);
jpayne@69 325 /* 97 */
jpayne@69 326 EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, const char *name,
jpayne@69 327 int isSafe);
jpayne@69 328 /* 98 */
jpayne@69 329 EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
jpayne@69 330 Tcl_TimerProc *proc, ClientData clientData);
jpayne@69 331 /* 99 */
jpayne@69 332 EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
jpayne@69 333 Tcl_CmdTraceProc *proc,
jpayne@69 334 ClientData clientData);
jpayne@69 335 /* 100 */
jpayne@69 336 EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp,
jpayne@69 337 const char *name);
jpayne@69 338 /* 101 */
jpayne@69 339 EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan,
jpayne@69 340 Tcl_ChannelProc *proc, ClientData clientData);
jpayne@69 341 /* 102 */
jpayne@69 342 EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan,
jpayne@69 343 Tcl_CloseProc *proc, ClientData clientData);
jpayne@69 344 /* 103 */
jpayne@69 345 EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp,
jpayne@69 346 const char *cmdName);
jpayne@69 347 /* 104 */
jpayne@69 348 EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp,
jpayne@69 349 Tcl_Command command);
jpayne@69 350 /* 105 */
jpayne@69 351 EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc,
jpayne@69 352 ClientData clientData);
jpayne@69 353 /* 106 */
jpayne@69 354 EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
jpayne@69 355 Tcl_EventCheckProc *checkProc,
jpayne@69 356 ClientData clientData);
jpayne@69 357 /* 107 */
jpayne@69 358 EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc,
jpayne@69 359 ClientData clientData);
jpayne@69 360 /* 108 */
jpayne@69 361 EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr);
jpayne@69 362 /* 109 */
jpayne@69 363 EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr);
jpayne@69 364 /* 110 */
jpayne@69 365 EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp);
jpayne@69 366 /* 111 */
jpayne@69 367 EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr);
jpayne@69 368 /* 112 */
jpayne@69 369 EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token);
jpayne@69 370 /* 113 */
jpayne@69 371 EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace);
jpayne@69 372 /* 114 */
jpayne@69 373 EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
jpayne@69 374 Tcl_InterpDeleteProc *proc,
jpayne@69 375 ClientData clientData);
jpayne@69 376 /* 115 */
jpayne@69 377 EXTERN int Tcl_DoOneEvent(int flags);
jpayne@69 378 /* 116 */
jpayne@69 379 EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc,
jpayne@69 380 ClientData clientData);
jpayne@69 381 /* 117 */
jpayne@69 382 EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr,
jpayne@69 383 const char *bytes, int length);
jpayne@69 384 /* 118 */
jpayne@69 385 EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr,
jpayne@69 386 const char *element);
jpayne@69 387 /* 119 */
jpayne@69 388 EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr);
jpayne@69 389 /* 120 */
jpayne@69 390 EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr);
jpayne@69 391 /* 121 */
jpayne@69 392 EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp,
jpayne@69 393 Tcl_DString *dsPtr);
jpayne@69 394 /* 122 */
jpayne@69 395 EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr);
jpayne@69 396 /* 123 */
jpayne@69 397 EXTERN void Tcl_DStringResult(Tcl_Interp *interp,
jpayne@69 398 Tcl_DString *dsPtr);
jpayne@69 399 /* 124 */
jpayne@69 400 EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length);
jpayne@69 401 /* 125 */
jpayne@69 402 EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr);
jpayne@69 403 /* 126 */
jpayne@69 404 EXTERN int Tcl_Eof(Tcl_Channel chan);
jpayne@69 405 /* 127 */
jpayne@69 406 EXTERN CONST84_RETURN char * Tcl_ErrnoId(void);
jpayne@69 407 /* 128 */
jpayne@69 408 EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err);
jpayne@69 409 /* 129 */
jpayne@69 410 EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script);
jpayne@69 411 /* 130 */
jpayne@69 412 EXTERN int Tcl_EvalFile(Tcl_Interp *interp,
jpayne@69 413 const char *fileName);
jpayne@69 414 /* 131 */
jpayne@69 415 EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr);
jpayne@69 416 /* 132 */
jpayne@69 417 EXTERN void Tcl_EventuallyFree(ClientData clientData,
jpayne@69 418 Tcl_FreeProc *freeProc);
jpayne@69 419 /* 133 */
jpayne@69 420 EXTERN TCL_NORETURN void Tcl_Exit(int status);
jpayne@69 421 /* 134 */
jpayne@69 422 EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp,
jpayne@69 423 const char *hiddenCmdToken,
jpayne@69 424 const char *cmdName);
jpayne@69 425 /* 135 */
jpayne@69 426 EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr,
jpayne@69 427 int *ptr);
jpayne@69 428 /* 136 */
jpayne@69 429 EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp,
jpayne@69 430 Tcl_Obj *objPtr, int *ptr);
jpayne@69 431 /* 137 */
jpayne@69 432 EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr,
jpayne@69 433 double *ptr);
jpayne@69 434 /* 138 */
jpayne@69 435 EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp,
jpayne@69 436 Tcl_Obj *objPtr, double *ptr);
jpayne@69 437 /* 139 */
jpayne@69 438 EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr,
jpayne@69 439 long *ptr);
jpayne@69 440 /* 140 */
jpayne@69 441 EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 442 long *ptr);
jpayne@69 443 /* 141 */
jpayne@69 444 EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 445 Tcl_Obj **resultPtrPtr);
jpayne@69 446 /* 142 */
jpayne@69 447 EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr);
jpayne@69 448 /* 143 */
jpayne@69 449 EXTERN void Tcl_Finalize(void);
jpayne@69 450 /* 144 */
jpayne@69 451 EXTERN void Tcl_FindExecutable(const char *argv0);
jpayne@69 452 /* 145 */
jpayne@69 453 EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
jpayne@69 454 Tcl_HashSearch *searchPtr);
jpayne@69 455 /* 146 */
jpayne@69 456 EXTERN int Tcl_Flush(Tcl_Channel chan);
jpayne@69 457 /* 147 */
jpayne@69 458 EXTERN void Tcl_FreeResult(Tcl_Interp *interp);
jpayne@69 459 /* 148 */
jpayne@69 460 EXTERN int Tcl_GetAlias(Tcl_Interp *interp,
jpayne@69 461 const char *childCmd,
jpayne@69 462 Tcl_Interp **targetInterpPtr,
jpayne@69 463 CONST84 char **targetCmdPtr, int *argcPtr,
jpayne@69 464 CONST84 char ***argvPtr);
jpayne@69 465 /* 149 */
jpayne@69 466 EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp,
jpayne@69 467 const char *childCmd,
jpayne@69 468 Tcl_Interp **targetInterpPtr,
jpayne@69 469 CONST84 char **targetCmdPtr, int *objcPtr,
jpayne@69 470 Tcl_Obj ***objv);
jpayne@69 471 /* 150 */
jpayne@69 472 EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp,
jpayne@69 473 const char *name,
jpayne@69 474 Tcl_InterpDeleteProc **procPtr);
jpayne@69 475 /* 151 */
jpayne@69 476 EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp,
jpayne@69 477 const char *chanName, int *modePtr);
jpayne@69 478 /* 152 */
jpayne@69 479 EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan);
jpayne@69 480 /* 153 */
jpayne@69 481 EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
jpayne@69 482 ClientData *handlePtr);
jpayne@69 483 /* 154 */
jpayne@69 484 EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan);
jpayne@69 485 /* 155 */
jpayne@69 486 EXTERN int Tcl_GetChannelMode(Tcl_Channel chan);
jpayne@69 487 /* 156 */
jpayne@69 488 EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan);
jpayne@69 489 /* 157 */
jpayne@69 490 EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp,
jpayne@69 491 Tcl_Channel chan, const char *optionName,
jpayne@69 492 Tcl_DString *dsPtr);
jpayne@69 493 /* 158 */
jpayne@69 494 EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan);
jpayne@69 495 /* 159 */
jpayne@69 496 EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp,
jpayne@69 497 const char *cmdName, Tcl_CmdInfo *infoPtr);
jpayne@69 498 /* 160 */
jpayne@69 499 EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
jpayne@69 500 Tcl_Command command);
jpayne@69 501 /* 161 */
jpayne@69 502 EXTERN int Tcl_GetErrno(void);
jpayne@69 503 /* 162 */
jpayne@69 504 EXTERN CONST84_RETURN char * Tcl_GetHostName(void);
jpayne@69 505 /* 163 */
jpayne@69 506 EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp,
jpayne@69 507 Tcl_Interp *childInterp);
jpayne@69 508 /* 164 */
jpayne@69 509 EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp);
jpayne@69 510 /* 165 */
jpayne@69 511 EXTERN const char * Tcl_GetNameOfExecutable(void);
jpayne@69 512 /* 166 */
jpayne@69 513 EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp);
jpayne@69 514 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 515 /* 167 */
jpayne@69 516 EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
jpayne@69 517 const char *chanID, int forWriting,
jpayne@69 518 int checkUsage, ClientData *filePtr);
jpayne@69 519 #endif /* UNIX */
jpayne@69 520 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 521 /* 167 */
jpayne@69 522 EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp,
jpayne@69 523 const char *chanID, int forWriting,
jpayne@69 524 int checkUsage, ClientData *filePtr);
jpayne@69 525 #endif /* MACOSX */
jpayne@69 526 /* 168 */
jpayne@69 527 EXTERN Tcl_PathType Tcl_GetPathType(const char *path);
jpayne@69 528 /* 169 */
jpayne@69 529 EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr);
jpayne@69 530 /* 170 */
jpayne@69 531 EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr);
jpayne@69 532 /* 171 */
jpayne@69 533 EXTERN int Tcl_GetServiceMode(void);
jpayne@69 534 /* 172 */
jpayne@69 535 EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, const char *name);
jpayne@69 536 /* 173 */
jpayne@69 537 EXTERN Tcl_Channel Tcl_GetStdChannel(int type);
jpayne@69 538 /* 174 */
jpayne@69 539 EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp);
jpayne@69 540 /* 175 */
jpayne@69 541 EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp,
jpayne@69 542 const char *varName, int flags);
jpayne@69 543 /* 176 */
jpayne@69 544 EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp,
jpayne@69 545 const char *part1, const char *part2,
jpayne@69 546 int flags);
jpayne@69 547 /* 177 */
jpayne@69 548 EXTERN int Tcl_GlobalEval(Tcl_Interp *interp,
jpayne@69 549 const char *command);
jpayne@69 550 /* 178 */
jpayne@69 551 EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp,
jpayne@69 552 Tcl_Obj *objPtr);
jpayne@69 553 /* 179 */
jpayne@69 554 EXTERN int Tcl_HideCommand(Tcl_Interp *interp,
jpayne@69 555 const char *cmdName,
jpayne@69 556 const char *hiddenCmdToken);
jpayne@69 557 /* 180 */
jpayne@69 558 EXTERN int Tcl_Init(Tcl_Interp *interp);
jpayne@69 559 /* 181 */
jpayne@69 560 EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr,
jpayne@69 561 int keyType);
jpayne@69 562 /* 182 */
jpayne@69 563 EXTERN int Tcl_InputBlocked(Tcl_Channel chan);
jpayne@69 564 /* 183 */
jpayne@69 565 EXTERN int Tcl_InputBuffered(Tcl_Channel chan);
jpayne@69 566 /* 184 */
jpayne@69 567 EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp);
jpayne@69 568 /* 185 */
jpayne@69 569 EXTERN int Tcl_IsSafe(Tcl_Interp *interp);
jpayne@69 570 /* 186 */
jpayne@69 571 EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv,
jpayne@69 572 Tcl_DString *resultPtr);
jpayne@69 573 /* 187 */
jpayne@69 574 EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName,
jpayne@69 575 char *addr, int type);
jpayne@69 576 /* Slot 188 is reserved */
jpayne@69 577 /* 189 */
jpayne@69 578 EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode);
jpayne@69 579 /* 190 */
jpayne@69 580 EXTERN int Tcl_MakeSafe(Tcl_Interp *interp);
jpayne@69 581 /* 191 */
jpayne@69 582 EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket);
jpayne@69 583 /* 192 */
jpayne@69 584 EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv);
jpayne@69 585 /* 193 */
jpayne@69 586 EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr);
jpayne@69 587 /* 194 */
jpayne@69 588 EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask);
jpayne@69 589 /* 195 */
jpayne@69 590 EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
jpayne@69 591 Tcl_Obj *part2Ptr, int flags);
jpayne@69 592 /* 196 */
jpayne@69 593 EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
jpayne@69 594 Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr,
jpayne@69 595 int flags);
jpayne@69 596 /* 197 */
jpayne@69 597 EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
jpayne@69 598 CONST84 char **argv, int flags);
jpayne@69 599 /* 198 */
jpayne@69 600 EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp,
jpayne@69 601 const char *fileName, const char *modeString,
jpayne@69 602 int permissions);
jpayne@69 603 /* 199 */
jpayne@69 604 EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
jpayne@69 605 const char *address, const char *myaddr,
jpayne@69 606 int myport, int flags);
jpayne@69 607 /* 200 */
jpayne@69 608 EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
jpayne@69 609 const char *host,
jpayne@69 610 Tcl_TcpAcceptProc *acceptProc,
jpayne@69 611 ClientData callbackData);
jpayne@69 612 /* 201 */
jpayne@69 613 EXTERN void Tcl_Preserve(ClientData data);
jpayne@69 614 /* 202 */
jpayne@69 615 EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value,
jpayne@69 616 char *dst);
jpayne@69 617 /* 203 */
jpayne@69 618 EXTERN int Tcl_PutEnv(const char *assignment);
jpayne@69 619 /* 204 */
jpayne@69 620 EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp);
jpayne@69 621 /* 205 */
jpayne@69 622 EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr,
jpayne@69 623 Tcl_QueuePosition position);
jpayne@69 624 /* 206 */
jpayne@69 625 EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead);
jpayne@69 626 /* 207 */
jpayne@69 627 EXTERN void Tcl_ReapDetachedProcs(void);
jpayne@69 628 /* 208 */
jpayne@69 629 EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp,
jpayne@69 630 const char *cmd, int flags);
jpayne@69 631 /* 209 */
jpayne@69 632 EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp,
jpayne@69 633 Tcl_Obj *cmdPtr, int flags);
jpayne@69 634 /* 210 */
jpayne@69 635 EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp,
jpayne@69 636 Tcl_Channel chan);
jpayne@69 637 /* 211 */
jpayne@69 638 EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr);
jpayne@69 639 /* 212 */
jpayne@69 640 EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp,
jpayne@69 641 const char *pattern);
jpayne@69 642 /* 213 */
jpayne@69 643 EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
jpayne@69 644 const char *text, const char *start);
jpayne@69 645 /* 214 */
jpayne@69 646 EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text,
jpayne@69 647 const char *pattern);
jpayne@69 648 /* 215 */
jpayne@69 649 EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
jpayne@69 650 CONST84 char **startPtr,
jpayne@69 651 CONST84 char **endPtr);
jpayne@69 652 /* 216 */
jpayne@69 653 EXTERN void Tcl_Release(ClientData clientData);
jpayne@69 654 /* 217 */
jpayne@69 655 EXTERN void Tcl_ResetResult(Tcl_Interp *interp);
jpayne@69 656 /* 218 */
jpayne@69 657 EXTERN int Tcl_ScanElement(const char *src, int *flagPtr);
jpayne@69 658 /* 219 */
jpayne@69 659 EXTERN int Tcl_ScanCountedElement(const char *src, int length,
jpayne@69 660 int *flagPtr);
jpayne@69 661 /* 220 */
jpayne@69 662 EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode);
jpayne@69 663 /* 221 */
jpayne@69 664 EXTERN int Tcl_ServiceAll(void);
jpayne@69 665 /* 222 */
jpayne@69 666 EXTERN int Tcl_ServiceEvent(int flags);
jpayne@69 667 /* 223 */
jpayne@69 668 EXTERN void Tcl_SetAssocData(Tcl_Interp *interp,
jpayne@69 669 const char *name, Tcl_InterpDeleteProc *proc,
jpayne@69 670 ClientData clientData);
jpayne@69 671 /* 224 */
jpayne@69 672 EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz);
jpayne@69 673 /* 225 */
jpayne@69 674 EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp,
jpayne@69 675 Tcl_Channel chan, const char *optionName,
jpayne@69 676 const char *newValue);
jpayne@69 677 /* 226 */
jpayne@69 678 EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp,
jpayne@69 679 const char *cmdName,
jpayne@69 680 const Tcl_CmdInfo *infoPtr);
jpayne@69 681 /* 227 */
jpayne@69 682 EXTERN void Tcl_SetErrno(int err);
jpayne@69 683 /* 228 */
jpayne@69 684 EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...);
jpayne@69 685 /* 229 */
jpayne@69 686 EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr);
jpayne@69 687 /* 230 */
jpayne@69 688 EXTERN void Tcl_SetPanicProc(
jpayne@69 689 TCL_NORETURN1 Tcl_PanicProc *panicProc);
jpayne@69 690 /* 231 */
jpayne@69 691 EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth);
jpayne@69 692 /* 232 */
jpayne@69 693 EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result,
jpayne@69 694 Tcl_FreeProc *freeProc);
jpayne@69 695 /* 233 */
jpayne@69 696 EXTERN int Tcl_SetServiceMode(int mode);
jpayne@69 697 /* 234 */
jpayne@69 698 EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp,
jpayne@69 699 Tcl_Obj *errorObjPtr);
jpayne@69 700 /* 235 */
jpayne@69 701 EXTERN void Tcl_SetObjResult(Tcl_Interp *interp,
jpayne@69 702 Tcl_Obj *resultObjPtr);
jpayne@69 703 /* 236 */
jpayne@69 704 EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type);
jpayne@69 705 /* 237 */
jpayne@69 706 EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp,
jpayne@69 707 const char *varName, const char *newValue,
jpayne@69 708 int flags);
jpayne@69 709 /* 238 */
jpayne@69 710 EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp,
jpayne@69 711 const char *part1, const char *part2,
jpayne@69 712 const char *newValue, int flags);
jpayne@69 713 /* 239 */
jpayne@69 714 EXTERN CONST84_RETURN char * Tcl_SignalId(int sig);
jpayne@69 715 /* 240 */
jpayne@69 716 EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig);
jpayne@69 717 /* 241 */
jpayne@69 718 EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp);
jpayne@69 719 /* 242 */
jpayne@69 720 EXTERN int Tcl_SplitList(Tcl_Interp *interp,
jpayne@69 721 const char *listStr, int *argcPtr,
jpayne@69 722 CONST84 char ***argvPtr);
jpayne@69 723 /* 243 */
jpayne@69 724 EXTERN void Tcl_SplitPath(const char *path, int *argcPtr,
jpayne@69 725 CONST84 char ***argvPtr);
jpayne@69 726 /* 244 */
jpayne@69 727 EXTERN void Tcl_StaticPackage(Tcl_Interp *interp,
jpayne@69 728 const char *prefix,
jpayne@69 729 Tcl_PackageInitProc *initProc,
jpayne@69 730 Tcl_PackageInitProc *safeInitProc);
jpayne@69 731 /* 245 */
jpayne@69 732 EXTERN int Tcl_StringMatch(const char *str, const char *pattern);
jpayne@69 733 /* 246 */
jpayne@69 734 EXTERN int Tcl_TellOld(Tcl_Channel chan);
jpayne@69 735 /* 247 */
jpayne@69 736 EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName,
jpayne@69 737 int flags, Tcl_VarTraceProc *proc,
jpayne@69 738 ClientData clientData);
jpayne@69 739 /* 248 */
jpayne@69 740 EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1,
jpayne@69 741 const char *part2, int flags,
jpayne@69 742 Tcl_VarTraceProc *proc,
jpayne@69 743 ClientData clientData);
jpayne@69 744 /* 249 */
jpayne@69 745 EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp,
jpayne@69 746 const char *name, Tcl_DString *bufferPtr);
jpayne@69 747 /* 250 */
jpayne@69 748 EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str,
jpayne@69 749 int len, int atHead);
jpayne@69 750 /* 251 */
jpayne@69 751 EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp,
jpayne@69 752 const char *varName);
jpayne@69 753 /* 252 */
jpayne@69 754 EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp,
jpayne@69 755 Tcl_Channel chan);
jpayne@69 756 /* 253 */
jpayne@69 757 EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName,
jpayne@69 758 int flags);
jpayne@69 759 /* 254 */
jpayne@69 760 EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1,
jpayne@69 761 const char *part2, int flags);
jpayne@69 762 /* 255 */
jpayne@69 763 EXTERN void Tcl_UntraceVar(Tcl_Interp *interp,
jpayne@69 764 const char *varName, int flags,
jpayne@69 765 Tcl_VarTraceProc *proc,
jpayne@69 766 ClientData clientData);
jpayne@69 767 /* 256 */
jpayne@69 768 EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp,
jpayne@69 769 const char *part1, const char *part2,
jpayne@69 770 int flags, Tcl_VarTraceProc *proc,
jpayne@69 771 ClientData clientData);
jpayne@69 772 /* 257 */
jpayne@69 773 EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp,
jpayne@69 774 const char *varName);
jpayne@69 775 /* 258 */
jpayne@69 776 EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName,
jpayne@69 777 const char *varName, const char *localName,
jpayne@69 778 int flags);
jpayne@69 779 /* 259 */
jpayne@69 780 EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName,
jpayne@69 781 const char *part1, const char *part2,
jpayne@69 782 const char *localName, int flags);
jpayne@69 783 /* 260 */
jpayne@69 784 EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...);
jpayne@69 785 /* 261 */
jpayne@69 786 EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp,
jpayne@69 787 const char *varName, int flags,
jpayne@69 788 Tcl_VarTraceProc *procPtr,
jpayne@69 789 ClientData prevClientData);
jpayne@69 790 /* 262 */
jpayne@69 791 EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp,
jpayne@69 792 const char *part1, const char *part2,
jpayne@69 793 int flags, Tcl_VarTraceProc *procPtr,
jpayne@69 794 ClientData prevClientData);
jpayne@69 795 /* 263 */
jpayne@69 796 EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen);
jpayne@69 797 /* 264 */
jpayne@69 798 EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
jpayne@69 799 Tcl_Obj *const objv[], const char *message);
jpayne@69 800 /* 265 */
jpayne@69 801 EXTERN int Tcl_DumpActiveMemory(const char *fileName);
jpayne@69 802 /* 266 */
jpayne@69 803 EXTERN void Tcl_ValidateAllMemory(const char *file, int line);
jpayne@69 804 /* 267 */
jpayne@69 805 EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp,
jpayne@69 806 va_list argList);
jpayne@69 807 /* 268 */
jpayne@69 808 EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr,
jpayne@69 809 va_list argList);
jpayne@69 810 /* 269 */
jpayne@69 811 EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr);
jpayne@69 812 /* 270 */
jpayne@69 813 EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp,
jpayne@69 814 const char *start, CONST84 char **termPtr);
jpayne@69 815 /* 271 */
jpayne@69 816 EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp,
jpayne@69 817 const char *name, const char *version,
jpayne@69 818 int exact);
jpayne@69 819 /* 272 */
jpayne@69 820 EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp,
jpayne@69 821 const char *name, const char *version,
jpayne@69 822 int exact, void *clientDataPtr);
jpayne@69 823 /* 273 */
jpayne@69 824 EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name,
jpayne@69 825 const char *version);
jpayne@69 826 /* 274 */
jpayne@69 827 EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp,
jpayne@69 828 const char *name, const char *version,
jpayne@69 829 int exact);
jpayne@69 830 /* 275 */
jpayne@69 831 EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp,
jpayne@69 832 va_list argList);
jpayne@69 833 /* 276 */
jpayne@69 834 EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList);
jpayne@69 835 /* 277 */
jpayne@69 836 EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options);
jpayne@69 837 /* 278 */
jpayne@69 838 EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList);
jpayne@69 839 /* 279 */
jpayne@69 840 EXTERN void Tcl_GetVersion(int *major, int *minor,
jpayne@69 841 int *patchLevel, int *type);
jpayne@69 842 /* 280 */
jpayne@69 843 EXTERN void Tcl_InitMemory(Tcl_Interp *interp);
jpayne@69 844 /* 281 */
jpayne@69 845 EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp,
jpayne@69 846 const Tcl_ChannelType *typePtr,
jpayne@69 847 ClientData instanceData, int mask,
jpayne@69 848 Tcl_Channel prevChan);
jpayne@69 849 /* 282 */
jpayne@69 850 EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp,
jpayne@69 851 Tcl_Channel chan);
jpayne@69 852 /* 283 */
jpayne@69 853 EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan);
jpayne@69 854 /* 284 */
jpayne@69 855 EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc);
jpayne@69 856 /* Slot 285 is reserved */
jpayne@69 857 /* 286 */
jpayne@69 858 EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr,
jpayne@69 859 Tcl_Obj *appendObjPtr);
jpayne@69 860 /* 287 */
jpayne@69 861 EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr);
jpayne@69 862 /* 288 */
jpayne@69 863 EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc,
jpayne@69 864 ClientData clientData);
jpayne@69 865 /* 289 */
jpayne@69 866 EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc,
jpayne@69 867 ClientData clientData);
jpayne@69 868 /* 290 */
jpayne@69 869 EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr);
jpayne@69 870 /* 291 */
jpayne@69 871 EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script,
jpayne@69 872 int numBytes, int flags);
jpayne@69 873 /* 292 */
jpayne@69 874 EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc,
jpayne@69 875 Tcl_Obj *const objv[], int flags);
jpayne@69 876 /* 293 */
jpayne@69 877 EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 878 int flags);
jpayne@69 879 /* 294 */
jpayne@69 880 EXTERN void Tcl_ExitThread(int status);
jpayne@69 881 /* 295 */
jpayne@69 882 EXTERN int Tcl_ExternalToUtf(Tcl_Interp *interp,
jpayne@69 883 Tcl_Encoding encoding, const char *src,
jpayne@69 884 int srcLen, int flags,
jpayne@69 885 Tcl_EncodingState *statePtr, char *dst,
jpayne@69 886 int dstLen, int *srcReadPtr,
jpayne@69 887 int *dstWrotePtr, int *dstCharsPtr);
jpayne@69 888 /* 296 */
jpayne@69 889 EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
jpayne@69 890 const char *src, int srcLen,
jpayne@69 891 Tcl_DString *dsPtr);
jpayne@69 892 /* 297 */
jpayne@69 893 EXTERN void Tcl_FinalizeThread(void);
jpayne@69 894 /* 298 */
jpayne@69 895 EXTERN void Tcl_FinalizeNotifier(ClientData clientData);
jpayne@69 896 /* 299 */
jpayne@69 897 EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding);
jpayne@69 898 /* 300 */
jpayne@69 899 EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void);
jpayne@69 900 /* 301 */
jpayne@69 901 EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name);
jpayne@69 902 /* 302 */
jpayne@69 903 EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding);
jpayne@69 904 /* 303 */
jpayne@69 905 EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp);
jpayne@69 906 /* 304 */
jpayne@69 907 EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp,
jpayne@69 908 Tcl_Obj *objPtr, const void *tablePtr,
jpayne@69 909 int offset, const char *msg, int flags,
jpayne@69 910 int *indexPtr);
jpayne@69 911 /* 305 */
jpayne@69 912 EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr,
jpayne@69 913 int size);
jpayne@69 914 /* 306 */
jpayne@69 915 EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1,
jpayne@69 916 const char *part2, int flags);
jpayne@69 917 /* 307 */
jpayne@69 918 EXTERN ClientData Tcl_InitNotifier(void);
jpayne@69 919 /* 308 */
jpayne@69 920 EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr);
jpayne@69 921 /* 309 */
jpayne@69 922 EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr);
jpayne@69 923 /* 310 */
jpayne@69 924 EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr);
jpayne@69 925 /* 311 */
jpayne@69 926 EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr,
jpayne@69 927 Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr);
jpayne@69 928 /* 312 */
jpayne@69 929 EXTERN int Tcl_NumUtfChars(const char *src, int length);
jpayne@69 930 /* 313 */
jpayne@69 931 EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr,
jpayne@69 932 int charsToRead, int appendFlag);
jpayne@69 933 /* 314 */
jpayne@69 934 EXTERN void Tcl_RestoreResult(Tcl_Interp *interp,
jpayne@69 935 Tcl_SavedResult *statePtr);
jpayne@69 936 /* 315 */
jpayne@69 937 EXTERN void Tcl_SaveResult(Tcl_Interp *interp,
jpayne@69 938 Tcl_SavedResult *statePtr);
jpayne@69 939 /* 316 */
jpayne@69 940 EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp,
jpayne@69 941 const char *name);
jpayne@69 942 /* 317 */
jpayne@69 943 EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1,
jpayne@69 944 const char *part2, Tcl_Obj *newValuePtr,
jpayne@69 945 int flags);
jpayne@69 946 /* 318 */
jpayne@69 947 EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId);
jpayne@69 948 /* 319 */
jpayne@69 949 EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId,
jpayne@69 950 Tcl_Event *evPtr, Tcl_QueuePosition position);
jpayne@69 951 /* 320 */
jpayne@69 952 EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index);
jpayne@69 953 /* 321 */
jpayne@69 954 EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch);
jpayne@69 955 /* 322 */
jpayne@69 956 EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch);
jpayne@69 957 /* 323 */
jpayne@69 958 EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch);
jpayne@69 959 /* 324 */
jpayne@69 960 EXTERN int Tcl_UniCharToUtf(int ch, char *buf);
jpayne@69 961 /* 325 */
jpayne@69 962 EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index);
jpayne@69 963 /* 326 */
jpayne@69 964 EXTERN int Tcl_UtfCharComplete(const char *src, int length);
jpayne@69 965 /* 327 */
jpayne@69 966 EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr,
jpayne@69 967 char *dst);
jpayne@69 968 /* 328 */
jpayne@69 969 EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch);
jpayne@69 970 /* 329 */
jpayne@69 971 EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch);
jpayne@69 972 /* 330 */
jpayne@69 973 EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src);
jpayne@69 974 /* 331 */
jpayne@69 975 EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start);
jpayne@69 976 /* 332 */
jpayne@69 977 EXTERN int Tcl_UtfToExternal(Tcl_Interp *interp,
jpayne@69 978 Tcl_Encoding encoding, const char *src,
jpayne@69 979 int srcLen, int flags,
jpayne@69 980 Tcl_EncodingState *statePtr, char *dst,
jpayne@69 981 int dstLen, int *srcReadPtr,
jpayne@69 982 int *dstWrotePtr, int *dstCharsPtr);
jpayne@69 983 /* 333 */
jpayne@69 984 EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
jpayne@69 985 const char *src, int srcLen,
jpayne@69 986 Tcl_DString *dsPtr);
jpayne@69 987 /* 334 */
jpayne@69 988 EXTERN int Tcl_UtfToLower(char *src);
jpayne@69 989 /* 335 */
jpayne@69 990 EXTERN int Tcl_UtfToTitle(char *src);
jpayne@69 991 /* 336 */
jpayne@69 992 EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr);
jpayne@69 993 /* 337 */
jpayne@69 994 EXTERN int Tcl_UtfToUpper(char *src);
jpayne@69 995 /* 338 */
jpayne@69 996 EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src,
jpayne@69 997 int srcLen);
jpayne@69 998 /* 339 */
jpayne@69 999 EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr);
jpayne@69 1000 /* 340 */
jpayne@69 1001 EXTERN char * Tcl_GetString(Tcl_Obj *objPtr);
jpayne@69 1002 /* 341 */
jpayne@69 1003 EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void);
jpayne@69 1004 /* 342 */
jpayne@69 1005 EXTERN void Tcl_SetDefaultEncodingDir(const char *path);
jpayne@69 1006 /* 343 */
jpayne@69 1007 EXTERN void Tcl_AlertNotifier(ClientData clientData);
jpayne@69 1008 /* 344 */
jpayne@69 1009 EXTERN void Tcl_ServiceModeHook(int mode);
jpayne@69 1010 /* 345 */
jpayne@69 1011 EXTERN int Tcl_UniCharIsAlnum(int ch);
jpayne@69 1012 /* 346 */
jpayne@69 1013 EXTERN int Tcl_UniCharIsAlpha(int ch);
jpayne@69 1014 /* 347 */
jpayne@69 1015 EXTERN int Tcl_UniCharIsDigit(int ch);
jpayne@69 1016 /* 348 */
jpayne@69 1017 EXTERN int Tcl_UniCharIsLower(int ch);
jpayne@69 1018 /* 349 */
jpayne@69 1019 EXTERN int Tcl_UniCharIsSpace(int ch);
jpayne@69 1020 /* 350 */
jpayne@69 1021 EXTERN int Tcl_UniCharIsUpper(int ch);
jpayne@69 1022 /* 351 */
jpayne@69 1023 EXTERN int Tcl_UniCharIsWordChar(int ch);
jpayne@69 1024 /* 352 */
jpayne@69 1025 EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr);
jpayne@69 1026 /* 353 */
jpayne@69 1027 EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs,
jpayne@69 1028 const Tcl_UniChar *uct,
jpayne@69 1029 unsigned long numChars);
jpayne@69 1030 /* 354 */
jpayne@69 1031 EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr,
jpayne@69 1032 int uniLength, Tcl_DString *dsPtr);
jpayne@69 1033 /* 355 */
jpayne@69 1034 EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length,
jpayne@69 1035 Tcl_DString *dsPtr);
jpayne@69 1036 /* 356 */
jpayne@69 1037 EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp,
jpayne@69 1038 Tcl_Obj *patObj, int flags);
jpayne@69 1039 /* 357 */
jpayne@69 1040 EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp,
jpayne@69 1041 Tcl_Token *tokenPtr, int count);
jpayne@69 1042 /* 358 */
jpayne@69 1043 EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr);
jpayne@69 1044 /* 359 */
jpayne@69 1045 EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp,
jpayne@69 1046 const char *script, const char *command,
jpayne@69 1047 int length);
jpayne@69 1048 /* 360 */
jpayne@69 1049 EXTERN int Tcl_ParseBraces(Tcl_Interp *interp,
jpayne@69 1050 const char *start, int numBytes,
jpayne@69 1051 Tcl_Parse *parsePtr, int append,
jpayne@69 1052 CONST84 char **termPtr);
jpayne@69 1053 /* 361 */
jpayne@69 1054 EXTERN int Tcl_ParseCommand(Tcl_Interp *interp,
jpayne@69 1055 const char *start, int numBytes, int nested,
jpayne@69 1056 Tcl_Parse *parsePtr);
jpayne@69 1057 /* 362 */
jpayne@69 1058 EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start,
jpayne@69 1059 int numBytes, Tcl_Parse *parsePtr);
jpayne@69 1060 /* 363 */
jpayne@69 1061 EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp,
jpayne@69 1062 const char *start, int numBytes,
jpayne@69 1063 Tcl_Parse *parsePtr, int append,
jpayne@69 1064 CONST84 char **termPtr);
jpayne@69 1065 /* 364 */
jpayne@69 1066 EXTERN int Tcl_ParseVarName(Tcl_Interp *interp,
jpayne@69 1067 const char *start, int numBytes,
jpayne@69 1068 Tcl_Parse *parsePtr, int append);
jpayne@69 1069 /* 365 */
jpayne@69 1070 EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr);
jpayne@69 1071 /* 366 */
jpayne@69 1072 EXTERN int Tcl_Chdir(const char *dirName);
jpayne@69 1073 /* 367 */
jpayne@69 1074 EXTERN int Tcl_Access(const char *path, int mode);
jpayne@69 1075 /* 368 */
jpayne@69 1076 EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr);
jpayne@69 1077 /* 369 */
jpayne@69 1078 EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2,
jpayne@69 1079 unsigned long n);
jpayne@69 1080 /* 370 */
jpayne@69 1081 EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2,
jpayne@69 1082 unsigned long n);
jpayne@69 1083 /* 371 */
jpayne@69 1084 EXTERN int Tcl_StringCaseMatch(const char *str,
jpayne@69 1085 const char *pattern, int nocase);
jpayne@69 1086 /* 372 */
jpayne@69 1087 EXTERN int Tcl_UniCharIsControl(int ch);
jpayne@69 1088 /* 373 */
jpayne@69 1089 EXTERN int Tcl_UniCharIsGraph(int ch);
jpayne@69 1090 /* 374 */
jpayne@69 1091 EXTERN int Tcl_UniCharIsPrint(int ch);
jpayne@69 1092 /* 375 */
jpayne@69 1093 EXTERN int Tcl_UniCharIsPunct(int ch);
jpayne@69 1094 /* 376 */
jpayne@69 1095 EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp,
jpayne@69 1096 Tcl_RegExp regexp, Tcl_Obj *textObj,
jpayne@69 1097 int offset, int nmatches, int flags);
jpayne@69 1098 /* 377 */
jpayne@69 1099 EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp,
jpayne@69 1100 Tcl_RegExpInfo *infoPtr);
jpayne@69 1101 /* 378 */
jpayne@69 1102 EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode,
jpayne@69 1103 int numChars);
jpayne@69 1104 /* 379 */
jpayne@69 1105 EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr,
jpayne@69 1106 const Tcl_UniChar *unicode, int numChars);
jpayne@69 1107 /* 380 */
jpayne@69 1108 EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr);
jpayne@69 1109 /* 381 */
jpayne@69 1110 EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index);
jpayne@69 1111 /* 382 */
jpayne@69 1112 EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr);
jpayne@69 1113 /* 383 */
jpayne@69 1114 EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last);
jpayne@69 1115 /* 384 */
jpayne@69 1116 EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr,
jpayne@69 1117 const Tcl_UniChar *unicode, int length);
jpayne@69 1118 /* 385 */
jpayne@69 1119 EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp,
jpayne@69 1120 Tcl_Obj *textObj, Tcl_Obj *patternObj);
jpayne@69 1121 /* 386 */
jpayne@69 1122 EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr);
jpayne@69 1123 /* 387 */
jpayne@69 1124 EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void);
jpayne@69 1125 /* 388 */
jpayne@69 1126 EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp);
jpayne@69 1127 /* 389 */
jpayne@69 1128 EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp,
jpayne@69 1129 const char *pattern);
jpayne@69 1130 /* 390 */
jpayne@69 1131 EXTERN int Tcl_ProcObjCmd(ClientData clientData,
jpayne@69 1132 Tcl_Interp *interp, int objc,
jpayne@69 1133 Tcl_Obj *const objv[]);
jpayne@69 1134 /* 391 */
jpayne@69 1135 EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr);
jpayne@69 1136 /* 392 */
jpayne@69 1137 EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex);
jpayne@69 1138 /* 393 */
jpayne@69 1139 EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr,
jpayne@69 1140 Tcl_ThreadCreateProc *proc,
jpayne@69 1141 ClientData clientData, int stackSize,
jpayne@69 1142 int flags);
jpayne@69 1143 /* 394 */
jpayne@69 1144 EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst,
jpayne@69 1145 int bytesToRead);
jpayne@69 1146 /* 395 */
jpayne@69 1147 EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src,
jpayne@69 1148 int srcLen);
jpayne@69 1149 /* 396 */
jpayne@69 1150 EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan);
jpayne@69 1151 /* 397 */
jpayne@69 1152 EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan);
jpayne@69 1153 /* 398 */
jpayne@69 1154 EXTERN CONST84_RETURN char * Tcl_ChannelName(
jpayne@69 1155 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1156 /* 399 */
jpayne@69 1157 EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion(
jpayne@69 1158 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1159 /* 400 */
jpayne@69 1160 EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(
jpayne@69 1161 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1162 /* 401 */
jpayne@69 1163 EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc(
jpayne@69 1164 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1165 /* 402 */
jpayne@69 1166 EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(
jpayne@69 1167 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1168 /* 403 */
jpayne@69 1169 EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc(
jpayne@69 1170 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1171 /* 404 */
jpayne@69 1172 EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc(
jpayne@69 1173 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1174 /* 405 */
jpayne@69 1175 EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc(
jpayne@69 1176 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1177 /* 406 */
jpayne@69 1178 EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(
jpayne@69 1179 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1180 /* 407 */
jpayne@69 1181 EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(
jpayne@69 1182 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1183 /* 408 */
jpayne@69 1184 EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc(
jpayne@69 1185 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1186 /* 409 */
jpayne@69 1187 EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(
jpayne@69 1188 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1189 /* 410 */
jpayne@69 1190 EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc(
jpayne@69 1191 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1192 /* 411 */
jpayne@69 1193 EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(
jpayne@69 1194 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1195 /* 412 */
jpayne@69 1196 EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result);
jpayne@69 1197 /* 413 */
jpayne@69 1198 EXTERN int Tcl_IsChannelShared(Tcl_Channel channel);
jpayne@69 1199 /* 414 */
jpayne@69 1200 EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp,
jpayne@69 1201 Tcl_Channel channel);
jpayne@69 1202 /* 415 */
jpayne@69 1203 EXTERN void Tcl_CutChannel(Tcl_Channel channel);
jpayne@69 1204 /* 416 */
jpayne@69 1205 EXTERN void Tcl_SpliceChannel(Tcl_Channel channel);
jpayne@69 1206 /* 417 */
jpayne@69 1207 EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel);
jpayne@69 1208 /* 418 */
jpayne@69 1209 EXTERN int Tcl_IsChannelExisting(const char *channelName);
jpayne@69 1210 /* 419 */
jpayne@69 1211 EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs,
jpayne@69 1212 const Tcl_UniChar *uct,
jpayne@69 1213 unsigned long numChars);
jpayne@69 1214 /* 420 */
jpayne@69 1215 EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr,
jpayne@69 1216 const Tcl_UniChar *uniPattern, int nocase);
jpayne@69 1217 /* 421 */
jpayne@69 1218 EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr,
jpayne@69 1219 const void *key);
jpayne@69 1220 /* 422 */
jpayne@69 1221 EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
jpayne@69 1222 const void *key, int *newPtr);
jpayne@69 1223 /* 423 */
jpayne@69 1224 EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr,
jpayne@69 1225 int keyType, const Tcl_HashKeyType *typePtr);
jpayne@69 1226 /* 424 */
jpayne@69 1227 EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr);
jpayne@69 1228 /* 425 */
jpayne@69 1229 EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp,
jpayne@69 1230 const char *varName, int flags,
jpayne@69 1231 Tcl_CommandTraceProc *procPtr,
jpayne@69 1232 ClientData prevClientData);
jpayne@69 1233 /* 426 */
jpayne@69 1234 EXTERN int Tcl_TraceCommand(Tcl_Interp *interp,
jpayne@69 1235 const char *varName, int flags,
jpayne@69 1236 Tcl_CommandTraceProc *proc,
jpayne@69 1237 ClientData clientData);
jpayne@69 1238 /* 427 */
jpayne@69 1239 EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp,
jpayne@69 1240 const char *varName, int flags,
jpayne@69 1241 Tcl_CommandTraceProc *proc,
jpayne@69 1242 ClientData clientData);
jpayne@69 1243 /* 428 */
jpayne@69 1244 EXTERN char * Tcl_AttemptAlloc(unsigned int size);
jpayne@69 1245 /* 429 */
jpayne@69 1246 EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size,
jpayne@69 1247 const char *file, int line);
jpayne@69 1248 /* 430 */
jpayne@69 1249 EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size);
jpayne@69 1250 /* 431 */
jpayne@69 1251 EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
jpayne@69 1252 const char *file, int line);
jpayne@69 1253 /* 432 */
jpayne@69 1254 EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length);
jpayne@69 1255 /* 433 */
jpayne@69 1256 EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel);
jpayne@69 1257 /* 434 */
jpayne@69 1258 EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr,
jpayne@69 1259 int *lengthPtr);
jpayne@69 1260 /* 435 */
jpayne@69 1261 EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp,
jpayne@69 1262 const char *name, int *numArgsPtr,
jpayne@69 1263 Tcl_ValueType **argTypesPtr,
jpayne@69 1264 Tcl_MathProc **procPtr,
jpayne@69 1265 ClientData *clientDataPtr);
jpayne@69 1266 /* 436 */
jpayne@69 1267 EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp,
jpayne@69 1268 const char *pattern);
jpayne@69 1269 /* 437 */
jpayne@69 1270 EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 1271 int flags);
jpayne@69 1272 /* 438 */
jpayne@69 1273 EXTERN int Tcl_DetachChannel(Tcl_Interp *interp,
jpayne@69 1274 Tcl_Channel channel);
jpayne@69 1275 /* 439 */
jpayne@69 1276 EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel);
jpayne@69 1277 /* 440 */
jpayne@69 1278 EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr,
jpayne@69 1279 Tcl_Obj *destPathPtr);
jpayne@69 1280 /* 441 */
jpayne@69 1281 EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
jpayne@69 1282 Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr);
jpayne@69 1283 /* 442 */
jpayne@69 1284 EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr);
jpayne@69 1285 /* 443 */
jpayne@69 1286 EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr);
jpayne@69 1287 /* 444 */
jpayne@69 1288 EXTERN int Tcl_FSLoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
jpayne@69 1289 const char *sym1, const char *sym2,
jpayne@69 1290 Tcl_PackageInitProc **proc1Ptr,
jpayne@69 1291 Tcl_PackageInitProc **proc2Ptr,
jpayne@69 1292 Tcl_LoadHandle *handlePtr,
jpayne@69 1293 Tcl_FSUnloadFileProc **unloadProcPtr);
jpayne@69 1294 /* 445 */
jpayne@69 1295 EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp,
jpayne@69 1296 Tcl_Obj *result, Tcl_Obj *pathPtr,
jpayne@69 1297 const char *pattern, Tcl_GlobTypeData *types);
jpayne@69 1298 /* 446 */
jpayne@69 1299 EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr,
jpayne@69 1300 int linkAction);
jpayne@69 1301 /* 447 */
jpayne@69 1302 EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
jpayne@69 1303 int recursive, Tcl_Obj **errorPtr);
jpayne@69 1304 /* 448 */
jpayne@69 1305 EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr,
jpayne@69 1306 Tcl_Obj *destPathPtr);
jpayne@69 1307 /* 449 */
jpayne@69 1308 EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
jpayne@69 1309 /* 450 */
jpayne@69 1310 EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval);
jpayne@69 1311 /* 451 */
jpayne@69 1312 EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index,
jpayne@69 1313 Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef);
jpayne@69 1314 /* 452 */
jpayne@69 1315 EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index,
jpayne@69 1316 Tcl_Obj *pathPtr, Tcl_Obj *objPtr);
jpayne@69 1317 /* 453 */
jpayne@69 1318 EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr,
jpayne@69 1319 Tcl_Obj **objPtrRef);
jpayne@69 1320 /* 454 */
jpayne@69 1321 EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf);
jpayne@69 1322 /* 455 */
jpayne@69 1323 EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode);
jpayne@69 1324 /* 456 */
jpayne@69 1325 EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp,
jpayne@69 1326 Tcl_Obj *pathPtr, const char *modeString,
jpayne@69 1327 int permissions);
jpayne@69 1328 /* 457 */
jpayne@69 1329 EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp);
jpayne@69 1330 /* 458 */
jpayne@69 1331 EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr);
jpayne@69 1332 /* 459 */
jpayne@69 1333 EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp,
jpayne@69 1334 Tcl_Obj *pathPtr);
jpayne@69 1335 /* 460 */
jpayne@69 1336 EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements);
jpayne@69 1337 /* 461 */
jpayne@69 1338 EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr);
jpayne@69 1339 /* 462 */
jpayne@69 1340 EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr,
jpayne@69 1341 Tcl_Obj *secondPtr);
jpayne@69 1342 /* 463 */
jpayne@69 1343 EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp,
jpayne@69 1344 Tcl_Obj *pathPtr);
jpayne@69 1345 /* 464 */
jpayne@69 1346 EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc,
jpayne@69 1347 Tcl_Obj *const objv[]);
jpayne@69 1348 /* 465 */
jpayne@69 1349 EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr,
jpayne@69 1350 const Tcl_Filesystem *fsPtr);
jpayne@69 1351 /* 466 */
jpayne@69 1352 EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp,
jpayne@69 1353 Tcl_Obj *pathPtr);
jpayne@69 1354 /* 467 */
jpayne@69 1355 EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName);
jpayne@69 1356 /* 468 */
jpayne@69 1357 EXTERN Tcl_Obj * Tcl_FSNewNativePath(
jpayne@69 1358 const Tcl_Filesystem *fromFilesystem,
jpayne@69 1359 ClientData clientData);
jpayne@69 1360 /* 469 */
jpayne@69 1361 EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr);
jpayne@69 1362 /* 470 */
jpayne@69 1363 EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr);
jpayne@69 1364 /* 471 */
jpayne@69 1365 EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr);
jpayne@69 1366 /* 472 */
jpayne@69 1367 EXTERN Tcl_Obj * Tcl_FSListVolumes(void);
jpayne@69 1368 /* 473 */
jpayne@69 1369 EXTERN int Tcl_FSRegister(ClientData clientData,
jpayne@69 1370 const Tcl_Filesystem *fsPtr);
jpayne@69 1371 /* 474 */
jpayne@69 1372 EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr);
jpayne@69 1373 /* 475 */
jpayne@69 1374 EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr);
jpayne@69 1375 /* 476 */
jpayne@69 1376 EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
jpayne@69 1377 Tcl_Obj *pathPtr);
jpayne@69 1378 /* 477 */
jpayne@69 1379 EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr);
jpayne@69 1380 /* 478 */
jpayne@69 1381 EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr);
jpayne@69 1382 /* 479 */
jpayne@69 1383 EXTERN int Tcl_OutputBuffered(Tcl_Channel chan);
jpayne@69 1384 /* 480 */
jpayne@69 1385 EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr);
jpayne@69 1386 /* 481 */
jpayne@69 1387 EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp,
jpayne@69 1388 Tcl_Token *tokenPtr, int count);
jpayne@69 1389 /* 482 */
jpayne@69 1390 EXTERN void Tcl_GetTime(Tcl_Time *timeBuf);
jpayne@69 1391 /* 483 */
jpayne@69 1392 EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level,
jpayne@69 1393 int flags, Tcl_CmdObjTraceProc *objProc,
jpayne@69 1394 ClientData clientData,
jpayne@69 1395 Tcl_CmdObjTraceDeleteProc *delProc);
jpayne@69 1396 /* 484 */
jpayne@69 1397 EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token,
jpayne@69 1398 Tcl_CmdInfo *infoPtr);
jpayne@69 1399 /* 485 */
jpayne@69 1400 EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token,
jpayne@69 1401 const Tcl_CmdInfo *infoPtr);
jpayne@69 1402 /* 486 */
jpayne@69 1403 EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
jpayne@69 1404 const char *file, int line);
jpayne@69 1405 /* 487 */
jpayne@69 1406 EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp,
jpayne@69 1407 Tcl_Obj *objPtr, Tcl_WideInt *widePtr);
jpayne@69 1408 /* 488 */
jpayne@69 1409 EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue);
jpayne@69 1410 /* 489 */
jpayne@69 1411 EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr,
jpayne@69 1412 Tcl_WideInt wideValue);
jpayne@69 1413 /* 490 */
jpayne@69 1414 EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void);
jpayne@69 1415 /* 491 */
jpayne@69 1416 EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset,
jpayne@69 1417 int mode);
jpayne@69 1418 /* 492 */
jpayne@69 1419 EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan);
jpayne@69 1420 /* 493 */
jpayne@69 1421 EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
jpayne@69 1422 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1423 /* 494 */
jpayne@69 1424 EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr,
jpayne@69 1425 Tcl_Obj *keyPtr, Tcl_Obj *valuePtr);
jpayne@69 1426 /* 495 */
jpayne@69 1427 EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr,
jpayne@69 1428 Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr);
jpayne@69 1429 /* 496 */
jpayne@69 1430 EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp,
jpayne@69 1431 Tcl_Obj *dictPtr, Tcl_Obj *keyPtr);
jpayne@69 1432 /* 497 */
jpayne@69 1433 EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr,
jpayne@69 1434 int *sizePtr);
jpayne@69 1435 /* 498 */
jpayne@69 1436 EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp,
jpayne@69 1437 Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr,
jpayne@69 1438 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
jpayne@69 1439 int *donePtr);
jpayne@69 1440 /* 499 */
jpayne@69 1441 EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr,
jpayne@69 1442 Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr,
jpayne@69 1443 int *donePtr);
jpayne@69 1444 /* 500 */
jpayne@69 1445 EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr);
jpayne@69 1446 /* 501 */
jpayne@69 1447 EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp,
jpayne@69 1448 Tcl_Obj *dictPtr, int keyc,
jpayne@69 1449 Tcl_Obj *const *keyv, Tcl_Obj *valuePtr);
jpayne@69 1450 /* 502 */
jpayne@69 1451 EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp,
jpayne@69 1452 Tcl_Obj *dictPtr, int keyc,
jpayne@69 1453 Tcl_Obj *const *keyv);
jpayne@69 1454 /* 503 */
jpayne@69 1455 EXTERN Tcl_Obj * Tcl_NewDictObj(void);
jpayne@69 1456 /* 504 */
jpayne@69 1457 EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line);
jpayne@69 1458 /* 505 */
jpayne@69 1459 EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp,
jpayne@69 1460 const char *pkgName,
jpayne@69 1461 const Tcl_Config *configuration,
jpayne@69 1462 const char *valEncoding);
jpayne@69 1463 /* 506 */
jpayne@69 1464 EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp,
jpayne@69 1465 const char *name, ClientData clientData,
jpayne@69 1466 Tcl_NamespaceDeleteProc *deleteProc);
jpayne@69 1467 /* 507 */
jpayne@69 1468 EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr);
jpayne@69 1469 /* 508 */
jpayne@69 1470 EXTERN int Tcl_AppendExportList(Tcl_Interp *interp,
jpayne@69 1471 Tcl_Namespace *nsPtr, Tcl_Obj *objPtr);
jpayne@69 1472 /* 509 */
jpayne@69 1473 EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
jpayne@69 1474 const char *pattern, int resetListFirst);
jpayne@69 1475 /* 510 */
jpayne@69 1476 EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,
jpayne@69 1477 const char *pattern, int allowOverwrite);
jpayne@69 1478 /* 511 */
jpayne@69 1479 EXTERN int Tcl_ForgetImport(Tcl_Interp *interp,
jpayne@69 1480 Tcl_Namespace *nsPtr, const char *pattern);
jpayne@69 1481 /* 512 */
jpayne@69 1482 EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp);
jpayne@69 1483 /* 513 */
jpayne@69 1484 EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp);
jpayne@69 1485 /* 514 */
jpayne@69 1486 EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp,
jpayne@69 1487 const char *name,
jpayne@69 1488 Tcl_Namespace *contextNsPtr, int flags);
jpayne@69 1489 /* 515 */
jpayne@69 1490 EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name,
jpayne@69 1491 Tcl_Namespace *contextNsPtr, int flags);
jpayne@69 1492 /* 516 */
jpayne@69 1493 EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp,
jpayne@69 1494 Tcl_Obj *objPtr);
jpayne@69 1495 /* 517 */
jpayne@69 1496 EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp,
jpayne@69 1497 Tcl_Command command, Tcl_Obj *objPtr);
jpayne@69 1498 /* 518 */
jpayne@69 1499 EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp,
jpayne@69 1500 Tcl_Obj *fileName, const char *encodingName);
jpayne@69 1501 /* 519 */
jpayne@69 1502 EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc);
jpayne@69 1503 /* 520 */
jpayne@69 1504 EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type,
jpayne@69 1505 Tcl_LimitHandlerProc *handlerProc,
jpayne@69 1506 ClientData clientData,
jpayne@69 1507 Tcl_LimitHandlerDeleteProc *deleteProc);
jpayne@69 1508 /* 521 */
jpayne@69 1509 EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type,
jpayne@69 1510 Tcl_LimitHandlerProc *handlerProc,
jpayne@69 1511 ClientData clientData);
jpayne@69 1512 /* 522 */
jpayne@69 1513 EXTERN int Tcl_LimitReady(Tcl_Interp *interp);
jpayne@69 1514 /* 523 */
jpayne@69 1515 EXTERN int Tcl_LimitCheck(Tcl_Interp *interp);
jpayne@69 1516 /* 524 */
jpayne@69 1517 EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp);
jpayne@69 1518 /* 525 */
jpayne@69 1519 EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp,
jpayne@69 1520 int commandLimit);
jpayne@69 1521 /* 526 */
jpayne@69 1522 EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp,
jpayne@69 1523 Tcl_Time *timeLimitPtr);
jpayne@69 1524 /* 527 */
jpayne@69 1525 EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type,
jpayne@69 1526 int granularity);
jpayne@69 1527 /* 528 */
jpayne@69 1528 EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type);
jpayne@69 1529 /* 529 */
jpayne@69 1530 EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type);
jpayne@69 1531 /* 530 */
jpayne@69 1532 EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type);
jpayne@69 1533 /* 531 */
jpayne@69 1534 EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type);
jpayne@69 1535 /* 532 */
jpayne@69 1536 EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp);
jpayne@69 1537 /* 533 */
jpayne@69 1538 EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp,
jpayne@69 1539 Tcl_Time *timeLimitPtr);
jpayne@69 1540 /* 534 */
jpayne@69 1541 EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type);
jpayne@69 1542 /* 535 */
jpayne@69 1543 EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status);
jpayne@69 1544 /* 536 */
jpayne@69 1545 EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp,
jpayne@69 1546 Tcl_InterpState state);
jpayne@69 1547 /* 537 */
jpayne@69 1548 EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state);
jpayne@69 1549 /* 538 */
jpayne@69 1550 EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp,
jpayne@69 1551 Tcl_Obj *options);
jpayne@69 1552 /* 539 */
jpayne@69 1553 EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result);
jpayne@69 1554 /* 540 */
jpayne@69 1555 EXTERN int Tcl_IsEnsemble(Tcl_Command token);
jpayne@69 1556 /* 541 */
jpayne@69 1557 EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp,
jpayne@69 1558 const char *name,
jpayne@69 1559 Tcl_Namespace *namespacePtr, int flags);
jpayne@69 1560 /* 542 */
jpayne@69 1561 EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp,
jpayne@69 1562 Tcl_Obj *cmdNameObj, int flags);
jpayne@69 1563 /* 543 */
jpayne@69 1564 EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp,
jpayne@69 1565 Tcl_Command token, Tcl_Obj *subcmdList);
jpayne@69 1566 /* 544 */
jpayne@69 1567 EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp,
jpayne@69 1568 Tcl_Command token, Tcl_Obj *mapDict);
jpayne@69 1569 /* 545 */
jpayne@69 1570 EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp,
jpayne@69 1571 Tcl_Command token, Tcl_Obj *unknownList);
jpayne@69 1572 /* 546 */
jpayne@69 1573 EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp,
jpayne@69 1574 Tcl_Command token, int flags);
jpayne@69 1575 /* 547 */
jpayne@69 1576 EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp,
jpayne@69 1577 Tcl_Command token, Tcl_Obj **subcmdListPtr);
jpayne@69 1578 /* 548 */
jpayne@69 1579 EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp,
jpayne@69 1580 Tcl_Command token, Tcl_Obj **mapDictPtr);
jpayne@69 1581 /* 549 */
jpayne@69 1582 EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp,
jpayne@69 1583 Tcl_Command token, Tcl_Obj **unknownListPtr);
jpayne@69 1584 /* 550 */
jpayne@69 1585 EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp,
jpayne@69 1586 Tcl_Command token, int *flagsPtr);
jpayne@69 1587 /* 551 */
jpayne@69 1588 EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp,
jpayne@69 1589 Tcl_Command token,
jpayne@69 1590 Tcl_Namespace **namespacePtrPtr);
jpayne@69 1591 /* 552 */
jpayne@69 1592 EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc,
jpayne@69 1593 Tcl_ScaleTimeProc *scaleProc,
jpayne@69 1594 ClientData clientData);
jpayne@69 1595 /* 553 */
jpayne@69 1596 EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc,
jpayne@69 1597 Tcl_ScaleTimeProc **scaleProc,
jpayne@69 1598 ClientData *clientData);
jpayne@69 1599 /* 554 */
jpayne@69 1600 EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc(
jpayne@69 1601 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1602 /* 555 */
jpayne@69 1603 EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value);
jpayne@69 1604 /* 556 */
jpayne@69 1605 EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file,
jpayne@69 1606 int line);
jpayne@69 1607 /* 557 */
jpayne@69 1608 EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value);
jpayne@69 1609 /* 558 */
jpayne@69 1610 EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp,
jpayne@69 1611 Tcl_Obj *obj, mp_int *value);
jpayne@69 1612 /* 559 */
jpayne@69 1613 EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp,
jpayne@69 1614 Tcl_Obj *obj, mp_int *value);
jpayne@69 1615 /* 560 */
jpayne@69 1616 EXTERN int Tcl_TruncateChannel(Tcl_Channel chan,
jpayne@69 1617 Tcl_WideInt length);
jpayne@69 1618 /* 561 */
jpayne@69 1619 EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc(
jpayne@69 1620 const Tcl_ChannelType *chanTypePtr);
jpayne@69 1621 /* 562 */
jpayne@69 1622 EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp,
jpayne@69 1623 Tcl_Obj *msg);
jpayne@69 1624 /* 563 */
jpayne@69 1625 EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp,
jpayne@69 1626 Tcl_Obj **msg);
jpayne@69 1627 /* 564 */
jpayne@69 1628 EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg);
jpayne@69 1629 /* 565 */
jpayne@69 1630 EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg);
jpayne@69 1631 /* 566 */
jpayne@69 1632 EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp,
jpayne@69 1633 double initval, mp_int *toInit);
jpayne@69 1634 /* 567 */
jpayne@69 1635 EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp,
jpayne@69 1636 Tcl_Namespace *nsPtr);
jpayne@69 1637 /* 568 */
jpayne@69 1638 EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp,
jpayne@69 1639 Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr);
jpayne@69 1640 /* 569 */
jpayne@69 1641 EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp,
jpayne@69 1642 Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr);
jpayne@69 1643 /* 570 */
jpayne@69 1644 EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void);
jpayne@69 1645 /* 571 */
jpayne@69 1646 EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath);
jpayne@69 1647 /* 572 */
jpayne@69 1648 EXTERN const char * Tcl_GetEncodingNameFromEnvironment(
jpayne@69 1649 Tcl_DString *bufPtr);
jpayne@69 1650 /* 573 */
jpayne@69 1651 EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp,
jpayne@69 1652 const char *name, int objc,
jpayne@69 1653 Tcl_Obj *const objv[], void *clientDataPtr);
jpayne@69 1654 /* 574 */
jpayne@69 1655 EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp,
jpayne@69 1656 Tcl_Obj *objPtr);
jpayne@69 1657 /* 575 */
jpayne@69 1658 EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr,
jpayne@69 1659 const char *bytes, int length, int limit,
jpayne@69 1660 const char *ellipsis);
jpayne@69 1661 /* 576 */
jpayne@69 1662 EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format,
jpayne@69 1663 int objc, Tcl_Obj *const objv[]);
jpayne@69 1664 /* 577 */
jpayne@69 1665 EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp,
jpayne@69 1666 Tcl_Obj *objPtr, const char *format,
jpayne@69 1667 int objc, Tcl_Obj *const objv[]);
jpayne@69 1668 /* 578 */
jpayne@69 1669 EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2);
jpayne@69 1670 /* 579 */
jpayne@69 1671 EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr,
jpayne@69 1672 const char *format, ...) TCL_FORMAT_PRINTF(2, 3);
jpayne@69 1673 /* 580 */
jpayne@69 1674 EXTERN int Tcl_CancelEval(Tcl_Interp *interp,
jpayne@69 1675 Tcl_Obj *resultObjPtr, ClientData clientData,
jpayne@69 1676 int flags);
jpayne@69 1677 /* 581 */
jpayne@69 1678 EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags);
jpayne@69 1679 /* 582 */
jpayne@69 1680 EXTERN int Tcl_CreatePipe(Tcl_Interp *interp,
jpayne@69 1681 Tcl_Channel *rchan, Tcl_Channel *wchan,
jpayne@69 1682 int flags);
jpayne@69 1683 /* 583 */
jpayne@69 1684 EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp,
jpayne@69 1685 const char *cmdName, Tcl_ObjCmdProc *proc,
jpayne@69 1686 Tcl_ObjCmdProc *nreProc,
jpayne@69 1687 ClientData clientData,
jpayne@69 1688 Tcl_CmdDeleteProc *deleteProc);
jpayne@69 1689 /* 584 */
jpayne@69 1690 EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 1691 int flags);
jpayne@69 1692 /* 585 */
jpayne@69 1693 EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc,
jpayne@69 1694 Tcl_Obj *const objv[], int flags);
jpayne@69 1695 /* 586 */
jpayne@69 1696 EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd,
jpayne@69 1697 int objc, Tcl_Obj *const objv[], int flags);
jpayne@69 1698 /* 587 */
jpayne@69 1699 EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp,
jpayne@69 1700 Tcl_NRPostProc *postProcPtr,
jpayne@69 1701 ClientData data0, ClientData data1,
jpayne@69 1702 ClientData data2, ClientData data3);
jpayne@69 1703 /* 588 */
jpayne@69 1704 EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp,
jpayne@69 1705 Tcl_ObjCmdProc *objProc,
jpayne@69 1706 ClientData clientData, int objc,
jpayne@69 1707 Tcl_Obj *const objv[]);
jpayne@69 1708 /* 589 */
jpayne@69 1709 EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1710 /* 590 */
jpayne@69 1711 EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1712 /* 591 */
jpayne@69 1713 EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1714 /* 592 */
jpayne@69 1715 EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1716 /* 593 */
jpayne@69 1717 EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1718 /* 594 */
jpayne@69 1719 EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1720 /* 595 */
jpayne@69 1721 EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1722 /* 596 */
jpayne@69 1723 EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1724 /* 597 */
jpayne@69 1725 EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat(
jpayne@69 1726 const Tcl_StatBuf *statPtr);
jpayne@69 1727 /* 598 */
jpayne@69 1728 EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1729 /* 599 */
jpayne@69 1730 EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1731 /* 600 */
jpayne@69 1732 EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1733 /* 601 */
jpayne@69 1734 EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr);
jpayne@69 1735 /* 602 */
jpayne@69 1736 EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp,
jpayne@69 1737 Tcl_Command token, Tcl_Obj *paramList);
jpayne@69 1738 /* 603 */
jpayne@69 1739 EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp,
jpayne@69 1740 Tcl_Command token, Tcl_Obj **paramListPtr);
jpayne@69 1741 /* 604 */
jpayne@69 1742 EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp,
jpayne@69 1743 const Tcl_ArgvInfo *argTable, int *objcPtr,
jpayne@69 1744 Tcl_Obj *const *objv, Tcl_Obj ***remObjv);
jpayne@69 1745 /* 605 */
jpayne@69 1746 EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp);
jpayne@69 1747 /* 606 */
jpayne@69 1748 EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum);
jpayne@69 1749 /* 607 */
jpayne@69 1750 EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp,
jpayne@69 1751 int code, Tcl_Interp *targetInterp);
jpayne@69 1752 /* 608 */
jpayne@69 1753 EXTERN int Tcl_InterpActive(Tcl_Interp *interp);
jpayne@69 1754 /* 609 */
jpayne@69 1755 EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code);
jpayne@69 1756 /* 610 */
jpayne@69 1757 EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format,
jpayne@69 1758 Tcl_Obj *data, int level,
jpayne@69 1759 Tcl_Obj *gzipHeaderDictObj);
jpayne@69 1760 /* 611 */
jpayne@69 1761 EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format,
jpayne@69 1762 Tcl_Obj *data, int buffersize,
jpayne@69 1763 Tcl_Obj *gzipHeaderDictObj);
jpayne@69 1764 /* 612 */
jpayne@69 1765 EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc,
jpayne@69 1766 const unsigned char *buf, int len);
jpayne@69 1767 /* 613 */
jpayne@69 1768 EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler,
jpayne@69 1769 const unsigned char *buf, int len);
jpayne@69 1770 /* 614 */
jpayne@69 1771 EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode,
jpayne@69 1772 int format, int level, Tcl_Obj *dictObj,
jpayne@69 1773 Tcl_ZlibStream *zshandle);
jpayne@69 1774 /* 615 */
jpayne@69 1775 EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle);
jpayne@69 1776 /* 616 */
jpayne@69 1777 EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle);
jpayne@69 1778 /* 617 */
jpayne@69 1779 EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle);
jpayne@69 1780 /* 618 */
jpayne@69 1781 EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle,
jpayne@69 1782 Tcl_Obj *data, int flush);
jpayne@69 1783 /* 619 */
jpayne@69 1784 EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle,
jpayne@69 1785 Tcl_Obj *data, int count);
jpayne@69 1786 /* 620 */
jpayne@69 1787 EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle);
jpayne@69 1788 /* 621 */
jpayne@69 1789 EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle);
jpayne@69 1790 /* 622 */
jpayne@69 1791 EXTERN void Tcl_SetStartupScript(Tcl_Obj *path,
jpayne@69 1792 const char *encoding);
jpayne@69 1793 /* 623 */
jpayne@69 1794 EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr);
jpayne@69 1795 /* 624 */
jpayne@69 1796 EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan,
jpayne@69 1797 int flags);
jpayne@69 1798 /* 625 */
jpayne@69 1799 EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 1800 Tcl_Obj *resultPtr);
jpayne@69 1801 /* 626 */
jpayne@69 1802 EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
jpayne@69 1803 int flags);
jpayne@69 1804 /* 627 */
jpayne@69 1805 EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr,
jpayne@69 1806 const char *const symv[], int flags,
jpayne@69 1807 void *procPtrs, Tcl_LoadHandle *handlePtr);
jpayne@69 1808 /* 628 */
jpayne@69 1809 EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp,
jpayne@69 1810 Tcl_LoadHandle handle, const char *symbol);
jpayne@69 1811 /* 629 */
jpayne@69 1812 EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp,
jpayne@69 1813 Tcl_LoadHandle handlePtr);
jpayne@69 1814 /* 630 */
jpayne@69 1815 EXTERN void Tcl_ZlibStreamSetCompressionDictionary(
jpayne@69 1816 Tcl_ZlibStream zhandle,
jpayne@69 1817 Tcl_Obj *compressionDictionaryObj);
jpayne@69 1818 /* Slot 631 is reserved */
jpayne@69 1819 /* Slot 632 is reserved */
jpayne@69 1820 /* Slot 633 is reserved */
jpayne@69 1821 /* Slot 634 is reserved */
jpayne@69 1822 /* Slot 635 is reserved */
jpayne@69 1823 /* Slot 636 is reserved */
jpayne@69 1824 /* Slot 637 is reserved */
jpayne@69 1825 /* Slot 638 is reserved */
jpayne@69 1826 /* Slot 639 is reserved */
jpayne@69 1827 /* Slot 640 is reserved */
jpayne@69 1828 /* Slot 641 is reserved */
jpayne@69 1829 /* Slot 642 is reserved */
jpayne@69 1830 /* Slot 643 is reserved */
jpayne@69 1831 /* Slot 644 is reserved */
jpayne@69 1832 /* Slot 645 is reserved */
jpayne@69 1833 /* Slot 646 is reserved */
jpayne@69 1834 /* Slot 647 is reserved */
jpayne@69 1835 /* Slot 648 is reserved */
jpayne@69 1836 /* Slot 649 is reserved */
jpayne@69 1837 /* Slot 650 is reserved */
jpayne@69 1838 /* Slot 651 is reserved */
jpayne@69 1839 /* Slot 652 is reserved */
jpayne@69 1840 /* Slot 653 is reserved */
jpayne@69 1841 /* Slot 654 is reserved */
jpayne@69 1842 /* Slot 655 is reserved */
jpayne@69 1843 /* Slot 656 is reserved */
jpayne@69 1844 /* Slot 657 is reserved */
jpayne@69 1845 /* Slot 658 is reserved */
jpayne@69 1846 /* Slot 659 is reserved */
jpayne@69 1847 /* Slot 660 is reserved */
jpayne@69 1848 /* Slot 661 is reserved */
jpayne@69 1849 /* Slot 662 is reserved */
jpayne@69 1850 /* Slot 663 is reserved */
jpayne@69 1851 /* Slot 664 is reserved */
jpayne@69 1852 /* Slot 665 is reserved */
jpayne@69 1853 /* Slot 666 is reserved */
jpayne@69 1854 /* Slot 667 is reserved */
jpayne@69 1855 /* Slot 668 is reserved */
jpayne@69 1856 /* Slot 669 is reserved */
jpayne@69 1857 /* Slot 670 is reserved */
jpayne@69 1858 /* Slot 671 is reserved */
jpayne@69 1859 /* Slot 672 is reserved */
jpayne@69 1860 /* Slot 673 is reserved */
jpayne@69 1861 /* Slot 674 is reserved */
jpayne@69 1862 /* Slot 675 is reserved */
jpayne@69 1863 /* Slot 676 is reserved */
jpayne@69 1864 /* Slot 677 is reserved */
jpayne@69 1865 /* Slot 678 is reserved */
jpayne@69 1866 /* Slot 679 is reserved */
jpayne@69 1867 /* Slot 680 is reserved */
jpayne@69 1868 /* Slot 681 is reserved */
jpayne@69 1869 /* Slot 682 is reserved */
jpayne@69 1870 /* 683 */
jpayne@69 1871 EXTERN void TclUnusedStubEntry(void);
jpayne@69 1872
jpayne@69 1873 typedef struct {
jpayne@69 1874 const struct TclPlatStubs *tclPlatStubs;
jpayne@69 1875 const struct TclIntStubs *tclIntStubs;
jpayne@69 1876 const struct TclIntPlatStubs *tclIntPlatStubs;
jpayne@69 1877 } TclStubHooks;
jpayne@69 1878
jpayne@69 1879 typedef struct TclStubs {
jpayne@69 1880 int magic;
jpayne@69 1881 const TclStubHooks *hooks;
jpayne@69 1882
jpayne@69 1883 int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); /* 0 */
jpayne@69 1884 CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 1 */
jpayne@69 1885 TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 2 */
jpayne@69 1886 char * (*tcl_Alloc) (unsigned int size); /* 3 */
jpayne@69 1887 void (*tcl_Free) (char *ptr); /* 4 */
jpayne@69 1888 char * (*tcl_Realloc) (char *ptr, unsigned int size); /* 5 */
jpayne@69 1889 char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); /* 6 */
jpayne@69 1890 void (*tcl_DbCkfree) (char *ptr, const char *file, int line); /* 7 */
jpayne@69 1891 char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 8 */
jpayne@69 1892 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 1893 void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
jpayne@69 1894 #endif /* UNIX */
jpayne@69 1895 #if defined(_WIN32) /* WIN */
jpayne@69 1896 void (*reserved9)(void);
jpayne@69 1897 #endif /* WIN */
jpayne@69 1898 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 1899 void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); /* 9 */
jpayne@69 1900 #endif /* MACOSX */
jpayne@69 1901 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 1902 void (*tcl_DeleteFileHandler) (int fd); /* 10 */
jpayne@69 1903 #endif /* UNIX */
jpayne@69 1904 #if defined(_WIN32) /* WIN */
jpayne@69 1905 void (*reserved10)(void);
jpayne@69 1906 #endif /* WIN */
jpayne@69 1907 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 1908 void (*tcl_DeleteFileHandler) (int fd); /* 10 */
jpayne@69 1909 #endif /* MACOSX */
jpayne@69 1910 void (*tcl_SetTimer) (const Tcl_Time *timePtr); /* 11 */
jpayne@69 1911 void (*tcl_Sleep) (int ms); /* 12 */
jpayne@69 1912 int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); /* 13 */
jpayne@69 1913 int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 14 */
jpayne@69 1914 void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); /* 15 */
jpayne@69 1915 void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 16 */
jpayne@69 1916 Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); /* 17 */
jpayne@69 1917 int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); /* 18 */
jpayne@69 1918 void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 19 */
jpayne@69 1919 void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); /* 20 */
jpayne@69 1920 int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); /* 21 */
jpayne@69 1921 Tcl_Obj * (*tcl_DbNewBooleanObj) (int intValue, const char *file, int line); /* 22 */
jpayne@69 1922 Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); /* 23 */
jpayne@69 1923 Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); /* 24 */
jpayne@69 1924 Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); /* 25 */
jpayne@69 1925 Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); /* 26 */
jpayne@69 1926 Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); /* 27 */
jpayne@69 1927 Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); /* 28 */
jpayne@69 1928 Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); /* 29 */
jpayne@69 1929 void (*tclFreeObj) (Tcl_Obj *objPtr); /* 30 */
jpayne@69 1930 int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *intPtr); /* 31 */
jpayne@69 1931 int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 32 */
jpayne@69 1932 unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 33 */
jpayne@69 1933 int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); /* 34 */
jpayne@69 1934 int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); /* 35 */
jpayne@69 1935 int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); /* 36 */
jpayne@69 1936 int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); /* 37 */
jpayne@69 1937 int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); /* 38 */
jpayne@69 1938 int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); /* 39 */
jpayne@69 1939 CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); /* 40 */
jpayne@69 1940 char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 41 */
jpayne@69 1941 void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); /* 42 */
jpayne@69 1942 int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); /* 43 */
jpayne@69 1943 int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); /* 44 */
jpayne@69 1944 int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); /* 45 */
jpayne@69 1945 int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); /* 46 */
jpayne@69 1946 int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); /* 47 */
jpayne@69 1947 int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); /* 48 */
jpayne@69 1948 Tcl_Obj * (*tcl_NewBooleanObj) (int intValue); /* 49 */
jpayne@69 1949 Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int length); /* 50 */
jpayne@69 1950 Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); /* 51 */
jpayne@69 1951 Tcl_Obj * (*tcl_NewIntObj) (int intValue); /* 52 */
jpayne@69 1952 Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); /* 53 */
jpayne@69 1953 Tcl_Obj * (*tcl_NewLongObj) (long longValue); /* 54 */
jpayne@69 1954 Tcl_Obj * (*tcl_NewObj) (void); /* 55 */
jpayne@69 1955 Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); /* 56 */
jpayne@69 1956 void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int intValue); /* 57 */
jpayne@69 1957 unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int numBytes); /* 58 */
jpayne@69 1958 void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int numBytes); /* 59 */
jpayne@69 1959 void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); /* 60 */
jpayne@69 1960 void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); /* 61 */
jpayne@69 1961 void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); /* 62 */
jpayne@69 1962 void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); /* 63 */
jpayne@69 1963 void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); /* 64 */
jpayne@69 1964 void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); /* 65 */
jpayne@69 1965 void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); /* 66 */
jpayne@69 1966 void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); /* 67 */
jpayne@69 1967 void (*tcl_AllowExceptions) (Tcl_Interp *interp); /* 68 */
jpayne@69 1968 void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); /* 69 */
jpayne@69 1969 void (*tcl_AppendResult) (Tcl_Interp *interp, ...); /* 70 */
jpayne@69 1970 Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); /* 71 */
jpayne@69 1971 void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); /* 72 */
jpayne@69 1972 int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); /* 73 */
jpayne@69 1973 void (*tcl_AsyncMark) (Tcl_AsyncHandler async); /* 74 */
jpayne@69 1974 int (*tcl_AsyncReady) (void); /* 75 */
jpayne@69 1975 void (*tcl_BackgroundError) (Tcl_Interp *interp); /* 76 */
jpayne@69 1976 char (*tcl_Backslash) (const char *src, int *readPtr); /* 77 */
jpayne@69 1977 int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); /* 78 */
jpayne@69 1978 void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 79 */
jpayne@69 1979 void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); /* 80 */
jpayne@69 1980 int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); /* 81 */
jpayne@69 1981 int (*tcl_CommandComplete) (const char *cmd); /* 82 */
jpayne@69 1982 char * (*tcl_Concat) (int argc, CONST84 char *const *argv); /* 83 */
jpayne@69 1983 int (*tcl_ConvertElement) (const char *src, char *dst, int flags); /* 84 */
jpayne@69 1984 int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); /* 85 */
jpayne@69 1985 int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); /* 86 */
jpayne@69 1986 int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); /* 87 */
jpayne@69 1987 Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); /* 88 */
jpayne@69 1988 void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); /* 89 */
jpayne@69 1989 void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 90 */
jpayne@69 1990 Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 91 */
jpayne@69 1991 void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 92 */
jpayne@69 1992 void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 93 */
jpayne@69 1993 Tcl_Interp * (*tcl_CreateInterp) (void); /* 94 */
jpayne@69 1994 void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); /* 95 */
jpayne@69 1995 Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 96 */
jpayne@69 1996 Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *name, int isSafe); /* 97 */
jpayne@69 1997 Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); /* 98 */
jpayne@69 1998 Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); /* 99 */
jpayne@69 1999 void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); /* 100 */
jpayne@69 2000 void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); /* 101 */
jpayne@69 2001 void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); /* 102 */
jpayne@69 2002 int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); /* 103 */
jpayne@69 2003 int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); /* 104 */
jpayne@69 2004 void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); /* 105 */
jpayne@69 2005 void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); /* 106 */
jpayne@69 2006 void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 107 */
jpayne@69 2007 void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); /* 108 */
jpayne@69 2008 void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); /* 109 */
jpayne@69 2009 void (*tcl_DeleteInterp) (Tcl_Interp *interp); /* 110 */
jpayne@69 2010 void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); /* 111 */
jpayne@69 2011 void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); /* 112 */
jpayne@69 2012 void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); /* 113 */
jpayne@69 2013 void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 114 */
jpayne@69 2014 int (*tcl_DoOneEvent) (int flags); /* 115 */
jpayne@69 2015 void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); /* 116 */
jpayne@69 2016 char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); /* 117 */
jpayne@69 2017 char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); /* 118 */
jpayne@69 2018 void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); /* 119 */
jpayne@69 2019 void (*tcl_DStringFree) (Tcl_DString *dsPtr); /* 120 */
jpayne@69 2020 void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 121 */
jpayne@69 2021 void (*tcl_DStringInit) (Tcl_DString *dsPtr); /* 122 */
jpayne@69 2022 void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); /* 123 */
jpayne@69 2023 void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); /* 124 */
jpayne@69 2024 void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); /* 125 */
jpayne@69 2025 int (*tcl_Eof) (Tcl_Channel chan); /* 126 */
jpayne@69 2026 CONST84_RETURN char * (*tcl_ErrnoId) (void); /* 127 */
jpayne@69 2027 CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); /* 128 */
jpayne@69 2028 int (*tcl_Eval) (Tcl_Interp *interp, const char *script); /* 129 */
jpayne@69 2029 int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); /* 130 */
jpayne@69 2030 int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 131 */
jpayne@69 2031 void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); /* 132 */
jpayne@69 2032 TCL_NORETURN1 void (*tcl_Exit) (int status); /* 133 */
jpayne@69 2033 int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); /* 134 */
jpayne@69 2034 int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); /* 135 */
jpayne@69 2035 int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); /* 136 */
jpayne@69 2036 int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); /* 137 */
jpayne@69 2037 int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); /* 138 */
jpayne@69 2038 int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); /* 139 */
jpayne@69 2039 int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); /* 140 */
jpayne@69 2040 int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); /* 141 */
jpayne@69 2041 int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); /* 142 */
jpayne@69 2042 void (*tcl_Finalize) (void); /* 143 */
jpayne@69 2043 void (*tcl_FindExecutable) (const char *argv0); /* 144 */
jpayne@69 2044 Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); /* 145 */
jpayne@69 2045 int (*tcl_Flush) (Tcl_Channel chan); /* 146 */
jpayne@69 2046 void (*tcl_FreeResult) (Tcl_Interp *interp); /* 147 */
jpayne@69 2047 int (*tcl_GetAlias) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); /* 148 */
jpayne@69 2048 int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); /* 149 */
jpayne@69 2049 ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); /* 150 */
jpayne@69 2050 Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); /* 151 */
jpayne@69 2051 int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); /* 152 */
jpayne@69 2052 int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); /* 153 */
jpayne@69 2053 ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); /* 154 */
jpayne@69 2054 int (*tcl_GetChannelMode) (Tcl_Channel chan); /* 155 */
jpayne@69 2055 CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); /* 156 */
jpayne@69 2056 int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); /* 157 */
jpayne@69 2057 CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); /* 158 */
jpayne@69 2058 int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); /* 159 */
jpayne@69 2059 CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); /* 160 */
jpayne@69 2060 int (*tcl_GetErrno) (void); /* 161 */
jpayne@69 2061 CONST84_RETURN char * (*tcl_GetHostName) (void); /* 162 */
jpayne@69 2062 int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); /* 163 */
jpayne@69 2063 Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); /* 164 */
jpayne@69 2064 const char * (*tcl_GetNameOfExecutable) (void); /* 165 */
jpayne@69 2065 Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); /* 166 */
jpayne@69 2066 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 2067 int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
jpayne@69 2068 #endif /* UNIX */
jpayne@69 2069 #if defined(_WIN32) /* WIN */
jpayne@69 2070 void (*reserved167)(void);
jpayne@69 2071 #endif /* WIN */
jpayne@69 2072 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 2073 int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); /* 167 */
jpayne@69 2074 #endif /* MACOSX */
jpayne@69 2075 Tcl_PathType (*tcl_GetPathType) (const char *path); /* 168 */
jpayne@69 2076 int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); /* 169 */
jpayne@69 2077 int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 170 */
jpayne@69 2078 int (*tcl_GetServiceMode) (void); /* 171 */
jpayne@69 2079 Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *name); /* 172 */
jpayne@69 2080 Tcl_Channel (*tcl_GetStdChannel) (int type); /* 173 */
jpayne@69 2081 CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); /* 174 */
jpayne@69 2082 CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 175 */
jpayne@69 2083 CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 176 */
jpayne@69 2084 int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); /* 177 */
jpayne@69 2085 int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 178 */
jpayne@69 2086 int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); /* 179 */
jpayne@69 2087 int (*tcl_Init) (Tcl_Interp *interp); /* 180 */
jpayne@69 2088 void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); /* 181 */
jpayne@69 2089 int (*tcl_InputBlocked) (Tcl_Channel chan); /* 182 */
jpayne@69 2090 int (*tcl_InputBuffered) (Tcl_Channel chan); /* 183 */
jpayne@69 2091 int (*tcl_InterpDeleted) (Tcl_Interp *interp); /* 184 */
jpayne@69 2092 int (*tcl_IsSafe) (Tcl_Interp *interp); /* 185 */
jpayne@69 2093 char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); /* 186 */
jpayne@69 2094 int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); /* 187 */
jpayne@69 2095 void (*reserved188)(void);
jpayne@69 2096 Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); /* 189 */
jpayne@69 2097 int (*tcl_MakeSafe) (Tcl_Interp *interp); /* 190 */
jpayne@69 2098 Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); /* 191 */
jpayne@69 2099 char * (*tcl_Merge) (int argc, CONST84 char *const *argv); /* 192 */
jpayne@69 2100 Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); /* 193 */
jpayne@69 2101 void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); /* 194 */
jpayne@69 2102 Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 195 */
jpayne@69 2103 Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); /* 196 */
jpayne@69 2104 Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); /* 197 */
jpayne@69 2105 Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); /* 198 */
jpayne@69 2106 Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int flags); /* 199 */
jpayne@69 2107 Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); /* 200 */
jpayne@69 2108 void (*tcl_Preserve) (ClientData data); /* 201 */
jpayne@69 2109 void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); /* 202 */
jpayne@69 2110 int (*tcl_PutEnv) (const char *assignment); /* 203 */
jpayne@69 2111 CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); /* 204 */
jpayne@69 2112 void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); /* 205 */
jpayne@69 2113 int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); /* 206 */
jpayne@69 2114 void (*tcl_ReapDetachedProcs) (void); /* 207 */
jpayne@69 2115 int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); /* 208 */
jpayne@69 2116 int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); /* 209 */
jpayne@69 2117 void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 210 */
jpayne@69 2118 void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); /* 211 */
jpayne@69 2119 Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); /* 212 */
jpayne@69 2120 int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); /* 213 */
jpayne@69 2121 int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); /* 214 */
jpayne@69 2122 void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); /* 215 */
jpayne@69 2123 void (*tcl_Release) (ClientData clientData); /* 216 */
jpayne@69 2124 void (*tcl_ResetResult) (Tcl_Interp *interp); /* 217 */
jpayne@69 2125 int (*tcl_ScanElement) (const char *src, int *flagPtr); /* 218 */
jpayne@69 2126 int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); /* 219 */
jpayne@69 2127 int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); /* 220 */
jpayne@69 2128 int (*tcl_ServiceAll) (void); /* 221 */
jpayne@69 2129 int (*tcl_ServiceEvent) (int flags); /* 222 */
jpayne@69 2130 void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); /* 223 */
jpayne@69 2131 void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); /* 224 */
jpayne@69 2132 int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); /* 225 */
jpayne@69 2133 int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); /* 226 */
jpayne@69 2134 void (*tcl_SetErrno) (int err); /* 227 */
jpayne@69 2135 void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); /* 228 */
jpayne@69 2136 void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); /* 229 */
jpayne@69 2137 void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); /* 230 */
jpayne@69 2138 int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); /* 231 */
jpayne@69 2139 void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); /* 232 */
jpayne@69 2140 int (*tcl_SetServiceMode) (int mode); /* 233 */
jpayne@69 2141 void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); /* 234 */
jpayne@69 2142 void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); /* 235 */
jpayne@69 2143 void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); /* 236 */
jpayne@69 2144 CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); /* 237 */
jpayne@69 2145 CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); /* 238 */
jpayne@69 2146 CONST84_RETURN char * (*tcl_SignalId) (int sig); /* 239 */
jpayne@69 2147 CONST84_RETURN char * (*tcl_SignalMsg) (int sig); /* 240 */
jpayne@69 2148 void (*tcl_SourceRCFile) (Tcl_Interp *interp); /* 241 */
jpayne@69 2149 int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); /* 242 */
jpayne@69 2150 void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); /* 243 */
jpayne@69 2151 void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); /* 244 */
jpayne@69 2152 int (*tcl_StringMatch) (const char *str, const char *pattern); /* 245 */
jpayne@69 2153 int (*tcl_TellOld) (Tcl_Channel chan); /* 246 */
jpayne@69 2154 int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 247 */
jpayne@69 2155 int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 248 */
jpayne@69 2156 char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); /* 249 */
jpayne@69 2157 int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); /* 250 */
jpayne@69 2158 void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); /* 251 */
jpayne@69 2159 int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 252 */
jpayne@69 2160 int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); /* 253 */
jpayne@69 2161 int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 254 */
jpayne@69 2162 void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 255 */
jpayne@69 2163 void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); /* 256 */
jpayne@69 2164 void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); /* 257 */
jpayne@69 2165 int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); /* 258 */
jpayne@69 2166 int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); /* 259 */
jpayne@69 2167 int (*tcl_VarEval) (Tcl_Interp *interp, ...); /* 260 */
jpayne@69 2168 ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 261 */
jpayne@69 2169 ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); /* 262 */
jpayne@69 2170 int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); /* 263 */
jpayne@69 2171 void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); /* 264 */
jpayne@69 2172 int (*tcl_DumpActiveMemory) (const char *fileName); /* 265 */
jpayne@69 2173 void (*tcl_ValidateAllMemory) (const char *file, int line); /* 266 */
jpayne@69 2174 void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); /* 267 */
jpayne@69 2175 void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); /* 268 */
jpayne@69 2176 char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); /* 269 */
jpayne@69 2177 CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); /* 270 */
jpayne@69 2178 CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 271 */
jpayne@69 2179 CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); /* 272 */
jpayne@69 2180 int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); /* 273 */
jpayne@69 2181 CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); /* 274 */
jpayne@69 2182 void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); /* 275 */
jpayne@69 2183 int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); /* 276 */
jpayne@69 2184 Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); /* 277 */
jpayne@69 2185 TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); /* 278 */
jpayne@69 2186 void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); /* 279 */
jpayne@69 2187 void (*tcl_InitMemory) (Tcl_Interp *interp); /* 280 */
jpayne@69 2188 Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); /* 281 */
jpayne@69 2189 int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); /* 282 */
jpayne@69 2190 Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); /* 283 */
jpayne@69 2191 void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); /* 284 */
jpayne@69 2192 void (*reserved285)(void);
jpayne@69 2193 void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); /* 286 */
jpayne@69 2194 Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); /* 287 */
jpayne@69 2195 void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 288 */
jpayne@69 2196 void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); /* 289 */
jpayne@69 2197 void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); /* 290 */
jpayne@69 2198 int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); /* 291 */
jpayne@69 2199 int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 292 */
jpayne@69 2200 int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 293 */
jpayne@69 2201 void (*tcl_ExitThread) (int status); /* 294 */
jpayne@69 2202 int (*tcl_ExternalToUtf) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 295 */
jpayne@69 2203 char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 296 */
jpayne@69 2204 void (*tcl_FinalizeThread) (void); /* 297 */
jpayne@69 2205 void (*tcl_FinalizeNotifier) (ClientData clientData); /* 298 */
jpayne@69 2206 void (*tcl_FreeEncoding) (Tcl_Encoding encoding); /* 299 */
jpayne@69 2207 Tcl_ThreadId (*tcl_GetCurrentThread) (void); /* 300 */
jpayne@69 2208 Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); /* 301 */
jpayne@69 2209 CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); /* 302 */
jpayne@69 2210 void (*tcl_GetEncodingNames) (Tcl_Interp *interp); /* 303 */
jpayne@69 2211 int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); /* 304 */
jpayne@69 2212 void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); /* 305 */
jpayne@69 2213 Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); /* 306 */
jpayne@69 2214 ClientData (*tcl_InitNotifier) (void); /* 307 */
jpayne@69 2215 void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); /* 308 */
jpayne@69 2216 void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); /* 309 */
jpayne@69 2217 void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); /* 310 */
jpayne@69 2218 void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); /* 311 */
jpayne@69 2219 int (*tcl_NumUtfChars) (const char *src, int length); /* 312 */
jpayne@69 2220 int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); /* 313 */
jpayne@69 2221 void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 314 */
jpayne@69 2222 void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); /* 315 */
jpayne@69 2223 int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); /* 316 */
jpayne@69 2224 Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); /* 317 */
jpayne@69 2225 void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); /* 318 */
jpayne@69 2226 void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); /* 319 */
jpayne@69 2227 Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); /* 320 */
jpayne@69 2228 Tcl_UniChar (*tcl_UniCharToLower) (int ch); /* 321 */
jpayne@69 2229 Tcl_UniChar (*tcl_UniCharToTitle) (int ch); /* 322 */
jpayne@69 2230 Tcl_UniChar (*tcl_UniCharToUpper) (int ch); /* 323 */
jpayne@69 2231 int (*tcl_UniCharToUtf) (int ch, char *buf); /* 324 */
jpayne@69 2232 CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); /* 325 */
jpayne@69 2233 int (*tcl_UtfCharComplete) (const char *src, int length); /* 326 */
jpayne@69 2234 int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); /* 327 */
jpayne@69 2235 CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); /* 328 */
jpayne@69 2236 CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); /* 329 */
jpayne@69 2237 CONST84_RETURN char * (*tcl_UtfNext) (const char *src); /* 330 */
jpayne@69 2238 CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); /* 331 */
jpayne@69 2239 int (*tcl_UtfToExternal) (Tcl_Interp *interp, Tcl_Encoding encoding, const char *src, int srcLen, int flags, Tcl_EncodingState *statePtr, char *dst, int dstLen, int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr); /* 332 */
jpayne@69 2240 char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); /* 333 */
jpayne@69 2241 int (*tcl_UtfToLower) (char *src); /* 334 */
jpayne@69 2242 int (*tcl_UtfToTitle) (char *src); /* 335 */
jpayne@69 2243 int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); /* 336 */
jpayne@69 2244 int (*tcl_UtfToUpper) (char *src); /* 337 */
jpayne@69 2245 int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); /* 338 */
jpayne@69 2246 int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); /* 339 */
jpayne@69 2247 char * (*tcl_GetString) (Tcl_Obj *objPtr); /* 340 */
jpayne@69 2248 CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); /* 341 */
jpayne@69 2249 void (*tcl_SetDefaultEncodingDir) (const char *path); /* 342 */
jpayne@69 2250 void (*tcl_AlertNotifier) (ClientData clientData); /* 343 */
jpayne@69 2251 void (*tcl_ServiceModeHook) (int mode); /* 344 */
jpayne@69 2252 int (*tcl_UniCharIsAlnum) (int ch); /* 345 */
jpayne@69 2253 int (*tcl_UniCharIsAlpha) (int ch); /* 346 */
jpayne@69 2254 int (*tcl_UniCharIsDigit) (int ch); /* 347 */
jpayne@69 2255 int (*tcl_UniCharIsLower) (int ch); /* 348 */
jpayne@69 2256 int (*tcl_UniCharIsSpace) (int ch); /* 349 */
jpayne@69 2257 int (*tcl_UniCharIsUpper) (int ch); /* 350 */
jpayne@69 2258 int (*tcl_UniCharIsWordChar) (int ch); /* 351 */
jpayne@69 2259 int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); /* 352 */
jpayne@69 2260 int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 353 */
jpayne@69 2261 char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); /* 354 */
jpayne@69 2262 Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); /* 355 */
jpayne@69 2263 Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); /* 356 */
jpayne@69 2264 Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 357 */
jpayne@69 2265 void (*tcl_FreeParse) (Tcl_Parse *parsePtr); /* 358 */
jpayne@69 2266 void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); /* 359 */
jpayne@69 2267 int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 360 */
jpayne@69 2268 int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); /* 361 */
jpayne@69 2269 int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); /* 362 */
jpayne@69 2270 int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); /* 363 */
jpayne@69 2271 int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); /* 364 */
jpayne@69 2272 char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); /* 365 */
jpayne@69 2273 int (*tcl_Chdir) (const char *dirName); /* 366 */
jpayne@69 2274 int (*tcl_Access) (const char *path, int mode); /* 367 */
jpayne@69 2275 int (*tcl_Stat) (const char *path, struct stat *bufPtr); /* 368 */
jpayne@69 2276 int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); /* 369 */
jpayne@69 2277 int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); /* 370 */
jpayne@69 2278 int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); /* 371 */
jpayne@69 2279 int (*tcl_UniCharIsControl) (int ch); /* 372 */
jpayne@69 2280 int (*tcl_UniCharIsGraph) (int ch); /* 373 */
jpayne@69 2281 int (*tcl_UniCharIsPrint) (int ch); /* 374 */
jpayne@69 2282 int (*tcl_UniCharIsPunct) (int ch); /* 375 */
jpayne@69 2283 int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); /* 376 */
jpayne@69 2284 void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); /* 377 */
jpayne@69 2285 Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); /* 378 */
jpayne@69 2286 void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); /* 379 */
jpayne@69 2287 int (*tcl_GetCharLength) (Tcl_Obj *objPtr); /* 380 */
jpayne@69 2288 Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); /* 381 */
jpayne@69 2289 Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); /* 382 */
jpayne@69 2290 Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); /* 383 */
jpayne@69 2291 void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); /* 384 */
jpayne@69 2292 int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); /* 385 */
jpayne@69 2293 void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); /* 386 */
jpayne@69 2294 Tcl_Mutex * (*tcl_GetAllocMutex) (void); /* 387 */
jpayne@69 2295 int (*tcl_GetChannelNames) (Tcl_Interp *interp); /* 388 */
jpayne@69 2296 int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); /* 389 */
jpayne@69 2297 int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); /* 390 */
jpayne@69 2298 void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); /* 391 */
jpayne@69 2299 void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); /* 392 */
jpayne@69 2300 int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); /* 393 */
jpayne@69 2301 int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); /* 394 */
jpayne@69 2302 int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); /* 395 */
jpayne@69 2303 Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); /* 396 */
jpayne@69 2304 int (*tcl_ChannelBuffered) (Tcl_Channel chan); /* 397 */
jpayne@69 2305 CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); /* 398 */
jpayne@69 2306 Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); /* 399 */
jpayne@69 2307 Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); /* 400 */
jpayne@69 2308 Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); /* 401 */
jpayne@69 2309 Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); /* 402 */
jpayne@69 2310 Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); /* 403 */
jpayne@69 2311 Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); /* 404 */
jpayne@69 2312 Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 405 */
jpayne@69 2313 Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 406 */
jpayne@69 2314 Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); /* 407 */
jpayne@69 2315 Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); /* 408 */
jpayne@69 2316 Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); /* 409 */
jpayne@69 2317 Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); /* 410 */
jpayne@69 2318 Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); /* 411 */
jpayne@69 2319 int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); /* 412 */
jpayne@69 2320 int (*tcl_IsChannelShared) (Tcl_Channel channel); /* 413 */
jpayne@69 2321 int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); /* 414 */
jpayne@69 2322 void (*tcl_CutChannel) (Tcl_Channel channel); /* 415 */
jpayne@69 2323 void (*tcl_SpliceChannel) (Tcl_Channel channel); /* 416 */
jpayne@69 2324 void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); /* 417 */
jpayne@69 2325 int (*tcl_IsChannelExisting) (const char *channelName); /* 418 */
jpayne@69 2326 int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); /* 419 */
jpayne@69 2327 int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); /* 420 */
jpayne@69 2328 Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); /* 421 */
jpayne@69 2329 Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); /* 422 */
jpayne@69 2330 void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); /* 423 */
jpayne@69 2331 void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); /* 424 */
jpayne@69 2332 ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); /* 425 */
jpayne@69 2333 int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 426 */
jpayne@69 2334 void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); /* 427 */
jpayne@69 2335 char * (*tcl_AttemptAlloc) (unsigned int size); /* 428 */
jpayne@69 2336 char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); /* 429 */
jpayne@69 2337 char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); /* 430 */
jpayne@69 2338 char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); /* 431 */
jpayne@69 2339 int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); /* 432 */
jpayne@69 2340 Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); /* 433 */
jpayne@69 2341 Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); /* 434 */
jpayne@69 2342 int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); /* 435 */
jpayne@69 2343 Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); /* 436 */
jpayne@69 2344 Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 437 */
jpayne@69 2345 int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); /* 438 */
jpayne@69 2346 int (*tcl_IsStandardChannel) (Tcl_Channel channel); /* 439 */
jpayne@69 2347 int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 440 */
jpayne@69 2348 int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); /* 441 */
jpayne@69 2349 int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); /* 442 */
jpayne@69 2350 int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); /* 443 */
jpayne@69 2351 int (*tcl_FSLoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *sym1, const char *sym2, Tcl_PackageInitProc **proc1Ptr, Tcl_PackageInitProc **proc2Ptr, Tcl_LoadHandle *handlePtr, Tcl_FSUnloadFileProc **unloadProcPtr); /* 444 */
jpayne@69 2352 int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); /* 445 */
jpayne@69 2353 Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); /* 446 */
jpayne@69 2354 int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); /* 447 */
jpayne@69 2355 int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); /* 448 */
jpayne@69 2356 int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 449 */
jpayne@69 2357 int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); /* 450 */
jpayne@69 2358 int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 451 */
jpayne@69 2359 int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); /* 452 */
jpayne@69 2360 const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); /* 453 */
jpayne@69 2361 int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); /* 454 */
jpayne@69 2362 int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); /* 455 */
jpayne@69 2363 Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); /* 456 */
jpayne@69 2364 Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); /* 457 */
jpayne@69 2365 int (*tcl_FSChdir) (Tcl_Obj *pathPtr); /* 458 */
jpayne@69 2366 int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 459 */
jpayne@69 2367 Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); /* 460 */
jpayne@69 2368 Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); /* 461 */
jpayne@69 2369 int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); /* 462 */
jpayne@69 2370 Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 463 */
jpayne@69 2371 Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); /* 464 */
jpayne@69 2372 ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); /* 465 */
jpayne@69 2373 Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 466 */
jpayne@69 2374 int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); /* 467 */
jpayne@69 2375 Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); /* 468 */
jpayne@69 2376 const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); /* 469 */
jpayne@69 2377 Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); /* 470 */
jpayne@69 2378 Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); /* 471 */
jpayne@69 2379 Tcl_Obj * (*tcl_FSListVolumes) (void); /* 472 */
jpayne@69 2380 int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); /* 473 */
jpayne@69 2381 int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); /* 474 */
jpayne@69 2382 ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); /* 475 */
jpayne@69 2383 const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); /* 476 */
jpayne@69 2384 CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); /* 477 */
jpayne@69 2385 Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); /* 478 */
jpayne@69 2386 int (*tcl_OutputBuffered) (Tcl_Channel chan); /* 479 */
jpayne@69 2387 void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); /* 480 */
jpayne@69 2388 int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); /* 481 */
jpayne@69 2389 void (*tcl_GetTime) (Tcl_Time *timeBuf); /* 482 */
jpayne@69 2390 Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); /* 483 */
jpayne@69 2391 int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); /* 484 */
jpayne@69 2392 int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); /* 485 */
jpayne@69 2393 Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); /* 486 */
jpayne@69 2394 int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); /* 487 */
jpayne@69 2395 Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); /* 488 */
jpayne@69 2396 void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); /* 489 */
jpayne@69 2397 Tcl_StatBuf * (*tcl_AllocStatBuf) (void); /* 490 */
jpayne@69 2398 Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); /* 491 */
jpayne@69 2399 Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); /* 492 */
jpayne@69 2400 Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); /* 493 */
jpayne@69 2401 int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); /* 494 */
jpayne@69 2402 int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); /* 495 */
jpayne@69 2403 int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); /* 496 */
jpayne@69 2404 int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); /* 497 */
jpayne@69 2405 int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 498 */
jpayne@69 2406 void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); /* 499 */
jpayne@69 2407 void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); /* 500 */
jpayne@69 2408 int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); /* 501 */
jpayne@69 2409 int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); /* 502 */
jpayne@69 2410 Tcl_Obj * (*tcl_NewDictObj) (void); /* 503 */
jpayne@69 2411 Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); /* 504 */
jpayne@69 2412 void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); /* 505 */
jpayne@69 2413 Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); /* 506 */
jpayne@69 2414 void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); /* 507 */
jpayne@69 2415 int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); /* 508 */
jpayne@69 2416 int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); /* 509 */
jpayne@69 2417 int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); /* 510 */
jpayne@69 2418 int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); /* 511 */
jpayne@69 2419 Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); /* 512 */
jpayne@69 2420 Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); /* 513 */
jpayne@69 2421 Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 514 */
jpayne@69 2422 Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); /* 515 */
jpayne@69 2423 Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 516 */
jpayne@69 2424 void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); /* 517 */
jpayne@69 2425 int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); /* 518 */
jpayne@69 2426 Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); /* 519 */
jpayne@69 2427 void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); /* 520 */
jpayne@69 2428 void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); /* 521 */
jpayne@69 2429 int (*tcl_LimitReady) (Tcl_Interp *interp); /* 522 */
jpayne@69 2430 int (*tcl_LimitCheck) (Tcl_Interp *interp); /* 523 */
jpayne@69 2431 int (*tcl_LimitExceeded) (Tcl_Interp *interp); /* 524 */
jpayne@69 2432 void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); /* 525 */
jpayne@69 2433 void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 526 */
jpayne@69 2434 void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); /* 527 */
jpayne@69 2435 int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); /* 528 */
jpayne@69 2436 int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); /* 529 */
jpayne@69 2437 void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); /* 530 */
jpayne@69 2438 void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); /* 531 */
jpayne@69 2439 int (*tcl_LimitGetCommands) (Tcl_Interp *interp); /* 532 */
jpayne@69 2440 void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); /* 533 */
jpayne@69 2441 int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); /* 534 */
jpayne@69 2442 Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); /* 535 */
jpayne@69 2443 int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); /* 536 */
jpayne@69 2444 void (*tcl_DiscardInterpState) (Tcl_InterpState state); /* 537 */
jpayne@69 2445 int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); /* 538 */
jpayne@69 2446 Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); /* 539 */
jpayne@69 2447 int (*tcl_IsEnsemble) (Tcl_Command token); /* 540 */
jpayne@69 2448 Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); /* 541 */
jpayne@69 2449 Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); /* 542 */
jpayne@69 2450 int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); /* 543 */
jpayne@69 2451 int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); /* 544 */
jpayne@69 2452 int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); /* 545 */
jpayne@69 2453 int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); /* 546 */
jpayne@69 2454 int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); /* 547 */
jpayne@69 2455 int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); /* 548 */
jpayne@69 2456 int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); /* 549 */
jpayne@69 2457 int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); /* 550 */
jpayne@69 2458 int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); /* 551 */
jpayne@69 2459 void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); /* 552 */
jpayne@69 2460 void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); /* 553 */
jpayne@69 2461 Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); /* 554 */
jpayne@69 2462 Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); /* 555 */
jpayne@69 2463 Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); /* 556 */
jpayne@69 2464 void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); /* 557 */
jpayne@69 2465 int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 558 */
jpayne@69 2466 int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); /* 559 */
jpayne@69 2467 int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */
jpayne@69 2468 Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); /* 561 */
jpayne@69 2469 void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); /* 562 */
jpayne@69 2470 void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); /* 563 */
jpayne@69 2471 void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); /* 564 */
jpayne@69 2472 void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); /* 565 */
jpayne@69 2473 int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); /* 566 */
jpayne@69 2474 Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); /* 567 */
jpayne@69 2475 int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); /* 568 */
jpayne@69 2476 int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); /* 569 */
jpayne@69 2477 Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); /* 570 */
jpayne@69 2478 int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); /* 571 */
jpayne@69 2479 const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); /* 572 */
jpayne@69 2480 int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); /* 573 */
jpayne@69 2481 void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); /* 574 */
jpayne@69 2482 void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); /* 575 */
jpayne@69 2483 Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); /* 576 */
jpayne@69 2484 int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); /* 577 */
jpayne@69 2485 Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); /* 578 */
jpayne@69 2486 void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); /* 579 */
jpayne@69 2487 int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); /* 580 */
jpayne@69 2488 int (*tcl_Canceled) (Tcl_Interp *interp, int flags); /* 581 */
jpayne@69 2489 int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); /* 582 */
jpayne@69 2490 Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); /* 583 */
jpayne@69 2491 int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 584 */
jpayne@69 2492 int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); /* 585 */
jpayne@69 2493 int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); /* 586 */
jpayne@69 2494 void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); /* 587 */
jpayne@69 2495 int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); /* 588 */
jpayne@69 2496 unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); /* 589 */
jpayne@69 2497 unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); /* 590 */
jpayne@69 2498 unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); /* 591 */
jpayne@69 2499 int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); /* 592 */
jpayne@69 2500 int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); /* 593 */
jpayne@69 2501 int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); /* 594 */
jpayne@69 2502 int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); /* 595 */
jpayne@69 2503 Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); /* 596 */
jpayne@69 2504 Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); /* 597 */
jpayne@69 2505 Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); /* 598 */
jpayne@69 2506 Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); /* 599 */
jpayne@69 2507 Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); /* 600 */
jpayne@69 2508 unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); /* 601 */
jpayne@69 2509 int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); /* 602 */
jpayne@69 2510 int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); /* 603 */
jpayne@69 2511 int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); /* 604 */
jpayne@69 2512 int (*tcl_GetErrorLine) (Tcl_Interp *interp); /* 605 */
jpayne@69 2513 void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); /* 606 */
jpayne@69 2514 void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); /* 607 */
jpayne@69 2515 int (*tcl_InterpActive) (Tcl_Interp *interp); /* 608 */
jpayne@69 2516 void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); /* 609 */
jpayne@69 2517 int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); /* 610 */
jpayne@69 2518 int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); /* 611 */
jpayne@69 2519 unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); /* 612 */
jpayne@69 2520 unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); /* 613 */
jpayne@69 2521 int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); /* 614 */
jpayne@69 2522 Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); /* 615 */
jpayne@69 2523 int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); /* 616 */
jpayne@69 2524 int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); /* 617 */
jpayne@69 2525 int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); /* 618 */
jpayne@69 2526 int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); /* 619 */
jpayne@69 2527 int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); /* 620 */
jpayne@69 2528 int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); /* 621 */
jpayne@69 2529 void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); /* 622 */
jpayne@69 2530 Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); /* 623 */
jpayne@69 2531 int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); /* 624 */
jpayne@69 2532 int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); /* 625 */
jpayne@69 2533 int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); /* 626 */
jpayne@69 2534 int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); /* 627 */
jpayne@69 2535 void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); /* 628 */
jpayne@69 2536 int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); /* 629 */
jpayne@69 2537 void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); /* 630 */
jpayne@69 2538 void (*reserved631)(void);
jpayne@69 2539 void (*reserved632)(void);
jpayne@69 2540 void (*reserved633)(void);
jpayne@69 2541 void (*reserved634)(void);
jpayne@69 2542 void (*reserved635)(void);
jpayne@69 2543 void (*reserved636)(void);
jpayne@69 2544 void (*reserved637)(void);
jpayne@69 2545 void (*reserved638)(void);
jpayne@69 2546 void (*reserved639)(void);
jpayne@69 2547 void (*reserved640)(void);
jpayne@69 2548 void (*reserved641)(void);
jpayne@69 2549 void (*reserved642)(void);
jpayne@69 2550 void (*reserved643)(void);
jpayne@69 2551 void (*reserved644)(void);
jpayne@69 2552 void (*reserved645)(void);
jpayne@69 2553 void (*reserved646)(void);
jpayne@69 2554 void (*reserved647)(void);
jpayne@69 2555 void (*reserved648)(void);
jpayne@69 2556 void (*reserved649)(void);
jpayne@69 2557 void (*reserved650)(void);
jpayne@69 2558 void (*reserved651)(void);
jpayne@69 2559 void (*reserved652)(void);
jpayne@69 2560 void (*reserved653)(void);
jpayne@69 2561 void (*reserved654)(void);
jpayne@69 2562 void (*reserved655)(void);
jpayne@69 2563 void (*reserved656)(void);
jpayne@69 2564 void (*reserved657)(void);
jpayne@69 2565 void (*reserved658)(void);
jpayne@69 2566 void (*reserved659)(void);
jpayne@69 2567 void (*reserved660)(void);
jpayne@69 2568 void (*reserved661)(void);
jpayne@69 2569 void (*reserved662)(void);
jpayne@69 2570 void (*reserved663)(void);
jpayne@69 2571 void (*reserved664)(void);
jpayne@69 2572 void (*reserved665)(void);
jpayne@69 2573 void (*reserved666)(void);
jpayne@69 2574 void (*reserved667)(void);
jpayne@69 2575 void (*reserved668)(void);
jpayne@69 2576 void (*reserved669)(void);
jpayne@69 2577 void (*reserved670)(void);
jpayne@69 2578 void (*reserved671)(void);
jpayne@69 2579 void (*reserved672)(void);
jpayne@69 2580 void (*reserved673)(void);
jpayne@69 2581 void (*reserved674)(void);
jpayne@69 2582 void (*reserved675)(void);
jpayne@69 2583 void (*reserved676)(void);
jpayne@69 2584 void (*reserved677)(void);
jpayne@69 2585 void (*reserved678)(void);
jpayne@69 2586 void (*reserved679)(void);
jpayne@69 2587 void (*reserved680)(void);
jpayne@69 2588 void (*reserved681)(void);
jpayne@69 2589 void (*reserved682)(void);
jpayne@69 2590 void (*tclUnusedStubEntry) (void); /* 683 */
jpayne@69 2591 } TclStubs;
jpayne@69 2592
jpayne@69 2593 extern const TclStubs *tclStubsPtr;
jpayne@69 2594
jpayne@69 2595 #ifdef __cplusplus
jpayne@69 2596 }
jpayne@69 2597 #endif
jpayne@69 2598
jpayne@69 2599 #if defined(USE_TCL_STUBS)
jpayne@69 2600
jpayne@69 2601 /*
jpayne@69 2602 * Inline function declarations:
jpayne@69 2603 */
jpayne@69 2604
jpayne@69 2605 #define Tcl_PkgProvideEx \
jpayne@69 2606 (tclStubsPtr->tcl_PkgProvideEx) /* 0 */
jpayne@69 2607 #define Tcl_PkgRequireEx \
jpayne@69 2608 (tclStubsPtr->tcl_PkgRequireEx) /* 1 */
jpayne@69 2609 #define Tcl_Panic \
jpayne@69 2610 (tclStubsPtr->tcl_Panic) /* 2 */
jpayne@69 2611 #define Tcl_Alloc \
jpayne@69 2612 (tclStubsPtr->tcl_Alloc) /* 3 */
jpayne@69 2613 #define Tcl_Free \
jpayne@69 2614 (tclStubsPtr->tcl_Free) /* 4 */
jpayne@69 2615 #define Tcl_Realloc \
jpayne@69 2616 (tclStubsPtr->tcl_Realloc) /* 5 */
jpayne@69 2617 #define Tcl_DbCkalloc \
jpayne@69 2618 (tclStubsPtr->tcl_DbCkalloc) /* 6 */
jpayne@69 2619 #define Tcl_DbCkfree \
jpayne@69 2620 (tclStubsPtr->tcl_DbCkfree) /* 7 */
jpayne@69 2621 #define Tcl_DbCkrealloc \
jpayne@69 2622 (tclStubsPtr->tcl_DbCkrealloc) /* 8 */
jpayne@69 2623 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 2624 #define Tcl_CreateFileHandler \
jpayne@69 2625 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
jpayne@69 2626 #endif /* UNIX */
jpayne@69 2627 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 2628 #define Tcl_CreateFileHandler \
jpayne@69 2629 (tclStubsPtr->tcl_CreateFileHandler) /* 9 */
jpayne@69 2630 #endif /* MACOSX */
jpayne@69 2631 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 2632 #define Tcl_DeleteFileHandler \
jpayne@69 2633 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
jpayne@69 2634 #endif /* UNIX */
jpayne@69 2635 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 2636 #define Tcl_DeleteFileHandler \
jpayne@69 2637 (tclStubsPtr->tcl_DeleteFileHandler) /* 10 */
jpayne@69 2638 #endif /* MACOSX */
jpayne@69 2639 #define Tcl_SetTimer \
jpayne@69 2640 (tclStubsPtr->tcl_SetTimer) /* 11 */
jpayne@69 2641 #define Tcl_Sleep \
jpayne@69 2642 (tclStubsPtr->tcl_Sleep) /* 12 */
jpayne@69 2643 #define Tcl_WaitForEvent \
jpayne@69 2644 (tclStubsPtr->tcl_WaitForEvent) /* 13 */
jpayne@69 2645 #define Tcl_AppendAllObjTypes \
jpayne@69 2646 (tclStubsPtr->tcl_AppendAllObjTypes) /* 14 */
jpayne@69 2647 #define Tcl_AppendStringsToObj \
jpayne@69 2648 (tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
jpayne@69 2649 #define Tcl_AppendToObj \
jpayne@69 2650 (tclStubsPtr->tcl_AppendToObj) /* 16 */
jpayne@69 2651 #define Tcl_ConcatObj \
jpayne@69 2652 (tclStubsPtr->tcl_ConcatObj) /* 17 */
jpayne@69 2653 #define Tcl_ConvertToType \
jpayne@69 2654 (tclStubsPtr->tcl_ConvertToType) /* 18 */
jpayne@69 2655 #define Tcl_DbDecrRefCount \
jpayne@69 2656 (tclStubsPtr->tcl_DbDecrRefCount) /* 19 */
jpayne@69 2657 #define Tcl_DbIncrRefCount \
jpayne@69 2658 (tclStubsPtr->tcl_DbIncrRefCount) /* 20 */
jpayne@69 2659 #define Tcl_DbIsShared \
jpayne@69 2660 (tclStubsPtr->tcl_DbIsShared) /* 21 */
jpayne@69 2661 #define Tcl_DbNewBooleanObj \
jpayne@69 2662 (tclStubsPtr->tcl_DbNewBooleanObj) /* 22 */
jpayne@69 2663 #define Tcl_DbNewByteArrayObj \
jpayne@69 2664 (tclStubsPtr->tcl_DbNewByteArrayObj) /* 23 */
jpayne@69 2665 #define Tcl_DbNewDoubleObj \
jpayne@69 2666 (tclStubsPtr->tcl_DbNewDoubleObj) /* 24 */
jpayne@69 2667 #define Tcl_DbNewListObj \
jpayne@69 2668 (tclStubsPtr->tcl_DbNewListObj) /* 25 */
jpayne@69 2669 #define Tcl_DbNewLongObj \
jpayne@69 2670 (tclStubsPtr->tcl_DbNewLongObj) /* 26 */
jpayne@69 2671 #define Tcl_DbNewObj \
jpayne@69 2672 (tclStubsPtr->tcl_DbNewObj) /* 27 */
jpayne@69 2673 #define Tcl_DbNewStringObj \
jpayne@69 2674 (tclStubsPtr->tcl_DbNewStringObj) /* 28 */
jpayne@69 2675 #define Tcl_DuplicateObj \
jpayne@69 2676 (tclStubsPtr->tcl_DuplicateObj) /* 29 */
jpayne@69 2677 #define TclFreeObj \
jpayne@69 2678 (tclStubsPtr->tclFreeObj) /* 30 */
jpayne@69 2679 #define Tcl_GetBoolean \
jpayne@69 2680 (tclStubsPtr->tcl_GetBoolean) /* 31 */
jpayne@69 2681 #define Tcl_GetBooleanFromObj \
jpayne@69 2682 (tclStubsPtr->tcl_GetBooleanFromObj) /* 32 */
jpayne@69 2683 #define Tcl_GetByteArrayFromObj \
jpayne@69 2684 (tclStubsPtr->tcl_GetByteArrayFromObj) /* 33 */
jpayne@69 2685 #define Tcl_GetDouble \
jpayne@69 2686 (tclStubsPtr->tcl_GetDouble) /* 34 */
jpayne@69 2687 #define Tcl_GetDoubleFromObj \
jpayne@69 2688 (tclStubsPtr->tcl_GetDoubleFromObj) /* 35 */
jpayne@69 2689 #define Tcl_GetIndexFromObj \
jpayne@69 2690 (tclStubsPtr->tcl_GetIndexFromObj) /* 36 */
jpayne@69 2691 #define Tcl_GetInt \
jpayne@69 2692 (tclStubsPtr->tcl_GetInt) /* 37 */
jpayne@69 2693 #define Tcl_GetIntFromObj \
jpayne@69 2694 (tclStubsPtr->tcl_GetIntFromObj) /* 38 */
jpayne@69 2695 #define Tcl_GetLongFromObj \
jpayne@69 2696 (tclStubsPtr->tcl_GetLongFromObj) /* 39 */
jpayne@69 2697 #define Tcl_GetObjType \
jpayne@69 2698 (tclStubsPtr->tcl_GetObjType) /* 40 */
jpayne@69 2699 #define Tcl_GetStringFromObj \
jpayne@69 2700 (tclStubsPtr->tcl_GetStringFromObj) /* 41 */
jpayne@69 2701 #define Tcl_InvalidateStringRep \
jpayne@69 2702 (tclStubsPtr->tcl_InvalidateStringRep) /* 42 */
jpayne@69 2703 #define Tcl_ListObjAppendList \
jpayne@69 2704 (tclStubsPtr->tcl_ListObjAppendList) /* 43 */
jpayne@69 2705 #define Tcl_ListObjAppendElement \
jpayne@69 2706 (tclStubsPtr->tcl_ListObjAppendElement) /* 44 */
jpayne@69 2707 #define Tcl_ListObjGetElements \
jpayne@69 2708 (tclStubsPtr->tcl_ListObjGetElements) /* 45 */
jpayne@69 2709 #define Tcl_ListObjIndex \
jpayne@69 2710 (tclStubsPtr->tcl_ListObjIndex) /* 46 */
jpayne@69 2711 #define Tcl_ListObjLength \
jpayne@69 2712 (tclStubsPtr->tcl_ListObjLength) /* 47 */
jpayne@69 2713 #define Tcl_ListObjReplace \
jpayne@69 2714 (tclStubsPtr->tcl_ListObjReplace) /* 48 */
jpayne@69 2715 #define Tcl_NewBooleanObj \
jpayne@69 2716 (tclStubsPtr->tcl_NewBooleanObj) /* 49 */
jpayne@69 2717 #define Tcl_NewByteArrayObj \
jpayne@69 2718 (tclStubsPtr->tcl_NewByteArrayObj) /* 50 */
jpayne@69 2719 #define Tcl_NewDoubleObj \
jpayne@69 2720 (tclStubsPtr->tcl_NewDoubleObj) /* 51 */
jpayne@69 2721 #define Tcl_NewIntObj \
jpayne@69 2722 (tclStubsPtr->tcl_NewIntObj) /* 52 */
jpayne@69 2723 #define Tcl_NewListObj \
jpayne@69 2724 (tclStubsPtr->tcl_NewListObj) /* 53 */
jpayne@69 2725 #define Tcl_NewLongObj \
jpayne@69 2726 (tclStubsPtr->tcl_NewLongObj) /* 54 */
jpayne@69 2727 #define Tcl_NewObj \
jpayne@69 2728 (tclStubsPtr->tcl_NewObj) /* 55 */
jpayne@69 2729 #define Tcl_NewStringObj \
jpayne@69 2730 (tclStubsPtr->tcl_NewStringObj) /* 56 */
jpayne@69 2731 #define Tcl_SetBooleanObj \
jpayne@69 2732 (tclStubsPtr->tcl_SetBooleanObj) /* 57 */
jpayne@69 2733 #define Tcl_SetByteArrayLength \
jpayne@69 2734 (tclStubsPtr->tcl_SetByteArrayLength) /* 58 */
jpayne@69 2735 #define Tcl_SetByteArrayObj \
jpayne@69 2736 (tclStubsPtr->tcl_SetByteArrayObj) /* 59 */
jpayne@69 2737 #define Tcl_SetDoubleObj \
jpayne@69 2738 (tclStubsPtr->tcl_SetDoubleObj) /* 60 */
jpayne@69 2739 #define Tcl_SetIntObj \
jpayne@69 2740 (tclStubsPtr->tcl_SetIntObj) /* 61 */
jpayne@69 2741 #define Tcl_SetListObj \
jpayne@69 2742 (tclStubsPtr->tcl_SetListObj) /* 62 */
jpayne@69 2743 #define Tcl_SetLongObj \
jpayne@69 2744 (tclStubsPtr->tcl_SetLongObj) /* 63 */
jpayne@69 2745 #define Tcl_SetObjLength \
jpayne@69 2746 (tclStubsPtr->tcl_SetObjLength) /* 64 */
jpayne@69 2747 #define Tcl_SetStringObj \
jpayne@69 2748 (tclStubsPtr->tcl_SetStringObj) /* 65 */
jpayne@69 2749 #define Tcl_AddErrorInfo \
jpayne@69 2750 (tclStubsPtr->tcl_AddErrorInfo) /* 66 */
jpayne@69 2751 #define Tcl_AddObjErrorInfo \
jpayne@69 2752 (tclStubsPtr->tcl_AddObjErrorInfo) /* 67 */
jpayne@69 2753 #define Tcl_AllowExceptions \
jpayne@69 2754 (tclStubsPtr->tcl_AllowExceptions) /* 68 */
jpayne@69 2755 #define Tcl_AppendElement \
jpayne@69 2756 (tclStubsPtr->tcl_AppendElement) /* 69 */
jpayne@69 2757 #define Tcl_AppendResult \
jpayne@69 2758 (tclStubsPtr->tcl_AppendResult) /* 70 */
jpayne@69 2759 #define Tcl_AsyncCreate \
jpayne@69 2760 (tclStubsPtr->tcl_AsyncCreate) /* 71 */
jpayne@69 2761 #define Tcl_AsyncDelete \
jpayne@69 2762 (tclStubsPtr->tcl_AsyncDelete) /* 72 */
jpayne@69 2763 #define Tcl_AsyncInvoke \
jpayne@69 2764 (tclStubsPtr->tcl_AsyncInvoke) /* 73 */
jpayne@69 2765 #define Tcl_AsyncMark \
jpayne@69 2766 (tclStubsPtr->tcl_AsyncMark) /* 74 */
jpayne@69 2767 #define Tcl_AsyncReady \
jpayne@69 2768 (tclStubsPtr->tcl_AsyncReady) /* 75 */
jpayne@69 2769 #define Tcl_BackgroundError \
jpayne@69 2770 (tclStubsPtr->tcl_BackgroundError) /* 76 */
jpayne@69 2771 #define Tcl_Backslash \
jpayne@69 2772 (tclStubsPtr->tcl_Backslash) /* 77 */
jpayne@69 2773 #define Tcl_BadChannelOption \
jpayne@69 2774 (tclStubsPtr->tcl_BadChannelOption) /* 78 */
jpayne@69 2775 #define Tcl_CallWhenDeleted \
jpayne@69 2776 (tclStubsPtr->tcl_CallWhenDeleted) /* 79 */
jpayne@69 2777 #define Tcl_CancelIdleCall \
jpayne@69 2778 (tclStubsPtr->tcl_CancelIdleCall) /* 80 */
jpayne@69 2779 #define Tcl_Close \
jpayne@69 2780 (tclStubsPtr->tcl_Close) /* 81 */
jpayne@69 2781 #define Tcl_CommandComplete \
jpayne@69 2782 (tclStubsPtr->tcl_CommandComplete) /* 82 */
jpayne@69 2783 #define Tcl_Concat \
jpayne@69 2784 (tclStubsPtr->tcl_Concat) /* 83 */
jpayne@69 2785 #define Tcl_ConvertElement \
jpayne@69 2786 (tclStubsPtr->tcl_ConvertElement) /* 84 */
jpayne@69 2787 #define Tcl_ConvertCountedElement \
jpayne@69 2788 (tclStubsPtr->tcl_ConvertCountedElement) /* 85 */
jpayne@69 2789 #define Tcl_CreateAlias \
jpayne@69 2790 (tclStubsPtr->tcl_CreateAlias) /* 86 */
jpayne@69 2791 #define Tcl_CreateAliasObj \
jpayne@69 2792 (tclStubsPtr->tcl_CreateAliasObj) /* 87 */
jpayne@69 2793 #define Tcl_CreateChannel \
jpayne@69 2794 (tclStubsPtr->tcl_CreateChannel) /* 88 */
jpayne@69 2795 #define Tcl_CreateChannelHandler \
jpayne@69 2796 (tclStubsPtr->tcl_CreateChannelHandler) /* 89 */
jpayne@69 2797 #define Tcl_CreateCloseHandler \
jpayne@69 2798 (tclStubsPtr->tcl_CreateCloseHandler) /* 90 */
jpayne@69 2799 #define Tcl_CreateCommand \
jpayne@69 2800 (tclStubsPtr->tcl_CreateCommand) /* 91 */
jpayne@69 2801 #define Tcl_CreateEventSource \
jpayne@69 2802 (tclStubsPtr->tcl_CreateEventSource) /* 92 */
jpayne@69 2803 #define Tcl_CreateExitHandler \
jpayne@69 2804 (tclStubsPtr->tcl_CreateExitHandler) /* 93 */
jpayne@69 2805 #define Tcl_CreateInterp \
jpayne@69 2806 (tclStubsPtr->tcl_CreateInterp) /* 94 */
jpayne@69 2807 #define Tcl_CreateMathFunc \
jpayne@69 2808 (tclStubsPtr->tcl_CreateMathFunc) /* 95 */
jpayne@69 2809 #define Tcl_CreateObjCommand \
jpayne@69 2810 (tclStubsPtr->tcl_CreateObjCommand) /* 96 */
jpayne@69 2811 #define Tcl_CreateSlave \
jpayne@69 2812 (tclStubsPtr->tcl_CreateSlave) /* 97 */
jpayne@69 2813 #define Tcl_CreateTimerHandler \
jpayne@69 2814 (tclStubsPtr->tcl_CreateTimerHandler) /* 98 */
jpayne@69 2815 #define Tcl_CreateTrace \
jpayne@69 2816 (tclStubsPtr->tcl_CreateTrace) /* 99 */
jpayne@69 2817 #define Tcl_DeleteAssocData \
jpayne@69 2818 (tclStubsPtr->tcl_DeleteAssocData) /* 100 */
jpayne@69 2819 #define Tcl_DeleteChannelHandler \
jpayne@69 2820 (tclStubsPtr->tcl_DeleteChannelHandler) /* 101 */
jpayne@69 2821 #define Tcl_DeleteCloseHandler \
jpayne@69 2822 (tclStubsPtr->tcl_DeleteCloseHandler) /* 102 */
jpayne@69 2823 #define Tcl_DeleteCommand \
jpayne@69 2824 (tclStubsPtr->tcl_DeleteCommand) /* 103 */
jpayne@69 2825 #define Tcl_DeleteCommandFromToken \
jpayne@69 2826 (tclStubsPtr->tcl_DeleteCommandFromToken) /* 104 */
jpayne@69 2827 #define Tcl_DeleteEvents \
jpayne@69 2828 (tclStubsPtr->tcl_DeleteEvents) /* 105 */
jpayne@69 2829 #define Tcl_DeleteEventSource \
jpayne@69 2830 (tclStubsPtr->tcl_DeleteEventSource) /* 106 */
jpayne@69 2831 #define Tcl_DeleteExitHandler \
jpayne@69 2832 (tclStubsPtr->tcl_DeleteExitHandler) /* 107 */
jpayne@69 2833 #define Tcl_DeleteHashEntry \
jpayne@69 2834 (tclStubsPtr->tcl_DeleteHashEntry) /* 108 */
jpayne@69 2835 #define Tcl_DeleteHashTable \
jpayne@69 2836 (tclStubsPtr->tcl_DeleteHashTable) /* 109 */
jpayne@69 2837 #define Tcl_DeleteInterp \
jpayne@69 2838 (tclStubsPtr->tcl_DeleteInterp) /* 110 */
jpayne@69 2839 #define Tcl_DetachPids \
jpayne@69 2840 (tclStubsPtr->tcl_DetachPids) /* 111 */
jpayne@69 2841 #define Tcl_DeleteTimerHandler \
jpayne@69 2842 (tclStubsPtr->tcl_DeleteTimerHandler) /* 112 */
jpayne@69 2843 #define Tcl_DeleteTrace \
jpayne@69 2844 (tclStubsPtr->tcl_DeleteTrace) /* 113 */
jpayne@69 2845 #define Tcl_DontCallWhenDeleted \
jpayne@69 2846 (tclStubsPtr->tcl_DontCallWhenDeleted) /* 114 */
jpayne@69 2847 #define Tcl_DoOneEvent \
jpayne@69 2848 (tclStubsPtr->tcl_DoOneEvent) /* 115 */
jpayne@69 2849 #define Tcl_DoWhenIdle \
jpayne@69 2850 (tclStubsPtr->tcl_DoWhenIdle) /* 116 */
jpayne@69 2851 #define Tcl_DStringAppend \
jpayne@69 2852 (tclStubsPtr->tcl_DStringAppend) /* 117 */
jpayne@69 2853 #define Tcl_DStringAppendElement \
jpayne@69 2854 (tclStubsPtr->tcl_DStringAppendElement) /* 118 */
jpayne@69 2855 #define Tcl_DStringEndSublist \
jpayne@69 2856 (tclStubsPtr->tcl_DStringEndSublist) /* 119 */
jpayne@69 2857 #define Tcl_DStringFree \
jpayne@69 2858 (tclStubsPtr->tcl_DStringFree) /* 120 */
jpayne@69 2859 #define Tcl_DStringGetResult \
jpayne@69 2860 (tclStubsPtr->tcl_DStringGetResult) /* 121 */
jpayne@69 2861 #define Tcl_DStringInit \
jpayne@69 2862 (tclStubsPtr->tcl_DStringInit) /* 122 */
jpayne@69 2863 #define Tcl_DStringResult \
jpayne@69 2864 (tclStubsPtr->tcl_DStringResult) /* 123 */
jpayne@69 2865 #define Tcl_DStringSetLength \
jpayne@69 2866 (tclStubsPtr->tcl_DStringSetLength) /* 124 */
jpayne@69 2867 #define Tcl_DStringStartSublist \
jpayne@69 2868 (tclStubsPtr->tcl_DStringStartSublist) /* 125 */
jpayne@69 2869 #define Tcl_Eof \
jpayne@69 2870 (tclStubsPtr->tcl_Eof) /* 126 */
jpayne@69 2871 #define Tcl_ErrnoId \
jpayne@69 2872 (tclStubsPtr->tcl_ErrnoId) /* 127 */
jpayne@69 2873 #define Tcl_ErrnoMsg \
jpayne@69 2874 (tclStubsPtr->tcl_ErrnoMsg) /* 128 */
jpayne@69 2875 #define Tcl_Eval \
jpayne@69 2876 (tclStubsPtr->tcl_Eval) /* 129 */
jpayne@69 2877 #define Tcl_EvalFile \
jpayne@69 2878 (tclStubsPtr->tcl_EvalFile) /* 130 */
jpayne@69 2879 #define Tcl_EvalObj \
jpayne@69 2880 (tclStubsPtr->tcl_EvalObj) /* 131 */
jpayne@69 2881 #define Tcl_EventuallyFree \
jpayne@69 2882 (tclStubsPtr->tcl_EventuallyFree) /* 132 */
jpayne@69 2883 #define Tcl_Exit \
jpayne@69 2884 (tclStubsPtr->tcl_Exit) /* 133 */
jpayne@69 2885 #define Tcl_ExposeCommand \
jpayne@69 2886 (tclStubsPtr->tcl_ExposeCommand) /* 134 */
jpayne@69 2887 #define Tcl_ExprBoolean \
jpayne@69 2888 (tclStubsPtr->tcl_ExprBoolean) /* 135 */
jpayne@69 2889 #define Tcl_ExprBooleanObj \
jpayne@69 2890 (tclStubsPtr->tcl_ExprBooleanObj) /* 136 */
jpayne@69 2891 #define Tcl_ExprDouble \
jpayne@69 2892 (tclStubsPtr->tcl_ExprDouble) /* 137 */
jpayne@69 2893 #define Tcl_ExprDoubleObj \
jpayne@69 2894 (tclStubsPtr->tcl_ExprDoubleObj) /* 138 */
jpayne@69 2895 #define Tcl_ExprLong \
jpayne@69 2896 (tclStubsPtr->tcl_ExprLong) /* 139 */
jpayne@69 2897 #define Tcl_ExprLongObj \
jpayne@69 2898 (tclStubsPtr->tcl_ExprLongObj) /* 140 */
jpayne@69 2899 #define Tcl_ExprObj \
jpayne@69 2900 (tclStubsPtr->tcl_ExprObj) /* 141 */
jpayne@69 2901 #define Tcl_ExprString \
jpayne@69 2902 (tclStubsPtr->tcl_ExprString) /* 142 */
jpayne@69 2903 #define Tcl_Finalize \
jpayne@69 2904 (tclStubsPtr->tcl_Finalize) /* 143 */
jpayne@69 2905 #define Tcl_FindExecutable \
jpayne@69 2906 (tclStubsPtr->tcl_FindExecutable) /* 144 */
jpayne@69 2907 #define Tcl_FirstHashEntry \
jpayne@69 2908 (tclStubsPtr->tcl_FirstHashEntry) /* 145 */
jpayne@69 2909 #define Tcl_Flush \
jpayne@69 2910 (tclStubsPtr->tcl_Flush) /* 146 */
jpayne@69 2911 #define Tcl_FreeResult \
jpayne@69 2912 (tclStubsPtr->tcl_FreeResult) /* 147 */
jpayne@69 2913 #define Tcl_GetAlias \
jpayne@69 2914 (tclStubsPtr->tcl_GetAlias) /* 148 */
jpayne@69 2915 #define Tcl_GetAliasObj \
jpayne@69 2916 (tclStubsPtr->tcl_GetAliasObj) /* 149 */
jpayne@69 2917 #define Tcl_GetAssocData \
jpayne@69 2918 (tclStubsPtr->tcl_GetAssocData) /* 150 */
jpayne@69 2919 #define Tcl_GetChannel \
jpayne@69 2920 (tclStubsPtr->tcl_GetChannel) /* 151 */
jpayne@69 2921 #define Tcl_GetChannelBufferSize \
jpayne@69 2922 (tclStubsPtr->tcl_GetChannelBufferSize) /* 152 */
jpayne@69 2923 #define Tcl_GetChannelHandle \
jpayne@69 2924 (tclStubsPtr->tcl_GetChannelHandle) /* 153 */
jpayne@69 2925 #define Tcl_GetChannelInstanceData \
jpayne@69 2926 (tclStubsPtr->tcl_GetChannelInstanceData) /* 154 */
jpayne@69 2927 #define Tcl_GetChannelMode \
jpayne@69 2928 (tclStubsPtr->tcl_GetChannelMode) /* 155 */
jpayne@69 2929 #define Tcl_GetChannelName \
jpayne@69 2930 (tclStubsPtr->tcl_GetChannelName) /* 156 */
jpayne@69 2931 #define Tcl_GetChannelOption \
jpayne@69 2932 (tclStubsPtr->tcl_GetChannelOption) /* 157 */
jpayne@69 2933 #define Tcl_GetChannelType \
jpayne@69 2934 (tclStubsPtr->tcl_GetChannelType) /* 158 */
jpayne@69 2935 #define Tcl_GetCommandInfo \
jpayne@69 2936 (tclStubsPtr->tcl_GetCommandInfo) /* 159 */
jpayne@69 2937 #define Tcl_GetCommandName \
jpayne@69 2938 (tclStubsPtr->tcl_GetCommandName) /* 160 */
jpayne@69 2939 #define Tcl_GetErrno \
jpayne@69 2940 (tclStubsPtr->tcl_GetErrno) /* 161 */
jpayne@69 2941 #define Tcl_GetHostName \
jpayne@69 2942 (tclStubsPtr->tcl_GetHostName) /* 162 */
jpayne@69 2943 #define Tcl_GetInterpPath \
jpayne@69 2944 (tclStubsPtr->tcl_GetInterpPath) /* 163 */
jpayne@69 2945 #define Tcl_GetMaster \
jpayne@69 2946 (tclStubsPtr->tcl_GetMaster) /* 164 */
jpayne@69 2947 #define Tcl_GetNameOfExecutable \
jpayne@69 2948 (tclStubsPtr->tcl_GetNameOfExecutable) /* 165 */
jpayne@69 2949 #define Tcl_GetObjResult \
jpayne@69 2950 (tclStubsPtr->tcl_GetObjResult) /* 166 */
jpayne@69 2951 #if !defined(_WIN32) && !defined(MAC_OSX_TCL) /* UNIX */
jpayne@69 2952 #define Tcl_GetOpenFile \
jpayne@69 2953 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
jpayne@69 2954 #endif /* UNIX */
jpayne@69 2955 #ifdef MAC_OSX_TCL /* MACOSX */
jpayne@69 2956 #define Tcl_GetOpenFile \
jpayne@69 2957 (tclStubsPtr->tcl_GetOpenFile) /* 167 */
jpayne@69 2958 #endif /* MACOSX */
jpayne@69 2959 #define Tcl_GetPathType \
jpayne@69 2960 (tclStubsPtr->tcl_GetPathType) /* 168 */
jpayne@69 2961 #define Tcl_Gets \
jpayne@69 2962 (tclStubsPtr->tcl_Gets) /* 169 */
jpayne@69 2963 #define Tcl_GetsObj \
jpayne@69 2964 (tclStubsPtr->tcl_GetsObj) /* 170 */
jpayne@69 2965 #define Tcl_GetServiceMode \
jpayne@69 2966 (tclStubsPtr->tcl_GetServiceMode) /* 171 */
jpayne@69 2967 #define Tcl_GetSlave \
jpayne@69 2968 (tclStubsPtr->tcl_GetSlave) /* 172 */
jpayne@69 2969 #define Tcl_GetStdChannel \
jpayne@69 2970 (tclStubsPtr->tcl_GetStdChannel) /* 173 */
jpayne@69 2971 #define Tcl_GetStringResult \
jpayne@69 2972 (tclStubsPtr->tcl_GetStringResult) /* 174 */
jpayne@69 2973 #define Tcl_GetVar \
jpayne@69 2974 (tclStubsPtr->tcl_GetVar) /* 175 */
jpayne@69 2975 #define Tcl_GetVar2 \
jpayne@69 2976 (tclStubsPtr->tcl_GetVar2) /* 176 */
jpayne@69 2977 #define Tcl_GlobalEval \
jpayne@69 2978 (tclStubsPtr->tcl_GlobalEval) /* 177 */
jpayne@69 2979 #define Tcl_GlobalEvalObj \
jpayne@69 2980 (tclStubsPtr->tcl_GlobalEvalObj) /* 178 */
jpayne@69 2981 #define Tcl_HideCommand \
jpayne@69 2982 (tclStubsPtr->tcl_HideCommand) /* 179 */
jpayne@69 2983 #define Tcl_Init \
jpayne@69 2984 (tclStubsPtr->tcl_Init) /* 180 */
jpayne@69 2985 #define Tcl_InitHashTable \
jpayne@69 2986 (tclStubsPtr->tcl_InitHashTable) /* 181 */
jpayne@69 2987 #define Tcl_InputBlocked \
jpayne@69 2988 (tclStubsPtr->tcl_InputBlocked) /* 182 */
jpayne@69 2989 #define Tcl_InputBuffered \
jpayne@69 2990 (tclStubsPtr->tcl_InputBuffered) /* 183 */
jpayne@69 2991 #define Tcl_InterpDeleted \
jpayne@69 2992 (tclStubsPtr->tcl_InterpDeleted) /* 184 */
jpayne@69 2993 #define Tcl_IsSafe \
jpayne@69 2994 (tclStubsPtr->tcl_IsSafe) /* 185 */
jpayne@69 2995 #define Tcl_JoinPath \
jpayne@69 2996 (tclStubsPtr->tcl_JoinPath) /* 186 */
jpayne@69 2997 #define Tcl_LinkVar \
jpayne@69 2998 (tclStubsPtr->tcl_LinkVar) /* 187 */
jpayne@69 2999 /* Slot 188 is reserved */
jpayne@69 3000 #define Tcl_MakeFileChannel \
jpayne@69 3001 (tclStubsPtr->tcl_MakeFileChannel) /* 189 */
jpayne@69 3002 #define Tcl_MakeSafe \
jpayne@69 3003 (tclStubsPtr->tcl_MakeSafe) /* 190 */
jpayne@69 3004 #define Tcl_MakeTcpClientChannel \
jpayne@69 3005 (tclStubsPtr->tcl_MakeTcpClientChannel) /* 191 */
jpayne@69 3006 #define Tcl_Merge \
jpayne@69 3007 (tclStubsPtr->tcl_Merge) /* 192 */
jpayne@69 3008 #define Tcl_NextHashEntry \
jpayne@69 3009 (tclStubsPtr->tcl_NextHashEntry) /* 193 */
jpayne@69 3010 #define Tcl_NotifyChannel \
jpayne@69 3011 (tclStubsPtr->tcl_NotifyChannel) /* 194 */
jpayne@69 3012 #define Tcl_ObjGetVar2 \
jpayne@69 3013 (tclStubsPtr->tcl_ObjGetVar2) /* 195 */
jpayne@69 3014 #define Tcl_ObjSetVar2 \
jpayne@69 3015 (tclStubsPtr->tcl_ObjSetVar2) /* 196 */
jpayne@69 3016 #define Tcl_OpenCommandChannel \
jpayne@69 3017 (tclStubsPtr->tcl_OpenCommandChannel) /* 197 */
jpayne@69 3018 #define Tcl_OpenFileChannel \
jpayne@69 3019 (tclStubsPtr->tcl_OpenFileChannel) /* 198 */
jpayne@69 3020 #define Tcl_OpenTcpClient \
jpayne@69 3021 (tclStubsPtr->tcl_OpenTcpClient) /* 199 */
jpayne@69 3022 #define Tcl_OpenTcpServer \
jpayne@69 3023 (tclStubsPtr->tcl_OpenTcpServer) /* 200 */
jpayne@69 3024 #define Tcl_Preserve \
jpayne@69 3025 (tclStubsPtr->tcl_Preserve) /* 201 */
jpayne@69 3026 #define Tcl_PrintDouble \
jpayne@69 3027 (tclStubsPtr->tcl_PrintDouble) /* 202 */
jpayne@69 3028 #define Tcl_PutEnv \
jpayne@69 3029 (tclStubsPtr->tcl_PutEnv) /* 203 */
jpayne@69 3030 #define Tcl_PosixError \
jpayne@69 3031 (tclStubsPtr->tcl_PosixError) /* 204 */
jpayne@69 3032 #define Tcl_QueueEvent \
jpayne@69 3033 (tclStubsPtr->tcl_QueueEvent) /* 205 */
jpayne@69 3034 #define Tcl_Read \
jpayne@69 3035 (tclStubsPtr->tcl_Read) /* 206 */
jpayne@69 3036 #define Tcl_ReapDetachedProcs \
jpayne@69 3037 (tclStubsPtr->tcl_ReapDetachedProcs) /* 207 */
jpayne@69 3038 #define Tcl_RecordAndEval \
jpayne@69 3039 (tclStubsPtr->tcl_RecordAndEval) /* 208 */
jpayne@69 3040 #define Tcl_RecordAndEvalObj \
jpayne@69 3041 (tclStubsPtr->tcl_RecordAndEvalObj) /* 209 */
jpayne@69 3042 #define Tcl_RegisterChannel \
jpayne@69 3043 (tclStubsPtr->tcl_RegisterChannel) /* 210 */
jpayne@69 3044 #define Tcl_RegisterObjType \
jpayne@69 3045 (tclStubsPtr->tcl_RegisterObjType) /* 211 */
jpayne@69 3046 #define Tcl_RegExpCompile \
jpayne@69 3047 (tclStubsPtr->tcl_RegExpCompile) /* 212 */
jpayne@69 3048 #define Tcl_RegExpExec \
jpayne@69 3049 (tclStubsPtr->tcl_RegExpExec) /* 213 */
jpayne@69 3050 #define Tcl_RegExpMatch \
jpayne@69 3051 (tclStubsPtr->tcl_RegExpMatch) /* 214 */
jpayne@69 3052 #define Tcl_RegExpRange \
jpayne@69 3053 (tclStubsPtr->tcl_RegExpRange) /* 215 */
jpayne@69 3054 #define Tcl_Release \
jpayne@69 3055 (tclStubsPtr->tcl_Release) /* 216 */
jpayne@69 3056 #define Tcl_ResetResult \
jpayne@69 3057 (tclStubsPtr->tcl_ResetResult) /* 217 */
jpayne@69 3058 #define Tcl_ScanElement \
jpayne@69 3059 (tclStubsPtr->tcl_ScanElement) /* 218 */
jpayne@69 3060 #define Tcl_ScanCountedElement \
jpayne@69 3061 (tclStubsPtr->tcl_ScanCountedElement) /* 219 */
jpayne@69 3062 #define Tcl_SeekOld \
jpayne@69 3063 (tclStubsPtr->tcl_SeekOld) /* 220 */
jpayne@69 3064 #define Tcl_ServiceAll \
jpayne@69 3065 (tclStubsPtr->tcl_ServiceAll) /* 221 */
jpayne@69 3066 #define Tcl_ServiceEvent \
jpayne@69 3067 (tclStubsPtr->tcl_ServiceEvent) /* 222 */
jpayne@69 3068 #define Tcl_SetAssocData \
jpayne@69 3069 (tclStubsPtr->tcl_SetAssocData) /* 223 */
jpayne@69 3070 #define Tcl_SetChannelBufferSize \
jpayne@69 3071 (tclStubsPtr->tcl_SetChannelBufferSize) /* 224 */
jpayne@69 3072 #define Tcl_SetChannelOption \
jpayne@69 3073 (tclStubsPtr->tcl_SetChannelOption) /* 225 */
jpayne@69 3074 #define Tcl_SetCommandInfo \
jpayne@69 3075 (tclStubsPtr->tcl_SetCommandInfo) /* 226 */
jpayne@69 3076 #define Tcl_SetErrno \
jpayne@69 3077 (tclStubsPtr->tcl_SetErrno) /* 227 */
jpayne@69 3078 #define Tcl_SetErrorCode \
jpayne@69 3079 (tclStubsPtr->tcl_SetErrorCode) /* 228 */
jpayne@69 3080 #define Tcl_SetMaxBlockTime \
jpayne@69 3081 (tclStubsPtr->tcl_SetMaxBlockTime) /* 229 */
jpayne@69 3082 #define Tcl_SetPanicProc \
jpayne@69 3083 (tclStubsPtr->tcl_SetPanicProc) /* 230 */
jpayne@69 3084 #define Tcl_SetRecursionLimit \
jpayne@69 3085 (tclStubsPtr->tcl_SetRecursionLimit) /* 231 */
jpayne@69 3086 #define Tcl_SetResult \
jpayne@69 3087 (tclStubsPtr->tcl_SetResult) /* 232 */
jpayne@69 3088 #define Tcl_SetServiceMode \
jpayne@69 3089 (tclStubsPtr->tcl_SetServiceMode) /* 233 */
jpayne@69 3090 #define Tcl_SetObjErrorCode \
jpayne@69 3091 (tclStubsPtr->tcl_SetObjErrorCode) /* 234 */
jpayne@69 3092 #define Tcl_SetObjResult \
jpayne@69 3093 (tclStubsPtr->tcl_SetObjResult) /* 235 */
jpayne@69 3094 #define Tcl_SetStdChannel \
jpayne@69 3095 (tclStubsPtr->tcl_SetStdChannel) /* 236 */
jpayne@69 3096 #define Tcl_SetVar \
jpayne@69 3097 (tclStubsPtr->tcl_SetVar) /* 237 */
jpayne@69 3098 #define Tcl_SetVar2 \
jpayne@69 3099 (tclStubsPtr->tcl_SetVar2) /* 238 */
jpayne@69 3100 #define Tcl_SignalId \
jpayne@69 3101 (tclStubsPtr->tcl_SignalId) /* 239 */
jpayne@69 3102 #define Tcl_SignalMsg \
jpayne@69 3103 (tclStubsPtr->tcl_SignalMsg) /* 240 */
jpayne@69 3104 #define Tcl_SourceRCFile \
jpayne@69 3105 (tclStubsPtr->tcl_SourceRCFile) /* 241 */
jpayne@69 3106 #define Tcl_SplitList \
jpayne@69 3107 (tclStubsPtr->tcl_SplitList) /* 242 */
jpayne@69 3108 #define Tcl_SplitPath \
jpayne@69 3109 (tclStubsPtr->tcl_SplitPath) /* 243 */
jpayne@69 3110 #define Tcl_StaticPackage \
jpayne@69 3111 (tclStubsPtr->tcl_StaticPackage) /* 244 */
jpayne@69 3112 #define Tcl_StringMatch \
jpayne@69 3113 (tclStubsPtr->tcl_StringMatch) /* 245 */
jpayne@69 3114 #define Tcl_TellOld \
jpayne@69 3115 (tclStubsPtr->tcl_TellOld) /* 246 */
jpayne@69 3116 #define Tcl_TraceVar \
jpayne@69 3117 (tclStubsPtr->tcl_TraceVar) /* 247 */
jpayne@69 3118 #define Tcl_TraceVar2 \
jpayne@69 3119 (tclStubsPtr->tcl_TraceVar2) /* 248 */
jpayne@69 3120 #define Tcl_TranslateFileName \
jpayne@69 3121 (tclStubsPtr->tcl_TranslateFileName) /* 249 */
jpayne@69 3122 #define Tcl_Ungets \
jpayne@69 3123 (tclStubsPtr->tcl_Ungets) /* 250 */
jpayne@69 3124 #define Tcl_UnlinkVar \
jpayne@69 3125 (tclStubsPtr->tcl_UnlinkVar) /* 251 */
jpayne@69 3126 #define Tcl_UnregisterChannel \
jpayne@69 3127 (tclStubsPtr->tcl_UnregisterChannel) /* 252 */
jpayne@69 3128 #define Tcl_UnsetVar \
jpayne@69 3129 (tclStubsPtr->tcl_UnsetVar) /* 253 */
jpayne@69 3130 #define Tcl_UnsetVar2 \
jpayne@69 3131 (tclStubsPtr->tcl_UnsetVar2) /* 254 */
jpayne@69 3132 #define Tcl_UntraceVar \
jpayne@69 3133 (tclStubsPtr->tcl_UntraceVar) /* 255 */
jpayne@69 3134 #define Tcl_UntraceVar2 \
jpayne@69 3135 (tclStubsPtr->tcl_UntraceVar2) /* 256 */
jpayne@69 3136 #define Tcl_UpdateLinkedVar \
jpayne@69 3137 (tclStubsPtr->tcl_UpdateLinkedVar) /* 257 */
jpayne@69 3138 #define Tcl_UpVar \
jpayne@69 3139 (tclStubsPtr->tcl_UpVar) /* 258 */
jpayne@69 3140 #define Tcl_UpVar2 \
jpayne@69 3141 (tclStubsPtr->tcl_UpVar2) /* 259 */
jpayne@69 3142 #define Tcl_VarEval \
jpayne@69 3143 (tclStubsPtr->tcl_VarEval) /* 260 */
jpayne@69 3144 #define Tcl_VarTraceInfo \
jpayne@69 3145 (tclStubsPtr->tcl_VarTraceInfo) /* 261 */
jpayne@69 3146 #define Tcl_VarTraceInfo2 \
jpayne@69 3147 (tclStubsPtr->tcl_VarTraceInfo2) /* 262 */
jpayne@69 3148 #define Tcl_Write \
jpayne@69 3149 (tclStubsPtr->tcl_Write) /* 263 */
jpayne@69 3150 #define Tcl_WrongNumArgs \
jpayne@69 3151 (tclStubsPtr->tcl_WrongNumArgs) /* 264 */
jpayne@69 3152 #define Tcl_DumpActiveMemory \
jpayne@69 3153 (tclStubsPtr->tcl_DumpActiveMemory) /* 265 */
jpayne@69 3154 #define Tcl_ValidateAllMemory \
jpayne@69 3155 (tclStubsPtr->tcl_ValidateAllMemory) /* 266 */
jpayne@69 3156 #define Tcl_AppendResultVA \
jpayne@69 3157 (tclStubsPtr->tcl_AppendResultVA) /* 267 */
jpayne@69 3158 #define Tcl_AppendStringsToObjVA \
jpayne@69 3159 (tclStubsPtr->tcl_AppendStringsToObjVA) /* 268 */
jpayne@69 3160 #define Tcl_HashStats \
jpayne@69 3161 (tclStubsPtr->tcl_HashStats) /* 269 */
jpayne@69 3162 #define Tcl_ParseVar \
jpayne@69 3163 (tclStubsPtr->tcl_ParseVar) /* 270 */
jpayne@69 3164 #define Tcl_PkgPresent \
jpayne@69 3165 (tclStubsPtr->tcl_PkgPresent) /* 271 */
jpayne@69 3166 #define Tcl_PkgPresentEx \
jpayne@69 3167 (tclStubsPtr->tcl_PkgPresentEx) /* 272 */
jpayne@69 3168 #define Tcl_PkgProvide \
jpayne@69 3169 (tclStubsPtr->tcl_PkgProvide) /* 273 */
jpayne@69 3170 #define Tcl_PkgRequire \
jpayne@69 3171 (tclStubsPtr->tcl_PkgRequire) /* 274 */
jpayne@69 3172 #define Tcl_SetErrorCodeVA \
jpayne@69 3173 (tclStubsPtr->tcl_SetErrorCodeVA) /* 275 */
jpayne@69 3174 #define Tcl_VarEvalVA \
jpayne@69 3175 (tclStubsPtr->tcl_VarEvalVA) /* 276 */
jpayne@69 3176 #define Tcl_WaitPid \
jpayne@69 3177 (tclStubsPtr->tcl_WaitPid) /* 277 */
jpayne@69 3178 #define Tcl_PanicVA \
jpayne@69 3179 (tclStubsPtr->tcl_PanicVA) /* 278 */
jpayne@69 3180 #define Tcl_GetVersion \
jpayne@69 3181 (tclStubsPtr->tcl_GetVersion) /* 279 */
jpayne@69 3182 #define Tcl_InitMemory \
jpayne@69 3183 (tclStubsPtr->tcl_InitMemory) /* 280 */
jpayne@69 3184 #define Tcl_StackChannel \
jpayne@69 3185 (tclStubsPtr->tcl_StackChannel) /* 281 */
jpayne@69 3186 #define Tcl_UnstackChannel \
jpayne@69 3187 (tclStubsPtr->tcl_UnstackChannel) /* 282 */
jpayne@69 3188 #define Tcl_GetStackedChannel \
jpayne@69 3189 (tclStubsPtr->tcl_GetStackedChannel) /* 283 */
jpayne@69 3190 #define Tcl_SetMainLoop \
jpayne@69 3191 (tclStubsPtr->tcl_SetMainLoop) /* 284 */
jpayne@69 3192 /* Slot 285 is reserved */
jpayne@69 3193 #define Tcl_AppendObjToObj \
jpayne@69 3194 (tclStubsPtr->tcl_AppendObjToObj) /* 286 */
jpayne@69 3195 #define Tcl_CreateEncoding \
jpayne@69 3196 (tclStubsPtr->tcl_CreateEncoding) /* 287 */
jpayne@69 3197 #define Tcl_CreateThreadExitHandler \
jpayne@69 3198 (tclStubsPtr->tcl_CreateThreadExitHandler) /* 288 */
jpayne@69 3199 #define Tcl_DeleteThreadExitHandler \
jpayne@69 3200 (tclStubsPtr->tcl_DeleteThreadExitHandler) /* 289 */
jpayne@69 3201 #define Tcl_DiscardResult \
jpayne@69 3202 (tclStubsPtr->tcl_DiscardResult) /* 290 */
jpayne@69 3203 #define Tcl_EvalEx \
jpayne@69 3204 (tclStubsPtr->tcl_EvalEx) /* 291 */
jpayne@69 3205 #define Tcl_EvalObjv \
jpayne@69 3206 (tclStubsPtr->tcl_EvalObjv) /* 292 */
jpayne@69 3207 #define Tcl_EvalObjEx \
jpayne@69 3208 (tclStubsPtr->tcl_EvalObjEx) /* 293 */
jpayne@69 3209 #define Tcl_ExitThread \
jpayne@69 3210 (tclStubsPtr->tcl_ExitThread) /* 294 */
jpayne@69 3211 #define Tcl_ExternalToUtf \
jpayne@69 3212 (tclStubsPtr->tcl_ExternalToUtf) /* 295 */
jpayne@69 3213 #define Tcl_ExternalToUtfDString \
jpayne@69 3214 (tclStubsPtr->tcl_ExternalToUtfDString) /* 296 */
jpayne@69 3215 #define Tcl_FinalizeThread \
jpayne@69 3216 (tclStubsPtr->tcl_FinalizeThread) /* 297 */
jpayne@69 3217 #define Tcl_FinalizeNotifier \
jpayne@69 3218 (tclStubsPtr->tcl_FinalizeNotifier) /* 298 */
jpayne@69 3219 #define Tcl_FreeEncoding \
jpayne@69 3220 (tclStubsPtr->tcl_FreeEncoding) /* 299 */
jpayne@69 3221 #define Tcl_GetCurrentThread \
jpayne@69 3222 (tclStubsPtr->tcl_GetCurrentThread) /* 300 */
jpayne@69 3223 #define Tcl_GetEncoding \
jpayne@69 3224 (tclStubsPtr->tcl_GetEncoding) /* 301 */
jpayne@69 3225 #define Tcl_GetEncodingName \
jpayne@69 3226 (tclStubsPtr->tcl_GetEncodingName) /* 302 */
jpayne@69 3227 #define Tcl_GetEncodingNames \
jpayne@69 3228 (tclStubsPtr->tcl_GetEncodingNames) /* 303 */
jpayne@69 3229 #define Tcl_GetIndexFromObjStruct \
jpayne@69 3230 (tclStubsPtr->tcl_GetIndexFromObjStruct) /* 304 */
jpayne@69 3231 #define Tcl_GetThreadData \
jpayne@69 3232 (tclStubsPtr->tcl_GetThreadData) /* 305 */
jpayne@69 3233 #define Tcl_GetVar2Ex \
jpayne@69 3234 (tclStubsPtr->tcl_GetVar2Ex) /* 306 */
jpayne@69 3235 #define Tcl_InitNotifier \
jpayne@69 3236 (tclStubsPtr->tcl_InitNotifier) /* 307 */
jpayne@69 3237 #define Tcl_MutexLock \
jpayne@69 3238 (tclStubsPtr->tcl_MutexLock) /* 308 */
jpayne@69 3239 #define Tcl_MutexUnlock \
jpayne@69 3240 (tclStubsPtr->tcl_MutexUnlock) /* 309 */
jpayne@69 3241 #define Tcl_ConditionNotify \
jpayne@69 3242 (tclStubsPtr->tcl_ConditionNotify) /* 310 */
jpayne@69 3243 #define Tcl_ConditionWait \
jpayne@69 3244 (tclStubsPtr->tcl_ConditionWait) /* 311 */
jpayne@69 3245 #define Tcl_NumUtfChars \
jpayne@69 3246 (tclStubsPtr->tcl_NumUtfChars) /* 312 */
jpayne@69 3247 #define Tcl_ReadChars \
jpayne@69 3248 (tclStubsPtr->tcl_ReadChars) /* 313 */
jpayne@69 3249 #define Tcl_RestoreResult \
jpayne@69 3250 (tclStubsPtr->tcl_RestoreResult) /* 314 */
jpayne@69 3251 #define Tcl_SaveResult \
jpayne@69 3252 (tclStubsPtr->tcl_SaveResult) /* 315 */
jpayne@69 3253 #define Tcl_SetSystemEncoding \
jpayne@69 3254 (tclStubsPtr->tcl_SetSystemEncoding) /* 316 */
jpayne@69 3255 #define Tcl_SetVar2Ex \
jpayne@69 3256 (tclStubsPtr->tcl_SetVar2Ex) /* 317 */
jpayne@69 3257 #define Tcl_ThreadAlert \
jpayne@69 3258 (tclStubsPtr->tcl_ThreadAlert) /* 318 */
jpayne@69 3259 #define Tcl_ThreadQueueEvent \
jpayne@69 3260 (tclStubsPtr->tcl_ThreadQueueEvent) /* 319 */
jpayne@69 3261 #define Tcl_UniCharAtIndex \
jpayne@69 3262 (tclStubsPtr->tcl_UniCharAtIndex) /* 320 */
jpayne@69 3263 #define Tcl_UniCharToLower \
jpayne@69 3264 (tclStubsPtr->tcl_UniCharToLower) /* 321 */
jpayne@69 3265 #define Tcl_UniCharToTitle \
jpayne@69 3266 (tclStubsPtr->tcl_UniCharToTitle) /* 322 */
jpayne@69 3267 #define Tcl_UniCharToUpper \
jpayne@69 3268 (tclStubsPtr->tcl_UniCharToUpper) /* 323 */
jpayne@69 3269 #define Tcl_UniCharToUtf \
jpayne@69 3270 (tclStubsPtr->tcl_UniCharToUtf) /* 324 */
jpayne@69 3271 #define Tcl_UtfAtIndex \
jpayne@69 3272 (tclStubsPtr->tcl_UtfAtIndex) /* 325 */
jpayne@69 3273 #define Tcl_UtfCharComplete \
jpayne@69 3274 (tclStubsPtr->tcl_UtfCharComplete) /* 326 */
jpayne@69 3275 #define Tcl_UtfBackslash \
jpayne@69 3276 (tclStubsPtr->tcl_UtfBackslash) /* 327 */
jpayne@69 3277 #define Tcl_UtfFindFirst \
jpayne@69 3278 (tclStubsPtr->tcl_UtfFindFirst) /* 328 */
jpayne@69 3279 #define Tcl_UtfFindLast \
jpayne@69 3280 (tclStubsPtr->tcl_UtfFindLast) /* 329 */
jpayne@69 3281 #define Tcl_UtfNext \
jpayne@69 3282 (tclStubsPtr->tcl_UtfNext) /* 330 */
jpayne@69 3283 #define Tcl_UtfPrev \
jpayne@69 3284 (tclStubsPtr->tcl_UtfPrev) /* 331 */
jpayne@69 3285 #define Tcl_UtfToExternal \
jpayne@69 3286 (tclStubsPtr->tcl_UtfToExternal) /* 332 */
jpayne@69 3287 #define Tcl_UtfToExternalDString \
jpayne@69 3288 (tclStubsPtr->tcl_UtfToExternalDString) /* 333 */
jpayne@69 3289 #define Tcl_UtfToLower \
jpayne@69 3290 (tclStubsPtr->tcl_UtfToLower) /* 334 */
jpayne@69 3291 #define Tcl_UtfToTitle \
jpayne@69 3292 (tclStubsPtr->tcl_UtfToTitle) /* 335 */
jpayne@69 3293 #define Tcl_UtfToUniChar \
jpayne@69 3294 (tclStubsPtr->tcl_UtfToUniChar) /* 336 */
jpayne@69 3295 #define Tcl_UtfToUpper \
jpayne@69 3296 (tclStubsPtr->tcl_UtfToUpper) /* 337 */
jpayne@69 3297 #define Tcl_WriteChars \
jpayne@69 3298 (tclStubsPtr->tcl_WriteChars) /* 338 */
jpayne@69 3299 #define Tcl_WriteObj \
jpayne@69 3300 (tclStubsPtr->tcl_WriteObj) /* 339 */
jpayne@69 3301 #define Tcl_GetString \
jpayne@69 3302 (tclStubsPtr->tcl_GetString) /* 340 */
jpayne@69 3303 #define Tcl_GetDefaultEncodingDir \
jpayne@69 3304 (tclStubsPtr->tcl_GetDefaultEncodingDir) /* 341 */
jpayne@69 3305 #define Tcl_SetDefaultEncodingDir \
jpayne@69 3306 (tclStubsPtr->tcl_SetDefaultEncodingDir) /* 342 */
jpayne@69 3307 #define Tcl_AlertNotifier \
jpayne@69 3308 (tclStubsPtr->tcl_AlertNotifier) /* 343 */
jpayne@69 3309 #define Tcl_ServiceModeHook \
jpayne@69 3310 (tclStubsPtr->tcl_ServiceModeHook) /* 344 */
jpayne@69 3311 #define Tcl_UniCharIsAlnum \
jpayne@69 3312 (tclStubsPtr->tcl_UniCharIsAlnum) /* 345 */
jpayne@69 3313 #define Tcl_UniCharIsAlpha \
jpayne@69 3314 (tclStubsPtr->tcl_UniCharIsAlpha) /* 346 */
jpayne@69 3315 #define Tcl_UniCharIsDigit \
jpayne@69 3316 (tclStubsPtr->tcl_UniCharIsDigit) /* 347 */
jpayne@69 3317 #define Tcl_UniCharIsLower \
jpayne@69 3318 (tclStubsPtr->tcl_UniCharIsLower) /* 348 */
jpayne@69 3319 #define Tcl_UniCharIsSpace \
jpayne@69 3320 (tclStubsPtr->tcl_UniCharIsSpace) /* 349 */
jpayne@69 3321 #define Tcl_UniCharIsUpper \
jpayne@69 3322 (tclStubsPtr->tcl_UniCharIsUpper) /* 350 */
jpayne@69 3323 #define Tcl_UniCharIsWordChar \
jpayne@69 3324 (tclStubsPtr->tcl_UniCharIsWordChar) /* 351 */
jpayne@69 3325 #define Tcl_UniCharLen \
jpayne@69 3326 (tclStubsPtr->tcl_UniCharLen) /* 352 */
jpayne@69 3327 #define Tcl_UniCharNcmp \
jpayne@69 3328 (tclStubsPtr->tcl_UniCharNcmp) /* 353 */
jpayne@69 3329 #define Tcl_UniCharToUtfDString \
jpayne@69 3330 (tclStubsPtr->tcl_UniCharToUtfDString) /* 354 */
jpayne@69 3331 #define Tcl_UtfToUniCharDString \
jpayne@69 3332 (tclStubsPtr->tcl_UtfToUniCharDString) /* 355 */
jpayne@69 3333 #define Tcl_GetRegExpFromObj \
jpayne@69 3334 (tclStubsPtr->tcl_GetRegExpFromObj) /* 356 */
jpayne@69 3335 #define Tcl_EvalTokens \
jpayne@69 3336 (tclStubsPtr->tcl_EvalTokens) /* 357 */
jpayne@69 3337 #define Tcl_FreeParse \
jpayne@69 3338 (tclStubsPtr->tcl_FreeParse) /* 358 */
jpayne@69 3339 #define Tcl_LogCommandInfo \
jpayne@69 3340 (tclStubsPtr->tcl_LogCommandInfo) /* 359 */
jpayne@69 3341 #define Tcl_ParseBraces \
jpayne@69 3342 (tclStubsPtr->tcl_ParseBraces) /* 360 */
jpayne@69 3343 #define Tcl_ParseCommand \
jpayne@69 3344 (tclStubsPtr->tcl_ParseCommand) /* 361 */
jpayne@69 3345 #define Tcl_ParseExpr \
jpayne@69 3346 (tclStubsPtr->tcl_ParseExpr) /* 362 */
jpayne@69 3347 #define Tcl_ParseQuotedString \
jpayne@69 3348 (tclStubsPtr->tcl_ParseQuotedString) /* 363 */
jpayne@69 3349 #define Tcl_ParseVarName \
jpayne@69 3350 (tclStubsPtr->tcl_ParseVarName) /* 364 */
jpayne@69 3351 #define Tcl_GetCwd \
jpayne@69 3352 (tclStubsPtr->tcl_GetCwd) /* 365 */
jpayne@69 3353 #define Tcl_Chdir \
jpayne@69 3354 (tclStubsPtr->tcl_Chdir) /* 366 */
jpayne@69 3355 #define Tcl_Access \
jpayne@69 3356 (tclStubsPtr->tcl_Access) /* 367 */
jpayne@69 3357 #define Tcl_Stat \
jpayne@69 3358 (tclStubsPtr->tcl_Stat) /* 368 */
jpayne@69 3359 #define Tcl_UtfNcmp \
jpayne@69 3360 (tclStubsPtr->tcl_UtfNcmp) /* 369 */
jpayne@69 3361 #define Tcl_UtfNcasecmp \
jpayne@69 3362 (tclStubsPtr->tcl_UtfNcasecmp) /* 370 */
jpayne@69 3363 #define Tcl_StringCaseMatch \
jpayne@69 3364 (tclStubsPtr->tcl_StringCaseMatch) /* 371 */
jpayne@69 3365 #define Tcl_UniCharIsControl \
jpayne@69 3366 (tclStubsPtr->tcl_UniCharIsControl) /* 372 */
jpayne@69 3367 #define Tcl_UniCharIsGraph \
jpayne@69 3368 (tclStubsPtr->tcl_UniCharIsGraph) /* 373 */
jpayne@69 3369 #define Tcl_UniCharIsPrint \
jpayne@69 3370 (tclStubsPtr->tcl_UniCharIsPrint) /* 374 */
jpayne@69 3371 #define Tcl_UniCharIsPunct \
jpayne@69 3372 (tclStubsPtr->tcl_UniCharIsPunct) /* 375 */
jpayne@69 3373 #define Tcl_RegExpExecObj \
jpayne@69 3374 (tclStubsPtr->tcl_RegExpExecObj) /* 376 */
jpayne@69 3375 #define Tcl_RegExpGetInfo \
jpayne@69 3376 (tclStubsPtr->tcl_RegExpGetInfo) /* 377 */
jpayne@69 3377 #define Tcl_NewUnicodeObj \
jpayne@69 3378 (tclStubsPtr->tcl_NewUnicodeObj) /* 378 */
jpayne@69 3379 #define Tcl_SetUnicodeObj \
jpayne@69 3380 (tclStubsPtr->tcl_SetUnicodeObj) /* 379 */
jpayne@69 3381 #define Tcl_GetCharLength \
jpayne@69 3382 (tclStubsPtr->tcl_GetCharLength) /* 380 */
jpayne@69 3383 #define Tcl_GetUniChar \
jpayne@69 3384 (tclStubsPtr->tcl_GetUniChar) /* 381 */
jpayne@69 3385 #define Tcl_GetUnicode \
jpayne@69 3386 (tclStubsPtr->tcl_GetUnicode) /* 382 */
jpayne@69 3387 #define Tcl_GetRange \
jpayne@69 3388 (tclStubsPtr->tcl_GetRange) /* 383 */
jpayne@69 3389 #define Tcl_AppendUnicodeToObj \
jpayne@69 3390 (tclStubsPtr->tcl_AppendUnicodeToObj) /* 384 */
jpayne@69 3391 #define Tcl_RegExpMatchObj \
jpayne@69 3392 (tclStubsPtr->tcl_RegExpMatchObj) /* 385 */
jpayne@69 3393 #define Tcl_SetNotifier \
jpayne@69 3394 (tclStubsPtr->tcl_SetNotifier) /* 386 */
jpayne@69 3395 #define Tcl_GetAllocMutex \
jpayne@69 3396 (tclStubsPtr->tcl_GetAllocMutex) /* 387 */
jpayne@69 3397 #define Tcl_GetChannelNames \
jpayne@69 3398 (tclStubsPtr->tcl_GetChannelNames) /* 388 */
jpayne@69 3399 #define Tcl_GetChannelNamesEx \
jpayne@69 3400 (tclStubsPtr->tcl_GetChannelNamesEx) /* 389 */
jpayne@69 3401 #define Tcl_ProcObjCmd \
jpayne@69 3402 (tclStubsPtr->tcl_ProcObjCmd) /* 390 */
jpayne@69 3403 #define Tcl_ConditionFinalize \
jpayne@69 3404 (tclStubsPtr->tcl_ConditionFinalize) /* 391 */
jpayne@69 3405 #define Tcl_MutexFinalize \
jpayne@69 3406 (tclStubsPtr->tcl_MutexFinalize) /* 392 */
jpayne@69 3407 #define Tcl_CreateThread \
jpayne@69 3408 (tclStubsPtr->tcl_CreateThread) /* 393 */
jpayne@69 3409 #define Tcl_ReadRaw \
jpayne@69 3410 (tclStubsPtr->tcl_ReadRaw) /* 394 */
jpayne@69 3411 #define Tcl_WriteRaw \
jpayne@69 3412 (tclStubsPtr->tcl_WriteRaw) /* 395 */
jpayne@69 3413 #define Tcl_GetTopChannel \
jpayne@69 3414 (tclStubsPtr->tcl_GetTopChannel) /* 396 */
jpayne@69 3415 #define Tcl_ChannelBuffered \
jpayne@69 3416 (tclStubsPtr->tcl_ChannelBuffered) /* 397 */
jpayne@69 3417 #define Tcl_ChannelName \
jpayne@69 3418 (tclStubsPtr->tcl_ChannelName) /* 398 */
jpayne@69 3419 #define Tcl_ChannelVersion \
jpayne@69 3420 (tclStubsPtr->tcl_ChannelVersion) /* 399 */
jpayne@69 3421 #define Tcl_ChannelBlockModeProc \
jpayne@69 3422 (tclStubsPtr->tcl_ChannelBlockModeProc) /* 400 */
jpayne@69 3423 #define Tcl_ChannelCloseProc \
jpayne@69 3424 (tclStubsPtr->tcl_ChannelCloseProc) /* 401 */
jpayne@69 3425 #define Tcl_ChannelClose2Proc \
jpayne@69 3426 (tclStubsPtr->tcl_ChannelClose2Proc) /* 402 */
jpayne@69 3427 #define Tcl_ChannelInputProc \
jpayne@69 3428 (tclStubsPtr->tcl_ChannelInputProc) /* 403 */
jpayne@69 3429 #define Tcl_ChannelOutputProc \
jpayne@69 3430 (tclStubsPtr->tcl_ChannelOutputProc) /* 404 */
jpayne@69 3431 #define Tcl_ChannelSeekProc \
jpayne@69 3432 (tclStubsPtr->tcl_ChannelSeekProc) /* 405 */
jpayne@69 3433 #define Tcl_ChannelSetOptionProc \
jpayne@69 3434 (tclStubsPtr->tcl_ChannelSetOptionProc) /* 406 */
jpayne@69 3435 #define Tcl_ChannelGetOptionProc \
jpayne@69 3436 (tclStubsPtr->tcl_ChannelGetOptionProc) /* 407 */
jpayne@69 3437 #define Tcl_ChannelWatchProc \
jpayne@69 3438 (tclStubsPtr->tcl_ChannelWatchProc) /* 408 */
jpayne@69 3439 #define Tcl_ChannelGetHandleProc \
jpayne@69 3440 (tclStubsPtr->tcl_ChannelGetHandleProc) /* 409 */
jpayne@69 3441 #define Tcl_ChannelFlushProc \
jpayne@69 3442 (tclStubsPtr->tcl_ChannelFlushProc) /* 410 */
jpayne@69 3443 #define Tcl_ChannelHandlerProc \
jpayne@69 3444 (tclStubsPtr->tcl_ChannelHandlerProc) /* 411 */
jpayne@69 3445 #define Tcl_JoinThread \
jpayne@69 3446 (tclStubsPtr->tcl_JoinThread) /* 412 */
jpayne@69 3447 #define Tcl_IsChannelShared \
jpayne@69 3448 (tclStubsPtr->tcl_IsChannelShared) /* 413 */
jpayne@69 3449 #define Tcl_IsChannelRegistered \
jpayne@69 3450 (tclStubsPtr->tcl_IsChannelRegistered) /* 414 */
jpayne@69 3451 #define Tcl_CutChannel \
jpayne@69 3452 (tclStubsPtr->tcl_CutChannel) /* 415 */
jpayne@69 3453 #define Tcl_SpliceChannel \
jpayne@69 3454 (tclStubsPtr->tcl_SpliceChannel) /* 416 */
jpayne@69 3455 #define Tcl_ClearChannelHandlers \
jpayne@69 3456 (tclStubsPtr->tcl_ClearChannelHandlers) /* 417 */
jpayne@69 3457 #define Tcl_IsChannelExisting \
jpayne@69 3458 (tclStubsPtr->tcl_IsChannelExisting) /* 418 */
jpayne@69 3459 #define Tcl_UniCharNcasecmp \
jpayne@69 3460 (tclStubsPtr->tcl_UniCharNcasecmp) /* 419 */
jpayne@69 3461 #define Tcl_UniCharCaseMatch \
jpayne@69 3462 (tclStubsPtr->tcl_UniCharCaseMatch) /* 420 */
jpayne@69 3463 #define Tcl_FindHashEntry \
jpayne@69 3464 (tclStubsPtr->tcl_FindHashEntry) /* 421 */
jpayne@69 3465 #define Tcl_CreateHashEntry \
jpayne@69 3466 (tclStubsPtr->tcl_CreateHashEntry) /* 422 */
jpayne@69 3467 #define Tcl_InitCustomHashTable \
jpayne@69 3468 (tclStubsPtr->tcl_InitCustomHashTable) /* 423 */
jpayne@69 3469 #define Tcl_InitObjHashTable \
jpayne@69 3470 (tclStubsPtr->tcl_InitObjHashTable) /* 424 */
jpayne@69 3471 #define Tcl_CommandTraceInfo \
jpayne@69 3472 (tclStubsPtr->tcl_CommandTraceInfo) /* 425 */
jpayne@69 3473 #define Tcl_TraceCommand \
jpayne@69 3474 (tclStubsPtr->tcl_TraceCommand) /* 426 */
jpayne@69 3475 #define Tcl_UntraceCommand \
jpayne@69 3476 (tclStubsPtr->tcl_UntraceCommand) /* 427 */
jpayne@69 3477 #define Tcl_AttemptAlloc \
jpayne@69 3478 (tclStubsPtr->tcl_AttemptAlloc) /* 428 */
jpayne@69 3479 #define Tcl_AttemptDbCkalloc \
jpayne@69 3480 (tclStubsPtr->tcl_AttemptDbCkalloc) /* 429 */
jpayne@69 3481 #define Tcl_AttemptRealloc \
jpayne@69 3482 (tclStubsPtr->tcl_AttemptRealloc) /* 430 */
jpayne@69 3483 #define Tcl_AttemptDbCkrealloc \
jpayne@69 3484 (tclStubsPtr->tcl_AttemptDbCkrealloc) /* 431 */
jpayne@69 3485 #define Tcl_AttemptSetObjLength \
jpayne@69 3486 (tclStubsPtr->tcl_AttemptSetObjLength) /* 432 */
jpayne@69 3487 #define Tcl_GetChannelThread \
jpayne@69 3488 (tclStubsPtr->tcl_GetChannelThread) /* 433 */
jpayne@69 3489 #define Tcl_GetUnicodeFromObj \
jpayne@69 3490 (tclStubsPtr->tcl_GetUnicodeFromObj) /* 434 */
jpayne@69 3491 #define Tcl_GetMathFuncInfo \
jpayne@69 3492 (tclStubsPtr->tcl_GetMathFuncInfo) /* 435 */
jpayne@69 3493 #define Tcl_ListMathFuncs \
jpayne@69 3494 (tclStubsPtr->tcl_ListMathFuncs) /* 436 */
jpayne@69 3495 #define Tcl_SubstObj \
jpayne@69 3496 (tclStubsPtr->tcl_SubstObj) /* 437 */
jpayne@69 3497 #define Tcl_DetachChannel \
jpayne@69 3498 (tclStubsPtr->tcl_DetachChannel) /* 438 */
jpayne@69 3499 #define Tcl_IsStandardChannel \
jpayne@69 3500 (tclStubsPtr->tcl_IsStandardChannel) /* 439 */
jpayne@69 3501 #define Tcl_FSCopyFile \
jpayne@69 3502 (tclStubsPtr->tcl_FSCopyFile) /* 440 */
jpayne@69 3503 #define Tcl_FSCopyDirectory \
jpayne@69 3504 (tclStubsPtr->tcl_FSCopyDirectory) /* 441 */
jpayne@69 3505 #define Tcl_FSCreateDirectory \
jpayne@69 3506 (tclStubsPtr->tcl_FSCreateDirectory) /* 442 */
jpayne@69 3507 #define Tcl_FSDeleteFile \
jpayne@69 3508 (tclStubsPtr->tcl_FSDeleteFile) /* 443 */
jpayne@69 3509 #define Tcl_FSLoadFile \
jpayne@69 3510 (tclStubsPtr->tcl_FSLoadFile) /* 444 */
jpayne@69 3511 #define Tcl_FSMatchInDirectory \
jpayne@69 3512 (tclStubsPtr->tcl_FSMatchInDirectory) /* 445 */
jpayne@69 3513 #define Tcl_FSLink \
jpayne@69 3514 (tclStubsPtr->tcl_FSLink) /* 446 */
jpayne@69 3515 #define Tcl_FSRemoveDirectory \
jpayne@69 3516 (tclStubsPtr->tcl_FSRemoveDirectory) /* 447 */
jpayne@69 3517 #define Tcl_FSRenameFile \
jpayne@69 3518 (tclStubsPtr->tcl_FSRenameFile) /* 448 */
jpayne@69 3519 #define Tcl_FSLstat \
jpayne@69 3520 (tclStubsPtr->tcl_FSLstat) /* 449 */
jpayne@69 3521 #define Tcl_FSUtime \
jpayne@69 3522 (tclStubsPtr->tcl_FSUtime) /* 450 */
jpayne@69 3523 #define Tcl_FSFileAttrsGet \
jpayne@69 3524 (tclStubsPtr->tcl_FSFileAttrsGet) /* 451 */
jpayne@69 3525 #define Tcl_FSFileAttrsSet \
jpayne@69 3526 (tclStubsPtr->tcl_FSFileAttrsSet) /* 452 */
jpayne@69 3527 #define Tcl_FSFileAttrStrings \
jpayne@69 3528 (tclStubsPtr->tcl_FSFileAttrStrings) /* 453 */
jpayne@69 3529 #define Tcl_FSStat \
jpayne@69 3530 (tclStubsPtr->tcl_FSStat) /* 454 */
jpayne@69 3531 #define Tcl_FSAccess \
jpayne@69 3532 (tclStubsPtr->tcl_FSAccess) /* 455 */
jpayne@69 3533 #define Tcl_FSOpenFileChannel \
jpayne@69 3534 (tclStubsPtr->tcl_FSOpenFileChannel) /* 456 */
jpayne@69 3535 #define Tcl_FSGetCwd \
jpayne@69 3536 (tclStubsPtr->tcl_FSGetCwd) /* 457 */
jpayne@69 3537 #define Tcl_FSChdir \
jpayne@69 3538 (tclStubsPtr->tcl_FSChdir) /* 458 */
jpayne@69 3539 #define Tcl_FSConvertToPathType \
jpayne@69 3540 (tclStubsPtr->tcl_FSConvertToPathType) /* 459 */
jpayne@69 3541 #define Tcl_FSJoinPath \
jpayne@69 3542 (tclStubsPtr->tcl_FSJoinPath) /* 460 */
jpayne@69 3543 #define Tcl_FSSplitPath \
jpayne@69 3544 (tclStubsPtr->tcl_FSSplitPath) /* 461 */
jpayne@69 3545 #define Tcl_FSEqualPaths \
jpayne@69 3546 (tclStubsPtr->tcl_FSEqualPaths) /* 462 */
jpayne@69 3547 #define Tcl_FSGetNormalizedPath \
jpayne@69 3548 (tclStubsPtr->tcl_FSGetNormalizedPath) /* 463 */
jpayne@69 3549 #define Tcl_FSJoinToPath \
jpayne@69 3550 (tclStubsPtr->tcl_FSJoinToPath) /* 464 */
jpayne@69 3551 #define Tcl_FSGetInternalRep \
jpayne@69 3552 (tclStubsPtr->tcl_FSGetInternalRep) /* 465 */
jpayne@69 3553 #define Tcl_FSGetTranslatedPath \
jpayne@69 3554 (tclStubsPtr->tcl_FSGetTranslatedPath) /* 466 */
jpayne@69 3555 #define Tcl_FSEvalFile \
jpayne@69 3556 (tclStubsPtr->tcl_FSEvalFile) /* 467 */
jpayne@69 3557 #define Tcl_FSNewNativePath \
jpayne@69 3558 (tclStubsPtr->tcl_FSNewNativePath) /* 468 */
jpayne@69 3559 #define Tcl_FSGetNativePath \
jpayne@69 3560 (tclStubsPtr->tcl_FSGetNativePath) /* 469 */
jpayne@69 3561 #define Tcl_FSFileSystemInfo \
jpayne@69 3562 (tclStubsPtr->tcl_FSFileSystemInfo) /* 470 */
jpayne@69 3563 #define Tcl_FSPathSeparator \
jpayne@69 3564 (tclStubsPtr->tcl_FSPathSeparator) /* 471 */
jpayne@69 3565 #define Tcl_FSListVolumes \
jpayne@69 3566 (tclStubsPtr->tcl_FSListVolumes) /* 472 */
jpayne@69 3567 #define Tcl_FSRegister \
jpayne@69 3568 (tclStubsPtr->tcl_FSRegister) /* 473 */
jpayne@69 3569 #define Tcl_FSUnregister \
jpayne@69 3570 (tclStubsPtr->tcl_FSUnregister) /* 474 */
jpayne@69 3571 #define Tcl_FSData \
jpayne@69 3572 (tclStubsPtr->tcl_FSData) /* 475 */
jpayne@69 3573 #define Tcl_FSGetTranslatedStringPath \
jpayne@69 3574 (tclStubsPtr->tcl_FSGetTranslatedStringPath) /* 476 */
jpayne@69 3575 #define Tcl_FSGetFileSystemForPath \
jpayne@69 3576 (tclStubsPtr->tcl_FSGetFileSystemForPath) /* 477 */
jpayne@69 3577 #define Tcl_FSGetPathType \
jpayne@69 3578 (tclStubsPtr->tcl_FSGetPathType) /* 478 */
jpayne@69 3579 #define Tcl_OutputBuffered \
jpayne@69 3580 (tclStubsPtr->tcl_OutputBuffered) /* 479 */
jpayne@69 3581 #define Tcl_FSMountsChanged \
jpayne@69 3582 (tclStubsPtr->tcl_FSMountsChanged) /* 480 */
jpayne@69 3583 #define Tcl_EvalTokensStandard \
jpayne@69 3584 (tclStubsPtr->tcl_EvalTokensStandard) /* 481 */
jpayne@69 3585 #define Tcl_GetTime \
jpayne@69 3586 (tclStubsPtr->tcl_GetTime) /* 482 */
jpayne@69 3587 #define Tcl_CreateObjTrace \
jpayne@69 3588 (tclStubsPtr->tcl_CreateObjTrace) /* 483 */
jpayne@69 3589 #define Tcl_GetCommandInfoFromToken \
jpayne@69 3590 (tclStubsPtr->tcl_GetCommandInfoFromToken) /* 484 */
jpayne@69 3591 #define Tcl_SetCommandInfoFromToken \
jpayne@69 3592 (tclStubsPtr->tcl_SetCommandInfoFromToken) /* 485 */
jpayne@69 3593 #define Tcl_DbNewWideIntObj \
jpayne@69 3594 (tclStubsPtr->tcl_DbNewWideIntObj) /* 486 */
jpayne@69 3595 #define Tcl_GetWideIntFromObj \
jpayne@69 3596 (tclStubsPtr->tcl_GetWideIntFromObj) /* 487 */
jpayne@69 3597 #define Tcl_NewWideIntObj \
jpayne@69 3598 (tclStubsPtr->tcl_NewWideIntObj) /* 488 */
jpayne@69 3599 #define Tcl_SetWideIntObj \
jpayne@69 3600 (tclStubsPtr->tcl_SetWideIntObj) /* 489 */
jpayne@69 3601 #define Tcl_AllocStatBuf \
jpayne@69 3602 (tclStubsPtr->tcl_AllocStatBuf) /* 490 */
jpayne@69 3603 #define Tcl_Seek \
jpayne@69 3604 (tclStubsPtr->tcl_Seek) /* 491 */
jpayne@69 3605 #define Tcl_Tell \
jpayne@69 3606 (tclStubsPtr->tcl_Tell) /* 492 */
jpayne@69 3607 #define Tcl_ChannelWideSeekProc \
jpayne@69 3608 (tclStubsPtr->tcl_ChannelWideSeekProc) /* 493 */
jpayne@69 3609 #define Tcl_DictObjPut \
jpayne@69 3610 (tclStubsPtr->tcl_DictObjPut) /* 494 */
jpayne@69 3611 #define Tcl_DictObjGet \
jpayne@69 3612 (tclStubsPtr->tcl_DictObjGet) /* 495 */
jpayne@69 3613 #define Tcl_DictObjRemove \
jpayne@69 3614 (tclStubsPtr->tcl_DictObjRemove) /* 496 */
jpayne@69 3615 #define Tcl_DictObjSize \
jpayne@69 3616 (tclStubsPtr->tcl_DictObjSize) /* 497 */
jpayne@69 3617 #define Tcl_DictObjFirst \
jpayne@69 3618 (tclStubsPtr->tcl_DictObjFirst) /* 498 */
jpayne@69 3619 #define Tcl_DictObjNext \
jpayne@69 3620 (tclStubsPtr->tcl_DictObjNext) /* 499 */
jpayne@69 3621 #define Tcl_DictObjDone \
jpayne@69 3622 (tclStubsPtr->tcl_DictObjDone) /* 500 */
jpayne@69 3623 #define Tcl_DictObjPutKeyList \
jpayne@69 3624 (tclStubsPtr->tcl_DictObjPutKeyList) /* 501 */
jpayne@69 3625 #define Tcl_DictObjRemoveKeyList \
jpayne@69 3626 (tclStubsPtr->tcl_DictObjRemoveKeyList) /* 502 */
jpayne@69 3627 #define Tcl_NewDictObj \
jpayne@69 3628 (tclStubsPtr->tcl_NewDictObj) /* 503 */
jpayne@69 3629 #define Tcl_DbNewDictObj \
jpayne@69 3630 (tclStubsPtr->tcl_DbNewDictObj) /* 504 */
jpayne@69 3631 #define Tcl_RegisterConfig \
jpayne@69 3632 (tclStubsPtr->tcl_RegisterConfig) /* 505 */
jpayne@69 3633 #define Tcl_CreateNamespace \
jpayne@69 3634 (tclStubsPtr->tcl_CreateNamespace) /* 506 */
jpayne@69 3635 #define Tcl_DeleteNamespace \
jpayne@69 3636 (tclStubsPtr->tcl_DeleteNamespace) /* 507 */
jpayne@69 3637 #define Tcl_AppendExportList \
jpayne@69 3638 (tclStubsPtr->tcl_AppendExportList) /* 508 */
jpayne@69 3639 #define Tcl_Export \
jpayne@69 3640 (tclStubsPtr->tcl_Export) /* 509 */
jpayne@69 3641 #define Tcl_Import \
jpayne@69 3642 (tclStubsPtr->tcl_Import) /* 510 */
jpayne@69 3643 #define Tcl_ForgetImport \
jpayne@69 3644 (tclStubsPtr->tcl_ForgetImport) /* 511 */
jpayne@69 3645 #define Tcl_GetCurrentNamespace \
jpayne@69 3646 (tclStubsPtr->tcl_GetCurrentNamespace) /* 512 */
jpayne@69 3647 #define Tcl_GetGlobalNamespace \
jpayne@69 3648 (tclStubsPtr->tcl_GetGlobalNamespace) /* 513 */
jpayne@69 3649 #define Tcl_FindNamespace \
jpayne@69 3650 (tclStubsPtr->tcl_FindNamespace) /* 514 */
jpayne@69 3651 #define Tcl_FindCommand \
jpayne@69 3652 (tclStubsPtr->tcl_FindCommand) /* 515 */
jpayne@69 3653 #define Tcl_GetCommandFromObj \
jpayne@69 3654 (tclStubsPtr->tcl_GetCommandFromObj) /* 516 */
jpayne@69 3655 #define Tcl_GetCommandFullName \
jpayne@69 3656 (tclStubsPtr->tcl_GetCommandFullName) /* 517 */
jpayne@69 3657 #define Tcl_FSEvalFileEx \
jpayne@69 3658 (tclStubsPtr->tcl_FSEvalFileEx) /* 518 */
jpayne@69 3659 #define Tcl_SetExitProc \
jpayne@69 3660 (tclStubsPtr->tcl_SetExitProc) /* 519 */
jpayne@69 3661 #define Tcl_LimitAddHandler \
jpayne@69 3662 (tclStubsPtr->tcl_LimitAddHandler) /* 520 */
jpayne@69 3663 #define Tcl_LimitRemoveHandler \
jpayne@69 3664 (tclStubsPtr->tcl_LimitRemoveHandler) /* 521 */
jpayne@69 3665 #define Tcl_LimitReady \
jpayne@69 3666 (tclStubsPtr->tcl_LimitReady) /* 522 */
jpayne@69 3667 #define Tcl_LimitCheck \
jpayne@69 3668 (tclStubsPtr->tcl_LimitCheck) /* 523 */
jpayne@69 3669 #define Tcl_LimitExceeded \
jpayne@69 3670 (tclStubsPtr->tcl_LimitExceeded) /* 524 */
jpayne@69 3671 #define Tcl_LimitSetCommands \
jpayne@69 3672 (tclStubsPtr->tcl_LimitSetCommands) /* 525 */
jpayne@69 3673 #define Tcl_LimitSetTime \
jpayne@69 3674 (tclStubsPtr->tcl_LimitSetTime) /* 526 */
jpayne@69 3675 #define Tcl_LimitSetGranularity \
jpayne@69 3676 (tclStubsPtr->tcl_LimitSetGranularity) /* 527 */
jpayne@69 3677 #define Tcl_LimitTypeEnabled \
jpayne@69 3678 (tclStubsPtr->tcl_LimitTypeEnabled) /* 528 */
jpayne@69 3679 #define Tcl_LimitTypeExceeded \
jpayne@69 3680 (tclStubsPtr->tcl_LimitTypeExceeded) /* 529 */
jpayne@69 3681 #define Tcl_LimitTypeSet \
jpayne@69 3682 (tclStubsPtr->tcl_LimitTypeSet) /* 530 */
jpayne@69 3683 #define Tcl_LimitTypeReset \
jpayne@69 3684 (tclStubsPtr->tcl_LimitTypeReset) /* 531 */
jpayne@69 3685 #define Tcl_LimitGetCommands \
jpayne@69 3686 (tclStubsPtr->tcl_LimitGetCommands) /* 532 */
jpayne@69 3687 #define Tcl_LimitGetTime \
jpayne@69 3688 (tclStubsPtr->tcl_LimitGetTime) /* 533 */
jpayne@69 3689 #define Tcl_LimitGetGranularity \
jpayne@69 3690 (tclStubsPtr->tcl_LimitGetGranularity) /* 534 */
jpayne@69 3691 #define Tcl_SaveInterpState \
jpayne@69 3692 (tclStubsPtr->tcl_SaveInterpState) /* 535 */
jpayne@69 3693 #define Tcl_RestoreInterpState \
jpayne@69 3694 (tclStubsPtr->tcl_RestoreInterpState) /* 536 */
jpayne@69 3695 #define Tcl_DiscardInterpState \
jpayne@69 3696 (tclStubsPtr->tcl_DiscardInterpState) /* 537 */
jpayne@69 3697 #define Tcl_SetReturnOptions \
jpayne@69 3698 (tclStubsPtr->tcl_SetReturnOptions) /* 538 */
jpayne@69 3699 #define Tcl_GetReturnOptions \
jpayne@69 3700 (tclStubsPtr->tcl_GetReturnOptions) /* 539 */
jpayne@69 3701 #define Tcl_IsEnsemble \
jpayne@69 3702 (tclStubsPtr->tcl_IsEnsemble) /* 540 */
jpayne@69 3703 #define Tcl_CreateEnsemble \
jpayne@69 3704 (tclStubsPtr->tcl_CreateEnsemble) /* 541 */
jpayne@69 3705 #define Tcl_FindEnsemble \
jpayne@69 3706 (tclStubsPtr->tcl_FindEnsemble) /* 542 */
jpayne@69 3707 #define Tcl_SetEnsembleSubcommandList \
jpayne@69 3708 (tclStubsPtr->tcl_SetEnsembleSubcommandList) /* 543 */
jpayne@69 3709 #define Tcl_SetEnsembleMappingDict \
jpayne@69 3710 (tclStubsPtr->tcl_SetEnsembleMappingDict) /* 544 */
jpayne@69 3711 #define Tcl_SetEnsembleUnknownHandler \
jpayne@69 3712 (tclStubsPtr->tcl_SetEnsembleUnknownHandler) /* 545 */
jpayne@69 3713 #define Tcl_SetEnsembleFlags \
jpayne@69 3714 (tclStubsPtr->tcl_SetEnsembleFlags) /* 546 */
jpayne@69 3715 #define Tcl_GetEnsembleSubcommandList \
jpayne@69 3716 (tclStubsPtr->tcl_GetEnsembleSubcommandList) /* 547 */
jpayne@69 3717 #define Tcl_GetEnsembleMappingDict \
jpayne@69 3718 (tclStubsPtr->tcl_GetEnsembleMappingDict) /* 548 */
jpayne@69 3719 #define Tcl_GetEnsembleUnknownHandler \
jpayne@69 3720 (tclStubsPtr->tcl_GetEnsembleUnknownHandler) /* 549 */
jpayne@69 3721 #define Tcl_GetEnsembleFlags \
jpayne@69 3722 (tclStubsPtr->tcl_GetEnsembleFlags) /* 550 */
jpayne@69 3723 #define Tcl_GetEnsembleNamespace \
jpayne@69 3724 (tclStubsPtr->tcl_GetEnsembleNamespace) /* 551 */
jpayne@69 3725 #define Tcl_SetTimeProc \
jpayne@69 3726 (tclStubsPtr->tcl_SetTimeProc) /* 552 */
jpayne@69 3727 #define Tcl_QueryTimeProc \
jpayne@69 3728 (tclStubsPtr->tcl_QueryTimeProc) /* 553 */
jpayne@69 3729 #define Tcl_ChannelThreadActionProc \
jpayne@69 3730 (tclStubsPtr->tcl_ChannelThreadActionProc) /* 554 */
jpayne@69 3731 #define Tcl_NewBignumObj \
jpayne@69 3732 (tclStubsPtr->tcl_NewBignumObj) /* 555 */
jpayne@69 3733 #define Tcl_DbNewBignumObj \
jpayne@69 3734 (tclStubsPtr->tcl_DbNewBignumObj) /* 556 */
jpayne@69 3735 #define Tcl_SetBignumObj \
jpayne@69 3736 (tclStubsPtr->tcl_SetBignumObj) /* 557 */
jpayne@69 3737 #define Tcl_GetBignumFromObj \
jpayne@69 3738 (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */
jpayne@69 3739 #define Tcl_TakeBignumFromObj \
jpayne@69 3740 (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */
jpayne@69 3741 #define Tcl_TruncateChannel \
jpayne@69 3742 (tclStubsPtr->tcl_TruncateChannel) /* 560 */
jpayne@69 3743 #define Tcl_ChannelTruncateProc \
jpayne@69 3744 (tclStubsPtr->tcl_ChannelTruncateProc) /* 561 */
jpayne@69 3745 #define Tcl_SetChannelErrorInterp \
jpayne@69 3746 (tclStubsPtr->tcl_SetChannelErrorInterp) /* 562 */
jpayne@69 3747 #define Tcl_GetChannelErrorInterp \
jpayne@69 3748 (tclStubsPtr->tcl_GetChannelErrorInterp) /* 563 */
jpayne@69 3749 #define Tcl_SetChannelError \
jpayne@69 3750 (tclStubsPtr->tcl_SetChannelError) /* 564 */
jpayne@69 3751 #define Tcl_GetChannelError \
jpayne@69 3752 (tclStubsPtr->tcl_GetChannelError) /* 565 */
jpayne@69 3753 #define Tcl_InitBignumFromDouble \
jpayne@69 3754 (tclStubsPtr->tcl_InitBignumFromDouble) /* 566 */
jpayne@69 3755 #define Tcl_GetNamespaceUnknownHandler \
jpayne@69 3756 (tclStubsPtr->tcl_GetNamespaceUnknownHandler) /* 567 */
jpayne@69 3757 #define Tcl_SetNamespaceUnknownHandler \
jpayne@69 3758 (tclStubsPtr->tcl_SetNamespaceUnknownHandler) /* 568 */
jpayne@69 3759 #define Tcl_GetEncodingFromObj \
jpayne@69 3760 (tclStubsPtr->tcl_GetEncodingFromObj) /* 569 */
jpayne@69 3761 #define Tcl_GetEncodingSearchPath \
jpayne@69 3762 (tclStubsPtr->tcl_GetEncodingSearchPath) /* 570 */
jpayne@69 3763 #define Tcl_SetEncodingSearchPath \
jpayne@69 3764 (tclStubsPtr->tcl_SetEncodingSearchPath) /* 571 */
jpayne@69 3765 #define Tcl_GetEncodingNameFromEnvironment \
jpayne@69 3766 (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) /* 572 */
jpayne@69 3767 #define Tcl_PkgRequireProc \
jpayne@69 3768 (tclStubsPtr->tcl_PkgRequireProc) /* 573 */
jpayne@69 3769 #define Tcl_AppendObjToErrorInfo \
jpayne@69 3770 (tclStubsPtr->tcl_AppendObjToErrorInfo) /* 574 */
jpayne@69 3771 #define Tcl_AppendLimitedToObj \
jpayne@69 3772 (tclStubsPtr->tcl_AppendLimitedToObj) /* 575 */
jpayne@69 3773 #define Tcl_Format \
jpayne@69 3774 (tclStubsPtr->tcl_Format) /* 576 */
jpayne@69 3775 #define Tcl_AppendFormatToObj \
jpayne@69 3776 (tclStubsPtr->tcl_AppendFormatToObj) /* 577 */
jpayne@69 3777 #define Tcl_ObjPrintf \
jpayne@69 3778 (tclStubsPtr->tcl_ObjPrintf) /* 578 */
jpayne@69 3779 #define Tcl_AppendPrintfToObj \
jpayne@69 3780 (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
jpayne@69 3781 #define Tcl_CancelEval \
jpayne@69 3782 (tclStubsPtr->tcl_CancelEval) /* 580 */
jpayne@69 3783 #define Tcl_Canceled \
jpayne@69 3784 (tclStubsPtr->tcl_Canceled) /* 581 */
jpayne@69 3785 #define Tcl_CreatePipe \
jpayne@69 3786 (tclStubsPtr->tcl_CreatePipe) /* 582 */
jpayne@69 3787 #define Tcl_NRCreateCommand \
jpayne@69 3788 (tclStubsPtr->tcl_NRCreateCommand) /* 583 */
jpayne@69 3789 #define Tcl_NREvalObj \
jpayne@69 3790 (tclStubsPtr->tcl_NREvalObj) /* 584 */
jpayne@69 3791 #define Tcl_NREvalObjv \
jpayne@69 3792 (tclStubsPtr->tcl_NREvalObjv) /* 585 */
jpayne@69 3793 #define Tcl_NRCmdSwap \
jpayne@69 3794 (tclStubsPtr->tcl_NRCmdSwap) /* 586 */
jpayne@69 3795 #define Tcl_NRAddCallback \
jpayne@69 3796 (tclStubsPtr->tcl_NRAddCallback) /* 587 */
jpayne@69 3797 #define Tcl_NRCallObjProc \
jpayne@69 3798 (tclStubsPtr->tcl_NRCallObjProc) /* 588 */
jpayne@69 3799 #define Tcl_GetFSDeviceFromStat \
jpayne@69 3800 (tclStubsPtr->tcl_GetFSDeviceFromStat) /* 589 */
jpayne@69 3801 #define Tcl_GetFSInodeFromStat \
jpayne@69 3802 (tclStubsPtr->tcl_GetFSInodeFromStat) /* 590 */
jpayne@69 3803 #define Tcl_GetModeFromStat \
jpayne@69 3804 (tclStubsPtr->tcl_GetModeFromStat) /* 591 */
jpayne@69 3805 #define Tcl_GetLinkCountFromStat \
jpayne@69 3806 (tclStubsPtr->tcl_GetLinkCountFromStat) /* 592 */
jpayne@69 3807 #define Tcl_GetUserIdFromStat \
jpayne@69 3808 (tclStubsPtr->tcl_GetUserIdFromStat) /* 593 */
jpayne@69 3809 #define Tcl_GetGroupIdFromStat \
jpayne@69 3810 (tclStubsPtr->tcl_GetGroupIdFromStat) /* 594 */
jpayne@69 3811 #define Tcl_GetDeviceTypeFromStat \
jpayne@69 3812 (tclStubsPtr->tcl_GetDeviceTypeFromStat) /* 595 */
jpayne@69 3813 #define Tcl_GetAccessTimeFromStat \
jpayne@69 3814 (tclStubsPtr->tcl_GetAccessTimeFromStat) /* 596 */
jpayne@69 3815 #define Tcl_GetModificationTimeFromStat \
jpayne@69 3816 (tclStubsPtr->tcl_GetModificationTimeFromStat) /* 597 */
jpayne@69 3817 #define Tcl_GetChangeTimeFromStat \
jpayne@69 3818 (tclStubsPtr->tcl_GetChangeTimeFromStat) /* 598 */
jpayne@69 3819 #define Tcl_GetSizeFromStat \
jpayne@69 3820 (tclStubsPtr->tcl_GetSizeFromStat) /* 599 */
jpayne@69 3821 #define Tcl_GetBlocksFromStat \
jpayne@69 3822 (tclStubsPtr->tcl_GetBlocksFromStat) /* 600 */
jpayne@69 3823 #define Tcl_GetBlockSizeFromStat \
jpayne@69 3824 (tclStubsPtr->tcl_GetBlockSizeFromStat) /* 601 */
jpayne@69 3825 #define Tcl_SetEnsembleParameterList \
jpayne@69 3826 (tclStubsPtr->tcl_SetEnsembleParameterList) /* 602 */
jpayne@69 3827 #define Tcl_GetEnsembleParameterList \
jpayne@69 3828 (tclStubsPtr->tcl_GetEnsembleParameterList) /* 603 */
jpayne@69 3829 #define Tcl_ParseArgsObjv \
jpayne@69 3830 (tclStubsPtr->tcl_ParseArgsObjv) /* 604 */
jpayne@69 3831 #define Tcl_GetErrorLine \
jpayne@69 3832 (tclStubsPtr->tcl_GetErrorLine) /* 605 */
jpayne@69 3833 #define Tcl_SetErrorLine \
jpayne@69 3834 (tclStubsPtr->tcl_SetErrorLine) /* 606 */
jpayne@69 3835 #define Tcl_TransferResult \
jpayne@69 3836 (tclStubsPtr->tcl_TransferResult) /* 607 */
jpayne@69 3837 #define Tcl_InterpActive \
jpayne@69 3838 (tclStubsPtr->tcl_InterpActive) /* 608 */
jpayne@69 3839 #define Tcl_BackgroundException \
jpayne@69 3840 (tclStubsPtr->tcl_BackgroundException) /* 609 */
jpayne@69 3841 #define Tcl_ZlibDeflate \
jpayne@69 3842 (tclStubsPtr->tcl_ZlibDeflate) /* 610 */
jpayne@69 3843 #define Tcl_ZlibInflate \
jpayne@69 3844 (tclStubsPtr->tcl_ZlibInflate) /* 611 */
jpayne@69 3845 #define Tcl_ZlibCRC32 \
jpayne@69 3846 (tclStubsPtr->tcl_ZlibCRC32) /* 612 */
jpayne@69 3847 #define Tcl_ZlibAdler32 \
jpayne@69 3848 (tclStubsPtr->tcl_ZlibAdler32) /* 613 */
jpayne@69 3849 #define Tcl_ZlibStreamInit \
jpayne@69 3850 (tclStubsPtr->tcl_ZlibStreamInit) /* 614 */
jpayne@69 3851 #define Tcl_ZlibStreamGetCommandName \
jpayne@69 3852 (tclStubsPtr->tcl_ZlibStreamGetCommandName) /* 615 */
jpayne@69 3853 #define Tcl_ZlibStreamEof \
jpayne@69 3854 (tclStubsPtr->tcl_ZlibStreamEof) /* 616 */
jpayne@69 3855 #define Tcl_ZlibStreamChecksum \
jpayne@69 3856 (tclStubsPtr->tcl_ZlibStreamChecksum) /* 617 */
jpayne@69 3857 #define Tcl_ZlibStreamPut \
jpayne@69 3858 (tclStubsPtr->tcl_ZlibStreamPut) /* 618 */
jpayne@69 3859 #define Tcl_ZlibStreamGet \
jpayne@69 3860 (tclStubsPtr->tcl_ZlibStreamGet) /* 619 */
jpayne@69 3861 #define Tcl_ZlibStreamClose \
jpayne@69 3862 (tclStubsPtr->tcl_ZlibStreamClose) /* 620 */
jpayne@69 3863 #define Tcl_ZlibStreamReset \
jpayne@69 3864 (tclStubsPtr->tcl_ZlibStreamReset) /* 621 */
jpayne@69 3865 #define Tcl_SetStartupScript \
jpayne@69 3866 (tclStubsPtr->tcl_SetStartupScript) /* 622 */
jpayne@69 3867 #define Tcl_GetStartupScript \
jpayne@69 3868 (tclStubsPtr->tcl_GetStartupScript) /* 623 */
jpayne@69 3869 #define Tcl_CloseEx \
jpayne@69 3870 (tclStubsPtr->tcl_CloseEx) /* 624 */
jpayne@69 3871 #define Tcl_NRExprObj \
jpayne@69 3872 (tclStubsPtr->tcl_NRExprObj) /* 625 */
jpayne@69 3873 #define Tcl_NRSubstObj \
jpayne@69 3874 (tclStubsPtr->tcl_NRSubstObj) /* 626 */
jpayne@69 3875 #define Tcl_LoadFile \
jpayne@69 3876 (tclStubsPtr->tcl_LoadFile) /* 627 */
jpayne@69 3877 #define Tcl_FindSymbol \
jpayne@69 3878 (tclStubsPtr->tcl_FindSymbol) /* 628 */
jpayne@69 3879 #define Tcl_FSUnloadFile \
jpayne@69 3880 (tclStubsPtr->tcl_FSUnloadFile) /* 629 */
jpayne@69 3881 #define Tcl_ZlibStreamSetCompressionDictionary \
jpayne@69 3882 (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) /* 630 */
jpayne@69 3883 /* Slot 631 is reserved */
jpayne@69 3884 /* Slot 632 is reserved */
jpayne@69 3885 /* Slot 633 is reserved */
jpayne@69 3886 /* Slot 634 is reserved */
jpayne@69 3887 /* Slot 635 is reserved */
jpayne@69 3888 /* Slot 636 is reserved */
jpayne@69 3889 /* Slot 637 is reserved */
jpayne@69 3890 /* Slot 638 is reserved */
jpayne@69 3891 /* Slot 639 is reserved */
jpayne@69 3892 /* Slot 640 is reserved */
jpayne@69 3893 /* Slot 641 is reserved */
jpayne@69 3894 /* Slot 642 is reserved */
jpayne@69 3895 /* Slot 643 is reserved */
jpayne@69 3896 /* Slot 644 is reserved */
jpayne@69 3897 /* Slot 645 is reserved */
jpayne@69 3898 /* Slot 646 is reserved */
jpayne@69 3899 /* Slot 647 is reserved */
jpayne@69 3900 /* Slot 648 is reserved */
jpayne@69 3901 /* Slot 649 is reserved */
jpayne@69 3902 /* Slot 650 is reserved */
jpayne@69 3903 /* Slot 651 is reserved */
jpayne@69 3904 /* Slot 652 is reserved */
jpayne@69 3905 /* Slot 653 is reserved */
jpayne@69 3906 /* Slot 654 is reserved */
jpayne@69 3907 /* Slot 655 is reserved */
jpayne@69 3908 /* Slot 656 is reserved */
jpayne@69 3909 /* Slot 657 is reserved */
jpayne@69 3910 /* Slot 658 is reserved */
jpayne@69 3911 /* Slot 659 is reserved */
jpayne@69 3912 /* Slot 660 is reserved */
jpayne@69 3913 /* Slot 661 is reserved */
jpayne@69 3914 /* Slot 662 is reserved */
jpayne@69 3915 /* Slot 663 is reserved */
jpayne@69 3916 /* Slot 664 is reserved */
jpayne@69 3917 /* Slot 665 is reserved */
jpayne@69 3918 /* Slot 666 is reserved */
jpayne@69 3919 /* Slot 667 is reserved */
jpayne@69 3920 /* Slot 668 is reserved */
jpayne@69 3921 /* Slot 669 is reserved */
jpayne@69 3922 /* Slot 670 is reserved */
jpayne@69 3923 /* Slot 671 is reserved */
jpayne@69 3924 /* Slot 672 is reserved */
jpayne@69 3925 /* Slot 673 is reserved */
jpayne@69 3926 /* Slot 674 is reserved */
jpayne@69 3927 /* Slot 675 is reserved */
jpayne@69 3928 /* Slot 676 is reserved */
jpayne@69 3929 /* Slot 677 is reserved */
jpayne@69 3930 /* Slot 678 is reserved */
jpayne@69 3931 /* Slot 679 is reserved */
jpayne@69 3932 /* Slot 680 is reserved */
jpayne@69 3933 /* Slot 681 is reserved */
jpayne@69 3934 /* Slot 682 is reserved */
jpayne@69 3935 #define TclUnusedStubEntry \
jpayne@69 3936 (tclStubsPtr->tclUnusedStubEntry) /* 683 */
jpayne@69 3937
jpayne@69 3938 #endif /* defined(USE_TCL_STUBS) */
jpayne@69 3939
jpayne@69 3940 /* !END!: Do not edit above this line. */
jpayne@69 3941
jpayne@69 3942 #undef TclUnusedStubEntry
jpayne@69 3943
jpayne@69 3944 #if defined(USE_TCL_STUBS)
jpayne@69 3945 # undef Tcl_CreateInterp
jpayne@69 3946 # undef Tcl_FindExecutable
jpayne@69 3947 # undef Tcl_GetStringResult
jpayne@69 3948 # undef Tcl_Init
jpayne@69 3949 # undef Tcl_SetPanicProc
jpayne@69 3950 # undef Tcl_SetVar
jpayne@69 3951 # undef Tcl_ObjSetVar2
jpayne@69 3952 # undef Tcl_StaticPackage
jpayne@69 3953 # define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp())
jpayne@69 3954 # define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp))
jpayne@69 3955 # define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp))
jpayne@69 3956 # define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc))
jpayne@69 3957 # define Tcl_SetVar(interp, varName, newValue, flags) \
jpayne@69 3958 (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags))
jpayne@69 3959 # define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \
jpayne@69 3960 (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags))
jpayne@69 3961 #endif
jpayne@69 3962
jpayne@69 3963 #if defined(_WIN32) && defined(UNICODE)
jpayne@69 3964 # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg)))
jpayne@69 3965 # define Tcl_MainEx Tcl_MainExW
jpayne@69 3966 EXTERN void Tcl_MainExW(int argc, wchar_t **argv,
jpayne@69 3967 Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
jpayne@69 3968 #endif
jpayne@69 3969
jpayne@69 3970 #undef TCL_STORAGE_CLASS
jpayne@69 3971 #define TCL_STORAGE_CLASS DLLIMPORT
jpayne@69 3972
jpayne@69 3973 #undef Tcl_SeekOld
jpayne@69 3974 #undef Tcl_TellOld
jpayne@69 3975
jpayne@69 3976 #undef Tcl_PkgPresent
jpayne@69 3977 #define Tcl_PkgPresent(interp, name, version, exact) \
jpayne@69 3978 Tcl_PkgPresentEx(interp, name, version, exact, NULL)
jpayne@69 3979 #undef Tcl_PkgProvide
jpayne@69 3980 #define Tcl_PkgProvide(interp, name, version) \
jpayne@69 3981 Tcl_PkgProvideEx(interp, name, version, NULL)
jpayne@69 3982 #undef Tcl_PkgRequire
jpayne@69 3983 #define Tcl_PkgRequire(interp, name, version, exact) \
jpayne@69 3984 Tcl_PkgRequireEx(interp, name, version, exact, NULL)
jpayne@69 3985 #undef Tcl_GetIndexFromObj
jpayne@69 3986 #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
jpayne@69 3987 Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \
jpayne@69 3988 sizeof(char *), msg, flags, indexPtr)
jpayne@69 3989 #undef Tcl_NewBooleanObj
jpayne@69 3990 #define Tcl_NewBooleanObj(intValue) \
jpayne@69 3991 Tcl_NewIntObj((intValue)!=0)
jpayne@69 3992 #undef Tcl_DbNewBooleanObj
jpayne@69 3993 #define Tcl_DbNewBooleanObj(intValue, file, line) \
jpayne@69 3994 Tcl_DbNewLongObj((intValue)!=0, file, line)
jpayne@69 3995 #undef Tcl_SetBooleanObj
jpayne@69 3996 #define Tcl_SetBooleanObj(objPtr, intValue) \
jpayne@69 3997 Tcl_SetIntObj((objPtr), (intValue)!=0)
jpayne@69 3998 #undef Tcl_SetVar
jpayne@69 3999 #define Tcl_SetVar(interp, varName, newValue, flags) \
jpayne@69 4000 Tcl_SetVar2(interp, varName, NULL, newValue, flags)
jpayne@69 4001 #undef Tcl_UnsetVar
jpayne@69 4002 #define Tcl_UnsetVar(interp, varName, flags) \
jpayne@69 4003 Tcl_UnsetVar2(interp, varName, NULL, flags)
jpayne@69 4004 #undef Tcl_GetVar
jpayne@69 4005 #define Tcl_GetVar(interp, varName, flags) \
jpayne@69 4006 Tcl_GetVar2(interp, varName, NULL, flags)
jpayne@69 4007 #undef Tcl_TraceVar
jpayne@69 4008 #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
jpayne@69 4009 Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData)
jpayne@69 4010 #undef Tcl_UntraceVar
jpayne@69 4011 #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
jpayne@69 4012 Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData)
jpayne@69 4013 #undef Tcl_VarTraceInfo
jpayne@69 4014 #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \
jpayne@69 4015 Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData)
jpayne@69 4016 #undef Tcl_UpVar
jpayne@69 4017 #define Tcl_UpVar(interp, frameName, varName, localName, flags) \
jpayne@69 4018 Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags)
jpayne@69 4019
jpayne@69 4020 #if defined(USE_TCL_STUBS)
jpayne@69 4021 # if defined(_WIN32) && defined(_WIN64)
jpayne@69 4022 # undef Tcl_GetTime
jpayne@69 4023 /* Handle Win64 tk.dll being loaded in Cygwin64. */
jpayne@69 4024 # define Tcl_GetTime(t) \
jpayne@69 4025 do { \
jpayne@69 4026 union { \
jpayne@69 4027 Tcl_Time now; \
jpayne@69 4028 __int64 reserved; \
jpayne@69 4029 } _t; \
jpayne@69 4030 _t.reserved = -1; \
jpayne@69 4031 tclStubsPtr->tcl_GetTime((&_t.now)); \
jpayne@69 4032 if (_t.reserved != -1) { \
jpayne@69 4033 _t.now.usec = _t.reserved; \
jpayne@69 4034 } \
jpayne@69 4035 *(t) = _t.now; \
jpayne@69 4036 } while (0)
jpayne@69 4037 # endif
jpayne@69 4038 # if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG)
jpayne@69 4039 /* On Cygwin64, long is 64-bit while on Win64 long is 32-bit. Therefore
jpayne@69 4040 * we have to make sure that all stub entries on Cygwin64 follow the
jpayne@69 4041 * Win64 signature. Cygwin64 stubbed extensions cannot use those stub
jpayne@69 4042 * entries any more, they should use the 64-bit alternatives where
jpayne@69 4043 * possible. Tcl 9 must find a better solution, but that cannot be done
jpayne@69 4044 * without introducing a binary incompatibility.
jpayne@69 4045 */
jpayne@69 4046 # undef Tcl_DbNewLongObj
jpayne@69 4047 # undef Tcl_GetLongFromObj
jpayne@69 4048 # undef Tcl_NewLongObj
jpayne@69 4049 # undef Tcl_SetLongObj
jpayne@69 4050 # undef Tcl_ExprLong
jpayne@69 4051 # undef Tcl_ExprLongObj
jpayne@69 4052 # undef Tcl_UniCharNcmp
jpayne@69 4053 # undef Tcl_UtfNcmp
jpayne@69 4054 # undef Tcl_UtfNcasecmp
jpayne@69 4055 # undef Tcl_UniCharNcasecmp
jpayne@69 4056 # define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))Tcl_DbNewWideIntObj)
jpayne@69 4057 # define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))Tcl_GetWideIntFromObj)
jpayne@69 4058 # define Tcl_NewLongObj ((Tcl_Obj*(*)(long))Tcl_NewWideIntObj)
jpayne@69 4059 # define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))Tcl_SetWideIntObj)
jpayne@69 4060 # define Tcl_ExprLong TclExprLong
jpayne@69 4061 static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){
jpayne@69 4062 int intValue;
jpayne@69 4063 int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue);
jpayne@69 4064 if (result == TCL_OK) *ptr = (long)intValue;
jpayne@69 4065 return result;
jpayne@69 4066 }
jpayne@69 4067 # define Tcl_ExprLongObj TclExprLongObj
jpayne@69 4068 static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){
jpayne@69 4069 int intValue;
jpayne@69 4070 int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue);
jpayne@69 4071 if (result == TCL_OK) *ptr = (long)intValue;
jpayne@69 4072 return result;
jpayne@69 4073 }
jpayne@69 4074 # define Tcl_UniCharNcmp(ucs,uct,n) \
jpayne@69 4075 ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n))
jpayne@69 4076 # define Tcl_UtfNcmp(s1,s2,n) \
jpayne@69 4077 ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n))
jpayne@69 4078 # define Tcl_UtfNcasecmp(s1,s2,n) \
jpayne@69 4079 ((int(*)(const char*,const char*,unsigned int))tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n))
jpayne@69 4080 # define Tcl_UniCharNcasecmp(ucs,uct,n) \
jpayne@69 4081 ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n))
jpayne@69 4082 # endif
jpayne@69 4083 #endif
jpayne@69 4084
jpayne@69 4085 /*
jpayne@69 4086 * Deprecated Tcl procedures:
jpayne@69 4087 */
jpayne@69 4088
jpayne@69 4089 #undef Tcl_EvalObj
jpayne@69 4090 #define Tcl_EvalObj(interp,objPtr) \
jpayne@69 4091 Tcl_EvalObjEx((interp),(objPtr),0)
jpayne@69 4092 #undef Tcl_GlobalEvalObj
jpayne@69 4093 #define Tcl_GlobalEvalObj(interp,objPtr) \
jpayne@69 4094 Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL)
jpayne@69 4095 #define Tcl_CreateChild Tcl_CreateSlave
jpayne@69 4096 #define Tcl_GetChild Tcl_GetSlave
jpayne@69 4097 #define Tcl_GetParent Tcl_GetMaster
jpayne@69 4098
jpayne@69 4099 #endif /* _TCLDECLS */