# tcl.decls --

#

#	This file contains the declarations for all supported public

#	functions that are exported by the Tcl library via the stubs table.

#	This file is used to generate the tclDecls.h, tclPlatDecls.h,

#	tclStub.c, and tclPlatStub.c files.

#	

#

# Copyright (c) 1998-1999 by Scriptics Corporation.

# Copyright (c) 2001, 2002 by Kevin B. Kenny.  All rights reserved.

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

# 

# RCS: @(#) $Id: tcl.decls,v 1.94.2.4 2006/09/22 01:26:22 andreas_kupries Exp $

library tcl

# Define the tcl interface with several sub interfaces:

#     tclPlat	 - platform specific public

#     tclInt	 - generic private

#     tclPlatInt - platform specific private

interface tcl

hooks {tclPlat tclInt tclIntPlat}

# Declare each of the functions in the public Tcl interface.  Note that

# the an index should never be reused for a different function in order

# to preserve backwards compatibility.

declare 0 generic {

    int Tcl_PkgProvideEx(Tcl_Interp* interp, CONST char* name,

	    CONST char* version, ClientData clientData)

}

declare 1 generic {

    CONST84_RETURN char * Tcl_PkgRequireEx(Tcl_Interp *interp, CONST char *name,

	    CONST char *version, int exact, ClientData *clientDataPtr)

}

declare 2 generic {

    void Tcl_Panic(CONST char *format, ...)

}

declare 3 generic {

    char * Tcl_Alloc(unsigned int size)

}

declare 4 generic {

    void Tcl_Free(char *ptr)

}

declare 5 generic {

    char * Tcl_Realloc(char *ptr, unsigned int size)

}

declare 6 generic {

    char * Tcl_DbCkalloc(unsigned int size, CONST char *file, int line)

}

declare 7 generic {

    int Tcl_DbCkfree(char *ptr, CONST char *file, int line)

}

declare 8 generic {

    char * Tcl_DbCkrealloc(char *ptr, unsigned int size,

	    CONST char *file, int line)

}

# Tcl_CreateFileHandler and Tcl_DeleteFileHandler are only available on unix,

# but they are part of the old generic interface, so we include them here for

# compatibility reasons.

declare 9 unix {

    void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc,

	    ClientData clientData)

}

declare 10 unix {

    void Tcl_DeleteFileHandler(int fd)

}

declare 11 generic {

    void Tcl_SetTimer(Tcl_Time *timePtr)

}

declare 12 generic {

    void Tcl_Sleep(int ms)

}

declare 13 generic {

    int Tcl_WaitForEvent(Tcl_Time *timePtr)

}

declare 14 generic {

    int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr)

}

declare 15 generic {

    void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...)

}

declare 16 generic {

    void Tcl_AppendToObj(Tcl_Obj* objPtr, CONST char* bytes, int length)

}

declare 17 generic {

    Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[])

}

declare 18 generic {

    int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr,

	    Tcl_ObjType *typePtr)

}

declare 19 generic {

    void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, CONST char *file, int line)

}

declare 20 generic {

    void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, CONST char *file, int line)

}

declare 21 generic {

    int Tcl_DbIsShared(Tcl_Obj *objPtr, CONST char *file, int line)

}

declare 22 generic {

    Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, CONST char *file, int line)

}

declare 23 generic {

    Tcl_Obj * Tcl_DbNewByteArrayObj(CONST unsigned char *bytes, int length,

	    CONST char *file, int line)

}

declare 24 generic {

    Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue,

	    CONST char *file, int line)

}

declare 25 generic {

    Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST *objv, 

	    CONST char *file, int line)

}

declare 26 generic {

    Tcl_Obj * Tcl_DbNewLongObj(long longValue, CONST char *file, int line)

}

declare 27 generic {

    Tcl_Obj * Tcl_DbNewObj(CONST char *file, int line)

}

declare 28 generic {

    Tcl_Obj * Tcl_DbNewStringObj(CONST char *bytes, int length,

	    CONST char *file, int line)

}

declare 29 generic {

    Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr)

}

declare 30 generic {

    void TclFreeObj(Tcl_Obj *objPtr)

}

declare 31 generic {

    int Tcl_GetBoolean(Tcl_Interp *interp, CONST char *str, int *boolPtr)

}

declare 32 generic {

    int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,

	    int *boolPtr)

}

declare 33 generic {

    unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr)

}

declare 34 generic {

    int Tcl_GetDouble(Tcl_Interp *interp, CONST char *str, double *doublePtr)

}

declare 35 generic {

    int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,

	    double *doublePtr)

}

declare 36 generic {

    int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr,

	    CONST84 char **tablePtr, CONST char *msg, int flags, int *indexPtr)

}

declare 37 generic {

    int Tcl_GetInt(Tcl_Interp *interp, CONST char *str, int *intPtr)

}

declare 38 generic {

    int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr)

}

declare 39 generic {

    int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)

}

declare 40 generic {

    Tcl_ObjType * Tcl_GetObjType(CONST char *typeName)

}

declare 41 generic {

    char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr)

}

declare 42 generic {

    void Tcl_InvalidateStringRep(Tcl_Obj *objPtr)

}

declare 43 generic {

    int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr,

	    Tcl_Obj *elemListPtr)

}

declare 44 generic {

    int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr,

	    Tcl_Obj *objPtr)

}

declare 45 generic {

    int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr,

	    int *objcPtr, Tcl_Obj ***objvPtr)

}

declare 46 generic {

    int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index,

	    Tcl_Obj **objPtrPtr)

}

declare 47 generic {

    int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr,

	    int *lengthPtr)

}

declare 48 generic {

    int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first,

	    int count, int objc, Tcl_Obj *CONST objv[])

}

declare 49 generic {

    Tcl_Obj *Tcl_NewBooleanObj(int boolValue)

}

declare 50 generic {

    Tcl_Obj *Tcl_NewByteArrayObj(CONST unsigned char* bytes, int length)

}

declare 51 generic {

    Tcl_Obj * Tcl_NewDoubleObj(double doubleValue)

}

declare 52 generic {

    Tcl_Obj * Tcl_NewIntObj(int intValue)

}

declare 53 generic {

    Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[])

}

declare 54 generic {

    Tcl_Obj * Tcl_NewLongObj(long longValue)

}

declare 55 generic {

    Tcl_Obj * Tcl_NewObj(void)

}

declare 56 generic {

    Tcl_Obj *Tcl_NewStringObj(CONST char *bytes, int length)

}

declare 57 generic {

    void Tcl_SetBooleanObj(Tcl_Obj *objPtr, int boolValue)

}

declare 58 generic {

    unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length)

}

declare 59 generic {

    void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, CONST unsigned char *bytes,

	    int length)

}

declare 60 generic {

    void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue)

}

declare 61 generic {

    void Tcl_SetIntObj(Tcl_Obj *objPtr, int intValue)

}

declare 62 generic {

    void Tcl_SetListObj(Tcl_Obj *objPtr, int objc, Tcl_Obj *CONST objv[])

}

declare 63 generic {

    void Tcl_SetLongObj(Tcl_Obj *objPtr, long longValue)

}

declare 64 generic {

    void Tcl_SetObjLength(Tcl_Obj *objPtr, int length)

}

declare 65 generic {

    void Tcl_SetStringObj(Tcl_Obj* objPtr, CONST char* bytes, int length)

}

declare 66 generic {

    void Tcl_AddErrorInfo(Tcl_Interp *interp, CONST char *message)

}

declare 67 generic {

    void Tcl_AddObjErrorInfo(Tcl_Interp *interp, CONST char *message,

	    int length)

}

declare 68 generic {

    void Tcl_AllowExceptions(Tcl_Interp *interp)

}

declare 69 generic {

    void Tcl_AppendElement(Tcl_Interp *interp, CONST char *string)

}

declare 70 generic {

    void Tcl_AppendResult(Tcl_Interp *interp, ...)

}

declare 71 generic {

    Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc,

	    ClientData clientData)

}

declare 72 generic {

    void Tcl_AsyncDelete(Tcl_AsyncHandler async)

}

declare 73 generic {

    int Tcl_AsyncInvoke(Tcl_Interp *interp, int code)

}

declare 74 generic {

    void Tcl_AsyncMark(Tcl_AsyncHandler async)

}

declare 75 generic {

    int Tcl_AsyncReady(void)

}

declare 76 generic {

    void Tcl_BackgroundError(Tcl_Interp *interp)

}

declare 77 generic {

    char Tcl_Backslash(CONST char *src, int *readPtr)

}

declare 78 generic {

    int Tcl_BadChannelOption(Tcl_Interp *interp, CONST char *optionName,

	    CONST char *optionList)

}

declare 79 generic {

    void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc,

	    ClientData clientData)

}

declare 80 generic {

    void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData)

}

declare 81 generic {

    int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)

}

declare 82 generic {

    int Tcl_CommandComplete(CONST char *cmd)

}

declare 83 generic {

    char * Tcl_Concat(int argc, CONST84 char * CONST *argv)

}

declare 84 generic {

    int Tcl_ConvertElement(CONST char *src, char *dst, int flags)

}

declare 85 generic {

    int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst,

	    int flags)

}

declare 86 generic {

    int Tcl_CreateAlias(Tcl_Interp *slave, CONST char *slaveCmd,

	    Tcl_Interp *target, CONST char *targetCmd, int argc,

	    CONST84 char * CONST *argv)

}

declare 87 generic {

    int Tcl_CreateAliasObj(Tcl_Interp *slave, CONST char *slaveCmd,

	    Tcl_Interp *target, CONST char *targetCmd, int objc,

	    Tcl_Obj *CONST objv[])

}

declare 88 generic {

    Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr,

	    CONST char *chanName, ClientData instanceData, int mask)

}

declare 89 generic {

    void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask,

	    Tcl_ChannelProc *proc, ClientData clientData)

}

declare 90 generic {

    void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc,

	    ClientData clientData)

}

declare 91 generic {

    Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, CONST char *cmdName,

	    Tcl_CmdProc *proc, ClientData clientData,

	    Tcl_CmdDeleteProc *deleteProc)

}

declare 92 generic {

    void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc,

	    Tcl_EventCheckProc *checkProc, ClientData clientData)

}

declare 93 generic {

    void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData)

}

declare 94 generic {

    Tcl_Interp * Tcl_CreateInterp(void)

}

declare 95 generic {

    void Tcl_CreateMathFunc(Tcl_Interp *interp, CONST char *name,

	    int numArgs, Tcl_ValueType *argTypes, 

	    Tcl_MathProc *proc, ClientData clientData)

}

declare 96 generic {

    Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp,

	    CONST char *cmdName,

	    Tcl_ObjCmdProc *proc, ClientData clientData,

	    Tcl_CmdDeleteProc *deleteProc)

}

declare 97 generic {

    Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, CONST char *slaveName,

	    int isSafe)

}

declare 98 generic {

    Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds,

	    Tcl_TimerProc *proc, ClientData clientData)

}

declare 99 generic {

    Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level,

	    Tcl_CmdTraceProc *proc, ClientData clientData)

}

declare 100 generic {

    void Tcl_DeleteAssocData(Tcl_Interp *interp, CONST char *name)

}

declare 101 generic {

    void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc,

	    ClientData clientData)

}

declare 102 generic {

    void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc,

	    ClientData clientData)

}

declare 103 generic {

    int Tcl_DeleteCommand(Tcl_Interp *interp, CONST char *cmdName)

}

declare 104 generic {

    int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)

}

declare 105 generic {

    void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData)

}

declare 106 generic {

    void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc,

	    Tcl_EventCheckProc *checkProc, ClientData clientData)

}

declare 107 generic {

    void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData)

}

declare 108 generic {

    void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr)

}

declare 109 generic {

    void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr)

}

declare 110 generic {

    void Tcl_DeleteInterp(Tcl_Interp *interp)

}

declare 111 {unix win} {

    void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr)

}

declare 112 generic {

    void Tcl_DeleteTimerHandler(Tcl_TimerToken token)

}

declare 113 generic {

    void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace)

}

declare 114 generic {

    void Tcl_DontCallWhenDeleted(Tcl_Interp *interp,

	    Tcl_InterpDeleteProc *proc, ClientData clientData)

}

declare 115 generic {

    int Tcl_DoOneEvent(int flags)

}

declare 116 generic {

    void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData)

}

declare 117 generic {

    char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *str, int length)

}

declare 118 generic {

    char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string)

}

declare 119 generic {

    void Tcl_DStringEndSublist(Tcl_DString *dsPtr)

}

declare 120 generic {

    void Tcl_DStringFree(Tcl_DString *dsPtr)

}

declare 121 generic {

    void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr)

}

declare 122 generic {

    void Tcl_DStringInit(Tcl_DString *dsPtr)

}

declare 123 generic {

    void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr)

}

declare 124 generic {

    void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length)

}

declare 125 generic {

    void Tcl_DStringStartSublist(Tcl_DString *dsPtr)

}

declare 126 generic {

    int Tcl_Eof(Tcl_Channel chan)

}

declare 127 generic {

    CONST84_RETURN char * Tcl_ErrnoId(void)

}

declare 128 generic {

    CONST84_RETURN char * Tcl_ErrnoMsg(int err)

}

declare 129 generic {

    int Tcl_Eval(Tcl_Interp *interp, CONST char *string)

}

# This is obsolete, use Tcl_FSEvalFile

declare 130 generic {

    int Tcl_EvalFile(Tcl_Interp *interp, CONST char *fileName)

}

declare 131 generic {

    int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)

}

declare 132 generic {

    void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc)

}

declare 133 generic {

    void Tcl_Exit(int status)

}

declare 134 generic {

    int Tcl_ExposeCommand(Tcl_Interp *interp, CONST char *hiddenCmdToken,

	    CONST char *cmdName)

}

declare 135 generic {

    int Tcl_ExprBoolean(Tcl_Interp *interp, CONST char *str, int *ptr)

}

declare 136 generic {

    int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)

}

declare 137 generic {

    int Tcl_ExprDouble(Tcl_Interp *interp, CONST char *str, double *ptr)

}

declare 138 generic {

    int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)

}

declare 139 generic {

    int Tcl_ExprLong(Tcl_Interp *interp, CONST char *str, long *ptr)

}

declare 140 generic {

    int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)

}

declare 141 generic {

    int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr,

	    Tcl_Obj **resultPtrPtr)

}

declare 142 generic {

    int Tcl_ExprString(Tcl_Interp *interp, CONST char *string)

}

declare 143 generic {

    void Tcl_Finalize(void)

}

declare 144 generic {

    void Tcl_FindExecutable(CONST char *argv0)

}

declare 145 generic {

    Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr,

	    Tcl_HashSearch *searchPtr)

}

declare 146 generic {

    int Tcl_Flush(Tcl_Channel chan)

}

declare 147 generic {

    void Tcl_FreeResult(Tcl_Interp *interp)