Merged stubs changes into mainline for 8.0

1 files changed, 387 insertions, 374 deletions

diff --git a/generic/tcl.decls b/generic/tcl.decls
index 4217db5..b8dd45b 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -10,11 +10,11 @@
 # 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.2 1999/03/04 01:01:57 stanton Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.3 1999/03/10 05:52:46 stanton Exp $
 
 library tcl
 
-# Define the tcl interface with 3 sub interfaces:
+# Define the tcl interface with several sub interfaces:
 #     tclPlat	 - platform specific public
 #     tclInt	 - generic private
 #     tclPlatInt - platform specific private
@@ -27,907 +27,935 @@ hooks {tclPlat tclInt tclIntPlat}
 # to preserve backwards compatibility.
 
 declare 0 generic {
-    void Tcl_AddErrorInfo (Tcl_Interp *interp, char *message)
+    int Tcl_PkgProvideEx(Tcl_Interp *interp, char *name, char *version, \
+	    ClientData clientData)
 }
 declare 1 generic {
-    void Tcl_AddObjErrorInfo(Tcl_Interp *interp, char *message, int length)
+    char * Tcl_PkgRequireEx(Tcl_Interp *interp, char *name, char *version, \
+	    int exact, ClientData *clientDataPtr)
 }
 declare 2 generic {
-    char * Tcl_Alloc(unsigned int size)
+    void panic(char *format, ...)
 }
 declare 3 generic {
-    void Tcl_AllowExceptions(Tcl_Interp *interp)
+    char * Tcl_Alloc(unsigned int size)
 }
 declare 4 generic {
-    int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr)
+    void Tcl_Free(char *ptr)
 }
 declare 5 generic {
-    void Tcl_AppendElement(Tcl_Interp *interp, char *string)
+    char * Tcl_Realloc(char *ptr, unsigned int size)
 }
 declare 6 generic {
-    void Tcl_AppendResult(Tcl_Interp *interp, ...)
+    char * Tcl_DbCkalloc(unsigned int size, char *file, int line)
 }
 declare 7 generic {
-    void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList)
+    int Tcl_DbCkfree(char *ptr, char *file, int line)
 }
 declare 8 generic {
-    void Tcl_AppendToObj(Tcl_Obj *objPtr, char *bytes, int length)
+    char * Tcl_DbCkrealloc(char *ptr, unsigned int size, char *file, int line)
 }
-declare 9 generic {
-    void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...)
+
+# 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 generic {
-    void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList)
+declare 10 unix {
+    void Tcl_DeleteFileHandler(int fd)
 }
+
 declare 11 generic {
-    Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, \
-	    ClientData clientData)
+    void Tcl_SetTimer(Tcl_Time *timePtr)
 }
 declare 12 generic {
-    void Tcl_AsyncDelete(Tcl_AsyncHandler async)
+    void Tcl_Sleep(int ms)
 }
 declare 13 generic {
-    int Tcl_AsyncInvoke(Tcl_Interp *interp, int code)
+    int Tcl_WaitForEvent(Tcl_Time *timePtr)
 }
 declare 14 generic {
-    void Tcl_AsyncMark(Tcl_AsyncHandler async)
+    int Tcl_AppendAllObjTypes(Tcl_Interp *interp, Tcl_Obj *objPtr)
 }
 declare 15 generic {
-    int Tcl_AsyncReady(void)
+    void Tcl_AppendStringsToObj(Tcl_Obj *objPtr, ...)
 }
 declare 16 generic {
-    void Tcl_BackgroundError(Tcl_Interp *interp)
+    void Tcl_AppendToObj(Tcl_Obj *objPtr, char *bytes, int length)
 }
 declare 17 generic {
-    char Tcl_Backslash(CONST char *src, int *readPtr)
+    Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[])
 }
 declare 18 generic {
-    int Tcl_BadChannelOption(Tcl_Interp *interp, char *optionName, \
-	    char *optionList)
+    int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+	    Tcl_ObjType *typePtr)
 }
 declare 19 generic {
-    void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, \
-	    ClientData clientData)
+    void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, char *file, int line)
 }
 declare 20 generic {
-    void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData)
+    void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, char *file, int line)
 }
 declare 21 generic {
-    int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)
+    int Tcl_DbIsShared(Tcl_Obj *objPtr, char *file, int line)
 }
 declare 22 generic {
-    int Tcl_CommandComplete(char *cmd)
+    Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, char *file, int line)
 }
 declare 23 generic {
-    char * Tcl_Concat(int argc, char **argv)
+    Tcl_Obj * Tcl_DbNewByteArrayObj(unsigned char *bytes, int length, \
+	    char *file, int line)
 }
 declare 24 generic {
-    Tcl_Obj * Tcl_ConcatObj(int objc, Tcl_Obj *CONST objv[])
+    Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, char *file, int line)
 }
 declare 25 generic {
-    int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst, \
-	    int flags)
+    Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST objv[], char *file, \
+	    int line)
 }
 declare 26 generic {
-    int Tcl_ConvertElement(CONST char *src, char *dst, int flags)
+    Tcl_Obj * Tcl_DbNewLongObj(long longValue, char *file, int line)
 }
 declare 27 generic {
-    int Tcl_ConvertToType(Tcl_Interp *interp, Tcl_Obj *objPtr, \
-	    Tcl_ObjType *typePtr)
+    Tcl_Obj * Tcl_DbNewObj(char *file, int line)
 }
 declare 28 generic {
-    int Tcl_CreateAlias(Tcl_Interp *slave, char *slaveCmd, \
-	    Tcl_Interp *target, char *targetCmd, int argc, char **argv)
+    Tcl_Obj * Tcl_DbNewStringObj(char *bytes, int length, char *file, int line)
 }
 declare 29 generic {
-    int Tcl_CreateAliasObj(Tcl_Interp *slave, char *slaveCmd, \
-	    Tcl_Interp *target, char *targetCmd, int objc, \
-	    Tcl_Obj *CONST objv[])
+    Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr)
 }
 declare 30 generic {
-    Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, char *chanName, \
-	    ClientData instanceData, int mask)
+    void TclFreeObj(Tcl_Obj *objPtr)
 }
 declare 31 generic {
-    void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, \
-	    Tcl_ChannelProc *proc, ClientData clientData)
+    int Tcl_GetBoolean(Tcl_Interp *interp, char *string, int *boolPtr)
 }
 declare 32 generic {
-    void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \
-	    ClientData clientData)
+    int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+	    int *boolPtr)
 }
 declare 33 generic {
-    Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \
-	    Tcl_CmdProc *proc, ClientData clientData, \
-	    Tcl_CmdDeleteProc *deleteProc)
+    unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr)
 }
 declare 34 generic {
-    void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, \
-	    Tcl_EventCheckProc *checkProc, ClientData clientData)
+    int Tcl_GetDouble(Tcl_Interp *interp, char *string, double *doublePtr)
 }
 declare 35 generic {
-    void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData)
+    int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+	    double *doublePtr)
 }
 declare 36 generic {
-    Tcl_Interp * Tcl_CreateInterp(void)
+    int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+	    char **tablePtr, char *msg, int flags, int *indexPtr)
 }
 declare 37 generic {
-    void Tcl_CreateMathFunc(Tcl_Interp *interp, char *name, int numArgs, \
-	    Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData)
+    int Tcl_GetInt(Tcl_Interp *interp, char *string, int *intPtr)
 }
 declare 38 generic {
-    Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, char *cmdName, \
-	    Tcl_ObjCmdProc *proc, ClientData clientData, \
-	    Tcl_CmdDeleteProc *deleteProc)
+    int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr)
 }
 declare 39 generic {
-    Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, char *slaveName, \
-	    int isSafe)
+    int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)
 }
 declare 40 generic {
-    Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, \
-	    Tcl_TimerProc *proc, ClientData clientData)
+    Tcl_ObjType * Tcl_GetObjType(char *typeName)
 }
 declare 41 generic {
-    Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, \
-	    Tcl_CmdTraceProc *proc, ClientData clientData)
+    char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr)
 }
 declare 42 generic {
-    char * Tcl_DbCkalloc(unsigned int size, char *file, int line)
+    void Tcl_InvalidateStringRep(Tcl_Obj *objPtr)
 }
 declare 43 generic {
-    int Tcl_DbCkfree(char *ptr, char *file, int line)
+    int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr, \
+	    Tcl_Obj *elemListPtr)
 }
 declare 44 generic {
-    char * Tcl_DbCkrealloc(char *ptr, unsigned int size, char *file, int line)
+    int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr, \
+	    Tcl_Obj *objPtr)
 }
 declare 45 generic {
-    void Tcl_DbDecrRefCount(Tcl_Obj *objPtr, char *file, int line)
+    int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \
+	    int *objcPtr, Tcl_Obj ***objvPtr)
 }
 declare 46 generic {
-    void Tcl_DbIncrRefCount(Tcl_Obj *objPtr, char *file, int line)
+    int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \
+	    Tcl_Obj **objPtrPtr)
 }
 declare 47 generic {
-    int Tcl_DbIsShared(Tcl_Obj *objPtr, char *file, int line)
+    int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, int *intPtr)
 }
 declare 48 generic {
-    Tcl_Obj * Tcl_DbNewBooleanObj(int boolValue, char *file, int line)
+    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_DbNewByteArrayObj(unsigned char *bytes, int length, \
-	    char *file, int line)
+    Tcl_Obj * Tcl_NewBooleanObj(int boolValue)
 }
 declare 50 generic {
-    Tcl_Obj * Tcl_DbNewDoubleObj(double doubleValue, char *file, int line)
+    Tcl_Obj * Tcl_NewByteArrayObj(unsigned char *bytes, int length)
 }
 declare 51 generic {
-    Tcl_Obj * Tcl_DbNewListObj(int objc, Tcl_Obj *CONST objv[], char *file, \
-	    int line)
+    Tcl_Obj * Tcl_NewDoubleObj(double doubleValue)
 }
 declare 52 generic {
-    Tcl_Obj * Tcl_DbNewLongObj(long longValue, char *file, int line)
+    Tcl_Obj * Tcl_NewIntObj(int intValue)
 }
 declare 53 generic {
-    Tcl_Obj * Tcl_DbNewObj(char *file, int line)
+    Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[])
 }
 declare 54 generic {
-    Tcl_Obj * Tcl_DbNewStringObj(char *bytes, int length, char *file, int line)
+    Tcl_Obj * Tcl_NewLongObj(long longValue)
 }
 declare 55 generic {
-    void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name)
+    Tcl_Obj * Tcl_NewObj(void)
 }
 declare 56 generic {
-    int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName)
+    Tcl_Obj *Tcl_NewStringObj(char *bytes, int length)
 }
 declare 57 generic {
-    int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
+    void Tcl_SetBooleanObj(Tcl_Obj *objPtr,  int boolValue)
 }
 declare 58 generic {
-    void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \
-	    ClientData clientData)
+    unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length)
 }
 declare 59 generic {
-    void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \
-	    ClientData clientData)
+    void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, unsigned char *bytes, int length)
 }
 declare 60 generic {
-    void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData)
+    void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue)
 }
 declare 61 generic {
-    void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, \
-	    Tcl_EventCheckProc *checkProc, ClientData clientData)
+    void Tcl_SetIntObj(Tcl_Obj *objPtr,  int intValue)
 }
 declare 62 generic {
-    void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData)
+    void Tcl_SetListObj(Tcl_Obj *objPtr,  int objc, Tcl_Obj *CONST objv[])
 }
 declare 63 generic {
-    void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr)
+    void Tcl_SetLongObj(Tcl_Obj *objPtr,  long longValue)
 }
 declare 64 generic {
-    void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr)
+    void Tcl_SetObjLength(Tcl_Obj *objPtr, int length)
 }
 declare 65 generic {
-    void Tcl_DeleteInterp(Tcl_Interp *interp)
+    void Tcl_SetStringObj(Tcl_Obj *objPtr,  char *bytes, int length)
 }
 declare 66 generic {
-    void Tcl_DeleteTimerHandler(Tcl_TimerToken token)
+    void Tcl_AddErrorInfo(Tcl_Interp *interp, char *message)
 }
 declare 67 generic {
-    void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace)
+    void Tcl_AddObjErrorInfo(Tcl_Interp *interp, char *message, int length)
 }
 declare 68 generic {
-    void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr)
+    void Tcl_AllowExceptions(Tcl_Interp *interp)
 }
 declare 69 generic {
-    void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, \
-	    Tcl_InterpDeleteProc *proc, ClientData clientData)
+    void Tcl_AppendElement(Tcl_Interp *interp, char *string)
 }
 declare 70 generic {
-    int Tcl_DoOneEvent(int flags)
+    void Tcl_AppendResult(Tcl_Interp *interp, ...)
 }
 declare 71 generic {
-    void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData)
+    Tcl_AsyncHandler Tcl_AsyncCreate(Tcl_AsyncProc *proc, \
+	    ClientData clientData)
 }
 declare 72 generic {
-    char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *string, \
-	    int length)
+    void Tcl_AsyncDelete(Tcl_AsyncHandler async)
 }
 declare 73 generic {
-    char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string)
+    int Tcl_AsyncInvoke(Tcl_Interp *interp, int code)
 }
 declare 74 generic {
-    void Tcl_DStringEndSublist(Tcl_DString *dsPtr)
+    void Tcl_AsyncMark(Tcl_AsyncHandler async)
 }
 declare 75 generic {
-    void Tcl_DStringFree(Tcl_DString *dsPtr)
+    int Tcl_AsyncReady(void)
 }
 declare 76 generic {
-    void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
+    void Tcl_BackgroundError(Tcl_Interp *interp)
 }
 declare 77 generic {
-    void Tcl_DStringInit(Tcl_DString *dsPtr)
+    char Tcl_Backslash(CONST char *src, int *readPtr)
 }
 declare 78 generic {
-    void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
+    int Tcl_BadChannelOption(Tcl_Interp *interp, char *optionName, \
+	    char *optionList)
 }
 declare 79 generic {
-    void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length)
+    void Tcl_CallWhenDeleted(Tcl_Interp *interp, Tcl_InterpDeleteProc *proc, \
+	    ClientData clientData)
 }
 declare 80 generic {
-    void Tcl_DStringStartSublist(Tcl_DString *dsPtr)
+    void Tcl_CancelIdleCall(Tcl_IdleProc *idleProc, ClientData clientData)
 }
 declare 81 generic {
-    int Tcl_DumpActiveMemory(char *fileName)
+    int Tcl_Close(Tcl_Interp *interp, Tcl_Channel chan)
 }
 declare 82 generic {
-    Tcl_Obj * Tcl_DuplicateObj(Tcl_Obj *objPtr)
+    int Tcl_CommandComplete(char *cmd)
 }
 declare 83 generic {
-    int Tcl_Eof(Tcl_Channel chan)
+    char * Tcl_Concat(int argc, char **argv)
 }
 declare 84 generic {
-    char * Tcl_ErrnoId(void)
+    int Tcl_ConvertElement(CONST char *src, char *dst, int flags)
 }
 declare 85 generic {
-    char * Tcl_ErrnoMsg(int err)
+    int Tcl_ConvertCountedElement(CONST char *src, int length, char *dst, \
+	    int flags)
 }
 declare 86 generic {
-    int Tcl_Eval(Tcl_Interp *interp, char *string)
+    int Tcl_CreateAlias(Tcl_Interp *slave, char *slaveCmd, \
+	    Tcl_Interp *target, char *targetCmd, int argc, char **argv)
 }
 declare 87 generic {
-    int Tcl_EvalFile(Tcl_Interp *interp, char *fileName)
+    int Tcl_CreateAliasObj(Tcl_Interp *slave, char *slaveCmd, \
+	    Tcl_Interp *target, char *targetCmd, int objc, \
+	    Tcl_Obj *CONST objv[])
 }
 declare 88 generic {
-    void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc)
+    Tcl_Channel Tcl_CreateChannel(Tcl_ChannelType *typePtr, char *chanName, \
+	    ClientData instanceData, int mask)
 }
 declare 89 generic {
-    int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
+    void Tcl_CreateChannelHandler(Tcl_Channel chan, int mask, \
+	    Tcl_ChannelProc *proc, ClientData clientData)
 }
 declare 90 generic {
-    void Tcl_Exit(int status)
+    void Tcl_CreateCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \
+	    ClientData clientData)
 }
 declare 91 generic {
-    int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \
-	    char *cmdName)
+    Tcl_Command Tcl_CreateCommand(Tcl_Interp *interp, char *cmdName, \
+	    Tcl_CmdProc *proc, ClientData clientData, \
+	    Tcl_CmdDeleteProc *deleteProc)
 }
 declare 92 generic {
-    int Tcl_ExprBoolean(Tcl_Interp *interp, char *string, int *ptr)
+    void Tcl_CreateEventSource(Tcl_EventSetupProc *setupProc, \
+	    Tcl_EventCheckProc *checkProc, ClientData clientData)
 }
 declare 93 generic {
-    int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)
+    void Tcl_CreateExitHandler(Tcl_ExitProc *proc, ClientData clientData)
 }
 declare 94 generic {
-    int Tcl_ExprDouble(Tcl_Interp *interp, char *string, double *ptr)
+    Tcl_Interp * Tcl_CreateInterp(void)
 }
 declare 95 generic {
-    int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)
+    void Tcl_CreateMathFunc(Tcl_Interp *interp, char *name, int numArgs, \
+	    Tcl_ValueType *argTypes, Tcl_MathProc *proc, ClientData clientData)
 }
 declare 96 generic {
-    int Tcl_ExprLong(Tcl_Interp *interp, char *string, long *ptr)
+    Tcl_Command Tcl_CreateObjCommand(Tcl_Interp *interp, char *cmdName, \
+	    Tcl_ObjCmdProc *proc, ClientData clientData, \
+	    Tcl_CmdDeleteProc *deleteProc)
 }
 declare 97 generic {
-    int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)
+    Tcl_Interp * Tcl_CreateSlave(Tcl_Interp *interp, char *slaveName, \
+	    int isSafe)
 }
 declare 98 generic {
-    int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
-	    Tcl_Obj **resultPtrPtr)
+    Tcl_TimerToken Tcl_CreateTimerHandler(int milliseconds, \
+	    Tcl_TimerProc *proc, ClientData clientData)
 }
 declare 99 generic {
-    int Tcl_ExprString(Tcl_Interp *interp, char *string)
+    Tcl_Trace Tcl_CreateTrace(Tcl_Interp *interp, int level, \
+	    Tcl_CmdTraceProc *proc, ClientData clientData)
 }
 declare 100 generic {
-    void Tcl_Finalize(void)
+    void Tcl_DeleteAssocData(Tcl_Interp *interp, char *name)
 }
 declare 101 generic {
-    void Tcl_FindExecutable(char *argv0)
+    void Tcl_DeleteChannelHandler(Tcl_Channel chan, Tcl_ChannelProc *proc, \
+	    ClientData clientData)
 }
 declare 102 generic {
-    Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, \
-	    Tcl_HashSearch *searchPtr)
+    void Tcl_DeleteCloseHandler(Tcl_Channel chan, Tcl_CloseProc *proc, \
+	    ClientData clientData)
 }
 declare 103 generic {
-    int Tcl_Flush(Tcl_Channel chan)
+    int Tcl_DeleteCommand(Tcl_Interp *interp, char *cmdName)
 }
 declare 104 generic {
-    void Tcl_Free(char *ptr)
+    int Tcl_DeleteCommandFromToken(Tcl_Interp *interp, Tcl_Command command)
 }
 declare 105 generic {
-    void TclFreeObj(Tcl_Obj *objPtr)
+    void Tcl_DeleteEvents(Tcl_EventDeleteProc *proc, ClientData clientData)
 }
 declare 106 generic {
-    void Tcl_FreeResult(Tcl_Interp *interp)
+    void Tcl_DeleteEventSource(Tcl_EventSetupProc *setupProc, \
+	    Tcl_EventCheckProc *checkProc, ClientData clientData)
 }
 declare 107 generic {
-    int Tcl_GetAlias(Tcl_Interp *interp, char *slaveCmd, \
-	    Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *argcPtr, char ***argvPtr)
+    void Tcl_DeleteExitHandler(Tcl_ExitProc *proc, ClientData clientData)
 }
 declare 108 generic {
-    int Tcl_GetAliasObj(Tcl_Interp *interp, char *slaveCmd, \
-	    Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv)
+    void Tcl_DeleteHashEntry(Tcl_HashEntry *entryPtr)
 }
 declare 109 generic {
-    ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \
-	    Tcl_InterpDeleteProc **procPtr)
+    void Tcl_DeleteHashTable(Tcl_HashTable *tablePtr)
 }
 declare 110 generic {
-    int Tcl_GetBoolean(Tcl_Interp *interp, char *string, int *boolPtr)
+    void Tcl_DeleteInterp(Tcl_Interp *interp)
 }
 declare 111 generic {
-    int Tcl_GetBooleanFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
-	    int *boolPtr)
+    void Tcl_DetachPids(int numPids, Tcl_Pid *pidPtr)
 }
 declare 112 generic {
-    unsigned char * Tcl_GetByteArrayFromObj(Tcl_Obj *objPtr, int *lengthPtr)
+    void Tcl_DeleteTimerHandler(Tcl_TimerToken token)
 }
 declare 113 generic {
-    Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, char *chanName, \
-	    int *modePtr)
+    void Tcl_DeleteTrace(Tcl_Interp *interp, Tcl_Trace trace)
 }
 declare 114 generic {
-    int Tcl_GetChannelBufferSize(Tcl_Channel chan)
+    void Tcl_DontCallWhenDeleted(Tcl_Interp *interp, \
+	    Tcl_InterpDeleteProc *proc, ClientData clientData)
 }
 declare 115 generic {
-    int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, \
-	    ClientData *handlePtr)
+    int Tcl_DoOneEvent(int flags)
 }
 declare 116 generic {
-    ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan)
+    void Tcl_DoWhenIdle(Tcl_IdleProc *proc, ClientData clientData)
 }
 declare 117 generic {
-    int Tcl_GetChannelMode(Tcl_Channel chan)
+    char * Tcl_DStringAppend(Tcl_DString *dsPtr, CONST char *string, \
+	    int length)
 }
 declare 118 generic {
-    char * Tcl_GetChannelName(Tcl_Channel chan)
+    char * Tcl_DStringAppendElement(Tcl_DString *dsPtr, CONST char *string)
 }
 declare 119 generic {
-    int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \
-	    char *optionName, Tcl_DString *dsPtr)
+    void Tcl_DStringEndSublist(Tcl_DString *dsPtr)
 }
 declare 120 generic {
-    Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
+    void Tcl_DStringFree(Tcl_DString *dsPtr)
 }
 declare 121 generic {
-    int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \
-	    Tcl_CmdInfo *infoPtr)
+    void Tcl_DStringGetResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
 }
 declare 122 generic {
-    char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command)
+    void Tcl_DStringInit(Tcl_DString *dsPtr)
 }
 declare 123 generic {
-    int Tcl_GetDouble(Tcl_Interp *interp, char *string, double *doublePtr)
+    void Tcl_DStringResult(Tcl_Interp *interp, Tcl_DString *dsPtr)
 }
 declare 124 generic {
-    int Tcl_GetDoubleFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
-	    double *doublePtr)
+    void Tcl_DStringSetLength(Tcl_DString *dsPtr, int length)
 }
 declare 125 generic {
-    int Tcl_GetErrno(void)
+    void Tcl_DStringStartSublist(Tcl_DString *dsPtr)
 }
 declare 126 generic {
-    char * Tcl_GetHostName(void)
+    int Tcl_Eof(Tcl_Channel chan)
 }
 declare 127 generic {
-    int Tcl_GetIndexFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
-	    char **tablePtr, char *msg, int flags, int *indexPtr)
+    char * Tcl_ErrnoId(void)
 }
 declare 128 generic {
-    int Tcl_GetInt(Tcl_Interp *interp, char *string, int *intPtr)
+    char * Tcl_ErrnoMsg(int err)
 }
 declare 129 generic {
-    int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp)
+    int Tcl_Eval(Tcl_Interp *interp, char *string)
 }
 declare 130 generic {
-    int Tcl_GetIntFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *intPtr)
+    int Tcl_EvalFile(Tcl_Interp *interp, char *fileName)
 }
 declare 131 generic {
-    int Tcl_GetLongFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *longPtr)
+    int Tcl_EvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
 }
 declare 132 generic {
-    Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp)
+    void Tcl_EventuallyFree(ClientData clientData, Tcl_FreeProc *freeProc)
 }
 declare 133 generic {
-    CONST char * Tcl_GetNameOfExecutable(void)
+    void Tcl_Exit(int status)
 }
 declare 134 generic {
-    Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp)
+    int Tcl_ExposeCommand(Tcl_Interp *interp, char *hiddenCmdToken, \
+	    char *cmdName)
 }
 declare 135 generic {
-    Tcl_ObjType * Tcl_GetObjType(char *typeName)
+    int Tcl_ExprBoolean(Tcl_Interp *interp, char *string, int *ptr)
 }
 declare 136 generic {
-    Tcl_PathType Tcl_GetPathType(char *path)
+    int Tcl_ExprBooleanObj(Tcl_Interp *interp, Tcl_Obj *objPtr, int *ptr)
 }
 declare 137 generic {
-    int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr)
+    int Tcl_ExprDouble(Tcl_Interp *interp, char *string, double *ptr)
 }
 declare 138 generic {
-    int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr)
+    int Tcl_ExprDoubleObj(Tcl_Interp *interp, Tcl_Obj *objPtr, double *ptr)
 }
 declare 139 generic {
-    int Tcl_GetServiceMode(void)
+    int Tcl_ExprLong(Tcl_Interp *interp, char *string, long *ptr)
 }
 declare 140 generic {
-    Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, char *slaveName)
+    int Tcl_ExprLongObj(Tcl_Interp *interp, Tcl_Obj *objPtr, long *ptr)
 }
 declare 141 generic {
-    Tcl_Channel Tcl_GetStdChannel(int type)
+    int Tcl_ExprObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+	    Tcl_Obj **resultPtrPtr)
 }
 declare 142 generic {
-    char * Tcl_GetStringFromObj(Tcl_Obj *objPtr, int *lengthPtr)
+    int Tcl_ExprString(Tcl_Interp *interp, char *string)
 }
 declare 143 generic {
-    char * Tcl_GetStringResult(Tcl_Interp *interp)
+    void Tcl_Finalize(void)
 }
 declare 144 generic {
-    char * Tcl_GetVar(Tcl_Interp *interp, char *varName, int flags)
+    void Tcl_FindExecutable(char *argv0)
 }
 declare 145 generic {
-    char * Tcl_GetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags)
+    Tcl_HashEntry * Tcl_FirstHashEntry(Tcl_HashTable *tablePtr, \
+	    Tcl_HashSearch *searchPtr)
 }
 declare 146 generic {
-    int Tcl_GlobalEval(Tcl_Interp *interp, char *command)
+    int Tcl_Flush(Tcl_Channel chan)
 }
 declare 147 generic {
-    int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
+    void Tcl_FreeResult(Tcl_Interp *interp)
 }
 declare 148 generic {
-    char * Tcl_HashStats(Tcl_HashTable *tablePtr)
+    int Tcl_GetAlias(Tcl_Interp *interp, char *slaveCmd, \
+	    Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *argcPtr, char ***argvPtr)
 }
 declare 149 generic {
-    int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \
-	    char *hiddenCmdToken)
+    int Tcl_GetAliasObj(Tcl_Interp *interp, char *slaveCmd, \
+	    Tcl_Interp **targetInterpPtr, char **targetCmdPtr, int *objcPtr, Tcl_Obj ***objv)
 }
 declare 150 generic {
-    int Tcl_Init(Tcl_Interp *interp)
+    ClientData Tcl_GetAssocData(Tcl_Interp *interp, char *name, \
+	    Tcl_InterpDeleteProc **procPtr)
 }
 declare 151 generic {
-    void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType)
+    Tcl_Channel Tcl_GetChannel(Tcl_Interp *interp, char *chanName, \
+	    int *modePtr)
 }
 declare 152 generic {
-    int Tcl_InputBlocked(Tcl_Channel chan)
+    int Tcl_GetChannelBufferSize(Tcl_Channel chan)
 }
 declare 153 generic {
-    int Tcl_InputBuffered(Tcl_Channel chan)
+    int Tcl_GetChannelHandle(Tcl_Channel chan, int direction, \
+	    ClientData *handlePtr)
 }
 declare 154 generic {
-    int Tcl_InterpDeleted(Tcl_Interp *interp)
+    ClientData Tcl_GetChannelInstanceData(Tcl_Channel chan)
 }
 declare 155 generic {
-    int Tcl_IsSafe(Tcl_Interp *interp)
+    int Tcl_GetChannelMode(Tcl_Channel chan)
 }
 declare 156 generic {
-    void Tcl_InvalidateStringRep(Tcl_Obj *objPtr)
+    char * Tcl_GetChannelName(Tcl_Channel chan)
 }
 declare 157 generic {
-    char * Tcl_JoinPath(int argc, char **argv, Tcl_DString *resultPtr)
+    int Tcl_GetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \
+	    char *optionName, Tcl_DString *dsPtr)
 }
 declare 158 generic {
-    int Tcl_LinkVar(Tcl_Interp *interp, char *varName, char *addr, int type)
+    Tcl_ChannelType * Tcl_GetChannelType(Tcl_Channel chan)
 }
 declare 159 generic {
-    int Tcl_ListObjAppendList(Tcl_Interp *interp, Tcl_Obj *listPtr, \
-	    Tcl_Obj *elemListPtr)
+    int Tcl_GetCommandInfo(Tcl_Interp *interp, char *cmdName, \
+	    Tcl_CmdInfo *infoPtr)
 }
 declare 160 generic {
-    int Tcl_ListObjAppendElement(Tcl_Interp *interp, Tcl_Obj *listPtr, \
-	    Tcl_Obj *objPtr)
+    char * Tcl_GetCommandName(Tcl_Interp *interp, Tcl_Command command)
 }
 declare 161 generic {
-    int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \
-	    int *objcPtr, Tcl_Obj ***objvPtr)
+    int Tcl_GetErrno(void)
 }
 declare 162 generic {
-    int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \
-	    Tcl_Obj **objPtrPtr)
+    char * Tcl_GetHostName(void)
 }
 declare 163 generic {
-    int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, int *intPtr)
+    int Tcl_GetInterpPath(Tcl_Interp *askInterp, Tcl_Interp *slaveInterp)
 }
 declare 164 generic {
-    int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first, \
-	    int count, int objc, Tcl_Obj *CONST objv[])
+    Tcl_Interp * Tcl_GetMaster(Tcl_Interp *interp)
 }
 declare 165 generic {
-    Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode)
+    CONST char * Tcl_GetNameOfExecutable(void)
 }
 declare 166 generic {
-    int Tcl_MakeSafe(Tcl_Interp *interp)
+    Tcl_Obj * Tcl_GetObjResult(Tcl_Interp *interp)
 }
-declare 167 generic {
-    Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket)
+
+# Tcl_GetOpenFile is only available on unix, but it is a part of the old
+# generic interface, so we inlcude it here for compatibility reasons.
+
+declare 167 unix {
+    int Tcl_GetOpenFile(Tcl_Interp *interp, char *string, int write, \
+	    int checkUsage, ClientData *filePtr)
 }
+
 declare 168 generic {
-    char * Tcl_Merge(int argc, char **argv)
+    Tcl_PathType Tcl_GetPathType(char *path)
 }
 declare 169 generic {
-    Tcl_Obj * Tcl_NewBooleanObj(int boolValue)
+    int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr)
 }
 declare 170 generic {
-    Tcl_Obj * Tcl_NewByteArrayObj(unsigned char *bytes, int length)
+    int Tcl_GetsObj(Tcl_Channel chan, Tcl_Obj *objPtr)
 }
 declare 171 generic {
-    Tcl_Obj * Tcl_NewDoubleObj(double doubleValue)
+    int Tcl_GetServiceMode(void)
 }
 declare 172 generic {
-    Tcl_Obj * Tcl_NewIntObj(int intValue)
+    Tcl_Interp * Tcl_GetSlave(Tcl_Interp *interp, char *slaveName)
 }
 declare 173 generic {
-    Tcl_Obj * Tcl_NewListObj(int objc, Tcl_Obj *CONST objv[])
+    Tcl_Channel Tcl_GetStdChannel(int type)
 }
 declare 174 generic {
-    Tcl_Obj * Tcl_NewLongObj(long longValue)
+    char * Tcl_GetStringResult(Tcl_Interp *interp)
 }
 declare 175 generic {
-    Tcl_Obj * Tcl_NewObj(void)
+    char * Tcl_GetVar(Tcl_Interp *interp, char *varName, int flags)
 }
 declare 176 generic {
-    Tcl_Obj *Tcl_NewStringObj(char *bytes, int length)
+    char * Tcl_GetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags)
 }
 declare 177 generic {
-    Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr)
+    int Tcl_GlobalEval(Tcl_Interp *interp, char *command)
 }
 declare 178 generic {
-    void Tcl_NotifyChannel(Tcl_Channel channel, int mask)
+    int Tcl_GlobalEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
 }
 declare 179 generic {
-    Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \
-	    Tcl_Obj *part2Ptr, int flags)
+    int Tcl_HideCommand(Tcl_Interp *interp, char *cmdName, \
+	    char *hiddenCmdToken)
 }
 declare 180 generic {
-    Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \
-	    Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)
+    int Tcl_Init(Tcl_Interp *interp)
 }
 declare 181 generic {
-    Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, \
-	    char **argv, int flags)
+    void Tcl_InitHashTable(Tcl_HashTable *tablePtr, int keyType)
 }
 declare 182 generic {
-    Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, char *fileName, \
-	    char *modeString, int permissions)
+    int Tcl_InputBlocked(Tcl_Channel chan)
 }
 declare 183 generic {
-    Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, \
-	    char *address, char *myaddr, int myport, int async)
+    int Tcl_InputBuffered(Tcl_Channel chan)
 }
 declare 184 generic {
-    Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, char *host, \
-	    Tcl_TcpAcceptProc *acceptProc, ClientData callbackData)
+    int Tcl_InterpDeleted(Tcl_Interp *interp)
 }
 declare 185 generic {
-    void panic(char *format, ...)
+    int Tcl_IsSafe(Tcl_Interp *interp)
 }
 declare 186 generic {
-    void panicVA(char *format, va_list argList)
+    char * Tcl_JoinPath(int argc, char **argv, Tcl_DString *resultPtr)
 }
 declare 187 generic {
-    char * Tcl_ParseVar(Tcl_Interp *interp, char *string, char **termPtr)
-}
-declare 188 generic {
-    char * Tcl_PkgPresent(Tcl_Interp *interp, char *name, char *version, \
-	    int exact)
+    int Tcl_LinkVar(Tcl_Interp *interp, char *varName, char *addr, int type)
 }
+
+# This slot is reserved for use by the plus patch:
+#  declare 188 generic {
+#      Tcl_MainLoop
+#  }
+
 declare 189 generic {
-    char * Tcl_PkgPresentEx(Tcl_Interp *interp, char *name, char *version, \
-	    int exact, ClientData *clientDataPtr)
+    Tcl_Channel Tcl_MakeFileChannel(ClientData handle, int mode)
 }
 declare 190 generic {
-    int Tcl_PkgProvide(Tcl_Interp *interp, char *name, char *version)
+    int Tcl_MakeSafe(Tcl_Interp *interp)
 }
 declare 191 generic {
-    int Tcl_PkgProvideEx(Tcl_Interp *interp, char *name, char *version, \
-	    ClientData clientData)
+    Tcl_Channel Tcl_MakeTcpClientChannel(ClientData tcpSocket)
 }
 declare 192 generic {
-    char * Tcl_PkgRequire(Tcl_Interp *interp, char *name, char *version, \
-	    int exact)
+    char * Tcl_Merge(int argc, char **argv)
 }
 declare 193 generic {
-    char * Tcl_PkgRequireEx(Tcl_Interp *interp, char *name, char *version, \
-	    int exact, ClientData *clientDataPtr)
+    Tcl_HashEntry * Tcl_NextHashEntry(Tcl_HashSearch *searchPtr)
 }
 declare 194 generic {
-    char * Tcl_PosixError(Tcl_Interp *interp)
+    void Tcl_NotifyChannel(Tcl_Channel channel, int mask)
 }
 declare 195 generic {
-    void Tcl_Preserve(ClientData data)
+    Tcl_Obj * Tcl_ObjGetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \
+	    Tcl_Obj *part2Ptr, int flags)
 }
 declare 196 generic {
-    void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst)
+    Tcl_Obj * Tcl_ObjSetVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \
+	    Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, int flags)
 }
 declare 197 generic {
-    int Tcl_PutEnv(CONST char *string)
+    Tcl_Channel Tcl_OpenCommandChannel(Tcl_Interp *interp, int argc, \
+	    char **argv, int flags)
 }
 declare 198 generic {
-    void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position)
+    Tcl_Channel Tcl_OpenFileChannel(Tcl_Interp *interp, char *fileName, \
+	    char *modeString, int permissions)
 }
 declare 199 generic {
-    int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead)
+    Tcl_Channel Tcl_OpenTcpClient(Tcl_Interp *interp, int port, \
+	    char *address, char *myaddr, int myport, int async)
 }
 declare 200 generic {
-    char * Tcl_Realloc(char *ptr, unsigned int size)
+    Tcl_Channel Tcl_OpenTcpServer(Tcl_Interp *interp, int port, char *host, \
+	    Tcl_TcpAcceptProc *acceptProc, ClientData callbackData)
 }
 declare 201 generic {
-    void Tcl_ReapDetachedProcs(void)
+    void Tcl_Preserve(ClientData data)
 }
 declare 202 generic {
-    int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags)
+    void Tcl_PrintDouble(Tcl_Interp *interp, double value, char *dst)
 }
 declare 203 generic {
-    int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)
+    int Tcl_PutEnv(CONST char *string)
 }
 declare 204 generic {
-    Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, char *string)
+    char * Tcl_PosixError(Tcl_Interp *interp)
 }
 declare 205 generic {
-    int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, char *string, \
-	    char *start)
+    void Tcl_QueueEvent(Tcl_Event *evPtr, Tcl_QueuePosition position)
 }
 declare 206 generic {
-    int Tcl_RegExpMatch(Tcl_Interp *interp, char *string, char *pattern)
+    int Tcl_Read(Tcl_Channel chan, char *bufPtr, int toRead)
 }
 declare 207 generic {
-    void Tcl_RegExpRange(Tcl_RegExp regexp, int index, char **startPtr, \
-	    char **endPtr)
+    void Tcl_ReapDetachedProcs(void)
 }
 declare 208 generic {
-    void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
+    int Tcl_RecordAndEval(Tcl_Interp *interp, char *cmd, int flags)
 }
 declare 209 generic {
-    void Tcl_RegisterObjType(Tcl_ObjType *typePtr)
+    int Tcl_RecordAndEvalObj(Tcl_Interp *interp, Tcl_Obj *cmdPtr, int flags)
 }
 declare 210 generic {
-    void Tcl_Release(ClientData clientData)
+    void Tcl_RegisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
 }
 declare 211 generic {
-    void Tcl_ResetResult(Tcl_Interp *interp)
+    void Tcl_RegisterObjType(Tcl_ObjType *typePtr)
 }
 declare 212 generic {
-    int Tcl_ScanCountedElement(CONST char *string, int length, int *flagPtr)
+    Tcl_RegExp Tcl_RegExpCompile(Tcl_Interp *interp, char *string)
 }
 declare 213 generic {
-    int Tcl_ScanElement(CONST char *string, int *flagPtr)
+    int Tcl_RegExpExec(Tcl_Interp *interp, Tcl_RegExp regexp, char *string, \
+	    char *start)
 }
 declare 214 generic {
-    int Tcl_Seek(Tcl_Channel chan, int offset, int mode)
+    int Tcl_RegExpMatch(Tcl_Interp *interp, char *string, char *pattern)
 }
 declare 215 generic {
-    int Tcl_ServiceAll(void)
+    void Tcl_RegExpRange(Tcl_RegExp regexp, int index, char **startPtr, \
+	    char **endPtr)
 }
 declare 216 generic {
-    int Tcl_ServiceEvent(int flags)
+    void Tcl_Release(ClientData clientData)
 }
 declare 217 generic {
-    void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \
-	    Tcl_InterpDeleteProc *proc, ClientData clientData)
+    void Tcl_ResetResult(Tcl_Interp *interp)
 }
 declare 218 generic {
-    void Tcl_SetBooleanObj(Tcl_Obj *objPtr,  int boolValue)
+    int Tcl_ScanElement(CONST char *string, int *flagPtr)
 }
 declare 219 generic {
-    unsigned char * Tcl_SetByteArrayLength(Tcl_Obj *objPtr, int length)
+    int Tcl_ScanCountedElement(CONST char *string, int length, int *flagPtr)
 }
 declare 220 generic {
-    void Tcl_SetByteArrayObj(Tcl_Obj *objPtr, unsigned char *bytes, int length)
+    int Tcl_Seek(Tcl_Channel chan, int offset, int mode)
 }
 declare 221 generic {
-    void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz)
+    int Tcl_ServiceAll(void)
 }
 declare 222 generic {
-    int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \
-	    char *optionName, char *newValue)
+    int Tcl_ServiceEvent(int flags)
 }
 declare 223 generic {
-    int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \
-	    Tcl_CmdInfo *infoPtr)
+    void Tcl_SetAssocData(Tcl_Interp *interp, char *name, \
+	    Tcl_InterpDeleteProc *proc, ClientData clientData)
 }
 declare 224 generic {
-    void Tcl_SetDoubleObj(Tcl_Obj *objPtr, double doubleValue)
+    void Tcl_SetChannelBufferSize(Tcl_Channel chan, int sz)
 }
 declare 225 generic {
-    void Tcl_SetErrno(int err)
+    int Tcl_SetChannelOption(Tcl_Interp *interp, Tcl_Channel chan, \
+	    char *optionName, char *newValue)
 }
 declare 226 generic {
-    void Tcl_SetErrorCode(Tcl_Interp *interp, ...)
+    int Tcl_SetCommandInfo(Tcl_Interp *interp, char *cmdName, \
+	    Tcl_CmdInfo *infoPtr)
 }
 declare 227 generic {
-    void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList)
+    void Tcl_SetErrno(int err)
 }
 declare 228 generic {
-    void Tcl_SetIntObj(Tcl_Obj *objPtr,  int intValue)
+    void Tcl_SetErrorCode(Tcl_Interp *interp, ...)
 }
 declare 229 generic {
-    void Tcl_SetListObj(Tcl_Obj *objPtr,  int objc, Tcl_Obj *CONST objv[])
+    void Tcl_SetMaxBlockTime(Tcl_Time *timePtr)
 }
 declare 230 generic {
-    void Tcl_SetLongObj(Tcl_Obj *objPtr,  long longValue)
+    void Tcl_SetPanicProc(Tcl_PanicProc *panicProc)
 }
 declare 231 generic {
-    void Tcl_SetMaxBlockTime(Tcl_Time *timePtr)
+    int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth)
 }
 declare 232 generic {
-    void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr)
+    void Tcl_SetResult(Tcl_Interp *interp, char *string, \
+	    Tcl_FreeProc *freeProc)
 }
 declare 233 generic {
-    void Tcl_SetObjLength(Tcl_Obj *objPtr, int length)
+    int Tcl_SetServiceMode(int mode)
 }
 declare 234 generic {
-    void Tcl_SetObjResult(Tcl_Interp *interp, Tcl_Obj *resultObjPtr)
+    void Tcl_SetObjErrorCode(Tcl_Interp *interp, Tcl_Obj *errorObjPtr)
 }
 declare 235 generic {
-    void Tcl_SetPanicProc(Tcl_PanicProc *panicProc)
+    void Tcl_SetObjResult(Tcl_Interp *interp, Tcl_Obj *resultObjPtr)
 }
 declare 236 generic {
-    int Tcl_SetRecursionLimit(Tcl_Interp *interp, int depth)
-}
-declare 237 generic {
-    void Tcl_SetResult(Tcl_Interp *interp, char *string, \
-	    Tcl_FreeProc *freeProc)
-}
-declare 238 generic {
-    int Tcl_SetServiceMode(int mode)
-}
-declare 239 generic {
     void Tcl_SetStdChannel(Tcl_Channel channel, int type)
 }
-declare 240 generic {
-    void Tcl_SetStringObj(Tcl_Obj *objPtr,  char *bytes, int length)
-}
-declare 241 generic {
-    void Tcl_SetTimer(Tcl_Time *timePtr)
-}
-declare 242 generic {
+declare 237 generic {
     char * Tcl_SetVar(Tcl_Interp *interp, char *varName, char *newValue, \
 	    int flags)
 }
-declare 243 generic {
+declare 238 generic {
     char * Tcl_SetVar2(Tcl_Interp *interp, char *part1, char *part2, \
 	    char *newValue, int flags)
 }
-declare 244 generic {
+declare 239 generic {
     char * Tcl_SignalId(int sig)
 }
-declare 245 generic {
+declare 240 generic {
     char * Tcl_SignalMsg(int sig)
 }
-declare 246 generic {
-    void Tcl_Sleep(int ms)
-}
-declare 247 generic {
+declare 241 generic {
     void Tcl_SourceRCFile(Tcl_Interp *interp)
 }
-declare 248 generic {
+declare 242 generic {
     int Tcl_SplitList(Tcl_Interp *interp, char *list, int *argcPtr, \
 	    char ***argvPtr)
 }
-declare 249 generic {
+declare 243 generic {
     void Tcl_SplitPath(char *path, int *argcPtr, char ***argvPtr)
 }
-declare 250 generic {
+declare 244 generic {
     void Tcl_StaticPackage(Tcl_Interp *interp, char *pkgName, \
 	    Tcl_PackageInitProc *initProc, Tcl_PackageInitProc *safeInitProc)
 }
-declare 251 generic {
+declare 245 generic {
     int Tcl_StringMatch(char *string, char *pattern)
 }
-declare 252 generic {
+declare 246 generic {
     int Tcl_Tell(Tcl_Channel chan)
 }
-declare 253 generic {
+declare 247 generic {
     int Tcl_TraceVar(Tcl_Interp *interp, char *varName, int flags, \
 	    Tcl_VarTraceProc *proc, ClientData clientData)
 }
-declare 254 generic {
+declare 248 generic {
     int Tcl_TraceVar2(Tcl_Interp *interp, char *part1, char *part2, \
 	    int flags, Tcl_VarTraceProc *proc, ClientData clientData)
 }
-declare 255 generic {
+declare 249 generic {
     char * Tcl_TranslateFileName(Tcl_Interp *interp, char *name, \
 	    Tcl_DString *bufferPtr)
 }
-declare 256 generic {
+declare 250 generic {
     int Tcl_Ungets(Tcl_Channel chan, char *str, int len, int atHead)
 }
-declare 257 generic {
+declare 251 generic {
     void Tcl_UnlinkVar(Tcl_Interp *interp, char *varName)
 }
-declare 258 generic {
+declare 252 generic {
     int Tcl_UnregisterChannel(Tcl_Interp *interp, Tcl_Channel chan)
 }
-declare 259 generic {
+declare 253 generic {
     int Tcl_UnsetVar(Tcl_Interp *interp, char *varName, int flags)
 }
-declare 260 generic {
+declare 254 generic {
     int Tcl_UnsetVar2(Tcl_Interp *interp, char *part1, char *part2, int flags)
 }
-declare 261 generic {
+declare 255 generic {
     void Tcl_UntraceVar(Tcl_Interp *interp, char *varName, int flags, \
 	    Tcl_VarTraceProc *proc, ClientData clientData)
 }
-declare 262 generic {
+declare 256 generic {
     void Tcl_UntraceVar2(Tcl_Interp *interp, char *part1, char *part2, \
 	    int flags, Tcl_VarTraceProc *proc, ClientData clientData)
 }
-declare 263 generic {
+declare 257 generic {
     void Tcl_UpdateLinkedVar(Tcl_Interp *interp, char *varName)
 }
-declare 264 generic {
+declare 258 generic {
     int Tcl_UpVar(Tcl_Interp *interp, char *frameName, char *varName, \
 	    char *localName, int flags)
 }
-declare 265 generic {
+declare 259 generic {
     int Tcl_UpVar2(Tcl_Interp *interp, char *frameName, char *part1, \
 	    char *part2, char *localName, int flags)
 }
+declare 260 generic {
+    int Tcl_VarEval(Tcl_Interp *interp, ...)
+}
+declare 261 generic {
+    ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, char *varName, \
+	    int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData)
+}
+declare 262 generic {
+    ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, char *part1, \
+	    char *part2, int flags, Tcl_VarTraceProc *procPtr, \
+	    ClientData prevClientData)
+}
+declare 263 generic {
+    int Tcl_Write(Tcl_Channel chan, char *s, int slen)
+}
+declare 264 generic {
+    void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, \
+	    Tcl_Obj *CONST objv[], char *message)
+}
+declare 265 generic {
+    int Tcl_DumpActiveMemory(char *fileName)
+}
 declare 266 generic {
     void Tcl_ValidateAllMemory(char *file, int line)
 }
 declare 267 generic {
-    int Tcl_VarEval(Tcl_Interp *interp, ...)
+    void Tcl_AppendResultVA(Tcl_Interp *interp, va_list argList)
 }
 declare 268 generic {
-    int  Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList)
+    void Tcl_AppendStringsToObjVA(Tcl_Obj *objPtr, va_list argList)
 }
 declare 269 generic {
-    ClientData Tcl_VarTraceInfo(Tcl_Interp *interp, char *varName, \
-	    int flags, Tcl_VarTraceProc *procPtr, ClientData prevClientData)
+    char * Tcl_HashStats(Tcl_HashTable *tablePtr)
 }
 declare 270 generic {
-    ClientData Tcl_VarTraceInfo2(Tcl_Interp *interp, char *part1, \
-	    char *part2, int flags, Tcl_VarTraceProc *procPtr, \
-	    ClientData prevClientData)
+    char * Tcl_ParseVar(Tcl_Interp *interp, char *string, char **termPtr)
 }
 declare 271 generic {
-    int Tcl_WaitForEvent(Tcl_Time *timePtr)
+    char * Tcl_PkgPresent(Tcl_Interp *interp, char *name, char *version, \
+	    int exact)
 }
 declare 272 generic {
-    Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options)
+    char * Tcl_PkgPresentEx(Tcl_Interp *interp, char *name, char *version, \
+	    int exact, ClientData *clientDataPtr)
 }
 declare 273 generic {
-    int Tcl_Write(Tcl_Channel chan, char *s, int slen)
+    int Tcl_PkgProvide(Tcl_Interp *interp, char *name, char *version)
 }
 declare 274 generic {
-    void Tcl_WrongNumArgs(Tcl_Interp *interp, int objc, \
-	    Tcl_Obj *CONST objv[], char *message)
+    char * Tcl_PkgRequire(Tcl_Interp *interp, char *name, char *version, \
+	    int exact)
+}
+declare 275 generic {
+    void Tcl_SetErrorCodeVA(Tcl_Interp *interp, va_list argList)
+}
+declare 276 generic {
+    int  Tcl_VarEvalVA(Tcl_Interp *interp, va_list argList)
+}
+declare 277 generic {
+    Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options)
+}
+declare 278 generic {
+    void panicVA(char *format, va_list argList)
 }
 
 ##############################################################################
@@ -987,18 +1015,3 @@ declare 8 mac {
     int strcasecmp(CONST char *s1, CONST char *s2)
 }
 
-
-####################
-# Unix declaractions
-
-declare 0 unix {
-    void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc, \
-	    ClientData clientData)
-}
-declare 1 unix {
-    void Tcl_DeleteFileHandler(int fd)
-}
-declare 2 unix {
-    int Tcl_GetOpenFile(Tcl_Interp *interp, char *string, int write, \
-	    int checkUsage, ClientData *filePtr)
-}