sl@0: # tcl.decls --
sl@0: #
sl@0: #	This file contains the declarations for all supported public
sl@0: #	functions that are exported by the Tcl library via the stubs table.
sl@0: #	This file is used to generate the tclDecls.h, tclPlatDecls.h,
sl@0: #	tclStub.c, and tclPlatStub.c files.
sl@0: #	
sl@0: #
sl@0: # Copyright (c) 1998-1999 by Scriptics Corporation.
sl@0: # Copyright (c) 2001, 2002 by Kevin B. Kenny.  All rights reserved.
sl@0: # See the file "license.terms" for information on usage and redistribution
sl@0: # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
sl@0: # 
sl@0: # RCS: @(#) $Id: tcl.decls,v 1.94.2.4 2006/09/22 01:26:22 andreas_kupries Exp $
sl@0: 
sl@0: library tcl
sl@0: 
sl@0: # Define the tcl interface with several sub interfaces:
sl@0: #     tclPlat	 - platform specific public
sl@0: #     tclInt	 - generic private
sl@0: #     tclPlatInt - platform specific private
sl@0: 
sl@0: interface tcl
sl@0: hooks {tclPlat tclInt tclIntPlat}
sl@0: 
sl@0: # Declare each of the functions in the public Tcl interface.  Note that
sl@0: # the an index should never be reused for a different function in order
sl@0: # to preserve backwards compatibility.
sl@0: 
sl@0: declare 0 generic {
sl@0:     int Tcl_PkgProvideEx(Tcl_Interp* interp, CONST char* name,
sl@0: 	    CONST char* version, ClientData clientData)
sl@0: }
sl@0: declare 1 generic {
sl@0:     CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, CONST char *name,
sl@0: 	    CONST char *version, int exact, ClientData *clientDataPtr)
sl@0: }
sl@0: declare 2 generic {
sl@0:     void Tcl_Panic(CONST char *format, ...)
sl@0: }
sl@0: declare 3 generic {
sl@0:     char * Tcl_Alloc(unsigned int size)
sl@0: }
sl@0: declare 4 generic {
sl@0:     void Tcl_Free(char *ptr)
sl@0: }
sl@0: declare 5 generic {
sl@0:     char * Tcl_Realloc(char *ptr, unsigned int size)
sl@0: }
sl@0: declare 6 generic {
sl@0:     char * Tcl_DbCkalloc(unsigned int size, CONST char *file, int line)
sl@0: }
sl@0: declare 7 generic {
sl@0:     int Tcl_DbCkfree(char *ptr, CONST char *file, int line)
sl@0: }
sl@0: declare 8 generic {
sl@0:     char * Tcl_DbCkrealloc(char *ptr, unsigned int size,
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: 
sl@0: # Tcl_CreateFileHandler and Tcl_DeleteFileHandler are only available on unix,
sl@0: # but they are part of the old generic interface, so we include them here for
sl@0: # compatibility reasons.
sl@0: 
sl@0: declare 9 unix {
sl@0:     void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 10 unix {
sl@0:     void Tcl_DeleteFileHandler(int fd)
sl@0: }
sl@0: 
sl@0: declare 11 generic {
sl@0:     void Tcl_SetTimer(Tcl_Time *timePtr)
sl@0: }
sl@0: declare 12 generic {
sl@0:     void Tcl_Sleep(int ms)
sl@0: }
sl@0: declare 13 generic {
sl@0:     int Tcl_WaitForEvent(Tcl_Time *timePtr)
sl@0: }
sl@0: declare 14 generic {
sl@0:     int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 15 generic {
sl@0:     void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...)
sl@0: }
sl@0: declare 16 generic {
sl@0:     void Tcl_AppendToObj(Tcl_Obj* objPtr, CONST char* bytes, int length)
sl@0: }
sl@0: declare 17 generic {
sl@0:     Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 18 generic {
sl@0:     int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    Tcl_ObjType *typePtr)
sl@0: }
sl@0: declare 19 generic {
sl@0:     void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file, int line)
sl@0: }
sl@0: declare 20 generic {
sl@0:     void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file, int line)
sl@0: }
sl@0: declare 21 generic {
sl@0:     int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, int line)
sl@0: }
sl@0: declare 22 generic {
sl@0:     Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, int line)
sl@0: }
sl@0: declare 23 generic {
sl@0:     Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, int length,
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: declare 24 generic {
sl@0:     Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: declare 25 generic {
sl@0:     Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, 
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: declare 26 generic {
sl@0:     Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, int line)
sl@0: }
sl@0: declare 27 generic {
sl@0:     Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line)
sl@0: }
sl@0: declare 28 generic {
sl@0:     Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length,
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: declare 29 generic {
sl@0:     Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 30 generic {
sl@0:     void TclFreeObj(Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 31 generic {
sl@0:     int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *str, int *boolPtr)
sl@0: }
sl@0: declare 32 generic {
sl@0:     int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    int *boolPtr)
sl@0: }
sl@0: declare 33 generic {
sl@0:     unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr)
sl@0: }
sl@0: declare 34 generic {
sl@0:     int Tcl_GetDouble(Tcl_Interp *interp, CONST char *str, double *doublePtr)
sl@0: }
sl@0: declare 35 generic {
sl@0:     int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    double *doublePtr)
sl@0: }
sl@0: declare 36 generic {
sl@0:     int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr)
sl@0: }
sl@0: declare 37 generic {
sl@0:     int Tcl_GetInt(Tcl_Interp *interp, CONST char *str, int *intPtr)
sl@0: }
sl@0: declare 38 generic {
sl@0:     int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr)
sl@0: }
sl@0: declare 39 generic {
sl@0:     int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)
sl@0: }
sl@0: declare 40 generic {
sl@0:     Tcl_ObjType * Tcl_GetObjType(CONST char *typeName)
sl@0: }
sl@0: declare 41 generic {
sl@0:     char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr)
sl@0: }
sl@0: declare 42 generic {
sl@0:     void Tcl_InvalidateStringRep(Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 43 generic {
sl@0:     int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr,
sl@0: 	    Tcl_Obj *elemListPtr)
sl@0: }
sl@0: declare 44 generic {
sl@0:     int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr,
sl@0: 	    Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 45 generic {
sl@0:     int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr,
sl@0: 	    int *objcPtr, Tcl_Obj ***objvPtr)
sl@0: }
sl@0: declare 46 generic {
sl@0:     int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index,
sl@0: 	    Tcl_Obj **objPtrPtr)
sl@0: }
sl@0: declare 47 generic {
sl@0:     int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr,
sl@0: 	    int *lengthPtr)
sl@0: }
sl@0: declare 48 generic {
sl@0:     int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first,
sl@0: 	    int count, int objc, Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 49 generic {
sl@0:     Tcl_Obj *Tcl_NewBooleanObj(int boolValue)
sl@0: }
sl@0: declare 50 generic {
sl@0:     Tcl_Obj *Tcl_NewByteArrayObj(CONST unsigned char* bytes, int length)
sl@0: }
sl@0: declare 51 generic {
sl@0:     Tcl_Obj * Tcl_NewDoubleObj(double doubleValue)
sl@0: }
sl@0: declare 52 generic {
sl@0:     Tcl_Obj * Tcl_NewIntObj(int intValue)
sl@0: }
sl@0: declare 53 generic {
sl@0:     Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 54 generic {
sl@0:     Tcl_Obj * Tcl_NewLongObj(long longValue)
sl@0: }
sl@0: declare 55 generic {
sl@0:     Tcl_Obj * Tcl_NewObj(void)
sl@0: }
sl@0: declare 56 generic {
sl@0:     Tcl_Obj *Tcl_NewStringObj(CONST char *bytes, int length)
sl@0: }
sl@0: declare 57 generic {
sl@0:     void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue)
sl@0: }
sl@0: declare 58 generic {
sl@0:     unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length)
sl@0: }
sl@0: declare 59 generic {
sl@0:     void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, CONST unsigned char *bytes,
sl@0: 	    int length)
sl@0: }
sl@0: declare 60 generic {
sl@0:     void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue)
sl@0: }
sl@0: declare 61 generic {
sl@0:     void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue)
sl@0: }
sl@0: declare 62 generic {
sl@0:     void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 63 generic {
sl@0:     void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue)
sl@0: }
sl@0: declare 64 generic {
sl@0:     void Tcl_SetObjLength(Tcl_Obj *objPtr, int length)
sl@0: }
sl@0: declare 65 generic {
sl@0:     void Tcl_SetStringObj(Tcl_Obj* objPtr, CONST char* bytes, int length)
sl@0: }
sl@0: declare 66 generic {
sl@0:     void Tcl_AddErrorInfo(Tcl_Interp *interp, CONST char *message)
sl@0: }
sl@0: declare 67 generic {
sl@0:     void Tcl_AddObjErrorInfo(Tcl_Interp *interp, CONST char *message,
sl@0: 	    int length)
sl@0: }
sl@0: declare 68 generic {
sl@0:     void Tcl_AllowExceptions(Tcl_Interp *interp)
sl@0: }
sl@0: declare 69 generic {
sl@0:     void Tcl_AppendElement(Tcl_Interp *interp, CONST char *string)
sl@0: }
sl@0: declare 70 generic {
sl@0:     void Tcl_AppendResult(Tcl_Interp *interp, ...)
sl@0: }
sl@0: declare 71 generic {
sl@0:     Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 72 generic {
sl@0:     void Tcl_AsyncDelete(Tcl_AsyncHandler async)
sl@0: }
sl@0: declare 73 generic {
sl@0:     int Tcl_AsyncInvoke(Tcl_Interp *interp, int code)
sl@0: }
sl@0: declare 74 generic {
sl@0:     void Tcl_AsyncMark(Tcl_AsyncHandler async)
sl@0: }
sl@0: declare 75 generic {
sl@0:     int Tcl_AsyncReady(void)
sl@0: }
sl@0: declare 76 generic {
sl@0:     void Tcl_BackgroundError(Tcl_Interp *interp)
sl@0: }
sl@0: declare 77 generic {
sl@0:     char Tcl_Backslash(CONST char *src, int *readPtr)
sl@0: }
sl@0: declare 78 generic {
sl@0:     int Tcl_BadChannelOption(Tcl_Interp *interp, CONST char *optionName,
sl@0: 	    CONST char *optionList)
sl@0: }
sl@0: declare 79 generic {
sl@0:     void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 80 generic {
sl@0:     void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData)
sl@0: }
sl@0: declare 81 generic {
sl@0:     int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)
sl@0: }
sl@0: declare 82 generic {
sl@0:     int Tcl_CommandComplete(CONST char *cmd)
sl@0: }
sl@0: declare 83 generic {
sl@0:     char * Tcl_Concat(int argc, CONST84 char * CONST *argv)
sl@0: }
sl@0: declare 84 generic {
sl@0:     int Tcl_ConvertElement(CONST char *src, char *dst, int flags)
sl@0: }
sl@0: declare 85 generic {
sl@0:     int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst,
sl@0: 	    int flags)
sl@0: }
sl@0: declare 86 generic {
sl@0:     int Tcl_CreateAlias(Tcl_Interp *slave, CONST char *slaveCmd,
sl@0: 	    Tcl_Interp *target, CONST char *targetCmd, int argc,
sl@0: 	    CONST84 char * CONST *argv)
sl@0: }
sl@0: declare 87 generic {
sl@0:     int Tcl_CreateAliasObj(Tcl_Interp *slave, CONST char *slaveCmd,
sl@0: 	    Tcl_Interp *target, CONST char *targetCmd, int objc,
sl@0: 	    Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 88 generic {
sl@0:     Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr,
sl@0: 	    CONST char *chanName, ClientData instanceData, int mask)
sl@0: }
sl@0: declare 89 generic {
sl@0:     void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,
sl@0: 	    Tcl_ChannelProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 90 generic {
sl@0:     void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 91 generic {
sl@0:     Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, CONST char *cmdName,
sl@0: 	    Tcl_CmdProc *proc, ClientData clientData,
sl@0: 	    Tcl_CmdDeleteProc *deleteProc)
sl@0: }
sl@0: declare 92 generic {
sl@0:     void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,
sl@0: 	    Tcl_EventCheckProc *checkProc, ClientData clientData)
sl@0: }
sl@0: declare 93 generic {
sl@0:     void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 94 generic {
sl@0:     Tcl_Interp * Tcl_CreateInterp(void)
sl@0: }
sl@0: declare 95 generic {
sl@0:     void Tcl_CreateMathFunc(Tcl_Interp *interp, CONST char *name,
sl@0: 	    int numArgs, Tcl_ValueType *argTypes, 
sl@0: 	    Tcl_MathProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 96 generic {
sl@0:     Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,
sl@0: 	    CONST char *cmdName,
sl@0: 	    Tcl_ObjCmdProc *proc, ClientData clientData,
sl@0: 	    Tcl_CmdDeleteProc *deleteProc)
sl@0: }
sl@0: declare 97 generic {
sl@0:     Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, CONST char *slaveName,
sl@0: 	    int isSafe)
sl@0: }
sl@0: declare 98 generic {
sl@0:     Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,
sl@0: 	    Tcl_TimerProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 99 generic {
sl@0:     Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,
sl@0: 	    Tcl_CmdTraceProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 100 generic {
sl@0:     void Tcl_DeleteAssocData(Tcl_Interp *interp, CONST char *name)
sl@0: }
sl@0: declare 101 generic {
sl@0:     void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 102 generic {
sl@0:     void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 103 generic {
sl@0:     int Tcl_DeleteCommand(Tcl_Interp *interp, CONST char *cmdName)
sl@0: }
sl@0: declare 104 generic {
sl@0:     int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
sl@0: }
sl@0: declare 105 generic {
sl@0:     void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 106 generic {
sl@0:     void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,
sl@0: 	    Tcl_EventCheckProc *checkProc, ClientData clientData)
sl@0: }
sl@0: declare 107 generic {
sl@0:     void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 108 generic {
sl@0:     void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr)
sl@0: }
sl@0: declare 109 generic {
sl@0:     void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr)
sl@0: }
sl@0: declare 110 generic {
sl@0:     void Tcl_DeleteInterp(Tcl_Interp *interp)
sl@0: }
sl@0: declare 111 {unix win} {
sl@0:     void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr)
sl@0: }
sl@0: declare 112 generic {
sl@0:     void Tcl_DeleteTimerHandler(Tcl_TimerToken token)
sl@0: }
sl@0: declare 113 generic {
sl@0:     void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace)
sl@0: }
sl@0: declare 114 generic {
sl@0:     void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,
sl@0: 	    Tcl_InterpDeleteProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 115 generic {
sl@0:     int Tcl_DoOneEvent(int flags)
sl@0: }
sl@0: declare 116 generic {
sl@0:     void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 117 generic {
sl@0:     char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *str, int length)
sl@0: }
sl@0: declare 118 generic {
sl@0:     char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string)
sl@0: }
sl@0: declare 119 generic {
sl@0:     void Tcl_DStringEndSublist(Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 120 generic {
sl@0:     void Tcl_DStringFree(Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 121 generic {
sl@0:     void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 122 generic {
sl@0:     void Tcl_DStringInit(Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 123 generic {
sl@0:     void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 124 generic {
sl@0:     void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length)
sl@0: }
sl@0: declare 125 generic {
sl@0:     void Tcl_DStringStartSublist(Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 126 generic {
sl@0:     int Tcl_Eof(Tcl_Channel chan)
sl@0: }
sl@0: declare 127 generic {
sl@0:     CONST84_RETURN char * Tcl_ErrnoId(void)
sl@0: }
sl@0: declare 128 generic {
sl@0:     CONST84_RETURN char * Tcl_ErrnoMsg(int err)
sl@0: }
sl@0: declare 129 generic {
sl@0:     int Tcl_Eval(Tcl_Interp *interp, CONST char *string)
sl@0: }
sl@0: # This is obsolete, use Tcl_FSEvalFile
sl@0: declare 130 generic {
sl@0:     int Tcl_EvalFile(Tcl_Interp *interp, CONST char *fileName)
sl@0: }
sl@0: declare 131 generic {
sl@0:     int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 132 generic {
sl@0:     void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc)
sl@0: }
sl@0: declare 133 generic {
sl@0:     void Tcl_Exit(int status)
sl@0: }
sl@0: declare 134 generic {
sl@0:     int Tcl_ExposeCommand(Tcl_Interp *interp, CONST char *hiddenCmdToken,
sl@0: 	    CONST char *cmdName)
sl@0: }
sl@0: declare 135 generic {
sl@0:     int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *str, int *ptr)
sl@0: }
sl@0: declare 136 generic {
sl@0:     int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)
sl@0: }
sl@0: declare 137 generic {
sl@0:     int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *str, double *ptr)
sl@0: }
sl@0: declare 138 generic {
sl@0:     int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)
sl@0: }
sl@0: declare 139 generic {
sl@0:     int Tcl_ExprLong(Tcl_Interp *interp, CONST char *str, long *ptr)
sl@0: }
sl@0: declare 140 generic {
sl@0:     int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)
sl@0: }
sl@0: declare 141 generic {
sl@0:     int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    Tcl_Obj **resultPtrPtr)
sl@0: }
sl@0: declare 142 generic {
sl@0:     int Tcl_ExprString(Tcl_Interp *interp, CONST char *string)
sl@0: }
sl@0: declare 143 generic {
sl@0:     void Tcl_Finalize(void)
sl@0: }
sl@0: declare 144 generic {
sl@0:     void Tcl_FindExecutable(CONST char *argv0)
sl@0: }
sl@0: declare 145 generic {
sl@0:     Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,
sl@0: 	    Tcl_HashSearch *searchPtr)
sl@0: }
sl@0: declare 146 generic {
sl@0:     int Tcl_Flush(Tcl_Channel chan)
sl@0: }
sl@0: declare 147 generic {
sl@0:     void Tcl_FreeResult(Tcl_Interp *interp)
sl@0: }
sl@0: declare 148 generic {
sl@0:     int Tcl_GetAlias(Tcl_Interp *interp, CONST char *slaveCmd,
sl@0: 	    Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr,
sl@0: 	    int *argcPtr, CONST84 char ***argvPtr)
sl@0: }
sl@0: declare 149 generic {
sl@0:     int Tcl_GetAliasObj(Tcl_Interp *interp, CONST char *slaveCmd,
sl@0: 	    Tcl_Interp **targetInterpPtr, CONST84 char **targetCmdPtr,
sl@0: 	    int *objcPtr, Tcl_Obj ***objv)
sl@0: }
sl@0: declare 150 generic {
sl@0:     ClientData Tcl_GetAssocData(Tcl_Interp *interp, CONST char *name,
sl@0: 	    Tcl_InterpDeleteProc **procPtr)
sl@0: }
sl@0: declare 151 generic {
sl@0:     Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, CONST char *chanName,
sl@0: 	    int *modePtr)
sl@0: }
sl@0: declare 152 generic {
sl@0:     int Tcl_GetChannelBufferSize(Tcl_Channel chan)
sl@0: }
sl@0: declare 153 generic {
sl@0:     int Tcl_GetChannelHandle(Tcl_Channel chan, int direction,
sl@0: 	    ClientData *handlePtr)
sl@0: }
sl@0: declare 154 generic {
sl@0:     ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan)
sl@0: }
sl@0: declare 155 generic {
sl@0:     int Tcl_GetChannelMode(Tcl_Channel chan)
sl@0: }
sl@0: declare 156 generic {
sl@0:     CONST84_RETURN char * Tcl_GetChannelName(Tcl_Channel chan)
sl@0: }
sl@0: declare 157 generic {
sl@0:     int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan,
sl@0: 	    CONST char *optionName, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 158 generic {
sl@0:     Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
sl@0: }
sl@0: declare 159 generic {
sl@0:     int Tcl_GetCommandInfo(Tcl_Interp *interp, CONST char *cmdName,
sl@0: 	    Tcl_CmdInfo *infoPtr)
sl@0: }
sl@0: declare 160 generic {
sl@0:     CONST84_RETURN char * Tcl_GetCommandName(Tcl_Interp *interp,
sl@0: 	    Tcl_Command command)
sl@0: }
sl@0: declare 161 generic {
sl@0:     int Tcl_GetErrno(void)
sl@0: }
sl@0: declare 162 generic {
sl@0:     CONST84_RETURN char * Tcl_GetHostName(void)
sl@0: }
sl@0: declare 163 generic {
sl@0:     int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp)
sl@0: }
sl@0: declare 164 generic {
sl@0:     Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp)
sl@0: }
sl@0: declare 165 generic {
sl@0:     CONST char * Tcl_GetNameOfExecutable(void)
sl@0: }
sl@0: declare 166 generic {
sl@0:     Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp)
sl@0: }
sl@0: 
sl@0: # Tcl_GetOpenFile is only available on unix, but it is a part of the old
sl@0: # generic interface, so we inlcude it here for compatibility reasons.
sl@0: 
sl@0: declare 167 unix {
sl@0:     int Tcl_GetOpenFile(Tcl_Interp *interp, CONST char *str, int forWriting,
sl@0: 	    int checkUsage, ClientData *filePtr)
sl@0: }
sl@0: # Obsolete.  Should now use Tcl_FSGetPathType which is objectified
sl@0: # and therefore usually faster.
sl@0: declare 168 generic {
sl@0:     Tcl_PathType Tcl_GetPathType(CONST char *path)
sl@0: }
sl@0: declare 169 generic {
sl@0:     int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 170 generic {
sl@0:     int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 171 generic {
sl@0:     int Tcl_GetServiceMode(void)
sl@0: }
sl@0: declare 172 generic {
sl@0:     Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, CONST char *slaveName)
sl@0: }
sl@0: declare 173 generic {
sl@0:     Tcl_Channel Tcl_GetStdChannel(int type)
sl@0: }
sl@0: declare 174 generic {
sl@0:     CONST84_RETURN char * Tcl_GetStringResult(Tcl_Interp *interp)
sl@0: }
sl@0: declare 175 generic {
sl@0:     CONST84_RETURN char * Tcl_GetVar(Tcl_Interp *interp, CONST char *varName,
sl@0: 	    int flags)
sl@0: }
sl@0: declare 176 generic {
sl@0:     CONST84_RETURN char * Tcl_GetVar2(Tcl_Interp *interp, CONST char *part1,
sl@0: 	    CONST char *part2, int flags)
sl@0: }
sl@0: declare 177 generic {
sl@0:     int Tcl_GlobalEval(Tcl_Interp *interp, CONST char *command)
sl@0: }
sl@0: declare 178 generic {
sl@0:     int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 179 generic {
sl@0:     int Tcl_HideCommand(Tcl_Interp *interp, CONST char *cmdName,
sl@0: 	    CONST char *hiddenCmdToken)
sl@0: }
sl@0: declare 180 generic {
sl@0:     int Tcl_Init(Tcl_Interp *interp)
sl@0: }
sl@0: declare 181 generic {
sl@0:     void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType)
sl@0: }
sl@0: declare 182 generic {
sl@0:     int Tcl_InputBlocked(Tcl_Channel chan)
sl@0: }
sl@0: declare 183 generic {
sl@0:     int Tcl_InputBuffered(Tcl_Channel chan)
sl@0: }
sl@0: declare 184 generic {
sl@0:     int Tcl_InterpDeleted(Tcl_Interp *interp)
sl@0: }
sl@0: declare 185 generic {
sl@0:     int Tcl_IsSafe(Tcl_Interp *interp)
sl@0: }
sl@0: # Obsolete, use Tcl_FSJoinPath
sl@0: declare 186 generic {
sl@0:     char * Tcl_JoinPath(int argc, CONST84 char * CONST *argv,
sl@0: 	    Tcl_DString *resultPtr)
sl@0: }
sl@0: declare 187 generic {
sl@0:     int Tcl_LinkVar(Tcl_Interp *interp, CONST char *varName, char *addr,
sl@0: 	    int type)
sl@0: }
sl@0: 
sl@0: # This slot is reserved for use by the plus patch:
sl@0: #  declare 188 generic {
sl@0: #      Tcl_MainLoop
sl@0: #  }
sl@0: 
sl@0: declare 189 generic {
sl@0:     Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode)
sl@0: }
sl@0: declare 190 generic {
sl@0:     int Tcl_MakeSafe(Tcl_Interp *interp)
sl@0: }
sl@0: declare 191 generic {
sl@0:     Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket)
sl@0: }
sl@0: declare 192 generic {
sl@0:     char * Tcl_Merge(int argc, CONST84 char * CONST *argv)
sl@0: }
sl@0: declare 193 generic {
sl@0:     Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr)
sl@0: }
sl@0: declare 194 generic {
sl@0:     void Tcl_NotifyChannel(Tcl_Channel channel, int mask)
sl@0: }
sl@0: declare 195 generic {
sl@0:     Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
sl@0: 	    Tcl_Obj *part2Ptr, int flags)
sl@0: }
sl@0: declare 196 generic {
sl@0:     Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,
sl@0: 	    Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)
sl@0: }
sl@0: declare 197 {unix win} {
sl@0:     Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc,
sl@0: 	    CONST84 char **argv, int flags)
sl@0: }
sl@0: # This is obsolete, use Tcl_FSOpenFileChannel
sl@0: declare 198 generic {
sl@0:     Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, CONST char *fileName,
sl@0: 	    CONST char *modeString, int permissions)
sl@0: }
sl@0: declare 199 generic {
sl@0:     Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port,
sl@0: 	    CONST char *address, CONST char *myaddr, int myport, int async)
sl@0: }
sl@0: declare 200 generic {
sl@0:     Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port,
sl@0: 	    CONST char *host, Tcl_TcpAcceptProc *acceptProc,
sl@0: 	    ClientData callbackData)
sl@0: }
sl@0: declare 201 generic {
sl@0:     void Tcl_Preserve(ClientData data)
sl@0: }
sl@0: declare 202 generic {
sl@0:     void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst)
sl@0: }
sl@0: declare 203 generic {
sl@0:     int Tcl_PutEnv(CONST char *string)
sl@0: }
sl@0: declare 204 generic {
sl@0:     CONST84_RETURN char * Tcl_PosixError(Tcl_Interp *interp)
sl@0: }
sl@0: declare 205 generic {
sl@0:     void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position)
sl@0: }
sl@0: declare 206 generic {
sl@0:     int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead)
sl@0: }
sl@0: declare 207 {unix win} {
sl@0:     void Tcl_ReapDetachedProcs(void)
sl@0: }
sl@0: declare 208 generic {
sl@0:     int Tcl_RecordAndEval(Tcl_Interp *interp, CONST char *cmd, int flags)
sl@0: }
sl@0: declare 209 generic {
sl@0:     int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)
sl@0: }
sl@0: declare 210 generic {
sl@0:     void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
sl@0: }
sl@0: declare 211 generic {
sl@0:     void Tcl_RegisterObjType(Tcl_ObjType *typePtr)
sl@0: }
sl@0: declare 212 generic {
sl@0:     Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, CONST char *string)
sl@0: }
sl@0: declare 213 generic {
sl@0:     int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp,
sl@0: 	    CONST char *str, CONST char *start)
sl@0: }
sl@0: declare 214 generic {
sl@0:     int Tcl_RegExpMatch(Tcl_Interp *interp, CONST char *str,
sl@0: 	    CONST char *pattern)
sl@0: }
sl@0: declare 215 generic {
sl@0:     void Tcl_RegExpRange(Tcl_RegExp regexp, int index,
sl@0: 	    CONST84 char **startPtr, CONST84 char **endPtr)
sl@0: }
sl@0: declare 216 generic {
sl@0:     void Tcl_Release(ClientData clientData)
sl@0: }
sl@0: declare 217 generic {
sl@0:     void Tcl_ResetResult(Tcl_Interp *interp)
sl@0: }
sl@0: declare 218 generic {
sl@0:     int Tcl_ScanElement(CONST char *str, int *flagPtr)
sl@0: }
sl@0: declare 219 generic {
sl@0:     int Tcl_ScanCountedElement(CONST char *str, int length, int *flagPtr)
sl@0: }
sl@0: # Obsolete
sl@0: declare 220 generic {
sl@0:     int Tcl_SeekOld(Tcl_Channel chan, int offset, int mode)
sl@0: }
sl@0: declare 221 generic {
sl@0:     int Tcl_ServiceAll(void)
sl@0: }
sl@0: declare 222 generic {
sl@0:     int Tcl_ServiceEvent(int flags)
sl@0: }
sl@0: declare 223 generic {
sl@0:     void Tcl_SetAssocData(Tcl_Interp *interp, CONST char *name,
sl@0: 	    Tcl_InterpDeleteProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 224 generic {
sl@0:     void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz)
sl@0: }
sl@0: declare 225 generic {
sl@0:     int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan,
sl@0: 	    CONST char *optionName, CONST char *newValue)
sl@0: }
sl@0: declare 226 generic {
sl@0:     int Tcl_SetCommandInfo(Tcl_Interp *interp, CONST char *cmdName,
sl@0: 	    CONST Tcl_CmdInfo *infoPtr)
sl@0: }
sl@0: declare 227 generic {
sl@0:     void Tcl_SetErrno(int err)
sl@0: }
sl@0: declare 228 generic {
sl@0:     void Tcl_SetErrorCode(Tcl_Interp *interp, ...)
sl@0: }
sl@0: declare 229 generic {
sl@0:     void Tcl_SetMaxBlockTime(Tcl_Time *timePtr)
sl@0: }
sl@0: declare 230 generic {
sl@0:     void Tcl_SetPanicProc(Tcl_PanicProc *panicProc)
sl@0: }
sl@0: declare 231 generic {
sl@0:     int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth)
sl@0: }
sl@0: declare 232 generic {
sl@0:     void Tcl_SetResult(Tcl_Interp *interp, char *str,
sl@0: 	    Tcl_FreeProc *freeProc)
sl@0: }
sl@0: declare 233 generic {
sl@0:     int Tcl_SetServiceMode(int mode)
sl@0: }
sl@0: declare 234 generic {
sl@0:     void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr)
sl@0: }
sl@0: declare 235 generic {
sl@0:     void Tcl_SetObjResult(Tcl_Interp *interp, Tcl_Obj *resultObjPtr)
sl@0: }
sl@0: declare 236 generic {
sl@0:     void Tcl_SetStdChannel(Tcl_Channel channel, int type)
sl@0: }
sl@0: declare 237 generic {
sl@0:     CONST84_RETURN char * Tcl_SetVar(Tcl_Interp *interp, CONST char *varName,
sl@0: 	    CONST char *newValue, int flags)
sl@0: }
sl@0: declare 238 generic {
sl@0:     CONST84_RETURN char * Tcl_SetVar2(Tcl_Interp *interp, CONST char *part1,
sl@0: 	    CONST char *part2, CONST char *newValue, int flags)
sl@0: }
sl@0: declare 239 generic {
sl@0:     CONST84_RETURN char * Tcl_SignalId(int sig)
sl@0: }
sl@0: declare 240 generic {
sl@0:     CONST84_RETURN char * Tcl_SignalMsg(int sig)
sl@0: }
sl@0: declare 241 generic {
sl@0:     void Tcl_SourceRCFile(Tcl_Interp *interp)
sl@0: }
sl@0: declare 242 generic {
sl@0:     int Tcl_SplitList(Tcl_Interp *interp, CONST char *listStr, int *argcPtr,
sl@0: 	    CONST84 char ***argvPtr)
sl@0: }
sl@0: # Obsolete, use Tcl_FSSplitPath
sl@0: declare 243 generic {
sl@0:     void Tcl_SplitPath(CONST char *path, int *argcPtr, CONST84 char ***argvPtr)
sl@0: }
sl@0: declare 244 generic {
sl@0:     void Tcl_StaticPackage(Tcl_Interp *interp, CONST char *pkgName,
sl@0: 	    Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc)
sl@0: }
sl@0: declare 245 generic {
sl@0:     int Tcl_StringMatch(CONST char *str, CONST char *pattern)
sl@0: }
sl@0: # Obsolete
sl@0: declare 246 generic {
sl@0:     int Tcl_TellOld(Tcl_Channel chan)
sl@0: }
sl@0: declare 247 generic {
sl@0:     int Tcl_TraceVar(Tcl_Interp *interp, CONST char *varName, int flags,
sl@0: 	    Tcl_VarTraceProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 248 generic {
sl@0:     int Tcl_TraceVar2(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
sl@0: 	    int flags, Tcl_VarTraceProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 249 generic {
sl@0:     char * Tcl_TranslateFileName(Tcl_Interp *interp, CONST char *name,
sl@0: 	    Tcl_DString *bufferPtr)
sl@0: }
sl@0: declare 250 generic {
sl@0:     int Tcl_Ungets(Tcl_Channel chan, CONST char *str, int len, int atHead)
sl@0: }
sl@0: declare 251 generic {
sl@0:     void Tcl_UnlinkVar(Tcl_Interp *interp, CONST char *varName)
sl@0: }
sl@0: declare 252 generic {
sl@0:     int Tcl_UnregisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
sl@0: }
sl@0: declare 253 generic {
sl@0:     int Tcl_UnsetVar(Tcl_Interp *interp, CONST char *varName, int flags)
sl@0: }
sl@0: declare 254 generic {
sl@0:     int Tcl_UnsetVar2(Tcl_Interp *interp, CONST char *part1, CONST char *part2,
sl@0: 	    int flags)
sl@0: }
sl@0: declare 255 generic {
sl@0:     void Tcl_UntraceVar(Tcl_Interp *interp, CONST char *varName, int flags,
sl@0: 	    Tcl_VarTraceProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 256 generic {
sl@0:     void Tcl_UntraceVar2(Tcl_Interp *interp, CONST char *part1,
sl@0: 	    CONST char *part2, int flags, Tcl_VarTraceProc *proc,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 257 generic {
sl@0:     void Tcl_UpdateLinkedVar(Tcl_Interp *interp, CONST char *varName)
sl@0: }
sl@0: declare 258 generic {
sl@0:     int Tcl_UpVar(Tcl_Interp *interp, CONST char *frameName,
sl@0: 	    CONST char *varName, CONST char *localName, int flags)
sl@0: }
sl@0: declare 259 generic {
sl@0:     int Tcl_UpVar2(Tcl_Interp *interp, CONST char *frameName, CONST char *part1,
sl@0: 	    CONST char *part2, CONST char *localName, int flags)
sl@0: }
sl@0: declare 260 generic {
sl@0:     int Tcl_VarEval(Tcl_Interp *interp, ...)
sl@0: }
sl@0: declare 261 generic {
sl@0:     ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, CONST char *varName,
sl@0: 	    int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData)
sl@0: }
sl@0: declare 262 generic {
sl@0:     ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, CONST char *part1,
sl@0: 	    CONST char *part2, int flags, Tcl_VarTraceProc *procPtr,
sl@0: 	    ClientData prevClientData)
sl@0: }
sl@0: declare 263 generic {
sl@0:     int Tcl_Write(Tcl_Channel chan, CONST char *s, int slen)
sl@0: }
sl@0: declare 264 generic {
sl@0:     void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc,
sl@0: 	    Tcl_Obj *CONST objv[], CONST char *message)
sl@0: }
sl@0: declare 265 generic {
sl@0:     int Tcl_DumpActiveMemory(CONST char *fileName)
sl@0: }
sl@0: declare 266 generic {
sl@0:     void Tcl_ValidateAllMemory(CONST char *file, int line)
sl@0: }
sl@0: 
sl@0: declare 267 generic {
sl@0:     void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList)
sl@0: }
sl@0: declare 268 generic {
sl@0:     void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList)
sl@0: }
sl@0: declare 269 generic {
sl@0:     CONST84_RETURN char * Tcl_HashStats(Tcl_HashTable *tablePtr)
sl@0: }
sl@0: declare 270 generic {
sl@0:     CONST84_RETURN char * Tcl_ParseVar(Tcl_Interp *interp, CONST char *str,
sl@0: 	    CONST84 char **termPtr)
sl@0: }
sl@0: declare 271 generic {
sl@0:     CONST84_RETURN char * Tcl_PkgPresent(Tcl_Interp *interp, CONST char *name,
sl@0: 	    CONST char *version, int exact)
sl@0: }
sl@0: declare 272 generic {
sl@0:     CONST84_RETURN char * Tcl_PkgPresentEx(Tcl_Interp *interp, CONST char *name,
sl@0: 	    CONST char *version, int exact, ClientData *clientDataPtr)
sl@0: }
sl@0: declare 273 generic {
sl@0:     int Tcl_PkgProvide(Tcl_Interp *interp, CONST char *name, 
sl@0: 	    CONST char *version)
sl@0: }
sl@0: 
sl@0: # TIP #268: The internally used new Require function is in slot
sl@0: #           573. Assuming TCL_TIP268 was activated.
sl@0: 
sl@0: declare 274 generic {
sl@0:     CONST84_RETURN char * Tcl_PkgRequire(Tcl_Interp *interp, CONST char *name, 
sl@0: 	    CONST char *version, int exact)
sl@0: }
sl@0: declare 275 generic {
sl@0:     void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList)
sl@0: }
sl@0: declare 276 generic {
sl@0:     int  Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList)
sl@0: }
sl@0: declare 277 generic {
sl@0:     Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options)
sl@0: }
sl@0: declare 278 generic {
sl@0:     void Tcl_PanicVA(CONST char *format, va_list argList)
sl@0: }
sl@0: declare 279 generic {
sl@0:     void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type)
sl@0: }
sl@0: declare 280 generic {
sl@0:     void Tcl_InitMemory(Tcl_Interp *interp)
sl@0: }
sl@0: 
sl@0: # Andreas Kupries <a.kupries@westend.com>, 03/21/1999
sl@0: # "Trf-Patch for filtering channels"
sl@0: #
sl@0: # C-Level API for (un)stacking of channels. This allows the introduction
sl@0: # of filtering channels with relatively little changes to the core.
sl@0: # This patch was created in cooperation with Jan Nijtmans j.nijtmans@chello.nl
sl@0: # and is therefore part of his plus-patches too.
sl@0: #
sl@0: # It would have been possible to place the following definitions according
sl@0: # to the alphabetical order used elsewhere in this file, but I decided
sl@0: # against that to ease the maintenance of the patch across new tcl versions
sl@0: # (patch usually has no problems to integrate the patch file for the last
sl@0: # version into the new one).
sl@0: 
sl@0: declare 281 generic {
sl@0:     Tcl_Channel Tcl_StackChannel(Tcl_Interp *interp, Tcl_ChannelType *typePtr,
sl@0: 	    ClientData instanceData, int mask, Tcl_Channel prevChan)
sl@0: }
sl@0: declare 282 generic {
sl@0:     int Tcl_UnstackChannel(Tcl_Interp *interp, Tcl_Channel chan)
sl@0: }
sl@0: declare 283 generic {
sl@0:     Tcl_Channel Tcl_GetStackedChannel(Tcl_Channel chan)
sl@0: }
sl@0: 
sl@0: # 284 was reserved, but added in 8.4a2
sl@0: declare 284 generic {
sl@0:     void Tcl_SetMainLoop(Tcl_MainLoopProc *proc)
sl@0: }
sl@0: 
sl@0: # Reserved for future use (8.0.x vs. 8.1)
sl@0: #  declare 285 generic {
sl@0: #  }
sl@0: 
sl@0: 
sl@0: # Added in 8.1:
sl@0: 
sl@0: declare 286 generic {
sl@0:     void Tcl_AppendObjToObj(Tcl_Obj *objPtr, Tcl_Obj *appendObjPtr)
sl@0: }
sl@0: declare 287 generic {
sl@0:     Tcl_Encoding Tcl_CreateEncoding(Tcl_EncodingType *typePtr)
sl@0: }
sl@0: declare 288 generic {
sl@0:     void Tcl_CreateThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 289 generic {
sl@0:     void Tcl_DeleteThreadExitHandler(Tcl_ExitProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 290 generic {
sl@0:     void Tcl_DiscardResult(Tcl_SavedResult *statePtr)
sl@0: }
sl@0: declare 291 generic {
sl@0:     int Tcl_EvalEx(Tcl_Interp *interp, CONST char *script, int numBytes,
sl@0: 	    int flags)
sl@0: }
sl@0: declare 292 generic {
sl@0:     int Tcl_EvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
sl@0: 	    int flags)
sl@0: }
sl@0: declare 293 generic {
sl@0:     int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)
sl@0: }
sl@0: declare 294 generic {
sl@0:     void Tcl_ExitThread(int status)
sl@0: }
sl@0: declare 295 generic {
sl@0:     int Tcl_ExternalToUtf(Tcl_Interp *interp, Tcl_Encoding encoding,
sl@0: 	    CONST char *src, int srcLen, int flags,
sl@0: 	    Tcl_EncodingState *statePtr, char *dst, int dstLen,
sl@0: 	    int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr)
sl@0: }
sl@0: declare 296 generic {
sl@0:     char * Tcl_ExternalToUtfDString(Tcl_Encoding encoding,
sl@0: 	    CONST char *src, int srcLen, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 297 generic {
sl@0:     void Tcl_FinalizeThread(void)
sl@0: }
sl@0: declare 298 generic {
sl@0:     void Tcl_FinalizeNotifier(ClientData clientData)
sl@0: }
sl@0: declare 299 generic {
sl@0:     void Tcl_FreeEncoding(Tcl_Encoding encoding)
sl@0: }
sl@0: declare 300 generic {
sl@0:     Tcl_ThreadId Tcl_GetCurrentThread(void)
sl@0: }
sl@0: declare 301 generic {
sl@0:     Tcl_Encoding Tcl_GetEncoding(Tcl_Interp *interp, CONST char *name)
sl@0: }
sl@0: declare 302 generic {
sl@0:     CONST84_RETURN char * Tcl_GetEncodingName(Tcl_Encoding encoding)
sl@0: }
sl@0: declare 303 generic {
sl@0:     void Tcl_GetEncodingNames(Tcl_Interp *interp)
sl@0: }
sl@0: declare 304 generic {
sl@0:     int Tcl_GetIndexFromObjStruct(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    CONST VOID *tablePtr, int offset, CONST char *msg, int flags,
sl@0: 	    int *indexPtr)
sl@0: }
sl@0: declare 305 generic {
sl@0:     VOID * Tcl_GetThreadData(Tcl_ThreadDataKey *keyPtr, int size)
sl@0: }
sl@0: declare 306 generic {
sl@0:     Tcl_Obj * Tcl_GetVar2Ex(Tcl_Interp *interp, CONST char *part1,
sl@0: 	    CONST char *part2, int flags)
sl@0: }
sl@0: declare 307 generic {
sl@0:     ClientData Tcl_InitNotifier(void)
sl@0: }
sl@0: declare 308 generic {
sl@0:     void Tcl_MutexLock(Tcl_Mutex *mutexPtr)
sl@0: }
sl@0: declare 309 generic {
sl@0:     void Tcl_MutexUnlock(Tcl_Mutex *mutexPtr)
sl@0: }
sl@0: declare 310 generic {
sl@0:     void Tcl_ConditionNotify(Tcl_Condition *condPtr)
sl@0: }
sl@0: declare 311 generic {
sl@0:     void Tcl_ConditionWait(Tcl_Condition *condPtr, Tcl_Mutex *mutexPtr,
sl@0: 	    Tcl_Time *timePtr)
sl@0: }
sl@0: declare 312 generic {
sl@0:     int Tcl_NumUtfChars(CONST char *src, int len)
sl@0: }
sl@0: declare 313 generic {
sl@0:     int Tcl_ReadChars(Tcl_Channel channel, Tcl_Obj *objPtr, int charsToRead,
sl@0: 	    int appendFlag)
sl@0: }
sl@0: declare 314 generic {
sl@0:     void Tcl_RestoreResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr)
sl@0: }
sl@0: declare 315 generic {
sl@0:     void Tcl_SaveResult(Tcl_Interp *interp, Tcl_SavedResult *statePtr)
sl@0: }
sl@0: declare 316 generic {
sl@0:     int Tcl_SetSystemEncoding(Tcl_Interp *interp, CONST char *name)
sl@0: }
sl@0: declare 317 generic {
sl@0:     Tcl_Obj * Tcl_SetVar2Ex(Tcl_Interp *interp, CONST char *part1, 
sl@0:             CONST char *part2, Tcl_Obj *newValuePtr, int flags)
sl@0: }
sl@0: declare 318 generic {
sl@0:     void Tcl_ThreadAlert(Tcl_ThreadId threadId)
sl@0: }
sl@0: declare 319 generic {
sl@0:     void Tcl_ThreadQueueEvent(Tcl_ThreadId threadId, Tcl_Event* evPtr,
sl@0: 	    Tcl_QueuePosition position)
sl@0: }
sl@0: declare 320 generic {
sl@0:     Tcl_UniChar Tcl_UniCharAtIndex(CONST char *src, int index)
sl@0: }
sl@0: declare 321 generic {
sl@0:     Tcl_UniChar Tcl_UniCharToLower(int ch)
sl@0: }
sl@0: declare 322 generic {
sl@0:     Tcl_UniChar Tcl_UniCharToTitle(int ch)
sl@0: }
sl@0: declare 323 generic {
sl@0:     Tcl_UniChar Tcl_UniCharToUpper(int ch)
sl@0: }
sl@0: declare 324 generic {
sl@0:     int Tcl_UniCharToUtf(int ch, char *buf)
sl@0: }
sl@0: declare 325 generic {
sl@0:     CONST84_RETURN char * Tcl_UtfAtIndex(CONST char *src, int index)
sl@0: }
sl@0: declare 326 generic {
sl@0:     int Tcl_UtfCharComplete(CONST char *src, int len)
sl@0: }
sl@0: declare 327 generic {
sl@0:     int Tcl_UtfBackslash(CONST char *src, int *readPtr, char *dst)
sl@0: }
sl@0: declare 328 generic {
sl@0:     CONST84_RETURN char * Tcl_UtfFindFirst(CONST char *src, int ch)
sl@0: }
sl@0: declare 329 generic {
sl@0:     CONST84_RETURN char * Tcl_UtfFindLast(CONST char *src, int ch)
sl@0: }
sl@0: declare 330 generic {
sl@0:     CONST84_RETURN char * Tcl_UtfNext(CONST char *src)
sl@0: }
sl@0: declare 331 generic {
sl@0:     CONST84_RETURN char * Tcl_UtfPrev(CONST char *src, CONST char *start)
sl@0: }
sl@0: declare 332 generic {
sl@0:     int Tcl_UtfToExternal(Tcl_Interp *interp, Tcl_Encoding encoding,
sl@0: 	    CONST char *src, int srcLen, int flags,
sl@0: 	    Tcl_EncodingState *statePtr, char *dst, int dstLen,
sl@0: 	    int *srcReadPtr, int *dstWrotePtr, int *dstCharsPtr)
sl@0: }
sl@0: declare 333 generic {
sl@0:     char * Tcl_UtfToExternalDString(Tcl_Encoding encoding,
sl@0: 	    CONST char *src, int srcLen, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 334 generic {
sl@0:     int Tcl_UtfToLower(char *src)
sl@0: }
sl@0: declare 335 generic {
sl@0:     int Tcl_UtfToTitle(char *src)
sl@0: }
sl@0: declare 336 generic {
sl@0:     int Tcl_UtfToUniChar(CONST char *src, Tcl_UniChar *chPtr)
sl@0: }
sl@0: declare 337 generic {
sl@0:     int Tcl_UtfToUpper(char *src)
sl@0: }
sl@0: declare 338 generic {
sl@0:     int Tcl_WriteChars(Tcl_Channel chan, CONST char *src, int srcLen)
sl@0: }
sl@0: declare 339 generic {
sl@0:     int Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 340 generic {
sl@0:     char * Tcl_GetString(Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 341 generic {
sl@0:     CONST84_RETURN char * Tcl_GetDefaultEncodingDir(void)
sl@0: }
sl@0: declare 342 generic {
sl@0:     void Tcl_SetDefaultEncodingDir(CONST char *path)
sl@0: }
sl@0: declare 343 generic {
sl@0:     void Tcl_AlertNotifier(ClientData clientData)
sl@0: }
sl@0: declare 344 generic {
sl@0:     void Tcl_ServiceModeHook(int mode)
sl@0: }
sl@0: declare 345 generic {
sl@0:     int Tcl_UniCharIsAlnum(int ch)
sl@0: }
sl@0: declare 346 generic {
sl@0:     int Tcl_UniCharIsAlpha(int ch)
sl@0: }
sl@0: declare 347 generic {
sl@0:     int Tcl_UniCharIsDigit(int ch)
sl@0: }
sl@0: declare 348 generic {
sl@0:     int Tcl_UniCharIsLower(int ch)
sl@0: }
sl@0: declare 349 generic {
sl@0:     int Tcl_UniCharIsSpace(int ch)
sl@0: }
sl@0: declare 350 generic {
sl@0:     int Tcl_UniCharIsUpper(int ch)
sl@0: }
sl@0: declare 351 generic {
sl@0:     int Tcl_UniCharIsWordChar(int ch)
sl@0: }
sl@0: declare 352 generic {
sl@0:     int Tcl_UniCharLen(CONST Tcl_UniChar *str)
sl@0: }
sl@0: declare 353 generic {
sl@0:     int Tcl_UniCharNcmp(CONST Tcl_UniChar *cs, CONST Tcl_UniChar *ct,
sl@0: 	    unsigned long n)
sl@0: }
sl@0: declare 354 generic {
sl@0:     char * Tcl_UniCharToUtfDString(CONST Tcl_UniChar *string,
sl@0: 	    int numChars, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 355 generic {
sl@0:     Tcl_UniChar * Tcl_UtfToUniCharDString(CONST char *string,
sl@0: 	    int length, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 356 generic {
sl@0:     Tcl_RegExp Tcl_GetRegExpFromObj(Tcl_Interp *interp, Tcl_Obj *patObj,
sl@0: 	    int flags)
sl@0: }
sl@0: 
sl@0: declare 357 generic {
sl@0:     Tcl_Obj *Tcl_EvalTokens(Tcl_Interp *interp, Tcl_Token *tokenPtr,
sl@0: 	    int count)
sl@0: }
sl@0: declare 358 generic {
sl@0:     void Tcl_FreeParse(Tcl_Parse *parsePtr)
sl@0: }
sl@0: declare 359 generic {
sl@0:     void Tcl_LogCommandInfo(Tcl_Interp *interp, CONST char *script,
sl@0: 	    CONST char *command, int length)
sl@0: }
sl@0: declare 360 generic {
sl@0:     int Tcl_ParseBraces(Tcl_Interp *interp, CONST char *string, int numBytes,
sl@0: 	    Tcl_Parse *parsePtr, int append, CONST84 char **termPtr)
sl@0: }
sl@0: declare 361 generic {
sl@0:     int Tcl_ParseCommand(Tcl_Interp *interp, CONST char *string, int numBytes,
sl@0: 	    int nested, Tcl_Parse *parsePtr)
sl@0: }
sl@0: declare 362 generic {
sl@0:     int Tcl_ParseExpr(Tcl_Interp *interp, CONST char *string, int numBytes,
sl@0: 	    Tcl_Parse *parsePtr)	 
sl@0: }
sl@0: declare 363 generic {
sl@0:     int Tcl_ParseQuotedString(Tcl_Interp *interp, CONST char *string,
sl@0: 	    int numBytes, Tcl_Parse *parsePtr, int append,
sl@0: 	    CONST84 char **termPtr)
sl@0: }
sl@0: declare 364 generic {
sl@0:     int Tcl_ParseVarName(Tcl_Interp *interp, CONST char *string, int numBytes,
sl@0: 	    Tcl_Parse *parsePtr, int append)
sl@0: }
sl@0: # These 4 functions are obsolete, use Tcl_FSGetCwd, Tcl_FSChdir,
sl@0: # Tcl_FSAccess and Tcl_FSStat
sl@0: declare 365 generic {
sl@0:     char *Tcl_GetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)
sl@0: }
sl@0: declare 366 generic {
sl@0:    int Tcl_Chdir(CONST char *dirName)
sl@0: }
sl@0: declare 367 generic {
sl@0:    int Tcl_Access(CONST char *path, int mode)
sl@0: }
sl@0: declare 368 generic {
sl@0:     int Tcl_Stat(CONST char *path, struct stat *bufPtr)
sl@0: }
sl@0: declare 369 generic {
sl@0:     int Tcl_UtfNcmp(CONST char *s1, CONST char *s2, unsigned long n)
sl@0: }
sl@0: declare 370 generic {
sl@0:     int Tcl_UtfNcasecmp(CONST char *s1, CONST char *s2, unsigned long n)
sl@0: }
sl@0: declare 371 generic {
sl@0:     int Tcl_StringCaseMatch(CONST char *str, CONST char *pattern, int nocase)
sl@0: }
sl@0: declare 372 generic {
sl@0:     int Tcl_UniCharIsControl(int ch)
sl@0: }
sl@0: declare 373 generic {
sl@0:     int Tcl_UniCharIsGraph(int ch)
sl@0: }
sl@0: declare 374 generic {
sl@0:     int Tcl_UniCharIsPrint(int ch)
sl@0: }
sl@0: declare 375 generic {
sl@0:     int Tcl_UniCharIsPunct(int ch)
sl@0: }
sl@0: declare 376 generic {
sl@0:     int Tcl_RegExpExecObj(Tcl_Interp *interp, Tcl_RegExp regexp,
sl@0: 	    Tcl_Obj *objPtr, int offset, int nmatches, int flags)
sl@0: }
sl@0: declare 377 generic {
sl@0:     void Tcl_RegExpGetInfo(Tcl_RegExp regexp, Tcl_RegExpInfo *infoPtr)
sl@0: }
sl@0: declare 378 generic {
sl@0:     Tcl_Obj * Tcl_NewUnicodeObj(CONST Tcl_UniChar *unicode, int numChars)
sl@0: }
sl@0: declare 379 generic {
sl@0:     void Tcl_SetUnicodeObj(Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode,
sl@0: 	    int numChars)
sl@0: }
sl@0: declare 380 generic {
sl@0:     int Tcl_GetCharLength(Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 381 generic {
sl@0:     Tcl_UniChar Tcl_GetUniChar(Tcl_Obj *objPtr, int index)
sl@0: }
sl@0: declare 382 generic {
sl@0:     Tcl_UniChar * Tcl_GetUnicode(Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 383 generic {
sl@0:     Tcl_Obj * Tcl_GetRange(Tcl_Obj *objPtr, int first, int last)
sl@0: }
sl@0: declare 384 generic {
sl@0:     void Tcl_AppendUnicodeToObj(Tcl_Obj *objPtr, CONST Tcl_UniChar *unicode,
sl@0: 	    int length)
sl@0: }
sl@0: declare 385 generic {
sl@0:     int Tcl_RegExpMatchObj(Tcl_Interp *interp, Tcl_Obj *stringObj,
sl@0: 	    Tcl_Obj *patternObj)
sl@0: }
sl@0: declare 386 generic {
sl@0:     void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr)
sl@0: }
sl@0: declare 387 generic {
sl@0:     Tcl_Mutex * Tcl_GetAllocMutex(void)
sl@0: }
sl@0: declare 388 generic {
sl@0:     int Tcl_GetChannelNames(Tcl_Interp *interp)
sl@0: }
sl@0: declare 389 generic {
sl@0:     int Tcl_GetChannelNamesEx(Tcl_Interp *interp, CONST char *pattern)
sl@0: }
sl@0: declare 390 generic {
sl@0:     int Tcl_ProcObjCmd(ClientData clientData, Tcl_Interp *interp,
sl@0: 	    int objc, Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 391 generic {
sl@0:     void Tcl_ConditionFinalize(Tcl_Condition *condPtr)
sl@0: }
sl@0: declare 392 generic {
sl@0:     void Tcl_MutexFinalize(Tcl_Mutex *mutex)
sl@0: }
sl@0: declare 393 generic {
sl@0:     int Tcl_CreateThread(Tcl_ThreadId *idPtr, Tcl_ThreadCreateProc proc,
sl@0: 	    ClientData clientData, int stackSize, int flags)
sl@0: }
sl@0: 
sl@0: # Introduced in 8.3.2
sl@0: declare 394 generic {
sl@0:     int Tcl_ReadRaw(Tcl_Channel chan, char *dst, int bytesToRead)
sl@0: }
sl@0: declare 395 generic {
sl@0:     int Tcl_WriteRaw(Tcl_Channel chan, CONST char *src, int srcLen)
sl@0: }
sl@0: declare 396 generic {
sl@0:     Tcl_Channel Tcl_GetTopChannel(Tcl_Channel chan)
sl@0: }
sl@0: declare 397 generic {
sl@0:     int Tcl_ChannelBuffered(Tcl_Channel chan)
sl@0: }
sl@0: declare 398 generic {
sl@0:     CONST84_RETURN char * Tcl_ChannelName(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 399 generic {
sl@0:     Tcl_ChannelTypeVersion Tcl_ChannelVersion(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 400 generic {
sl@0:     Tcl_DriverBlockModeProc * Tcl_ChannelBlockModeProc(Tcl_ChannelType
sl@0: 	    *chanTypePtr)
sl@0: }
sl@0: declare 401 generic {
sl@0:     Tcl_DriverCloseProc * Tcl_ChannelCloseProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 402 generic {
sl@0:     Tcl_DriverClose2Proc * Tcl_ChannelClose2Proc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 403 generic {
sl@0:     Tcl_DriverInputProc * Tcl_ChannelInputProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 404 generic {
sl@0:     Tcl_DriverOutputProc * Tcl_ChannelOutputProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 405 generic {
sl@0:     Tcl_DriverSeekProc * Tcl_ChannelSeekProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 406 generic {
sl@0:     Tcl_DriverSetOptionProc * Tcl_ChannelSetOptionProc(Tcl_ChannelType
sl@0: 	    *chanTypePtr)
sl@0: }
sl@0: declare 407 generic {
sl@0:     Tcl_DriverGetOptionProc * Tcl_ChannelGetOptionProc(Tcl_ChannelType
sl@0: 	    *chanTypePtr)
sl@0: }
sl@0: declare 408 generic {
sl@0:     Tcl_DriverWatchProc * Tcl_ChannelWatchProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 409 generic {
sl@0:     Tcl_DriverGetHandleProc * Tcl_ChannelGetHandleProc(Tcl_ChannelType
sl@0: 	    *chanTypePtr)
sl@0: }
sl@0: declare 410 generic {
sl@0:     Tcl_DriverFlushProc * Tcl_ChannelFlushProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: declare 411 generic {
sl@0:     Tcl_DriverHandlerProc * Tcl_ChannelHandlerProc(Tcl_ChannelType
sl@0: 	    *chanTypePtr)
sl@0: }
sl@0: 
sl@0: # Introduced in 8.4a2
sl@0: declare 412 generic {
sl@0:     int Tcl_JoinThread(Tcl_ThreadId threadId, int* result)
sl@0: }
sl@0: declare 413 generic {
sl@0:     int Tcl_IsChannelShared(Tcl_Channel channel)
sl@0: }
sl@0: declare 414 generic {
sl@0:     int Tcl_IsChannelRegistered(Tcl_Interp* interp, Tcl_Channel channel)
sl@0: }
sl@0: declare 415 generic {
sl@0:     void Tcl_CutChannel(Tcl_Channel channel)
sl@0: }
sl@0: declare 416 generic {
sl@0:     void Tcl_SpliceChannel(Tcl_Channel channel)
sl@0: }
sl@0: declare 417 generic {
sl@0:     void Tcl_ClearChannelHandlers(Tcl_Channel channel)
sl@0: }
sl@0: declare 418 generic {
sl@0:     int Tcl_IsChannelExisting(CONST char* channelName)
sl@0: }
sl@0: 
sl@0: declare 419 generic {
sl@0:     int Tcl_UniCharNcasecmp(CONST Tcl_UniChar *cs, CONST Tcl_UniChar *ct,
sl@0: 	    unsigned long n)
sl@0: }
sl@0: declare 420 generic {
sl@0:     int Tcl_UniCharCaseMatch(CONST Tcl_UniChar *ustr,
sl@0: 	    CONST Tcl_UniChar *pattern, int nocase)
sl@0: }
sl@0: 
sl@0: declare 421 generic {
sl@0:     Tcl_HashEntry *Tcl_FindHashEntry(Tcl_HashTable *tablePtr, CONST char *key)
sl@0: }
sl@0: 
sl@0: declare 422 generic {
sl@0:     Tcl_HashEntry *Tcl_CreateHashEntry(Tcl_HashTable *tablePtr,
sl@0: 	    CONST char *key, int *newPtr)
sl@0: }
sl@0: 
sl@0: declare 423 generic {
sl@0:     void Tcl_InitCustomHashTable(Tcl_HashTable *tablePtr, int keyType,
sl@0: 	    Tcl_HashKeyType *typePtr)
sl@0: }
sl@0: 
sl@0: declare 424 generic {
sl@0:     void Tcl_InitObjHashTable(Tcl_HashTable *tablePtr)
sl@0: }
sl@0: declare 425 generic {
sl@0:     ClientData Tcl_CommandTraceInfo(Tcl_Interp *interp, CONST char *varName,
sl@0: 	    int flags, Tcl_CommandTraceProc *procPtr,
sl@0: 	    ClientData prevClientData)
sl@0: }
sl@0: declare 426 generic {
sl@0:     int Tcl_TraceCommand(Tcl_Interp *interp, CONST char *varName, int flags,
sl@0: 	    Tcl_CommandTraceProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 427 generic {
sl@0:     void Tcl_UntraceCommand(Tcl_Interp *interp, CONST char *varName,
sl@0: 	    int flags, Tcl_CommandTraceProc *proc, ClientData clientData)
sl@0: }
sl@0: declare 428 generic {
sl@0:     char * Tcl_AttemptAlloc(unsigned int size)
sl@0: }
sl@0: declare 429 generic {
sl@0:     char * Tcl_AttemptDbCkalloc(unsigned int size, CONST char *file, int line)
sl@0: }
sl@0: declare 430 generic {
sl@0:     char * Tcl_AttemptRealloc(char *ptr, unsigned int size)
sl@0: }
sl@0: declare 431 generic {
sl@0:     char * Tcl_AttemptDbCkrealloc(char *ptr, unsigned int size,
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: declare 432 generic {
sl@0:     int Tcl_AttemptSetObjLength(Tcl_Obj *objPtr, int length)
sl@0: }
sl@0: declare 433 generic {
sl@0:     Tcl_ThreadId Tcl_GetChannelThread(Tcl_Channel channel)
sl@0: }
sl@0: # introduced in 8.4a3
sl@0: declare 434 generic {
sl@0:     Tcl_UniChar * Tcl_GetUnicodeFromObj(Tcl_Obj *objPtr, int *lengthPtr)
sl@0: }
sl@0: declare 435 generic {
sl@0:     int Tcl_GetMathFuncInfo(Tcl_Interp *interp, CONST char *name,
sl@0: 	    int *numArgsPtr, Tcl_ValueType **argTypesPtr,
sl@0: 	    Tcl_MathProc **procPtr, ClientData *clientDataPtr)
sl@0: }
sl@0: declare 436 generic {
sl@0:     Tcl_Obj * Tcl_ListMathFuncs(Tcl_Interp *interp, CONST char *pattern)
sl@0: }
sl@0: declare 437 generic {
sl@0:     Tcl_Obj * Tcl_SubstObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags)
sl@0: }
sl@0: declare 438 generic {
sl@0:     int Tcl_DetachChannel(Tcl_Interp* interp, Tcl_Channel channel)
sl@0: }
sl@0: declare 439 generic {
sl@0:     int Tcl_IsStandardChannel(Tcl_Channel channel)
sl@0: }
sl@0: # New functions due to TIP#17
sl@0: declare 440 generic {
sl@0:     int	Tcl_FSCopyFile(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr)
sl@0: }
sl@0: declare 441 generic {
sl@0:     int	Tcl_FSCopyDirectory(Tcl_Obj *srcPathPtr,
sl@0: 	    Tcl_Obj *destPathPtr, Tcl_Obj **errorPtr)
sl@0: }
sl@0: declare 442 generic {
sl@0:     int	Tcl_FSCreateDirectory(Tcl_Obj *pathPtr)
sl@0: }
sl@0: declare 443 generic {
sl@0:     int	Tcl_FSDeleteFile(Tcl_Obj *pathPtr)
sl@0: }
sl@0: declare 444 generic {
sl@0:     int	Tcl_FSLoadFile(Tcl_Interp * interp,
sl@0: 	    Tcl_Obj *pathPtr, CONST char * sym1, CONST char * sym2,
sl@0: 	    Tcl_PackageInitProc ** proc1Ptr,
sl@0: 	    Tcl_PackageInitProc ** proc2Ptr,
sl@0: 	    Tcl_LoadHandle * handlePtr,
sl@0: 	    Tcl_FSUnloadFileProc **unloadProcPtr)
sl@0: }
sl@0: declare 445 generic {
sl@0:     int	Tcl_FSMatchInDirectory(Tcl_Interp *interp, Tcl_Obj *result,
sl@0: 	    Tcl_Obj *pathPtr, CONST char *pattern, Tcl_GlobTypeData *types)
sl@0: }
sl@0: declare 446 generic {
sl@0:     Tcl_Obj * Tcl_FSLink(Tcl_Obj *pathPtr, Tcl_Obj *toPtr, int linkAction)
sl@0: }
sl@0: declare 447 generic {
sl@0:     int Tcl_FSRemoveDirectory(Tcl_Obj *pathPtr,
sl@0: 	    int recursive, Tcl_Obj **errorPtr)
sl@0: }
sl@0: declare 448 generic {
sl@0:     int	Tcl_FSRenameFile(Tcl_Obj *srcPathPtr, Tcl_Obj *destPathPtr)
sl@0: }
sl@0: declare 449 generic {
sl@0:     int	Tcl_FSLstat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf)
sl@0: }
sl@0: declare 450 generic {
sl@0:     int Tcl_FSUtime(Tcl_Obj *pathPtr, struct utimbuf *tval)
sl@0: }
sl@0: declare 451 generic {
sl@0:     int Tcl_FSFileAttrsGet(Tcl_Interp *interp,
sl@0: 	    int index, Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)
sl@0: }
sl@0: declare 452 generic {
sl@0:     int Tcl_FSFileAttrsSet(Tcl_Interp *interp,
sl@0: 	    int index, Tcl_Obj *pathPtr, Tcl_Obj *objPtr)
sl@0: }
sl@0: declare 453 generic {
sl@0:     CONST char ** Tcl_FSFileAttrStrings(Tcl_Obj *pathPtr, Tcl_Obj **objPtrRef)
sl@0: }
sl@0: declare 454 generic {
sl@0:     int Tcl_FSStat(Tcl_Obj *pathPtr, Tcl_StatBuf *buf)
sl@0: }
sl@0: declare 455 generic {
sl@0:     int Tcl_FSAccess(Tcl_Obj *pathPtr, int mode)
sl@0: }
sl@0: declare 456 generic {
sl@0:     Tcl_Channel Tcl_FSOpenFileChannel(Tcl_Interp *interp, Tcl_Obj *pathPtr,
sl@0: 	    CONST char *modeString, int permissions)
sl@0: }
sl@0: declare 457 generic {
sl@0:     Tcl_Obj*  Tcl_FSGetCwd(Tcl_Interp *interp)
sl@0: }
sl@0: declare 458 generic {
sl@0:     int Tcl_FSChdir(Tcl_Obj *pathPtr)
sl@0: }
sl@0: declare 459 generic {
sl@0:     int Tcl_FSConvertToPathType(Tcl_Interp *interp, Tcl_Obj *pathPtr)
sl@0: }
sl@0: declare 460 generic {
sl@0:     Tcl_Obj* Tcl_FSJoinPath(Tcl_Obj *listObj, int elements)
sl@0: }
sl@0: declare 461 generic {
sl@0:     Tcl_Obj* Tcl_FSSplitPath(Tcl_Obj* pathPtr, int *lenPtr)
sl@0: }
sl@0: declare 462 generic {
sl@0:     int Tcl_FSEqualPaths(Tcl_Obj* firstPtr, Tcl_Obj* secondPtr)
sl@0: }
sl@0: declare 463 generic {
sl@0:     Tcl_Obj* Tcl_FSGetNormalizedPath(Tcl_Interp *interp, Tcl_Obj* pathObjPtr)
sl@0: }
sl@0: declare 464 generic {
sl@0:     Tcl_Obj* Tcl_FSJoinToPath(Tcl_Obj *basePtr, int objc,
sl@0: 	    Tcl_Obj *CONST objv[])
sl@0: }
sl@0: declare 465 generic {
sl@0:     ClientData Tcl_FSGetInternalRep(Tcl_Obj* pathObjPtr,
sl@0: 	    Tcl_Filesystem *fsPtr)
sl@0: }
sl@0: declare 466 generic {
sl@0:     Tcl_Obj* Tcl_FSGetTranslatedPath(Tcl_Interp *interp, Tcl_Obj* pathPtr)
sl@0: }
sl@0: declare 467 generic {
sl@0:     int Tcl_FSEvalFile(Tcl_Interp *interp, Tcl_Obj *fileName)
sl@0: }
sl@0: declare 468 generic {
sl@0:     Tcl_Obj* Tcl_FSNewNativePath(Tcl_Filesystem* fromFilesystem,
sl@0: 	    ClientData clientData)
sl@0: }
sl@0: declare 469 generic {
sl@0:     CONST char* Tcl_FSGetNativePath(Tcl_Obj* pathObjPtr)
sl@0: }
sl@0: declare 470 generic {
sl@0:     Tcl_Obj* Tcl_FSFileSystemInfo(Tcl_Obj* pathObjPtr)
sl@0: }
sl@0: declare 471 generic {
sl@0:     Tcl_Obj* Tcl_FSPathSeparator(Tcl_Obj* pathObjPtr)
sl@0: }
sl@0: declare 472 generic {
sl@0:     Tcl_Obj* Tcl_FSListVolumes(void)
sl@0: }
sl@0: declare 473 generic {
sl@0:     int Tcl_FSRegister(ClientData clientData, Tcl_Filesystem *fsPtr)
sl@0: }
sl@0: declare 474 generic {
sl@0:     int Tcl_FSUnregister(Tcl_Filesystem *fsPtr)
sl@0: }
sl@0: declare 475 generic {
sl@0:     ClientData Tcl_FSData(Tcl_Filesystem *fsPtr)
sl@0: }
sl@0: declare 476 generic {
sl@0:     CONST char* Tcl_FSGetTranslatedStringPath(Tcl_Interp *interp,
sl@0: 	    Tcl_Obj* pathPtr)
sl@0: }
sl@0: declare 477 generic {
sl@0:     Tcl_Filesystem* Tcl_FSGetFileSystemForPath(Tcl_Obj* pathObjPtr)
sl@0: }
sl@0: declare 478 generic {
sl@0:     Tcl_PathType Tcl_FSGetPathType(Tcl_Obj *pathObjPtr)
sl@0: }
sl@0: # New function due to TIP#49
sl@0: declare 479 generic {
sl@0:     int Tcl_OutputBuffered(Tcl_Channel chan)
sl@0: }
sl@0: declare 480 generic {
sl@0:     void Tcl_FSMountsChanged(Tcl_Filesystem *fsPtr)
sl@0: }	  
sl@0: # New function due to TIP#56
sl@0: declare 481 generic {
sl@0:     int Tcl_EvalTokensStandard(Tcl_Interp *interp, Tcl_Token *tokenPtr,
sl@0: 	    int count)
sl@0: }
sl@0: 
sl@0: # New export due to TIP#73 
sl@0: declare 482 generic {
sl@0:     void Tcl_GetTime(Tcl_Time* timeBuf)
sl@0: }
sl@0: 
sl@0: # New exports due to TIP#32
sl@0: 
sl@0: declare 483 generic {
sl@0:     Tcl_Trace Tcl_CreateObjTrace(Tcl_Interp* interp, int level, int flags,
sl@0: 	    Tcl_CmdObjTraceProc* objProc, ClientData clientData,
sl@0: 	    Tcl_CmdObjTraceDeleteProc* delProc)
sl@0: }
sl@0: declare 484 generic {
sl@0:     int Tcl_GetCommandInfoFromToken(Tcl_Command token, Tcl_CmdInfo* infoPtr)
sl@0: }
sl@0: declare 485 generic {
sl@0:     int Tcl_SetCommandInfoFromToken(Tcl_Command token,
sl@0: 	    CONST Tcl_CmdInfo* infoPtr)
sl@0: }
sl@0: 
sl@0: ### New functions on 64-bit dev branch ###
sl@0: declare 486 generic {
sl@0:     Tcl_Obj * Tcl_DbNewWideIntObj(Tcl_WideInt wideValue,
sl@0: 	    CONST char *file, int line)
sl@0: }
sl@0: declare 487 generic {
sl@0:     int Tcl_GetWideIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    Tcl_WideInt *widePtr)
sl@0: }
sl@0: declare 488 generic {
sl@0:     Tcl_Obj * Tcl_NewWideIntObj(Tcl_WideInt wideValue)
sl@0: }
sl@0: declare 489 generic {
sl@0:     void Tcl_SetWideIntObj(Tcl_Obj *objPtr, Tcl_WideInt wideValue)
sl@0: }
sl@0: declare 490 generic {
sl@0:     Tcl_StatBuf * Tcl_AllocStatBuf(void)
sl@0: }
sl@0: declare 491 generic {
sl@0:     Tcl_WideInt Tcl_Seek(Tcl_Channel chan, Tcl_WideInt offset, int mode)
sl@0: }
sl@0: declare 492 generic {
sl@0:     Tcl_WideInt Tcl_Tell(Tcl_Channel chan)
sl@0: }
sl@0: 
sl@0: # New export due to TIP#91
sl@0: declare 493 generic {
sl@0:     Tcl_DriverWideSeekProc * Tcl_ChannelWideSeekProc(
sl@0: 	    Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: 
sl@0: # Slots 494 to 553 are taken already by 8.5
sl@0: # #111 - Dicts            (494 ... 504)
sl@0: #  #59 - Config           (505)
sl@0: # #139 - Namespace API    (506 ... 517)
sl@0: # #137 - source -encoding (518)
sl@0: # #121 - ExitProc         (519)
sl@0: # #121 - Resource Limits  (520 ... 534)
sl@0: # #226 - S/R Interp State (535 ... 537)
sl@0: # #227 - S/G Return Opts  (538 ... 539)
sl@0: # #235 - Ensemble C API   (540 ... 551)
sl@0: # #233 - Virtualized Time (552 ... 553)
sl@0: 
sl@0: # TIP#218 (Driver Thread Actions) davygrvy/akupries ChannelType ver 4
sl@0: # These slots are used by 8.5 as well.
sl@0: declare 554 generic {
sl@0:     Tcl_DriverThreadActionProc *Tcl_ChannelThreadActionProc(Tcl_ChannelType *chanTypePtr)
sl@0: }
sl@0: 
sl@0: # Slots 555 to 572 are taken already by 8.5
sl@0: # TIP #237: Arbitrary-prec Integers (555 ... 559)
sl@0: # TIP #208: 'chan' Command          (560 ... 561)
sl@0: # TIP #219: Channel Reflection      (562 ... 565)
sl@0: # TIP #237: Add. bignum support     (566)
sl@0: # TIP #181: 'namespace unknown' Cmd (567 ... 568)
sl@0: # TIP #258: Enhanced Encodings API  (569 ... 572)
sl@0: 
sl@0: # TIP#268: Extended version numbers and requirements.
sl@0: #          The slot is present even if TCL_TIP268 is not activated.
sl@0: 
sl@0: declare 573 generic {
sl@0:     int Tcl_PkgRequireProc(Tcl_Interp *interp, CONST char *name, 
sl@0: 	    int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)
sl@0: }
sl@0: 
sl@0: ##############################################################################
sl@0: 
sl@0: # Define the platform specific public Tcl interface.  These functions are
sl@0: # only available on the designated platform.
sl@0: 
sl@0: interface tclPlat
sl@0: 
sl@0: ######################
sl@0: # Windows declarations
sl@0: 
sl@0: # Added in Tcl 8.1
sl@0: 
sl@0: declare 0 win {
sl@0:     TCHAR * Tcl_WinUtfToTChar(CONST char *str, int len, Tcl_DString *dsPtr)
sl@0: }
sl@0: declare 1 win {
sl@0:     char * Tcl_WinTCharToUtf(CONST TCHAR *str, int len, Tcl_DString *dsPtr)
sl@0: }
sl@0: 
sl@0: ##################
sl@0: # Mac declarations
sl@0: 
sl@0: # This is needed by the shells to handle Macintosh events.
sl@0:  
sl@0: declare 0 mac {
sl@0:     void Tcl_MacSetEventProc(Tcl_MacConvertEventPtr procPtr)
sl@0: }
sl@0: 
sl@0: # These routines are useful for handling using scripts from resources 
sl@0: # in the application shell
sl@0: 
sl@0: declare 1 mac {
sl@0:     char * Tcl_MacConvertTextResource(Handle resource)
sl@0: }
sl@0: declare 2 mac {
sl@0:     int Tcl_MacEvalResource(Tcl_Interp *interp, CONST char *resourceName,
sl@0: 	    int resourceNumber, CONST char *fileName)
sl@0: }
sl@0: declare 3 mac {
sl@0:     Handle Tcl_MacFindResource(Tcl_Interp *interp, long resourceType,
sl@0: 	    CONST char *resourceName, int resourceNumber,
sl@0: 	    CONST char *resFileRef, int * releaseIt)
sl@0: }
sl@0: 
sl@0: # These routines support the new OSType object type (i.e. the packed 4
sl@0: # character type and creator codes).
sl@0: 
sl@0: declare 4 mac {
sl@0:     int Tcl_GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,
sl@0: 	    OSType *osTypePtr)
sl@0: }
sl@0: declare 5 mac {
sl@0:     void Tcl_SetOSTypeObj(Tcl_Obj *objPtr, OSType osType)
sl@0: }
sl@0: declare 6 mac {
sl@0:     Tcl_Obj * Tcl_NewOSTypeObj(OSType osType)
sl@0: }
sl@0: 
sl@0: # These are not in MSL 2.1.2, so we need to export them from the
sl@0: # Tcl shared library.  They are found in the compat directory.
sl@0:  
sl@0: declare 7 mac {
sl@0:     int strncasecmp(CONST char *s1, CONST char *s2, size_t n)
sl@0: }
sl@0: declare 8 mac {
sl@0:     int strcasecmp(CONST char *s1, CONST char *s2)
sl@0: }
sl@0: 
sl@0: ##################
sl@0: # Mac OS X declarations
sl@0: #
sl@0: 
sl@0: declare 0 macosx {
sl@0:     int Tcl_MacOSXOpenBundleResources(Tcl_Interp *interp,
sl@0: 	    CONST char *bundleName,
sl@0: 	    int hasResourceFile,
sl@0: 	    int maxPathLen,
sl@0: 	    char *libraryPath)
sl@0: }
sl@0: declare 1 macosx {
sl@0:     int Tcl_MacOSXOpenVersionedBundleResources(Tcl_Interp *interp,
sl@0: 	    CONST char *bundleName,
sl@0: 	    CONST char *bundleVersion,
sl@0: 	    int hasResourceFile,
sl@0: 	    int maxPathLen,
sl@0: 	    char *libraryPath)
sl@0: }