| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
|
|
| #ifndef _TCLDECLS |
| #define _TCLDECLS |
|
|
| #undef TCL_STORAGE_CLASS |
| #ifdef BUILD_tcl |
| # define TCL_STORAGE_CLASS DLLEXPORT |
| #else |
| # ifdef USE_TCL_STUBS |
| # define TCL_STORAGE_CLASS |
| # else |
| # define TCL_STORAGE_CLASS DLLIMPORT |
| # endif |
| #endif |
|
|
| |
| |
| |
| |
| |
|
|
| |
|
|
| #ifdef __cplusplus |
| extern "C" { |
| #endif |
|
|
| |
| |
| |
|
|
| |
| EXTERN int Tcl_PkgProvideEx(Tcl_Interp *interp, |
| const char *name, const char *version, |
| const void *clientData); |
| |
| EXTERN CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, |
| const char *name, const char *version, |
| int exact, void *clientDataPtr); |
| |
| EXTERN TCL_NORETURN void Tcl_Panic(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); |
| |
| EXTERN char * Tcl_Alloc(unsigned int size); |
| |
| EXTERN void Tcl_Free(char *ptr); |
| |
| EXTERN char * Tcl_Realloc(char *ptr, unsigned int size); |
| |
| EXTERN char * Tcl_DbCkalloc(unsigned int size, const char *file, |
| int line); |
| |
| EXTERN void Tcl_DbCkfree(char *ptr, const char *file, int line); |
| |
| EXTERN char * Tcl_DbCkrealloc(char *ptr, unsigned int size, |
| const char *file, int line); |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| |
| EXTERN void Tcl_CreateFileHandler(int fd, int mask, |
| Tcl_FileProc *proc, ClientData clientData); |
| #endif |
| #ifdef MAC_OSX_TCL |
| |
| EXTERN void Tcl_CreateFileHandler(int fd, int mask, |
| Tcl_FileProc *proc, ClientData clientData); |
| #endif |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| |
| EXTERN void Tcl_DeleteFileHandler(int fd); |
| #endif |
| #ifdef MAC_OSX_TCL |
| |
| EXTERN void Tcl_DeleteFileHandler(int fd); |
| #endif |
| |
| EXTERN void Tcl_SetTimer(const Tcl_Time *timePtr); |
| |
| EXTERN void Tcl_Sleep(int ms); |
| |
| EXTERN int Tcl_WaitForEvent(const Tcl_Time *timePtr); |
| |
| EXTERN int Tcl_AppendAllObjTypes(Tcl_Interp *interp, |
| Tcl_Obj *objPtr); |
| |
| EXTERN void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...); |
| |
| EXTERN void Tcl_AppendToObj(Tcl_Obj *objPtr, const char *bytes, |
| int length); |
| |
| EXTERN Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *const objv[]); |
| |
| EXTERN int Tcl_ConvertToType(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); |
| |
| EXTERN void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, const char *file, |
| int line); |
| |
| EXTERN void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, const char *file, |
| int line); |
| |
| EXTERN int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file, |
| int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewBooleanObj(int intValue, const char *file, |
| int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewByteArrayObj(const unsigned char *bytes, |
| int length, const char *file, int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, |
| const char *file, int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *const *objv, |
| const char *file, int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewLongObj(long longValue, const char *file, |
| int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewObj(const char *file, int line); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewStringObj(const char *bytes, int length, |
| const char *file, int line); |
| |
| EXTERN Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr); |
| |
| EXTERN void TclFreeObj(Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_GetBoolean(Tcl_Interp *interp, const char *src, |
| int *intPtr); |
| |
| EXTERN int Tcl_GetBooleanFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, int *intPtr); |
| |
| EXTERN unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, |
| int *numBytesPtr); |
| |
| EXTERN int Tcl_GetDouble(Tcl_Interp *interp, const char *src, |
| double *doublePtr); |
| |
| EXTERN int Tcl_GetDoubleFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, double *doublePtr); |
| |
| EXTERN int Tcl_GetIndexFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, |
| CONST84 char *const *tablePtr, |
| const char *msg, int flags, int *indexPtr); |
| |
| EXTERN int Tcl_GetInt(Tcl_Interp *interp, const char *src, |
| int *intPtr); |
| |
| EXTERN int Tcl_GetIntFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, int *intPtr); |
| |
| EXTERN int Tcl_GetLongFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, long *longPtr); |
| |
| EXTERN CONST86 Tcl_ObjType * Tcl_GetObjType(const char *typeName); |
| |
| EXTERN char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr); |
| |
| EXTERN void Tcl_InvalidateStringRep(Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_ListObjAppendList(Tcl_Interp *interp, |
| Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); |
| |
| EXTERN int Tcl_ListObjAppendElement(Tcl_Interp *interp, |
| Tcl_Obj *listPtr, Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_ListObjGetElements(Tcl_Interp *interp, |
| Tcl_Obj *listPtr, int *objcPtr, |
| Tcl_Obj ***objvPtr); |
| |
| EXTERN int Tcl_ListObjIndex(Tcl_Interp *interp, |
| Tcl_Obj *listPtr, int index, |
| Tcl_Obj **objPtrPtr); |
| |
| EXTERN int Tcl_ListObjLength(Tcl_Interp *interp, |
| Tcl_Obj *listPtr, int *lengthPtr); |
| |
| EXTERN int Tcl_ListObjReplace(Tcl_Interp *interp, |
| Tcl_Obj *listPtr, int first, int count, |
| int objc, Tcl_Obj *const objv[]); |
| |
| EXTERN Tcl_Obj * Tcl_NewBooleanObj(int intValue); |
| |
| EXTERN Tcl_Obj * Tcl_NewByteArrayObj(const unsigned char *bytes, |
| int numBytes); |
| |
| EXTERN Tcl_Obj * Tcl_NewDoubleObj(double doubleValue); |
| |
| EXTERN Tcl_Obj * Tcl_NewIntObj(int intValue); |
| |
| EXTERN Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *const objv[]); |
| |
| EXTERN Tcl_Obj * Tcl_NewLongObj(long longValue); |
| |
| EXTERN Tcl_Obj * Tcl_NewObj(void); |
| |
| EXTERN Tcl_Obj * Tcl_NewStringObj(const char *bytes, int length); |
| |
| EXTERN void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int intValue); |
| |
| EXTERN unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int numBytes); |
| |
| EXTERN void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, |
| const unsigned char *bytes, int numBytes); |
| |
| EXTERN void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue); |
| |
| EXTERN void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue); |
| |
| EXTERN void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, |
| Tcl_Obj *const objv[]); |
| |
| EXTERN void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue); |
| |
| EXTERN void Tcl_SetObjLength(Tcl_Obj *objPtr, int length); |
| |
| EXTERN void Tcl_SetStringObj(Tcl_Obj *objPtr, const char *bytes, |
| int length); |
| |
| EXTERN void Tcl_AddErrorInfo(Tcl_Interp *interp, |
| const char *message); |
| |
| EXTERN void Tcl_AddObjErrorInfo(Tcl_Interp *interp, |
| const char *message, int length); |
| |
| EXTERN void Tcl_AllowExceptions(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_AppendElement(Tcl_Interp *interp, |
| const char *element); |
| |
| EXTERN void Tcl_AppendResult(Tcl_Interp *interp, ...); |
| |
| EXTERN Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_AsyncDelete(Tcl_AsyncHandler async); |
| |
| EXTERN int Tcl_AsyncInvoke(Tcl_Interp *interp, int code); |
| |
| EXTERN void Tcl_AsyncMark(Tcl_AsyncHandler async); |
| |
| EXTERN int Tcl_AsyncReady(void); |
| |
| EXTERN void Tcl_BackgroundError(Tcl_Interp *interp); |
| |
| EXTERN char Tcl_Backslash(const char *src, int *readPtr); |
| |
| EXTERN int Tcl_BadChannelOption(Tcl_Interp *interp, |
| const char *optionName, |
| const char *optionList); |
| |
| EXTERN void Tcl_CallWhenDeleted(Tcl_Interp *interp, |
| Tcl_InterpDeleteProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, |
| ClientData clientData); |
| |
| EXTERN int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan); |
| |
| EXTERN int Tcl_CommandComplete(const char *cmd); |
| |
| EXTERN char * Tcl_Concat(int argc, CONST84 char *const *argv); |
| |
| EXTERN int Tcl_ConvertElement(const char *src, char *dst, |
| int flags); |
| |
| EXTERN int Tcl_ConvertCountedElement(const char *src, |
| int length, char *dst, int flags); |
| |
| EXTERN int Tcl_CreateAlias(Tcl_Interp *childInterp, |
| const char *childCmd, Tcl_Interp *target, |
| const char *targetCmd, int argc, |
| CONST84 char *const *argv); |
| |
| EXTERN int Tcl_CreateAliasObj(Tcl_Interp *childInterp, |
| const char *childCmd, Tcl_Interp *target, |
| const char *targetCmd, int objc, |
| Tcl_Obj *const objv[]); |
| |
| EXTERN Tcl_Channel Tcl_CreateChannel(const Tcl_ChannelType *typePtr, |
| const char *chanName, |
| ClientData instanceData, int mask); |
| |
| EXTERN void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, |
| Tcl_ChannelProc *proc, ClientData clientData); |
| |
| EXTERN void Tcl_CreateCloseHandler(Tcl_Channel chan, |
| Tcl_CloseProc *proc, ClientData clientData); |
| |
| EXTERN Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, |
| const char *cmdName, Tcl_CmdProc *proc, |
| ClientData clientData, |
| Tcl_CmdDeleteProc *deleteProc); |
| |
| EXTERN void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, |
| Tcl_EventCheckProc *checkProc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_CreateExitHandler(Tcl_ExitProc *proc, |
| ClientData clientData); |
| |
| EXTERN Tcl_Interp * Tcl_CreateInterp(void); |
| |
| EXTERN void Tcl_CreateMathFunc(Tcl_Interp *interp, |
| const char *name, int numArgs, |
| Tcl_ValueType *argTypes, Tcl_MathProc *proc, |
| ClientData clientData); |
| |
| EXTERN Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, |
| const char *cmdName, Tcl_ObjCmdProc *proc, |
| ClientData clientData, |
| Tcl_CmdDeleteProc *deleteProc); |
| |
| EXTERN Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, const char *name, |
| int isSafe); |
| |
| EXTERN Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, |
| Tcl_TimerProc *proc, ClientData clientData); |
| |
| EXTERN Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, |
| Tcl_CmdTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_DeleteAssocData(Tcl_Interp *interp, |
| const char *name); |
| |
| EXTERN void Tcl_DeleteChannelHandler(Tcl_Channel chan, |
| Tcl_ChannelProc *proc, ClientData clientData); |
| |
| EXTERN void Tcl_DeleteCloseHandler(Tcl_Channel chan, |
| Tcl_CloseProc *proc, ClientData clientData); |
| |
| EXTERN int Tcl_DeleteCommand(Tcl_Interp *interp, |
| const char *cmdName); |
| |
| EXTERN int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, |
| Tcl_Command command); |
| |
| EXTERN void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, |
| Tcl_EventCheckProc *checkProc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr); |
| |
| EXTERN void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr); |
| |
| EXTERN void Tcl_DeleteInterp(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr); |
| |
| EXTERN void Tcl_DeleteTimerHandler(Tcl_TimerToken token); |
| |
| EXTERN void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace); |
| |
| EXTERN void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, |
| Tcl_InterpDeleteProc *proc, |
| ClientData clientData); |
| |
| EXTERN int Tcl_DoOneEvent(int flags); |
| |
| EXTERN void Tcl_DoWhenIdle(Tcl_IdleProc *proc, |
| ClientData clientData); |
| |
| EXTERN char * Tcl_DStringAppend(Tcl_DString *dsPtr, |
| const char *bytes, int length); |
| |
| EXTERN char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, |
| const char *element); |
| |
| EXTERN void Tcl_DStringEndSublist(Tcl_DString *dsPtr); |
| |
| EXTERN void Tcl_DStringFree(Tcl_DString *dsPtr); |
| |
| EXTERN void Tcl_DStringGetResult(Tcl_Interp *interp, |
| Tcl_DString *dsPtr); |
| |
| EXTERN void Tcl_DStringInit(Tcl_DString *dsPtr); |
| |
| EXTERN void Tcl_DStringResult(Tcl_Interp *interp, |
| Tcl_DString *dsPtr); |
| |
| EXTERN void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length); |
| |
| EXTERN void Tcl_DStringStartSublist(Tcl_DString *dsPtr); |
| |
| EXTERN int Tcl_Eof(Tcl_Channel chan); |
| |
| EXTERN CONST84_RETURN char * Tcl_ErrnoId(void); |
| |
| EXTERN CONST84_RETURN char * Tcl_ErrnoMsg(int err); |
| |
| EXTERN int Tcl_Eval(Tcl_Interp *interp, const char *script); |
| |
| EXTERN int Tcl_EvalFile(Tcl_Interp *interp, |
| const char *fileName); |
| |
| EXTERN int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr); |
| |
| EXTERN void Tcl_EventuallyFree(ClientData clientData, |
| Tcl_FreeProc *freeProc); |
| |
| EXTERN TCL_NORETURN void Tcl_Exit(int status); |
| |
| EXTERN int Tcl_ExposeCommand(Tcl_Interp *interp, |
| const char *hiddenCmdToken, |
| const char *cmdName); |
| |
| EXTERN int Tcl_ExprBoolean(Tcl_Interp *interp, const char *expr, |
| int *ptr); |
| |
| EXTERN int Tcl_ExprBooleanObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, int *ptr); |
| |
| EXTERN int Tcl_ExprDouble(Tcl_Interp *interp, const char *expr, |
| double *ptr); |
| |
| EXTERN int Tcl_ExprDoubleObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, double *ptr); |
| |
| EXTERN int Tcl_ExprLong(Tcl_Interp *interp, const char *expr, |
| long *ptr); |
| |
| EXTERN int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| long *ptr); |
| |
| EXTERN int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| Tcl_Obj **resultPtrPtr); |
| |
| EXTERN int Tcl_ExprString(Tcl_Interp *interp, const char *expr); |
| |
| EXTERN void Tcl_Finalize(void); |
| |
| EXTERN void Tcl_FindExecutable(const char *argv0); |
| |
| EXTERN Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, |
| Tcl_HashSearch *searchPtr); |
| |
| EXTERN int Tcl_Flush(Tcl_Channel chan); |
| |
| EXTERN void Tcl_FreeResult(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_GetAlias(Tcl_Interp *interp, |
| const char *childCmd, |
| Tcl_Interp **targetInterpPtr, |
| CONST84 char **targetCmdPtr, int *argcPtr, |
| CONST84 char ***argvPtr); |
| |
| EXTERN int Tcl_GetAliasObj(Tcl_Interp *interp, |
| const char *childCmd, |
| Tcl_Interp **targetInterpPtr, |
| CONST84 char **targetCmdPtr, int *objcPtr, |
| Tcl_Obj ***objv); |
| |
| EXTERN ClientData Tcl_GetAssocData(Tcl_Interp *interp, |
| const char *name, |
| Tcl_InterpDeleteProc **procPtr); |
| |
| EXTERN Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, |
| const char *chanName, int *modePtr); |
| |
| EXTERN int Tcl_GetChannelBufferSize(Tcl_Channel chan); |
| |
| EXTERN int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, |
| ClientData *handlePtr); |
| |
| EXTERN ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan); |
| |
| EXTERN int Tcl_GetChannelMode(Tcl_Channel chan); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan); |
| |
| EXTERN int Tcl_GetChannelOption(Tcl_Interp *interp, |
| Tcl_Channel chan, const char *optionName, |
| Tcl_DString *dsPtr); |
| |
| EXTERN CONST86 Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan); |
| |
| EXTERN int Tcl_GetCommandInfo(Tcl_Interp *interp, |
| const char *cmdName, Tcl_CmdInfo *infoPtr); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp, |
| Tcl_Command command); |
| |
| EXTERN int Tcl_GetErrno(void); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetHostName(void); |
| |
| EXTERN int Tcl_GetInterpPath(Tcl_Interp *interp, |
| Tcl_Interp *childInterp); |
| |
| EXTERN Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp); |
| |
| EXTERN const char * Tcl_GetNameOfExecutable(void); |
| |
| EXTERN Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp); |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| |
| EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, |
| const char *chanID, int forWriting, |
| int checkUsage, ClientData *filePtr); |
| #endif |
| #ifdef MAC_OSX_TCL |
| |
| EXTERN int Tcl_GetOpenFile(Tcl_Interp *interp, |
| const char *chanID, int forWriting, |
| int checkUsage, ClientData *filePtr); |
| #endif |
| |
| EXTERN Tcl_PathType Tcl_GetPathType(const char *path); |
| |
| EXTERN int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr); |
| |
| EXTERN int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_GetServiceMode(void); |
| |
| EXTERN Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, const char *name); |
| |
| EXTERN Tcl_Channel Tcl_GetStdChannel(int type); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, |
| const char *varName, int flags); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, |
| const char *part1, const char *part2, |
| int flags); |
| |
| EXTERN int Tcl_GlobalEval(Tcl_Interp *interp, |
| const char *command); |
| |
| EXTERN int Tcl_GlobalEvalObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_HideCommand(Tcl_Interp *interp, |
| const char *cmdName, |
| const char *hiddenCmdToken); |
| |
| EXTERN int Tcl_Init(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_InitHashTable(Tcl_HashTable *tablePtr, |
| int keyType); |
| |
| EXTERN int Tcl_InputBlocked(Tcl_Channel chan); |
| |
| EXTERN int Tcl_InputBuffered(Tcl_Channel chan); |
| |
| EXTERN int Tcl_InterpDeleted(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_IsSafe(Tcl_Interp *interp); |
| |
| EXTERN char * Tcl_JoinPath(int argc, CONST84 char *const *argv, |
| Tcl_DString *resultPtr); |
| |
| EXTERN int Tcl_LinkVar(Tcl_Interp *interp, const char *varName, |
| char *addr, int type); |
| |
| |
| EXTERN Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode); |
| |
| EXTERN int Tcl_MakeSafe(Tcl_Interp *interp); |
| |
| EXTERN Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket); |
| |
| EXTERN char * Tcl_Merge(int argc, CONST84 char *const *argv); |
| |
| EXTERN Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr); |
| |
| EXTERN void Tcl_NotifyChannel(Tcl_Channel channel, int mask); |
| |
| EXTERN Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, |
| Tcl_Obj *part2Ptr, int flags); |
| |
| EXTERN Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, |
| Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, |
| int flags); |
| |
| EXTERN Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, |
| CONST84 char **argv, int flags); |
| |
| EXTERN Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, |
| const char *fileName, const char *modeString, |
| int permissions); |
| |
| EXTERN Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, |
| const char *address, const char *myaddr, |
| int myport, int flags); |
| |
| EXTERN Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, |
| const char *host, |
| Tcl_TcpAcceptProc *acceptProc, |
| ClientData callbackData); |
| |
| EXTERN void Tcl_Preserve(ClientData data); |
| |
| EXTERN void Tcl_PrintDouble(Tcl_Interp *interp, double value, |
| char *dst); |
| |
| EXTERN int Tcl_PutEnv(const char *assignment); |
| |
| EXTERN CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_QueueEvent(Tcl_Event *evPtr, |
| Tcl_QueuePosition position); |
| |
| EXTERN int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead); |
| |
| EXTERN void Tcl_ReapDetachedProcs(void); |
| |
| EXTERN int Tcl_RecordAndEval(Tcl_Interp *interp, |
| const char *cmd, int flags); |
| |
| EXTERN int Tcl_RecordAndEvalObj(Tcl_Interp *interp, |
| Tcl_Obj *cmdPtr, int flags); |
| |
| EXTERN void Tcl_RegisterChannel(Tcl_Interp *interp, |
| Tcl_Channel chan); |
| |
| EXTERN void Tcl_RegisterObjType(const Tcl_ObjType *typePtr); |
| |
| EXTERN Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, |
| const char *pattern); |
| |
| EXTERN int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, |
| const char *text, const char *start); |
| |
| EXTERN int Tcl_RegExpMatch(Tcl_Interp *interp, const char *text, |
| const char *pattern); |
| |
| EXTERN void Tcl_RegExpRange(Tcl_RegExp regexp, int index, |
| CONST84 char **startPtr, |
| CONST84 char **endPtr); |
| |
| EXTERN void Tcl_Release(ClientData clientData); |
| |
| EXTERN void Tcl_ResetResult(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_ScanElement(const char *src, int *flagPtr); |
| |
| EXTERN int Tcl_ScanCountedElement(const char *src, int length, |
| int *flagPtr); |
| |
| EXTERN int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode); |
| |
| EXTERN int Tcl_ServiceAll(void); |
| |
| EXTERN int Tcl_ServiceEvent(int flags); |
| |
| EXTERN void Tcl_SetAssocData(Tcl_Interp *interp, |
| const char *name, Tcl_InterpDeleteProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz); |
| |
| EXTERN int Tcl_SetChannelOption(Tcl_Interp *interp, |
| Tcl_Channel chan, const char *optionName, |
| const char *newValue); |
| |
| EXTERN int Tcl_SetCommandInfo(Tcl_Interp *interp, |
| const char *cmdName, |
| const Tcl_CmdInfo *infoPtr); |
| |
| EXTERN void Tcl_SetErrno(int err); |
| |
| EXTERN void Tcl_SetErrorCode(Tcl_Interp *interp, ...); |
| |
| EXTERN void Tcl_SetMaxBlockTime(const Tcl_Time *timePtr); |
| |
| EXTERN void Tcl_SetPanicProc( |
| TCL_NORETURN1 Tcl_PanicProc *panicProc); |
| |
| EXTERN int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth); |
| |
| EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, |
| Tcl_FreeProc *freeProc); |
| |
| EXTERN int Tcl_SetServiceMode(int mode); |
| |
| EXTERN void Tcl_SetObjErrorCode(Tcl_Interp *interp, |
| Tcl_Obj *errorObjPtr); |
| |
| EXTERN void Tcl_SetObjResult(Tcl_Interp *interp, |
| Tcl_Obj *resultObjPtr); |
| |
| EXTERN void Tcl_SetStdChannel(Tcl_Channel channel, int type); |
| |
| EXTERN CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, |
| const char *varName, const char *newValue, |
| int flags); |
| |
| EXTERN CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, |
| const char *part1, const char *part2, |
| const char *newValue, int flags); |
| |
| EXTERN CONST84_RETURN char * Tcl_SignalId(int sig); |
| |
| EXTERN CONST84_RETURN char * Tcl_SignalMsg(int sig); |
| |
| EXTERN void Tcl_SourceRCFile(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_SplitList(Tcl_Interp *interp, |
| const char *listStr, int *argcPtr, |
| CONST84 char ***argvPtr); |
| |
| EXTERN void Tcl_SplitPath(const char *path, int *argcPtr, |
| CONST84 char ***argvPtr); |
| |
| EXTERN void Tcl_StaticPackage(Tcl_Interp *interp, |
| const char *prefix, |
| Tcl_PackageInitProc *initProc, |
| Tcl_PackageInitProc *safeInitProc); |
| |
| EXTERN int Tcl_StringMatch(const char *str, const char *pattern); |
| |
| EXTERN int Tcl_TellOld(Tcl_Channel chan); |
| |
| EXTERN int Tcl_TraceVar(Tcl_Interp *interp, const char *varName, |
| int flags, Tcl_VarTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN int Tcl_TraceVar2(Tcl_Interp *interp, const char *part1, |
| const char *part2, int flags, |
| Tcl_VarTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN char * Tcl_TranslateFileName(Tcl_Interp *interp, |
| const char *name, Tcl_DString *bufferPtr); |
| |
| EXTERN int Tcl_Ungets(Tcl_Channel chan, const char *str, |
| int len, int atHead); |
| |
| EXTERN void Tcl_UnlinkVar(Tcl_Interp *interp, |
| const char *varName); |
| |
| EXTERN int Tcl_UnregisterChannel(Tcl_Interp *interp, |
| Tcl_Channel chan); |
| |
| EXTERN int Tcl_UnsetVar(Tcl_Interp *interp, const char *varName, |
| int flags); |
| |
| EXTERN int Tcl_UnsetVar2(Tcl_Interp *interp, const char *part1, |
| const char *part2, int flags); |
| |
| EXTERN void Tcl_UntraceVar(Tcl_Interp *interp, |
| const char *varName, int flags, |
| Tcl_VarTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_UntraceVar2(Tcl_Interp *interp, |
| const char *part1, const char *part2, |
| int flags, Tcl_VarTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_UpdateLinkedVar(Tcl_Interp *interp, |
| const char *varName); |
| |
| EXTERN int Tcl_UpVar(Tcl_Interp *interp, const char *frameName, |
| const char *varName, const char *localName, |
| int flags); |
| |
| EXTERN int Tcl_UpVar2(Tcl_Interp *interp, const char *frameName, |
| const char *part1, const char *part2, |
| const char *localName, int flags); |
| |
| EXTERN int Tcl_VarEval(Tcl_Interp *interp, ...); |
| |
| EXTERN ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, |
| const char *varName, int flags, |
| Tcl_VarTraceProc *procPtr, |
| ClientData prevClientData); |
| |
| EXTERN ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, |
| const char *part1, const char *part2, |
| int flags, Tcl_VarTraceProc *procPtr, |
| ClientData prevClientData); |
| |
| EXTERN int Tcl_Write(Tcl_Channel chan, const char *s, int slen); |
| |
| EXTERN void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, |
| Tcl_Obj *const objv[], const char *message); |
| |
| EXTERN int Tcl_DumpActiveMemory(const char *fileName); |
| |
| EXTERN void Tcl_ValidateAllMemory(const char *file, int line); |
| |
| EXTERN void Tcl_AppendResultVA(Tcl_Interp *interp, |
| va_list argList); |
| |
| EXTERN void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, |
| va_list argList); |
| |
| EXTERN char * Tcl_HashStats(Tcl_HashTable *tablePtr); |
| |
| EXTERN CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, |
| const char *start, CONST84 char **termPtr); |
| |
| EXTERN CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, |
| const char *name, const char *version, |
| int exact); |
| |
| EXTERN CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, |
| const char *name, const char *version, |
| int exact, void *clientDataPtr); |
| |
| EXTERN int Tcl_PkgProvide(Tcl_Interp *interp, const char *name, |
| const char *version); |
| |
| EXTERN CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, |
| const char *name, const char *version, |
| int exact); |
| |
| EXTERN void Tcl_SetErrorCodeVA(Tcl_Interp *interp, |
| va_list argList); |
| |
| EXTERN int Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList); |
| |
| EXTERN Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options); |
| |
| EXTERN TCL_NORETURN void Tcl_PanicVA(const char *format, va_list argList); |
| |
| EXTERN void Tcl_GetVersion(int *major, int *minor, |
| int *patchLevel, int *type); |
| |
| EXTERN void Tcl_InitMemory(Tcl_Interp *interp); |
| |
| EXTERN Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, |
| const Tcl_ChannelType *typePtr, |
| ClientData instanceData, int mask, |
| Tcl_Channel prevChan); |
| |
| EXTERN int Tcl_UnstackChannel(Tcl_Interp *interp, |
| Tcl_Channel chan); |
| |
| EXTERN Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan); |
| |
| EXTERN void Tcl_SetMainLoop(Tcl_MainLoopProc *proc); |
| |
| |
| EXTERN void Tcl_AppendObjToObj(Tcl_Obj *objPtr, |
| Tcl_Obj *appendObjPtr); |
| |
| EXTERN Tcl_Encoding Tcl_CreateEncoding(const Tcl_EncodingType *typePtr); |
| |
| EXTERN void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_DiscardResult(Tcl_SavedResult *statePtr); |
| |
| EXTERN int Tcl_EvalEx(Tcl_Interp *interp, const char *script, |
| int numBytes, int flags); |
| |
| EXTERN int Tcl_EvalObjv(Tcl_Interp *interp, int objc, |
| Tcl_Obj *const objv[], int flags); |
| |
| EXTERN int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| int flags); |
| |
| EXTERN void Tcl_ExitThread(int status); |
| |
| EXTERN 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); |
| |
| EXTERN char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding, |
| const char *src, int srcLen, |
| Tcl_DString *dsPtr); |
| |
| EXTERN void Tcl_FinalizeThread(void); |
| |
| EXTERN void Tcl_FinalizeNotifier(ClientData clientData); |
| |
| EXTERN void Tcl_FreeEncoding(Tcl_Encoding encoding); |
| |
| EXTERN Tcl_ThreadId Tcl_GetCurrentThread(void); |
| |
| EXTERN Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, const char *name); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding); |
| |
| EXTERN void Tcl_GetEncodingNames(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, const void *tablePtr, |
| int offset, const char *msg, int flags, |
| int *indexPtr); |
| |
| EXTERN void * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, |
| int size); |
| |
| EXTERN Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, const char *part1, |
| const char *part2, int flags); |
| |
| EXTERN ClientData Tcl_InitNotifier(void); |
| |
| EXTERN void Tcl_MutexLock(Tcl_Mutex *mutexPtr); |
| |
| EXTERN void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr); |
| |
| EXTERN void Tcl_ConditionNotify(Tcl_Condition *condPtr); |
| |
| EXTERN void Tcl_ConditionWait(Tcl_Condition *condPtr, |
| Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); |
| |
| EXTERN int Tcl_NumUtfChars(const char *src, int length); |
| |
| EXTERN int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, |
| int charsToRead, int appendFlag); |
| |
| EXTERN void Tcl_RestoreResult(Tcl_Interp *interp, |
| Tcl_SavedResult *statePtr); |
| |
| EXTERN void Tcl_SaveResult(Tcl_Interp *interp, |
| Tcl_SavedResult *statePtr); |
| |
| EXTERN int Tcl_SetSystemEncoding(Tcl_Interp *interp, |
| const char *name); |
| |
| EXTERN Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, const char *part1, |
| const char *part2, Tcl_Obj *newValuePtr, |
| int flags); |
| |
| EXTERN void Tcl_ThreadAlert(Tcl_ThreadId threadId); |
| |
| EXTERN void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, |
| Tcl_Event *evPtr, Tcl_QueuePosition position); |
| |
| EXTERN Tcl_UniChar Tcl_UniCharAtIndex(const char *src, int index); |
| |
| EXTERN Tcl_UniChar Tcl_UniCharToLower(int ch); |
| |
| EXTERN Tcl_UniChar Tcl_UniCharToTitle(int ch); |
| |
| EXTERN Tcl_UniChar Tcl_UniCharToUpper(int ch); |
| |
| EXTERN int Tcl_UniCharToUtf(int ch, char *buf); |
| |
| EXTERN CONST84_RETURN char * Tcl_UtfAtIndex(const char *src, int index); |
| |
| EXTERN int Tcl_UtfCharComplete(const char *src, int length); |
| |
| EXTERN int Tcl_UtfBackslash(const char *src, int *readPtr, |
| char *dst); |
| |
| EXTERN CONST84_RETURN char * Tcl_UtfFindFirst(const char *src, int ch); |
| |
| EXTERN CONST84_RETURN char * Tcl_UtfFindLast(const char *src, int ch); |
| |
| EXTERN CONST84_RETURN char * Tcl_UtfNext(const char *src); |
| |
| EXTERN CONST84_RETURN char * Tcl_UtfPrev(const char *src, const char *start); |
| |
| EXTERN 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); |
| |
| EXTERN char * Tcl_UtfToExternalDString(Tcl_Encoding encoding, |
| const char *src, int srcLen, |
| Tcl_DString *dsPtr); |
| |
| EXTERN int Tcl_UtfToLower(char *src); |
| |
| EXTERN int Tcl_UtfToTitle(char *src); |
| |
| EXTERN int Tcl_UtfToUniChar(const char *src, Tcl_UniChar *chPtr); |
| |
| EXTERN int Tcl_UtfToUpper(char *src); |
| |
| EXTERN int Tcl_WriteChars(Tcl_Channel chan, const char *src, |
| int srcLen); |
| |
| EXTERN int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr); |
| |
| EXTERN char * Tcl_GetString(Tcl_Obj *objPtr); |
| |
| EXTERN CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void); |
| |
| EXTERN void Tcl_SetDefaultEncodingDir(const char *path); |
| |
| EXTERN void Tcl_AlertNotifier(ClientData clientData); |
| |
| EXTERN void Tcl_ServiceModeHook(int mode); |
| |
| EXTERN int Tcl_UniCharIsAlnum(int ch); |
| |
| EXTERN int Tcl_UniCharIsAlpha(int ch); |
| |
| EXTERN int Tcl_UniCharIsDigit(int ch); |
| |
| EXTERN int Tcl_UniCharIsLower(int ch); |
| |
| EXTERN int Tcl_UniCharIsSpace(int ch); |
| |
| EXTERN int Tcl_UniCharIsUpper(int ch); |
| |
| EXTERN int Tcl_UniCharIsWordChar(int ch); |
| |
| EXTERN int Tcl_UniCharLen(const Tcl_UniChar *uniStr); |
| |
| EXTERN int Tcl_UniCharNcmp(const Tcl_UniChar *ucs, |
| const Tcl_UniChar *uct, |
| unsigned long numChars); |
| |
| EXTERN char * Tcl_UniCharToUtfDString(const Tcl_UniChar *uniStr, |
| int uniLength, Tcl_DString *dsPtr); |
| |
| EXTERN Tcl_UniChar * Tcl_UtfToUniCharDString(const char *src, int length, |
| Tcl_DString *dsPtr); |
| |
| EXTERN Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, |
| Tcl_Obj *patObj, int flags); |
| |
| EXTERN Tcl_Obj * Tcl_EvalTokens(Tcl_Interp *interp, |
| Tcl_Token *tokenPtr, int count); |
| |
| EXTERN void Tcl_FreeParse(Tcl_Parse *parsePtr); |
| |
| EXTERN void Tcl_LogCommandInfo(Tcl_Interp *interp, |
| const char *script, const char *command, |
| int length); |
| |
| EXTERN int Tcl_ParseBraces(Tcl_Interp *interp, |
| const char *start, int numBytes, |
| Tcl_Parse *parsePtr, int append, |
| CONST84 char **termPtr); |
| |
| EXTERN int Tcl_ParseCommand(Tcl_Interp *interp, |
| const char *start, int numBytes, int nested, |
| Tcl_Parse *parsePtr); |
| |
| EXTERN int Tcl_ParseExpr(Tcl_Interp *interp, const char *start, |
| int numBytes, Tcl_Parse *parsePtr); |
| |
| EXTERN int Tcl_ParseQuotedString(Tcl_Interp *interp, |
| const char *start, int numBytes, |
| Tcl_Parse *parsePtr, int append, |
| CONST84 char **termPtr); |
| |
| EXTERN int Tcl_ParseVarName(Tcl_Interp *interp, |
| const char *start, int numBytes, |
| Tcl_Parse *parsePtr, int append); |
| |
| EXTERN char * Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr); |
| |
| EXTERN int Tcl_Chdir(const char *dirName); |
| |
| EXTERN int Tcl_Access(const char *path, int mode); |
| |
| EXTERN int Tcl_Stat(const char *path, struct stat *bufPtr); |
| |
| EXTERN int Tcl_UtfNcmp(const char *s1, const char *s2, |
| unsigned long n); |
| |
| EXTERN int Tcl_UtfNcasecmp(const char *s1, const char *s2, |
| unsigned long n); |
| |
| EXTERN int Tcl_StringCaseMatch(const char *str, |
| const char *pattern, int nocase); |
| |
| EXTERN int Tcl_UniCharIsControl(int ch); |
| |
| EXTERN int Tcl_UniCharIsGraph(int ch); |
| |
| EXTERN int Tcl_UniCharIsPrint(int ch); |
| |
| EXTERN int Tcl_UniCharIsPunct(int ch); |
| |
| EXTERN int Tcl_RegExpExecObj(Tcl_Interp *interp, |
| Tcl_RegExp regexp, Tcl_Obj *textObj, |
| int offset, int nmatches, int flags); |
| |
| EXTERN void Tcl_RegExpGetInfo(Tcl_RegExp regexp, |
| Tcl_RegExpInfo *infoPtr); |
| |
| EXTERN Tcl_Obj * Tcl_NewUnicodeObj(const Tcl_UniChar *unicode, |
| int numChars); |
| |
| EXTERN void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, |
| const Tcl_UniChar *unicode, int numChars); |
| |
| EXTERN int Tcl_GetCharLength(Tcl_Obj *objPtr); |
| |
| EXTERN Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index); |
| |
| EXTERN Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr); |
| |
| EXTERN Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last); |
| |
| EXTERN void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, |
| const Tcl_UniChar *unicode, int length); |
| |
| EXTERN int Tcl_RegExpMatchObj(Tcl_Interp *interp, |
| Tcl_Obj *textObj, Tcl_Obj *patternObj); |
| |
| EXTERN void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr); |
| |
| EXTERN Tcl_Mutex * Tcl_GetAllocMutex(void); |
| |
| EXTERN int Tcl_GetChannelNames(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_GetChannelNamesEx(Tcl_Interp *interp, |
| const char *pattern); |
| |
| EXTERN int Tcl_ProcObjCmd(ClientData clientData, |
| Tcl_Interp *interp, int objc, |
| Tcl_Obj *const objv[]); |
| |
| EXTERN void Tcl_ConditionFinalize(Tcl_Condition *condPtr); |
| |
| EXTERN void Tcl_MutexFinalize(Tcl_Mutex *mutex); |
| |
| EXTERN int Tcl_CreateThread(Tcl_ThreadId *idPtr, |
| Tcl_ThreadCreateProc *proc, |
| ClientData clientData, int stackSize, |
| int flags); |
| |
| EXTERN int Tcl_ReadRaw(Tcl_Channel chan, char *dst, |
| int bytesToRead); |
| |
| EXTERN int Tcl_WriteRaw(Tcl_Channel chan, const char *src, |
| int srcLen); |
| |
| EXTERN Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan); |
| |
| EXTERN int Tcl_ChannelBuffered(Tcl_Channel chan); |
| |
| EXTERN CONST84_RETURN char * Tcl_ChannelName( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_ChannelTypeVersion Tcl_ChannelVersion( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverCloseProc * Tcl_ChannelCloseProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverInputProc * Tcl_ChannelInputProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverOutputProc * Tcl_ChannelOutputProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverSeekProc * Tcl_ChannelSeekProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverWatchProc * Tcl_ChannelWatchProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverFlushProc * Tcl_ChannelFlushProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN int Tcl_JoinThread(Tcl_ThreadId threadId, int *result); |
| |
| EXTERN int Tcl_IsChannelShared(Tcl_Channel channel); |
| |
| EXTERN int Tcl_IsChannelRegistered(Tcl_Interp *interp, |
| Tcl_Channel channel); |
| |
| EXTERN void Tcl_CutChannel(Tcl_Channel channel); |
| |
| EXTERN void Tcl_SpliceChannel(Tcl_Channel channel); |
| |
| EXTERN void Tcl_ClearChannelHandlers(Tcl_Channel channel); |
| |
| EXTERN int Tcl_IsChannelExisting(const char *channelName); |
| |
| EXTERN int Tcl_UniCharNcasecmp(const Tcl_UniChar *ucs, |
| const Tcl_UniChar *uct, |
| unsigned long numChars); |
| |
| EXTERN int Tcl_UniCharCaseMatch(const Tcl_UniChar *uniStr, |
| const Tcl_UniChar *uniPattern, int nocase); |
| |
| EXTERN Tcl_HashEntry * Tcl_FindHashEntry(Tcl_HashTable *tablePtr, |
| const void *key); |
| |
| EXTERN Tcl_HashEntry * Tcl_CreateHashEntry(Tcl_HashTable *tablePtr, |
| const void *key, int *newPtr); |
| |
| EXTERN void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, |
| int keyType, const Tcl_HashKeyType *typePtr); |
| |
| EXTERN void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr); |
| |
| EXTERN ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, |
| const char *varName, int flags, |
| Tcl_CommandTraceProc *procPtr, |
| ClientData prevClientData); |
| |
| EXTERN int Tcl_TraceCommand(Tcl_Interp *interp, |
| const char *varName, int flags, |
| Tcl_CommandTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_UntraceCommand(Tcl_Interp *interp, |
| const char *varName, int flags, |
| Tcl_CommandTraceProc *proc, |
| ClientData clientData); |
| |
| EXTERN char * Tcl_AttemptAlloc(unsigned int size); |
| |
| EXTERN char * Tcl_AttemptDbCkalloc(unsigned int size, |
| const char *file, int line); |
| |
| EXTERN char * Tcl_AttemptRealloc(char *ptr, unsigned int size); |
| |
| EXTERN char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size, |
| const char *file, int line); |
| |
| EXTERN int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length); |
| |
| EXTERN Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel); |
| |
| EXTERN Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, |
| int *lengthPtr); |
| |
| EXTERN int Tcl_GetMathFuncInfo(Tcl_Interp *interp, |
| const char *name, int *numArgsPtr, |
| Tcl_ValueType **argTypesPtr, |
| Tcl_MathProc **procPtr, |
| ClientData *clientDataPtr); |
| |
| EXTERN Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, |
| const char *pattern); |
| |
| EXTERN Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| int flags); |
| |
| EXTERN int Tcl_DetachChannel(Tcl_Interp *interp, |
| Tcl_Channel channel); |
| |
| EXTERN int Tcl_IsStandardChannel(Tcl_Channel channel); |
| |
| EXTERN int Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, |
| Tcl_Obj *destPathPtr); |
| |
| EXTERN int Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr, |
| Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); |
| |
| EXTERN int Tcl_FSCreateDirectory(Tcl_Obj *pathPtr); |
| |
| EXTERN int Tcl_FSDeleteFile(Tcl_Obj *pathPtr); |
| |
| EXTERN 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); |
| |
| EXTERN int Tcl_FSMatchInDirectory(Tcl_Interp *interp, |
| Tcl_Obj *result, Tcl_Obj *pathPtr, |
| const char *pattern, Tcl_GlobTypeData *types); |
| |
| EXTERN Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, |
| int linkAction); |
| |
| EXTERN int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr, |
| int recursive, Tcl_Obj **errorPtr); |
| |
| EXTERN int Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, |
| Tcl_Obj *destPathPtr); |
| |
| EXTERN int Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); |
| |
| EXTERN int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval); |
| |
| EXTERN int Tcl_FSFileAttrsGet(Tcl_Interp *interp, int index, |
| Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); |
| |
| EXTERN int Tcl_FSFileAttrsSet(Tcl_Interp *interp, int index, |
| Tcl_Obj *pathPtr, Tcl_Obj *objPtr); |
| |
| EXTERN const char *CONST86 * Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, |
| Tcl_Obj **objPtrRef); |
| |
| EXTERN int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf); |
| |
| EXTERN int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode); |
| |
| EXTERN Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, |
| Tcl_Obj *pathPtr, const char *modeString, |
| int permissions); |
| |
| EXTERN Tcl_Obj * Tcl_FSGetCwd(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_FSChdir(Tcl_Obj *pathPtr); |
| |
| EXTERN int Tcl_FSConvertToPathType(Tcl_Interp *interp, |
| Tcl_Obj *pathPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSJoinPath(Tcl_Obj *listObj, int elements); |
| |
| EXTERN Tcl_Obj * Tcl_FSSplitPath(Tcl_Obj *pathPtr, int *lenPtr); |
| |
| EXTERN int Tcl_FSEqualPaths(Tcl_Obj *firstPtr, |
| Tcl_Obj *secondPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSGetNormalizedPath(Tcl_Interp *interp, |
| Tcl_Obj *pathPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSJoinToPath(Tcl_Obj *pathPtr, int objc, |
| Tcl_Obj *const objv[]); |
| |
| EXTERN ClientData Tcl_FSGetInternalRep(Tcl_Obj *pathPtr, |
| const Tcl_Filesystem *fsPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSGetTranslatedPath(Tcl_Interp *interp, |
| Tcl_Obj *pathPtr); |
| |
| EXTERN int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName); |
| |
| EXTERN Tcl_Obj * Tcl_FSNewNativePath( |
| const Tcl_Filesystem *fromFilesystem, |
| ClientData clientData); |
| |
| EXTERN const void * Tcl_FSGetNativePath(Tcl_Obj *pathPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSFileSystemInfo(Tcl_Obj *pathPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSPathSeparator(Tcl_Obj *pathPtr); |
| |
| EXTERN Tcl_Obj * Tcl_FSListVolumes(void); |
| |
| EXTERN int Tcl_FSRegister(ClientData clientData, |
| const Tcl_Filesystem *fsPtr); |
| |
| EXTERN int Tcl_FSUnregister(const Tcl_Filesystem *fsPtr); |
| |
| EXTERN ClientData Tcl_FSData(const Tcl_Filesystem *fsPtr); |
| |
| EXTERN const char * Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp, |
| Tcl_Obj *pathPtr); |
| |
| EXTERN CONST86 Tcl_Filesystem * Tcl_FSGetFileSystemForPath(Tcl_Obj *pathPtr); |
| |
| EXTERN Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathPtr); |
| |
| EXTERN int Tcl_OutputBuffered(Tcl_Channel chan); |
| |
| EXTERN void Tcl_FSMountsChanged(const Tcl_Filesystem *fsPtr); |
| |
| EXTERN int Tcl_EvalTokensStandard(Tcl_Interp *interp, |
| Tcl_Token *tokenPtr, int count); |
| |
| EXTERN void Tcl_GetTime(Tcl_Time *timeBuf); |
| |
| EXTERN Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp *interp, int level, |
| int flags, Tcl_CmdObjTraceProc *objProc, |
| ClientData clientData, |
| Tcl_CmdObjTraceDeleteProc *delProc); |
| |
| EXTERN int Tcl_GetCommandInfoFromToken(Tcl_Command token, |
| Tcl_CmdInfo *infoPtr); |
| |
| EXTERN int Tcl_SetCommandInfoFromToken(Tcl_Command token, |
| const Tcl_CmdInfo *infoPtr); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue, |
| const char *file, int line); |
| |
| EXTERN int Tcl_GetWideIntFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, Tcl_WideInt *widePtr); |
| |
| EXTERN Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue); |
| |
| EXTERN void Tcl_SetWideIntObj(Tcl_Obj *objPtr, |
| Tcl_WideInt wideValue); |
| |
| EXTERN Tcl_StatBuf * Tcl_AllocStatBuf(void); |
| |
| EXTERN Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, |
| int mode); |
| |
| EXTERN Tcl_WideInt Tcl_Tell(Tcl_Channel chan); |
| |
| EXTERN Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN int Tcl_DictObjPut(Tcl_Interp *interp, Tcl_Obj *dictPtr, |
| Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); |
| |
| EXTERN int Tcl_DictObjGet(Tcl_Interp *interp, Tcl_Obj *dictPtr, |
| Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); |
| |
| EXTERN int Tcl_DictObjRemove(Tcl_Interp *interp, |
| Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); |
| |
| EXTERN int Tcl_DictObjSize(Tcl_Interp *interp, Tcl_Obj *dictPtr, |
| int *sizePtr); |
| |
| EXTERN int Tcl_DictObjFirst(Tcl_Interp *interp, |
| Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, |
| Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, |
| int *donePtr); |
| |
| EXTERN void Tcl_DictObjNext(Tcl_DictSearch *searchPtr, |
| Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, |
| int *donePtr); |
| |
| EXTERN void Tcl_DictObjDone(Tcl_DictSearch *searchPtr); |
| |
| EXTERN int Tcl_DictObjPutKeyList(Tcl_Interp *interp, |
| Tcl_Obj *dictPtr, int keyc, |
| Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); |
| |
| EXTERN int Tcl_DictObjRemoveKeyList(Tcl_Interp *interp, |
| Tcl_Obj *dictPtr, int keyc, |
| Tcl_Obj *const *keyv); |
| |
| EXTERN Tcl_Obj * Tcl_NewDictObj(void); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewDictObj(const char *file, int line); |
| |
| EXTERN void Tcl_RegisterConfig(Tcl_Interp *interp, |
| const char *pkgName, |
| const Tcl_Config *configuration, |
| const char *valEncoding); |
| |
| EXTERN Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, |
| const char *name, ClientData clientData, |
| Tcl_NamespaceDeleteProc *deleteProc); |
| |
| EXTERN void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr); |
| |
| EXTERN int Tcl_AppendExportList(Tcl_Interp *interp, |
| Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, |
| const char *pattern, int resetListFirst); |
| |
| EXTERN int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, |
| const char *pattern, int allowOverwrite); |
| |
| EXTERN int Tcl_ForgetImport(Tcl_Interp *interp, |
| Tcl_Namespace *nsPtr, const char *pattern); |
| |
| EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp); |
| |
| EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp); |
| |
| EXTERN Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, |
| const char *name, |
| Tcl_Namespace *contextNsPtr, int flags); |
| |
| EXTERN Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, const char *name, |
| Tcl_Namespace *contextNsPtr, int flags); |
| |
| EXTERN Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr); |
| |
| EXTERN void Tcl_GetCommandFullName(Tcl_Interp *interp, |
| Tcl_Command command, Tcl_Obj *objPtr); |
| |
| EXTERN int Tcl_FSEvalFileEx(Tcl_Interp *interp, |
| Tcl_Obj *fileName, const char *encodingName); |
| |
| EXTERN Tcl_ExitProc * Tcl_SetExitProc(TCL_NORETURN1 Tcl_ExitProc *proc); |
| |
| EXTERN void Tcl_LimitAddHandler(Tcl_Interp *interp, int type, |
| Tcl_LimitHandlerProc *handlerProc, |
| ClientData clientData, |
| Tcl_LimitHandlerDeleteProc *deleteProc); |
| |
| EXTERN void Tcl_LimitRemoveHandler(Tcl_Interp *interp, int type, |
| Tcl_LimitHandlerProc *handlerProc, |
| ClientData clientData); |
| |
| EXTERN int Tcl_LimitReady(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_LimitCheck(Tcl_Interp *interp); |
| |
| EXTERN int Tcl_LimitExceeded(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_LimitSetCommands(Tcl_Interp *interp, |
| int commandLimit); |
| |
| EXTERN void Tcl_LimitSetTime(Tcl_Interp *interp, |
| Tcl_Time *timeLimitPtr); |
| |
| EXTERN void Tcl_LimitSetGranularity(Tcl_Interp *interp, int type, |
| int granularity); |
| |
| EXTERN int Tcl_LimitTypeEnabled(Tcl_Interp *interp, int type); |
| |
| EXTERN int Tcl_LimitTypeExceeded(Tcl_Interp *interp, int type); |
| |
| EXTERN void Tcl_LimitTypeSet(Tcl_Interp *interp, int type); |
| |
| EXTERN void Tcl_LimitTypeReset(Tcl_Interp *interp, int type); |
| |
| EXTERN int Tcl_LimitGetCommands(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_LimitGetTime(Tcl_Interp *interp, |
| Tcl_Time *timeLimitPtr); |
| |
| EXTERN int Tcl_LimitGetGranularity(Tcl_Interp *interp, int type); |
| |
| EXTERN Tcl_InterpState Tcl_SaveInterpState(Tcl_Interp *interp, int status); |
| |
| EXTERN int Tcl_RestoreInterpState(Tcl_Interp *interp, |
| Tcl_InterpState state); |
| |
| EXTERN void Tcl_DiscardInterpState(Tcl_InterpState state); |
| |
| EXTERN int Tcl_SetReturnOptions(Tcl_Interp *interp, |
| Tcl_Obj *options); |
| |
| EXTERN Tcl_Obj * Tcl_GetReturnOptions(Tcl_Interp *interp, int result); |
| |
| EXTERN int Tcl_IsEnsemble(Tcl_Command token); |
| |
| EXTERN Tcl_Command Tcl_CreateEnsemble(Tcl_Interp *interp, |
| const char *name, |
| Tcl_Namespace *namespacePtr, int flags); |
| |
| EXTERN Tcl_Command Tcl_FindEnsemble(Tcl_Interp *interp, |
| Tcl_Obj *cmdNameObj, int flags); |
| |
| EXTERN int Tcl_SetEnsembleSubcommandList(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj *subcmdList); |
| |
| EXTERN int Tcl_SetEnsembleMappingDict(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj *mapDict); |
| |
| EXTERN int Tcl_SetEnsembleUnknownHandler(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj *unknownList); |
| |
| EXTERN int Tcl_SetEnsembleFlags(Tcl_Interp *interp, |
| Tcl_Command token, int flags); |
| |
| EXTERN int Tcl_GetEnsembleSubcommandList(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj **subcmdListPtr); |
| |
| EXTERN int Tcl_GetEnsembleMappingDict(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj **mapDictPtr); |
| |
| EXTERN int Tcl_GetEnsembleUnknownHandler(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj **unknownListPtr); |
| |
| EXTERN int Tcl_GetEnsembleFlags(Tcl_Interp *interp, |
| Tcl_Command token, int *flagsPtr); |
| |
| EXTERN int Tcl_GetEnsembleNamespace(Tcl_Interp *interp, |
| Tcl_Command token, |
| Tcl_Namespace **namespacePtrPtr); |
| |
| EXTERN void Tcl_SetTimeProc(Tcl_GetTimeProc *getProc, |
| Tcl_ScaleTimeProc *scaleProc, |
| ClientData clientData); |
| |
| EXTERN void Tcl_QueryTimeProc(Tcl_GetTimeProc **getProc, |
| Tcl_ScaleTimeProc **scaleProc, |
| ClientData *clientData); |
| |
| EXTERN Tcl_DriverThreadActionProc * Tcl_ChannelThreadActionProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN Tcl_Obj * Tcl_NewBignumObj(mp_int *value); |
| |
| EXTERN Tcl_Obj * Tcl_DbNewBignumObj(mp_int *value, const char *file, |
| int line); |
| |
| EXTERN void Tcl_SetBignumObj(Tcl_Obj *obj, mp_int *value); |
| |
| EXTERN int Tcl_GetBignumFromObj(Tcl_Interp *interp, |
| Tcl_Obj *obj, mp_int *value); |
| |
| EXTERN int Tcl_TakeBignumFromObj(Tcl_Interp *interp, |
| Tcl_Obj *obj, mp_int *value); |
| |
| EXTERN int Tcl_TruncateChannel(Tcl_Channel chan, |
| Tcl_WideInt length); |
| |
| EXTERN Tcl_DriverTruncateProc * Tcl_ChannelTruncateProc( |
| const Tcl_ChannelType *chanTypePtr); |
| |
| EXTERN void Tcl_SetChannelErrorInterp(Tcl_Interp *interp, |
| Tcl_Obj *msg); |
| |
| EXTERN void Tcl_GetChannelErrorInterp(Tcl_Interp *interp, |
| Tcl_Obj **msg); |
| |
| EXTERN void Tcl_SetChannelError(Tcl_Channel chan, Tcl_Obj *msg); |
| |
| EXTERN void Tcl_GetChannelError(Tcl_Channel chan, Tcl_Obj **msg); |
| |
| EXTERN int Tcl_InitBignumFromDouble(Tcl_Interp *interp, |
| double initval, mp_int *toInit); |
| |
| EXTERN Tcl_Obj * Tcl_GetNamespaceUnknownHandler(Tcl_Interp *interp, |
| Tcl_Namespace *nsPtr); |
| |
| EXTERN int Tcl_SetNamespaceUnknownHandler(Tcl_Interp *interp, |
| Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); |
| |
| EXTERN int Tcl_GetEncodingFromObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); |
| |
| EXTERN Tcl_Obj * Tcl_GetEncodingSearchPath(void); |
| |
| EXTERN int Tcl_SetEncodingSearchPath(Tcl_Obj *searchPath); |
| |
| EXTERN const char * Tcl_GetEncodingNameFromEnvironment( |
| Tcl_DString *bufPtr); |
| |
| EXTERN int Tcl_PkgRequireProc(Tcl_Interp *interp, |
| const char *name, int objc, |
| Tcl_Obj *const objv[], void *clientDataPtr); |
| |
| EXTERN void Tcl_AppendObjToErrorInfo(Tcl_Interp *interp, |
| Tcl_Obj *objPtr); |
| |
| EXTERN void Tcl_AppendLimitedToObj(Tcl_Obj *objPtr, |
| const char *bytes, int length, int limit, |
| const char *ellipsis); |
| |
| EXTERN Tcl_Obj * Tcl_Format(Tcl_Interp *interp, const char *format, |
| int objc, Tcl_Obj *const objv[]); |
| |
| EXTERN int Tcl_AppendFormatToObj(Tcl_Interp *interp, |
| Tcl_Obj *objPtr, const char *format, |
| int objc, Tcl_Obj *const objv[]); |
| |
| EXTERN Tcl_Obj * Tcl_ObjPrintf(const char *format, ...) TCL_FORMAT_PRINTF(1, 2); |
| |
| EXTERN void Tcl_AppendPrintfToObj(Tcl_Obj *objPtr, |
| const char *format, ...) TCL_FORMAT_PRINTF(2, 3); |
| |
| EXTERN int Tcl_CancelEval(Tcl_Interp *interp, |
| Tcl_Obj *resultObjPtr, ClientData clientData, |
| int flags); |
| |
| EXTERN int Tcl_Canceled(Tcl_Interp *interp, int flags); |
| |
| EXTERN int Tcl_CreatePipe(Tcl_Interp *interp, |
| Tcl_Channel *rchan, Tcl_Channel *wchan, |
| int flags); |
| |
| EXTERN Tcl_Command Tcl_NRCreateCommand(Tcl_Interp *interp, |
| const char *cmdName, Tcl_ObjCmdProc *proc, |
| Tcl_ObjCmdProc *nreProc, |
| ClientData clientData, |
| Tcl_CmdDeleteProc *deleteProc); |
| |
| EXTERN int Tcl_NREvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| int flags); |
| |
| EXTERN int Tcl_NREvalObjv(Tcl_Interp *interp, int objc, |
| Tcl_Obj *const objv[], int flags); |
| |
| EXTERN int Tcl_NRCmdSwap(Tcl_Interp *interp, Tcl_Command cmd, |
| int objc, Tcl_Obj *const objv[], int flags); |
| |
| EXTERN void Tcl_NRAddCallback(Tcl_Interp *interp, |
| Tcl_NRPostProc *postProcPtr, |
| ClientData data0, ClientData data1, |
| ClientData data2, ClientData data3); |
| |
| EXTERN int Tcl_NRCallObjProc(Tcl_Interp *interp, |
| Tcl_ObjCmdProc *objProc, |
| ClientData clientData, int objc, |
| Tcl_Obj *const objv[]); |
| |
| EXTERN unsigned Tcl_GetFSDeviceFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN unsigned Tcl_GetFSInodeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN unsigned Tcl_GetModeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN int Tcl_GetLinkCountFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN int Tcl_GetUserIdFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN int Tcl_GetGroupIdFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN int Tcl_GetDeviceTypeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN Tcl_WideInt Tcl_GetAccessTimeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN Tcl_WideInt Tcl_GetModificationTimeFromStat( |
| const Tcl_StatBuf *statPtr); |
| |
| EXTERN Tcl_WideInt Tcl_GetChangeTimeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN Tcl_WideUInt Tcl_GetSizeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN Tcl_WideUInt Tcl_GetBlocksFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN unsigned Tcl_GetBlockSizeFromStat(const Tcl_StatBuf *statPtr); |
| |
| EXTERN int Tcl_SetEnsembleParameterList(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj *paramList); |
| |
| EXTERN int Tcl_GetEnsembleParameterList(Tcl_Interp *interp, |
| Tcl_Command token, Tcl_Obj **paramListPtr); |
| |
| EXTERN int Tcl_ParseArgsObjv(Tcl_Interp *interp, |
| const Tcl_ArgvInfo *argTable, int *objcPtr, |
| Tcl_Obj *const *objv, Tcl_Obj ***remObjv); |
| |
| EXTERN int Tcl_GetErrorLine(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_SetErrorLine(Tcl_Interp *interp, int lineNum); |
| |
| EXTERN void Tcl_TransferResult(Tcl_Interp *sourceInterp, |
| int code, Tcl_Interp *targetInterp); |
| |
| EXTERN int Tcl_InterpActive(Tcl_Interp *interp); |
| |
| EXTERN void Tcl_BackgroundException(Tcl_Interp *interp, int code); |
| |
| EXTERN int Tcl_ZlibDeflate(Tcl_Interp *interp, int format, |
| Tcl_Obj *data, int level, |
| Tcl_Obj *gzipHeaderDictObj); |
| |
| EXTERN int Tcl_ZlibInflate(Tcl_Interp *interp, int format, |
| Tcl_Obj *data, int buffersize, |
| Tcl_Obj *gzipHeaderDictObj); |
| |
| EXTERN unsigned int Tcl_ZlibCRC32(unsigned int crc, |
| const unsigned char *buf, int len); |
| |
| EXTERN unsigned int Tcl_ZlibAdler32(unsigned int adler, |
| const unsigned char *buf, int len); |
| |
| EXTERN int Tcl_ZlibStreamInit(Tcl_Interp *interp, int mode, |
| int format, int level, Tcl_Obj *dictObj, |
| Tcl_ZlibStream *zshandle); |
| |
| EXTERN Tcl_Obj * Tcl_ZlibStreamGetCommandName(Tcl_ZlibStream zshandle); |
| |
| EXTERN int Tcl_ZlibStreamEof(Tcl_ZlibStream zshandle); |
| |
| EXTERN int Tcl_ZlibStreamChecksum(Tcl_ZlibStream zshandle); |
| |
| EXTERN int Tcl_ZlibStreamPut(Tcl_ZlibStream zshandle, |
| Tcl_Obj *data, int flush); |
| |
| EXTERN int Tcl_ZlibStreamGet(Tcl_ZlibStream zshandle, |
| Tcl_Obj *data, int count); |
| |
| EXTERN int Tcl_ZlibStreamClose(Tcl_ZlibStream zshandle); |
| |
| EXTERN int Tcl_ZlibStreamReset(Tcl_ZlibStream zshandle); |
| |
| EXTERN void Tcl_SetStartupScript(Tcl_Obj *path, |
| const char *encoding); |
| |
| EXTERN Tcl_Obj * Tcl_GetStartupScript(const char **encodingPtr); |
| |
| EXTERN int Tcl_CloseEx(Tcl_Interp *interp, Tcl_Channel chan, |
| int flags); |
| |
| EXTERN int Tcl_NRExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| Tcl_Obj *resultPtr); |
| |
| EXTERN int Tcl_NRSubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, |
| int flags); |
| |
| EXTERN int Tcl_LoadFile(Tcl_Interp *interp, Tcl_Obj *pathPtr, |
| const char *const symv[], int flags, |
| void *procPtrs, Tcl_LoadHandle *handlePtr); |
| |
| EXTERN void * Tcl_FindSymbol(Tcl_Interp *interp, |
| Tcl_LoadHandle handle, const char *symbol); |
| |
| EXTERN int Tcl_FSUnloadFile(Tcl_Interp *interp, |
| Tcl_LoadHandle handlePtr); |
| |
| EXTERN void Tcl_ZlibStreamSetCompressionDictionary( |
| Tcl_ZlibStream zhandle, |
| Tcl_Obj *compressionDictionaryObj); |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| EXTERN void TclUnusedStubEntry(void); |
|
|
| typedef struct { |
| const struct TclPlatStubs *tclPlatStubs; |
| const struct TclIntStubs *tclIntStubs; |
| const struct TclIntPlatStubs *tclIntPlatStubs; |
| } TclStubHooks; |
|
|
| typedef struct TclStubs { |
| int magic; |
| const TclStubHooks *hooks; |
|
|
| int (*tcl_PkgProvideEx) (Tcl_Interp *interp, const char *name, const char *version, const void *clientData); |
| CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); |
| TCL_NORETURN1 void (*tcl_Panic) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); |
| char * (*tcl_Alloc) (unsigned int size); |
| void (*tcl_Free) (char *ptr); |
| char * (*tcl_Realloc) (char *ptr, unsigned int size); |
| char * (*tcl_DbCkalloc) (unsigned int size, const char *file, int line); |
| void (*tcl_DbCkfree) (char *ptr, const char *file, int line); |
| char * (*tcl_DbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); |
| #endif |
| #if defined(_WIN32) |
| void (*reserved9)(void); |
| #endif |
| #ifdef MAC_OSX_TCL |
| void (*tcl_CreateFileHandler) (int fd, int mask, Tcl_FileProc *proc, ClientData clientData); |
| #endif |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| void (*tcl_DeleteFileHandler) (int fd); |
| #endif |
| #if defined(_WIN32) |
| void (*reserved10)(void); |
| #endif |
| #ifdef MAC_OSX_TCL |
| void (*tcl_DeleteFileHandler) (int fd); |
| #endif |
| void (*tcl_SetTimer) (const Tcl_Time *timePtr); |
| void (*tcl_Sleep) (int ms); |
| int (*tcl_WaitForEvent) (const Tcl_Time *timePtr); |
| int (*tcl_AppendAllObjTypes) (Tcl_Interp *interp, Tcl_Obj *objPtr); |
| void (*tcl_AppendStringsToObj) (Tcl_Obj *objPtr, ...); |
| void (*tcl_AppendToObj) (Tcl_Obj *objPtr, const char *bytes, int length); |
| Tcl_Obj * (*tcl_ConcatObj) (int objc, Tcl_Obj *const objv[]); |
| int (*tcl_ConvertToType) (Tcl_Interp *interp, Tcl_Obj *objPtr, const Tcl_ObjType *typePtr); |
| void (*tcl_DbDecrRefCount) (Tcl_Obj *objPtr, const char *file, int line); |
| void (*tcl_DbIncrRefCount) (Tcl_Obj *objPtr, const char *file, int line); |
| int (*tcl_DbIsShared) (Tcl_Obj *objPtr, const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewBooleanObj) (int intValue, const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewByteArrayObj) (const unsigned char *bytes, int length, const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewDoubleObj) (double doubleValue, const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewListObj) (int objc, Tcl_Obj *const *objv, const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewLongObj) (long longValue, const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewObj) (const char *file, int line); |
| Tcl_Obj * (*tcl_DbNewStringObj) (const char *bytes, int length, const char *file, int line); |
| Tcl_Obj * (*tcl_DuplicateObj) (Tcl_Obj *objPtr); |
| void (*tclFreeObj) (Tcl_Obj *objPtr); |
| int (*tcl_GetBoolean) (Tcl_Interp *interp, const char *src, int *intPtr); |
| int (*tcl_GetBooleanFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); |
| unsigned char * (*tcl_GetByteArrayFromObj) (Tcl_Obj *objPtr, int *numBytesPtr); |
| int (*tcl_GetDouble) (Tcl_Interp *interp, const char *src, double *doublePtr); |
| int (*tcl_GetDoubleFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *doublePtr); |
| int (*tcl_GetIndexFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, CONST84 char *const *tablePtr, const char *msg, int flags, int *indexPtr); |
| int (*tcl_GetInt) (Tcl_Interp *interp, const char *src, int *intPtr); |
| int (*tcl_GetIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr); |
| int (*tcl_GetLongFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr); |
| CONST86 Tcl_ObjType * (*tcl_GetObjType) (const char *typeName); |
| char * (*tcl_GetStringFromObj) (Tcl_Obj *objPtr, int *lengthPtr); |
| void (*tcl_InvalidateStringRep) (Tcl_Obj *objPtr); |
| int (*tcl_ListObjAppendList) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *elemListPtr); |
| int (*tcl_ListObjAppendElement) (Tcl_Interp *interp, Tcl_Obj *listPtr, Tcl_Obj *objPtr); |
| int (*tcl_ListObjGetElements) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *objcPtr, Tcl_Obj ***objvPtr); |
| int (*tcl_ListObjIndex) (Tcl_Interp *interp, Tcl_Obj *listPtr, int index, Tcl_Obj **objPtrPtr); |
| int (*tcl_ListObjLength) (Tcl_Interp *interp, Tcl_Obj *listPtr, int *lengthPtr); |
| int (*tcl_ListObjReplace) (Tcl_Interp *interp, Tcl_Obj *listPtr, int first, int count, int objc, Tcl_Obj *const objv[]); |
| Tcl_Obj * (*tcl_NewBooleanObj) (int intValue); |
| Tcl_Obj * (*tcl_NewByteArrayObj) (const unsigned char *bytes, int numBytes); |
| Tcl_Obj * (*tcl_NewDoubleObj) (double doubleValue); |
| Tcl_Obj * (*tcl_NewIntObj) (int intValue); |
| Tcl_Obj * (*tcl_NewListObj) (int objc, Tcl_Obj *const objv[]); |
| Tcl_Obj * (*tcl_NewLongObj) (long longValue); |
| Tcl_Obj * (*tcl_NewObj) (void); |
| Tcl_Obj * (*tcl_NewStringObj) (const char *bytes, int length); |
| void (*tcl_SetBooleanObj) (Tcl_Obj *objPtr, int intValue); |
| unsigned char * (*tcl_SetByteArrayLength) (Tcl_Obj *objPtr, int numBytes); |
| void (*tcl_SetByteArrayObj) (Tcl_Obj *objPtr, const unsigned char *bytes, int numBytes); |
| void (*tcl_SetDoubleObj) (Tcl_Obj *objPtr, double doubleValue); |
| void (*tcl_SetIntObj) (Tcl_Obj *objPtr, int intValue); |
| void (*tcl_SetListObj) (Tcl_Obj *objPtr, int objc, Tcl_Obj *const objv[]); |
| void (*tcl_SetLongObj) (Tcl_Obj *objPtr, long longValue); |
| void (*tcl_SetObjLength) (Tcl_Obj *objPtr, int length); |
| void (*tcl_SetStringObj) (Tcl_Obj *objPtr, const char *bytes, int length); |
| void (*tcl_AddErrorInfo) (Tcl_Interp *interp, const char *message); |
| void (*tcl_AddObjErrorInfo) (Tcl_Interp *interp, const char *message, int length); |
| void (*tcl_AllowExceptions) (Tcl_Interp *interp); |
| void (*tcl_AppendElement) (Tcl_Interp *interp, const char *element); |
| void (*tcl_AppendResult) (Tcl_Interp *interp, ...); |
| Tcl_AsyncHandler (*tcl_AsyncCreate) (Tcl_AsyncProc *proc, ClientData clientData); |
| void (*tcl_AsyncDelete) (Tcl_AsyncHandler async); |
| int (*tcl_AsyncInvoke) (Tcl_Interp *interp, int code); |
| void (*tcl_AsyncMark) (Tcl_AsyncHandler async); |
| int (*tcl_AsyncReady) (void); |
| void (*tcl_BackgroundError) (Tcl_Interp *interp); |
| char (*tcl_Backslash) (const char *src, int *readPtr); |
| int (*tcl_BadChannelOption) (Tcl_Interp *interp, const char *optionName, const char *optionList); |
| void (*tcl_CallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); |
| void (*tcl_CancelIdleCall) (Tcl_IdleProc *idleProc, ClientData clientData); |
| int (*tcl_Close) (Tcl_Interp *interp, Tcl_Channel chan); |
| int (*tcl_CommandComplete) (const char *cmd); |
| char * (*tcl_Concat) (int argc, CONST84 char *const *argv); |
| int (*tcl_ConvertElement) (const char *src, char *dst, int flags); |
| int (*tcl_ConvertCountedElement) (const char *src, int length, char *dst, int flags); |
| int (*tcl_CreateAlias) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int argc, CONST84 char *const *argv); |
| int (*tcl_CreateAliasObj) (Tcl_Interp *childInterp, const char *childCmd, Tcl_Interp *target, const char *targetCmd, int objc, Tcl_Obj *const objv[]); |
| Tcl_Channel (*tcl_CreateChannel) (const Tcl_ChannelType *typePtr, const char *chanName, ClientData instanceData, int mask); |
| void (*tcl_CreateChannelHandler) (Tcl_Channel chan, int mask, Tcl_ChannelProc *proc, ClientData clientData); |
| void (*tcl_CreateCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); |
| Tcl_Command (*tcl_CreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); |
| void (*tcl_CreateEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); |
| void (*tcl_CreateExitHandler) (Tcl_ExitProc *proc, ClientData clientData); |
| Tcl_Interp * (*tcl_CreateInterp) (void); |
| void (*tcl_CreateMathFunc) (Tcl_Interp *interp, const char *name, int numArgs, Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData); |
| Tcl_Command (*tcl_CreateObjCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); |
| Tcl_Interp * (*tcl_CreateSlave) (Tcl_Interp *interp, const char *name, int isSafe); |
| Tcl_TimerToken (*tcl_CreateTimerHandler) (int milliseconds, Tcl_TimerProc *proc, ClientData clientData); |
| Tcl_Trace (*tcl_CreateTrace) (Tcl_Interp *interp, int level, Tcl_CmdTraceProc *proc, ClientData clientData); |
| void (*tcl_DeleteAssocData) (Tcl_Interp *interp, const char *name); |
| void (*tcl_DeleteChannelHandler) (Tcl_Channel chan, Tcl_ChannelProc *proc, ClientData clientData); |
| void (*tcl_DeleteCloseHandler) (Tcl_Channel chan, Tcl_CloseProc *proc, ClientData clientData); |
| int (*tcl_DeleteCommand) (Tcl_Interp *interp, const char *cmdName); |
| int (*tcl_DeleteCommandFromToken) (Tcl_Interp *interp, Tcl_Command command); |
| void (*tcl_DeleteEvents) (Tcl_EventDeleteProc *proc, ClientData clientData); |
| void (*tcl_DeleteEventSource) (Tcl_EventSetupProc *setupProc, Tcl_EventCheckProc *checkProc, ClientData clientData); |
| void (*tcl_DeleteExitHandler) (Tcl_ExitProc *proc, ClientData clientData); |
| void (*tcl_DeleteHashEntry) (Tcl_HashEntry *entryPtr); |
| void (*tcl_DeleteHashTable) (Tcl_HashTable *tablePtr); |
| void (*tcl_DeleteInterp) (Tcl_Interp *interp); |
| void (*tcl_DetachPids) (int numPids, Tcl_Pid *pidPtr); |
| void (*tcl_DeleteTimerHandler) (Tcl_TimerToken token); |
| void (*tcl_DeleteTrace) (Tcl_Interp *interp, Tcl_Trace trace); |
| void (*tcl_DontCallWhenDeleted) (Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, ClientData clientData); |
| int (*tcl_DoOneEvent) (int flags); |
| void (*tcl_DoWhenIdle) (Tcl_IdleProc *proc, ClientData clientData); |
| char * (*tcl_DStringAppend) (Tcl_DString *dsPtr, const char *bytes, int length); |
| char * (*tcl_DStringAppendElement) (Tcl_DString *dsPtr, const char *element); |
| void (*tcl_DStringEndSublist) (Tcl_DString *dsPtr); |
| void (*tcl_DStringFree) (Tcl_DString *dsPtr); |
| void (*tcl_DStringGetResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); |
| void (*tcl_DStringInit) (Tcl_DString *dsPtr); |
| void (*tcl_DStringResult) (Tcl_Interp *interp, Tcl_DString *dsPtr); |
| void (*tcl_DStringSetLength) (Tcl_DString *dsPtr, int length); |
| void (*tcl_DStringStartSublist) (Tcl_DString *dsPtr); |
| int (*tcl_Eof) (Tcl_Channel chan); |
| CONST84_RETURN char * (*tcl_ErrnoId) (void); |
| CONST84_RETURN char * (*tcl_ErrnoMsg) (int err); |
| int (*tcl_Eval) (Tcl_Interp *interp, const char *script); |
| int (*tcl_EvalFile) (Tcl_Interp *interp, const char *fileName); |
| int (*tcl_EvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); |
| void (*tcl_EventuallyFree) (ClientData clientData, Tcl_FreeProc *freeProc); |
| TCL_NORETURN1 void (*tcl_Exit) (int status); |
| int (*tcl_ExposeCommand) (Tcl_Interp *interp, const char *hiddenCmdToken, const char *cmdName); |
| int (*tcl_ExprBoolean) (Tcl_Interp *interp, const char *expr, int *ptr); |
| int (*tcl_ExprBooleanObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr); |
| int (*tcl_ExprDouble) (Tcl_Interp *interp, const char *expr, double *ptr); |
| int (*tcl_ExprDoubleObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr); |
| int (*tcl_ExprLong) (Tcl_Interp *interp, const char *expr, long *ptr); |
| int (*tcl_ExprLongObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr); |
| int (*tcl_ExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj **resultPtrPtr); |
| int (*tcl_ExprString) (Tcl_Interp *interp, const char *expr); |
| void (*tcl_Finalize) (void); |
| void (*tcl_FindExecutable) (const char *argv0); |
| Tcl_HashEntry * (*tcl_FirstHashEntry) (Tcl_HashTable *tablePtr, Tcl_HashSearch *searchPtr); |
| int (*tcl_Flush) (Tcl_Channel chan); |
| void (*tcl_FreeResult) (Tcl_Interp *interp); |
| int (*tcl_GetAlias) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *argcPtr, CONST84 char ***argvPtr); |
| int (*tcl_GetAliasObj) (Tcl_Interp *interp, const char *childCmd, Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv); |
| ClientData (*tcl_GetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc **procPtr); |
| Tcl_Channel (*tcl_GetChannel) (Tcl_Interp *interp, const char *chanName, int *modePtr); |
| int (*tcl_GetChannelBufferSize) (Tcl_Channel chan); |
| int (*tcl_GetChannelHandle) (Tcl_Channel chan, int direction, ClientData *handlePtr); |
| ClientData (*tcl_GetChannelInstanceData) (Tcl_Channel chan); |
| int (*tcl_GetChannelMode) (Tcl_Channel chan); |
| CONST84_RETURN char * (*tcl_GetChannelName) (Tcl_Channel chan); |
| int (*tcl_GetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, Tcl_DString *dsPtr); |
| CONST86 Tcl_ChannelType * (*tcl_GetChannelType) (Tcl_Channel chan); |
| int (*tcl_GetCommandInfo) (Tcl_Interp *interp, const char *cmdName, Tcl_CmdInfo *infoPtr); |
| CONST84_RETURN char * (*tcl_GetCommandName) (Tcl_Interp *interp, Tcl_Command command); |
| int (*tcl_GetErrno) (void); |
| CONST84_RETURN char * (*tcl_GetHostName) (void); |
| int (*tcl_GetInterpPath) (Tcl_Interp *interp, Tcl_Interp *childInterp); |
| Tcl_Interp * (*tcl_GetMaster) (Tcl_Interp *interp); |
| const char * (*tcl_GetNameOfExecutable) (void); |
| Tcl_Obj * (*tcl_GetObjResult) (Tcl_Interp *interp); |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); |
| #endif |
| #if defined(_WIN32) |
| void (*reserved167)(void); |
| #endif |
| #ifdef MAC_OSX_TCL |
| int (*tcl_GetOpenFile) (Tcl_Interp *interp, const char *chanID, int forWriting, int checkUsage, ClientData *filePtr); |
| #endif |
| Tcl_PathType (*tcl_GetPathType) (const char *path); |
| int (*tcl_Gets) (Tcl_Channel chan, Tcl_DString *dsPtr); |
| int (*tcl_GetsObj) (Tcl_Channel chan, Tcl_Obj *objPtr); |
| int (*tcl_GetServiceMode) (void); |
| Tcl_Interp * (*tcl_GetSlave) (Tcl_Interp *interp, const char *name); |
| Tcl_Channel (*tcl_GetStdChannel) (int type); |
| CONST84_RETURN char * (*tcl_GetStringResult) (Tcl_Interp *interp); |
| CONST84_RETURN char * (*tcl_GetVar) (Tcl_Interp *interp, const char *varName, int flags); |
| CONST84_RETURN char * (*tcl_GetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); |
| int (*tcl_GlobalEval) (Tcl_Interp *interp, const char *command); |
| int (*tcl_GlobalEvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); |
| int (*tcl_HideCommand) (Tcl_Interp *interp, const char *cmdName, const char *hiddenCmdToken); |
| int (*tcl_Init) (Tcl_Interp *interp); |
| void (*tcl_InitHashTable) (Tcl_HashTable *tablePtr, int keyType); |
| int (*tcl_InputBlocked) (Tcl_Channel chan); |
| int (*tcl_InputBuffered) (Tcl_Channel chan); |
| int (*tcl_InterpDeleted) (Tcl_Interp *interp); |
| int (*tcl_IsSafe) (Tcl_Interp *interp); |
| char * (*tcl_JoinPath) (int argc, CONST84 char *const *argv, Tcl_DString *resultPtr); |
| int (*tcl_LinkVar) (Tcl_Interp *interp, const char *varName, char *addr, int type); |
| void (*reserved188)(void); |
| Tcl_Channel (*tcl_MakeFileChannel) (ClientData handle, int mode); |
| int (*tcl_MakeSafe) (Tcl_Interp *interp); |
| Tcl_Channel (*tcl_MakeTcpClientChannel) (ClientData tcpSocket); |
| char * (*tcl_Merge) (int argc, CONST84 char *const *argv); |
| Tcl_HashEntry * (*tcl_NextHashEntry) (Tcl_HashSearch *searchPtr); |
| void (*tcl_NotifyChannel) (Tcl_Channel channel, int mask); |
| Tcl_Obj * (*tcl_ObjGetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); |
| Tcl_Obj * (*tcl_ObjSetVar2) (Tcl_Interp *interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags); |
| Tcl_Channel (*tcl_OpenCommandChannel) (Tcl_Interp *interp, int argc, CONST84 char **argv, int flags); |
| Tcl_Channel (*tcl_OpenFileChannel) (Tcl_Interp *interp, const char *fileName, const char *modeString, int permissions); |
| Tcl_Channel (*tcl_OpenTcpClient) (Tcl_Interp *interp, int port, const char *address, const char *myaddr, int myport, int flags); |
| Tcl_Channel (*tcl_OpenTcpServer) (Tcl_Interp *interp, int port, const char *host, Tcl_TcpAcceptProc *acceptProc, ClientData callbackData); |
| void (*tcl_Preserve) (ClientData data); |
| void (*tcl_PrintDouble) (Tcl_Interp *interp, double value, char *dst); |
| int (*tcl_PutEnv) (const char *assignment); |
| CONST84_RETURN char * (*tcl_PosixError) (Tcl_Interp *interp); |
| void (*tcl_QueueEvent) (Tcl_Event *evPtr, Tcl_QueuePosition position); |
| int (*tcl_Read) (Tcl_Channel chan, char *bufPtr, int toRead); |
| void (*tcl_ReapDetachedProcs) (void); |
| int (*tcl_RecordAndEval) (Tcl_Interp *interp, const char *cmd, int flags); |
| int (*tcl_RecordAndEvalObj) (Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags); |
| void (*tcl_RegisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); |
| void (*tcl_RegisterObjType) (const Tcl_ObjType *typePtr); |
| Tcl_RegExp (*tcl_RegExpCompile) (Tcl_Interp *interp, const char *pattern); |
| int (*tcl_RegExpExec) (Tcl_Interp *interp, Tcl_RegExp regexp, const char *text, const char *start); |
| int (*tcl_RegExpMatch) (Tcl_Interp *interp, const char *text, const char *pattern); |
| void (*tcl_RegExpRange) (Tcl_RegExp regexp, int index, CONST84 char **startPtr, CONST84 char **endPtr); |
| void (*tcl_Release) (ClientData clientData); |
| void (*tcl_ResetResult) (Tcl_Interp *interp); |
| int (*tcl_ScanElement) (const char *src, int *flagPtr); |
| int (*tcl_ScanCountedElement) (const char *src, int length, int *flagPtr); |
| int (*tcl_SeekOld) (Tcl_Channel chan, int offset, int mode); |
| int (*tcl_ServiceAll) (void); |
| int (*tcl_ServiceEvent) (int flags); |
| void (*tcl_SetAssocData) (Tcl_Interp *interp, const char *name, Tcl_InterpDeleteProc *proc, ClientData clientData); |
| void (*tcl_SetChannelBufferSize) (Tcl_Channel chan, int sz); |
| int (*tcl_SetChannelOption) (Tcl_Interp *interp, Tcl_Channel chan, const char *optionName, const char *newValue); |
| int (*tcl_SetCommandInfo) (Tcl_Interp *interp, const char *cmdName, const Tcl_CmdInfo *infoPtr); |
| void (*tcl_SetErrno) (int err); |
| void (*tcl_SetErrorCode) (Tcl_Interp *interp, ...); |
| void (*tcl_SetMaxBlockTime) (const Tcl_Time *timePtr); |
| void (*tcl_SetPanicProc) (TCL_NORETURN1 Tcl_PanicProc *panicProc); |
| int (*tcl_SetRecursionLimit) (Tcl_Interp *interp, int depth); |
| void (*tcl_SetResult) (Tcl_Interp *interp, char *result, Tcl_FreeProc *freeProc); |
| int (*tcl_SetServiceMode) (int mode); |
| void (*tcl_SetObjErrorCode) (Tcl_Interp *interp, Tcl_Obj *errorObjPtr); |
| void (*tcl_SetObjResult) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr); |
| void (*tcl_SetStdChannel) (Tcl_Channel channel, int type); |
| CONST84_RETURN char * (*tcl_SetVar) (Tcl_Interp *interp, const char *varName, const char *newValue, int flags); |
| CONST84_RETURN char * (*tcl_SetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, const char *newValue, int flags); |
| CONST84_RETURN char * (*tcl_SignalId) (int sig); |
| CONST84_RETURN char * (*tcl_SignalMsg) (int sig); |
| void (*tcl_SourceRCFile) (Tcl_Interp *interp); |
| int (*tcl_SplitList) (Tcl_Interp *interp, const char *listStr, int *argcPtr, CONST84 char ***argvPtr); |
| void (*tcl_SplitPath) (const char *path, int *argcPtr, CONST84 char ***argvPtr); |
| void (*tcl_StaticPackage) (Tcl_Interp *interp, const char *prefix, Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc); |
| int (*tcl_StringMatch) (const char *str, const char *pattern); |
| int (*tcl_TellOld) (Tcl_Channel chan); |
| int (*tcl_TraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); |
| int (*tcl_TraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); |
| char * (*tcl_TranslateFileName) (Tcl_Interp *interp, const char *name, Tcl_DString *bufferPtr); |
| int (*tcl_Ungets) (Tcl_Channel chan, const char *str, int len, int atHead); |
| void (*tcl_UnlinkVar) (Tcl_Interp *interp, const char *varName); |
| int (*tcl_UnregisterChannel) (Tcl_Interp *interp, Tcl_Channel chan); |
| int (*tcl_UnsetVar) (Tcl_Interp *interp, const char *varName, int flags); |
| int (*tcl_UnsetVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); |
| void (*tcl_UntraceVar) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *proc, ClientData clientData); |
| void (*tcl_UntraceVar2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *proc, ClientData clientData); |
| void (*tcl_UpdateLinkedVar) (Tcl_Interp *interp, const char *varName); |
| int (*tcl_UpVar) (Tcl_Interp *interp, const char *frameName, const char *varName, const char *localName, int flags); |
| int (*tcl_UpVar2) (Tcl_Interp *interp, const char *frameName, const char *part1, const char *part2, const char *localName, int flags); |
| int (*tcl_VarEval) (Tcl_Interp *interp, ...); |
| ClientData (*tcl_VarTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); |
| ClientData (*tcl_VarTraceInfo2) (Tcl_Interp *interp, const char *part1, const char *part2, int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData); |
| int (*tcl_Write) (Tcl_Channel chan, const char *s, int slen); |
| void (*tcl_WrongNumArgs) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *message); |
| int (*tcl_DumpActiveMemory) (const char *fileName); |
| void (*tcl_ValidateAllMemory) (const char *file, int line); |
| void (*tcl_AppendResultVA) (Tcl_Interp *interp, va_list argList); |
| void (*tcl_AppendStringsToObjVA) (Tcl_Obj *objPtr, va_list argList); |
| char * (*tcl_HashStats) (Tcl_HashTable *tablePtr); |
| CONST84_RETURN char * (*tcl_ParseVar) (Tcl_Interp *interp, const char *start, CONST84 char **termPtr); |
| CONST84_RETURN char * (*tcl_PkgPresent) (Tcl_Interp *interp, const char *name, const char *version, int exact); |
| CONST84_RETURN char * (*tcl_PkgPresentEx) (Tcl_Interp *interp, const char *name, const char *version, int exact, void *clientDataPtr); |
| int (*tcl_PkgProvide) (Tcl_Interp *interp, const char *name, const char *version); |
| CONST84_RETURN char * (*tcl_PkgRequire) (Tcl_Interp *interp, const char *name, const char *version, int exact); |
| void (*tcl_SetErrorCodeVA) (Tcl_Interp *interp, va_list argList); |
| int (*tcl_VarEvalVA) (Tcl_Interp *interp, va_list argList); |
| Tcl_Pid (*tcl_WaitPid) (Tcl_Pid pid, int *statPtr, int options); |
| TCL_NORETURN1 void (*tcl_PanicVA) (const char *format, va_list argList); |
| void (*tcl_GetVersion) (int *major, int *minor, int *patchLevel, int *type); |
| void (*tcl_InitMemory) (Tcl_Interp *interp); |
| Tcl_Channel (*tcl_StackChannel) (Tcl_Interp *interp, const Tcl_ChannelType *typePtr, ClientData instanceData, int mask, Tcl_Channel prevChan); |
| int (*tcl_UnstackChannel) (Tcl_Interp *interp, Tcl_Channel chan); |
| Tcl_Channel (*tcl_GetStackedChannel) (Tcl_Channel chan); |
| void (*tcl_SetMainLoop) (Tcl_MainLoopProc *proc); |
| void (*reserved285)(void); |
| void (*tcl_AppendObjToObj) (Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr); |
| Tcl_Encoding (*tcl_CreateEncoding) (const Tcl_EncodingType *typePtr); |
| void (*tcl_CreateThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); |
| void (*tcl_DeleteThreadExitHandler) (Tcl_ExitProc *proc, ClientData clientData); |
| void (*tcl_DiscardResult) (Tcl_SavedResult *statePtr); |
| int (*tcl_EvalEx) (Tcl_Interp *interp, const char *script, int numBytes, int flags); |
| int (*tcl_EvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); |
| int (*tcl_EvalObjEx) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); |
| void (*tcl_ExitThread) (int status); |
| 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); |
| char * (*tcl_ExternalToUtfDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); |
| void (*tcl_FinalizeThread) (void); |
| void (*tcl_FinalizeNotifier) (ClientData clientData); |
| void (*tcl_FreeEncoding) (Tcl_Encoding encoding); |
| Tcl_ThreadId (*tcl_GetCurrentThread) (void); |
| Tcl_Encoding (*tcl_GetEncoding) (Tcl_Interp *interp, const char *name); |
| CONST84_RETURN char * (*tcl_GetEncodingName) (Tcl_Encoding encoding); |
| void (*tcl_GetEncodingNames) (Tcl_Interp *interp); |
| int (*tcl_GetIndexFromObjStruct) (Tcl_Interp *interp, Tcl_Obj *objPtr, const void *tablePtr, int offset, const char *msg, int flags, int *indexPtr); |
| void * (*tcl_GetThreadData) (Tcl_ThreadDataKey *keyPtr, int size); |
| Tcl_Obj * (*tcl_GetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, int flags); |
| ClientData (*tcl_InitNotifier) (void); |
| void (*tcl_MutexLock) (Tcl_Mutex *mutexPtr); |
| void (*tcl_MutexUnlock) (Tcl_Mutex *mutexPtr); |
| void (*tcl_ConditionNotify) (Tcl_Condition *condPtr); |
| void (*tcl_ConditionWait) (Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr, const Tcl_Time *timePtr); |
| int (*tcl_NumUtfChars) (const char *src, int length); |
| int (*tcl_ReadChars) (Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead, int appendFlag); |
| void (*tcl_RestoreResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); |
| void (*tcl_SaveResult) (Tcl_Interp *interp, Tcl_SavedResult *statePtr); |
| int (*tcl_SetSystemEncoding) (Tcl_Interp *interp, const char *name); |
| Tcl_Obj * (*tcl_SetVar2Ex) (Tcl_Interp *interp, const char *part1, const char *part2, Tcl_Obj *newValuePtr, int flags); |
| void (*tcl_ThreadAlert) (Tcl_ThreadId threadId); |
| void (*tcl_ThreadQueueEvent) (Tcl_ThreadId threadId, Tcl_Event *evPtr, Tcl_QueuePosition position); |
| Tcl_UniChar (*tcl_UniCharAtIndex) (const char *src, int index); |
| Tcl_UniChar (*tcl_UniCharToLower) (int ch); |
| Tcl_UniChar (*tcl_UniCharToTitle) (int ch); |
| Tcl_UniChar (*tcl_UniCharToUpper) (int ch); |
| int (*tcl_UniCharToUtf) (int ch, char *buf); |
| CONST84_RETURN char * (*tcl_UtfAtIndex) (const char *src, int index); |
| int (*tcl_UtfCharComplete) (const char *src, int length); |
| int (*tcl_UtfBackslash) (const char *src, int *readPtr, char *dst); |
| CONST84_RETURN char * (*tcl_UtfFindFirst) (const char *src, int ch); |
| CONST84_RETURN char * (*tcl_UtfFindLast) (const char *src, int ch); |
| CONST84_RETURN char * (*tcl_UtfNext) (const char *src); |
| CONST84_RETURN char * (*tcl_UtfPrev) (const char *src, const char *start); |
| 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); |
| char * (*tcl_UtfToExternalDString) (Tcl_Encoding encoding, const char *src, int srcLen, Tcl_DString *dsPtr); |
| int (*tcl_UtfToLower) (char *src); |
| int (*tcl_UtfToTitle) (char *src); |
| int (*tcl_UtfToUniChar) (const char *src, Tcl_UniChar *chPtr); |
| int (*tcl_UtfToUpper) (char *src); |
| int (*tcl_WriteChars) (Tcl_Channel chan, const char *src, int srcLen); |
| int (*tcl_WriteObj) (Tcl_Channel chan, Tcl_Obj *objPtr); |
| char * (*tcl_GetString) (Tcl_Obj *objPtr); |
| CONST84_RETURN char * (*tcl_GetDefaultEncodingDir) (void); |
| void (*tcl_SetDefaultEncodingDir) (const char *path); |
| void (*tcl_AlertNotifier) (ClientData clientData); |
| void (*tcl_ServiceModeHook) (int mode); |
| int (*tcl_UniCharIsAlnum) (int ch); |
| int (*tcl_UniCharIsAlpha) (int ch); |
| int (*tcl_UniCharIsDigit) (int ch); |
| int (*tcl_UniCharIsLower) (int ch); |
| int (*tcl_UniCharIsSpace) (int ch); |
| int (*tcl_UniCharIsUpper) (int ch); |
| int (*tcl_UniCharIsWordChar) (int ch); |
| int (*tcl_UniCharLen) (const Tcl_UniChar *uniStr); |
| int (*tcl_UniCharNcmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); |
| char * (*tcl_UniCharToUtfDString) (const Tcl_UniChar *uniStr, int uniLength, Tcl_DString *dsPtr); |
| Tcl_UniChar * (*tcl_UtfToUniCharDString) (const char *src, int length, Tcl_DString *dsPtr); |
| Tcl_RegExp (*tcl_GetRegExpFromObj) (Tcl_Interp *interp, Tcl_Obj *patObj, int flags); |
| Tcl_Obj * (*tcl_EvalTokens) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); |
| void (*tcl_FreeParse) (Tcl_Parse *parsePtr); |
| void (*tcl_LogCommandInfo) (Tcl_Interp *interp, const char *script, const char *command, int length); |
| int (*tcl_ParseBraces) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); |
| int (*tcl_ParseCommand) (Tcl_Interp *interp, const char *start, int numBytes, int nested, Tcl_Parse *parsePtr); |
| int (*tcl_ParseExpr) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr); |
| int (*tcl_ParseQuotedString) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append, CONST84 char **termPtr); |
| int (*tcl_ParseVarName) (Tcl_Interp *interp, const char *start, int numBytes, Tcl_Parse *parsePtr, int append); |
| char * (*tcl_GetCwd) (Tcl_Interp *interp, Tcl_DString *cwdPtr); |
| int (*tcl_Chdir) (const char *dirName); |
| int (*tcl_Access) (const char *path, int mode); |
| int (*tcl_Stat) (const char *path, struct stat *bufPtr); |
| int (*tcl_UtfNcmp) (const char *s1, const char *s2, unsigned long n); |
| int (*tcl_UtfNcasecmp) (const char *s1, const char *s2, unsigned long n); |
| int (*tcl_StringCaseMatch) (const char *str, const char *pattern, int nocase); |
| int (*tcl_UniCharIsControl) (int ch); |
| int (*tcl_UniCharIsGraph) (int ch); |
| int (*tcl_UniCharIsPrint) (int ch); |
| int (*tcl_UniCharIsPunct) (int ch); |
| int (*tcl_RegExpExecObj) (Tcl_Interp *interp, Tcl_RegExp regexp, Tcl_Obj *textObj, int offset, int nmatches, int flags); |
| void (*tcl_RegExpGetInfo) (Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr); |
| Tcl_Obj * (*tcl_NewUnicodeObj) (const Tcl_UniChar *unicode, int numChars); |
| void (*tcl_SetUnicodeObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int numChars); |
| int (*tcl_GetCharLength) (Tcl_Obj *objPtr); |
| Tcl_UniChar (*tcl_GetUniChar) (Tcl_Obj *objPtr, int index); |
| Tcl_UniChar * (*tcl_GetUnicode) (Tcl_Obj *objPtr); |
| Tcl_Obj * (*tcl_GetRange) (Tcl_Obj *objPtr, int first, int last); |
| void (*tcl_AppendUnicodeToObj) (Tcl_Obj *objPtr, const Tcl_UniChar *unicode, int length); |
| int (*tcl_RegExpMatchObj) (Tcl_Interp *interp, Tcl_Obj *textObj, Tcl_Obj *patternObj); |
| void (*tcl_SetNotifier) (Tcl_NotifierProcs *notifierProcPtr); |
| Tcl_Mutex * (*tcl_GetAllocMutex) (void); |
| int (*tcl_GetChannelNames) (Tcl_Interp *interp); |
| int (*tcl_GetChannelNamesEx) (Tcl_Interp *interp, const char *pattern); |
| int (*tcl_ProcObjCmd) (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); |
| void (*tcl_ConditionFinalize) (Tcl_Condition *condPtr); |
| void (*tcl_MutexFinalize) (Tcl_Mutex *mutex); |
| int (*tcl_CreateThread) (Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc *proc, ClientData clientData, int stackSize, int flags); |
| int (*tcl_ReadRaw) (Tcl_Channel chan, char *dst, int bytesToRead); |
| int (*tcl_WriteRaw) (Tcl_Channel chan, const char *src, int srcLen); |
| Tcl_Channel (*tcl_GetTopChannel) (Tcl_Channel chan); |
| int (*tcl_ChannelBuffered) (Tcl_Channel chan); |
| CONST84_RETURN char * (*tcl_ChannelName) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_ChannelTypeVersion (*tcl_ChannelVersion) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverBlockModeProc * (*tcl_ChannelBlockModeProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverCloseProc * (*tcl_ChannelCloseProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverClose2Proc * (*tcl_ChannelClose2Proc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverInputProc * (*tcl_ChannelInputProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverOutputProc * (*tcl_ChannelOutputProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverSeekProc * (*tcl_ChannelSeekProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverSetOptionProc * (*tcl_ChannelSetOptionProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverGetOptionProc * (*tcl_ChannelGetOptionProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverWatchProc * (*tcl_ChannelWatchProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverGetHandleProc * (*tcl_ChannelGetHandleProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverFlushProc * (*tcl_ChannelFlushProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_DriverHandlerProc * (*tcl_ChannelHandlerProc) (const Tcl_ChannelType *chanTypePtr); |
| int (*tcl_JoinThread) (Tcl_ThreadId threadId, int *result); |
| int (*tcl_IsChannelShared) (Tcl_Channel channel); |
| int (*tcl_IsChannelRegistered) (Tcl_Interp *interp, Tcl_Channel channel); |
| void (*tcl_CutChannel) (Tcl_Channel channel); |
| void (*tcl_SpliceChannel) (Tcl_Channel channel); |
| void (*tcl_ClearChannelHandlers) (Tcl_Channel channel); |
| int (*tcl_IsChannelExisting) (const char *channelName); |
| int (*tcl_UniCharNcasecmp) (const Tcl_UniChar *ucs, const Tcl_UniChar *uct, unsigned long numChars); |
| int (*tcl_UniCharCaseMatch) (const Tcl_UniChar *uniStr, const Tcl_UniChar *uniPattern, int nocase); |
| Tcl_HashEntry * (*tcl_FindHashEntry) (Tcl_HashTable *tablePtr, const void *key); |
| Tcl_HashEntry * (*tcl_CreateHashEntry) (Tcl_HashTable *tablePtr, const void *key, int *newPtr); |
| void (*tcl_InitCustomHashTable) (Tcl_HashTable *tablePtr, int keyType, const Tcl_HashKeyType *typePtr); |
| void (*tcl_InitObjHashTable) (Tcl_HashTable *tablePtr); |
| ClientData (*tcl_CommandTraceInfo) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *procPtr, ClientData prevClientData); |
| int (*tcl_TraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); |
| void (*tcl_UntraceCommand) (Tcl_Interp *interp, const char *varName, int flags, Tcl_CommandTraceProc *proc, ClientData clientData); |
| char * (*tcl_AttemptAlloc) (unsigned int size); |
| char * (*tcl_AttemptDbCkalloc) (unsigned int size, const char *file, int line); |
| char * (*tcl_AttemptRealloc) (char *ptr, unsigned int size); |
| char * (*tcl_AttemptDbCkrealloc) (char *ptr, unsigned int size, const char *file, int line); |
| int (*tcl_AttemptSetObjLength) (Tcl_Obj *objPtr, int length); |
| Tcl_ThreadId (*tcl_GetChannelThread) (Tcl_Channel channel); |
| Tcl_UniChar * (*tcl_GetUnicodeFromObj) (Tcl_Obj *objPtr, int *lengthPtr); |
| int (*tcl_GetMathFuncInfo) (Tcl_Interp *interp, const char *name, int *numArgsPtr, Tcl_ValueType **argTypesPtr, Tcl_MathProc **procPtr, ClientData *clientDataPtr); |
| Tcl_Obj * (*tcl_ListMathFuncs) (Tcl_Interp *interp, const char *pattern); |
| Tcl_Obj * (*tcl_SubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); |
| int (*tcl_DetachChannel) (Tcl_Interp *interp, Tcl_Channel channel); |
| int (*tcl_IsStandardChannel) (Tcl_Channel channel); |
| int (*tcl_FSCopyFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); |
| int (*tcl_FSCopyDirectory) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr); |
| int (*tcl_FSCreateDirectory) (Tcl_Obj *pathPtr); |
| int (*tcl_FSDeleteFile) (Tcl_Obj *pathPtr); |
| 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); |
| int (*tcl_FSMatchInDirectory) (Tcl_Interp *interp, Tcl_Obj *result, Tcl_Obj *pathPtr, const char *pattern, Tcl_GlobTypeData *types); |
| Tcl_Obj * (*tcl_FSLink) (Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction); |
| int (*tcl_FSRemoveDirectory) (Tcl_Obj *pathPtr, int recursive, Tcl_Obj **errorPtr); |
| int (*tcl_FSRenameFile) (Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr); |
| int (*tcl_FSLstat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); |
| int (*tcl_FSUtime) (Tcl_Obj *pathPtr, struct utimbuf *tval); |
| int (*tcl_FSFileAttrsGet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); |
| int (*tcl_FSFileAttrsSet) (Tcl_Interp *interp, int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr); |
| const char *CONST86 * (*tcl_FSFileAttrStrings) (Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef); |
| int (*tcl_FSStat) (Tcl_Obj *pathPtr, Tcl_StatBuf *buf); |
| int (*tcl_FSAccess) (Tcl_Obj *pathPtr, int mode); |
| Tcl_Channel (*tcl_FSOpenFileChannel) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *modeString, int permissions); |
| Tcl_Obj * (*tcl_FSGetCwd) (Tcl_Interp *interp); |
| int (*tcl_FSChdir) (Tcl_Obj *pathPtr); |
| int (*tcl_FSConvertToPathType) (Tcl_Interp *interp, Tcl_Obj *pathPtr); |
| Tcl_Obj * (*tcl_FSJoinPath) (Tcl_Obj *listObj, int elements); |
| Tcl_Obj * (*tcl_FSSplitPath) (Tcl_Obj *pathPtr, int *lenPtr); |
| int (*tcl_FSEqualPaths) (Tcl_Obj *firstPtr, Tcl_Obj *secondPtr); |
| Tcl_Obj * (*tcl_FSGetNormalizedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); |
| Tcl_Obj * (*tcl_FSJoinToPath) (Tcl_Obj *pathPtr, int objc, Tcl_Obj *const objv[]); |
| ClientData (*tcl_FSGetInternalRep) (Tcl_Obj *pathPtr, const Tcl_Filesystem *fsPtr); |
| Tcl_Obj * (*tcl_FSGetTranslatedPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); |
| int (*tcl_FSEvalFile) (Tcl_Interp *interp, Tcl_Obj *fileName); |
| Tcl_Obj * (*tcl_FSNewNativePath) (const Tcl_Filesystem *fromFilesystem, ClientData clientData); |
| const void * (*tcl_FSGetNativePath) (Tcl_Obj *pathPtr); |
| Tcl_Obj * (*tcl_FSFileSystemInfo) (Tcl_Obj *pathPtr); |
| Tcl_Obj * (*tcl_FSPathSeparator) (Tcl_Obj *pathPtr); |
| Tcl_Obj * (*tcl_FSListVolumes) (void); |
| int (*tcl_FSRegister) (ClientData clientData, const Tcl_Filesystem *fsPtr); |
| int (*tcl_FSUnregister) (const Tcl_Filesystem *fsPtr); |
| ClientData (*tcl_FSData) (const Tcl_Filesystem *fsPtr); |
| const char * (*tcl_FSGetTranslatedStringPath) (Tcl_Interp *interp, Tcl_Obj *pathPtr); |
| CONST86 Tcl_Filesystem * (*tcl_FSGetFileSystemForPath) (Tcl_Obj *pathPtr); |
| Tcl_PathType (*tcl_FSGetPathType) (Tcl_Obj *pathPtr); |
| int (*tcl_OutputBuffered) (Tcl_Channel chan); |
| void (*tcl_FSMountsChanged) (const Tcl_Filesystem *fsPtr); |
| int (*tcl_EvalTokensStandard) (Tcl_Interp *interp, Tcl_Token *tokenPtr, int count); |
| void (*tcl_GetTime) (Tcl_Time *timeBuf); |
| Tcl_Trace (*tcl_CreateObjTrace) (Tcl_Interp *interp, int level, int flags, Tcl_CmdObjTraceProc *objProc, ClientData clientData, Tcl_CmdObjTraceDeleteProc *delProc); |
| int (*tcl_GetCommandInfoFromToken) (Tcl_Command token, Tcl_CmdInfo *infoPtr); |
| int (*tcl_SetCommandInfoFromToken) (Tcl_Command token, const Tcl_CmdInfo *infoPtr); |
| Tcl_Obj * (*tcl_DbNewWideIntObj) (Tcl_WideInt wideValue, const char *file, int line); |
| int (*tcl_GetWideIntFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_WideInt *widePtr); |
| Tcl_Obj * (*tcl_NewWideIntObj) (Tcl_WideInt wideValue); |
| void (*tcl_SetWideIntObj) (Tcl_Obj *objPtr, Tcl_WideInt wideValue); |
| Tcl_StatBuf * (*tcl_AllocStatBuf) (void); |
| Tcl_WideInt (*tcl_Seek) (Tcl_Channel chan, Tcl_WideInt offset, int mode); |
| Tcl_WideInt (*tcl_Tell) (Tcl_Channel chan); |
| Tcl_DriverWideSeekProc * (*tcl_ChannelWideSeekProc) (const Tcl_ChannelType *chanTypePtr); |
| int (*tcl_DictObjPut) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj *valuePtr); |
| int (*tcl_DictObjGet) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr, Tcl_Obj **valuePtrPtr); |
| int (*tcl_DictObjRemove) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_Obj *keyPtr); |
| int (*tcl_DictObjSize) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int *sizePtr); |
| int (*tcl_DictObjFirst) (Tcl_Interp *interp, Tcl_Obj *dictPtr, Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); |
| void (*tcl_DictObjNext) (Tcl_DictSearch *searchPtr, Tcl_Obj **keyPtrPtr, Tcl_Obj **valuePtrPtr, int *donePtr); |
| void (*tcl_DictObjDone) (Tcl_DictSearch *searchPtr); |
| int (*tcl_DictObjPutKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv, Tcl_Obj *valuePtr); |
| int (*tcl_DictObjRemoveKeyList) (Tcl_Interp *interp, Tcl_Obj *dictPtr, int keyc, Tcl_Obj *const *keyv); |
| Tcl_Obj * (*tcl_NewDictObj) (void); |
| Tcl_Obj * (*tcl_DbNewDictObj) (const char *file, int line); |
| void (*tcl_RegisterConfig) (Tcl_Interp *interp, const char *pkgName, const Tcl_Config *configuration, const char *valEncoding); |
| Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp *interp, const char *name, ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc); |
| void (*tcl_DeleteNamespace) (Tcl_Namespace *nsPtr); |
| int (*tcl_AppendExportList) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *objPtr); |
| int (*tcl_Export) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int resetListFirst); |
| int (*tcl_Import) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern, int allowOverwrite); |
| int (*tcl_ForgetImport) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *pattern); |
| Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp *interp); |
| Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp *interp); |
| Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); |
| Tcl_Command (*tcl_FindCommand) (Tcl_Interp *interp, const char *name, Tcl_Namespace *contextNsPtr, int flags); |
| Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr); |
| void (*tcl_GetCommandFullName) (Tcl_Interp *interp, Tcl_Command command, Tcl_Obj *objPtr); |
| int (*tcl_FSEvalFileEx) (Tcl_Interp *interp, Tcl_Obj *fileName, const char *encodingName); |
| Tcl_ExitProc * (*tcl_SetExitProc) (TCL_NORETURN1 Tcl_ExitProc *proc); |
| void (*tcl_LimitAddHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData, Tcl_LimitHandlerDeleteProc *deleteProc); |
| void (*tcl_LimitRemoveHandler) (Tcl_Interp *interp, int type, Tcl_LimitHandlerProc *handlerProc, ClientData clientData); |
| int (*tcl_LimitReady) (Tcl_Interp *interp); |
| int (*tcl_LimitCheck) (Tcl_Interp *interp); |
| int (*tcl_LimitExceeded) (Tcl_Interp *interp); |
| void (*tcl_LimitSetCommands) (Tcl_Interp *interp, int commandLimit); |
| void (*tcl_LimitSetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); |
| void (*tcl_LimitSetGranularity) (Tcl_Interp *interp, int type, int granularity); |
| int (*tcl_LimitTypeEnabled) (Tcl_Interp *interp, int type); |
| int (*tcl_LimitTypeExceeded) (Tcl_Interp *interp, int type); |
| void (*tcl_LimitTypeSet) (Tcl_Interp *interp, int type); |
| void (*tcl_LimitTypeReset) (Tcl_Interp *interp, int type); |
| int (*tcl_LimitGetCommands) (Tcl_Interp *interp); |
| void (*tcl_LimitGetTime) (Tcl_Interp *interp, Tcl_Time *timeLimitPtr); |
| int (*tcl_LimitGetGranularity) (Tcl_Interp *interp, int type); |
| Tcl_InterpState (*tcl_SaveInterpState) (Tcl_Interp *interp, int status); |
| int (*tcl_RestoreInterpState) (Tcl_Interp *interp, Tcl_InterpState state); |
| void (*tcl_DiscardInterpState) (Tcl_InterpState state); |
| int (*tcl_SetReturnOptions) (Tcl_Interp *interp, Tcl_Obj *options); |
| Tcl_Obj * (*tcl_GetReturnOptions) (Tcl_Interp *interp, int result); |
| int (*tcl_IsEnsemble) (Tcl_Command token); |
| Tcl_Command (*tcl_CreateEnsemble) (Tcl_Interp *interp, const char *name, Tcl_Namespace *namespacePtr, int flags); |
| Tcl_Command (*tcl_FindEnsemble) (Tcl_Interp *interp, Tcl_Obj *cmdNameObj, int flags); |
| int (*tcl_SetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *subcmdList); |
| int (*tcl_SetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *mapDict); |
| int (*tcl_SetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *unknownList); |
| int (*tcl_SetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int flags); |
| int (*tcl_GetEnsembleSubcommandList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **subcmdListPtr); |
| int (*tcl_GetEnsembleMappingDict) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **mapDictPtr); |
| int (*tcl_GetEnsembleUnknownHandler) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **unknownListPtr); |
| int (*tcl_GetEnsembleFlags) (Tcl_Interp *interp, Tcl_Command token, int *flagsPtr); |
| int (*tcl_GetEnsembleNamespace) (Tcl_Interp *interp, Tcl_Command token, Tcl_Namespace **namespacePtrPtr); |
| void (*tcl_SetTimeProc) (Tcl_GetTimeProc *getProc, Tcl_ScaleTimeProc *scaleProc, ClientData clientData); |
| void (*tcl_QueryTimeProc) (Tcl_GetTimeProc **getProc, Tcl_ScaleTimeProc **scaleProc, ClientData *clientData); |
| Tcl_DriverThreadActionProc * (*tcl_ChannelThreadActionProc) (const Tcl_ChannelType *chanTypePtr); |
| Tcl_Obj * (*tcl_NewBignumObj) (mp_int *value); |
| Tcl_Obj * (*tcl_DbNewBignumObj) (mp_int *value, const char *file, int line); |
| void (*tcl_SetBignumObj) (Tcl_Obj *obj, mp_int *value); |
| int (*tcl_GetBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); |
| int (*tcl_TakeBignumFromObj) (Tcl_Interp *interp, Tcl_Obj *obj, mp_int *value); |
| int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); |
| Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (const Tcl_ChannelType *chanTypePtr); |
| void (*tcl_SetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj *msg); |
| void (*tcl_GetChannelErrorInterp) (Tcl_Interp *interp, Tcl_Obj **msg); |
| void (*tcl_SetChannelError) (Tcl_Channel chan, Tcl_Obj *msg); |
| void (*tcl_GetChannelError) (Tcl_Channel chan, Tcl_Obj **msg); |
| int (*tcl_InitBignumFromDouble) (Tcl_Interp *interp, double initval, mp_int *toInit); |
| Tcl_Obj * (*tcl_GetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr); |
| int (*tcl_SetNamespaceUnknownHandler) (Tcl_Interp *interp, Tcl_Namespace *nsPtr, Tcl_Obj *handlerPtr); |
| int (*tcl_GetEncodingFromObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Encoding *encodingPtr); |
| Tcl_Obj * (*tcl_GetEncodingSearchPath) (void); |
| int (*tcl_SetEncodingSearchPath) (Tcl_Obj *searchPath); |
| const char * (*tcl_GetEncodingNameFromEnvironment) (Tcl_DString *bufPtr); |
| int (*tcl_PkgRequireProc) (Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], void *clientDataPtr); |
| void (*tcl_AppendObjToErrorInfo) (Tcl_Interp *interp, Tcl_Obj *objPtr); |
| void (*tcl_AppendLimitedToObj) (Tcl_Obj *objPtr, const char *bytes, int length, int limit, const char *ellipsis); |
| Tcl_Obj * (*tcl_Format) (Tcl_Interp *interp, const char *format, int objc, Tcl_Obj *const objv[]); |
| int (*tcl_AppendFormatToObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, const char *format, int objc, Tcl_Obj *const objv[]); |
| Tcl_Obj * (*tcl_ObjPrintf) (const char *format, ...) TCL_FORMAT_PRINTF(1, 2); |
| void (*tcl_AppendPrintfToObj) (Tcl_Obj *objPtr, const char *format, ...) TCL_FORMAT_PRINTF(2, 3); |
| int (*tcl_CancelEval) (Tcl_Interp *interp, Tcl_Obj *resultObjPtr, ClientData clientData, int flags); |
| int (*tcl_Canceled) (Tcl_Interp *interp, int flags); |
| int (*tcl_CreatePipe) (Tcl_Interp *interp, Tcl_Channel *rchan, Tcl_Channel *wchan, int flags); |
| Tcl_Command (*tcl_NRCreateCommand) (Tcl_Interp *interp, const char *cmdName, Tcl_ObjCmdProc *proc, Tcl_ObjCmdProc *nreProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc); |
| int (*tcl_NREvalObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); |
| int (*tcl_NREvalObjv) (Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], int flags); |
| int (*tcl_NRCmdSwap) (Tcl_Interp *interp, Tcl_Command cmd, int objc, Tcl_Obj *const objv[], int flags); |
| void (*tcl_NRAddCallback) (Tcl_Interp *interp, Tcl_NRPostProc *postProcPtr, ClientData data0, ClientData data1, ClientData data2, ClientData data3); |
| int (*tcl_NRCallObjProc) (Tcl_Interp *interp, Tcl_ObjCmdProc *objProc, ClientData clientData, int objc, Tcl_Obj *const objv[]); |
| unsigned (*tcl_GetFSDeviceFromStat) (const Tcl_StatBuf *statPtr); |
| unsigned (*tcl_GetFSInodeFromStat) (const Tcl_StatBuf *statPtr); |
| unsigned (*tcl_GetModeFromStat) (const Tcl_StatBuf *statPtr); |
| int (*tcl_GetLinkCountFromStat) (const Tcl_StatBuf *statPtr); |
| int (*tcl_GetUserIdFromStat) (const Tcl_StatBuf *statPtr); |
| int (*tcl_GetGroupIdFromStat) (const Tcl_StatBuf *statPtr); |
| int (*tcl_GetDeviceTypeFromStat) (const Tcl_StatBuf *statPtr); |
| Tcl_WideInt (*tcl_GetAccessTimeFromStat) (const Tcl_StatBuf *statPtr); |
| Tcl_WideInt (*tcl_GetModificationTimeFromStat) (const Tcl_StatBuf *statPtr); |
| Tcl_WideInt (*tcl_GetChangeTimeFromStat) (const Tcl_StatBuf *statPtr); |
| Tcl_WideUInt (*tcl_GetSizeFromStat) (const Tcl_StatBuf *statPtr); |
| Tcl_WideUInt (*tcl_GetBlocksFromStat) (const Tcl_StatBuf *statPtr); |
| unsigned (*tcl_GetBlockSizeFromStat) (const Tcl_StatBuf *statPtr); |
| int (*tcl_SetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj *paramList); |
| int (*tcl_GetEnsembleParameterList) (Tcl_Interp *interp, Tcl_Command token, Tcl_Obj **paramListPtr); |
| int (*tcl_ParseArgsObjv) (Tcl_Interp *interp, const Tcl_ArgvInfo *argTable, int *objcPtr, Tcl_Obj *const *objv, Tcl_Obj ***remObjv); |
| int (*tcl_GetErrorLine) (Tcl_Interp *interp); |
| void (*tcl_SetErrorLine) (Tcl_Interp *interp, int lineNum); |
| void (*tcl_TransferResult) (Tcl_Interp *sourceInterp, int code, Tcl_Interp *targetInterp); |
| int (*tcl_InterpActive) (Tcl_Interp *interp); |
| void (*tcl_BackgroundException) (Tcl_Interp *interp, int code); |
| int (*tcl_ZlibDeflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int level, Tcl_Obj *gzipHeaderDictObj); |
| int (*tcl_ZlibInflate) (Tcl_Interp *interp, int format, Tcl_Obj *data, int buffersize, Tcl_Obj *gzipHeaderDictObj); |
| unsigned int (*tcl_ZlibCRC32) (unsigned int crc, const unsigned char *buf, int len); |
| unsigned int (*tcl_ZlibAdler32) (unsigned int adler, const unsigned char *buf, int len); |
| int (*tcl_ZlibStreamInit) (Tcl_Interp *interp, int mode, int format, int level, Tcl_Obj *dictObj, Tcl_ZlibStream *zshandle); |
| Tcl_Obj * (*tcl_ZlibStreamGetCommandName) (Tcl_ZlibStream zshandle); |
| int (*tcl_ZlibStreamEof) (Tcl_ZlibStream zshandle); |
| int (*tcl_ZlibStreamChecksum) (Tcl_ZlibStream zshandle); |
| int (*tcl_ZlibStreamPut) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int flush); |
| int (*tcl_ZlibStreamGet) (Tcl_ZlibStream zshandle, Tcl_Obj *data, int count); |
| int (*tcl_ZlibStreamClose) (Tcl_ZlibStream zshandle); |
| int (*tcl_ZlibStreamReset) (Tcl_ZlibStream zshandle); |
| void (*tcl_SetStartupScript) (Tcl_Obj *path, const char *encoding); |
| Tcl_Obj * (*tcl_GetStartupScript) (const char **encodingPtr); |
| int (*tcl_CloseEx) (Tcl_Interp *interp, Tcl_Channel chan, int flags); |
| int (*tcl_NRExprObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, Tcl_Obj *resultPtr); |
| int (*tcl_NRSubstObj) (Tcl_Interp *interp, Tcl_Obj *objPtr, int flags); |
| int (*tcl_LoadFile) (Tcl_Interp *interp, Tcl_Obj *pathPtr, const char *const symv[], int flags, void *procPtrs, Tcl_LoadHandle *handlePtr); |
| void * (*tcl_FindSymbol) (Tcl_Interp *interp, Tcl_LoadHandle handle, const char *symbol); |
| int (*tcl_FSUnloadFile) (Tcl_Interp *interp, Tcl_LoadHandle handlePtr); |
| void (*tcl_ZlibStreamSetCompressionDictionary) (Tcl_ZlibStream zhandle, Tcl_Obj *compressionDictionaryObj); |
| void (*reserved631)(void); |
| void (*reserved632)(void); |
| void (*reserved633)(void); |
| void (*reserved634)(void); |
| void (*reserved635)(void); |
| void (*reserved636)(void); |
| void (*reserved637)(void); |
| void (*reserved638)(void); |
| void (*reserved639)(void); |
| void (*reserved640)(void); |
| void (*reserved641)(void); |
| void (*reserved642)(void); |
| void (*reserved643)(void); |
| void (*reserved644)(void); |
| void (*reserved645)(void); |
| void (*reserved646)(void); |
| void (*reserved647)(void); |
| void (*reserved648)(void); |
| void (*reserved649)(void); |
| void (*reserved650)(void); |
| void (*reserved651)(void); |
| void (*reserved652)(void); |
| void (*reserved653)(void); |
| void (*reserved654)(void); |
| void (*reserved655)(void); |
| void (*reserved656)(void); |
| void (*reserved657)(void); |
| void (*reserved658)(void); |
| void (*reserved659)(void); |
| void (*reserved660)(void); |
| void (*reserved661)(void); |
| void (*reserved662)(void); |
| void (*reserved663)(void); |
| void (*reserved664)(void); |
| void (*reserved665)(void); |
| void (*reserved666)(void); |
| void (*reserved667)(void); |
| void (*reserved668)(void); |
| void (*reserved669)(void); |
| void (*reserved670)(void); |
| void (*reserved671)(void); |
| void (*reserved672)(void); |
| void (*reserved673)(void); |
| void (*reserved674)(void); |
| void (*reserved675)(void); |
| void (*reserved676)(void); |
| void (*reserved677)(void); |
| void (*reserved678)(void); |
| void (*reserved679)(void); |
| void (*reserved680)(void); |
| void (*reserved681)(void); |
| void (*reserved682)(void); |
| void (*reserved683)(void); |
| void (*reserved684)(void); |
| void (*reserved685)(void); |
| void (*reserved686)(void); |
| void (*reserved687)(void); |
| void (*tclUnusedStubEntry) (void); |
| } TclStubs; |
|
|
| extern const TclStubs *tclStubsPtr; |
|
|
| #ifdef __cplusplus |
| } |
| #endif |
|
|
| #if defined(USE_TCL_STUBS) |
|
|
| |
| |
| |
|
|
| #define Tcl_PkgProvideEx \ |
| (tclStubsPtr->tcl_PkgProvideEx) |
| #define Tcl_PkgRequireEx \ |
| (tclStubsPtr->tcl_PkgRequireEx) |
| #define Tcl_Panic \ |
| (tclStubsPtr->tcl_Panic) |
| #define Tcl_Alloc \ |
| (tclStubsPtr->tcl_Alloc) |
| #define Tcl_Free \ |
| (tclStubsPtr->tcl_Free) |
| #define Tcl_Realloc \ |
| (tclStubsPtr->tcl_Realloc) |
| #define Tcl_DbCkalloc \ |
| (tclStubsPtr->tcl_DbCkalloc) |
| #define Tcl_DbCkfree \ |
| (tclStubsPtr->tcl_DbCkfree) |
| #define Tcl_DbCkrealloc \ |
| (tclStubsPtr->tcl_DbCkrealloc) |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| #define Tcl_CreateFileHandler \ |
| (tclStubsPtr->tcl_CreateFileHandler) |
| #endif |
| #ifdef MAC_OSX_TCL |
| #define Tcl_CreateFileHandler \ |
| (tclStubsPtr->tcl_CreateFileHandler) |
| #endif |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| #define Tcl_DeleteFileHandler \ |
| (tclStubsPtr->tcl_DeleteFileHandler) |
| #endif |
| #ifdef MAC_OSX_TCL |
| #define Tcl_DeleteFileHandler \ |
| (tclStubsPtr->tcl_DeleteFileHandler) |
| #endif |
| #define Tcl_SetTimer \ |
| (tclStubsPtr->tcl_SetTimer) |
| #define Tcl_Sleep \ |
| (tclStubsPtr->tcl_Sleep) |
| #define Tcl_WaitForEvent \ |
| (tclStubsPtr->tcl_WaitForEvent) |
| #define Tcl_AppendAllObjTypes \ |
| (tclStubsPtr->tcl_AppendAllObjTypes) |
| #define Tcl_AppendStringsToObj \ |
| (tclStubsPtr->tcl_AppendStringsToObj) |
| #define Tcl_AppendToObj \ |
| (tclStubsPtr->tcl_AppendToObj) |
| #define Tcl_ConcatObj \ |
| (tclStubsPtr->tcl_ConcatObj) |
| #define Tcl_ConvertToType \ |
| (tclStubsPtr->tcl_ConvertToType) |
| #define Tcl_DbDecrRefCount \ |
| (tclStubsPtr->tcl_DbDecrRefCount) |
| #define Tcl_DbIncrRefCount \ |
| (tclStubsPtr->tcl_DbIncrRefCount) |
| #define Tcl_DbIsShared \ |
| (tclStubsPtr->tcl_DbIsShared) |
| #define Tcl_DbNewBooleanObj \ |
| (tclStubsPtr->tcl_DbNewBooleanObj) |
| #define Tcl_DbNewByteArrayObj \ |
| (tclStubsPtr->tcl_DbNewByteArrayObj) |
| #define Tcl_DbNewDoubleObj \ |
| (tclStubsPtr->tcl_DbNewDoubleObj) |
| #define Tcl_DbNewListObj \ |
| (tclStubsPtr->tcl_DbNewListObj) |
| #define Tcl_DbNewLongObj \ |
| (tclStubsPtr->tcl_DbNewLongObj) |
| #define Tcl_DbNewObj \ |
| (tclStubsPtr->tcl_DbNewObj) |
| #define Tcl_DbNewStringObj \ |
| (tclStubsPtr->tcl_DbNewStringObj) |
| #define Tcl_DuplicateObj \ |
| (tclStubsPtr->tcl_DuplicateObj) |
| #define TclFreeObj \ |
| (tclStubsPtr->tclFreeObj) |
| #define Tcl_GetBoolean \ |
| (tclStubsPtr->tcl_GetBoolean) |
| #define Tcl_GetBooleanFromObj \ |
| (tclStubsPtr->tcl_GetBooleanFromObj) |
| #define Tcl_GetByteArrayFromObj \ |
| (tclStubsPtr->tcl_GetByteArrayFromObj) |
| #define Tcl_GetDouble \ |
| (tclStubsPtr->tcl_GetDouble) |
| #define Tcl_GetDoubleFromObj \ |
| (tclStubsPtr->tcl_GetDoubleFromObj) |
| #define Tcl_GetIndexFromObj \ |
| (tclStubsPtr->tcl_GetIndexFromObj) |
| #define Tcl_GetInt \ |
| (tclStubsPtr->tcl_GetInt) |
| #define Tcl_GetIntFromObj \ |
| (tclStubsPtr->tcl_GetIntFromObj) |
| #define Tcl_GetLongFromObj \ |
| (tclStubsPtr->tcl_GetLongFromObj) |
| #define Tcl_GetObjType \ |
| (tclStubsPtr->tcl_GetObjType) |
| #define Tcl_GetStringFromObj \ |
| (tclStubsPtr->tcl_GetStringFromObj) |
| #define Tcl_InvalidateStringRep \ |
| (tclStubsPtr->tcl_InvalidateStringRep) |
| #define Tcl_ListObjAppendList \ |
| (tclStubsPtr->tcl_ListObjAppendList) |
| #define Tcl_ListObjAppendElement \ |
| (tclStubsPtr->tcl_ListObjAppendElement) |
| #define Tcl_ListObjGetElements \ |
| (tclStubsPtr->tcl_ListObjGetElements) |
| #define Tcl_ListObjIndex \ |
| (tclStubsPtr->tcl_ListObjIndex) |
| #define Tcl_ListObjLength \ |
| (tclStubsPtr->tcl_ListObjLength) |
| #define Tcl_ListObjReplace \ |
| (tclStubsPtr->tcl_ListObjReplace) |
| #define Tcl_NewBooleanObj \ |
| (tclStubsPtr->tcl_NewBooleanObj) |
| #define Tcl_NewByteArrayObj \ |
| (tclStubsPtr->tcl_NewByteArrayObj) |
| #define Tcl_NewDoubleObj \ |
| (tclStubsPtr->tcl_NewDoubleObj) |
| #define Tcl_NewIntObj \ |
| (tclStubsPtr->tcl_NewIntObj) |
| #define Tcl_NewListObj \ |
| (tclStubsPtr->tcl_NewListObj) |
| #define Tcl_NewLongObj \ |
| (tclStubsPtr->tcl_NewLongObj) |
| #define Tcl_NewObj \ |
| (tclStubsPtr->tcl_NewObj) |
| #define Tcl_NewStringObj \ |
| (tclStubsPtr->tcl_NewStringObj) |
| #define Tcl_SetBooleanObj \ |
| (tclStubsPtr->tcl_SetBooleanObj) |
| #define Tcl_SetByteArrayLength \ |
| (tclStubsPtr->tcl_SetByteArrayLength) |
| #define Tcl_SetByteArrayObj \ |
| (tclStubsPtr->tcl_SetByteArrayObj) |
| #define Tcl_SetDoubleObj \ |
| (tclStubsPtr->tcl_SetDoubleObj) |
| #define Tcl_SetIntObj \ |
| (tclStubsPtr->tcl_SetIntObj) |
| #define Tcl_SetListObj \ |
| (tclStubsPtr->tcl_SetListObj) |
| #define Tcl_SetLongObj \ |
| (tclStubsPtr->tcl_SetLongObj) |
| #define Tcl_SetObjLength \ |
| (tclStubsPtr->tcl_SetObjLength) |
| #define Tcl_SetStringObj \ |
| (tclStubsPtr->tcl_SetStringObj) |
| #define Tcl_AddErrorInfo \ |
| (tclStubsPtr->tcl_AddErrorInfo) |
| #define Tcl_AddObjErrorInfo \ |
| (tclStubsPtr->tcl_AddObjErrorInfo) |
| #define Tcl_AllowExceptions \ |
| (tclStubsPtr->tcl_AllowExceptions) |
| #define Tcl_AppendElement \ |
| (tclStubsPtr->tcl_AppendElement) |
| #define Tcl_AppendResult \ |
| (tclStubsPtr->tcl_AppendResult) |
| #define Tcl_AsyncCreate \ |
| (tclStubsPtr->tcl_AsyncCreate) |
| #define Tcl_AsyncDelete \ |
| (tclStubsPtr->tcl_AsyncDelete) |
| #define Tcl_AsyncInvoke \ |
| (tclStubsPtr->tcl_AsyncInvoke) |
| #define Tcl_AsyncMark \ |
| (tclStubsPtr->tcl_AsyncMark) |
| #define Tcl_AsyncReady \ |
| (tclStubsPtr->tcl_AsyncReady) |
| #define Tcl_BackgroundError \ |
| (tclStubsPtr->tcl_BackgroundError) |
| #define Tcl_Backslash \ |
| (tclStubsPtr->tcl_Backslash) |
| #define Tcl_BadChannelOption \ |
| (tclStubsPtr->tcl_BadChannelOption) |
| #define Tcl_CallWhenDeleted \ |
| (tclStubsPtr->tcl_CallWhenDeleted) |
| #define Tcl_CancelIdleCall \ |
| (tclStubsPtr->tcl_CancelIdleCall) |
| #define Tcl_Close \ |
| (tclStubsPtr->tcl_Close) |
| #define Tcl_CommandComplete \ |
| (tclStubsPtr->tcl_CommandComplete) |
| #define Tcl_Concat \ |
| (tclStubsPtr->tcl_Concat) |
| #define Tcl_ConvertElement \ |
| (tclStubsPtr->tcl_ConvertElement) |
| #define Tcl_ConvertCountedElement \ |
| (tclStubsPtr->tcl_ConvertCountedElement) |
| #define Tcl_CreateAlias \ |
| (tclStubsPtr->tcl_CreateAlias) |
| #define Tcl_CreateAliasObj \ |
| (tclStubsPtr->tcl_CreateAliasObj) |
| #define Tcl_CreateChannel \ |
| (tclStubsPtr->tcl_CreateChannel) |
| #define Tcl_CreateChannelHandler \ |
| (tclStubsPtr->tcl_CreateChannelHandler) |
| #define Tcl_CreateCloseHandler \ |
| (tclStubsPtr->tcl_CreateCloseHandler) |
| #define Tcl_CreateCommand \ |
| (tclStubsPtr->tcl_CreateCommand) |
| #define Tcl_CreateEventSource \ |
| (tclStubsPtr->tcl_CreateEventSource) |
| #define Tcl_CreateExitHandler \ |
| (tclStubsPtr->tcl_CreateExitHandler) |
| #define Tcl_CreateInterp \ |
| (tclStubsPtr->tcl_CreateInterp) |
| #define Tcl_CreateMathFunc \ |
| (tclStubsPtr->tcl_CreateMathFunc) |
| #define Tcl_CreateObjCommand \ |
| (tclStubsPtr->tcl_CreateObjCommand) |
| #define Tcl_CreateSlave \ |
| (tclStubsPtr->tcl_CreateSlave) |
| #define Tcl_CreateTimerHandler \ |
| (tclStubsPtr->tcl_CreateTimerHandler) |
| #define Tcl_CreateTrace \ |
| (tclStubsPtr->tcl_CreateTrace) |
| #define Tcl_DeleteAssocData \ |
| (tclStubsPtr->tcl_DeleteAssocData) |
| #define Tcl_DeleteChannelHandler \ |
| (tclStubsPtr->tcl_DeleteChannelHandler) |
| #define Tcl_DeleteCloseHandler \ |
| (tclStubsPtr->tcl_DeleteCloseHandler) |
| #define Tcl_DeleteCommand \ |
| (tclStubsPtr->tcl_DeleteCommand) |
| #define Tcl_DeleteCommandFromToken \ |
| (tclStubsPtr->tcl_DeleteCommandFromToken) |
| #define Tcl_DeleteEvents \ |
| (tclStubsPtr->tcl_DeleteEvents) |
| #define Tcl_DeleteEventSource \ |
| (tclStubsPtr->tcl_DeleteEventSource) |
| #define Tcl_DeleteExitHandler \ |
| (tclStubsPtr->tcl_DeleteExitHandler) |
| #define Tcl_DeleteHashEntry \ |
| (tclStubsPtr->tcl_DeleteHashEntry) |
| #define Tcl_DeleteHashTable \ |
| (tclStubsPtr->tcl_DeleteHashTable) |
| #define Tcl_DeleteInterp \ |
| (tclStubsPtr->tcl_DeleteInterp) |
| #define Tcl_DetachPids \ |
| (tclStubsPtr->tcl_DetachPids) |
| #define Tcl_DeleteTimerHandler \ |
| (tclStubsPtr->tcl_DeleteTimerHandler) |
| #define Tcl_DeleteTrace \ |
| (tclStubsPtr->tcl_DeleteTrace) |
| #define Tcl_DontCallWhenDeleted \ |
| (tclStubsPtr->tcl_DontCallWhenDeleted) |
| #define Tcl_DoOneEvent \ |
| (tclStubsPtr->tcl_DoOneEvent) |
| #define Tcl_DoWhenIdle \ |
| (tclStubsPtr->tcl_DoWhenIdle) |
| #define Tcl_DStringAppend \ |
| (tclStubsPtr->tcl_DStringAppend) |
| #define Tcl_DStringAppendElement \ |
| (tclStubsPtr->tcl_DStringAppendElement) |
| #define Tcl_DStringEndSublist \ |
| (tclStubsPtr->tcl_DStringEndSublist) |
| #define Tcl_DStringFree \ |
| (tclStubsPtr->tcl_DStringFree) |
| #define Tcl_DStringGetResult \ |
| (tclStubsPtr->tcl_DStringGetResult) |
| #define Tcl_DStringInit \ |
| (tclStubsPtr->tcl_DStringInit) |
| #define Tcl_DStringResult \ |
| (tclStubsPtr->tcl_DStringResult) |
| #define Tcl_DStringSetLength \ |
| (tclStubsPtr->tcl_DStringSetLength) |
| #define Tcl_DStringStartSublist \ |
| (tclStubsPtr->tcl_DStringStartSublist) |
| #define Tcl_Eof \ |
| (tclStubsPtr->tcl_Eof) |
| #define Tcl_ErrnoId \ |
| (tclStubsPtr->tcl_ErrnoId) |
| #define Tcl_ErrnoMsg \ |
| (tclStubsPtr->tcl_ErrnoMsg) |
| #define Tcl_Eval \ |
| (tclStubsPtr->tcl_Eval) |
| #define Tcl_EvalFile \ |
| (tclStubsPtr->tcl_EvalFile) |
| #define Tcl_EvalObj \ |
| (tclStubsPtr->tcl_EvalObj) |
| #define Tcl_EventuallyFree \ |
| (tclStubsPtr->tcl_EventuallyFree) |
| #define Tcl_Exit \ |
| (tclStubsPtr->tcl_Exit) |
| #define Tcl_ExposeCommand \ |
| (tclStubsPtr->tcl_ExposeCommand) |
| #define Tcl_ExprBoolean \ |
| (tclStubsPtr->tcl_ExprBoolean) |
| #define Tcl_ExprBooleanObj \ |
| (tclStubsPtr->tcl_ExprBooleanObj) |
| #define Tcl_ExprDouble \ |
| (tclStubsPtr->tcl_ExprDouble) |
| #define Tcl_ExprDoubleObj \ |
| (tclStubsPtr->tcl_ExprDoubleObj) |
| #define Tcl_ExprLong \ |
| (tclStubsPtr->tcl_ExprLong) |
| #define Tcl_ExprLongObj \ |
| (tclStubsPtr->tcl_ExprLongObj) |
| #define Tcl_ExprObj \ |
| (tclStubsPtr->tcl_ExprObj) |
| #define Tcl_ExprString \ |
| (tclStubsPtr->tcl_ExprString) |
| #define Tcl_Finalize \ |
| (tclStubsPtr->tcl_Finalize) |
| #define Tcl_FindExecutable \ |
| (tclStubsPtr->tcl_FindExecutable) |
| #define Tcl_FirstHashEntry \ |
| (tclStubsPtr->tcl_FirstHashEntry) |
| #define Tcl_Flush \ |
| (tclStubsPtr->tcl_Flush) |
| #define Tcl_FreeResult \ |
| (tclStubsPtr->tcl_FreeResult) |
| #define Tcl_GetAlias \ |
| (tclStubsPtr->tcl_GetAlias) |
| #define Tcl_GetAliasObj \ |
| (tclStubsPtr->tcl_GetAliasObj) |
| #define Tcl_GetAssocData \ |
| (tclStubsPtr->tcl_GetAssocData) |
| #define Tcl_GetChannel \ |
| (tclStubsPtr->tcl_GetChannel) |
| #define Tcl_GetChannelBufferSize \ |
| (tclStubsPtr->tcl_GetChannelBufferSize) |
| #define Tcl_GetChannelHandle \ |
| (tclStubsPtr->tcl_GetChannelHandle) |
| #define Tcl_GetChannelInstanceData \ |
| (tclStubsPtr->tcl_GetChannelInstanceData) |
| #define Tcl_GetChannelMode \ |
| (tclStubsPtr->tcl_GetChannelMode) |
| #define Tcl_GetChannelName \ |
| (tclStubsPtr->tcl_GetChannelName) |
| #define Tcl_GetChannelOption \ |
| (tclStubsPtr->tcl_GetChannelOption) |
| #define Tcl_GetChannelType \ |
| (tclStubsPtr->tcl_GetChannelType) |
| #define Tcl_GetCommandInfo \ |
| (tclStubsPtr->tcl_GetCommandInfo) |
| #define Tcl_GetCommandName \ |
| (tclStubsPtr->tcl_GetCommandName) |
| #define Tcl_GetErrno \ |
| (tclStubsPtr->tcl_GetErrno) |
| #define Tcl_GetHostName \ |
| (tclStubsPtr->tcl_GetHostName) |
| #define Tcl_GetInterpPath \ |
| (tclStubsPtr->tcl_GetInterpPath) |
| #define Tcl_GetMaster \ |
| (tclStubsPtr->tcl_GetMaster) |
| #define Tcl_GetNameOfExecutable \ |
| (tclStubsPtr->tcl_GetNameOfExecutable) |
| #define Tcl_GetObjResult \ |
| (tclStubsPtr->tcl_GetObjResult) |
| #if !defined(_WIN32) && !defined(MAC_OSX_TCL) |
| #define Tcl_GetOpenFile \ |
| (tclStubsPtr->tcl_GetOpenFile) |
| #endif |
| #ifdef MAC_OSX_TCL |
| #define Tcl_GetOpenFile \ |
| (tclStubsPtr->tcl_GetOpenFile) |
| #endif |
| #define Tcl_GetPathType \ |
| (tclStubsPtr->tcl_GetPathType) |
| #define Tcl_Gets \ |
| (tclStubsPtr->tcl_Gets) |
| #define Tcl_GetsObj \ |
| (tclStubsPtr->tcl_GetsObj) |
| #define Tcl_GetServiceMode \ |
| (tclStubsPtr->tcl_GetServiceMode) |
| #define Tcl_GetSlave \ |
| (tclStubsPtr->tcl_GetSlave) |
| #define Tcl_GetStdChannel \ |
| (tclStubsPtr->tcl_GetStdChannel) |
| #define Tcl_GetStringResult \ |
| (tclStubsPtr->tcl_GetStringResult) |
| #define Tcl_GetVar \ |
| (tclStubsPtr->tcl_GetVar) |
| #define Tcl_GetVar2 \ |
| (tclStubsPtr->tcl_GetVar2) |
| #define Tcl_GlobalEval \ |
| (tclStubsPtr->tcl_GlobalEval) |
| #define Tcl_GlobalEvalObj \ |
| (tclStubsPtr->tcl_GlobalEvalObj) |
| #define Tcl_HideCommand \ |
| (tclStubsPtr->tcl_HideCommand) |
| #define Tcl_Init \ |
| (tclStubsPtr->tcl_Init) |
| #define Tcl_InitHashTable \ |
| (tclStubsPtr->tcl_InitHashTable) |
| #define Tcl_InputBlocked \ |
| (tclStubsPtr->tcl_InputBlocked) |
| #define Tcl_InputBuffered \ |
| (tclStubsPtr->tcl_InputBuffered) |
| #define Tcl_InterpDeleted \ |
| (tclStubsPtr->tcl_InterpDeleted) |
| #define Tcl_IsSafe \ |
| (tclStubsPtr->tcl_IsSafe) |
| #define Tcl_JoinPath \ |
| (tclStubsPtr->tcl_JoinPath) |
| #define Tcl_LinkVar \ |
| (tclStubsPtr->tcl_LinkVar) |
| |
| #define Tcl_MakeFileChannel \ |
| (tclStubsPtr->tcl_MakeFileChannel) |
| #define Tcl_MakeSafe \ |
| (tclStubsPtr->tcl_MakeSafe) |
| #define Tcl_MakeTcpClientChannel \ |
| (tclStubsPtr->tcl_MakeTcpClientChannel) |
| #define Tcl_Merge \ |
| (tclStubsPtr->tcl_Merge) |
| #define Tcl_NextHashEntry \ |
| (tclStubsPtr->tcl_NextHashEntry) |
| #define Tcl_NotifyChannel \ |
| (tclStubsPtr->tcl_NotifyChannel) |
| #define Tcl_ObjGetVar2 \ |
| (tclStubsPtr->tcl_ObjGetVar2) |
| #define Tcl_ObjSetVar2 \ |
| (tclStubsPtr->tcl_ObjSetVar2) |
| #define Tcl_OpenCommandChannel \ |
| (tclStubsPtr->tcl_OpenCommandChannel) |
| #define Tcl_OpenFileChannel \ |
| (tclStubsPtr->tcl_OpenFileChannel) |
| #define Tcl_OpenTcpClient \ |
| (tclStubsPtr->tcl_OpenTcpClient) |
| #define Tcl_OpenTcpServer \ |
| (tclStubsPtr->tcl_OpenTcpServer) |
| #define Tcl_Preserve \ |
| (tclStubsPtr->tcl_Preserve) |
| #define Tcl_PrintDouble \ |
| (tclStubsPtr->tcl_PrintDouble) |
| #define Tcl_PutEnv \ |
| (tclStubsPtr->tcl_PutEnv) |
| #define Tcl_PosixError \ |
| (tclStubsPtr->tcl_PosixError) |
| #define Tcl_QueueEvent \ |
| (tclStubsPtr->tcl_QueueEvent) |
| #define Tcl_Read \ |
| (tclStubsPtr->tcl_Read) |
| #define Tcl_ReapDetachedProcs \ |
| (tclStubsPtr->tcl_ReapDetachedProcs) |
| #define Tcl_RecordAndEval \ |
| (tclStubsPtr->tcl_RecordAndEval) |
| #define Tcl_RecordAndEvalObj \ |
| (tclStubsPtr->tcl_RecordAndEvalObj) |
| #define Tcl_RegisterChannel \ |
| (tclStubsPtr->tcl_RegisterChannel) |
| #define Tcl_RegisterObjType \ |
| (tclStubsPtr->tcl_RegisterObjType) |
| #define Tcl_RegExpCompile \ |
| (tclStubsPtr->tcl_RegExpCompile) |
| #define Tcl_RegExpExec \ |
| (tclStubsPtr->tcl_RegExpExec) |
| #define Tcl_RegExpMatch \ |
| (tclStubsPtr->tcl_RegExpMatch) |
| #define Tcl_RegExpRange \ |
| (tclStubsPtr->tcl_RegExpRange) |
| #define Tcl_Release \ |
| (tclStubsPtr->tcl_Release) |
| #define Tcl_ResetResult \ |
| (tclStubsPtr->tcl_ResetResult) |
| #define Tcl_ScanElement \ |
| (tclStubsPtr->tcl_ScanElement) |
| #define Tcl_ScanCountedElement \ |
| (tclStubsPtr->tcl_ScanCountedElement) |
| #define Tcl_SeekOld \ |
| (tclStubsPtr->tcl_SeekOld) |
| #define Tcl_ServiceAll \ |
| (tclStubsPtr->tcl_ServiceAll) |
| #define Tcl_ServiceEvent \ |
| (tclStubsPtr->tcl_ServiceEvent) |
| #define Tcl_SetAssocData \ |
| (tclStubsPtr->tcl_SetAssocData) |
| #define Tcl_SetChannelBufferSize \ |
| (tclStubsPtr->tcl_SetChannelBufferSize) |
| #define Tcl_SetChannelOption \ |
| (tclStubsPtr->tcl_SetChannelOption) |
| #define Tcl_SetCommandInfo \ |
| (tclStubsPtr->tcl_SetCommandInfo) |
| #define Tcl_SetErrno \ |
| (tclStubsPtr->tcl_SetErrno) |
| #define Tcl_SetErrorCode \ |
| (tclStubsPtr->tcl_SetErrorCode) |
| #define Tcl_SetMaxBlockTime \ |
| (tclStubsPtr->tcl_SetMaxBlockTime) |
| #define Tcl_SetPanicProc \ |
| (tclStubsPtr->tcl_SetPanicProc) |
| #define Tcl_SetRecursionLimit \ |
| (tclStubsPtr->tcl_SetRecursionLimit) |
| #define Tcl_SetResult \ |
| (tclStubsPtr->tcl_SetResult) |
| #define Tcl_SetServiceMode \ |
| (tclStubsPtr->tcl_SetServiceMode) |
| #define Tcl_SetObjErrorCode \ |
| (tclStubsPtr->tcl_SetObjErrorCode) |
| #define Tcl_SetObjResult \ |
| (tclStubsPtr->tcl_SetObjResult) |
| #define Tcl_SetStdChannel \ |
| (tclStubsPtr->tcl_SetStdChannel) |
| #define Tcl_SetVar \ |
| (tclStubsPtr->tcl_SetVar) |
| #define Tcl_SetVar2 \ |
| (tclStubsPtr->tcl_SetVar2) |
| #define Tcl_SignalId \ |
| (tclStubsPtr->tcl_SignalId) |
| #define Tcl_SignalMsg \ |
| (tclStubsPtr->tcl_SignalMsg) |
| #define Tcl_SourceRCFile \ |
| (tclStubsPtr->tcl_SourceRCFile) |
| #define Tcl_SplitList \ |
| (tclStubsPtr->tcl_SplitList) |
| #define Tcl_SplitPath \ |
| (tclStubsPtr->tcl_SplitPath) |
| #define Tcl_StaticPackage \ |
| (tclStubsPtr->tcl_StaticPackage) |
| #define Tcl_StringMatch \ |
| (tclStubsPtr->tcl_StringMatch) |
| #define Tcl_TellOld \ |
| (tclStubsPtr->tcl_TellOld) |
| #define Tcl_TraceVar \ |
| (tclStubsPtr->tcl_TraceVar) |
| #define Tcl_TraceVar2 \ |
| (tclStubsPtr->tcl_TraceVar2) |
| #define Tcl_TranslateFileName \ |
| (tclStubsPtr->tcl_TranslateFileName) |
| #define Tcl_Ungets \ |
| (tclStubsPtr->tcl_Ungets) |
| #define Tcl_UnlinkVar \ |
| (tclStubsPtr->tcl_UnlinkVar) |
| #define Tcl_UnregisterChannel \ |
| (tclStubsPtr->tcl_UnregisterChannel) |
| #define Tcl_UnsetVar \ |
| (tclStubsPtr->tcl_UnsetVar) |
| #define Tcl_UnsetVar2 \ |
| (tclStubsPtr->tcl_UnsetVar2) |
| #define Tcl_UntraceVar \ |
| (tclStubsPtr->tcl_UntraceVar) |
| #define Tcl_UntraceVar2 \ |
| (tclStubsPtr->tcl_UntraceVar2) |
| #define Tcl_UpdateLinkedVar \ |
| (tclStubsPtr->tcl_UpdateLinkedVar) |
| #define Tcl_UpVar \ |
| (tclStubsPtr->tcl_UpVar) |
| #define Tcl_UpVar2 \ |
| (tclStubsPtr->tcl_UpVar2) |
| #define Tcl_VarEval \ |
| (tclStubsPtr->tcl_VarEval) |
| #define Tcl_VarTraceInfo \ |
| (tclStubsPtr->tcl_VarTraceInfo) |
| #define Tcl_VarTraceInfo2 \ |
| (tclStubsPtr->tcl_VarTraceInfo2) |
| #define Tcl_Write \ |
| (tclStubsPtr->tcl_Write) |
| #define Tcl_WrongNumArgs \ |
| (tclStubsPtr->tcl_WrongNumArgs) |
| #define Tcl_DumpActiveMemory \ |
| (tclStubsPtr->tcl_DumpActiveMemory) |
| #define Tcl_ValidateAllMemory \ |
| (tclStubsPtr->tcl_ValidateAllMemory) |
| #define Tcl_AppendResultVA \ |
| (tclStubsPtr->tcl_AppendResultVA) |
| #define Tcl_AppendStringsToObjVA \ |
| (tclStubsPtr->tcl_AppendStringsToObjVA) |
| #define Tcl_HashStats \ |
| (tclStubsPtr->tcl_HashStats) |
| #define Tcl_ParseVar \ |
| (tclStubsPtr->tcl_ParseVar) |
| #define Tcl_PkgPresent \ |
| (tclStubsPtr->tcl_PkgPresent) |
| #define Tcl_PkgPresentEx \ |
| (tclStubsPtr->tcl_PkgPresentEx) |
| #define Tcl_PkgProvide \ |
| (tclStubsPtr->tcl_PkgProvide) |
| #define Tcl_PkgRequire \ |
| (tclStubsPtr->tcl_PkgRequire) |
| #define Tcl_SetErrorCodeVA \ |
| (tclStubsPtr->tcl_SetErrorCodeVA) |
| #define Tcl_VarEvalVA \ |
| (tclStubsPtr->tcl_VarEvalVA) |
| #define Tcl_WaitPid \ |
| (tclStubsPtr->tcl_WaitPid) |
| #define Tcl_PanicVA \ |
| (tclStubsPtr->tcl_PanicVA) |
| #define Tcl_GetVersion \ |
| (tclStubsPtr->tcl_GetVersion) |
| #define Tcl_InitMemory \ |
| (tclStubsPtr->tcl_InitMemory) |
| #define Tcl_StackChannel \ |
| (tclStubsPtr->tcl_StackChannel) |
| #define Tcl_UnstackChannel \ |
| (tclStubsPtr->tcl_UnstackChannel) |
| #define Tcl_GetStackedChannel \ |
| (tclStubsPtr->tcl_GetStackedChannel) |
| #define Tcl_SetMainLoop \ |
| (tclStubsPtr->tcl_SetMainLoop) |
| |
| #define Tcl_AppendObjToObj \ |
| (tclStubsPtr->tcl_AppendObjToObj) |
| #define Tcl_CreateEncoding \ |
| (tclStubsPtr->tcl_CreateEncoding) |
| #define Tcl_CreateThreadExitHandler \ |
| (tclStubsPtr->tcl_CreateThreadExitHandler) |
| #define Tcl_DeleteThreadExitHandler \ |
| (tclStubsPtr->tcl_DeleteThreadExitHandler) |
| #define Tcl_DiscardResult \ |
| (tclStubsPtr->tcl_DiscardResult) |
| #define Tcl_EvalEx \ |
| (tclStubsPtr->tcl_EvalEx) |
| #define Tcl_EvalObjv \ |
| (tclStubsPtr->tcl_EvalObjv) |
| #define Tcl_EvalObjEx \ |
| (tclStubsPtr->tcl_EvalObjEx) |
| #define Tcl_ExitThread \ |
| (tclStubsPtr->tcl_ExitThread) |
| #define Tcl_ExternalToUtf \ |
| (tclStubsPtr->tcl_ExternalToUtf) |
| #define Tcl_ExternalToUtfDString \ |
| (tclStubsPtr->tcl_ExternalToUtfDString) |
| #define Tcl_FinalizeThread \ |
| (tclStubsPtr->tcl_FinalizeThread) |
| #define Tcl_FinalizeNotifier \ |
| (tclStubsPtr->tcl_FinalizeNotifier) |
| #define Tcl_FreeEncoding \ |
| (tclStubsPtr->tcl_FreeEncoding) |
| #define Tcl_GetCurrentThread \ |
| (tclStubsPtr->tcl_GetCurrentThread) |
| #define Tcl_GetEncoding \ |
| (tclStubsPtr->tcl_GetEncoding) |
| #define Tcl_GetEncodingName \ |
| (tclStubsPtr->tcl_GetEncodingName) |
| #define Tcl_GetEncodingNames \ |
| (tclStubsPtr->tcl_GetEncodingNames) |
| #define Tcl_GetIndexFromObjStruct \ |
| (tclStubsPtr->tcl_GetIndexFromObjStruct) |
| #define Tcl_GetThreadData \ |
| (tclStubsPtr->tcl_GetThreadData) |
| #define Tcl_GetVar2Ex \ |
| (tclStubsPtr->tcl_GetVar2Ex) |
| #define Tcl_InitNotifier \ |
| (tclStubsPtr->tcl_InitNotifier) |
| #define Tcl_MutexLock \ |
| (tclStubsPtr->tcl_MutexLock) |
| #define Tcl_MutexUnlock \ |
| (tclStubsPtr->tcl_MutexUnlock) |
| #define Tcl_ConditionNotify \ |
| (tclStubsPtr->tcl_ConditionNotify) |
| #define Tcl_ConditionWait \ |
| (tclStubsPtr->tcl_ConditionWait) |
| #define Tcl_NumUtfChars \ |
| (tclStubsPtr->tcl_NumUtfChars) |
| #define Tcl_ReadChars \ |
| (tclStubsPtr->tcl_ReadChars) |
| #define Tcl_RestoreResult \ |
| (tclStubsPtr->tcl_RestoreResult) |
| #define Tcl_SaveResult \ |
| (tclStubsPtr->tcl_SaveResult) |
| #define Tcl_SetSystemEncoding \ |
| (tclStubsPtr->tcl_SetSystemEncoding) |
| #define Tcl_SetVar2Ex \ |
| (tclStubsPtr->tcl_SetVar2Ex) |
| #define Tcl_ThreadAlert \ |
| (tclStubsPtr->tcl_ThreadAlert) |
| #define Tcl_ThreadQueueEvent \ |
| (tclStubsPtr->tcl_ThreadQueueEvent) |
| #define Tcl_UniCharAtIndex \ |
| (tclStubsPtr->tcl_UniCharAtIndex) |
| #define Tcl_UniCharToLower \ |
| (tclStubsPtr->tcl_UniCharToLower) |
| #define Tcl_UniCharToTitle \ |
| (tclStubsPtr->tcl_UniCharToTitle) |
| #define Tcl_UniCharToUpper \ |
| (tclStubsPtr->tcl_UniCharToUpper) |
| #define Tcl_UniCharToUtf \ |
| (tclStubsPtr->tcl_UniCharToUtf) |
| #define Tcl_UtfAtIndex \ |
| (tclStubsPtr->tcl_UtfAtIndex) |
| #define Tcl_UtfCharComplete \ |
| (tclStubsPtr->tcl_UtfCharComplete) |
| #define Tcl_UtfBackslash \ |
| (tclStubsPtr->tcl_UtfBackslash) |
| #define Tcl_UtfFindFirst \ |
| (tclStubsPtr->tcl_UtfFindFirst) |
| #define Tcl_UtfFindLast \ |
| (tclStubsPtr->tcl_UtfFindLast) |
| #define Tcl_UtfNext \ |
| (tclStubsPtr->tcl_UtfNext) |
| #define Tcl_UtfPrev \ |
| (tclStubsPtr->tcl_UtfPrev) |
| #define Tcl_UtfToExternal \ |
| (tclStubsPtr->tcl_UtfToExternal) |
| #define Tcl_UtfToExternalDString \ |
| (tclStubsPtr->tcl_UtfToExternalDString) |
| #define Tcl_UtfToLower \ |
| (tclStubsPtr->tcl_UtfToLower) |
| #define Tcl_UtfToTitle \ |
| (tclStubsPtr->tcl_UtfToTitle) |
| #define Tcl_UtfToUniChar \ |
| (tclStubsPtr->tcl_UtfToUniChar) |
| #define Tcl_UtfToUpper \ |
| (tclStubsPtr->tcl_UtfToUpper) |
| #define Tcl_WriteChars \ |
| (tclStubsPtr->tcl_WriteChars) |
| #define Tcl_WriteObj \ |
| (tclStubsPtr->tcl_WriteObj) |
| #define Tcl_GetString \ |
| (tclStubsPtr->tcl_GetString) |
| #define Tcl_GetDefaultEncodingDir \ |
| (tclStubsPtr->tcl_GetDefaultEncodingDir) |
| #define Tcl_SetDefaultEncodingDir \ |
| (tclStubsPtr->tcl_SetDefaultEncodingDir) |
| #define Tcl_AlertNotifier \ |
| (tclStubsPtr->tcl_AlertNotifier) |
| #define Tcl_ServiceModeHook \ |
| (tclStubsPtr->tcl_ServiceModeHook) |
| #define Tcl_UniCharIsAlnum \ |
| (tclStubsPtr->tcl_UniCharIsAlnum) |
| #define Tcl_UniCharIsAlpha \ |
| (tclStubsPtr->tcl_UniCharIsAlpha) |
| #define Tcl_UniCharIsDigit \ |
| (tclStubsPtr->tcl_UniCharIsDigit) |
| #define Tcl_UniCharIsLower \ |
| (tclStubsPtr->tcl_UniCharIsLower) |
| #define Tcl_UniCharIsSpace \ |
| (tclStubsPtr->tcl_UniCharIsSpace) |
| #define Tcl_UniCharIsUpper \ |
| (tclStubsPtr->tcl_UniCharIsUpper) |
| #define Tcl_UniCharIsWordChar \ |
| (tclStubsPtr->tcl_UniCharIsWordChar) |
| #define Tcl_UniCharLen \ |
| (tclStubsPtr->tcl_UniCharLen) |
| #define Tcl_UniCharNcmp \ |
| (tclStubsPtr->tcl_UniCharNcmp) |
| #define Tcl_UniCharToUtfDString \ |
| (tclStubsPtr->tcl_UniCharToUtfDString) |
| #define Tcl_UtfToUniCharDString \ |
| (tclStubsPtr->tcl_UtfToUniCharDString) |
| #define Tcl_GetRegExpFromObj \ |
| (tclStubsPtr->tcl_GetRegExpFromObj) |
| #define Tcl_EvalTokens \ |
| (tclStubsPtr->tcl_EvalTokens) |
| #define Tcl_FreeParse \ |
| (tclStubsPtr->tcl_FreeParse) |
| #define Tcl_LogCommandInfo \ |
| (tclStubsPtr->tcl_LogCommandInfo) |
| #define Tcl_ParseBraces \ |
| (tclStubsPtr->tcl_ParseBraces) |
| #define Tcl_ParseCommand \ |
| (tclStubsPtr->tcl_ParseCommand) |
| #define Tcl_ParseExpr \ |
| (tclStubsPtr->tcl_ParseExpr) |
| #define Tcl_ParseQuotedString \ |
| (tclStubsPtr->tcl_ParseQuotedString) |
| #define Tcl_ParseVarName \ |
| (tclStubsPtr->tcl_ParseVarName) |
| #define Tcl_GetCwd \ |
| (tclStubsPtr->tcl_GetCwd) |
| #define Tcl_Chdir \ |
| (tclStubsPtr->tcl_Chdir) |
| #define Tcl_Access \ |
| (tclStubsPtr->tcl_Access) |
| #define Tcl_Stat \ |
| (tclStubsPtr->tcl_Stat) |
| #define Tcl_UtfNcmp \ |
| (tclStubsPtr->tcl_UtfNcmp) |
| #define Tcl_UtfNcasecmp \ |
| (tclStubsPtr->tcl_UtfNcasecmp) |
| #define Tcl_StringCaseMatch \ |
| (tclStubsPtr->tcl_StringCaseMatch) |
| #define Tcl_UniCharIsControl \ |
| (tclStubsPtr->tcl_UniCharIsControl) |
| #define Tcl_UniCharIsGraph \ |
| (tclStubsPtr->tcl_UniCharIsGraph) |
| #define Tcl_UniCharIsPrint \ |
| (tclStubsPtr->tcl_UniCharIsPrint) |
| #define Tcl_UniCharIsPunct \ |
| (tclStubsPtr->tcl_UniCharIsPunct) |
| #define Tcl_RegExpExecObj \ |
| (tclStubsPtr->tcl_RegExpExecObj) |
| #define Tcl_RegExpGetInfo \ |
| (tclStubsPtr->tcl_RegExpGetInfo) |
| #define Tcl_NewUnicodeObj \ |
| (tclStubsPtr->tcl_NewUnicodeObj) |
| #define Tcl_SetUnicodeObj \ |
| (tclStubsPtr->tcl_SetUnicodeObj) |
| #define Tcl_GetCharLength \ |
| (tclStubsPtr->tcl_GetCharLength) |
| #define Tcl_GetUniChar \ |
| (tclStubsPtr->tcl_GetUniChar) |
| #define Tcl_GetUnicode \ |
| (tclStubsPtr->tcl_GetUnicode) |
| #define Tcl_GetRange \ |
| (tclStubsPtr->tcl_GetRange) |
| #define Tcl_AppendUnicodeToObj \ |
| (tclStubsPtr->tcl_AppendUnicodeToObj) |
| #define Tcl_RegExpMatchObj \ |
| (tclStubsPtr->tcl_RegExpMatchObj) |
| #define Tcl_SetNotifier \ |
| (tclStubsPtr->tcl_SetNotifier) |
| #define Tcl_GetAllocMutex \ |
| (tclStubsPtr->tcl_GetAllocMutex) |
| #define Tcl_GetChannelNames \ |
| (tclStubsPtr->tcl_GetChannelNames) |
| #define Tcl_GetChannelNamesEx \ |
| (tclStubsPtr->tcl_GetChannelNamesEx) |
| #define Tcl_ProcObjCmd \ |
| (tclStubsPtr->tcl_ProcObjCmd) |
| #define Tcl_ConditionFinalize \ |
| (tclStubsPtr->tcl_ConditionFinalize) |
| #define Tcl_MutexFinalize \ |
| (tclStubsPtr->tcl_MutexFinalize) |
| #define Tcl_CreateThread \ |
| (tclStubsPtr->tcl_CreateThread) |
| #define Tcl_ReadRaw \ |
| (tclStubsPtr->tcl_ReadRaw) |
| #define Tcl_WriteRaw \ |
| (tclStubsPtr->tcl_WriteRaw) |
| #define Tcl_GetTopChannel \ |
| (tclStubsPtr->tcl_GetTopChannel) |
| #define Tcl_ChannelBuffered \ |
| (tclStubsPtr->tcl_ChannelBuffered) |
| #define Tcl_ChannelName \ |
| (tclStubsPtr->tcl_ChannelName) |
| #define Tcl_ChannelVersion \ |
| (tclStubsPtr->tcl_ChannelVersion) |
| #define Tcl_ChannelBlockModeProc \ |
| (tclStubsPtr->tcl_ChannelBlockModeProc) |
| #define Tcl_ChannelCloseProc \ |
| (tclStubsPtr->tcl_ChannelCloseProc) |
| #define Tcl_ChannelClose2Proc \ |
| (tclStubsPtr->tcl_ChannelClose2Proc) |
| #define Tcl_ChannelInputProc \ |
| (tclStubsPtr->tcl_ChannelInputProc) |
| #define Tcl_ChannelOutputProc \ |
| (tclStubsPtr->tcl_ChannelOutputProc) |
| #define Tcl_ChannelSeekProc \ |
| (tclStubsPtr->tcl_ChannelSeekProc) |
| #define Tcl_ChannelSetOptionProc \ |
| (tclStubsPtr->tcl_ChannelSetOptionProc) |
| #define Tcl_ChannelGetOptionProc \ |
| (tclStubsPtr->tcl_ChannelGetOptionProc) |
| #define Tcl_ChannelWatchProc \ |
| (tclStubsPtr->tcl_ChannelWatchProc) |
| #define Tcl_ChannelGetHandleProc \ |
| (tclStubsPtr->tcl_ChannelGetHandleProc) |
| #define Tcl_ChannelFlushProc \ |
| (tclStubsPtr->tcl_ChannelFlushProc) |
| #define Tcl_ChannelHandlerProc \ |
| (tclStubsPtr->tcl_ChannelHandlerProc) |
| #define Tcl_JoinThread \ |
| (tclStubsPtr->tcl_JoinThread) |
| #define Tcl_IsChannelShared \ |
| (tclStubsPtr->tcl_IsChannelShared) |
| #define Tcl_IsChannelRegistered \ |
| (tclStubsPtr->tcl_IsChannelRegistered) |
| #define Tcl_CutChannel \ |
| (tclStubsPtr->tcl_CutChannel) |
| #define Tcl_SpliceChannel \ |
| (tclStubsPtr->tcl_SpliceChannel) |
| #define Tcl_ClearChannelHandlers \ |
| (tclStubsPtr->tcl_ClearChannelHandlers) |
| #define Tcl_IsChannelExisting \ |
| (tclStubsPtr->tcl_IsChannelExisting) |
| #define Tcl_UniCharNcasecmp \ |
| (tclStubsPtr->tcl_UniCharNcasecmp) |
| #define Tcl_UniCharCaseMatch \ |
| (tclStubsPtr->tcl_UniCharCaseMatch) |
| #define Tcl_FindHashEntry \ |
| (tclStubsPtr->tcl_FindHashEntry) |
| #define Tcl_CreateHashEntry \ |
| (tclStubsPtr->tcl_CreateHashEntry) |
| #define Tcl_InitCustomHashTable \ |
| (tclStubsPtr->tcl_InitCustomHashTable) |
| #define Tcl_InitObjHashTable \ |
| (tclStubsPtr->tcl_InitObjHashTable) |
| #define Tcl_CommandTraceInfo \ |
| (tclStubsPtr->tcl_CommandTraceInfo) |
| #define Tcl_TraceCommand \ |
| (tclStubsPtr->tcl_TraceCommand) |
| #define Tcl_UntraceCommand \ |
| (tclStubsPtr->tcl_UntraceCommand) |
| #define Tcl_AttemptAlloc \ |
| (tclStubsPtr->tcl_AttemptAlloc) |
| #define Tcl_AttemptDbCkalloc \ |
| (tclStubsPtr->tcl_AttemptDbCkalloc) |
| #define Tcl_AttemptRealloc \ |
| (tclStubsPtr->tcl_AttemptRealloc) |
| #define Tcl_AttemptDbCkrealloc \ |
| (tclStubsPtr->tcl_AttemptDbCkrealloc) |
| #define Tcl_AttemptSetObjLength \ |
| (tclStubsPtr->tcl_AttemptSetObjLength) |
| #define Tcl_GetChannelThread \ |
| (tclStubsPtr->tcl_GetChannelThread) |
| #define Tcl_GetUnicodeFromObj \ |
| (tclStubsPtr->tcl_GetUnicodeFromObj) |
| #define Tcl_GetMathFuncInfo \ |
| (tclStubsPtr->tcl_GetMathFuncInfo) |
| #define Tcl_ListMathFuncs \ |
| (tclStubsPtr->tcl_ListMathFuncs) |
| #define Tcl_SubstObj \ |
| (tclStubsPtr->tcl_SubstObj) |
| #define Tcl_DetachChannel \ |
| (tclStubsPtr->tcl_DetachChannel) |
| #define Tcl_IsStandardChannel \ |
| (tclStubsPtr->tcl_IsStandardChannel) |
| #define Tcl_FSCopyFile \ |
| (tclStubsPtr->tcl_FSCopyFile) |
| #define Tcl_FSCopyDirectory \ |
| (tclStubsPtr->tcl_FSCopyDirectory) |
| #define Tcl_FSCreateDirectory \ |
| (tclStubsPtr->tcl_FSCreateDirectory) |
| #define Tcl_FSDeleteFile \ |
| (tclStubsPtr->tcl_FSDeleteFile) |
| #define Tcl_FSLoadFile \ |
| (tclStubsPtr->tcl_FSLoadFile) |
| #define Tcl_FSMatchInDirectory \ |
| (tclStubsPtr->tcl_FSMatchInDirectory) |
| #define Tcl_FSLink \ |
| (tclStubsPtr->tcl_FSLink) |
| #define Tcl_FSRemoveDirectory \ |
| (tclStubsPtr->tcl_FSRemoveDirectory) |
| #define Tcl_FSRenameFile \ |
| (tclStubsPtr->tcl_FSRenameFile) |
| #define Tcl_FSLstat \ |
| (tclStubsPtr->tcl_FSLstat) |
| #define Tcl_FSUtime \ |
| (tclStubsPtr->tcl_FSUtime) |
| #define Tcl_FSFileAttrsGet \ |
| (tclStubsPtr->tcl_FSFileAttrsGet) |
| #define Tcl_FSFileAttrsSet \ |
| (tclStubsPtr->tcl_FSFileAttrsSet) |
| #define Tcl_FSFileAttrStrings \ |
| (tclStubsPtr->tcl_FSFileAttrStrings) |
| #define Tcl_FSStat \ |
| (tclStubsPtr->tcl_FSStat) |
| #define Tcl_FSAccess \ |
| (tclStubsPtr->tcl_FSAccess) |
| #define Tcl_FSOpenFileChannel \ |
| (tclStubsPtr->tcl_FSOpenFileChannel) |
| #define Tcl_FSGetCwd \ |
| (tclStubsPtr->tcl_FSGetCwd) |
| #define Tcl_FSChdir \ |
| (tclStubsPtr->tcl_FSChdir) |
| #define Tcl_FSConvertToPathType \ |
| (tclStubsPtr->tcl_FSConvertToPathType) |
| #define Tcl_FSJoinPath \ |
| (tclStubsPtr->tcl_FSJoinPath) |
| #define Tcl_FSSplitPath \ |
| (tclStubsPtr->tcl_FSSplitPath) |
| #define Tcl_FSEqualPaths \ |
| (tclStubsPtr->tcl_FSEqualPaths) |
| #define Tcl_FSGetNormalizedPath \ |
| (tclStubsPtr->tcl_FSGetNormalizedPath) |
| #define Tcl_FSJoinToPath \ |
| (tclStubsPtr->tcl_FSJoinToPath) |
| #define Tcl_FSGetInternalRep \ |
| (tclStubsPtr->tcl_FSGetInternalRep) |
| #define Tcl_FSGetTranslatedPath \ |
| (tclStubsPtr->tcl_FSGetTranslatedPath) |
| #define Tcl_FSEvalFile \ |
| (tclStubsPtr->tcl_FSEvalFile) |
| #define Tcl_FSNewNativePath \ |
| (tclStubsPtr->tcl_FSNewNativePath) |
| #define Tcl_FSGetNativePath \ |
| (tclStubsPtr->tcl_FSGetNativePath) |
| #define Tcl_FSFileSystemInfo \ |
| (tclStubsPtr->tcl_FSFileSystemInfo) |
| #define Tcl_FSPathSeparator \ |
| (tclStubsPtr->tcl_FSPathSeparator) |
| #define Tcl_FSListVolumes \ |
| (tclStubsPtr->tcl_FSListVolumes) |
| #define Tcl_FSRegister \ |
| (tclStubsPtr->tcl_FSRegister) |
| #define Tcl_FSUnregister \ |
| (tclStubsPtr->tcl_FSUnregister) |
| #define Tcl_FSData \ |
| (tclStubsPtr->tcl_FSData) |
| #define Tcl_FSGetTranslatedStringPath \ |
| (tclStubsPtr->tcl_FSGetTranslatedStringPath) |
| #define Tcl_FSGetFileSystemForPath \ |
| (tclStubsPtr->tcl_FSGetFileSystemForPath) |
| #define Tcl_FSGetPathType \ |
| (tclStubsPtr->tcl_FSGetPathType) |
| #define Tcl_OutputBuffered \ |
| (tclStubsPtr->tcl_OutputBuffered) |
| #define Tcl_FSMountsChanged \ |
| (tclStubsPtr->tcl_FSMountsChanged) |
| #define Tcl_EvalTokensStandard \ |
| (tclStubsPtr->tcl_EvalTokensStandard) |
| #define Tcl_GetTime \ |
| (tclStubsPtr->tcl_GetTime) |
| #define Tcl_CreateObjTrace \ |
| (tclStubsPtr->tcl_CreateObjTrace) |
| #define Tcl_GetCommandInfoFromToken \ |
| (tclStubsPtr->tcl_GetCommandInfoFromToken) |
| #define Tcl_SetCommandInfoFromToken \ |
| (tclStubsPtr->tcl_SetCommandInfoFromToken) |
| #define Tcl_DbNewWideIntObj \ |
| (tclStubsPtr->tcl_DbNewWideIntObj) |
| #define Tcl_GetWideIntFromObj \ |
| (tclStubsPtr->tcl_GetWideIntFromObj) |
| #define Tcl_NewWideIntObj \ |
| (tclStubsPtr->tcl_NewWideIntObj) |
| #define Tcl_SetWideIntObj \ |
| (tclStubsPtr->tcl_SetWideIntObj) |
| #define Tcl_AllocStatBuf \ |
| (tclStubsPtr->tcl_AllocStatBuf) |
| #define Tcl_Seek \ |
| (tclStubsPtr->tcl_Seek) |
| #define Tcl_Tell \ |
| (tclStubsPtr->tcl_Tell) |
| #define Tcl_ChannelWideSeekProc \ |
| (tclStubsPtr->tcl_ChannelWideSeekProc) |
| #define Tcl_DictObjPut \ |
| (tclStubsPtr->tcl_DictObjPut) |
| #define Tcl_DictObjGet \ |
| (tclStubsPtr->tcl_DictObjGet) |
| #define Tcl_DictObjRemove \ |
| (tclStubsPtr->tcl_DictObjRemove) |
| #define Tcl_DictObjSize \ |
| (tclStubsPtr->tcl_DictObjSize) |
| #define Tcl_DictObjFirst \ |
| (tclStubsPtr->tcl_DictObjFirst) |
| #define Tcl_DictObjNext \ |
| (tclStubsPtr->tcl_DictObjNext) |
| #define Tcl_DictObjDone \ |
| (tclStubsPtr->tcl_DictObjDone) |
| #define Tcl_DictObjPutKeyList \ |
| (tclStubsPtr->tcl_DictObjPutKeyList) |
| #define Tcl_DictObjRemoveKeyList \ |
| (tclStubsPtr->tcl_DictObjRemoveKeyList) |
| #define Tcl_NewDictObj \ |
| (tclStubsPtr->tcl_NewDictObj) |
| #define Tcl_DbNewDictObj \ |
| (tclStubsPtr->tcl_DbNewDictObj) |
| #define Tcl_RegisterConfig \ |
| (tclStubsPtr->tcl_RegisterConfig) |
| #define Tcl_CreateNamespace \ |
| (tclStubsPtr->tcl_CreateNamespace) |
| #define Tcl_DeleteNamespace \ |
| (tclStubsPtr->tcl_DeleteNamespace) |
| #define Tcl_AppendExportList \ |
| (tclStubsPtr->tcl_AppendExportList) |
| #define Tcl_Export \ |
| (tclStubsPtr->tcl_Export) |
| #define Tcl_Import \ |
| (tclStubsPtr->tcl_Import) |
| #define Tcl_ForgetImport \ |
| (tclStubsPtr->tcl_ForgetImport) |
| #define Tcl_GetCurrentNamespace \ |
| (tclStubsPtr->tcl_GetCurrentNamespace) |
| #define Tcl_GetGlobalNamespace \ |
| (tclStubsPtr->tcl_GetGlobalNamespace) |
| #define Tcl_FindNamespace \ |
| (tclStubsPtr->tcl_FindNamespace) |
| #define Tcl_FindCommand \ |
| (tclStubsPtr->tcl_FindCommand) |
| #define Tcl_GetCommandFromObj \ |
| (tclStubsPtr->tcl_GetCommandFromObj) |
| #define Tcl_GetCommandFullName \ |
| (tclStubsPtr->tcl_GetCommandFullName) |
| #define Tcl_FSEvalFileEx \ |
| (tclStubsPtr->tcl_FSEvalFileEx) |
| #define Tcl_SetExitProc \ |
| (tclStubsPtr->tcl_SetExitProc) |
| #define Tcl_LimitAddHandler \ |
| (tclStubsPtr->tcl_LimitAddHandler) |
| #define Tcl_LimitRemoveHandler \ |
| (tclStubsPtr->tcl_LimitRemoveHandler) |
| #define Tcl_LimitReady \ |
| (tclStubsPtr->tcl_LimitReady) |
| #define Tcl_LimitCheck \ |
| (tclStubsPtr->tcl_LimitCheck) |
| #define Tcl_LimitExceeded \ |
| (tclStubsPtr->tcl_LimitExceeded) |
| #define Tcl_LimitSetCommands \ |
| (tclStubsPtr->tcl_LimitSetCommands) |
| #define Tcl_LimitSetTime \ |
| (tclStubsPtr->tcl_LimitSetTime) |
| #define Tcl_LimitSetGranularity \ |
| (tclStubsPtr->tcl_LimitSetGranularity) |
| #define Tcl_LimitTypeEnabled \ |
| (tclStubsPtr->tcl_LimitTypeEnabled) |
| #define Tcl_LimitTypeExceeded \ |
| (tclStubsPtr->tcl_LimitTypeExceeded) |
| #define Tcl_LimitTypeSet \ |
| (tclStubsPtr->tcl_LimitTypeSet) |
| #define Tcl_LimitTypeReset \ |
| (tclStubsPtr->tcl_LimitTypeReset) |
| #define Tcl_LimitGetCommands \ |
| (tclStubsPtr->tcl_LimitGetCommands) |
| #define Tcl_LimitGetTime \ |
| (tclStubsPtr->tcl_LimitGetTime) |
| #define Tcl_LimitGetGranularity \ |
| (tclStubsPtr->tcl_LimitGetGranularity) |
| #define Tcl_SaveInterpState \ |
| (tclStubsPtr->tcl_SaveInterpState) |
| #define Tcl_RestoreInterpState \ |
| (tclStubsPtr->tcl_RestoreInterpState) |
| #define Tcl_DiscardInterpState \ |
| (tclStubsPtr->tcl_DiscardInterpState) |
| #define Tcl_SetReturnOptions \ |
| (tclStubsPtr->tcl_SetReturnOptions) |
| #define Tcl_GetReturnOptions \ |
| (tclStubsPtr->tcl_GetReturnOptions) |
| #define Tcl_IsEnsemble \ |
| (tclStubsPtr->tcl_IsEnsemble) |
| #define Tcl_CreateEnsemble \ |
| (tclStubsPtr->tcl_CreateEnsemble) |
| #define Tcl_FindEnsemble \ |
| (tclStubsPtr->tcl_FindEnsemble) |
| #define Tcl_SetEnsembleSubcommandList \ |
| (tclStubsPtr->tcl_SetEnsembleSubcommandList) |
| #define Tcl_SetEnsembleMappingDict \ |
| (tclStubsPtr->tcl_SetEnsembleMappingDict) |
| #define Tcl_SetEnsembleUnknownHandler \ |
| (tclStubsPtr->tcl_SetEnsembleUnknownHandler) |
| #define Tcl_SetEnsembleFlags \ |
| (tclStubsPtr->tcl_SetEnsembleFlags) |
| #define Tcl_GetEnsembleSubcommandList \ |
| (tclStubsPtr->tcl_GetEnsembleSubcommandList) |
| #define Tcl_GetEnsembleMappingDict \ |
| (tclStubsPtr->tcl_GetEnsembleMappingDict) |
| #define Tcl_GetEnsembleUnknownHandler \ |
| (tclStubsPtr->tcl_GetEnsembleUnknownHandler) |
| #define Tcl_GetEnsembleFlags \ |
| (tclStubsPtr->tcl_GetEnsembleFlags) |
| #define Tcl_GetEnsembleNamespace \ |
| (tclStubsPtr->tcl_GetEnsembleNamespace) |
| #define Tcl_SetTimeProc \ |
| (tclStubsPtr->tcl_SetTimeProc) |
| #define Tcl_QueryTimeProc \ |
| (tclStubsPtr->tcl_QueryTimeProc) |
| #define Tcl_ChannelThreadActionProc \ |
| (tclStubsPtr->tcl_ChannelThreadActionProc) |
| #define Tcl_NewBignumObj \ |
| (tclStubsPtr->tcl_NewBignumObj) |
| #define Tcl_DbNewBignumObj \ |
| (tclStubsPtr->tcl_DbNewBignumObj) |
| #define Tcl_SetBignumObj \ |
| (tclStubsPtr->tcl_SetBignumObj) |
| #define Tcl_GetBignumFromObj \ |
| (tclStubsPtr->tcl_GetBignumFromObj) |
| #define Tcl_TakeBignumFromObj \ |
| (tclStubsPtr->tcl_TakeBignumFromObj) |
| #define Tcl_TruncateChannel \ |
| (tclStubsPtr->tcl_TruncateChannel) |
| #define Tcl_ChannelTruncateProc \ |
| (tclStubsPtr->tcl_ChannelTruncateProc) |
| #define Tcl_SetChannelErrorInterp \ |
| (tclStubsPtr->tcl_SetChannelErrorInterp) |
| #define Tcl_GetChannelErrorInterp \ |
| (tclStubsPtr->tcl_GetChannelErrorInterp) |
| #define Tcl_SetChannelError \ |
| (tclStubsPtr->tcl_SetChannelError) |
| #define Tcl_GetChannelError \ |
| (tclStubsPtr->tcl_GetChannelError) |
| #define Tcl_InitBignumFromDouble \ |
| (tclStubsPtr->tcl_InitBignumFromDouble) |
| #define Tcl_GetNamespaceUnknownHandler \ |
| (tclStubsPtr->tcl_GetNamespaceUnknownHandler) |
| #define Tcl_SetNamespaceUnknownHandler \ |
| (tclStubsPtr->tcl_SetNamespaceUnknownHandler) |
| #define Tcl_GetEncodingFromObj \ |
| (tclStubsPtr->tcl_GetEncodingFromObj) |
| #define Tcl_GetEncodingSearchPath \ |
| (tclStubsPtr->tcl_GetEncodingSearchPath) |
| #define Tcl_SetEncodingSearchPath \ |
| (tclStubsPtr->tcl_SetEncodingSearchPath) |
| #define Tcl_GetEncodingNameFromEnvironment \ |
| (tclStubsPtr->tcl_GetEncodingNameFromEnvironment) |
| #define Tcl_PkgRequireProc \ |
| (tclStubsPtr->tcl_PkgRequireProc) |
| #define Tcl_AppendObjToErrorInfo \ |
| (tclStubsPtr->tcl_AppendObjToErrorInfo) |
| #define Tcl_AppendLimitedToObj \ |
| (tclStubsPtr->tcl_AppendLimitedToObj) |
| #define Tcl_Format \ |
| (tclStubsPtr->tcl_Format) |
| #define Tcl_AppendFormatToObj \ |
| (tclStubsPtr->tcl_AppendFormatToObj) |
| #define Tcl_ObjPrintf \ |
| (tclStubsPtr->tcl_ObjPrintf) |
| #define Tcl_AppendPrintfToObj \ |
| (tclStubsPtr->tcl_AppendPrintfToObj) |
| #define Tcl_CancelEval \ |
| (tclStubsPtr->tcl_CancelEval) |
| #define Tcl_Canceled \ |
| (tclStubsPtr->tcl_Canceled) |
| #define Tcl_CreatePipe \ |
| (tclStubsPtr->tcl_CreatePipe) |
| #define Tcl_NRCreateCommand \ |
| (tclStubsPtr->tcl_NRCreateCommand) |
| #define Tcl_NREvalObj \ |
| (tclStubsPtr->tcl_NREvalObj) |
| #define Tcl_NREvalObjv \ |
| (tclStubsPtr->tcl_NREvalObjv) |
| #define Tcl_NRCmdSwap \ |
| (tclStubsPtr->tcl_NRCmdSwap) |
| #define Tcl_NRAddCallback \ |
| (tclStubsPtr->tcl_NRAddCallback) |
| #define Tcl_NRCallObjProc \ |
| (tclStubsPtr->tcl_NRCallObjProc) |
| #define Tcl_GetFSDeviceFromStat \ |
| (tclStubsPtr->tcl_GetFSDeviceFromStat) |
| #define Tcl_GetFSInodeFromStat \ |
| (tclStubsPtr->tcl_GetFSInodeFromStat) |
| #define Tcl_GetModeFromStat \ |
| (tclStubsPtr->tcl_GetModeFromStat) |
| #define Tcl_GetLinkCountFromStat \ |
| (tclStubsPtr->tcl_GetLinkCountFromStat) |
| #define Tcl_GetUserIdFromStat \ |
| (tclStubsPtr->tcl_GetUserIdFromStat) |
| #define Tcl_GetGroupIdFromStat \ |
| (tclStubsPtr->tcl_GetGroupIdFromStat) |
| #define Tcl_GetDeviceTypeFromStat \ |
| (tclStubsPtr->tcl_GetDeviceTypeFromStat) |
| #define Tcl_GetAccessTimeFromStat \ |
| (tclStubsPtr->tcl_GetAccessTimeFromStat) |
| #define Tcl_GetModificationTimeFromStat \ |
| (tclStubsPtr->tcl_GetModificationTimeFromStat) |
| #define Tcl_GetChangeTimeFromStat \ |
| (tclStubsPtr->tcl_GetChangeTimeFromStat) |
| #define Tcl_GetSizeFromStat \ |
| (tclStubsPtr->tcl_GetSizeFromStat) |
| #define Tcl_GetBlocksFromStat \ |
| (tclStubsPtr->tcl_GetBlocksFromStat) |
| #define Tcl_GetBlockSizeFromStat \ |
| (tclStubsPtr->tcl_GetBlockSizeFromStat) |
| #define Tcl_SetEnsembleParameterList \ |
| (tclStubsPtr->tcl_SetEnsembleParameterList) |
| #define Tcl_GetEnsembleParameterList \ |
| (tclStubsPtr->tcl_GetEnsembleParameterList) |
| #define Tcl_ParseArgsObjv \ |
| (tclStubsPtr->tcl_ParseArgsObjv) |
| #define Tcl_GetErrorLine \ |
| (tclStubsPtr->tcl_GetErrorLine) |
| #define Tcl_SetErrorLine \ |
| (tclStubsPtr->tcl_SetErrorLine) |
| #define Tcl_TransferResult \ |
| (tclStubsPtr->tcl_TransferResult) |
| #define Tcl_InterpActive \ |
| (tclStubsPtr->tcl_InterpActive) |
| #define Tcl_BackgroundException \ |
| (tclStubsPtr->tcl_BackgroundException) |
| #define Tcl_ZlibDeflate \ |
| (tclStubsPtr->tcl_ZlibDeflate) |
| #define Tcl_ZlibInflate \ |
| (tclStubsPtr->tcl_ZlibInflate) |
| #define Tcl_ZlibCRC32 \ |
| (tclStubsPtr->tcl_ZlibCRC32) |
| #define Tcl_ZlibAdler32 \ |
| (tclStubsPtr->tcl_ZlibAdler32) |
| #define Tcl_ZlibStreamInit \ |
| (tclStubsPtr->tcl_ZlibStreamInit) |
| #define Tcl_ZlibStreamGetCommandName \ |
| (tclStubsPtr->tcl_ZlibStreamGetCommandName) |
| #define Tcl_ZlibStreamEof \ |
| (tclStubsPtr->tcl_ZlibStreamEof) |
| #define Tcl_ZlibStreamChecksum \ |
| (tclStubsPtr->tcl_ZlibStreamChecksum) |
| #define Tcl_ZlibStreamPut \ |
| (tclStubsPtr->tcl_ZlibStreamPut) |
| #define Tcl_ZlibStreamGet \ |
| (tclStubsPtr->tcl_ZlibStreamGet) |
| #define Tcl_ZlibStreamClose \ |
| (tclStubsPtr->tcl_ZlibStreamClose) |
| #define Tcl_ZlibStreamReset \ |
| (tclStubsPtr->tcl_ZlibStreamReset) |
| #define Tcl_SetStartupScript \ |
| (tclStubsPtr->tcl_SetStartupScript) |
| #define Tcl_GetStartupScript \ |
| (tclStubsPtr->tcl_GetStartupScript) |
| #define Tcl_CloseEx \ |
| (tclStubsPtr->tcl_CloseEx) |
| #define Tcl_NRExprObj \ |
| (tclStubsPtr->tcl_NRExprObj) |
| #define Tcl_NRSubstObj \ |
| (tclStubsPtr->tcl_NRSubstObj) |
| #define Tcl_LoadFile \ |
| (tclStubsPtr->tcl_LoadFile) |
| #define Tcl_FindSymbol \ |
| (tclStubsPtr->tcl_FindSymbol) |
| #define Tcl_FSUnloadFile \ |
| (tclStubsPtr->tcl_FSUnloadFile) |
| #define Tcl_ZlibStreamSetCompressionDictionary \ |
| (tclStubsPtr->tcl_ZlibStreamSetCompressionDictionary) |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| #define TclUnusedStubEntry \ |
| (tclStubsPtr->tclUnusedStubEntry) |
|
|
| #endif |
|
|
| |
|
|
| #undef TclUnusedStubEntry |
|
|
| #if defined(USE_TCL_STUBS) |
| # undef Tcl_CreateInterp |
| # undef Tcl_FindExecutable |
| # undef Tcl_GetStringResult |
| # undef Tcl_Init |
| # undef Tcl_SetPanicProc |
| # undef Tcl_SetVar |
| # undef Tcl_ObjSetVar2 |
| # undef Tcl_StaticPackage |
| # define Tcl_CreateInterp() (tclStubsPtr->tcl_CreateInterp()) |
| # define Tcl_GetStringResult(interp) (tclStubsPtr->tcl_GetStringResult(interp)) |
| # define Tcl_Init(interp) (tclStubsPtr->tcl_Init(interp)) |
| # define Tcl_SetPanicProc(proc) (tclStubsPtr->tcl_SetPanicProc(proc)) |
| # define Tcl_SetVar(interp, varName, newValue, flags) \ |
| (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) |
| # define Tcl_ObjSetVar2(interp, part1, part2, newValue, flags) \ |
| (tclStubsPtr->tcl_ObjSetVar2(interp, part1, part2, newValue, flags)) |
| #ifndef __cplusplus |
| # undef Tcl_EventuallyFree |
| # define Tcl_EventuallyFree \ |
| ((void (*)(void *,void *))(void *)(tclStubsPtr->tcl_EventuallyFree)) |
| # undef Tcl_SetResult |
| # define Tcl_SetResult \ |
| ((void (*)(Tcl_Interp *, char *, void *))(void *)(tclStubsPtr->tcl_SetResult)) |
| #endif |
| #endif |
|
|
| #if defined(_WIN32) && defined(UNICODE) |
| # define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) |
| # define Tcl_MainEx Tcl_MainExW |
| EXTERN void Tcl_MainExW(int argc, wchar_t **argv, |
| Tcl_AppInitProc *appInitProc, Tcl_Interp *interp); |
| #endif |
|
|
| #undef TCL_STORAGE_CLASS |
| #define TCL_STORAGE_CLASS DLLIMPORT |
|
|
| #undef Tcl_SeekOld |
| #undef Tcl_TellOld |
|
|
| #undef Tcl_PkgPresent |
| #define Tcl_PkgPresent(interp, name, version, exact) \ |
| Tcl_PkgPresentEx(interp, name, version, exact, NULL) |
| #undef Tcl_PkgProvide |
| #define Tcl_PkgProvide(interp, name, version) \ |
| Tcl_PkgProvideEx(interp, name, version, NULL) |
| #undef Tcl_PkgRequire |
| #define Tcl_PkgRequire(interp, name, version, exact) \ |
| Tcl_PkgRequireEx(interp, name, version, exact, NULL) |
| #undef Tcl_GetIndexFromObj |
| #define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \ |
| Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, \ |
| sizeof(char *), msg, flags, indexPtr) |
| #undef Tcl_NewBooleanObj |
| #define Tcl_NewBooleanObj(intValue) \ |
| Tcl_NewIntObj((intValue)!=0) |
| #undef Tcl_DbNewBooleanObj |
| #define Tcl_DbNewBooleanObj(intValue, file, line) \ |
| Tcl_DbNewLongObj((intValue)!=0, file, line) |
| #undef Tcl_SetBooleanObj |
| #define Tcl_SetBooleanObj(objPtr, intValue) \ |
| Tcl_SetIntObj((objPtr), (intValue)!=0) |
| #undef Tcl_SetVar |
| #define Tcl_SetVar(interp, varName, newValue, flags) \ |
| Tcl_SetVar2(interp, varName, NULL, newValue, flags) |
| #undef Tcl_UnsetVar |
| #define Tcl_UnsetVar(interp, varName, flags) \ |
| Tcl_UnsetVar2(interp, varName, NULL, flags) |
| #undef Tcl_GetVar |
| #define Tcl_GetVar(interp, varName, flags) \ |
| Tcl_GetVar2(interp, varName, NULL, flags) |
| #undef Tcl_TraceVar |
| #define Tcl_TraceVar(interp, varName, flags, proc, clientData) \ |
| Tcl_TraceVar2(interp, varName, NULL, flags, proc, clientData) |
| #undef Tcl_UntraceVar |
| #define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \ |
| Tcl_UntraceVar2(interp, varName, NULL, flags, proc, clientData) |
| #undef Tcl_VarTraceInfo |
| #define Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData) \ |
| Tcl_VarTraceInfo2(interp, varName, NULL, flags, proc, prevClientData) |
| #undef Tcl_UpVar |
| #define Tcl_UpVar(interp, frameName, varName, localName, flags) \ |
| Tcl_UpVar2(interp, frameName, varName, NULL, localName, flags) |
|
|
| #if defined(USE_TCL_STUBS) |
| # if defined(_WIN32) && defined(_WIN64) |
| # undef Tcl_GetTime |
| |
| # define Tcl_GetTime(t) \ |
| do { \ |
| struct { \ |
| Tcl_Time now; \ |
| __int64 reserved; \ |
| } _t; \ |
| _t.reserved = -1; \ |
| tclStubsPtr->tcl_GetTime((&_t.now)); \ |
| if (_t.reserved != -1) { \ |
| _t.now.usec = (long) _t.reserved; \ |
| } \ |
| *(t) = _t.now; \ |
| } while (0) |
| # endif |
| # if defined(__CYGWIN__) && defined(TCL_WIDE_INT_IS_LONG) |
| |
| |
| |
| |
| |
| |
| |
| # undef Tcl_DbNewLongObj |
| # undef Tcl_GetLongFromObj |
| # undef Tcl_NewLongObj |
| # undef Tcl_SetLongObj |
| # undef Tcl_ExprLong |
| # undef Tcl_ExprLongObj |
| # undef Tcl_UniCharNcmp |
| # undef Tcl_UtfNcmp |
| # undef Tcl_UtfNcasecmp |
| # undef Tcl_UniCharNcasecmp |
| # define Tcl_DbNewLongObj ((Tcl_Obj*(*)(long,const char*,int))(void *)Tcl_DbNewWideIntObj) |
| # define Tcl_GetLongFromObj ((int(*)(Tcl_Interp*,Tcl_Obj*,long*))(void *)Tcl_GetWideIntFromObj) |
| # define Tcl_NewLongObj ((Tcl_Obj*(*)(long))(void *)Tcl_NewWideIntObj) |
| # define Tcl_SetLongObj ((void(*)(Tcl_Obj*,long))(void *)Tcl_SetWideIntObj) |
| # define Tcl_ExprLong TclExprLong |
| static inline int TclExprLong(Tcl_Interp *interp, const char *string, long *ptr){ |
| int intValue; |
| int result = tclStubsPtr->tcl_ExprLong(interp, string, (long *)&intValue); |
| if (result == TCL_OK) *ptr = (long)intValue; |
| return result; |
| } |
| # define Tcl_ExprLongObj TclExprLongObj |
| static inline int TclExprLongObj(Tcl_Interp *interp, Tcl_Obj *obj, long *ptr){ |
| int intValue; |
| int result = tclStubsPtr->tcl_ExprLongObj(interp, obj, (long *)&intValue); |
| if (result == TCL_OK) *ptr = (long)intValue; |
| return result; |
| } |
| # define Tcl_UniCharNcmp(ucs,uct,n) \ |
| ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))(void *)tclStubsPtr->tcl_UniCharNcmp)(ucs,uct,(unsigned int)(n)) |
| # define Tcl_UtfNcmp(s1,s2,n) \ |
| ((int(*)(const char*,const char*,unsigned int))(void *)tclStubsPtr->tcl_UtfNcmp)(s1,s2,(unsigned int)(n)) |
| # define Tcl_UtfNcasecmp(s1,s2,n) \ |
| ((int(*)(const char*,const char*,unsigned int))(void *)tclStubsPtr->tcl_UtfNcasecmp)(s1,s2,(unsigned int)(n)) |
| # define Tcl_UniCharNcasecmp(ucs,uct,n) \ |
| ((int(*)(const Tcl_UniChar*,const Tcl_UniChar*,unsigned int))(void *)tclStubsPtr->tcl_UniCharNcasecmp)(ucs,uct,(unsigned int)(n)) |
| # endif |
| #endif |
|
|
| |
| |
| |
|
|
| #undef Tcl_EvalObj |
| #define Tcl_EvalObj(interp,objPtr) \ |
| Tcl_EvalObjEx((interp),(objPtr),0) |
| #undef Tcl_GlobalEvalObj |
| #define Tcl_GlobalEvalObj(interp,objPtr) \ |
| Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) |
| #define Tcl_CreateChild Tcl_CreateSlave |
| #define Tcl_GetChild Tcl_GetSlave |
| #define Tcl_GetParent Tcl_GetMaster |
|
|
| #endif |
|
|
