diff options
Diffstat (limited to 'generic/tclStubs.c')
| -rw-r--r-- | generic/tclStubs.c | 2036 |
1 files changed, 1037 insertions, 999 deletions
diff --git a/generic/tclStubs.c b/generic/tclStubs.c index eb1b729..f562016 100644 --- a/generic/tclStubs.c +++ b/generic/tclStubs.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubs.c,v 1.2 1999/03/04 01:01:59 stanton Exp $ + * RCS: @(#) $Id: tclStubs.c,v 1.3 1999/03/10 05:52:50 stanton Exp $ */ #include "tcl.h" @@ -45,25 +45,42 @@ */ /* Slot 0 */ -void -Tcl_AddErrorInfo(interp, message) +int +Tcl_PkgProvideEx(interp, name, version, clientData) Tcl_Interp * interp; - char * message; + char * name; + char * version; + ClientData clientData; { - (tclStubsPtr->tcl_AddErrorInfo)(interp, message); + return (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData); } /* Slot 1 */ -void -Tcl_AddObjErrorInfo(interp, message, length) +char * +Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) Tcl_Interp * interp; - char * message; - int length; + char * name; + char * version; + int exact; + ClientData * clientDataPtr; { - (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length); + return (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr); } /* Slot 2 */ +void +panic TCL_VARARGS_DEF(char *,format) +{ + char * var; + va_list argList; + + var = (char *) TCL_VARARGS_START(char *,format,argList); + + (tclStubsPtr->panicVA)(var, argList); + va_end(argList); +} + +/* Slot 3 */ char * Tcl_Alloc(size) unsigned int size; @@ -71,15 +88,102 @@ Tcl_Alloc(size) return (tclStubsPtr->tcl_Alloc)(size); } -/* Slot 3 */ +/* Slot 4 */ void -Tcl_AllowExceptions(interp) - Tcl_Interp * interp; +Tcl_Free(ptr) + char * ptr; { - (tclStubsPtr->tcl_AllowExceptions)(interp); + (tclStubsPtr->tcl_Free)(ptr); } -/* Slot 4 */ +/* Slot 5 */ +char * +Tcl_Realloc(ptr, size) + char * ptr; + unsigned int size; +{ + return (tclStubsPtr->tcl_Realloc)(ptr, size); +} + +/* Slot 6 */ +char * +Tcl_DbCkalloc(size, file, line) + unsigned int size; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkalloc)(size, file, line); +} + +/* Slot 7 */ +int +Tcl_DbCkfree(ptr, file, line) + char * ptr; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkfree)(ptr, file, line); +} + +/* Slot 8 */ +char * +Tcl_DbCkrealloc(ptr, size, file, line) + char * ptr; + unsigned int size; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line); +} + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 9 */ +void +Tcl_CreateFileHandler(fd, mask, proc, clientData) + int fd; + int mask; + Tcl_FileProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData); +} + +#endif /* UNIX */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 10 */ +void +Tcl_DeleteFileHandler(fd) + int fd; +{ + (tclStubsPtr->tcl_DeleteFileHandler)(fd); +} + +#endif /* UNIX */ +/* Slot 11 */ +void +Tcl_SetTimer(timePtr) + Tcl_Time * timePtr; +{ + (tclStubsPtr->tcl_SetTimer)(timePtr); +} + +/* Slot 12 */ +void +Tcl_Sleep(ms) + int ms; +{ + (tclStubsPtr->tcl_Sleep)(ms); +} + +/* Slot 13 */ +int +Tcl_WaitForEvent(timePtr) + Tcl_Time * timePtr; +{ + return (tclStubsPtr->tcl_WaitForEvent)(timePtr); +} + +/* Slot 14 */ int Tcl_AppendAllObjTypes(interp, objPtr) Tcl_Interp * interp; @@ -88,70 +192,548 @@ Tcl_AppendAllObjTypes(interp, objPtr) return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr); } -/* Slot 5 */ +/* Slot 15 */ void -Tcl_AppendElement(interp, string) +Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,objPtr) +{ + Tcl_Obj * var; + va_list argList; + + var = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList); + + (tclStubsPtr->tcl_AppendStringsToObjVA)(var, argList); + va_end(argList); +} + +/* Slot 16 */ +void +Tcl_AppendToObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + char * bytes; + int length; +{ + (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length); +} + +/* Slot 17 */ +Tcl_Obj * +Tcl_ConcatObj(objc, objv) + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_ConcatObj)(objc, objv); +} + +/* Slot 18 */ +int +Tcl_ConvertToType(interp, objPtr, typePtr) Tcl_Interp * interp; - char * string; + Tcl_Obj * objPtr; + Tcl_ObjType * typePtr; { - (tclStubsPtr->tcl_AppendElement)(interp, string); + return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr); } -/* Slot 6 */ +/* Slot 19 */ void -Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,interp) +Tcl_DbDecrRefCount(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; { - Tcl_Interp * var; - va_list argList; + (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line); +} - var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); +/* Slot 20 */ +void +Tcl_DbIncrRefCount(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line); +} - (tclStubsPtr->tcl_AppendResultVA)(var, argList); - va_end(argList); +/* Slot 21 */ +int +Tcl_DbIsShared(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line); } -/* Slot 7 */ +/* Slot 22 */ +Tcl_Obj * +Tcl_DbNewBooleanObj(boolValue, file, line) + int boolValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line); +} + +/* Slot 23 */ +Tcl_Obj * +Tcl_DbNewByteArrayObj(bytes, length, file, line) + unsigned char * bytes; + int length; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line); +} + +/* Slot 24 */ +Tcl_Obj * +Tcl_DbNewDoubleObj(doubleValue, file, line) + double doubleValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line); +} + +/* Slot 25 */ +Tcl_Obj * +Tcl_DbNewListObj(objc, objv, file, line) + int objc; + Tcl_Obj *CONST objv[]; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line); +} + +/* Slot 26 */ +Tcl_Obj * +Tcl_DbNewLongObj(longValue, file, line) + long longValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line); +} + +/* Slot 27 */ +Tcl_Obj * +Tcl_DbNewObj(file, line) + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewObj)(file, line); +} + +/* Slot 28 */ +Tcl_Obj * +Tcl_DbNewStringObj(bytes, length, file, line) + char * bytes; + int length; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line); +} + +/* Slot 29 */ +Tcl_Obj * +Tcl_DuplicateObj(objPtr) + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_DuplicateObj)(objPtr); +} + +/* Slot 30 */ void -Tcl_AppendResultVA(interp, argList) +TclFreeObj(objPtr) + Tcl_Obj * objPtr; +{ + (tclStubsPtr->tclFreeObj)(objPtr); +} + +/* Slot 31 */ +int +Tcl_GetBoolean(interp, string, boolPtr) Tcl_Interp * interp; - va_list argList; + char * string; + int * boolPtr; { - (tclStubsPtr->tcl_AppendResultVA)(interp, argList); + return (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr); } -/* Slot 8 */ +/* Slot 32 */ +int +Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * boolPtr; +{ + return (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr); +} + +/* Slot 33 */ +unsigned char * +Tcl_GetByteArrayFromObj(objPtr, lengthPtr) + Tcl_Obj * objPtr; + int * lengthPtr; +{ + return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr); +} + +/* Slot 34 */ +int +Tcl_GetDouble(interp, string, doublePtr) + Tcl_Interp * interp; + char * string; + double * doublePtr; +{ + return (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr); +} + +/* Slot 35 */ +int +Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + double * doublePtr; +{ + return (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr); +} + +/* Slot 36 */ +int +Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + char ** tablePtr; + char * msg; + int flags; + int * indexPtr; +{ + return (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr); +} + +/* Slot 37 */ +int +Tcl_GetInt(interp, string, intPtr) + Tcl_Interp * interp; + char * string; + int * intPtr; +{ + return (tclStubsPtr->tcl_GetInt)(interp, string, intPtr); +} + +/* Slot 38 */ +int +Tcl_GetIntFromObj(interp, objPtr, intPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * intPtr; +{ + return (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr); +} + +/* Slot 39 */ +int +Tcl_GetLongFromObj(interp, objPtr, longPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + long * longPtr; +{ + return (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr); +} + +/* Slot 40 */ +Tcl_ObjType * +Tcl_GetObjType(typeName) + char * typeName; +{ + return (tclStubsPtr->tcl_GetObjType)(typeName); +} + +/* Slot 41 */ +char * +Tcl_GetStringFromObj(objPtr, lengthPtr) + Tcl_Obj * objPtr; + int * lengthPtr; +{ + return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr); +} + +/* Slot 42 */ void -Tcl_AppendToObj(objPtr, bytes, length) +Tcl_InvalidateStringRep(objPtr) Tcl_Obj * objPtr; +{ + (tclStubsPtr->tcl_InvalidateStringRep)(objPtr); +} + +/* Slot 43 */ +int +Tcl_ListObjAppendList(interp, listPtr, elemListPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + Tcl_Obj * elemListPtr; +{ + return (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr); +} + +/* Slot 44 */ +int +Tcl_ListObjAppendElement(interp, listPtr, objPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr); +} + +/* Slot 45 */ +int +Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int * objcPtr; + Tcl_Obj *** objvPtr; +{ + return (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr); +} + +/* Slot 46 */ +int +Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int index; + Tcl_Obj ** objPtrPtr; +{ + return (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr); +} + +/* Slot 47 */ +int +Tcl_ListObjLength(interp, listPtr, intPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int * intPtr; +{ + return (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr); +} + +/* Slot 48 */ +int +Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int first; + int count; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv); +} + +/* Slot 49 */ +Tcl_Obj * +Tcl_NewBooleanObj(boolValue) + int boolValue; +{ + return (tclStubsPtr->tcl_NewBooleanObj)(boolValue); +} + +/* Slot 50 */ +Tcl_Obj * +Tcl_NewByteArrayObj(bytes, length) + unsigned char * bytes; + int length; +{ + return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length); +} + +/* Slot 51 */ +Tcl_Obj * +Tcl_NewDoubleObj(doubleValue) + double doubleValue; +{ + return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue); +} + +/* Slot 52 */ +Tcl_Obj * +Tcl_NewIntObj(intValue) + int intValue; +{ + return (tclStubsPtr->tcl_NewIntObj)(intValue); +} + +/* Slot 53 */ +Tcl_Obj * +Tcl_NewListObj(objc, objv) + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_NewListObj)(objc, objv); +} + +/* Slot 54 */ +Tcl_Obj * +Tcl_NewLongObj(longValue) + long longValue; +{ + return (tclStubsPtr->tcl_NewLongObj)(longValue); +} + +/* Slot 55 */ +Tcl_Obj * +Tcl_NewObj() +{ + return (tclStubsPtr->tcl_NewObj)(); +} + +/* Slot 56 */ +Tcl_Obj * +Tcl_NewStringObj(bytes, length) char * bytes; int length; { - (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length); + return (tclStubsPtr->tcl_NewStringObj)(bytes, length); } -/* Slot 9 */ +/* Slot 57 */ void -Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,objPtr) +Tcl_SetBooleanObj(objPtr, boolValue) + Tcl_Obj * objPtr; + int boolValue; { - Tcl_Obj * var; - va_list argList; + (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue); +} - var = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList); +/* Slot 58 */ +unsigned char * +Tcl_SetByteArrayLength(objPtr, length) + Tcl_Obj * objPtr; + int length; +{ + return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length); +} - (tclStubsPtr->tcl_AppendStringsToObjVA)(var, argList); - va_end(argList); +/* Slot 59 */ +void +Tcl_SetByteArrayObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + unsigned char * bytes; + int length; +{ + (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length); } -/* Slot 10 */ +/* Slot 60 */ void -Tcl_AppendStringsToObjVA(objPtr, argList) +Tcl_SetDoubleObj(objPtr, doubleValue) Tcl_Obj * objPtr; - va_list argList; + double doubleValue; { - (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList); + (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue); } -/* Slot 11 */ +/* Slot 61 */ +void +Tcl_SetIntObj(objPtr, intValue) + Tcl_Obj * objPtr; + int intValue; +{ + (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue); +} + +/* Slot 62 */ +void +Tcl_SetListObj(objPtr, objc, objv) + Tcl_Obj * objPtr; + int objc; + Tcl_Obj *CONST objv[]; +{ + (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv); +} + +/* Slot 63 */ +void +Tcl_SetLongObj(objPtr, longValue) + Tcl_Obj * objPtr; + long longValue; +{ + (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue); +} + +/* Slot 64 */ +void +Tcl_SetObjLength(objPtr, length) + Tcl_Obj * objPtr; + int length; +{ + (tclStubsPtr->tcl_SetObjLength)(objPtr, length); +} + +/* Slot 65 */ +void +Tcl_SetStringObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + char * bytes; + int length; +{ + (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length); +} + +/* Slot 66 */ +void +Tcl_AddErrorInfo(interp, message) + Tcl_Interp * interp; + char * message; +{ + (tclStubsPtr->tcl_AddErrorInfo)(interp, message); +} + +/* Slot 67 */ +void +Tcl_AddObjErrorInfo(interp, message, length) + Tcl_Interp * interp; + char * message; + int length; +{ + (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length); +} + +/* Slot 68 */ +void +Tcl_AllowExceptions(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_AllowExceptions)(interp); +} + +/* Slot 69 */ +void +Tcl_AppendElement(interp, string) + Tcl_Interp * interp; + char * string; +{ + (tclStubsPtr->tcl_AppendElement)(interp, string); +} + +/* Slot 70 */ +void +Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,interp) +{ + Tcl_Interp * var; + va_list argList; + + var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); + + (tclStubsPtr->tcl_AppendResultVA)(var, argList); + va_end(argList); +} + +/* Slot 71 */ Tcl_AsyncHandler Tcl_AsyncCreate(proc, clientData) Tcl_AsyncProc * proc; @@ -160,7 +742,7 @@ Tcl_AsyncCreate(proc, clientData) return (tclStubsPtr->tcl_AsyncCreate)(proc, clientData); } -/* Slot 12 */ +/* Slot 72 */ void Tcl_AsyncDelete(async) Tcl_AsyncHandler async; @@ -168,7 +750,7 @@ Tcl_AsyncDelete(async) (tclStubsPtr->tcl_AsyncDelete)(async); } -/* Slot 13 */ +/* Slot 73 */ int Tcl_AsyncInvoke(interp, code) Tcl_Interp * interp; @@ -177,7 +759,7 @@ Tcl_AsyncInvoke(interp, code) return (tclStubsPtr->tcl_AsyncInvoke)(interp, code); } -/* Slot 14 */ +/* Slot 74 */ void Tcl_AsyncMark(async) Tcl_AsyncHandler async; @@ -185,14 +767,14 @@ Tcl_AsyncMark(async) (tclStubsPtr->tcl_AsyncMark)(async); } -/* Slot 15 */ +/* Slot 75 */ int Tcl_AsyncReady() { return (tclStubsPtr->tcl_AsyncReady)(); } -/* Slot 16 */ +/* Slot 76 */ void Tcl_BackgroundError(interp) Tcl_Interp * interp; @@ -200,7 +782,7 @@ Tcl_BackgroundError(interp) (tclStubsPtr->tcl_BackgroundError)(interp); } -/* Slot 17 */ +/* Slot 77 */ char Tcl_Backslash(src, readPtr) CONST char * src; @@ -209,7 +791,7 @@ Tcl_Backslash(src, readPtr) return (tclStubsPtr->tcl_Backslash)(src, readPtr); } -/* Slot 18 */ +/* Slot 78 */ int Tcl_BadChannelOption(interp, optionName, optionList) Tcl_Interp * interp; @@ -219,7 +801,7 @@ Tcl_BadChannelOption(interp, optionName, optionList) return (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList); } -/* Slot 19 */ +/* Slot 79 */ void Tcl_CallWhenDeleted(interp, proc, clientData) Tcl_Interp * interp; @@ -229,7 +811,7 @@ Tcl_CallWhenDeleted(interp, proc, clientData) (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData); } -/* Slot 20 */ +/* Slot 80 */ void Tcl_CancelIdleCall(idleProc, clientData) Tcl_IdleProc * idleProc; @@ -238,7 +820,7 @@ Tcl_CancelIdleCall(idleProc, clientData) (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData); } -/* Slot 21 */ +/* Slot 81 */ int Tcl_Close(interp, chan) Tcl_Interp * interp; @@ -247,7 +829,7 @@ Tcl_Close(interp, chan) return (tclStubsPtr->tcl_Close)(interp, chan); } -/* Slot 22 */ +/* Slot 82 */ int Tcl_CommandComplete(cmd) char * cmd; @@ -255,7 +837,7 @@ Tcl_CommandComplete(cmd) return (tclStubsPtr->tcl_CommandComplete)(cmd); } -/* Slot 23 */ +/* Slot 83 */ char * Tcl_Concat(argc, argv) int argc; @@ -264,47 +846,28 @@ Tcl_Concat(argc, argv) return (tclStubsPtr->tcl_Concat)(argc, argv); } -/* Slot 24 */ -Tcl_Obj * -Tcl_ConcatObj(objc, objv) - int objc; - Tcl_Obj *CONST objv[]; -{ - return (tclStubsPtr->tcl_ConcatObj)(objc, objv); -} - -/* Slot 25 */ +/* Slot 84 */ int -Tcl_ConvertCountedElement(src, length, dst, flags) +Tcl_ConvertElement(src, dst, flags) CONST char * src; - int length; char * dst; int flags; { - return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags); + return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags); } -/* Slot 26 */ +/* Slot 85 */ int -Tcl_ConvertElement(src, dst, flags) +Tcl_ConvertCountedElement(src, length, dst, flags) CONST char * src; + int length; char * dst; int flags; { - return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags); -} - -/* Slot 27 */ -int -Tcl_ConvertToType(interp, objPtr, typePtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - Tcl_ObjType * typePtr; -{ - return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr); + return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags); } -/* Slot 28 */ +/* Slot 86 */ int Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) Tcl_Interp * slave; @@ -317,7 +880,7 @@ Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) return (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv); } -/* Slot 29 */ +/* Slot 87 */ int Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) Tcl_Interp * slave; @@ -330,7 +893,7 @@ Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) return (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv); } -/* Slot 30 */ +/* Slot 88 */ Tcl_Channel Tcl_CreateChannel(typePtr, chanName, instanceData, mask) Tcl_ChannelType * typePtr; @@ -341,7 +904,7 @@ Tcl_CreateChannel(typePtr, chanName, instanceData, mask) return (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask); } -/* Slot 31 */ +/* Slot 89 */ void Tcl_CreateChannelHandler(chan, mask, proc, clientData) Tcl_Channel chan; @@ -352,7 +915,7 @@ Tcl_CreateChannelHandler(chan, mask, proc, clientData) (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData); } -/* Slot 32 */ +/* Slot 90 */ void Tcl_CreateCloseHandler(chan, proc, clientData) Tcl_Channel chan; @@ -362,7 +925,7 @@ Tcl_CreateCloseHandler(chan, proc, clientData) (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData); } -/* Slot 33 */ +/* Slot 91 */ Tcl_Command Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) Tcl_Interp * interp; @@ -374,7 +937,7 @@ Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) return (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc); } -/* Slot 34 */ +/* Slot 92 */ void Tcl_CreateEventSource(setupProc, checkProc, clientData) Tcl_EventSetupProc * setupProc; @@ -384,7 +947,7 @@ Tcl_CreateEventSource(setupProc, checkProc, clientData) (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData); } -/* Slot 35 */ +/* Slot 93 */ void Tcl_CreateExitHandler(proc, clientData) Tcl_ExitProc * proc; @@ -393,14 +956,14 @@ Tcl_CreateExitHandler(proc, clientData) (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData); } -/* Slot 36 */ +/* Slot 94 */ Tcl_Interp * Tcl_CreateInterp() { return (tclStubsPtr->tcl_CreateInterp)(); } -/* Slot 37 */ +/* Slot 95 */ void Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) Tcl_Interp * interp; @@ -413,7 +976,7 @@ Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData); } -/* Slot 38 */ +/* Slot 96 */ Tcl_Command Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) Tcl_Interp * interp; @@ -425,7 +988,7 @@ Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) return (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc); } -/* Slot 39 */ +/* Slot 97 */ Tcl_Interp * Tcl_CreateSlave(interp, slaveName, isSafe) Tcl_Interp * interp; @@ -435,7 +998,7 @@ Tcl_CreateSlave(interp, slaveName, isSafe) return (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe); } -/* Slot 40 */ +/* Slot 98 */ Tcl_TimerToken Tcl_CreateTimerHandler(milliseconds, proc, clientData) int milliseconds; @@ -445,7 +1008,7 @@ Tcl_CreateTimerHandler(milliseconds, proc, clientData) return (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData); } -/* Slot 41 */ +/* Slot 99 */ Tcl_Trace Tcl_CreateTrace(interp, level, proc, clientData) Tcl_Interp * interp; @@ -456,149 +1019,36 @@ Tcl_CreateTrace(interp, level, proc, clientData) return (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData); } -/* Slot 42 */ -char * -Tcl_DbCkalloc(size, file, line) - unsigned int size; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbCkalloc)(size, file, line); -} - -/* Slot 43 */ -int -Tcl_DbCkfree(ptr, file, line) - char * ptr; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbCkfree)(ptr, file, line); -} - -/* Slot 44 */ -char * -Tcl_DbCkrealloc(ptr, size, file, line) - char * ptr; - unsigned int size; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line); -} - -/* Slot 45 */ +/* Slot 100 */ void -Tcl_DbDecrRefCount(objPtr, file, line) - Tcl_Obj * objPtr; - char * file; - int line; +Tcl_DeleteAssocData(interp, name) + Tcl_Interp * interp; + char * name; { - (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line); + (tclStubsPtr->tcl_DeleteAssocData)(interp, name); } -/* Slot 46 */ +/* Slot 101 */ void -Tcl_DbIncrRefCount(objPtr, file, line) - Tcl_Obj * objPtr; - char * file; - int line; -{ - (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line); -} - -/* Slot 47 */ -int -Tcl_DbIsShared(objPtr, file, line) - Tcl_Obj * objPtr; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line); -} - -/* Slot 48 */ -Tcl_Obj * -Tcl_DbNewBooleanObj(boolValue, file, line) - int boolValue; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line); -} - -/* Slot 49 */ -Tcl_Obj * -Tcl_DbNewByteArrayObj(bytes, length, file, line) - unsigned char * bytes; - int length; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line); -} - -/* Slot 50 */ -Tcl_Obj * -Tcl_DbNewDoubleObj(doubleValue, file, line) - double doubleValue; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line); -} - -/* Slot 51 */ -Tcl_Obj * -Tcl_DbNewListObj(objc, objv, file, line) - int objc; - Tcl_Obj *CONST objv[]; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line); -} - -/* Slot 52 */ -Tcl_Obj * -Tcl_DbNewLongObj(longValue, file, line) - long longValue; - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line); -} - -/* Slot 53 */ -Tcl_Obj * -Tcl_DbNewObj(file, line) - char * file; - int line; -{ - return (tclStubsPtr->tcl_DbNewObj)(file, line); -} - -/* Slot 54 */ -Tcl_Obj * -Tcl_DbNewStringObj(bytes, length, file, line) - char * bytes; - int length; - char * file; - int line; +Tcl_DeleteChannelHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_ChannelProc * proc; + ClientData clientData; { - return (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line); + (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData); } -/* Slot 55 */ +/* Slot 102 */ void -Tcl_DeleteAssocData(interp, name) - Tcl_Interp * interp; - char * name; +Tcl_DeleteCloseHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_CloseProc * proc; + ClientData clientData; { - (tclStubsPtr->tcl_DeleteAssocData)(interp, name); + (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData); } -/* Slot 56 */ +/* Slot 103 */ int Tcl_DeleteCommand(interp, cmdName) Tcl_Interp * interp; @@ -607,7 +1057,7 @@ Tcl_DeleteCommand(interp, cmdName) return (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName); } -/* Slot 57 */ +/* Slot 104 */ int Tcl_DeleteCommandFromToken(interp, command) Tcl_Interp * interp; @@ -616,27 +1066,7 @@ Tcl_DeleteCommandFromToken(interp, command) return (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command); } -/* Slot 58 */ -void -Tcl_DeleteChannelHandler(chan, proc, clientData) - Tcl_Channel chan; - Tcl_ChannelProc * proc; - ClientData clientData; -{ - (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData); -} - -/* Slot 59 */ -void -Tcl_DeleteCloseHandler(chan, proc, clientData) - Tcl_Channel chan; - Tcl_CloseProc * proc; - ClientData clientData; -{ - (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData); -} - -/* Slot 60 */ +/* Slot 105 */ void Tcl_DeleteEvents(proc, clientData) Tcl_EventDeleteProc * proc; @@ -645,7 +1075,7 @@ Tcl_DeleteEvents(proc, clientData) (tclStubsPtr->tcl_DeleteEvents)(proc, clientData); } -/* Slot 61 */ +/* Slot 106 */ void Tcl_DeleteEventSource(setupProc, checkProc, clientData) Tcl_EventSetupProc * setupProc; @@ -655,7 +1085,7 @@ Tcl_DeleteEventSource(setupProc, checkProc, clientData) (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData); } -/* Slot 62 */ +/* Slot 107 */ void Tcl_DeleteExitHandler(proc, clientData) Tcl_ExitProc * proc; @@ -664,7 +1094,7 @@ Tcl_DeleteExitHandler(proc, clientData) (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData); } -/* Slot 63 */ +/* Slot 108 */ void Tcl_DeleteHashEntry(entryPtr) Tcl_HashEntry * entryPtr; @@ -672,7 +1102,7 @@ Tcl_DeleteHashEntry(entryPtr) (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr); } -/* Slot 64 */ +/* Slot 109 */ void Tcl_DeleteHashTable(tablePtr) Tcl_HashTable * tablePtr; @@ -680,7 +1110,7 @@ Tcl_DeleteHashTable(tablePtr) (tclStubsPtr->tcl_DeleteHashTable)(tablePtr); } -/* Slot 65 */ +/* Slot 110 */ void Tcl_DeleteInterp(interp) Tcl_Interp * interp; @@ -688,7 +1118,16 @@ Tcl_DeleteInterp(interp) (tclStubsPtr->tcl_DeleteInterp)(interp); } -/* Slot 66 */ +/* Slot 111 */ +void +Tcl_DetachPids(numPids, pidPtr) + int numPids; + Tcl_Pid * pidPtr; +{ + (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr); +} + +/* Slot 112 */ void Tcl_DeleteTimerHandler(token) Tcl_TimerToken token; @@ -696,7 +1135,7 @@ Tcl_DeleteTimerHandler(token) (tclStubsPtr->tcl_DeleteTimerHandler)(token); } -/* Slot 67 */ +/* Slot 113 */ void Tcl_DeleteTrace(interp, trace) Tcl_Interp * interp; @@ -705,16 +1144,7 @@ Tcl_DeleteTrace(interp, trace) (tclStubsPtr->tcl_DeleteTrace)(interp, trace); } -/* Slot 68 */ -void -Tcl_DetachPids(numPids, pidPtr) - int numPids; - Tcl_Pid * pidPtr; -{ - (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr); -} - -/* Slot 69 */ +/* Slot 114 */ void Tcl_DontCallWhenDeleted(interp, proc, clientData) Tcl_Interp * interp; @@ -724,7 +1154,7 @@ Tcl_DontCallWhenDeleted(interp, proc, clientData) (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData); } -/* Slot 70 */ +/* Slot 115 */ int Tcl_DoOneEvent(flags) int flags; @@ -732,7 +1162,7 @@ Tcl_DoOneEvent(flags) return (tclStubsPtr->tcl_DoOneEvent)(flags); } -/* Slot 71 */ +/* Slot 116 */ void Tcl_DoWhenIdle(proc, clientData) Tcl_IdleProc * proc; @@ -741,7 +1171,7 @@ Tcl_DoWhenIdle(proc, clientData) (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData); } -/* Slot 72 */ +/* Slot 117 */ char * Tcl_DStringAppend(dsPtr, string, length) Tcl_DString * dsPtr; @@ -751,7 +1181,7 @@ Tcl_DStringAppend(dsPtr, string, length) return (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length); } -/* Slot 73 */ +/* Slot 118 */ char * Tcl_DStringAppendElement(dsPtr, string) Tcl_DString * dsPtr; @@ -760,7 +1190,7 @@ Tcl_DStringAppendElement(dsPtr, string) return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string); } -/* Slot 74 */ +/* Slot 119 */ void Tcl_DStringEndSublist(dsPtr) Tcl_DString * dsPtr; @@ -768,7 +1198,7 @@ Tcl_DStringEndSublist(dsPtr) (tclStubsPtr->tcl_DStringEndSublist)(dsPtr); } -/* Slot 75 */ +/* Slot 120 */ void Tcl_DStringFree(dsPtr) Tcl_DString * dsPtr; @@ -776,7 +1206,7 @@ Tcl_DStringFree(dsPtr) (tclStubsPtr->tcl_DStringFree)(dsPtr); } -/* Slot 76 */ +/* Slot 121 */ void Tcl_DStringGetResult(interp, dsPtr) Tcl_Interp * interp; @@ -785,7 +1215,7 @@ Tcl_DStringGetResult(interp, dsPtr) (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr); } -/* Slot 77 */ +/* Slot 122 */ void Tcl_DStringInit(dsPtr) Tcl_DString * dsPtr; @@ -793,7 +1223,7 @@ Tcl_DStringInit(dsPtr) (tclStubsPtr->tcl_DStringInit)(dsPtr); } -/* Slot 78 */ +/* Slot 123 */ void Tcl_DStringResult(interp, dsPtr) Tcl_Interp * interp; @@ -802,7 +1232,7 @@ Tcl_DStringResult(interp, dsPtr) (tclStubsPtr->tcl_DStringResult)(interp, dsPtr); } -/* Slot 79 */ +/* Slot 124 */ void Tcl_DStringSetLength(dsPtr, length) Tcl_DString * dsPtr; @@ -811,7 +1241,7 @@ Tcl_DStringSetLength(dsPtr, length) (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length); } -/* Slot 80 */ +/* Slot 125 */ void Tcl_DStringStartSublist(dsPtr) Tcl_DString * dsPtr; @@ -819,23 +1249,7 @@ Tcl_DStringStartSublist(dsPtr) (tclStubsPtr->tcl_DStringStartSublist)(dsPtr); } -/* Slot 81 */ -int -Tcl_DumpActiveMemory(fileName) - char * fileName; -{ - return (tclStubsPtr->tcl_DumpActiveMemory)(fileName); -} - -/* Slot 82 */ -Tcl_Obj * -Tcl_DuplicateObj(objPtr) - Tcl_Obj * objPtr; -{ - return (tclStubsPtr->tcl_DuplicateObj)(objPtr); -} - -/* Slot 83 */ +/* Slot 126 */ int Tcl_Eof(chan) Tcl_Channel chan; @@ -843,14 +1257,14 @@ Tcl_Eof(chan) return (tclStubsPtr->tcl_Eof)(chan); } -/* Slot 84 */ +/* Slot 127 */ char * Tcl_ErrnoId() { return (tclStubsPtr->tcl_ErrnoId)(); } -/* Slot 85 */ +/* Slot 128 */ char * Tcl_ErrnoMsg(err) int err; @@ -858,7 +1272,7 @@ Tcl_ErrnoMsg(err) return (tclStubsPtr->tcl_ErrnoMsg)(err); } -/* Slot 86 */ +/* Slot 129 */ int Tcl_Eval(interp, string) Tcl_Interp * interp; @@ -867,7 +1281,7 @@ Tcl_Eval(interp, string) return (tclStubsPtr->tcl_Eval)(interp, string); } -/* Slot 87 */ +/* Slot 130 */ int Tcl_EvalFile(interp, fileName) Tcl_Interp * interp; @@ -876,16 +1290,7 @@ Tcl_EvalFile(interp, fileName) return (tclStubsPtr->tcl_EvalFile)(interp, fileName); } -/* Slot 88 */ -void -Tcl_EventuallyFree(clientData, freeProc) - ClientData clientData; - Tcl_FreeProc * freeProc; -{ - (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc); -} - -/* Slot 89 */ +/* Slot 131 */ int Tcl_EvalObj(interp, objPtr) Tcl_Interp * interp; @@ -894,7 +1299,16 @@ Tcl_EvalObj(interp, objPtr) return (tclStubsPtr->tcl_EvalObj)(interp, objPtr); } -/* Slot 90 */ +/* Slot 132 */ +void +Tcl_EventuallyFree(clientData, freeProc) + ClientData clientData; + Tcl_FreeProc * freeProc; +{ + (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc); +} + +/* Slot 133 */ void Tcl_Exit(status) int status; @@ -902,7 +1316,7 @@ Tcl_Exit(status) (tclStubsPtr->tcl_Exit)(status); } -/* Slot 91 */ +/* Slot 134 */ int Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) Tcl_Interp * interp; @@ -912,7 +1326,7 @@ Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) return (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName); } -/* Slot 92 */ +/* Slot 135 */ int Tcl_ExprBoolean(interp, string, ptr) Tcl_Interp * interp; @@ -922,7 +1336,7 @@ Tcl_ExprBoolean(interp, string, ptr) return (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr); } -/* Slot 93 */ +/* Slot 136 */ int Tcl_ExprBooleanObj(interp, objPtr, ptr) Tcl_Interp * interp; @@ -932,7 +1346,7 @@ Tcl_ExprBooleanObj(interp, objPtr, ptr) return (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr); } -/* Slot 94 */ +/* Slot 137 */ int Tcl_ExprDouble(interp, string, ptr) Tcl_Interp * interp; @@ -942,7 +1356,7 @@ Tcl_ExprDouble(interp, string, ptr) return (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr); } -/* Slot 95 */ +/* Slot 138 */ int Tcl_ExprDoubleObj(interp, objPtr, ptr) Tcl_Interp * interp; @@ -952,7 +1366,7 @@ Tcl_ExprDoubleObj(interp, objPtr, ptr) return (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr); } -/* Slot 96 */ +/* Slot 139 */ int Tcl_ExprLong(interp, string, ptr) Tcl_Interp * interp; @@ -962,7 +1376,7 @@ Tcl_ExprLong(interp, string, ptr) return (tclStubsPtr->tcl_ExprLong)(interp, string, ptr); } -/* Slot 97 */ +/* Slot 140 */ int Tcl_ExprLongObj(interp, objPtr, ptr) Tcl_Interp * interp; @@ -972,7 +1386,7 @@ Tcl_ExprLongObj(interp, objPtr, ptr) return (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr); } -/* Slot 98 */ +/* Slot 141 */ int Tcl_ExprObj(interp, objPtr, resultPtrPtr) Tcl_Interp * interp; @@ -982,7 +1396,7 @@ Tcl_ExprObj(interp, objPtr, resultPtrPtr) return (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr); } -/* Slot 99 */ +/* Slot 142 */ int Tcl_ExprString(interp, string) Tcl_Interp * interp; @@ -991,14 +1405,14 @@ Tcl_ExprString(interp, string) return (tclStubsPtr->tcl_ExprString)(interp, string); } -/* Slot 100 */ +/* Slot 143 */ void Tcl_Finalize() { (tclStubsPtr->tcl_Finalize)(); } -/* Slot 101 */ +/* Slot 144 */ void Tcl_FindExecutable(argv0) char * argv0; @@ -1006,7 +1420,7 @@ Tcl_FindExecutable(argv0) (tclStubsPtr->tcl_FindExecutable)(argv0); } -/* Slot 102 */ +/* Slot 145 */ Tcl_HashEntry * Tcl_FirstHashEntry(tablePtr, searchPtr) Tcl_HashTable * tablePtr; @@ -1015,7 +1429,7 @@ Tcl_FirstHashEntry(tablePtr, searchPtr) return (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr); } -/* Slot 103 */ +/* Slot 146 */ int Tcl_Flush(chan) Tcl_Channel chan; @@ -1023,23 +1437,7 @@ Tcl_Flush(chan) return (tclStubsPtr->tcl_Flush)(chan); } -/* Slot 104 */ -void -Tcl_Free(ptr) - char * ptr; -{ - (tclStubsPtr->tcl_Free)(ptr); -} - -/* Slot 105 */ -void -TclFreeObj(objPtr) - Tcl_Obj * objPtr; -{ - (tclStubsPtr->tclFreeObj)(objPtr); -} - -/* Slot 106 */ +/* Slot 147 */ void Tcl_FreeResult(interp) Tcl_Interp * interp; @@ -1047,7 +1445,7 @@ Tcl_FreeResult(interp) (tclStubsPtr->tcl_FreeResult)(interp); } -/* Slot 107 */ +/* Slot 148 */ int Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) Tcl_Interp * interp; @@ -1060,7 +1458,7 @@ Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) return (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr); } -/* Slot 108 */ +/* Slot 149 */ int Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) Tcl_Interp * interp; @@ -1073,7 +1471,7 @@ Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) return (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv); } -/* Slot 109 */ +/* Slot 150 */ ClientData Tcl_GetAssocData(interp, name, procPtr) Tcl_Interp * interp; @@ -1083,36 +1481,7 @@ Tcl_GetAssocData(interp, name, procPtr) return (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr); } -/* Slot 110 */ -int -Tcl_GetBoolean(interp, string, boolPtr) - Tcl_Interp * interp; - char * string; - int * boolPtr; -{ - return (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr); -} - -/* Slot 111 */ -int -Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - int * boolPtr; -{ - return (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr); -} - -/* Slot 112 */ -unsigned char * -Tcl_GetByteArrayFromObj(objPtr, lengthPtr) - Tcl_Obj * objPtr; - int * lengthPtr; -{ - return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr); -} - -/* Slot 113 */ +/* Slot 151 */ Tcl_Channel Tcl_GetChannel(interp, chanName, modePtr) Tcl_Interp * interp; @@ -1122,7 +1491,7 @@ Tcl_GetChannel(interp, chanName, modePtr) return (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr); } -/* Slot 114 */ +/* Slot 152 */ int Tcl_GetChannelBufferSize(chan) Tcl_Channel chan; @@ -1130,7 +1499,7 @@ Tcl_GetChannelBufferSize(chan) return (tclStubsPtr->tcl_GetChannelBufferSize)(chan); } -/* Slot 115 */ +/* Slot 153 */ int Tcl_GetChannelHandle(chan, direction, handlePtr) Tcl_Channel chan; @@ -1140,7 +1509,7 @@ Tcl_GetChannelHandle(chan, direction, handlePtr) return (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr); } -/* Slot 116 */ +/* Slot 154 */ ClientData Tcl_GetChannelInstanceData(chan) Tcl_Channel chan; @@ -1148,7 +1517,7 @@ Tcl_GetChannelInstanceData(chan) return (tclStubsPtr->tcl_GetChannelInstanceData)(chan); } -/* Slot 117 */ +/* Slot 155 */ int Tcl_GetChannelMode(chan) Tcl_Channel chan; @@ -1156,7 +1525,7 @@ Tcl_GetChannelMode(chan) return (tclStubsPtr->tcl_GetChannelMode)(chan); } -/* Slot 118 */ +/* Slot 156 */ char * Tcl_GetChannelName(chan) Tcl_Channel chan; @@ -1164,7 +1533,7 @@ Tcl_GetChannelName(chan) return (tclStubsPtr->tcl_GetChannelName)(chan); } -/* Slot 119 */ +/* Slot 157 */ int Tcl_GetChannelOption(interp, chan, optionName, dsPtr) Tcl_Interp * interp; @@ -1175,7 +1544,7 @@ Tcl_GetChannelOption(interp, chan, optionName, dsPtr) return (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr); } -/* Slot 120 */ +/* Slot 158 */ Tcl_ChannelType * Tcl_GetChannelType(chan) Tcl_Channel chan; @@ -1183,7 +1552,7 @@ Tcl_GetChannelType(chan) return (tclStubsPtr->tcl_GetChannelType)(chan); } -/* Slot 121 */ +/* Slot 159 */ int Tcl_GetCommandInfo(interp, cmdName, infoPtr) Tcl_Interp * interp; @@ -1193,7 +1562,7 @@ Tcl_GetCommandInfo(interp, cmdName, infoPtr) return (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr); } -/* Slot 122 */ +/* Slot 160 */ char * Tcl_GetCommandName(interp, command) Tcl_Interp * interp; @@ -1202,64 +1571,21 @@ Tcl_GetCommandName(interp, command) return (tclStubsPtr->tcl_GetCommandName)(interp, command); } -/* Slot 123 */ -int -Tcl_GetDouble(interp, string, doublePtr) - Tcl_Interp * interp; - char * string; - double * doublePtr; -{ - return (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr); -} - -/* Slot 124 */ -int -Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - double * doublePtr; -{ - return (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr); -} - -/* Slot 125 */ +/* Slot 161 */ int Tcl_GetErrno() { return (tclStubsPtr->tcl_GetErrno)(); } -/* Slot 126 */ +/* Slot 162 */ char * Tcl_GetHostName() { return (tclStubsPtr->tcl_GetHostName)(); } -/* Slot 127 */ -int -Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - char ** tablePtr; - char * msg; - int flags; - int * indexPtr; -{ - return (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr); -} - -/* Slot 128 */ -int -Tcl_GetInt(interp, string, intPtr) - Tcl_Interp * interp; - char * string; - int * intPtr; -{ - return (tclStubsPtr->tcl_GetInt)(interp, string, intPtr); -} - -/* Slot 129 */ +/* Slot 163 */ int Tcl_GetInterpPath(askInterp, slaveInterp) Tcl_Interp * askInterp; @@ -1268,27 +1594,7 @@ Tcl_GetInterpPath(askInterp, slaveInterp) return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp); } -/* Slot 130 */ -int -Tcl_GetIntFromObj(interp, objPtr, intPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - int * intPtr; -{ - return (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr); -} - -/* Slot 131 */ -int -Tcl_GetLongFromObj(interp, objPtr, longPtr) - Tcl_Interp * interp; - Tcl_Obj * objPtr; - long * longPtr; -{ - return (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr); -} - -/* Slot 132 */ +/* Slot 164 */ Tcl_Interp * Tcl_GetMaster(interp) Tcl_Interp * interp; @@ -1296,14 +1602,14 @@ Tcl_GetMaster(interp) return (tclStubsPtr->tcl_GetMaster)(interp); } -/* Slot 133 */ +/* Slot 165 */ CONST char * Tcl_GetNameOfExecutable() { return (tclStubsPtr->tcl_GetNameOfExecutable)(); } -/* Slot 134 */ +/* Slot 166 */ Tcl_Obj * Tcl_GetObjResult(interp) Tcl_Interp * interp; @@ -1311,15 +1617,21 @@ Tcl_GetObjResult(interp) return (tclStubsPtr->tcl_GetObjResult)(interp); } -/* Slot 135 */ -Tcl_ObjType * -Tcl_GetObjType(typeName) - char * typeName; +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 167 */ +int +Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) + Tcl_Interp * interp; + char * string; + int write; + int checkUsage; + ClientData * filePtr; { - return (tclStubsPtr->tcl_GetObjType)(typeName); + return (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr); } -/* Slot 136 */ +#endif /* UNIX */ +/* Slot 168 */ Tcl_PathType Tcl_GetPathType(path) char * path; @@ -1327,7 +1639,7 @@ Tcl_GetPathType(path) return (tclStubsPtr->tcl_GetPathType)(path); } -/* Slot 137 */ +/* Slot 169 */ int Tcl_Gets(chan, dsPtr) Tcl_Channel chan; @@ -1336,7 +1648,7 @@ Tcl_Gets(chan, dsPtr) return (tclStubsPtr->tcl_Gets)(chan, dsPtr); } -/* Slot 138 */ +/* Slot 170 */ int Tcl_GetsObj(chan, objPtr) Tcl_Channel chan; @@ -1345,14 +1657,14 @@ Tcl_GetsObj(chan, objPtr) return (tclStubsPtr->tcl_GetsObj)(chan, objPtr); } -/* Slot 139 */ +/* Slot 171 */ int Tcl_GetServiceMode() { return (tclStubsPtr->tcl_GetServiceMode)(); } -/* Slot 140 */ +/* Slot 172 */ Tcl_Interp * Tcl_GetSlave(interp, slaveName) Tcl_Interp * interp; @@ -1361,7 +1673,7 @@ Tcl_GetSlave(interp, slaveName) return (tclStubsPtr->tcl_GetSlave)(interp, slaveName); } -/* Slot 141 */ +/* Slot 173 */ Tcl_Channel Tcl_GetStdChannel(type) int type; @@ -1369,16 +1681,7 @@ Tcl_GetStdChannel(type) return (tclStubsPtr->tcl_GetStdChannel)(type); } -/* Slot 142 */ -char * -Tcl_GetStringFromObj(objPtr, lengthPtr) - Tcl_Obj * objPtr; - int * lengthPtr; -{ - return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr); -} - -/* Slot 143 */ +/* Slot 174 */ char * Tcl_GetStringResult(interp) Tcl_Interp * interp; @@ -1386,7 +1689,7 @@ Tcl_GetStringResult(interp) return (tclStubsPtr->tcl_GetStringResult)(interp); } -/* Slot 144 */ +/* Slot 175 */ char * Tcl_GetVar(interp, varName, flags) Tcl_Interp * interp; @@ -1396,7 +1699,7 @@ Tcl_GetVar(interp, varName, flags) return (tclStubsPtr->tcl_GetVar)(interp, varName, flags); } -/* Slot 145 */ +/* Slot 176 */ char * Tcl_GetVar2(interp, part1, part2, flags) Tcl_Interp * interp; @@ -1407,7 +1710,7 @@ Tcl_GetVar2(interp, part1, part2, flags) return (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags); } -/* Slot 146 */ +/* Slot 177 */ int Tcl_GlobalEval(interp, command) Tcl_Interp * interp; @@ -1416,7 +1719,7 @@ Tcl_GlobalEval(interp, command) return (tclStubsPtr->tcl_GlobalEval)(interp, command); } -/* Slot 147 */ +/* Slot 178 */ int Tcl_GlobalEvalObj(interp, objPtr) Tcl_Interp * interp; @@ -1425,15 +1728,7 @@ Tcl_GlobalEvalObj(interp, objPtr) return (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr); } -/* Slot 148 */ -char * -Tcl_HashStats(tablePtr) - Tcl_HashTable * tablePtr; -{ - return (tclStubsPtr->tcl_HashStats)(tablePtr); -} - -/* Slot 149 */ +/* Slot 179 */ int Tcl_HideCommand(interp, cmdName, hiddenCmdToken) Tcl_Interp * interp; @@ -1443,7 +1738,7 @@ Tcl_HideCommand(interp, cmdName, hiddenCmdToken) return (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken); } -/* Slot 150 */ +/* Slot 180 */ int Tcl_Init(interp) Tcl_Interp * interp; @@ -1451,7 +1746,7 @@ Tcl_Init(interp) return (tclStubsPtr->tcl_Init)(interp); } -/* Slot 151 */ +/* Slot 181 */ void Tcl_InitHashTable(tablePtr, keyType) Tcl_HashTable * tablePtr; @@ -1460,7 +1755,7 @@ Tcl_InitHashTable(tablePtr, keyType) (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType); } -/* Slot 152 */ +/* Slot 182 */ int Tcl_InputBlocked(chan) Tcl_Channel chan; @@ -1468,7 +1763,7 @@ Tcl_InputBlocked(chan) return (tclStubsPtr->tcl_InputBlocked)(chan); } -/* Slot 153 */ +/* Slot 183 */ int Tcl_InputBuffered(chan) Tcl_Channel chan; @@ -1476,7 +1771,7 @@ Tcl_InputBuffered(chan) return (tclStubsPtr->tcl_InputBuffered)(chan); } -/* Slot 154 */ +/* Slot 184 */ int Tcl_InterpDeleted(interp) Tcl_Interp * interp; @@ -1484,7 +1779,7 @@ Tcl_InterpDeleted(interp) return (tclStubsPtr->tcl_InterpDeleted)(interp); } -/* Slot 155 */ +/* Slot 185 */ int Tcl_IsSafe(interp) Tcl_Interp * interp; @@ -1492,15 +1787,7 @@ Tcl_IsSafe(interp) return (tclStubsPtr->tcl_IsSafe)(interp); } -/* Slot 156 */ -void -Tcl_InvalidateStringRep(objPtr) - Tcl_Obj * objPtr; -{ - (tclStubsPtr->tcl_InvalidateStringRep)(objPtr); -} - -/* Slot 157 */ +/* Slot 186 */ char * Tcl_JoinPath(argc, argv, resultPtr) int argc; @@ -1510,7 +1797,7 @@ Tcl_JoinPath(argc, argv, resultPtr) return (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr); } -/* Slot 158 */ +/* Slot 187 */ int Tcl_LinkVar(interp, varName, addr, type) Tcl_Interp * interp; @@ -1521,72 +1808,8 @@ Tcl_LinkVar(interp, varName, addr, type) return (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type); } -/* Slot 159 */ -int -Tcl_ListObjAppendList(interp, listPtr, elemListPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - Tcl_Obj * elemListPtr; -{ - return (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr); -} - -/* Slot 160 */ -int -Tcl_ListObjAppendElement(interp, listPtr, objPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - Tcl_Obj * objPtr; -{ - return (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr); -} - -/* Slot 161 */ -int -Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int * objcPtr; - Tcl_Obj *** objvPtr; -{ - return (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr); -} - -/* Slot 162 */ -int -Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int index; - Tcl_Obj ** objPtrPtr; -{ - return (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr); -} - -/* Slot 163 */ -int -Tcl_ListObjLength(interp, listPtr, intPtr) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int * intPtr; -{ - return (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr); -} - -/* Slot 164 */ -int -Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) - Tcl_Interp * interp; - Tcl_Obj * listPtr; - int first; - int count; - int objc; - Tcl_Obj *CONST objv[]; -{ - return (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv); -} - -/* Slot 165 */ +/* Slot 188 is reserved */ +/* Slot 189 */ Tcl_Channel Tcl_MakeFileChannel(handle, mode) ClientData handle; @@ -1595,7 +1818,7 @@ Tcl_MakeFileChannel(handle, mode) return (tclStubsPtr->tcl_MakeFileChannel)(handle, mode); } -/* Slot 166 */ +/* Slot 190 */ int Tcl_MakeSafe(interp) Tcl_Interp * interp; @@ -1603,7 +1826,7 @@ Tcl_MakeSafe(interp) return (tclStubsPtr->tcl_MakeSafe)(interp); } -/* Slot 167 */ +/* Slot 191 */ Tcl_Channel Tcl_MakeTcpClientChannel(tcpSocket) ClientData tcpSocket; @@ -1611,7 +1834,7 @@ Tcl_MakeTcpClientChannel(tcpSocket) return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket); } -/* Slot 168 */ +/* Slot 192 */ char * Tcl_Merge(argc, argv) int argc; @@ -1620,73 +1843,7 @@ Tcl_Merge(argc, argv) return (tclStubsPtr->tcl_Merge)(argc, argv); } -/* Slot 169 */ -Tcl_Obj * -Tcl_NewBooleanObj(boolValue) - int boolValue; -{ - return (tclStubsPtr->tcl_NewBooleanObj)(boolValue); -} - -/* Slot 170 */ -Tcl_Obj * -Tcl_NewByteArrayObj(bytes, length) - unsigned char * bytes; - int length; -{ - return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length); -} - -/* Slot 171 */ -Tcl_Obj * -Tcl_NewDoubleObj(doubleValue) - double doubleValue; -{ - return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue); -} - -/* Slot 172 */ -Tcl_Obj * -Tcl_NewIntObj(intValue) - int intValue; -{ - return (tclStubsPtr->tcl_NewIntObj)(intValue); -} - -/* Slot 173 */ -Tcl_Obj * -Tcl_NewListObj(objc, objv) - int objc; - Tcl_Obj *CONST objv[]; -{ - return (tclStubsPtr->tcl_NewListObj)(objc, objv); -} - -/* Slot 174 */ -Tcl_Obj * -Tcl_NewLongObj(longValue) - long longValue; -{ - return (tclStubsPtr->tcl_NewLongObj)(longValue); -} - -/* Slot 175 */ -Tcl_Obj * -Tcl_NewObj() -{ - return (tclStubsPtr->tcl_NewObj)(); -} - -/* Slot 176 */ -Tcl_Obj * -Tcl_NewStringObj(bytes, length) - char * bytes; - int length; -{ - return (tclStubsPtr->tcl_NewStringObj)(bytes, length); -} - -/* Slot 177 */ +/* Slot 193 */ Tcl_HashEntry * Tcl_NextHashEntry(searchPtr) Tcl_HashSearch * searchPtr; @@ -1694,7 +1851,7 @@ Tcl_NextHashEntry(searchPtr) return (tclStubsPtr->tcl_NextHashEntry)(searchPtr); } -/* Slot 178 */ +/* Slot 194 */ void Tcl_NotifyChannel(channel, mask) Tcl_Channel channel; @@ -1703,7 +1860,7 @@ Tcl_NotifyChannel(channel, mask) (tclStubsPtr->tcl_NotifyChannel)(channel, mask); } -/* Slot 179 */ +/* Slot 195 */ Tcl_Obj * Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) Tcl_Interp * interp; @@ -1714,7 +1871,7 @@ Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) return (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags); } -/* Slot 180 */ +/* Slot 196 */ Tcl_Obj * Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) Tcl_Interp * interp; @@ -1726,7 +1883,7 @@ Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) return (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags); } -/* Slot 181 */ +/* Slot 197 */ Tcl_Channel Tcl_OpenCommandChannel(interp, argc, argv, flags) Tcl_Interp * interp; @@ -1737,7 +1894,7 @@ Tcl_OpenCommandChannel(interp, argc, argv, flags) return (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags); } -/* Slot 182 */ +/* Slot 198 */ Tcl_Channel Tcl_OpenFileChannel(interp, fileName, modeString, permissions) Tcl_Interp * interp; @@ -1748,7 +1905,7 @@ Tcl_OpenFileChannel(interp, fileName, modeString, permissions) return (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions); } -/* Slot 183 */ +/* Slot 199 */ Tcl_Channel Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) Tcl_Interp * interp; @@ -1761,7 +1918,7 @@ Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) return (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async); } -/* Slot 184 */ +/* Slot 200 */ Tcl_Channel Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) Tcl_Interp * interp; @@ -1773,114 +1930,7 @@ Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) return (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData); } -/* Slot 185 */ -void -panic TCL_VARARGS_DEF(char *,format) -{ - char * var; - va_list argList; - - var = (char *) TCL_VARARGS_START(char *,format,argList); - - (tclStubsPtr->panicVA)(var, argList); - va_end(argList); -} - -/* Slot 186 */ -void -panicVA(format, argList) - char * format; - va_list argList; -{ - (tclStubsPtr->panicVA)(format, argList); -} - -/* Slot 187 */ -char * -Tcl_ParseVar(interp, string, termPtr) - Tcl_Interp * interp; - char * string; - char ** termPtr; -{ - return (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr); -} - -/* Slot 188 */ -char * -Tcl_PkgPresent(interp, name, version, exact) - Tcl_Interp * interp; - char * name; - char * version; - int exact; -{ - return (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact); -} - -/* Slot 189 */ -char * -Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) - Tcl_Interp * interp; - char * name; - char * version; - int exact; - ClientData * clientDataPtr; -{ - return (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr); -} - -/* Slot 190 */ -int -Tcl_PkgProvide(interp, name, version) - Tcl_Interp * interp; - char * name; - char * version; -{ - return (tclStubsPtr->tcl_PkgProvide)(interp, name, version); -} - -/* Slot 191 */ -int -Tcl_PkgProvideEx(interp, name, version, clientData) - Tcl_Interp * interp; - char * name; - char * version; - ClientData clientData; -{ - return (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData); -} - -/* Slot 192 */ -char * -Tcl_PkgRequire(interp, name, version, exact) - Tcl_Interp * interp; - char * name; - char * version; - int exact; -{ - return (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact); -} - -/* Slot 193 */ -char * -Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) - Tcl_Interp * interp; - char * name; - char * version; - int exact; - ClientData * clientDataPtr; -{ - return (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr); -} - -/* Slot 194 */ -char * -Tcl_PosixError(interp) - Tcl_Interp * interp; -{ - return (tclStubsPtr->tcl_PosixError)(interp); -} - -/* Slot 195 */ +/* Slot 201 */ void Tcl_Preserve(data) ClientData data; @@ -1888,7 +1938,7 @@ Tcl_Preserve(data) (tclStubsPtr->tcl_Preserve)(data); } -/* Slot 196 */ +/* Slot 202 */ void Tcl_PrintDouble(interp, value, dst) Tcl_Interp * interp; @@ -1898,7 +1948,7 @@ Tcl_PrintDouble(interp, value, dst) (tclStubsPtr->tcl_PrintDouble)(interp, value, dst); } -/* Slot 197 */ +/* Slot 203 */ int Tcl_PutEnv(string) CONST char * string; @@ -1906,7 +1956,15 @@ Tcl_PutEnv(string) return (tclStubsPtr->tcl_PutEnv)(string); } -/* Slot 198 */ +/* Slot 204 */ +char * +Tcl_PosixError(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_PosixError)(interp); +} + +/* Slot 205 */ void Tcl_QueueEvent(evPtr, position) Tcl_Event * evPtr; @@ -1915,7 +1973,7 @@ Tcl_QueueEvent(evPtr, position) (tclStubsPtr->tcl_QueueEvent)(evPtr, position); } -/* Slot 199 */ +/* Slot 206 */ int Tcl_Read(chan, bufPtr, toRead) Tcl_Channel chan; @@ -1925,23 +1983,14 @@ Tcl_Read(chan, bufPtr, toRead) return (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead); } -/* Slot 200 */ -char * -Tcl_Realloc(ptr, size) - char * ptr; - unsigned int size; -{ - return (tclStubsPtr->tcl_Realloc)(ptr, size); -} - -/* Slot 201 */ +/* Slot 207 */ void Tcl_ReapDetachedProcs() { (tclStubsPtr->tcl_ReapDetachedProcs)(); } -/* Slot 202 */ +/* Slot 208 */ int Tcl_RecordAndEval(interp, cmd, flags) Tcl_Interp * interp; @@ -1951,7 +2000,7 @@ Tcl_RecordAndEval(interp, cmd, flags) return (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags); } -/* Slot 203 */ +/* Slot 209 */ int Tcl_RecordAndEvalObj(interp, cmdPtr, flags) Tcl_Interp * interp; @@ -1961,7 +2010,24 @@ Tcl_RecordAndEvalObj(interp, cmdPtr, flags) return (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags); } -/* Slot 204 */ +/* Slot 210 */ +void +Tcl_RegisterChannel(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclStubsPtr->tcl_RegisterChannel)(interp, chan); +} + +/* Slot 211 */ +void +Tcl_RegisterObjType(typePtr) + Tcl_ObjType * typePtr; +{ + (tclStubsPtr->tcl_RegisterObjType)(typePtr); +} + +/* Slot 212 */ Tcl_RegExp Tcl_RegExpCompile(interp, string) Tcl_Interp * interp; @@ -1970,7 +2036,7 @@ Tcl_RegExpCompile(interp, string) return (tclStubsPtr->tcl_RegExpCompile)(interp, string); } -/* Slot 205 */ +/* Slot 213 */ int Tcl_RegExpExec(interp, regexp, string, start) Tcl_Interp * interp; @@ -1981,7 +2047,7 @@ Tcl_RegExpExec(interp, regexp, string, start) return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start); } -/* Slot 206 */ +/* Slot 214 */ int Tcl_RegExpMatch(interp, string, pattern) Tcl_Interp * interp; @@ -1991,7 +2057,7 @@ Tcl_RegExpMatch(interp, string, pattern) return (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern); } -/* Slot 207 */ +/* Slot 215 */ void Tcl_RegExpRange(regexp, index, startPtr, endPtr) Tcl_RegExp regexp; @@ -2002,24 +2068,7 @@ Tcl_RegExpRange(regexp, index, startPtr, endPtr) (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr); } -/* Slot 208 */ -void -Tcl_RegisterChannel(interp, chan) - Tcl_Interp * interp; - Tcl_Channel chan; -{ - (tclStubsPtr->tcl_RegisterChannel)(interp, chan); -} - -/* Slot 209 */ -void -Tcl_RegisterObjType(typePtr) - Tcl_ObjType * typePtr; -{ - (tclStubsPtr->tcl_RegisterObjType)(typePtr); -} - -/* Slot 210 */ +/* Slot 216 */ void Tcl_Release(clientData) ClientData clientData; @@ -2027,7 +2076,7 @@ Tcl_Release(clientData) (tclStubsPtr->tcl_Release)(clientData); } -/* Slot 211 */ +/* Slot 217 */ void Tcl_ResetResult(interp) Tcl_Interp * interp; @@ -2035,26 +2084,26 @@ Tcl_ResetResult(interp) (tclStubsPtr->tcl_ResetResult)(interp); } -/* Slot 212 */ +/* Slot 218 */ int -Tcl_ScanCountedElement(string, length, flagPtr) +Tcl_ScanElement(string, flagPtr) CONST char * string; - int length; int * flagPtr; { - return (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr); + return (tclStubsPtr->tcl_ScanElement)(string, flagPtr); } -/* Slot 213 */ +/* Slot 219 */ int -Tcl_ScanElement(string, flagPtr) +Tcl_ScanCountedElement(string, length, flagPtr) CONST char * string; + int length; int * flagPtr; { - return (tclStubsPtr->tcl_ScanElement)(string, flagPtr); + return (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr); } -/* Slot 214 */ +/* Slot 220 */ int Tcl_Seek(chan, offset, mode) Tcl_Channel chan; @@ -2064,14 +2113,14 @@ Tcl_Seek(chan, offset, mode) return (tclStubsPtr->tcl_Seek)(chan, offset, mode); } -/* Slot 215 */ +/* Slot 221 */ int Tcl_ServiceAll() { return (tclStubsPtr->tcl_ServiceAll)(); } -/* Slot 216 */ +/* Slot 222 */ int Tcl_ServiceEvent(flags) int flags; @@ -2079,7 +2128,7 @@ Tcl_ServiceEvent(flags) return (tclStubsPtr->tcl_ServiceEvent)(flags); } -/* Slot 217 */ +/* Slot 223 */ void Tcl_SetAssocData(interp, name, proc, clientData) Tcl_Interp * interp; @@ -2090,35 +2139,7 @@ Tcl_SetAssocData(interp, name, proc, clientData) (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData); } -/* Slot 218 */ -void -Tcl_SetBooleanObj(objPtr, boolValue) - Tcl_Obj * objPtr; - int boolValue; -{ - (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue); -} - -/* Slot 219 */ -unsigned char * -Tcl_SetByteArrayLength(objPtr, length) - Tcl_Obj * objPtr; - int length; -{ - return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length); -} - -/* Slot 220 */ -void -Tcl_SetByteArrayObj(objPtr, bytes, length) - Tcl_Obj * objPtr; - unsigned char * bytes; - int length; -{ - (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length); -} - -/* Slot 221 */ +/* Slot 224 */ void Tcl_SetChannelBufferSize(chan, sz) Tcl_Channel chan; @@ -2127,7 +2148,7 @@ Tcl_SetChannelBufferSize(chan, sz) (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz); } -/* Slot 222 */ +/* Slot 225 */ int Tcl_SetChannelOption(interp, chan, optionName, newValue) Tcl_Interp * interp; @@ -2138,7 +2159,7 @@ Tcl_SetChannelOption(interp, chan, optionName, newValue) return (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue); } -/* Slot 223 */ +/* Slot 226 */ int Tcl_SetCommandInfo(interp, cmdName, infoPtr) Tcl_Interp * interp; @@ -2148,16 +2169,7 @@ Tcl_SetCommandInfo(interp, cmdName, infoPtr) return (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr); } -/* Slot 224 */ -void -Tcl_SetDoubleObj(objPtr, doubleValue) - Tcl_Obj * objPtr; - double doubleValue; -{ - (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue); -} - -/* Slot 225 */ +/* Slot 227 */ void Tcl_SetErrno(err) int err; @@ -2165,7 +2177,7 @@ Tcl_SetErrno(err) (tclStubsPtr->tcl_SetErrno)(err); } -/* Slot 226 */ +/* Slot 228 */ void Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp) { @@ -2178,79 +2190,15 @@ Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp) va_end(argList); } -/* Slot 227 */ -void -Tcl_SetErrorCodeVA(interp, argList) - Tcl_Interp * interp; - va_list argList; -{ - (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList); -} - -/* Slot 228 */ -void -Tcl_SetIntObj(objPtr, intValue) - Tcl_Obj * objPtr; - int intValue; -{ - (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue); -} - /* Slot 229 */ void -Tcl_SetListObj(objPtr, objc, objv) - Tcl_Obj * objPtr; - int objc; - Tcl_Obj *CONST objv[]; -{ - (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv); -} - -/* Slot 230 */ -void -Tcl_SetLongObj(objPtr, longValue) - Tcl_Obj * objPtr; - long longValue; -{ - (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue); -} - -/* Slot 231 */ -void Tcl_SetMaxBlockTime(timePtr) Tcl_Time * timePtr; { (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr); } -/* Slot 232 */ -void -Tcl_SetObjErrorCode(interp, errorObjPtr) - Tcl_Interp * interp; - Tcl_Obj * errorObjPtr; -{ - (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr); -} - -/* Slot 233 */ -void -Tcl_SetObjLength(objPtr, length) - Tcl_Obj * objPtr; - int length; -{ - (tclStubsPtr->tcl_SetObjLength)(objPtr, length); -} - -/* Slot 234 */ -void -Tcl_SetObjResult(interp, resultObjPtr) - Tcl_Interp * interp; - Tcl_Obj * resultObjPtr; -{ - (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr); -} - -/* Slot 235 */ +/* Slot 230 */ void Tcl_SetPanicProc(panicProc) Tcl_PanicProc * panicProc; @@ -2258,7 +2206,7 @@ Tcl_SetPanicProc(panicProc) (tclStubsPtr->tcl_SetPanicProc)(panicProc); } -/* Slot 236 */ +/* Slot 231 */ int Tcl_SetRecursionLimit(interp, depth) Tcl_Interp * interp; @@ -2267,7 +2215,7 @@ Tcl_SetRecursionLimit(interp, depth) return (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth); } -/* Slot 237 */ +/* Slot 232 */ void Tcl_SetResult(interp, string, freeProc) Tcl_Interp * interp; @@ -2277,7 +2225,7 @@ Tcl_SetResult(interp, string, freeProc) (tclStubsPtr->tcl_SetResult)(interp, string, freeProc); } -/* Slot 238 */ +/* Slot 233 */ int Tcl_SetServiceMode(mode) int mode; @@ -2285,34 +2233,34 @@ Tcl_SetServiceMode(mode) return (tclStubsPtr->tcl_SetServiceMode)(mode); } -/* Slot 239 */ +/* Slot 234 */ void -Tcl_SetStdChannel(channel, type) - Tcl_Channel channel; - int type; +Tcl_SetObjErrorCode(interp, errorObjPtr) + Tcl_Interp * interp; + Tcl_Obj * errorObjPtr; { - (tclStubsPtr->tcl_SetStdChannel)(channel, type); + (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr); } -/* Slot 240 */ +/* Slot 235 */ void -Tcl_SetStringObj(objPtr, bytes, length) - Tcl_Obj * objPtr; - char * bytes; - int length; +Tcl_SetObjResult(interp, resultObjPtr) + Tcl_Interp * interp; + Tcl_Obj * resultObjPtr; { - (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length); + (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr); } -/* Slot 241 */ +/* Slot 236 */ void -Tcl_SetTimer(timePtr) - Tcl_Time * timePtr; +Tcl_SetStdChannel(channel, type) + Tcl_Channel channel; + int type; { - (tclStubsPtr->tcl_SetTimer)(timePtr); + (tclStubsPtr->tcl_SetStdChannel)(channel, type); } -/* Slot 242 */ +/* Slot 237 */ char * Tcl_SetVar(interp, varName, newValue, flags) Tcl_Interp * interp; @@ -2323,7 +2271,7 @@ Tcl_SetVar(interp, varName, newValue, flags) return (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags); } -/* Slot 243 */ +/* Slot 238 */ char * Tcl_SetVar2(interp, part1, part2, newValue, flags) Tcl_Interp * interp; @@ -2335,7 +2283,7 @@ Tcl_SetVar2(interp, part1, part2, newValue, flags) return (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags); } -/* Slot 244 */ +/* Slot 239 */ char * Tcl_SignalId(sig) int sig; @@ -2343,7 +2291,7 @@ Tcl_SignalId(sig) return (tclStubsPtr->tcl_SignalId)(sig); } -/* Slot 245 */ +/* Slot 240 */ char * Tcl_SignalMsg(sig) int sig; @@ -2351,15 +2299,7 @@ Tcl_SignalMsg(sig) return (tclStubsPtr->tcl_SignalMsg)(sig); } -/* Slot 246 */ -void -Tcl_Sleep(ms) - int ms; -{ - (tclStubsPtr->tcl_Sleep)(ms); -} - -/* Slot 247 */ +/* Slot 241 */ void Tcl_SourceRCFile(interp) Tcl_Interp * interp; @@ -2367,7 +2307,7 @@ Tcl_SourceRCFile(interp) (tclStubsPtr->tcl_SourceRCFile)(interp); } -/* Slot 248 */ +/* Slot 242 */ int Tcl_SplitList(interp, list, argcPtr, argvPtr) Tcl_Interp * interp; @@ -2378,7 +2318,7 @@ Tcl_SplitList(interp, list, argcPtr, argvPtr) return (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr); } -/* Slot 249 */ +/* Slot 243 */ void Tcl_SplitPath(path, argcPtr, argvPtr) char * path; @@ -2388,7 +2328,7 @@ Tcl_SplitPath(path, argcPtr, argvPtr) (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr); } -/* Slot 250 */ +/* Slot 244 */ void Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) Tcl_Interp * interp; @@ -2399,7 +2339,7 @@ Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc); } -/* Slot 251 */ +/* Slot 245 */ int Tcl_StringMatch(string, pattern) char * string; @@ -2408,7 +2348,7 @@ Tcl_StringMatch(string, pattern) return (tclStubsPtr->tcl_StringMatch)(string, pattern); } -/* Slot 252 */ +/* Slot 246 */ int Tcl_Tell(chan) Tcl_Channel chan; @@ -2416,7 +2356,7 @@ Tcl_Tell(chan) return (tclStubsPtr->tcl_Tell)(chan); } -/* Slot 253 */ +/* Slot 247 */ int Tcl_TraceVar(interp, varName, flags, proc, clientData) Tcl_Interp * interp; @@ -2428,7 +2368,7 @@ Tcl_TraceVar(interp, varName, flags, proc, clientData) return (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData); } -/* Slot 254 */ +/* Slot 248 */ int Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) Tcl_Interp * interp; @@ -2441,7 +2381,7 @@ Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) return (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData); } -/* Slot 255 */ +/* Slot 249 */ char * Tcl_TranslateFileName(interp, name, bufferPtr) Tcl_Interp * interp; @@ -2451,7 +2391,7 @@ Tcl_TranslateFileName(interp, name, bufferPtr) return (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr); } -/* Slot 256 */ +/* Slot 250 */ int Tcl_Ungets(chan, str, len, atHead) Tcl_Channel chan; @@ -2462,7 +2402,7 @@ Tcl_Ungets(chan, str, len, atHead) return (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead); } -/* Slot 257 */ +/* Slot 251 */ void Tcl_UnlinkVar(interp, varName) Tcl_Interp * interp; @@ -2471,7 +2411,7 @@ Tcl_UnlinkVar(interp, varName) (tclStubsPtr->tcl_UnlinkVar)(interp, varName); } -/* Slot 258 */ +/* Slot 252 */ int Tcl_UnregisterChannel(interp, chan) Tcl_Interp * interp; @@ -2480,7 +2420,7 @@ Tcl_UnregisterChannel(interp, chan) return (tclStubsPtr->tcl_UnregisterChannel)(interp, chan); } -/* Slot 259 */ +/* Slot 253 */ int Tcl_UnsetVar(interp, varName, flags) Tcl_Interp * interp; @@ -2490,7 +2430,7 @@ Tcl_UnsetVar(interp, varName, flags) return (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags); } -/* Slot 260 */ +/* Slot 254 */ int Tcl_UnsetVar2(interp, part1, part2, flags) Tcl_Interp * interp; @@ -2501,7 +2441,7 @@ Tcl_UnsetVar2(interp, part1, part2, flags) return (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags); } -/* Slot 261 */ +/* Slot 255 */ void Tcl_UntraceVar(interp, varName, flags, proc, clientData) Tcl_Interp * interp; @@ -2513,7 +2453,7 @@ Tcl_UntraceVar(interp, varName, flags, proc, clientData) (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData); } -/* Slot 262 */ +/* Slot 256 */ void Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) Tcl_Interp * interp; @@ -2526,7 +2466,7 @@ Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData); } -/* Slot 263 */ +/* Slot 257 */ void Tcl_UpdateLinkedVar(interp, varName) Tcl_Interp * interp; @@ -2535,7 +2475,7 @@ Tcl_UpdateLinkedVar(interp, varName) (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName); } -/* Slot 264 */ +/* Slot 258 */ int Tcl_UpVar(interp, frameName, varName, localName, flags) Tcl_Interp * interp; @@ -2547,7 +2487,7 @@ Tcl_UpVar(interp, frameName, varName, localName, flags) return (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags); } -/* Slot 265 */ +/* Slot 259 */ int Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) Tcl_Interp * interp; @@ -2560,16 +2500,7 @@ Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) return (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags); } -/* Slot 266 */ -void -Tcl_ValidateAllMemory(file, line) - char * file; - int line; -{ - (tclStubsPtr->tcl_ValidateAllMemory)(file, line); -} - -/* Slot 267 */ +/* Slot 260 */ int Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp) { @@ -2584,16 +2515,7 @@ Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp) return resultValue; } -/* Slot 268 */ -int -Tcl_VarEvalVA(interp, argList) - Tcl_Interp * interp; - va_list argList; -{ - return (tclStubsPtr->tcl_VarEvalVA)(interp, argList); -} - -/* Slot 269 */ +/* Slot 261 */ ClientData Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) Tcl_Interp * interp; @@ -2605,7 +2527,7 @@ Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) return (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData); } -/* Slot 270 */ +/* Slot 262 */ ClientData Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) Tcl_Interp * interp; @@ -2618,25 +2540,7 @@ Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) return (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData); } -/* Slot 271 */ -int -Tcl_WaitForEvent(timePtr) - Tcl_Time * timePtr; -{ - return (tclStubsPtr->tcl_WaitForEvent)(timePtr); -} - -/* Slot 272 */ -Tcl_Pid -Tcl_WaitPid(pid, statPtr, options) - Tcl_Pid pid; - int * statPtr; - int options; -{ - return (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options); -} - -/* Slot 273 */ +/* Slot 263 */ int Tcl_Write(chan, s, slen) Tcl_Channel chan; @@ -2646,7 +2550,7 @@ Tcl_Write(chan, s, slen) return (tclStubsPtr->tcl_Write)(chan, s, slen); } -/* Slot 274 */ +/* Slot 264 */ void Tcl_WrongNumArgs(interp, objc, objv, message) Tcl_Interp * interp; @@ -2657,5 +2561,139 @@ Tcl_WrongNumArgs(interp, objc, objv, message) (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message); } +/* Slot 265 */ +int +Tcl_DumpActiveMemory(fileName) + char * fileName; +{ + return (tclStubsPtr->tcl_DumpActiveMemory)(fileName); +} + +/* Slot 266 */ +void +Tcl_ValidateAllMemory(file, line) + char * file; + int line; +{ + (tclStubsPtr->tcl_ValidateAllMemory)(file, line); +} + +/* Slot 267 */ +void +Tcl_AppendResultVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + (tclStubsPtr->tcl_AppendResultVA)(interp, argList); +} + +/* Slot 268 */ +void +Tcl_AppendStringsToObjVA(objPtr, argList) + Tcl_Obj * objPtr; + va_list argList; +{ + (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList); +} + +/* Slot 269 */ +char * +Tcl_HashStats(tablePtr) + Tcl_HashTable * tablePtr; +{ + return (tclStubsPtr->tcl_HashStats)(tablePtr); +} + +/* Slot 270 */ +char * +Tcl_ParseVar(interp, string, termPtr) + Tcl_Interp * interp; + char * string; + char ** termPtr; +{ + return (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr); +} + +/* Slot 271 */ +char * +Tcl_PkgPresent(interp, name, version, exact) + Tcl_Interp * interp; + char * name; + char * version; + int exact; +{ + return (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact); +} + +/* Slot 272 */ +char * +Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) + Tcl_Interp * interp; + char * name; + char * version; + int exact; + ClientData * clientDataPtr; +{ + return (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr); +} + +/* Slot 273 */ +int +Tcl_PkgProvide(interp, name, version) + Tcl_Interp * interp; + char * name; + char * version; +{ + return (tclStubsPtr->tcl_PkgProvide)(interp, name, version); +} + +/* Slot 274 */ +char * +Tcl_PkgRequire(interp, name, version, exact) + Tcl_Interp * interp; + char * name; + char * version; + int exact; +{ + return (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact); +} + +/* Slot 275 */ +void +Tcl_SetErrorCodeVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList); +} + +/* Slot 276 */ +int +Tcl_VarEvalVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + return (tclStubsPtr->tcl_VarEvalVA)(interp, argList); +} + +/* Slot 277 */ +Tcl_Pid +Tcl_WaitPid(pid, statPtr, options) + Tcl_Pid pid; + int * statPtr; + int options; +{ + return (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options); +} + +/* Slot 278 */ +void +panicVA(format, argList) + char * format; + va_list argList; +{ + (tclStubsPtr->panicVA)(format, argList); +} + /* !END!: Do not edit above this line. */ |