Tcl Source Code

 * Copyright (c) 1993-1996 Lucent Technologies.
 * Copyright (c) 1994-1998 Sun Microsystems, Inc.
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tcl.h,v 1.1.2.19 1999/03/17 21:29:57 stanton Exp $
 */

#ifndef _TCL
#define _TCL

/*
 * The following defines are used to indicate the various release levels.

/*
 * The following function is required to be defined in all stubs aware
 * extensions.  The function is actually implemented in the stub
 * library, not the main Tcl library, although there is a trivial
 * implementation in the main library in case an extension is statically
 * linked into an application.
 */



EXTERN char *		Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
			    char *version, int exact));













/*
 * Include the public function declarations that are accessible via
 * the stubs table.
 */

#include "tclDecls.h"

 * Copyright (c) 1987-1994 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclBasic.c,v 1.1.2.11 1999/03/11 01:50:28 stanton Exp $
 */

#include "tclInt.h"
#include "tclCompile.h"
#ifndef TCL_GENERIC_ONLY
#   include "tclPort.h"
#endif

/*
 * Static procedures in this file:
 */

static void		DeleteInterpProc _ANSI_ARGS_((Tcl_Interp *interp));
static void		ProcessUnexpectedResult _ANSI_ARGS_((
			    Tcl_Interp *interp, int returnCode));
static void		RecordTracebackInfo _ANSI_ARGS_((
			    Tcl_Interp *interp, Tcl_Obj *objPtr,
			    int numSrcBytes));



/*
 * The following structure defines the commands in the Tcl core.
 */

typedef struct {
    char *name;			/* Name of object-based command. */

        (CompileProc *) NULL,		0},
#endif /* MAC_TCL */
    
#endif /* TCL_GENERIC_ONLY */
    {NULL,		(Tcl_CmdProc *) NULL,	(Tcl_ObjCmdProc *) NULL,
        (CompileProc *) NULL,		0}
};

/*
 *----------------------------------------------------------------------
 *
 * Tcl_InitStubs --
 *
 *	Ensures that the correct version of Tcl is loaded.  This is
 *	a trivial implementation of the stubs library initializer
 *	that will get called if a stubs aware extension is directly
 *	linked with the Tcl library.
 *
 * Results:
 *	The actual version of Tcl that satisfies the request, or
 *	NULL to indicate that an error occurred.
 *
 * Side effects:
 *	None.
 *
 *----------------------------------------------------------------------
 */

char *
Tcl_InitStubs (interp, version, exact)
    Tcl_Interp *interp;
    char *version;
    int exact;
{
    return Tcl_PkgRequire(interp, "Tcl", version, exact);
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_CreateInterp --
 *
 *	Create a new TCL command interpreter.

            sizeof(statsPtr->literalCount));
#endif /* TCL_COMPILE_STATS */    

    /*
     * Initialise the stub table pointer.
     */

    iPtr->stubTable = tclStubsPtr;
    
    /*
     * Create the core commands. Do it here, rather than calling
     * Tcl_CreateCommand, because it's faster (there's no need to check for
     * a pre-existing command by the same name). If a command has a
     * Tcl_CmdProc but no Tcl_ObjCmdProc, set the Tcl_ObjCmdProc to
     * TclInvokeStringCommand. This is an object-based wrapper procedure

	    TclPrecTraceProc, (ClientData) NULL);
    TclpSetVariables(interp);

    /*
     * Register Tcl's version number.
     */

    Tcl_PkgProvideEx(interp, "Tcl", TCL_VERSION, (ClientData) tclStubsPtr);
    
    return interp;
}

/*
 *----------------------------------------------------------------------
 *

/*
 * tclDecls.h --
 *
 *	Declarations of functions in the platform independent public Tcl API.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclDecls.h,v 1.3.2.9 1999/03/24 04:25:12 stanton Exp $
 */

#ifndef _TCLDECLS
#define _TCLDECLS

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl

#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)

/*
 * Inline function declarations:
 */

#ifndef Tcl_PkgProvideEx
#define Tcl_PkgProvideEx(interp, name, version, clientData) \
	(tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData) /* 0 */
#endif
#ifndef Tcl_PkgRequireEx
#define Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) \
	(tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr) /* 1 */
#endif
#ifndef Tcl_Panic
#define Tcl_Panic \
	(tclStubsPtr->tcl_Panic) /* 2 */
#endif
#ifndef Tcl_Alloc
#define Tcl_Alloc(size) \
	(tclStubsPtr->tcl_Alloc)(size) /* 3 */
#endif
#ifndef Tcl_Free
#define Tcl_Free(ptr) \
	(tclStubsPtr->tcl_Free)(ptr) /* 4 */
#endif
#ifndef Tcl_Realloc
#define Tcl_Realloc(ptr, size) \
	(tclStubsPtr->tcl_Realloc)(ptr, size) /* 5 */
#endif
#ifndef Tcl_DbCkalloc
#define Tcl_DbCkalloc(size, file, line) \
	(tclStubsPtr->tcl_DbCkalloc)(size, file, line) /* 6 */
#endif
#ifndef Tcl_DbCkfree
#define Tcl_DbCkfree(ptr, file, line) \
	(tclStubsPtr->tcl_DbCkfree)(ptr, file, line) /* 7 */
#endif
#ifndef Tcl_DbCkrealloc
#define Tcl_DbCkrealloc(ptr, size, file, line) \
	(tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line) /* 8 */
#endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_CreateFileHandler
#define Tcl_CreateFileHandler(fd, mask, proc, clientData) \
	(tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData) /* 9 */
#endif
#endif /* UNIX */
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_DeleteFileHandler
#define Tcl_DeleteFileHandler(fd) \
	(tclStubsPtr->tcl_DeleteFileHandler)(fd) /* 10 */
#endif
#endif /* UNIX */
#ifndef Tcl_SetTimer
#define Tcl_SetTimer(timePtr) \
	(tclStubsPtr->tcl_SetTimer)(timePtr) /* 11 */
#endif
#ifndef Tcl_Sleep
#define Tcl_Sleep(ms) \
	(tclStubsPtr->tcl_Sleep)(ms) /* 12 */
#endif
#ifndef Tcl_WaitForEvent
#define Tcl_WaitForEvent(timePtr) \
	(tclStubsPtr->tcl_WaitForEvent)(timePtr) /* 13 */
#endif
#ifndef Tcl_AppendAllObjTypes
#define Tcl_AppendAllObjTypes(interp, objPtr) \
	(tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr) /* 14 */
#endif
#ifndef Tcl_AppendStringsToObj
#define Tcl_AppendStringsToObj \
	(tclStubsPtr->tcl_AppendStringsToObj) /* 15 */
#endif
#ifndef Tcl_AppendToObj
#define Tcl_AppendToObj(objPtr, bytes, length) \
	(tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length) /* 16 */
#endif
#ifndef Tcl_ConcatObj
#define Tcl_ConcatObj(objc, objv) \
	(tclStubsPtr->tcl_ConcatObj)(objc, objv) /* 17 */
#endif
#ifndef Tcl_ConvertToType
#define Tcl_ConvertToType(interp, objPtr, typePtr) \
	(tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr) /* 18 */
#endif
#ifndef Tcl_DbDecrRefCount
#define Tcl_DbDecrRefCount(objPtr, file, line) \
	(tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line) /* 19 */
#endif
#ifndef Tcl_DbIncrRefCount
#define Tcl_DbIncrRefCount(objPtr, file, line) \
	(tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line) /* 20 */
#endif
#ifndef Tcl_DbIsShared
#define Tcl_DbIsShared(objPtr, file, line) \
	(tclStubsPtr->tcl_DbIsShared)(objPtr, file, line) /* 21 */
#endif
#ifndef Tcl_DbNewBooleanObj
#define Tcl_DbNewBooleanObj(boolValue, file, line) \
	(tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line) /* 22 */
#endif
#ifndef Tcl_DbNewByteArrayObj
#define Tcl_DbNewByteArrayObj(bytes, length, file, line) \
	(tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line) /* 23 */
#endif
#ifndef Tcl_DbNewDoubleObj
#define Tcl_DbNewDoubleObj(doubleValue, file, line) \
	(tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line) /* 24 */
#endif
#ifndef Tcl_DbNewListObj
#define Tcl_DbNewListObj(objc, objv, file, line) \
	(tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line) /* 25 */
#endif
#ifndef Tcl_DbNewLongObj
#define Tcl_DbNewLongObj(longValue, file, line) \
	(tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line) /* 26 */
#endif
#ifndef Tcl_DbNewObj
#define Tcl_DbNewObj(file, line) \
	(tclStubsPtr->tcl_DbNewObj)(file, line) /* 27 */
#endif
#ifndef Tcl_DbNewStringObj
#define Tcl_DbNewStringObj(bytes, length, file, line) \
	(tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line) /* 28 */
#endif
#ifndef Tcl_DuplicateObj
#define Tcl_DuplicateObj(objPtr) \
	(tclStubsPtr->tcl_DuplicateObj)(objPtr) /* 29 */
#endif
#ifndef TclFreeObj
#define TclFreeObj(objPtr) \
	(tclStubsPtr->tclFreeObj)(objPtr) /* 30 */
#endif
#ifndef Tcl_GetBoolean
#define Tcl_GetBoolean(interp, str, boolPtr) \
	(tclStubsPtr->tcl_GetBoolean)(interp, str, boolPtr) /* 31 */
#endif
#ifndef Tcl_GetBooleanFromObj
#define Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) \
	(tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr) /* 32 */
#endif
#ifndef Tcl_GetByteArrayFromObj
#define Tcl_GetByteArrayFromObj(objPtr, lengthPtr) \
	(tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr) /* 33 */
#endif
#ifndef Tcl_GetDouble
#define Tcl_GetDouble(interp, str, doublePtr) \
	(tclStubsPtr->tcl_GetDouble)(interp, str, doublePtr) /* 34 */
#endif
#ifndef Tcl_GetDoubleFromObj
#define Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) \
	(tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr) /* 35 */
#endif
#ifndef Tcl_GetIndexFromObj
#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
	(tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr) /* 36 */
#endif
#ifndef Tcl_GetInt
#define Tcl_GetInt(interp, str, intPtr) \
	(tclStubsPtr->tcl_GetInt)(interp, str, intPtr) /* 37 */
#endif
#ifndef Tcl_GetIntFromObj
#define Tcl_GetIntFromObj(interp, objPtr, intPtr) \
	(tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr) /* 38 */
#endif
#ifndef Tcl_GetLongFromObj
#define Tcl_GetLongFromObj(interp, objPtr, longPtr) \
	(tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr) /* 39 */
#endif
#ifndef Tcl_GetObjType
#define Tcl_GetObjType(typeName) \
	(tclStubsPtr->tcl_GetObjType)(typeName) /* 40 */
#endif
#ifndef Tcl_GetStringFromObj
#define Tcl_GetStringFromObj(objPtr, lengthPtr) \
	(tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr) /* 41 */
#endif
#ifndef Tcl_InvalidateStringRep
#define Tcl_InvalidateStringRep(objPtr) \
	(tclStubsPtr->tcl_InvalidateStringRep)(objPtr) /* 42 */
#endif
#ifndef Tcl_ListObjAppendList
#define Tcl_ListObjAppendList(interp, listPtr, elemListPtr) \
	(tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr) /* 43 */
#endif
#ifndef Tcl_ListObjAppendElement
#define Tcl_ListObjAppendElement(interp, listPtr, objPtr) \
	(tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr) /* 44 */
#endif
#ifndef Tcl_ListObjGetElements
#define Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) \
	(tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr) /* 45 */
#endif
#ifndef Tcl_ListObjIndex
#define Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) \
	(tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr) /* 46 */
#endif
#ifndef Tcl_ListObjLength
#define Tcl_ListObjLength(interp, listPtr, intPtr) \
	(tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr) /* 47 */
#endif
#ifndef Tcl_ListObjReplace
#define Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) \
	(tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv) /* 48 */
#endif
#ifndef Tcl_NewBooleanObj
#define Tcl_NewBooleanObj(boolValue) \
	(tclStubsPtr->tcl_NewBooleanObj)(boolValue) /* 49 */
#endif
#ifndef Tcl_NewByteArrayObj
#define Tcl_NewByteArrayObj(bytes, length) \
	(tclStubsPtr->tcl_NewByteArrayObj)(bytes, length) /* 50 */
#endif
#ifndef Tcl_NewDoubleObj
#define Tcl_NewDoubleObj(doubleValue) \
	(tclStubsPtr->tcl_NewDoubleObj)(doubleValue) /* 51 */
#endif
#ifndef Tcl_NewIntObj
#define Tcl_NewIntObj(intValue) \
	(tclStubsPtr->tcl_NewIntObj)(intValue) /* 52 */
#endif
#ifndef Tcl_NewListObj
#define Tcl_NewListObj(objc, objv) \
	(tclStubsPtr->tcl_NewListObj)(objc, objv) /* 53 */
#endif
#ifndef Tcl_NewLongObj
#define Tcl_NewLongObj(longValue) \
	(tclStubsPtr->tcl_NewLongObj)(longValue) /* 54 */
#endif
#ifndef Tcl_NewObj
#define Tcl_NewObj() \
	(tclStubsPtr->tcl_NewObj)() /* 55 */
#endif
#ifndef Tcl_NewStringObj
#define Tcl_NewStringObj(bytes, length) \
	(tclStubsPtr->tcl_NewStringObj)(bytes, length) /* 56 */
#endif
#ifndef Tcl_SetBooleanObj
#define Tcl_SetBooleanObj(objPtr, boolValue) \
	(tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue) /* 57 */
#endif
#ifndef Tcl_SetByteArrayLength
#define Tcl_SetByteArrayLength(objPtr, length) \
	(tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length) /* 58 */
#endif
#ifndef Tcl_SetByteArrayObj
#define Tcl_SetByteArrayObj(objPtr, bytes, length) \
	(tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length) /* 59 */
#endif
#ifndef Tcl_SetDoubleObj
#define Tcl_SetDoubleObj(objPtr, doubleValue) \
	(tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue) /* 60 */
#endif
#ifndef Tcl_SetIntObj
#define Tcl_SetIntObj(objPtr, intValue) \
	(tclStubsPtr->tcl_SetIntObj)(objPtr, intValue) /* 61 */
#endif
#ifndef Tcl_SetListObj
#define Tcl_SetListObj(objPtr, objc, objv) \
	(tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv) /* 62 */
#endif
#ifndef Tcl_SetLongObj
#define Tcl_SetLongObj(objPtr, longValue) \
	(tclStubsPtr->tcl_SetLongObj)(objPtr, longValue) /* 63 */
#endif
#ifndef Tcl_SetObjLength
#define Tcl_SetObjLength(objPtr, length) \
	(tclStubsPtr->tcl_SetObjLength)(objPtr, length) /* 64 */
#endif
#ifndef Tcl_SetStringObj
#define Tcl_SetStringObj(objPtr, bytes, length) \
	(tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length) /* 65 */
#endif
#ifndef Tcl_AddErrorInfo
#define Tcl_AddErrorInfo(interp, message) \
	(tclStubsPtr->tcl_AddErrorInfo)(interp, message) /* 66 */
#endif
#ifndef Tcl_AddObjErrorInfo
#define Tcl_AddObjErrorInfo(interp, message, length) \
	(tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length) /* 67 */
#endif
#ifndef Tcl_AllowExceptions
#define Tcl_AllowExceptions(interp) \
	(tclStubsPtr->tcl_AllowExceptions)(interp) /* 68 */
#endif
#ifndef Tcl_AppendElement
#define Tcl_AppendElement(interp, string) \
	(tclStubsPtr->tcl_AppendElement)(interp, string) /* 69 */
#endif
#ifndef Tcl_AppendResult
#define Tcl_AppendResult \
	(tclStubsPtr->tcl_AppendResult) /* 70 */
#endif
#ifndef Tcl_AsyncCreate
#define Tcl_AsyncCreate(proc, clientData) \
	(tclStubsPtr->tcl_AsyncCreate)(proc, clientData) /* 71 */
#endif
#ifndef Tcl_AsyncDelete
#define Tcl_AsyncDelete(async) \
	(tclStubsPtr->tcl_AsyncDelete)(async) /* 72 */
#endif
#ifndef Tcl_AsyncInvoke
#define Tcl_AsyncInvoke(interp, code) \
	(tclStubsPtr->tcl_AsyncInvoke)(interp, code) /* 73 */
#endif
#ifndef Tcl_AsyncMark
#define Tcl_AsyncMark(async) \
	(tclStubsPtr->tcl_AsyncMark)(async) /* 74 */
#endif
#ifndef Tcl_AsyncReady
#define Tcl_AsyncReady() \
	(tclStubsPtr->tcl_AsyncReady)() /* 75 */
#endif
#ifndef Tcl_BackgroundError
#define Tcl_BackgroundError(interp) \
	(tclStubsPtr->tcl_BackgroundError)(interp) /* 76 */
#endif
#ifndef Tcl_Backslash
#define Tcl_Backslash(src, readPtr) \
	(tclStubsPtr->tcl_Backslash)(src, readPtr) /* 77 */
#endif
#ifndef Tcl_BadChannelOption
#define Tcl_BadChannelOption(interp, optionName, optionList) \
	(tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList) /* 78 */
#endif
#ifndef Tcl_CallWhenDeleted
#define Tcl_CallWhenDeleted(interp, proc, clientData) \
	(tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData) /* 79 */
#endif
#ifndef Tcl_CancelIdleCall
#define Tcl_CancelIdleCall(idleProc, clientData) \
	(tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData) /* 80 */
#endif
#ifndef Tcl_Close
#define Tcl_Close(interp, chan) \
	(tclStubsPtr->tcl_Close)(interp, chan) /* 81 */
#endif
#ifndef Tcl_CommandComplete
#define Tcl_CommandComplete(cmd) \
	(tclStubsPtr->tcl_CommandComplete)(cmd) /* 82 */
#endif
#ifndef Tcl_Concat
#define Tcl_Concat(argc, argv) \
	(tclStubsPtr->tcl_Concat)(argc, argv) /* 83 */
#endif
#ifndef Tcl_ConvertElement
#define Tcl_ConvertElement(src, dst, flags) \
	(tclStubsPtr->tcl_ConvertElement)(src, dst, flags) /* 84 */
#endif
#ifndef Tcl_ConvertCountedElement
#define Tcl_ConvertCountedElement(src, length, dst, flags) \
	(tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags) /* 85 */
#endif
#ifndef Tcl_CreateAlias
#define Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) \
	(tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv) /* 86 */
#endif
#ifndef Tcl_CreateAliasObj
#define Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) \
	(tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv) /* 87 */
#endif
#ifndef Tcl_CreateChannel
#define Tcl_CreateChannel(typePtr, chanName, instanceData, mask) \
	(tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask) /* 88 */
#endif
#ifndef Tcl_CreateChannelHandler
#define Tcl_CreateChannelHandler(chan, mask, proc, clientData) \
	(tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData) /* 89 */
#endif
#ifndef Tcl_CreateCloseHandler
#define Tcl_CreateCloseHandler(chan, proc, clientData) \
	(tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData) /* 90 */
#endif
#ifndef Tcl_CreateCommand
#define Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) \
	(tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc) /* 91 */
#endif
#ifndef Tcl_CreateEventSource
#define Tcl_CreateEventSource(setupProc, checkProc, clientData) \
	(tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData) /* 92 */
#endif
#ifndef Tcl_CreateExitHandler
#define Tcl_CreateExitHandler(proc, clientData) \
	(tclStubsPtr->tcl_CreateExitHandler)(proc, clientData) /* 93 */
#endif
#ifndef Tcl_CreateInterp
#define Tcl_CreateInterp() \
	(tclStubsPtr->tcl_CreateInterp)() /* 94 */
#endif
#ifndef Tcl_CreateMathFunc
#define Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) \
	(tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData) /* 95 */
#endif
#ifndef Tcl_CreateObjCommand
#define Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) \
	(tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc) /* 96 */
#endif
#ifndef Tcl_CreateSlave
#define Tcl_CreateSlave(interp, slaveName, isSafe) \
	(tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe) /* 97 */
#endif
#ifndef Tcl_CreateTimerHandler
#define Tcl_CreateTimerHandler(milliseconds, proc, clientData) \
	(tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData) /* 98 */
#endif
#ifndef Tcl_CreateTrace
#define Tcl_CreateTrace(interp, level, proc, clientData) \
	(tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData) /* 99 */
#endif
#ifndef Tcl_DeleteAssocData
#define Tcl_DeleteAssocData(interp, name) \
	(tclStubsPtr->tcl_DeleteAssocData)(interp, name) /* 100 */
#endif
#ifndef Tcl_DeleteChannelHandler
#define Tcl_DeleteChannelHandler(chan, proc, clientData) \
	(tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData) /* 101 */
#endif
#ifndef Tcl_DeleteCloseHandler
#define Tcl_DeleteCloseHandler(chan, proc, clientData) \
	(tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData) /* 102 */
#endif
#ifndef Tcl_DeleteCommand
#define Tcl_DeleteCommand(interp, cmdName) \
	(tclStubsPtr->tcl_DeleteCommand)(interp, cmdName) /* 103 */
#endif
#ifndef Tcl_DeleteCommandFromToken
#define Tcl_DeleteCommandFromToken(interp, command) \
	(tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command) /* 104 */
#endif
#ifndef Tcl_DeleteEvents
#define Tcl_DeleteEvents(proc, clientData) \
	(tclStubsPtr->tcl_DeleteEvents)(proc, clientData) /* 105 */
#endif
#ifndef Tcl_DeleteEventSource
#define Tcl_DeleteEventSource(setupProc, checkProc, clientData) \
	(tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData) /* 106 */
#endif
#ifndef Tcl_DeleteExitHandler
#define Tcl_DeleteExitHandler(proc, clientData) \
	(tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData) /* 107 */
#endif
#ifndef Tcl_DeleteHashEntry
#define Tcl_DeleteHashEntry(entryPtr) \
	(tclStubsPtr->tcl_DeleteHashEntry)(entryPtr) /* 108 */
#endif
#ifndef Tcl_DeleteHashTable
#define Tcl_DeleteHashTable(tablePtr) \
	(tclStubsPtr->tcl_DeleteHashTable)(tablePtr) /* 109 */
#endif
#ifndef Tcl_DeleteInterp
#define Tcl_DeleteInterp(interp) \
	(tclStubsPtr->tcl_DeleteInterp)(interp) /* 110 */
#endif
#ifndef Tcl_DetachPids
#define Tcl_DetachPids(numPids, pidPtr) \
	(tclStubsPtr->tcl_DetachPids)(numPids, pidPtr) /* 111 */
#endif
#ifndef Tcl_DeleteTimerHandler
#define Tcl_DeleteTimerHandler(token) \
	(tclStubsPtr->tcl_DeleteTimerHandler)(token) /* 112 */
#endif
#ifndef Tcl_DeleteTrace
#define Tcl_DeleteTrace(interp, trace) \
	(tclStubsPtr->tcl_DeleteTrace)(interp, trace) /* 113 */
#endif
#ifndef Tcl_DontCallWhenDeleted
#define Tcl_DontCallWhenDeleted(interp, proc, clientData) \
	(tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData) /* 114 */
#endif
#ifndef Tcl_DoOneEvent
#define Tcl_DoOneEvent(flags) \
	(tclStubsPtr->tcl_DoOneEvent)(flags) /* 115 */
#endif
#ifndef Tcl_DoWhenIdle
#define Tcl_DoWhenIdle(proc, clientData) \
	(tclStubsPtr->tcl_DoWhenIdle)(proc, clientData) /* 116 */
#endif
#ifndef Tcl_DStringAppend
#define Tcl_DStringAppend(dsPtr, str, length) \
	(tclStubsPtr->tcl_DStringAppend)(dsPtr, str, length) /* 117 */
#endif
#ifndef Tcl_DStringAppendElement
#define Tcl_DStringAppendElement(dsPtr, string) \
	(tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string) /* 118 */
#endif
#ifndef Tcl_DStringEndSublist
#define Tcl_DStringEndSublist(dsPtr) \
	(tclStubsPtr->tcl_DStringEndSublist)(dsPtr) /* 119 */
#endif
#ifndef Tcl_DStringFree
#define Tcl_DStringFree(dsPtr) \
	(tclStubsPtr->tcl_DStringFree)(dsPtr) /* 120 */
#endif
#ifndef Tcl_DStringGetResult
#define Tcl_DStringGetResult(interp, dsPtr) \
	(tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr) /* 121 */
#endif
#ifndef Tcl_DStringInit
#define Tcl_DStringInit(dsPtr) \
	(tclStubsPtr->tcl_DStringInit)(dsPtr) /* 122 */
#endif
#ifndef Tcl_DStringResult
#define Tcl_DStringResult(interp, dsPtr) \
	(tclStubsPtr->tcl_DStringResult)(interp, dsPtr) /* 123 */
#endif
#ifndef Tcl_DStringSetLength
#define Tcl_DStringSetLength(dsPtr, length) \
	(tclStubsPtr->tcl_DStringSetLength)(dsPtr, length) /* 124 */
#endif
#ifndef Tcl_DStringStartSublist
#define Tcl_DStringStartSublist(dsPtr) \
	(tclStubsPtr->tcl_DStringStartSublist)(dsPtr) /* 125 */
#endif
#ifndef Tcl_Eof
#define Tcl_Eof(chan) \
	(tclStubsPtr->tcl_Eof)(chan) /* 126 */
#endif
#ifndef Tcl_ErrnoId
#define Tcl_ErrnoId() \
	(tclStubsPtr->tcl_ErrnoId)() /* 127 */
#endif
#ifndef Tcl_ErrnoMsg
#define Tcl_ErrnoMsg(err) \
	(tclStubsPtr->tcl_ErrnoMsg)(err) /* 128 */
#endif
#ifndef Tcl_Eval
#define Tcl_Eval(interp, string) \
	(tclStubsPtr->tcl_Eval)(interp, string) /* 129 */
#endif
#ifndef Tcl_EvalFile
#define Tcl_EvalFile(interp, fileName) \
	(tclStubsPtr->tcl_EvalFile)(interp, fileName) /* 130 */
#endif
#ifndef Tcl_EvalObj
#define Tcl_EvalObj(interp, objPtr) \
	(tclStubsPtr->tcl_EvalObj)(interp, objPtr) /* 131 */
#endif
#ifndef Tcl_EventuallyFree
#define Tcl_EventuallyFree(clientData, freeProc) \
	(tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc) /* 132 */
#endif
#ifndef Tcl_Exit
#define Tcl_Exit(status) \
	(tclStubsPtr->tcl_Exit)(status) /* 133 */
#endif
#ifndef Tcl_ExposeCommand
#define Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) \
	(tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName) /* 134 */
#endif
#ifndef Tcl_ExprBoolean
#define Tcl_ExprBoolean(interp, str, ptr) \
	(tclStubsPtr->tcl_ExprBoolean)(interp, str, ptr) /* 135 */
#endif
#ifndef Tcl_ExprBooleanObj
#define Tcl_ExprBooleanObj(interp, objPtr, ptr) \
	(tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr) /* 136 */
#endif
#ifndef Tcl_ExprDouble
#define Tcl_ExprDouble(interp, str, ptr) \
	(tclStubsPtr->tcl_ExprDouble)(interp, str, ptr) /* 137 */
#endif
#ifndef Tcl_ExprDoubleObj
#define Tcl_ExprDoubleObj(interp, objPtr, ptr) \
	(tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr) /* 138 */
#endif
#ifndef Tcl_ExprLong
#define Tcl_ExprLong(interp, str, ptr) \
	(tclStubsPtr->tcl_ExprLong)(interp, str, ptr) /* 139 */
#endif
#ifndef Tcl_ExprLongObj
#define Tcl_ExprLongObj(interp, objPtr, ptr) \
	(tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr) /* 140 */
#endif
#ifndef Tcl_ExprObj
#define Tcl_ExprObj(interp, objPtr, resultPtrPtr) \
	(tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr) /* 141 */
#endif
#ifndef Tcl_ExprString
#define Tcl_ExprString(interp, string) \
	(tclStubsPtr->tcl_ExprString)(interp, string) /* 142 */
#endif
#ifndef Tcl_Finalize
#define Tcl_Finalize() \
	(tclStubsPtr->tcl_Finalize)() /* 143 */
#endif
#ifndef Tcl_FindExecutable
#define Tcl_FindExecutable(argv0) \
	(tclStubsPtr->tcl_FindExecutable)(argv0) /* 144 */
#endif
#ifndef Tcl_FirstHashEntry
#define Tcl_FirstHashEntry(tablePtr, searchPtr) \
	(tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr) /* 145 */
#endif
#ifndef Tcl_Flush
#define Tcl_Flush(chan) \
	(tclStubsPtr->tcl_Flush)(chan) /* 146 */
#endif
#ifndef Tcl_FreeResult
#define Tcl_FreeResult(interp) \
	(tclStubsPtr->tcl_FreeResult)(interp) /* 147 */
#endif
#ifndef Tcl_GetAlias
#define Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) \
	(tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) /* 148 */
#endif
#ifndef Tcl_GetAliasObj
#define Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) \
	(tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) /* 149 */
#endif
#ifndef Tcl_GetAssocData
#define Tcl_GetAssocData(interp, name, procPtr) \
	(tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr) /* 150 */
#endif
#ifndef Tcl_GetChannel
#define Tcl_GetChannel(interp, chanName, modePtr) \
	(tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr) /* 151 */
#endif
#ifndef Tcl_GetChannelBufferSize
#define Tcl_GetChannelBufferSize(chan) \
	(tclStubsPtr->tcl_GetChannelBufferSize)(chan) /* 152 */
#endif
#ifndef Tcl_GetChannelHandle
#define Tcl_GetChannelHandle(chan, direction, handlePtr) \
	(tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr) /* 153 */
#endif
#ifndef Tcl_GetChannelInstanceData
#define Tcl_GetChannelInstanceData(chan) \
	(tclStubsPtr->tcl_GetChannelInstanceData)(chan) /* 154 */
#endif
#ifndef Tcl_GetChannelMode
#define Tcl_GetChannelMode(chan) \
	(tclStubsPtr->tcl_GetChannelMode)(chan) /* 155 */
#endif
#ifndef Tcl_GetChannelName
#define Tcl_GetChannelName(chan) \
	(tclStubsPtr->tcl_GetChannelName)(chan) /* 156 */
#endif
#ifndef Tcl_GetChannelOption
#define Tcl_GetChannelOption(interp, chan, optionName, dsPtr) \
	(tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr) /* 157 */
#endif
#ifndef Tcl_GetChannelType
#define Tcl_GetChannelType(chan) \
	(tclStubsPtr->tcl_GetChannelType)(chan) /* 158 */
#endif
#ifndef Tcl_GetCommandInfo
#define Tcl_GetCommandInfo(interp, cmdName, infoPtr) \
	(tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr) /* 159 */
#endif
#ifndef Tcl_GetCommandName
#define Tcl_GetCommandName(interp, command) \
	(tclStubsPtr->tcl_GetCommandName)(interp, command) /* 160 */
#endif
#ifndef Tcl_GetErrno
#define Tcl_GetErrno() \
	(tclStubsPtr->tcl_GetErrno)() /* 161 */
#endif
#ifndef Tcl_GetHostName
#define Tcl_GetHostName() \
	(tclStubsPtr->tcl_GetHostName)() /* 162 */
#endif
#ifndef Tcl_GetInterpPath
#define Tcl_GetInterpPath(askInterp, slaveInterp) \
	(tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp) /* 163 */
#endif
#ifndef Tcl_GetMaster
#define Tcl_GetMaster(interp) \
	(tclStubsPtr->tcl_GetMaster)(interp) /* 164 */
#endif
#ifndef Tcl_GetNameOfExecutable
#define Tcl_GetNameOfExecutable() \
	(tclStubsPtr->tcl_GetNameOfExecutable)() /* 165 */
#endif
#ifndef Tcl_GetObjResult
#define Tcl_GetObjResult(interp) \
	(tclStubsPtr->tcl_GetObjResult)(interp) /* 166 */
#endif
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef Tcl_GetOpenFile
#define Tcl_GetOpenFile(interp, str, write, checkUsage, filePtr) \
	(tclStubsPtr->tcl_GetOpenFile)(interp, str, write, checkUsage, filePtr) /* 167 */
#endif
#endif /* UNIX */
#ifndef Tcl_GetPathType
#define Tcl_GetPathType(path) \
	(tclStubsPtr->tcl_GetPathType)(path) /* 168 */
#endif
#ifndef Tcl_Gets
#define Tcl_Gets(chan, dsPtr) \
	(tclStubsPtr->tcl_Gets)(chan, dsPtr) /* 169 */
#endif
#ifndef Tcl_GetsObj
#define Tcl_GetsObj(chan, objPtr) \
	(tclStubsPtr->tcl_GetsObj)(chan, objPtr) /* 170 */
#endif
#ifndef Tcl_GetServiceMode
#define Tcl_GetServiceMode() \
	(tclStubsPtr->tcl_GetServiceMode)() /* 171 */
#endif
#ifndef Tcl_GetSlave
#define Tcl_GetSlave(interp, slaveName) \
	(tclStubsPtr->tcl_GetSlave)(interp, slaveName) /* 172 */
#endif
#ifndef Tcl_GetStdChannel
#define Tcl_GetStdChannel(type) \
	(tclStubsPtr->tcl_GetStdChannel)(type) /* 173 */
#endif
#ifndef Tcl_GetStringResult
#define Tcl_GetStringResult(interp) \
	(tclStubsPtr->tcl_GetStringResult)(interp) /* 174 */
#endif
#ifndef Tcl_GetVar
#define Tcl_GetVar(interp, varName, flags) \
	(tclStubsPtr->tcl_GetVar)(interp, varName, flags) /* 175 */
#endif
#ifndef Tcl_GetVar2
#define Tcl_GetVar2(interp, part1, part2, flags) \
	(tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags) /* 176 */
#endif
#ifndef Tcl_GlobalEval
#define Tcl_GlobalEval(interp, command) \
	(tclStubsPtr->tcl_GlobalEval)(interp, command) /* 177 */
#endif
#ifndef Tcl_GlobalEvalObj
#define Tcl_GlobalEvalObj(interp, objPtr) \
	(tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr) /* 178 */
#endif
#ifndef Tcl_HideCommand
#define Tcl_HideCommand(interp, cmdName, hiddenCmdToken) \
	(tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken) /* 179 */
#endif
#ifndef Tcl_Init
#define Tcl_Init(interp) \
	(tclStubsPtr->tcl_Init)(interp) /* 180 */
#endif
#ifndef Tcl_InitHashTable
#define Tcl_InitHashTable(tablePtr, keyType) \
	(tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType) /* 181 */
#endif
#ifndef Tcl_InputBlocked
#define Tcl_InputBlocked(chan) \
	(tclStubsPtr->tcl_InputBlocked)(chan) /* 182 */
#endif
#ifndef Tcl_InputBuffered
#define Tcl_InputBuffered(chan) \
	(tclStubsPtr->tcl_InputBuffered)(chan) /* 183 */
#endif
#ifndef Tcl_InterpDeleted
#define Tcl_InterpDeleted(interp) \
	(tclStubsPtr->tcl_InterpDeleted)(interp) /* 184 */
#endif
#ifndef Tcl_IsSafe
#define Tcl_IsSafe(interp) \
	(tclStubsPtr->tcl_IsSafe)(interp) /* 185 */
#endif
#ifndef Tcl_JoinPath
#define Tcl_JoinPath(argc, argv, resultPtr) \
	(tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr) /* 186 */
#endif
#ifndef Tcl_LinkVar
#define Tcl_LinkVar(interp, varName, addr, type) \
	(tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type) /* 187 */
#endif
/* Slot 188 is reserved */
#ifndef Tcl_MakeFileChannel
#define Tcl_MakeFileChannel(handle, mode) \
	(tclStubsPtr->tcl_MakeFileChannel)(handle, mode) /* 189 */
#endif
#ifndef Tcl_MakeSafe
#define Tcl_MakeSafe(interp) \
	(tclStubsPtr->tcl_MakeSafe)(interp) /* 190 */
#endif
#ifndef Tcl_MakeTcpClientChannel
#define Tcl_MakeTcpClientChannel(tcpSocket) \
	(tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket) /* 191 */
#endif
#ifndef Tcl_Merge
#define Tcl_Merge(argc, argv) \
	(tclStubsPtr->tcl_Merge)(argc, argv) /* 192 */
#endif
#ifndef Tcl_NextHashEntry
#define Tcl_NextHashEntry(searchPtr) \
	(tclStubsPtr->tcl_NextHashEntry)(searchPtr) /* 193 */
#endif
#ifndef Tcl_NotifyChannel
#define Tcl_NotifyChannel(channel, mask) \
	(tclStubsPtr->tcl_NotifyChannel)(channel, mask) /* 194 */
#endif
#ifndef Tcl_ObjGetVar2
#define Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) \
	(tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags) /* 195 */
#endif
#ifndef Tcl_ObjSetVar2
#define Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) \
	(tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags) /* 196 */
#endif
#ifndef Tcl_OpenCommandChannel
#define Tcl_OpenCommandChannel(interp, argc, argv, flags) \
	(tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags) /* 197 */
#endif
#ifndef Tcl_OpenFileChannel
#define Tcl_OpenFileChannel(interp, fileName, modeString, permissions) \
	(tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions) /* 198 */
#endif
#ifndef Tcl_OpenTcpClient
#define Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) \
	(tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async) /* 199 */
#endif
#ifndef Tcl_OpenTcpServer
#define Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) \
	(tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData) /* 200 */
#endif
#ifndef Tcl_Preserve
#define Tcl_Preserve(data) \
	(tclStubsPtr->tcl_Preserve)(data) /* 201 */
#endif
#ifndef Tcl_PrintDouble
#define Tcl_PrintDouble(interp, value, dst) \
	(tclStubsPtr->tcl_PrintDouble)(interp, value, dst) /* 202 */
#endif
#ifndef Tcl_PutEnv
#define Tcl_PutEnv(string) \
	(tclStubsPtr->tcl_PutEnv)(string) /* 203 */
#endif
#ifndef Tcl_PosixError
#define Tcl_PosixError(interp) \
	(tclStubsPtr->tcl_PosixError)(interp) /* 204 */
#endif
#ifndef Tcl_QueueEvent
#define Tcl_QueueEvent(evPtr, position) \
	(tclStubsPtr->tcl_QueueEvent)(evPtr, position) /* 205 */
#endif
#ifndef Tcl_Read
#define Tcl_Read(chan, bufPtr, toRead) \
	(tclStubsPtr->tcl_Read)(chan, bufPtr, toRead) /* 206 */
#endif
#ifndef Tcl_ReapDetachedProcs
#define Tcl_ReapDetachedProcs() \
	(tclStubsPtr->tcl_ReapDetachedProcs)() /* 207 */
#endif
#ifndef Tcl_RecordAndEval
#define Tcl_RecordAndEval(interp, cmd, flags) \
	(tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags) /* 208 */
#endif
#ifndef Tcl_RecordAndEvalObj
#define Tcl_RecordAndEvalObj(interp, cmdPtr, flags) \
	(tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags) /* 209 */
#endif
#ifndef Tcl_RegisterChannel
#define Tcl_RegisterChannel(interp, chan) \
	(tclStubsPtr->tcl_RegisterChannel)(interp, chan) /* 210 */
#endif
#ifndef Tcl_RegisterObjType
#define Tcl_RegisterObjType(typePtr) \
	(tclStubsPtr->tcl_RegisterObjType)(typePtr) /* 211 */
#endif
#ifndef Tcl_RegExpCompile
#define Tcl_RegExpCompile(interp, string) \
	(tclStubsPtr->tcl_RegExpCompile)(interp, string) /* 212 */
#endif
#ifndef Tcl_RegExpExec
#define Tcl_RegExpExec(interp, regexp, str, start) \
	(tclStubsPtr->tcl_RegExpExec)(interp, regexp, str, start) /* 213 */
#endif
#ifndef Tcl_RegExpMatch
#define Tcl_RegExpMatch(interp, str, pattern) \
	(tclStubsPtr->tcl_RegExpMatch)(interp, str, pattern) /* 214 */
#endif
#ifndef Tcl_RegExpRange
#define Tcl_RegExpRange(regexp, index, startPtr, endPtr) \
	(tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr) /* 215 */
#endif
#ifndef Tcl_Release
#define Tcl_Release(clientData) \
	(tclStubsPtr->tcl_Release)(clientData) /* 216 */
#endif
#ifndef Tcl_ResetResult
#define Tcl_ResetResult(interp) \
	(tclStubsPtr->tcl_ResetResult)(interp) /* 217 */
#endif
#ifndef Tcl_ScanElement
#define Tcl_ScanElement(str, flagPtr) \
	(tclStubsPtr->tcl_ScanElement)(str, flagPtr) /* 218 */
#endif
#ifndef Tcl_ScanCountedElement
#define Tcl_ScanCountedElement(str, length, flagPtr) \
	(tclStubsPtr->tcl_ScanCountedElement)(str, length, flagPtr) /* 219 */
#endif
#ifndef Tcl_Seek
#define Tcl_Seek(chan, offset, mode) \
	(tclStubsPtr->tcl_Seek)(chan, offset, mode) /* 220 */
#endif
#ifndef Tcl_ServiceAll
#define Tcl_ServiceAll() \
	(tclStubsPtr->tcl_ServiceAll)() /* 221 */
#endif
#ifndef Tcl_ServiceEvent
#define Tcl_ServiceEvent(flags) \
	(tclStubsPtr->tcl_ServiceEvent)(flags) /* 222 */
#endif
#ifndef Tcl_SetAssocData
#define Tcl_SetAssocData(interp, name, proc, clientData) \
	(tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData) /* 223 */
#endif
#ifndef Tcl_SetChannelBufferSize
#define Tcl_SetChannelBufferSize(chan, sz) \
	(tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz) /* 224 */
#endif
#ifndef Tcl_SetChannelOption
#define Tcl_SetChannelOption(interp, chan, optionName, newValue) \
	(tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue) /* 225 */
#endif
#ifndef Tcl_SetCommandInfo
#define Tcl_SetCommandInfo(interp, cmdName, infoPtr) \
	(tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr) /* 226 */
#endif
#ifndef Tcl_SetErrno
#define Tcl_SetErrno(err) \
	(tclStubsPtr->tcl_SetErrno)(err) /* 227 */
#endif
#ifndef Tcl_SetErrorCode
#define Tcl_SetErrorCode \
	(tclStubsPtr->tcl_SetErrorCode) /* 228 */
#endif
#ifndef Tcl_SetMaxBlockTime
#define Tcl_SetMaxBlockTime(timePtr) \
	(tclStubsPtr->tcl_SetMaxBlockTime)(timePtr) /* 229 */
#endif
#ifndef Tcl_SetPanicProc
#define Tcl_SetPanicProc(panicProc) \
	(tclStubsPtr->tcl_SetPanicProc)(panicProc) /* 230 */
#endif
#ifndef Tcl_SetRecursionLimit
#define Tcl_SetRecursionLimit(interp, depth) \
	(tclStubsPtr->tcl_SetRecursionLimit)(interp, depth) /* 231 */
#endif
#ifndef Tcl_SetResult
#define Tcl_SetResult(interp, str, freeProc) \
	(tclStubsPtr->tcl_SetResult)(interp, str, freeProc) /* 232 */
#endif
#ifndef Tcl_SetServiceMode
#define Tcl_SetServiceMode(mode) \
	(tclStubsPtr->tcl_SetServiceMode)(mode) /* 233 */
#endif
#ifndef Tcl_SetObjErrorCode
#define Tcl_SetObjErrorCode(interp, errorObjPtr) \
	(tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr) /* 234 */
#endif
#ifndef Tcl_SetObjResult
#define Tcl_SetObjResult(interp, resultObjPtr) \
	(tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr) /* 235 */
#endif
#ifndef Tcl_SetStdChannel
#define Tcl_SetStdChannel(channel, type) \
	(tclStubsPtr->tcl_SetStdChannel)(channel, type) /* 236 */
#endif
#ifndef Tcl_SetVar
#define Tcl_SetVar(interp, varName, newValue, flags) \
	(tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags) /* 237 */
#endif
#ifndef Tcl_SetVar2
#define Tcl_SetVar2(interp, part1, part2, newValue, flags) \
	(tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags) /* 238 */
#endif
#ifndef Tcl_SignalId
#define Tcl_SignalId(sig) \
	(tclStubsPtr->tcl_SignalId)(sig) /* 239 */
#endif
#ifndef Tcl_SignalMsg
#define Tcl_SignalMsg(sig) \
	(tclStubsPtr->tcl_SignalMsg)(sig) /* 240 */
#endif
#ifndef Tcl_SourceRCFile
#define Tcl_SourceRCFile(interp) \
	(tclStubsPtr->tcl_SourceRCFile)(interp) /* 241 */
#endif
#ifndef Tcl_SplitList
#define Tcl_SplitList(interp, listStr, argcPtr, argvPtr) \
	(tclStubsPtr->tcl_SplitList)(interp, listStr, argcPtr, argvPtr) /* 242 */
#endif
#ifndef Tcl_SplitPath
#define Tcl_SplitPath(path, argcPtr, argvPtr) \
	(tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr) /* 243 */
#endif
#ifndef Tcl_StaticPackage
#define Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) \
	(tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc) /* 244 */
#endif
#ifndef Tcl_StringMatch
#define Tcl_StringMatch(str, pattern) \
	(tclStubsPtr->tcl_StringMatch)(str, pattern) /* 245 */
#endif
#ifndef Tcl_Tell
#define Tcl_Tell(chan) \
	(tclStubsPtr->tcl_Tell)(chan) /* 246 */
#endif
#ifndef Tcl_TraceVar
#define Tcl_TraceVar(interp, varName, flags, proc, clientData) \
	(tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData) /* 247 */
#endif
#ifndef Tcl_TraceVar2
#define Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) \
	(tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData) /* 248 */
#endif
#ifndef Tcl_TranslateFileName
#define Tcl_TranslateFileName(interp, name, bufferPtr) \
	(tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr) /* 249 */
#endif
#ifndef Tcl_Ungets
#define Tcl_Ungets(chan, str, len, atHead) \
	(tclStubsPtr->tcl_Ungets)(chan, str, len, atHead) /* 250 */
#endif
#ifndef Tcl_UnlinkVar
#define Tcl_UnlinkVar(interp, varName) \
	(tclStubsPtr->tcl_UnlinkVar)(interp, varName) /* 251 */
#endif
#ifndef Tcl_UnregisterChannel
#define Tcl_UnregisterChannel(interp, chan) \
	(tclStubsPtr->tcl_UnregisterChannel)(interp, chan) /* 252 */
#endif
#ifndef Tcl_UnsetVar
#define Tcl_UnsetVar(interp, varName, flags) \
	(tclStubsPtr->tcl_UnsetVar)(interp, varName, flags) /* 253 */
#endif
#ifndef Tcl_UnsetVar2
#define Tcl_UnsetVar2(interp, part1, part2, flags) \
	(tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags) /* 254 */
#endif
#ifndef Tcl_UntraceVar
#define Tcl_UntraceVar(interp, varName, flags, proc, clientData) \
	(tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData) /* 255 */
#endif
#ifndef Tcl_UntraceVar2
#define Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) \
	(tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData) /* 256 */
#endif
#ifndef Tcl_UpdateLinkedVar
#define Tcl_UpdateLinkedVar(interp, varName) \
	(tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName) /* 257 */
#endif
#ifndef Tcl_UpVar
#define Tcl_UpVar(interp, frameName, varName, localName, flags) \
	(tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags) /* 258 */
#endif
#ifndef Tcl_UpVar2
#define Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) \
	(tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags) /* 259 */
#endif
#ifndef Tcl_VarEval
#define Tcl_VarEval \
	(tclStubsPtr->tcl_VarEval) /* 260 */
#endif
#ifndef Tcl_VarTraceInfo
#define Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) \
	(tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData) /* 261 */
#endif
#ifndef Tcl_VarTraceInfo2
#define Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) \
	(tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData) /* 262 */
#endif
#ifndef Tcl_Write
#define Tcl_Write(chan, s, slen) \
	(tclStubsPtr->tcl_Write)(chan, s, slen) /* 263 */
#endif
#ifndef Tcl_WrongNumArgs
#define Tcl_WrongNumArgs(interp, objc, objv, message) \
	(tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message) /* 264 */
#endif
#ifndef Tcl_DumpActiveMemory
#define Tcl_DumpActiveMemory(fileName) \
	(tclStubsPtr->tcl_DumpActiveMemory)(fileName) /* 265 */
#endif
#ifndef Tcl_ValidateAllMemory
#define Tcl_ValidateAllMemory(file, line) \
	(tclStubsPtr->tcl_ValidateAllMemory)(file, line) /* 266 */
#endif
#ifndef Tcl_AppendResultVA
#define Tcl_AppendResultVA(interp, argList) \
	(tclStubsPtr->tcl_AppendResultVA)(interp, argList) /* 267 */
#endif
#ifndef Tcl_AppendStringsToObjVA
#define Tcl_AppendStringsToObjVA(objPtr, argList) \
	(tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList) /* 268 */
#endif
#ifndef Tcl_HashStats
#define Tcl_HashStats(tablePtr) \
	(tclStubsPtr->tcl_HashStats)(tablePtr) /* 269 */
#endif
#ifndef Tcl_ParseVar
#define Tcl_ParseVar(interp, str, termPtr) \
	(tclStubsPtr->tcl_ParseVar)(interp, str, termPtr) /* 270 */
#endif
#ifndef Tcl_PkgPresent
#define Tcl_PkgPresent(interp, name, version, exact) \
	(tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact) /* 271 */
#endif
#ifndef Tcl_PkgPresentEx
#define Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) \
	(tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr) /* 272 */
#endif
#ifndef Tcl_PkgProvide
#define Tcl_PkgProvide(interp, name, version) \
	(tclStubsPtr->tcl_PkgProvide)(interp, name, version) /* 273 */
#endif
#ifndef Tcl_PkgRequire
#define Tcl_PkgRequire(interp, name, version, exact) \
	(tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact) /* 274 */
#endif
#ifndef Tcl_SetErrorCodeVA
#define Tcl_SetErrorCodeVA(interp, argList) \
	(tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList) /* 275 */
#endif
#ifndef Tcl_VarEvalVA
#define Tcl_VarEvalVA(interp, argList) \
	(tclStubsPtr->tcl_VarEvalVA)(interp, argList) /* 276 */
#endif
#ifndef Tcl_WaitPid
#define Tcl_WaitPid(pid, statPtr, options) \
	(tclStubsPtr->tcl_WaitPid)(pid, statPtr, options) /* 277 */
#endif
#ifndef Tcl_PanicVA
#define Tcl_PanicVA(format, argList) \
	(tclStubsPtr->tcl_PanicVA)(format, argList) /* 278 */
#endif
#ifndef Tcl_GetVersion
#define Tcl_GetVersion(major, minor, patchLevel, type) \
	(tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type) /* 279 */
#endif
/* Slot 280 is reserved */
/* Slot 281 is reserved */
/* Slot 282 is reserved */
/* Slot 283 is reserved */
/* Slot 284 is reserved */
/* Slot 285 is reserved */
#ifndef Tcl_AppendObjToObj
#define Tcl_AppendObjToObj(objPtr, appendObjPtr) \
	(tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr) /* 286 */
#endif
#ifndef Tcl_CreateEncoding
#define Tcl_CreateEncoding(typePtr) \
	(tclStubsPtr->tcl_CreateEncoding)(typePtr) /* 287 */
#endif
#ifndef Tcl_CreateThreadExitHandler
#define Tcl_CreateThreadExitHandler(proc, clientData) \
	(tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData) /* 288 */
#endif
#ifndef Tcl_DeleteThreadExitHandler
#define Tcl_DeleteThreadExitHandler(proc, clientData) \
	(tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData) /* 289 */
#endif
#ifndef Tcl_DiscardResult
#define Tcl_DiscardResult(statePtr) \
	(tclStubsPtr->tcl_DiscardResult)(statePtr) /* 290 */
#endif
#ifndef Tcl_EvalEx
#define Tcl_EvalEx(interp, script, numBytes, flags) \
	(tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags) /* 291 */
#endif
#ifndef Tcl_EvalObjv
#define Tcl_EvalObjv(interp, objc, objv, flags) \
	(tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags) /* 292 */
#endif
#ifndef Tcl_EvalObjEx
#define Tcl_EvalObjEx(interp, objPtr, flags) \
	(tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags) /* 293 */
#endif
#ifndef Tcl_ExitThread
#define Tcl_ExitThread(status) \
	(tclStubsPtr->tcl_ExitThread)(status) /* 294 */
#endif
#ifndef Tcl_ExternalToUtf
#define Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) \
	(tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 295 */
#endif
#ifndef Tcl_ExternalToUtfDString
#define Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr) \
	(tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr) /* 296 */
#endif
#ifndef Tcl_FinalizeThread
#define Tcl_FinalizeThread() \
	(tclStubsPtr->tcl_FinalizeThread)() /* 297 */
#endif
#ifndef Tcl_FinalizeNotifier
#define Tcl_FinalizeNotifier(clientData) \
	(tclStubsPtr->tcl_FinalizeNotifier)(clientData) /* 298 */
#endif
#ifndef Tcl_FreeEncoding
#define Tcl_FreeEncoding(encoding) \
	(tclStubsPtr->tcl_FreeEncoding)(encoding) /* 299 */
#endif
#ifndef Tcl_GetCurrentThread
#define Tcl_GetCurrentThread() \
	(tclStubsPtr->tcl_GetCurrentThread)() /* 300 */
#endif
#ifndef Tcl_GetEncoding
#define Tcl_GetEncoding(interp, name) \
	(tclStubsPtr->tcl_GetEncoding)(interp, name) /* 301 */
#endif
#ifndef Tcl_GetEncodingName
#define Tcl_GetEncodingName(encoding) \
	(tclStubsPtr->tcl_GetEncodingName)(encoding) /* 302 */
#endif
#ifndef Tcl_GetEncodingNames
#define Tcl_GetEncodingNames(interp) \
	(tclStubsPtr->tcl_GetEncodingNames)(interp) /* 303 */
#endif
#ifndef Tcl_GetIndexFromObjStruct
#define Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) \
	(tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) /* 304 */
#endif
#ifndef Tcl_GetThreadData
#define Tcl_GetThreadData(keyPtr, size) \
	(tclStubsPtr->tcl_GetThreadData)(keyPtr, size) /* 305 */
#endif
#ifndef Tcl_GetVar2Ex
#define Tcl_GetVar2Ex(interp, part1, part2, flags) \
	(tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags) /* 306 */
#endif
#ifndef Tcl_InitNotifier
#define Tcl_InitNotifier() \
	(tclStubsPtr->tcl_InitNotifier)() /* 307 */
#endif
#ifndef Tcl_MutexLock
#define Tcl_MutexLock(mutexPtr) \
	(tclStubsPtr->tcl_MutexLock)(mutexPtr) /* 308 */
#endif
#ifndef Tcl_MutexUnlock
#define Tcl_MutexUnlock(mutexPtr) \
	(tclStubsPtr->tcl_MutexUnlock)(mutexPtr) /* 309 */
#endif
#ifndef Tcl_ConditionNotify
#define Tcl_ConditionNotify(condPtr) \
	(tclStubsPtr->tcl_ConditionNotify)(condPtr) /* 310 */
#endif
#ifndef Tcl_ConditionWait
#define Tcl_ConditionWait(condPtr, mutexPtr, timePtr) \
	(tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr) /* 311 */
#endif
#ifndef Tcl_NumUtfChars
#define Tcl_NumUtfChars(src, len) \
	(tclStubsPtr->tcl_NumUtfChars)(src, len) /* 312 */
#endif
#ifndef Tcl_ReadChars
#define Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) \
	(tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag) /* 313 */
#endif
#ifndef Tcl_RestoreResult
#define Tcl_RestoreResult(interp, statePtr) \
	(tclStubsPtr->tcl_RestoreResult)(interp, statePtr) /* 314 */
#endif
#ifndef Tcl_SaveResult
#define Tcl_SaveResult(interp, statePtr) \
	(tclStubsPtr->tcl_SaveResult)(interp, statePtr) /* 315 */
#endif
#ifndef Tcl_SetSystemEncoding
#define Tcl_SetSystemEncoding(interp, name) \
	(tclStubsPtr->tcl_SetSystemEncoding)(interp, name) /* 316 */
#endif
#ifndef Tcl_SetVar2Ex
#define Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) \
	(tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags) /* 317 */
#endif
#ifndef Tcl_ThreadAlert
#define Tcl_ThreadAlert(threadId) \
	(tclStubsPtr->tcl_ThreadAlert)(threadId) /* 318 */
#endif
#ifndef Tcl_ThreadQueueEvent
#define Tcl_ThreadQueueEvent(threadId, evPtr, position) \
	(tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position) /* 319 */
#endif
#ifndef Tcl_UniCharAtIndex
#define Tcl_UniCharAtIndex(src, index) \
	(tclStubsPtr->tcl_UniCharAtIndex)(src, index) /* 320 */
#endif
#ifndef Tcl_UniCharToLower
#define Tcl_UniCharToLower(ch) \
	(tclStubsPtr->tcl_UniCharToLower)(ch) /* 321 */
#endif
#ifndef Tcl_UniCharToTitle
#define Tcl_UniCharToTitle(ch) \
	(tclStubsPtr->tcl_UniCharToTitle)(ch) /* 322 */
#endif
#ifndef Tcl_UniCharToUpper
#define Tcl_UniCharToUpper(ch) \
	(tclStubsPtr->tcl_UniCharToUpper)(ch) /* 323 */
#endif
#ifndef Tcl_UniCharToUtf
#define Tcl_UniCharToUtf(ch, buf) \
	(tclStubsPtr->tcl_UniCharToUtf)(ch, buf) /* 324 */
#endif
#ifndef Tcl_UtfAtIndex
#define Tcl_UtfAtIndex(src, index) \
	(tclStubsPtr->tcl_UtfAtIndex)(src, index) /* 325 */
#endif
#ifndef Tcl_UtfCharComplete
#define Tcl_UtfCharComplete(src, len) \
	(tclStubsPtr->tcl_UtfCharComplete)(src, len) /* 326 */
#endif
#ifndef Tcl_UtfBackslash
#define Tcl_UtfBackslash(src, readPtr, dst) \
	(tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst) /* 327 */
#endif
#ifndef Tcl_UtfFindFirst
#define Tcl_UtfFindFirst(src, ch) \
	(tclStubsPtr->tcl_UtfFindFirst)(src, ch) /* 328 */
#endif
#ifndef Tcl_UtfFindLast
#define Tcl_UtfFindLast(src, ch) \
	(tclStubsPtr->tcl_UtfFindLast)(src, ch) /* 329 */
#endif
#ifndef Tcl_UtfNext
#define Tcl_UtfNext(src) \
	(tclStubsPtr->tcl_UtfNext)(src) /* 330 */
#endif
#ifndef Tcl_UtfPrev
#define Tcl_UtfPrev(src, start) \
	(tclStubsPtr->tcl_UtfPrev)(src, start) /* 331 */
#endif
#ifndef Tcl_UtfToExternal
#define Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) \
	(tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) /* 332 */
#endif
#ifndef Tcl_UtfToExternalDString
#define Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr) \
	(tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr) /* 333 */
#endif
#ifndef Tcl_UtfToLower
#define Tcl_UtfToLower(src) \
	(tclStubsPtr->tcl_UtfToLower)(src) /* 334 */
#endif
#ifndef Tcl_UtfToTitle
#define Tcl_UtfToTitle(src) \
	(tclStubsPtr->tcl_UtfToTitle)(src) /* 335 */
#endif
#ifndef Tcl_UtfToUniChar
#define Tcl_UtfToUniChar(src, chPtr) \
	(tclStubsPtr->tcl_UtfToUniChar)(src, chPtr) /* 336 */
#endif
#ifndef Tcl_UtfToUpper
#define Tcl_UtfToUpper(src) \
	(tclStubsPtr->tcl_UtfToUpper)(src) /* 337 */
#endif
#ifndef Tcl_WriteChars
#define Tcl_WriteChars(chan, src, srcLen) \
	(tclStubsPtr->tcl_WriteChars)(chan, src, srcLen) /* 338 */
#endif
#ifndef Tcl_WriteObj
#define Tcl_WriteObj(chan, objPtr) \
	(tclStubsPtr->tcl_WriteObj)(chan, objPtr) /* 339 */
#endif
#ifndef Tcl_GetString
#define Tcl_GetString(objPtr) \
	(tclStubsPtr->tcl_GetString)(objPtr) /* 340 */
#endif
#ifndef Tcl_GetDefaultEncodingDir
#define Tcl_GetDefaultEncodingDir() \
	(tclStubsPtr->tcl_GetDefaultEncodingDir)() /* 341 */
#endif
#ifndef Tcl_SetDefaultEncodingDir
#define Tcl_SetDefaultEncodingDir(path) \
	(tclStubsPtr->tcl_SetDefaultEncodingDir)(path) /* 342 */
#endif
#ifndef Tcl_AlertNotifier
#define Tcl_AlertNotifier(clientData) \
	(tclStubsPtr->tcl_AlertNotifier)(clientData) /* 343 */
#endif
#ifndef Tcl_ServiceModeHook
#define Tcl_ServiceModeHook(mode) \
	(tclStubsPtr->tcl_ServiceModeHook)(mode) /* 344 */
#endif

#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

/* !END!: Do not edit above this line. */

#endif /* _TCLDECLS */

/*
 * tclIntDecls.h --
 *
 *	This file contains the declarations for all unsupported
 *	functions that are exported by the Tcl library.  These
 *	interfaces are not guaranteed to remain the same between
 *	versions.  Use at your own risk.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclIntDecls.h,v 1.3.2.5 1999/03/19 04:01:20 stanton Exp $
 */

#ifndef _TCLINTDECLS
#define _TCLINTDECLS

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl

#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)

/*
 * Inline function declarations:
 */

#ifndef TclAccess
#define TclAccess(path, mode) \
	(tclIntStubsPtr->tclAccess)(path, mode) /* 0 */
#endif
#ifndef TclAccessDeleteProc
#define TclAccessDeleteProc(proc) \
	(tclIntStubsPtr->tclAccessDeleteProc)(proc) /* 1 */
#endif
#ifndef TclAccessInsertProc
#define TclAccessInsertProc(proc) \
	(tclIntStubsPtr->tclAccessInsertProc)(proc) /* 2 */
#endif
#ifndef TclAllocateFreeObjects
#define TclAllocateFreeObjects() \
	(tclIntStubsPtr->tclAllocateFreeObjects)() /* 3 */
#endif
/* Slot 4 is reserved */
#ifndef TclCleanupChildren
#define TclCleanupChildren(interp, numPids, pidPtr, errorChan) \
	(tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan) /* 5 */
#endif
#ifndef TclCleanupCommand
#define TclCleanupCommand(cmdPtr) \
	(tclIntStubsPtr->tclCleanupCommand)(cmdPtr) /* 6 */
#endif
#ifndef TclCopyAndCollapse
#define TclCopyAndCollapse(count, src, dst) \
	(tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst) /* 7 */
#endif
#ifndef TclCopyChannel
#define TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr) \
	(tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr) /* 8 */
#endif
#ifndef TclCreatePipeline
#define TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) \
	(tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) /* 9 */
#endif
#ifndef TclCreateProc
#define TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) \
	(tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) /* 10 */
#endif
#ifndef TclDeleteCompiledLocalVars
#define TclDeleteCompiledLocalVars(iPtr, framePtr) \
	(tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr) /* 11 */
#endif
#ifndef TclDeleteVars
#define TclDeleteVars(iPtr, tablePtr) \
	(tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr) /* 12 */
#endif
#ifndef TclDoGlob
#define TclDoGlob(interp, separators, headPtr, tail) \
	(tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail) /* 13 */
#endif
#ifndef TclDumpMemoryInfo
#define TclDumpMemoryInfo(outFile) \
	(tclIntStubsPtr->tclDumpMemoryInfo)(outFile) /* 14 */
#endif
/* Slot 15 is reserved */
#ifndef TclExprFloatError
#define TclExprFloatError(interp, value) \
	(tclIntStubsPtr->tclExprFloatError)(interp, value) /* 16 */
#endif
#ifndef TclFileAttrsCmd
#define TclFileAttrsCmd(interp, objc, objv) \
	(tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv) /* 17 */
#endif
#ifndef TclFileCopyCmd
#define TclFileCopyCmd(interp, argc, argv) \
	(tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv) /* 18 */
#endif
#ifndef TclFileDeleteCmd
#define TclFileDeleteCmd(interp, argc, argv) \
	(tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv) /* 19 */
#endif
#ifndef TclFileMakeDirsCmd
#define TclFileMakeDirsCmd(interp, argc, argv) \
	(tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv) /* 20 */
#endif
#ifndef TclFileRenameCmd
#define TclFileRenameCmd(interp, argc, argv) \
	(tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv) /* 21 */
#endif
#ifndef TclFindElement
#define TclFindElement(interp, listStr, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \
	(tclIntStubsPtr->tclFindElement)(interp, listStr, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 22 */
#endif
#ifndef TclFindProc
#define TclFindProc(iPtr, procName) \
	(tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 23 */
#endif
#ifndef TclFormatInt
#define TclFormatInt(buffer, n) \
	(tclIntStubsPtr->tclFormatInt)(buffer, n) /* 24 */
#endif
#ifndef TclFreePackageInfo
#define TclFreePackageInfo(iPtr) \
	(tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 25 */
#endif
/* Slot 26 is reserved */
#ifndef TclGetDate
#define TclGetDate(p, now, zone, timePtr) \
	(tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 27 */
#endif
#ifndef TclpGetDefaultStdChannel
#define TclpGetDefaultStdChannel(type) \
	(tclIntStubsPtr->tclpGetDefaultStdChannel)(type) /* 28 */
#endif
#ifndef TclGetElementOfIndexedArray
#define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \
	(tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 29 */
#endif
/* Slot 30 is reserved */
#ifndef TclGetExtension
#define TclGetExtension(name) \
	(tclIntStubsPtr->tclGetExtension)(name) /* 31 */
#endif
#ifndef TclGetFrame
#define TclGetFrame(interp, str, framePtrPtr) \
	(tclIntStubsPtr->tclGetFrame)(interp, str, framePtrPtr) /* 32 */
#endif
#ifndef TclGetInterpProc
#define TclGetInterpProc() \
	(tclIntStubsPtr->tclGetInterpProc)() /* 33 */
#endif
#ifndef TclGetIntForIndex
#define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \
	(tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 34 */
#endif
#ifndef TclGetIndexedScalar
#define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \
	(tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 35 */
#endif
#ifndef TclGetLong
#define TclGetLong(interp, str, longPtr) \
	(tclIntStubsPtr->tclGetLong)(interp, str, longPtr) /* 36 */
#endif
#ifndef TclGetLoadedPackages
#define TclGetLoadedPackages(interp, targetName) \
	(tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 37 */
#endif
#ifndef TclGetNamespaceForQualName
#define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \
	(tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 38 */
#endif
#ifndef TclGetObjInterpProc
#define TclGetObjInterpProc() \
	(tclIntStubsPtr->tclGetObjInterpProc)() /* 39 */
#endif
#ifndef TclGetOpenMode
#define TclGetOpenMode(interp, str, seekFlagPtr) \
	(tclIntStubsPtr->tclGetOpenMode)(interp, str, seekFlagPtr) /* 40 */
#endif
#ifndef TclGetOriginalCommand
#define TclGetOriginalCommand(command) \
	(tclIntStubsPtr->tclGetOriginalCommand)(command) /* 41 */
#endif
#ifndef TclpGetUserHome
#define TclpGetUserHome(name, bufferPtr) \
	(tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 42 */
#endif
#ifndef TclGlobalInvoke
#define TclGlobalInvoke(interp, argc, argv, flags) \
	(tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 43 */
#endif
#ifndef TclGuessPackageName
#define TclGuessPackageName(fileName, bufPtr) \
	(tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 44 */
#endif
#ifndef TclHideUnsafeCommands
#define TclHideUnsafeCommands(interp) \
	(tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 45 */
#endif
#ifndef TclInExit
#define TclInExit() \
	(tclIntStubsPtr->tclInExit)() /* 46 */
#endif
#ifndef TclIncrElementOfIndexedArray
#define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \
	(tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 47 */
#endif
#ifndef TclIncrIndexedScalar
#define TclIncrIndexedScalar(interp, localIndex, incrAmount) \
	(tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 48 */
#endif
#ifndef TclIncrVar2
#define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \
	(tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 49 */
#endif
#ifndef TclInitCompiledLocals
#define TclInitCompiledLocals(interp, framePtr, nsPtr) \
	(tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 50 */
#endif
#ifndef TclInterpInit
#define TclInterpInit(interp) \
	(tclIntStubsPtr->tclInterpInit)(interp) /* 51 */
#endif
#ifndef TclInvoke
#define TclInvoke(interp, argc, argv, flags) \
	(tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 52 */
#endif
#ifndef TclInvokeObjectCommand
#define TclInvokeObjectCommand(clientData, interp, argc, argv) \
	(tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 53 */
#endif
#ifndef TclInvokeStringCommand
#define TclInvokeStringCommand(clientData, interp, objc, objv) \
	(tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 54 */
#endif
#ifndef TclIsProc
#define TclIsProc(cmdPtr) \
	(tclIntStubsPtr->tclIsProc)(cmdPtr) /* 55 */
#endif
/* Slot 56 is reserved */
/* Slot 57 is reserved */
#ifndef TclLookupVar
#define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \
	(tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 58 */
#endif
#ifndef TclpMatchFiles
#define TclpMatchFiles(interp, separators, dirPtr, pattern, tail) \
	(tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 59 */
#endif
#ifndef TclNeedSpace
#define TclNeedSpace(start, end) \
	(tclIntStubsPtr->tclNeedSpace)(start, end) /* 60 */
#endif
#ifndef TclNewProcBodyObj
#define TclNewProcBodyObj(procPtr) \
	(tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 61 */
#endif
#ifndef TclObjCommandComplete
#define TclObjCommandComplete(cmdPtr) \
	(tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 62 */
#endif
#ifndef TclObjInterpProc
#define TclObjInterpProc(clientData, interp, objc, objv) \
	(tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 63 */
#endif
#ifndef TclObjInvoke
#define TclObjInvoke(interp, objc, objv, flags) \
	(tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 64 */
#endif
#ifndef TclObjInvokeGlobal
#define TclObjInvokeGlobal(interp, objc, objv, flags) \
	(tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 65 */
#endif
#ifndef TclOpenFileChannelDeleteProc
#define TclOpenFileChannelDeleteProc(proc) \
	(tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 66 */
#endif
#ifndef TclOpenFileChannelInsertProc
#define TclOpenFileChannelInsertProc(proc) \
	(tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 67 */
#endif
#ifndef TclpAccess
#define TclpAccess(path, mode) \
	(tclIntStubsPtr->tclpAccess)(path, mode) /* 68 */
#endif
#ifndef TclpAlloc
#define TclpAlloc(size) \
	(tclIntStubsPtr->tclpAlloc)(size) /* 69 */
#endif
#ifndef TclpCopyFile
#define TclpCopyFile(source, dest) \
	(tclIntStubsPtr->tclpCopyFile)(source, dest) /* 70 */
#endif
#ifndef TclpCopyDirectory
#define TclpCopyDirectory(source, dest, errorPtr) \
	(tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 71 */
#endif
#ifndef TclpCreateDirectory
#define TclpCreateDirectory(path) \
	(tclIntStubsPtr->tclpCreateDirectory)(path) /* 72 */
#endif
#ifndef TclpDeleteFile
#define TclpDeleteFile(path) \
	(tclIntStubsPtr->tclpDeleteFile)(path) /* 73 */
#endif
#ifndef TclpFree
#define TclpFree(ptr) \
	(tclIntStubsPtr->tclpFree)(ptr) /* 74 */
#endif
#ifndef TclpGetClicks
#define TclpGetClicks() \
	(tclIntStubsPtr->tclpGetClicks)() /* 75 */
#endif
#ifndef TclpGetSeconds
#define TclpGetSeconds() \
	(tclIntStubsPtr->tclpGetSeconds)() /* 76 */
#endif
#ifndef TclpGetTime
#define TclpGetTime(time) \
	(tclIntStubsPtr->tclpGetTime)(time) /* 77 */
#endif
#ifndef TclpGetTimeZone
#define TclpGetTimeZone(time) \
	(tclIntStubsPtr->tclpGetTimeZone)(time) /* 78 */
#endif
#ifndef TclpListVolumes
#define TclpListVolumes(interp) \
	(tclIntStubsPtr->tclpListVolumes)(interp) /* 79 */
#endif
#ifndef TclpOpenFileChannel
#define TclpOpenFileChannel(interp, fileName, modeString, permissions) \
	(tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 80 */
#endif
#ifndef TclpRealloc
#define TclpRealloc(ptr, size) \
	(tclIntStubsPtr->tclpRealloc)(ptr, size) /* 81 */
#endif
#ifndef TclpRemoveDirectory
#define TclpRemoveDirectory(path, recursive, errorPtr) \
	(tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 82 */
#endif
#ifndef TclpRenameFile
#define TclpRenameFile(source, dest) \
	(tclIntStubsPtr->tclpRenameFile)(source, dest) /* 83 */
#endif
/* Slot 84 is reserved */
/* Slot 85 is reserved */
/* Slot 86 is reserved */
/* Slot 87 is reserved */
#ifndef TclPrecTraceProc
#define TclPrecTraceProc(clientData, interp, name1, name2, flags) \
	(tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 88 */
#endif
#ifndef TclPreventAliasLoop
#define TclPreventAliasLoop(interp, cmdInterp, cmd) \
	(tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 89 */
#endif
/* Slot 90 is reserved */
#ifndef TclProcCleanupProc
#define TclProcCleanupProc(procPtr) \
	(tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 91 */
#endif
#ifndef TclProcCompileProc
#define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \
	(tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 92 */
#endif
#ifndef TclProcDeleteProc
#define TclProcDeleteProc(clientData) \
	(tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 93 */
#endif
#ifndef TclProcInterpProc
#define TclProcInterpProc(clientData, interp, argc, argv) \
	(tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 94 */
#endif
#ifndef TclpStat
#define TclpStat(path, buf) \
	(tclIntStubsPtr->tclpStat)(path, buf) /* 95 */
#endif
#ifndef TclRenameCommand
#define TclRenameCommand(interp, oldName, newName) \
	(tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 96 */
#endif
#ifndef TclResetShadowedCmdRefs
#define TclResetShadowedCmdRefs(interp, newCmdPtr) \
	(tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 97 */
#endif
#ifndef TclServiceIdle
#define TclServiceIdle() \
	(tclIntStubsPtr->tclServiceIdle)() /* 98 */
#endif
#ifndef TclSetElementOfIndexedArray
#define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \
	(tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 99 */
#endif
#ifndef TclSetIndexedScalar
#define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \
	(tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 100 */
#endif
/* Slot 101 is reserved */
#ifndef TclSetupEnv
#define TclSetupEnv(interp) \
	(tclIntStubsPtr->tclSetupEnv)(interp) /* 102 */
#endif
#ifndef TclSockGetPort
#define TclSockGetPort(interp, str, proto, portPtr) \
	(tclIntStubsPtr->tclSockGetPort)(interp, str, proto, portPtr) /* 103 */
#endif
#ifndef TclSockMinimumBuffers
#define TclSockMinimumBuffers(sock, size) \
	(tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 104 */
#endif
#ifndef TclStat
#define TclStat(path, buf) \
	(tclIntStubsPtr->tclStat)(path, buf) /* 105 */
#endif
#ifndef TclStatDeleteProc
#define TclStatDeleteProc(proc) \
	(tclIntStubsPtr->tclStatDeleteProc)(proc) /* 106 */
#endif
#ifndef TclStatInsertProc
#define TclStatInsertProc(proc) \
	(tclIntStubsPtr->tclStatInsertProc)(proc) /* 107 */
#endif
#ifndef TclTeardownNamespace
#define TclTeardownNamespace(nsPtr) \
	(tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 108 */
#endif
#ifndef TclUpdateReturnInfo
#define TclUpdateReturnInfo(iPtr) \
	(tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 109 */
#endif
/* Slot 110 is reserved */
#ifndef Tcl_AddInterpResolvers
#define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \
	(tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 111 */
#endif
#ifndef Tcl_AppendExportList
#define Tcl_AppendExportList(interp, nsPtr, objPtr) \
	(tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 112 */
#endif
#ifndef Tcl_CreateNamespace
#define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \
	(tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 113 */
#endif
#ifndef Tcl_DeleteNamespace
#define Tcl_DeleteNamespace(nsPtr) \
	(tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 114 */
#endif
#ifndef Tcl_Export
#define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \
	(tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 115 */
#endif
#ifndef Tcl_FindCommand
#define Tcl_FindCommand(interp, name, contextNsPtr, flags) \
	(tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 116 */
#endif
#ifndef Tcl_FindNamespace
#define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \
	(tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 117 */
#endif
#ifndef Tcl_GetInterpResolvers
#define Tcl_GetInterpResolvers(interp, name, resInfo) \
	(tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 118 */
#endif
#ifndef Tcl_GetNamespaceResolvers
#define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \
	(tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 119 */
#endif
#ifndef Tcl_FindNamespaceVar
#define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \
	(tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 120 */
#endif
#ifndef Tcl_ForgetImport
#define Tcl_ForgetImport(interp, nsPtr, pattern) \
	(tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 121 */
#endif
#ifndef Tcl_GetCommandFromObj
#define Tcl_GetCommandFromObj(interp, objPtr) \
	(tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 122 */
#endif
#ifndef Tcl_GetCommandFullName
#define Tcl_GetCommandFullName(interp, command, objPtr) \
	(tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 123 */
#endif
#ifndef Tcl_GetCurrentNamespace
#define Tcl_GetCurrentNamespace(interp) \
	(tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 124 */
#endif
#ifndef Tcl_GetGlobalNamespace
#define Tcl_GetGlobalNamespace(interp) \
	(tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 125 */
#endif
#ifndef Tcl_GetVariableFullName
#define Tcl_GetVariableFullName(interp, variable, objPtr) \
	(tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 126 */
#endif
#ifndef Tcl_Import
#define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \
	(tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 127 */
#endif
#ifndef Tcl_PopCallFrame
#define Tcl_PopCallFrame(interp) \
	(tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 128 */
#endif
#ifndef Tcl_PushCallFrame
#define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \
	(tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 129 */
#endif
#ifndef Tcl_RemoveInterpResolvers
#define Tcl_RemoveInterpResolvers(interp, name) \
	(tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 130 */
#endif
#ifndef Tcl_SetNamespaceResolvers
#define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \
	(tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 131 */
#endif
#ifndef TclpHasSockets
#define TclpHasSockets(interp) \
	(tclIntStubsPtr->tclpHasSockets)(interp) /* 132 */
#endif
#ifndef TclpGetDate
#define TclpGetDate(time, useGMT) \
	(tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 133 */
#endif
#ifndef TclpStrftime
#define TclpStrftime(s, maxsize, format, t) \
	(tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 134 */
#endif
#ifndef TclpCheckStackSpace
#define TclpCheckStackSpace() \
	(tclIntStubsPtr->tclpCheckStackSpace)() /* 135 */
#endif
/* Slot 136 is reserved */
#ifndef TclpChdir
#define TclpChdir(dirName) \
	(tclIntStubsPtr->tclpChdir)(dirName) /* 137 */
#endif
#ifndef TclGetEnv
#define TclGetEnv(name, valuePtr) \
	(tclIntStubsPtr->tclGetEnv)(name, valuePtr) /* 138 */
#endif
#ifndef TclpLoadFile
#define TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) \
	(tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) /* 139 */
#endif
#ifndef TclLooksLikeInt
#define TclLooksLikeInt(bytes, length) \
	(tclIntStubsPtr->tclLooksLikeInt)(bytes, length) /* 140 */
#endif

#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

/* !END!: Do not edit above this line. */

#endif /* _TCLINTDECLS */

/*
 * tclIntPlatDecls.h --
 *
 *	This file contains the declarations for all platform dependent
 *	unsupported functions that are exported by the Tcl library.  These
 *	interfaces are not guaranteed to remain the same between
 *	versions.  Use at your own risk.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 * All rights reserved.
 *
 * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.3.2.5 1999/03/19 04:01:21 stanton Exp $
 */

#ifndef _TCLINTPLATDECLS
#define _TCLINTPLATDECLS

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl

/*
 * Inline function declarations:
 */

#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
#ifndef TclGetAndDetachPids
#define TclGetAndDetachPids(interp, chan) \
	(tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */
#endif
#ifndef TclpCloseFile
#define TclpCloseFile(file) \
	(tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */
#endif
#ifndef TclpCreateCommandChannel
#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \
	(tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */
#endif
#ifndef TclpCreatePipe
#define TclpCreatePipe(readPipe, writePipe) \
	(tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */
#endif
#ifndef TclpCreateProcess
#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \
	(tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */
#endif
/* Slot 5 is reserved */
#ifndef TclpMakeFile
#define TclpMakeFile(channel, direction) \
	(tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */
#endif
#ifndef TclpOpenFile
#define TclpOpenFile(fname, mode) \
	(tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */
#endif
#ifndef TclUnixWaitForFile
#define TclUnixWaitForFile(fd, mask, timeout) \
	(tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */
#endif
#ifndef TclpCreateTempFile
#define TclpCreateTempFile(contents) \
	(tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 9 */
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef TclWinConvertError
#define TclWinConvertError(errCode) \
	(tclIntPlatStubsPtr->tclWinConvertError)(errCode) /* 0 */
#endif
#ifndef TclWinConvertWSAError
#define TclWinConvertWSAError(errCode) \
	(tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode) /* 1 */
#endif
#ifndef TclWinGetServByName
#define TclWinGetServByName(nm, proto) \
	(tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto) /* 2 */
#endif
#ifndef TclWinGetSockOpt
#define TclWinGetSockOpt(s, level, optname, optval, optlen) \
	(tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen) /* 3 */
#endif
#ifndef TclWinGetTclInstance
#define TclWinGetTclInstance() \
	(tclIntPlatStubsPtr->tclWinGetTclInstance)() /* 4 */
#endif
/* Slot 5 is reserved */
#ifndef TclWinNToHS
#define TclWinNToHS(ns) \
	(tclIntPlatStubsPtr->tclWinNToHS)(ns) /* 6 */
#endif
#ifndef TclWinSetSockOpt
#define TclWinSetSockOpt(s, level, optname, optval, optlen) \
	(tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen) /* 7 */
#endif
#ifndef TclpGetPid
#define TclpGetPid(pid) \
	(tclIntPlatStubsPtr->tclpGetPid)(pid) /* 8 */
#endif
#ifndef TclWinGetPlatformId
#define TclWinGetPlatformId() \
	(tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 9 */
#endif
#ifndef TclWinSynchSpawn
#define TclWinSynchSpawn(args, type, trans, pidPtr) \
	(tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 10 */
#endif
#ifndef TclGetAndDetachPids
#define TclGetAndDetachPids(interp, chan) \
	(tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 11 */
#endif
#ifndef TclpCloseFile
#define TclpCloseFile(file) \
	(tclIntPlatStubsPtr->tclpCloseFile)(file) /* 12 */
#endif
#ifndef TclpCreateCommandChannel
#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \
	(tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 13 */
#endif
#ifndef TclpCreatePipe
#define TclpCreatePipe(readPipe, writePipe) \
	(tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 14 */
#endif
#ifndef TclpCreateProcess
#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \
	(tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 15 */
#endif
/* Slot 16 is reserved */
/* Slot 17 is reserved */
#ifndef TclpMakeFile
#define TclpMakeFile(channel, direction) \
	(tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 18 */
#endif
#ifndef TclpOpenFile
#define TclpOpenFile(fname, mode) \
	(tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 19 */
#endif
#ifndef TclWinAddProcess
#define TclWinAddProcess(hProcess, id) \
	(tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id) /* 20 */
#endif
#ifndef TclpAsyncMark
#define TclpAsyncMark(async) \
	(tclIntPlatStubsPtr->tclpAsyncMark)(async) /* 21 */
#endif
#ifndef TclpCreateTempFile
#define TclpCreateTempFile(contents) \
	(tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 22 */
#endif
#ifndef TclpGetTZName
#define TclpGetTZName(isdst) \
	(tclIntPlatStubsPtr->tclpGetTZName)(isdst) /* 23 */
#endif
#ifndef TclWinNoBackslash
#define TclWinNoBackslash(path) \
	(tclIntPlatStubsPtr->tclWinNoBackslash)(path) /* 24 */
#endif
#ifndef Tcl_WinUtfToTChar
#define Tcl_WinUtfToTChar(str, len, dsPtr) \
	(tclIntPlatStubsPtr->tcl_WinUtfToTChar)(str, len, dsPtr) /* 25 */
#endif
#ifndef Tcl_WinTCharToUtf
#define Tcl_WinTCharToUtf(str, len, dsPtr) \
	(tclIntPlatStubsPtr->tcl_WinTCharToUtf)(str, len, dsPtr) /* 26 */
#endif
#endif /* __WIN32__ */
#ifdef MAC_TCL
#ifndef TclpSysAlloc
#define TclpSysAlloc(size, isBin) \
	(tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 0 */
#endif
#ifndef TclpSysFree
#define TclpSysFree(ptr) \
	(tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 1 */
#endif
#ifndef TclpSysRealloc
#define TclpSysRealloc(cp, size) \
	(tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 2 */
#endif
#ifndef TclpExit
#define TclpExit(status) \
	(tclIntPlatStubsPtr->tclpExit)(status) /* 3 */
#endif
#ifndef FSpGetDefaultDir
#define FSpGetDefaultDir(theSpec) \
	(tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec) /* 4 */
#endif
#ifndef FSpSetDefaultDir
#define FSpSetDefaultDir(theSpec) \
	(tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec) /* 5 */
#endif
#ifndef FSpFindFolder
#define FSpFindFolder(vRefNum, folderType, createFolder, spec) \
	(tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec) /* 6 */
#endif
#ifndef GetGlobalMouse
#define GetGlobalMouse(mouse) \
	(tclIntPlatStubsPtr->getGlobalMouse)(mouse) /* 7 */
#endif
#ifndef FSpGetDirectoryID
#define FSpGetDirectoryID(spec, theDirID, isDirectory) \
	(tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory) /* 8 */
#endif
#ifndef FSpOpenResFileCompat
#define FSpOpenResFileCompat(spec, permission) \
	(tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission) /* 9 */
#endif
#ifndef FSpCreateResFileCompat
#define FSpCreateResFileCompat(spec, creator, fileType, scriptTag) \
	(tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag) /* 10 */
#endif
#ifndef FSpLocationFromPath
#define FSpLocationFromPath(length, path, theSpec) \
	(tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec) /* 11 */
#endif
#ifndef FSpPathFromLocation
#define FSpPathFromLocation(theSpec, length, fullPath) \
	(tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath) /* 12 */
#endif
#ifndef TclMacExitHandler
#define TclMacExitHandler() \
	(tclIntPlatStubsPtr->tclMacExitHandler)() /* 13 */
#endif
#ifndef TclMacInitExitToShell
#define TclMacInitExitToShell(usePatch) \
	(tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch) /* 14 */
#endif
#ifndef TclMacInstallExitToShellPatch
#define TclMacInstallExitToShellPatch(newProc) \
	(tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc) /* 15 */
#endif
#ifndef TclMacOSErrorToPosixError
#define TclMacOSErrorToPosixError(error) \
	(tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error) /* 16 */
#endif
#ifndef TclMacRemoveTimer
#define TclMacRemoveTimer(timerToken) \
	(tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken) /* 17 */
#endif
#ifndef TclMacStartTimer
#define TclMacStartTimer(ms) \
	(tclIntPlatStubsPtr->tclMacStartTimer)(ms) /* 18 */
#endif
#ifndef TclMacTimerExpired
#define TclMacTimerExpired(timerToken) \
	(tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken) /* 19 */
#endif
#ifndef TclMacRegisterResourceFork
#define TclMacRegisterResourceFork(fileRef, tokenPtr, insert) \
	(tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert) /* 20 */
#endif
#ifndef TclMacUnRegisterResourceFork
#define TclMacUnRegisterResourceFork(tokenPtr, resultPtr) \
	(tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr) /* 21 */
#endif
#ifndef TclMacCreateEnv
#define TclMacCreateEnv() \
	(tclIntPlatStubsPtr->tclMacCreateEnv)() /* 22 */
#endif
#ifndef TclMacFOpenHack
#define TclMacFOpenHack(path, mode) \
	(tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode) /* 23 */
#endif
/* Slot 24 is reserved */
#ifndef TclMacChmod
#define TclMacChmod(path, mode) \
	(tclIntPlatStubsPtr->tclMacChmod)(path, mode) /* 25 */
#endif
#endif /* MAC_TCL */

#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

/* !END!: Do not edit above this line. */

#endif /* _TCLINTPLATDECLS */

/* 
 * tclIntPlatStubs.c --
 *
 *	This file contains the wrapper functions for the platform dependent
 *	unsupported Tcl API.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 * All rights reserved.
 *
 * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.3.2.5 1999/03/19 04:01:22 stanton Exp $
 */

#include "tclInt.h"
#include "tclPort.h"

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl
 * script.  Any modifications to the function declarations below should be made
 * in the generic/tclInt.decls script.
 */

/* !BEGIN!: Do not edit below this line. */

/*
 * Exported stub functions:
 */

#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* Slot 0 */
void
TclGetAndDetachPids(interp, chan)
    Tcl_Interp * interp;
    Tcl_Channel chan;
{
    (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan);
}

/* Slot 1 */
int
TclpCloseFile(file)
    TclFile file;
{
    return (tclIntPlatStubsPtr->tclpCloseFile)(file);
}

/* Slot 2 */
Tcl_Channel
TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
    TclFile readFile;
    TclFile writeFile;
    TclFile errorFile;
    int numPids;
    Tcl_Pid * pidPtr;
{
    return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr);
}

/* Slot 3 */
int
TclpCreatePipe(readPipe, writePipe)
    TclFile * readPipe;
    TclFile * writePipe;
{
    return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe);
}

/* Slot 4 */
int
TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
    TclFile inputFile;
    TclFile outputFile;
    TclFile errorFile;
    Tcl_Pid * pidPtr;
{
    return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr);
}

/* Slot 5 is reserved */
/* Slot 6 */
TclFile
TclpMakeFile(channel, direction)
    Tcl_Channel channel;
    int direction;
{
    return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction);
}

/* Slot 7 */
TclFile
TclpOpenFile(fname, mode)
    CONST char * fname;
    int mode;
{
    return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode);
}

/* Slot 8 */
int
TclUnixWaitForFile(fd, mask, timeout)
    int fd;
    int mask;
    int timeout;
{
    return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout);
}

/* Slot 9 */
TclFile
TclpCreateTempFile(contents)
    CONST char * contents;
{
    return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents);
}

#endif /* UNIX */
#ifdef __WIN32__
/* Slot 0 */
void
TclWinConvertError(errCode)
    DWORD errCode;
{
    (tclIntPlatStubsPtr->tclWinConvertError)(errCode);
}

/* Slot 1 */
void
TclWinConvertWSAError(errCode)
    DWORD errCode;
{
    (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode);
}

/* Slot 2 */
struct servent *
TclWinGetServByName(nm, proto)
    CONST char * nm;
    CONST char * proto;
{
    return (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto);
}

/* Slot 3 */
int
TclWinGetSockOpt(s, level, optname, optval, optlen)
    SOCKET s;
    int level;
    int optname;
    char FAR * optval;
    int FAR * optlen;
{
    return (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen);
}

/* Slot 4 */
HINSTANCE
TclWinGetTclInstance()
{
    return (tclIntPlatStubsPtr->tclWinGetTclInstance)();
}

/* Slot 5 is reserved */
/* Slot 6 */
u_short
TclWinNToHS(ns)
    u_short ns;
{
    return (tclIntPlatStubsPtr->tclWinNToHS)(ns);
}

/* Slot 7 */
int
TclWinSetSockOpt(s, level, optname, optval, optlen)
    SOCKET s;
    int level;
    int optname;
    CONST char FAR * optval;
    int optlen;
{
    return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen);
}

/* Slot 8 */
unsigned long
TclpGetPid(pid)
    Tcl_Pid pid;
{
    return (tclIntPlatStubsPtr->tclpGetPid)(pid);
}

/* Slot 9 */
int
TclWinGetPlatformId()
{
    return (tclIntPlatStubsPtr->tclWinGetPlatformId)();
}

/* Slot 10 */
int
TclWinSynchSpawn(args, type, trans, pidPtr)
    void * args;
    int type;
    void ** trans;
    Tcl_Pid * pidPtr;
{
    return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr);
}

/* Slot 11 */
void
TclGetAndDetachPids(interp, chan)
    Tcl_Interp * interp;
    Tcl_Channel chan;
{
    (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan);
}

/* Slot 12 */
int
TclpCloseFile(file)
    TclFile file;
{
    return (tclIntPlatStubsPtr->tclpCloseFile)(file);
}

/* Slot 13 */
Tcl_Channel
TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
    TclFile readFile;
    TclFile writeFile;
    TclFile errorFile;
    int numPids;
    Tcl_Pid * pidPtr;
{
    return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr);
}

/* Slot 14 */
int
TclpCreatePipe(readPipe, writePipe)
    TclFile * readPipe;
    TclFile * writePipe;
{
    return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe);
}

/* Slot 15 */
int
TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
    TclFile inputFile;
    TclFile outputFile;
    TclFile errorFile;
    Tcl_Pid * pidPtr;
{
    return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr);
}

/* Slot 16 is reserved */
/* Slot 17 is reserved */
/* Slot 18 */
TclFile
TclpMakeFile(channel, direction)
    Tcl_Channel channel;
    int direction;
{
    return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction);
}

/* Slot 19 */
TclFile
TclpOpenFile(fname, mode)
    CONST char * fname;
    int mode;
{
    return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode);
}

/* Slot 20 */
void
TclWinAddProcess(hProcess, id)
    HANDLE hProcess;
    DWORD id;
{
    (tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id);
}

/* Slot 21 */
void
TclpAsyncMark(async)
    Tcl_AsyncHandler async;
{
    (tclIntPlatStubsPtr->tclpAsyncMark)(async);
}

/* Slot 22 */
TclFile
TclpCreateTempFile(contents)
    CONST char * contents;
{
    return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents);
}

/* Slot 23 */
char *
TclpGetTZName(isdst)
    int isdst;
{
    return (tclIntPlatStubsPtr->tclpGetTZName)(isdst);
}

/* Slot 24 */
char *
TclWinNoBackslash(path)
    char * path;
{
    return (tclIntPlatStubsPtr->tclWinNoBackslash)(path);
}

/* Slot 25 */
TCHAR *
Tcl_WinUtfToTChar(str, len, dsPtr)
    CONST char * str;
    int len;
    Tcl_DString * dsPtr;
{
    return (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(str, len, dsPtr);
}

/* Slot 26 */
char *
Tcl_WinTCharToUtf(str, len, dsPtr)
    CONST TCHAR * str;
    int len;
    Tcl_DString * dsPtr;
{
    return (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(str, len, dsPtr);
}

#endif /* __WIN32__ */
#ifdef MAC_TCL
/* Slot 0 */
VOID *
TclpSysAlloc(size, isBin)
    long size;
    int isBin;
{
    return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin);
}

/* Slot 1 */
void
TclpSysFree(ptr)
    VOID * ptr;
{
    (tclIntPlatStubsPtr->tclpSysFree)(ptr);
}

/* Slot 2 */
VOID *
TclpSysRealloc(cp, size)
    VOID * cp;
    unsigned int size;
{
    return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size);
}

/* Slot 3 */
void
TclpExit(status)
    int status;
{
    (tclIntPlatStubsPtr->tclpExit)(status);
}

/* Slot 4 */
int
FSpGetDefaultDir(theSpec)
    FSSpecPtr theSpec;
{
    return (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec);
}

/* Slot 5 */
int
FSpSetDefaultDir(theSpec)
    FSSpecPtr theSpec;
{
    return (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec);
}

/* Slot 6 */
OSErr
FSpFindFolder(vRefNum, folderType, createFolder, spec)
    short vRefNum;
    OSType folderType;
    Boolean createFolder;
    FSSpec * spec;
{
    return (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec);
}

/* Slot 7 */
void
GetGlobalMouse(mouse)
    Point * mouse;
{
    (tclIntPlatStubsPtr->getGlobalMouse)(mouse);
}

/* Slot 8 */
pascal OSErr
FSpGetDirectoryID(spec, theDirID, isDirectory)
    CONST FSSpec * spec;
    long * theDirID;
    Boolean * isDirectory;
{
    return (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory);
}

/* Slot 9 */
pascal short
FSpOpenResFileCompat(spec, permission)
    CONST FSSpec * spec;
    SignedByte permission;
{
    return (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission);
}

/* Slot 10 */
pascal void
FSpCreateResFileCompat(spec, creator, fileType, scriptTag)
    CONST FSSpec * spec;
    OSType creator;
    OSType fileType;
    ScriptCode scriptTag;
{
    return (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag);
}

/* Slot 11 */
int
FSpLocationFromPath(length, path, theSpec)
    int length;
    CONST char * path;
    FSSpecPtr theSpec;
{
    return (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec);
}

/* Slot 12 */
OSErr
FSpPathFromLocation(theSpec, length, fullPath)
    FSSpecPtr theSpec;
    int * length;
    Handle * fullPath;
{
    return (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath);
}

/* Slot 13 */
void
TclMacExitHandler()
{
    (tclIntPlatStubsPtr->tclMacExitHandler)();
}

/* Slot 14 */
void
TclMacInitExitToShell(usePatch)
    int usePatch;
{
    (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch);
}

/* Slot 15 */
OSErr
TclMacInstallExitToShellPatch(newProc)
    ExitToShellProcPtr newProc;
{
    return (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc);
}

/* Slot 16 */
int
TclMacOSErrorToPosixError(error)
    int error;
{
    return (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error);
}

/* Slot 17 */
void
TclMacRemoveTimer(timerToken)
    void * timerToken;
{
    (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken);
}

/* Slot 18 */
void *
TclMacStartTimer(ms)
    long ms;
{
    return (tclIntPlatStubsPtr->tclMacStartTimer)(ms);
}

/* Slot 19 */
int
TclMacTimerExpired(timerToken)
    void * timerToken;
{
    return (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken);
}

/* Slot 20 */
int
TclMacRegisterResourceFork(fileRef, tokenPtr, insert)
    short fileRef;
    Tcl_Obj * tokenPtr;
    int insert;
{
    return (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert);
}

/* Slot 21 */
short
TclMacUnRegisterResourceFork(tokenPtr, resultPtr)
    char * tokenPtr;
    Tcl_Obj * resultPtr;
{
    return (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr);
}

/* Slot 22 */
int
TclMacCreateEnv()
{
    return (tclIntPlatStubsPtr->tclMacCreateEnv)();
}

/* Slot 23 */
FILE *
TclMacFOpenHack(path, mode)
    CONST char * path;
    CONST char * mode;
{
    return (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode);
}

/* Slot 24 is reserved */
/* Slot 25 */
int
TclMacChmod(path, mode)
    char * path;
    int mode;
{
    return (tclIntPlatStubsPtr->tclMacChmod)(path, mode);
}

#endif /* MAC_TCL */

/* !END!: Do not edit above this line. */

/* 
 * tclIntStubs.c --
 *
 *	This file contains the wrapper functions for the platform independent
 *	unsupported Tcl API.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 * All rights reserved.
 *
 * RCS: @(#) $Id: tclIntStubs.c,v 1.3.2.5 1999/03/19 04:01:22 stanton Exp $
 */

#include "tclInt.h"

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl
 * script.  Any modifications to the function declarations below should be made
 * in the generic/tclInt.decls script.
 */

/* !BEGIN!: Do not edit below this line. */

/*
 * Exported stub functions:
 */

/* Slot 0 */
int
TclAccess(path, mode)
    CONST char * path;
    int mode;
{
    return (tclIntStubsPtr->tclAccess)(path, mode);
}

/* Slot 1 */
int
TclAccessDeleteProc(proc)
    TclAccessProc_ * proc;
{
    return (tclIntStubsPtr->tclAccessDeleteProc)(proc);
}

/* Slot 2 */
int
TclAccessInsertProc(proc)
    TclAccessProc_ * proc;
{
    return (tclIntStubsPtr->tclAccessInsertProc)(proc);
}

/* Slot 3 */
void
TclAllocateFreeObjects()
{
    (tclIntStubsPtr->tclAllocateFreeObjects)();
}

/* Slot 4 is reserved */
/* Slot 5 */
int
TclCleanupChildren(interp, numPids, pidPtr, errorChan)
    Tcl_Interp * interp;
    int numPids;
    Tcl_Pid * pidPtr;
    Tcl_Channel errorChan;
{
    return (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan);
}

/* Slot 6 */
void
TclCleanupCommand(cmdPtr)
    Command * cmdPtr;
{
    (tclIntStubsPtr->tclCleanupCommand)(cmdPtr);
}

/* Slot 7 */
int
TclCopyAndCollapse(count, src, dst)
    int count;
    CONST char * src;
    char * dst;
{
    return (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst);
}

/* Slot 8 */
int
TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr)
    Tcl_Interp * interp;
    Tcl_Channel inChan;
    Tcl_Channel outChan;
    int toRead;
    Tcl_Obj * cmdPtr;
{
    return (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr);
}

/* Slot 9 */
int
TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
    Tcl_Pid ** pidArrayPtr;
    TclFile * inPipePtr;
    TclFile * outPipePtr;
    TclFile * errFilePtr;
{
    return (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr);
}

/* Slot 10 */
int
TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr)
    Tcl_Interp * interp;
    Namespace * nsPtr;
    char * procName;
    Tcl_Obj * argsPtr;
    Tcl_Obj * bodyPtr;
    Proc ** procPtrPtr;
{
    return (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr);
}

/* Slot 11 */
void
TclDeleteCompiledLocalVars(iPtr, framePtr)
    Interp * iPtr;
    CallFrame * framePtr;
{
    (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr);
}

/* Slot 12 */
void
TclDeleteVars(iPtr, tablePtr)
    Interp * iPtr;
    Tcl_HashTable * tablePtr;
{
    (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr);
}

/* Slot 13 */
int
TclDoGlob(interp, separators, headPtr, tail)
    Tcl_Interp * interp;
    char * separators;
    Tcl_DString * headPtr;
    char * tail;
{
    return (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail);
}

/* Slot 14 */
void
TclDumpMemoryInfo(outFile)
    FILE * outFile;
{
    (tclIntStubsPtr->tclDumpMemoryInfo)(outFile);
}

/* Slot 15 is reserved */
/* Slot 16 */
void
TclExprFloatError(interp, value)
    Tcl_Interp * interp;
    double value;
{
    (tclIntStubsPtr->tclExprFloatError)(interp, value);
}

/* Slot 17 */
int
TclFileAttrsCmd(interp, objc, objv)
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
{
    return (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv);
}

/* Slot 18 */
int
TclFileCopyCmd(interp, argc, argv)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    return (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv);
}

/* Slot 19 */
int
TclFileDeleteCmd(interp, argc, argv)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    return (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv);
}

/* Slot 20 */
int
TclFileMakeDirsCmd(interp, argc, argv)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    return (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv);
}

/* Slot 21 */
int
TclFileRenameCmd(interp, argc, argv)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    return (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv);
}

/* Slot 22 */
int
TclFindElement(interp, listStr, listLength, elementPtr, nextPtr, sizePtr, bracePtr)
    Tcl_Interp * interp;
    CONST char * listStr;
    int listLength;
    CONST char ** elementPtr;
    CONST char ** nextPtr;
    int * sizePtr;
    int * bracePtr;
{
    return (tclIntStubsPtr->tclFindElement)(interp, listStr, listLength, elementPtr, nextPtr, sizePtr, bracePtr);
}

/* Slot 23 */
Proc *
TclFindProc(iPtr, procName)
    Interp * iPtr;
    char * procName;
{
    return (tclIntStubsPtr->tclFindProc)(iPtr, procName);
}

/* Slot 24 */
int
TclFormatInt(buffer, n)
    char * buffer;
    long n;
{
    return (tclIntStubsPtr->tclFormatInt)(buffer, n);
}

/* Slot 25 */
void
TclFreePackageInfo(iPtr)
    Interp * iPtr;
{
    (tclIntStubsPtr->tclFreePackageInfo)(iPtr);
}

/* Slot 26 is reserved */
/* Slot 27 */
int
TclGetDate(p, now, zone, timePtr)
    char * p;
    unsigned long now;
    long zone;
    unsigned long * timePtr;
{
    return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr);
}

/* Slot 28 */
Tcl_Channel
TclpGetDefaultStdChannel(type)
    int type;
{
    return (tclIntStubsPtr->tclpGetDefaultStdChannel)(type);
}

/* Slot 29 */
Tcl_Obj *
TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
    Tcl_Interp * interp;
    int localIndex;
    Tcl_Obj * elemPtr;
    int leaveErrorMsg;
{
    return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg);
}

/* Slot 30 is reserved */
/* Slot 31 */
char *
TclGetExtension(name)
    char * name;
{
    return (tclIntStubsPtr->tclGetExtension)(name);
}

/* Slot 32 */
int
TclGetFrame(interp, str, framePtrPtr)
    Tcl_Interp * interp;
    char * str;
    CallFrame ** framePtrPtr;
{
    return (tclIntStubsPtr->tclGetFrame)(interp, str, framePtrPtr);
}

/* Slot 33 */
TclCmdProcType
TclGetInterpProc()
{
    return (tclIntStubsPtr->tclGetInterpProc)();
}

/* Slot 34 */
int
TclGetIntForIndex(interp, objPtr, endValue, indexPtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    int endValue;
    int * indexPtr;
{
    return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr);
}

/* Slot 35 */
Tcl_Obj *
TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
    Tcl_Interp * interp;
    int localIndex;
    int leaveErrorMsg;
{
    return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg);
}

/* Slot 36 */
int
TclGetLong(interp, str, longPtr)
    Tcl_Interp * interp;
    char * str;
    long * longPtr;
{
    return (tclIntStubsPtr->tclGetLong)(interp, str, longPtr);
}

/* Slot 37 */
int
TclGetLoadedPackages(interp, targetName)
    Tcl_Interp * interp;
    char * targetName;
{
    return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName);
}

/* Slot 38 */
int
TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
    Tcl_Interp * interp;
    char * qualName;
    Namespace * cxtNsPtr;
    int flags;
    Namespace ** nsPtrPtr;
    Namespace ** altNsPtrPtr;
    Namespace ** actualCxtPtrPtr;
    char ** simpleNamePtr;
{
    return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr);
}

/* Slot 39 */
TclObjCmdProcType
TclGetObjInterpProc()
{
    return (tclIntStubsPtr->tclGetObjInterpProc)();
}

/* Slot 40 */
int
TclGetOpenMode(interp, str, seekFlagPtr)
    Tcl_Interp * interp;
    char * str;
    int * seekFlagPtr;
{
    return (tclIntStubsPtr->tclGetOpenMode)(interp, str, seekFlagPtr);
}

/* Slot 41 */
Tcl_Command
TclGetOriginalCommand(command)
    Tcl_Command command;
{
    return (tclIntStubsPtr->tclGetOriginalCommand)(command);
}

/* Slot 42 */
char *
TclpGetUserHome(name, bufferPtr)
    CONST char * name;
    Tcl_DString * bufferPtr;
{
    return (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr);
}

/* Slot 43 */
int
TclGlobalInvoke(interp, argc, argv, flags)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
    int flags;
{
    return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags);
}

/* Slot 44 */
int
TclGuessPackageName(fileName, bufPtr)
    char * fileName;
    Tcl_DString * bufPtr;
{
    return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr);
}

/* Slot 45 */
int
TclHideUnsafeCommands(interp)
    Tcl_Interp * interp;
{
    return (tclIntStubsPtr->tclHideUnsafeCommands)(interp);
}

/* Slot 46 */
int
TclInExit()
{
    return (tclIntStubsPtr->tclInExit)();
}

/* Slot 47 */
Tcl_Obj *
TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount)
    Tcl_Interp * interp;
    int localIndex;
    Tcl_Obj * elemPtr;
    long incrAmount;
{
    return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount);
}

/* Slot 48 */
Tcl_Obj *
TclIncrIndexedScalar(interp, localIndex, incrAmount)
    Tcl_Interp * interp;
    int localIndex;
    long incrAmount;
{
    return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount);
}

/* Slot 49 */
Tcl_Obj *
TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed)
    Tcl_Interp * interp;
    Tcl_Obj * part1Ptr;
    Tcl_Obj * part2Ptr;
    long incrAmount;
    int part1NotParsed;
{
    return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed);
}

/* Slot 50 */
void
TclInitCompiledLocals(interp, framePtr, nsPtr)
    Tcl_Interp * interp;
    CallFrame * framePtr;
    Namespace * nsPtr;
{
    (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr);
}

/* Slot 51 */
int
TclInterpInit(interp)
    Tcl_Interp * interp;
{
    return (tclIntStubsPtr->tclInterpInit)(interp);
}

/* Slot 52 */
int
TclInvoke(interp, argc, argv, flags)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
    int flags;
{
    return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags);
}

/* Slot 53 */
int
TclInvokeObjectCommand(clientData, interp, argc, argv)
    ClientData clientData;
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv);
}

/* Slot 54 */
int
TclInvokeStringCommand(clientData, interp, objc, objv)
    ClientData clientData;
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
{
    return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv);
}

/* Slot 55 */
Proc *
TclIsProc(cmdPtr)
    Command * cmdPtr;
{
    return (tclIntStubsPtr->tclIsProc)(cmdPtr);
}

/* Slot 56 is reserved */
/* Slot 57 is reserved */
/* Slot 58 */
Var *
TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
    char * msg;
    int createPart1;
    int createPart2;
    Var ** arrayPtrPtr;
{
    return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr);
}

/* Slot 59 */
int
TclpMatchFiles(interp, separators, dirPtr, pattern, tail)
    Tcl_Interp * interp;
    char * separators;
    Tcl_DString * dirPtr;
    char * pattern;
    char * tail;
{
    return (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail);
}

/* Slot 60 */
int
TclNeedSpace(start, end)
    char * start;
    char * end;
{
    return (tclIntStubsPtr->tclNeedSpace)(start, end);
}

/* Slot 61 */
Tcl_Obj *
TclNewProcBodyObj(procPtr)
    Proc * procPtr;
{
    return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr);
}

/* Slot 62 */
int
TclObjCommandComplete(cmdPtr)
    Tcl_Obj * cmdPtr;
{
    return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr);
}

/* Slot 63 */
int
TclObjInterpProc(clientData, interp, objc, objv)
    ClientData clientData;
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
{
    return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv);
}

/* Slot 64 */
int
TclObjInvoke(interp, objc, objv, flags)
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
    int flags;
{
    return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags);
}

/* Slot 65 */
int
TclObjInvokeGlobal(interp, objc, objv, flags)
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
    int flags;
{
    return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags);
}

/* Slot 66 */
int
TclOpenFileChannelDeleteProc(proc)
    TclOpenFileChannelProc_ * proc;
{
    return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc);
}

/* Slot 67 */
int
TclOpenFileChannelInsertProc(proc)
    TclOpenFileChannelProc_ * proc;
{
    return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc);
}

/* Slot 68 */
int
TclpAccess(path, mode)
    CONST char * path;
    int mode;
{
    return (tclIntStubsPtr->tclpAccess)(path, mode);
}

/* Slot 69 */
char *
TclpAlloc(size)
    unsigned int size;
{
    return (tclIntStubsPtr->tclpAlloc)(size);
}

/* Slot 70 */
int
TclpCopyFile(source, dest)
    CONST char * source;
    CONST char * dest;
{
    return (tclIntStubsPtr->tclpCopyFile)(source, dest);
}

/* Slot 71 */
int
TclpCopyDirectory(source, dest, errorPtr)
    CONST char * source;
    CONST char * dest;
    Tcl_DString * errorPtr;
{
    return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr);
}

/* Slot 72 */
int
TclpCreateDirectory(path)
    CONST char * path;
{
    return (tclIntStubsPtr->tclpCreateDirectory)(path);
}

/* Slot 73 */
int
TclpDeleteFile(path)
    CONST char * path;
{
    return (tclIntStubsPtr->tclpDeleteFile)(path);
}

/* Slot 74 */
void
TclpFree(ptr)
    char * ptr;
{
    (tclIntStubsPtr->tclpFree)(ptr);
}

/* Slot 75 */
unsigned long
TclpGetClicks()
{
    return (tclIntStubsPtr->tclpGetClicks)();
}

/* Slot 76 */
unsigned long
TclpGetSeconds()
{
    return (tclIntStubsPtr->tclpGetSeconds)();
}

/* Slot 77 */
void
TclpGetTime(time)
    Tcl_Time * time;
{
    (tclIntStubsPtr->tclpGetTime)(time);
}

/* Slot 78 */
int
TclpGetTimeZone(time)
    unsigned long time;
{
    return (tclIntStubsPtr->tclpGetTimeZone)(time);
}

/* Slot 79 */
int
TclpListVolumes(interp)
    Tcl_Interp * interp;
{
    return (tclIntStubsPtr->tclpListVolumes)(interp);
}

/* Slot 80 */
Tcl_Channel
TclpOpenFileChannel(interp, fileName, modeString, permissions)
    Tcl_Interp * interp;
    char * fileName;
    char * modeString;
    int permissions;
{
    return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions);
}

/* Slot 81 */
char *
TclpRealloc(ptr, size)
    char * ptr;
    unsigned int size;
{
    return (tclIntStubsPtr->tclpRealloc)(ptr, size);
}

/* Slot 82 */
int
TclpRemoveDirectory(path, recursive, errorPtr)
    CONST char * path;
    int recursive;
    Tcl_DString * errorPtr;
{
    return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr);
}

/* Slot 83 */
int
TclpRenameFile(source, dest)
    CONST char * source;
    CONST char * dest;
{
    return (tclIntStubsPtr->tclpRenameFile)(source, dest);
}

/* Slot 84 is reserved */
/* Slot 85 is reserved */
/* Slot 86 is reserved */
/* Slot 87 is reserved */
/* Slot 88 */
char *
TclPrecTraceProc(clientData, interp, name1, name2, flags)
    ClientData clientData;
    Tcl_Interp * interp;
    char * name1;
    char * name2;
    int flags;
{
    return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags);
}

/* Slot 89 */
int
TclPreventAliasLoop(interp, cmdInterp, cmd)
    Tcl_Interp * interp;
    Tcl_Interp * cmdInterp;
    Tcl_Command cmd;
{
    return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd);
}

/* Slot 90 is reserved */
/* Slot 91 */
void
TclProcCleanupProc(procPtr)
    Proc * procPtr;
{
    (tclIntStubsPtr->tclProcCleanupProc)(procPtr);
}

/* Slot 92 */
int
TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
    Tcl_Interp * interp;
    Proc * procPtr;
    Tcl_Obj * bodyPtr;
    Namespace * nsPtr;
    CONST char * description;
    CONST char * procName;
{
    return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName);
}

/* Slot 93 */
void
TclProcDeleteProc(clientData)
    ClientData clientData;
{
    (tclIntStubsPtr->tclProcDeleteProc)(clientData);
}

/* Slot 94 */
int
TclProcInterpProc(clientData, interp, argc, argv)
    ClientData clientData;
    Tcl_Interp * interp;
    int argc;
    char ** argv;
{
    return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv);
}

/* Slot 95 */
int
TclpStat(path, buf)
    CONST char * path;
    struct stat * buf;
{
    return (tclIntStubsPtr->tclpStat)(path, buf);
}

/* Slot 96 */
int
TclRenameCommand(interp, oldName, newName)
    Tcl_Interp * interp;
    char * oldName;
    char * newName;
{
    return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName);
}

/* Slot 97 */
void
TclResetShadowedCmdRefs(interp, newCmdPtr)
    Tcl_Interp * interp;
    Command * newCmdPtr;
{
    (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr);
}

/* Slot 98 */
int
TclServiceIdle()
{
    return (tclIntStubsPtr->tclServiceIdle)();
}

/* Slot 99 */
Tcl_Obj *
TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg)
    Tcl_Interp * interp;
    int localIndex;
    Tcl_Obj * elemPtr;
    Tcl_Obj * objPtr;
    int leaveErrorMsg;
{
    return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg);
}

/* Slot 100 */
Tcl_Obj *
TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
    Tcl_Interp * interp;
    int localIndex;
    Tcl_Obj * objPtr;
    int leaveErrorMsg;
{
    return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg);
}

/* Slot 101 is reserved */
/* Slot 102 */
void
TclSetupEnv(interp)
    Tcl_Interp * interp;
{
    (tclIntStubsPtr->tclSetupEnv)(interp);
}

/* Slot 103 */
int
TclSockGetPort(interp, str, proto, portPtr)
    Tcl_Interp * interp;
    char * str;
    char * proto;
    int * portPtr;
{
    return (tclIntStubsPtr->tclSockGetPort)(interp, str, proto, portPtr);
}

/* Slot 104 */
int
TclSockMinimumBuffers(sock, size)
    int sock;
    int size;
{
    return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size);
}

/* Slot 105 */
int
TclStat(path, buf)
    CONST char * path;
    TclStat_ * buf;
{
    return (tclIntStubsPtr->tclStat)(path, buf);
}

/* Slot 106 */
int
TclStatDeleteProc(proc)
    TclStatProc_ * proc;
{
    return (tclIntStubsPtr->tclStatDeleteProc)(proc);
}

/* Slot 107 */
int
TclStatInsertProc(proc)
    TclStatProc_ * proc;
{
    return (tclIntStubsPtr->tclStatInsertProc)(proc);
}

/* Slot 108 */
void
TclTeardownNamespace(nsPtr)
    Namespace * nsPtr;
{
    (tclIntStubsPtr->tclTeardownNamespace)(nsPtr);
}

/* Slot 109 */
int
TclUpdateReturnInfo(iPtr)
    Interp * iPtr;
{
    return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr);
}

/* Slot 110 is reserved */
/* Slot 111 */
void
Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
    Tcl_Interp * interp;
    char * name;
    Tcl_ResolveCmdProc * cmdProc;
    Tcl_ResolveVarProc * varProc;
    Tcl_ResolveCompiledVarProc * compiledVarProc;
{
    (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc);
}

/* Slot 112 */
int
Tcl_AppendExportList(interp, nsPtr, objPtr)
    Tcl_Interp * interp;
    Tcl_Namespace * nsPtr;
    Tcl_Obj * objPtr;
{
    return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr);
}

/* Slot 113 */
Tcl_Namespace *
Tcl_CreateNamespace(interp, name, clientData, deleteProc)
    Tcl_Interp * interp;
    char * name;
    ClientData clientData;
    Tcl_NamespaceDeleteProc * deleteProc;
{
    return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc);
}

/* Slot 114 */
void
Tcl_DeleteNamespace(nsPtr)
    Tcl_Namespace * nsPtr;
{
    (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr);
}

/* Slot 115 */
int
Tcl_Export(interp, nsPtr, pattern, resetListFirst)
    Tcl_Interp * interp;
    Tcl_Namespace * nsPtr;
    char * pattern;
    int resetListFirst;
{
    return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst);
}

/* Slot 116 */
Tcl_Command
Tcl_FindCommand(interp, name, contextNsPtr, flags)
    Tcl_Interp * interp;
    char * name;
    Tcl_Namespace * contextNsPtr;
    int flags;
{
    return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags);
}

/* Slot 117 */
Tcl_Namespace *
Tcl_FindNamespace(interp, name, contextNsPtr, flags)
    Tcl_Interp * interp;
    char * name;
    Tcl_Namespace * contextNsPtr;
    int flags;
{
    return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags);
}

/* Slot 118 */
int
Tcl_GetInterpResolvers(interp, name, resInfo)
    Tcl_Interp * interp;
    char * name;
    Tcl_ResolverInfo * resInfo;
{
    return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo);
}

/* Slot 119 */
int
Tcl_GetNamespaceResolvers(namespacePtr, resInfo)
    Tcl_Namespace * namespacePtr;
    Tcl_ResolverInfo * resInfo;
{
    return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo);
}

/* Slot 120 */
Tcl_Var
Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
    Tcl_Interp * interp;
    char * name;
    Tcl_Namespace * contextNsPtr;
    int flags;
{
    return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags);
}

/* Slot 121 */
int
Tcl_ForgetImport(interp, nsPtr, pattern)
    Tcl_Interp * interp;
    Tcl_Namespace * nsPtr;
    char * pattern;
{
    return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern);
}

/* Slot 122 */
Tcl_Command
Tcl_GetCommandFromObj(interp, objPtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
{
    return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr);
}

/* Slot 123 */
void
Tcl_GetCommandFullName(interp, command, objPtr)
    Tcl_Interp * interp;
    Tcl_Command command;
    Tcl_Obj * objPtr;
{
    (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr);
}

/* Slot 124 */
Tcl_Namespace *
Tcl_GetCurrentNamespace(interp)
    Tcl_Interp * interp;
{
    return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp);
}

/* Slot 125 */
Tcl_Namespace *
Tcl_GetGlobalNamespace(interp)
    Tcl_Interp * interp;
{
    return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp);
}

/* Slot 126 */
void
Tcl_GetVariableFullName(interp, variable, objPtr)
    Tcl_Interp * interp;
    Tcl_Var variable;
    Tcl_Obj * objPtr;
{
    (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr);
}

/* Slot 127 */
int
Tcl_Import(interp, nsPtr, pattern, allowOverwrite)
    Tcl_Interp * interp;
    Tcl_Namespace * nsPtr;
    char * pattern;
    int allowOverwrite;
{
    return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite);
}

/* Slot 128 */
void
Tcl_PopCallFrame(interp)
    Tcl_Interp* interp;
{
    (tclIntStubsPtr->tcl_PopCallFrame)(interp);
}

/* Slot 129 */
int
Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
    Tcl_Interp* interp;
    Tcl_CallFrame * framePtr;
    Tcl_Namespace * nsPtr;
    int isProcCallFrame;
{
    return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame);
}

/* Slot 130 */
int
Tcl_RemoveInterpResolvers(interp, name)
    Tcl_Interp * interp;
    char * name;
{
    return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name);
}

/* Slot 131 */
void
Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
    Tcl_Namespace * namespacePtr;
    Tcl_ResolveCmdProc * cmdProc;
    Tcl_ResolveVarProc * varProc;
    Tcl_ResolveCompiledVarProc * compiledVarProc;
{
    (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc);
}

/* Slot 132 */
int
TclpHasSockets(interp)
    Tcl_Interp * interp;
{
    return (tclIntStubsPtr->tclpHasSockets)(interp);
}

/* Slot 133 */
struct tm *
TclpGetDate(time, useGMT)
    TclpTime_t time;
    int useGMT;
{
    return (tclIntStubsPtr->tclpGetDate)(time, useGMT);
}

/* Slot 134 */
size_t
TclpStrftime(s, maxsize, format, t)
    char * s;
    size_t maxsize;
    CONST char * format;
    CONST struct tm * t;
{
    return (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t);
}

/* Slot 135 */
int
TclpCheckStackSpace()
{
    return (tclIntStubsPtr->tclpCheckStackSpace)();
}

/* Slot 136 is reserved */
/* Slot 137 */
int
TclpChdir(dirName)
    CONST char * dirName;
{
    return (tclIntStubsPtr->tclpChdir)(dirName);
}

/* Slot 138 */
char *
TclGetEnv(name, valuePtr)
    CONST char * name;
    Tcl_DString * valuePtr;
{
    return (tclIntStubsPtr->tclGetEnv)(name, valuePtr);
}

/* Slot 139 */
int
TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
    Tcl_Interp * interp;
    char * fileName;
    char * sym1;
    char * sym2;
    Tcl_PackageInitProc ** proc1Ptr;
    Tcl_PackageInitProc ** proc2Ptr;
    ClientData * clientDataPtr;
{
    return (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr);
}

/* Slot 140 */
int
TclLooksLikeInt(bytes, length)
    char * bytes;
    int length;
{
    return (tclIntStubsPtr->tclLooksLikeInt)(bytes, length);
}


/* !END!: Do not edit above this line. */

/*
 * tclPlatDecls.h --
 *
 *	Declarations of platform specific Tcl APIs.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 * All rights reserved.
 *
 * RCS: @(#) $Id: tclPlatDecls.h,v 1.3.2.3 1999/03/14 18:56:10 stanton Exp $
 */

#ifndef _TCLPLATDECLS
#define _TCLPLATDECLS

/* !BEGIN!: Do not edit below this line. */

/*
 * Inline function declarations:
 */

#ifdef MAC_TCL
#ifndef Tcl_MacSetEventProc
#define Tcl_MacSetEventProc(procPtr) \
	(tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr) /* 0 */
#endif
#ifndef Tcl_MacConvertTextResource
#define Tcl_MacConvertTextResource(resource) \
	(tclPlatStubsPtr->tcl_MacConvertTextResource)(resource) /* 1 */
#endif
#ifndef Tcl_MacEvalResource
#define Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) \
	(tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName) /* 2 */
#endif
#ifndef Tcl_MacFindResource
#define Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) \
	(tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) /* 3 */
#endif
#ifndef Tcl_GetOSTypeFromObj
#define Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) \
	(tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr) /* 4 */
#endif
#ifndef Tcl_SetOSTypeObj
#define Tcl_SetOSTypeObj(objPtr, osType) \
	(tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType) /* 5 */
#endif
#ifndef Tcl_NewOSTypeObj
#define Tcl_NewOSTypeObj(osType) \
	(tclPlatStubsPtr->tcl_NewOSTypeObj)(osType) /* 6 */
#endif
#ifndef strncasecmp
#define strncasecmp(s1, s2, n) \
	(tclPlatStubsPtr->strncasecmp)(s1, s2, n) /* 7 */
#endif
#ifndef strcasecmp
#define strcasecmp(s1, s2) \
	(tclPlatStubsPtr->strcasecmp)(s1, s2) /* 8 */
#endif
#endif /* MAC_TCL */

#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */

/* !END!: Do not edit above this line. */

#endif /* _TCLPLATDECLS */

/* 
 * tclPlatStubs.c --
 *
 *	This file contains the wrapper functions for the platform independent
 *	unsupported Tcl API.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 * All rights reserved.
 *
 * RCS: @(#) $Id: tclPlatStubs.c,v 1.3.2.3 1999/03/14 18:56:10 stanton Exp $
 */

#include "tcl.h"

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl
 * script.  Any modifications to the function declarations below should be made
 * in the generic/tclInt.decls script.
 */

/* !BEGIN!: Do not edit below this line. */

/*
 * Exported stub functions:
 */

#ifdef MAC_TCL
/* Slot 0 */
void
Tcl_MacSetEventProc(procPtr)
    Tcl_MacConvertEventPtr procPtr;
{
    (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr);
}

/* Slot 1 */
char *
Tcl_MacConvertTextResource(resource)
    Handle resource;
{
    return (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource);
}

/* Slot 2 */
int
Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName)
    Tcl_Interp * interp;
    char * resourceName;
    int resourceNumber;
    char * fileName;
{
    return (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName);
}

/* Slot 3 */
Handle
Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt)
    Tcl_Interp * interp;
    long resourceType;
    char * resourceName;
    int resourceNumber;
    char * resFileRef;
    int * releaseIt;
{
    return (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt);
}

/* Slot 4 */
int
Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    OSType * osTypePtr;
{
    return (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr);
}

/* Slot 5 */
void
Tcl_SetOSTypeObj(objPtr, osType)
    Tcl_Obj * objPtr;
    OSType osType;
{
    (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType);
}

/* Slot 6 */
Tcl_Obj *
Tcl_NewOSTypeObj(osType)
    OSType osType;
{
    return (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType);
}

/* Slot 7 */
int
strncasecmp(s1, s2, n)
    CONST char * s1;
    CONST char * s2;
    size_t n;
{
    return (tclPlatStubsPtr->strncasecmp)(s1, s2, n);
}

/* Slot 8 */
int
strcasecmp(s1, s2)
    CONST char * s1;
    CONST char * s2;
{
    return (tclPlatStubsPtr->strcasecmp)(s1, s2);
}

#endif /* MAC_TCL */

/* !END!: Do not edit above this line. */

/* 
 * tclStubs.c --
 *
 *	This file contains the wrapper functions for the platform independent
 *	public Tcl API.
 *
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * 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.3.2.8 1999/03/24 04:25:15 stanton Exp $
 */

#include "tcl.h"

/*
 * Undefine function macros that will interfere with the defintions below.
 */

#undef Tcl_Alloc
#undef Tcl_Free
#undef Tcl_Realloc
#undef Tcl_NewBooleanObj
#undef Tcl_NewByteArrayObj
#undef Tcl_NewDoubleObj
#undef Tcl_NewIntObj
#undef Tcl_NewListObj
#undef Tcl_NewLongObj
#undef Tcl_NewObj
#undef Tcl_NewStringObj
#undef Tcl_InitMemory
#undef Tcl_DumpActiveMemory
#undef Tcl_ValidateAllMemory
#undef Tcl_EvalObj
#undef Tcl_GlobalEvalObj
#undef Tcl_MutexLock
#undef Tcl_MutexUnlock
#undef Tcl_ConditionNotify
#undef Tcl_ConditionWait

/*
 * WARNING: This file is automatically generated by the tools/genStubs.tcl
 * script.  Any modifications to the function declarations below should be made
 * in the generic/tcl.decls script.
 */

/* !BEGIN!: Do not edit below this line. */

/*
 * Exported stub functions:
 */

/* Slot 0 */
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 1 */
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 2 */
void
Tcl_Panic TCL_VARARGS_DEF(char *,format)
{
    char * var;
    va_list argList;

    var = (char *) TCL_VARARGS_START(char *,format,argList);

    (tclStubsPtr->tcl_PanicVA)(var, argList);
    va_end(argList);
}

/* Slot 3 */
char *
Tcl_Alloc(size)
    unsigned int size;
{
    return (tclStubsPtr->tcl_Alloc)(size);
}

/* Slot 4 */
void
Tcl_Free(ptr)
    char * ptr;
{
    (tclStubsPtr->tcl_Free)(ptr);
}

/* 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;
    Tcl_Obj * objPtr;
{
    return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr);
}

/* Slot 15 */
void
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;
    Tcl_Obj * objPtr;
    Tcl_ObjType * typePtr;
{
    return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr);
}

/* Slot 19 */
void
Tcl_DbDecrRefCount(objPtr, file, line)
    Tcl_Obj * objPtr;
    char * file;
    int line;
{
    (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line);
}

/* Slot 20 */
void
Tcl_DbIncrRefCount(objPtr, file, line)
    Tcl_Obj * objPtr;
    char * file;
    int line;
{
    (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line);
}

/* Slot 21 */
int
Tcl_DbIsShared(objPtr, file, line)
    Tcl_Obj * objPtr;
    char * file;
    int line;
{
    return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line);
}

/* 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)
    CONST 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
TclFreeObj(objPtr)
    Tcl_Obj * objPtr;
{
    (tclStubsPtr->tclFreeObj)(objPtr);
}

/* Slot 31 */
int
Tcl_GetBoolean(interp, str, boolPtr)
    Tcl_Interp * interp;
    char * str;
    int * boolPtr;
{
    return (tclStubsPtr->tcl_GetBoolean)(interp, str, boolPtr);
}

/* 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, str, doublePtr)
    Tcl_Interp * interp;
    char * str;
    double * doublePtr;
{
    return (tclStubsPtr->tcl_GetDouble)(interp, str, 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, str, intPtr)
    Tcl_Interp * interp;
    char * str;
    int * intPtr;
{
    return (tclStubsPtr->tcl_GetInt)(interp, str, 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_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)
    CONST char * bytes;
    int length;
{
    return (tclStubsPtr->tcl_NewStringObj)(bytes, length);
}

/* Slot 57 */
void
Tcl_SetBooleanObj(objPtr, boolValue)
    Tcl_Obj * objPtr;
    int boolValue;
{
    (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue);
}

/* Slot 58 */
unsigned char *
Tcl_SetByteArrayLength(objPtr, length)
    Tcl_Obj * objPtr;
    int length;
{
    return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length);
}

/* Slot 59 */
void
Tcl_SetByteArrayObj(objPtr, bytes, length)
    Tcl_Obj * objPtr;
    unsigned char * bytes;
    int length;
{
    (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length);
}

/* Slot 60 */
void
Tcl_SetDoubleObj(objPtr, doubleValue)
    Tcl_Obj * objPtr;
    double doubleValue;
{
    (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue);
}

/* 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;
    CONST char * message;
{
    (tclStubsPtr->tcl_AddErrorInfo)(interp, message);
}

/* Slot 67 */
void
Tcl_AddObjErrorInfo(interp, message, length)
    Tcl_Interp * interp;
    CONST 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;
    CONST 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;
    ClientData clientData;
{
    return (tclStubsPtr->tcl_AsyncCreate)(proc, clientData);
}

/* Slot 72 */
void
Tcl_AsyncDelete(async)
    Tcl_AsyncHandler async;
{
    (tclStubsPtr->tcl_AsyncDelete)(async);
}

/* Slot 73 */
int
Tcl_AsyncInvoke(interp, code)
    Tcl_Interp * interp;
    int code;
{
    return (tclStubsPtr->tcl_AsyncInvoke)(interp, code);
}

/* Slot 74 */
void
Tcl_AsyncMark(async)
    Tcl_AsyncHandler async;
{
    (tclStubsPtr->tcl_AsyncMark)(async);
}

/* Slot 75 */
int
Tcl_AsyncReady()
{
    return (tclStubsPtr->tcl_AsyncReady)();
}

/* Slot 76 */
void
Tcl_BackgroundError(interp)
    Tcl_Interp * interp;
{
    (tclStubsPtr->tcl_BackgroundError)(interp);
}

/* Slot 77 */
char
Tcl_Backslash(src, readPtr)
    CONST char * src;
    int * readPtr;
{
    return (tclStubsPtr->tcl_Backslash)(src, readPtr);
}

/* Slot 78 */
int
Tcl_BadChannelOption(interp, optionName, optionList)
    Tcl_Interp * interp;
    char * optionName;
    char * optionList;
{
    return (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList);
}

/* Slot 79 */
void
Tcl_CallWhenDeleted(interp, proc, clientData)
    Tcl_Interp * interp;
    Tcl_InterpDeleteProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData);
}

/* Slot 80 */
void
Tcl_CancelIdleCall(idleProc, clientData)
    Tcl_IdleProc * idleProc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData);
}

/* Slot 81 */
int
Tcl_Close(interp, chan)
    Tcl_Interp * interp;
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_Close)(interp, chan);
}

/* Slot 82 */
int
Tcl_CommandComplete(cmd)
    char * cmd;
{
    return (tclStubsPtr->tcl_CommandComplete)(cmd);
}

/* Slot 83 */
char *
Tcl_Concat(argc, argv)
    int argc;
    char ** argv;
{
    return (tclStubsPtr->tcl_Concat)(argc, argv);
}

/* Slot 84 */
int
Tcl_ConvertElement(src, dst, flags)
    CONST char * src;
    char * dst;
    int flags;
{
    return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags);
}

/* Slot 85 */
int
Tcl_ConvertCountedElement(src, length, dst, flags)
    CONST char * src;
    int length;
    char * dst;
    int flags;
{
    return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags);
}

/* Slot 86 */
int
Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv)
    Tcl_Interp * slave;
    char * slaveCmd;
    Tcl_Interp * target;
    char * targetCmd;
    int argc;
    char ** argv;
{
    return (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv);
}

/* Slot 87 */
int
Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv)
    Tcl_Interp * slave;
    char * slaveCmd;
    Tcl_Interp * target;
    char * targetCmd;
    int objc;
    Tcl_Obj *CONST objv[];
{
    return (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv);
}

/* Slot 88 */
Tcl_Channel
Tcl_CreateChannel(typePtr, chanName, instanceData, mask)
    Tcl_ChannelType * typePtr;
    char * chanName;
    ClientData instanceData;
    int mask;
{
    return (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask);
}

/* Slot 89 */
void
Tcl_CreateChannelHandler(chan, mask, proc, clientData)
    Tcl_Channel chan;
    int mask;
    Tcl_ChannelProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData);
}

/* Slot 90 */
void
Tcl_CreateCloseHandler(chan, proc, clientData)
    Tcl_Channel chan;
    Tcl_CloseProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData);
}

/* Slot 91 */
Tcl_Command
Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
    Tcl_Interp * interp;
    char * cmdName;
    Tcl_CmdProc * proc;
    ClientData clientData;
    Tcl_CmdDeleteProc * deleteProc;
{
    return (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc);
}

/* Slot 92 */
void
Tcl_CreateEventSource(setupProc, checkProc, clientData)
    Tcl_EventSetupProc * setupProc;
    Tcl_EventCheckProc * checkProc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData);
}

/* Slot 93 */
void
Tcl_CreateExitHandler(proc, clientData)
    Tcl_ExitProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData);
}

/* Slot 94 */
Tcl_Interp *
Tcl_CreateInterp()
{
    return (tclStubsPtr->tcl_CreateInterp)();
}

/* Slot 95 */
void
Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData)
    Tcl_Interp * interp;
    char * name;
    int numArgs;
    Tcl_ValueType * argTypes;
    Tcl_MathProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData);
}

/* Slot 96 */
Tcl_Command
Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc)
    Tcl_Interp * interp;
    char * cmdName;
    Tcl_ObjCmdProc * proc;
    ClientData clientData;
    Tcl_CmdDeleteProc * deleteProc;
{
    return (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc);
}

/* Slot 97 */
Tcl_Interp *
Tcl_CreateSlave(interp, slaveName, isSafe)
    Tcl_Interp * interp;
    char * slaveName;
    int isSafe;
{
    return (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe);
}

/* Slot 98 */
Tcl_TimerToken
Tcl_CreateTimerHandler(milliseconds, proc, clientData)
    int milliseconds;
    Tcl_TimerProc * proc;
    ClientData clientData;
{
    return (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData);
}

/* Slot 99 */
Tcl_Trace
Tcl_CreateTrace(interp, level, proc, clientData)
    Tcl_Interp * interp;
    int level;
    Tcl_CmdTraceProc * proc;
    ClientData clientData;
{
    return (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData);
}

/* Slot 100 */
void
Tcl_DeleteAssocData(interp, name)
    Tcl_Interp * interp;
    char * name;
{
    (tclStubsPtr->tcl_DeleteAssocData)(interp, name);
}

/* Slot 101 */
void
Tcl_DeleteChannelHandler(chan, proc, clientData)
    Tcl_Channel chan;
    Tcl_ChannelProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData);
}

/* Slot 102 */
void
Tcl_DeleteCloseHandler(chan, proc, clientData)
    Tcl_Channel chan;
    Tcl_CloseProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData);
}

/* Slot 103 */
int
Tcl_DeleteCommand(interp, cmdName)
    Tcl_Interp * interp;
    char * cmdName;
{
    return (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName);
}

/* Slot 104 */
int
Tcl_DeleteCommandFromToken(interp, command)
    Tcl_Interp * interp;
    Tcl_Command command;
{
    return (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command);
}

/* Slot 105 */
void
Tcl_DeleteEvents(proc, clientData)
    Tcl_EventDeleteProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DeleteEvents)(proc, clientData);
}

/* Slot 106 */
void
Tcl_DeleteEventSource(setupProc, checkProc, clientData)
    Tcl_EventSetupProc * setupProc;
    Tcl_EventCheckProc * checkProc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData);
}

/* Slot 107 */
void
Tcl_DeleteExitHandler(proc, clientData)
    Tcl_ExitProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData);
}

/* Slot 108 */
void
Tcl_DeleteHashEntry(entryPtr)
    Tcl_HashEntry * entryPtr;
{
    (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr);
}

/* Slot 109 */
void
Tcl_DeleteHashTable(tablePtr)
    Tcl_HashTable * tablePtr;
{
    (tclStubsPtr->tcl_DeleteHashTable)(tablePtr);
}

/* Slot 110 */
void
Tcl_DeleteInterp(interp)
    Tcl_Interp * interp;
{
    (tclStubsPtr->tcl_DeleteInterp)(interp);
}

/* 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;
{
    (tclStubsPtr->tcl_DeleteTimerHandler)(token);
}

/* Slot 113 */
void
Tcl_DeleteTrace(interp, trace)
    Tcl_Interp * interp;
    Tcl_Trace trace;
{
    (tclStubsPtr->tcl_DeleteTrace)(interp, trace);
}

/* Slot 114 */
void
Tcl_DontCallWhenDeleted(interp, proc, clientData)
    Tcl_Interp * interp;
    Tcl_InterpDeleteProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData);
}

/* Slot 115 */
int
Tcl_DoOneEvent(flags)
    int flags;
{
    return (tclStubsPtr->tcl_DoOneEvent)(flags);
}

/* Slot 116 */
void
Tcl_DoWhenIdle(proc, clientData)
    Tcl_IdleProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData);
}

/* Slot 117 */
char *
Tcl_DStringAppend(dsPtr, str, length)
    Tcl_DString * dsPtr;
    CONST char * str;
    int length;
{
    return (tclStubsPtr->tcl_DStringAppend)(dsPtr, str, length);
}

/* Slot 118 */
char *
Tcl_DStringAppendElement(dsPtr, string)
    Tcl_DString * dsPtr;
    CONST char * string;
{
    return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string);
}

/* Slot 119 */
void
Tcl_DStringEndSublist(dsPtr)
    Tcl_DString * dsPtr;
{
    (tclStubsPtr->tcl_DStringEndSublist)(dsPtr);
}

/* Slot 120 */
void
Tcl_DStringFree(dsPtr)
    Tcl_DString * dsPtr;
{
    (tclStubsPtr->tcl_DStringFree)(dsPtr);
}

/* Slot 121 */
void
Tcl_DStringGetResult(interp, dsPtr)
    Tcl_Interp * interp;
    Tcl_DString * dsPtr;
{
    (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr);
}

/* Slot 122 */
void
Tcl_DStringInit(dsPtr)
    Tcl_DString * dsPtr;
{
    (tclStubsPtr->tcl_DStringInit)(dsPtr);
}

/* Slot 123 */
void
Tcl_DStringResult(interp, dsPtr)
    Tcl_Interp * interp;
    Tcl_DString * dsPtr;
{
    (tclStubsPtr->tcl_DStringResult)(interp, dsPtr);
}

/* Slot 124 */
void
Tcl_DStringSetLength(dsPtr, length)
    Tcl_DString * dsPtr;
    int length;
{
    (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length);
}

/* Slot 125 */
void
Tcl_DStringStartSublist(dsPtr)
    Tcl_DString * dsPtr;
{
    (tclStubsPtr->tcl_DStringStartSublist)(dsPtr);
}

/* Slot 126 */
int
Tcl_Eof(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_Eof)(chan);
}

/* Slot 127 */
char *
Tcl_ErrnoId()
{
    return (tclStubsPtr->tcl_ErrnoId)();
}

/* Slot 128 */
char *
Tcl_ErrnoMsg(err)
    int err;
{
    return (tclStubsPtr->tcl_ErrnoMsg)(err);
}

/* Slot 129 */
int
Tcl_Eval(interp, string)
    Tcl_Interp * interp;
    char * string;
{
    return (tclStubsPtr->tcl_Eval)(interp, string);
}

/* Slot 130 */
int
Tcl_EvalFile(interp, fileName)
    Tcl_Interp * interp;
    char * fileName;
{
    return (tclStubsPtr->tcl_EvalFile)(interp, fileName);
}

/* Slot 131 */
int
Tcl_EvalObj(interp, objPtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
{
    return (tclStubsPtr->tcl_EvalObj)(interp, objPtr);
}

/* 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;
{
    (tclStubsPtr->tcl_Exit)(status);
}

/* Slot 134 */
int
Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName)
    Tcl_Interp * interp;
    char * hiddenCmdToken;
    char * cmdName;
{
    return (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName);
}

/* Slot 135 */
int
Tcl_ExprBoolean(interp, str, ptr)
    Tcl_Interp * interp;
    char * str;
    int * ptr;
{
    return (tclStubsPtr->tcl_ExprBoolean)(interp, str, ptr);
}

/* Slot 136 */
int
Tcl_ExprBooleanObj(interp, objPtr, ptr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    int * ptr;
{
    return (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr);
}

/* Slot 137 */
int
Tcl_ExprDouble(interp, str, ptr)
    Tcl_Interp * interp;
    char * str;
    double * ptr;
{
    return (tclStubsPtr->tcl_ExprDouble)(interp, str, ptr);
}

/* Slot 138 */
int
Tcl_ExprDoubleObj(interp, objPtr, ptr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    double * ptr;
{
    return (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr);
}

/* Slot 139 */
int
Tcl_ExprLong(interp, str, ptr)
    Tcl_Interp * interp;
    char * str;
    long * ptr;
{
    return (tclStubsPtr->tcl_ExprLong)(interp, str, ptr);
}

/* Slot 140 */
int
Tcl_ExprLongObj(interp, objPtr, ptr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    long * ptr;
{
    return (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr);
}

/* Slot 141 */
int
Tcl_ExprObj(interp, objPtr, resultPtrPtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    Tcl_Obj ** resultPtrPtr;
{
    return (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr);
}

/* Slot 142 */
int
Tcl_ExprString(interp, string)
    Tcl_Interp * interp;
    char * string;
{
    return (tclStubsPtr->tcl_ExprString)(interp, string);
}

/* Slot 143 */
void
Tcl_Finalize()
{
    (tclStubsPtr->tcl_Finalize)();
}

/* Slot 144 */
void
Tcl_FindExecutable(argv0)
    CONST char * argv0;
{
    (tclStubsPtr->tcl_FindExecutable)(argv0);
}

/* Slot 145 */
Tcl_HashEntry *
Tcl_FirstHashEntry(tablePtr, searchPtr)
    Tcl_HashTable * tablePtr;
    Tcl_HashSearch * searchPtr;
{
    return (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr);
}

/* Slot 146 */
int
Tcl_Flush(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_Flush)(chan);
}

/* Slot 147 */
void
Tcl_FreeResult(interp)
    Tcl_Interp * interp;
{
    (tclStubsPtr->tcl_FreeResult)(interp);
}

/* Slot 148 */
int
Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr)
    Tcl_Interp * interp;
    char * slaveCmd;
    Tcl_Interp ** targetInterpPtr;
    char ** targetCmdPtr;
    int * argcPtr;
    char *** argvPtr;
{
    return (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr);
}

/* Slot 149 */
int
Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv)
    Tcl_Interp * interp;
    char * slaveCmd;
    Tcl_Interp ** targetInterpPtr;
    char ** targetCmdPtr;
    int * objcPtr;
    Tcl_Obj *** objv;
{
    return (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv);
}

/* Slot 150 */
ClientData
Tcl_GetAssocData(interp, name, procPtr)
    Tcl_Interp * interp;
    char * name;
    Tcl_InterpDeleteProc ** procPtr;
{
    return (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr);
}

/* Slot 151 */
Tcl_Channel
Tcl_GetChannel(interp, chanName, modePtr)
    Tcl_Interp * interp;
    char * chanName;
    int * modePtr;
{
    return (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr);
}

/* Slot 152 */
int
Tcl_GetChannelBufferSize(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_GetChannelBufferSize)(chan);
}

/* Slot 153 */
int
Tcl_GetChannelHandle(chan, direction, handlePtr)
    Tcl_Channel chan;
    int direction;
    ClientData * handlePtr;
{
    return (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr);
}

/* Slot 154 */
ClientData
Tcl_GetChannelInstanceData(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_GetChannelInstanceData)(chan);
}

/* Slot 155 */
int
Tcl_GetChannelMode(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_GetChannelMode)(chan);
}

/* Slot 156 */
char *
Tcl_GetChannelName(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_GetChannelName)(chan);
}

/* Slot 157 */
int
Tcl_GetChannelOption(interp, chan, optionName, dsPtr)
    Tcl_Interp * interp;
    Tcl_Channel chan;
    char * optionName;
    Tcl_DString * dsPtr;
{
    return (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr);
}

/* Slot 158 */
Tcl_ChannelType *
Tcl_GetChannelType(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_GetChannelType)(chan);
}

/* Slot 159 */
int
Tcl_GetCommandInfo(interp, cmdName, infoPtr)
    Tcl_Interp * interp;
    char * cmdName;
    Tcl_CmdInfo * infoPtr;
{
    return (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr);
}

/* Slot 160 */
char *
Tcl_GetCommandName(interp, command)
    Tcl_Interp * interp;
    Tcl_Command command;
{
    return (tclStubsPtr->tcl_GetCommandName)(interp, command);
}

/* Slot 161 */
int
Tcl_GetErrno()
{
    return (tclStubsPtr->tcl_GetErrno)();
}

/* Slot 162 */
char *
Tcl_GetHostName()
{
    return (tclStubsPtr->tcl_GetHostName)();
}

/* Slot 163 */
int
Tcl_GetInterpPath(askInterp, slaveInterp)
    Tcl_Interp * askInterp;
    Tcl_Interp * slaveInterp;
{
    return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp);
}

/* Slot 164 */
Tcl_Interp *
Tcl_GetMaster(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_GetMaster)(interp);
}

/* Slot 165 */
CONST char *
Tcl_GetNameOfExecutable()
{
    return (tclStubsPtr->tcl_GetNameOfExecutable)();
}

/* Slot 166 */
Tcl_Obj *
Tcl_GetObjResult(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_GetObjResult)(interp);
}

#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
/* Slot 167 */
int
Tcl_GetOpenFile(interp, str, write, checkUsage, filePtr)
    Tcl_Interp * interp;
    char * str;
    int write;
    int checkUsage;
    ClientData * filePtr;
{
    return (tclStubsPtr->tcl_GetOpenFile)(interp, str, write, checkUsage, filePtr);
}

#endif /* UNIX */
/* Slot 168 */
Tcl_PathType
Tcl_GetPathType(path)
    char * path;
{
    return (tclStubsPtr->tcl_GetPathType)(path);
}

/* Slot 169 */
int
Tcl_Gets(chan, dsPtr)
    Tcl_Channel chan;
    Tcl_DString * dsPtr;
{
    return (tclStubsPtr->tcl_Gets)(chan, dsPtr);
}

/* Slot 170 */
int
Tcl_GetsObj(chan, objPtr)
    Tcl_Channel chan;
    Tcl_Obj * objPtr;
{
    return (tclStubsPtr->tcl_GetsObj)(chan, objPtr);
}

/* Slot 171 */
int
Tcl_GetServiceMode()
{
    return (tclStubsPtr->tcl_GetServiceMode)();
}

/* Slot 172 */
Tcl_Interp *
Tcl_GetSlave(interp, slaveName)
    Tcl_Interp * interp;
    char * slaveName;
{
    return (tclStubsPtr->tcl_GetSlave)(interp, slaveName);
}

/* Slot 173 */
Tcl_Channel
Tcl_GetStdChannel(type)
    int type;
{
    return (tclStubsPtr->tcl_GetStdChannel)(type);
}

/* Slot 174 */
char *
Tcl_GetStringResult(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_GetStringResult)(interp);
}

/* Slot 175 */
char *
Tcl_GetVar(interp, varName, flags)
    Tcl_Interp * interp;
    char * varName;
    int flags;
{
    return (tclStubsPtr->tcl_GetVar)(interp, varName, flags);
}

/* Slot 176 */
char *
Tcl_GetVar2(interp, part1, part2, flags)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
{
    return (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags);
}

/* Slot 177 */
int
Tcl_GlobalEval(interp, command)
    Tcl_Interp * interp;
    char * command;
{
    return (tclStubsPtr->tcl_GlobalEval)(interp, command);
}

/* Slot 178 */
int
Tcl_GlobalEvalObj(interp, objPtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
{
    return (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr);
}

/* Slot 179 */
int
Tcl_HideCommand(interp, cmdName, hiddenCmdToken)
    Tcl_Interp * interp;
    char * cmdName;
    char * hiddenCmdToken;
{
    return (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken);
}

/* Slot 180 */
int
Tcl_Init(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_Init)(interp);
}

/* Slot 181 */
void
Tcl_InitHashTable(tablePtr, keyType)
    Tcl_HashTable * tablePtr;
    int keyType;
{
    (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType);
}

/* Slot 182 */
int
Tcl_InputBlocked(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_InputBlocked)(chan);
}

/* Slot 183 */
int
Tcl_InputBuffered(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_InputBuffered)(chan);
}

/* Slot 184 */
int
Tcl_InterpDeleted(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_InterpDeleted)(interp);
}

/* Slot 185 */
int
Tcl_IsSafe(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_IsSafe)(interp);
}

/* Slot 186 */
char *
Tcl_JoinPath(argc, argv, resultPtr)
    int argc;
    char ** argv;
    Tcl_DString * resultPtr;
{
    return (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr);
}

/* Slot 187 */
int
Tcl_LinkVar(interp, varName, addr, type)
    Tcl_Interp * interp;
    char * varName;
    char * addr;
    int type;
{
    return (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type);
}

/* Slot 188 is reserved */
/* Slot 189 */
Tcl_Channel
Tcl_MakeFileChannel(handle, mode)
    ClientData handle;
    int mode;
{
    return (tclStubsPtr->tcl_MakeFileChannel)(handle, mode);
}

/* Slot 190 */
int
Tcl_MakeSafe(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_MakeSafe)(interp);
}

/* Slot 191 */
Tcl_Channel
Tcl_MakeTcpClientChannel(tcpSocket)
    ClientData tcpSocket;
{
    return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket);
}

/* Slot 192 */
char *
Tcl_Merge(argc, argv)
    int argc;
    char ** argv;
{
    return (tclStubsPtr->tcl_Merge)(argc, argv);
}

/* Slot 193 */
Tcl_HashEntry *
Tcl_NextHashEntry(searchPtr)
    Tcl_HashSearch * searchPtr;
{
    return (tclStubsPtr->tcl_NextHashEntry)(searchPtr);
}

/* Slot 194 */
void
Tcl_NotifyChannel(channel, mask)
    Tcl_Channel channel;
    int mask;
{
    (tclStubsPtr->tcl_NotifyChannel)(channel, mask);
}

/* Slot 195 */
Tcl_Obj *
Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags)
    Tcl_Interp * interp;
    Tcl_Obj * part1Ptr;
    Tcl_Obj * part2Ptr;
    int flags;
{
    return (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags);
}

/* Slot 196 */
Tcl_Obj *
Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags)
    Tcl_Interp * interp;
    Tcl_Obj * part1Ptr;
    Tcl_Obj * part2Ptr;
    Tcl_Obj * newValuePtr;
    int flags;
{
    return (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags);
}

/* Slot 197 */
Tcl_Channel
Tcl_OpenCommandChannel(interp, argc, argv, flags)
    Tcl_Interp * interp;
    int argc;
    char ** argv;
    int flags;
{
    return (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags);
}

/* Slot 198 */
Tcl_Channel
Tcl_OpenFileChannel(interp, fileName, modeString, permissions)
    Tcl_Interp * interp;
    char * fileName;
    char * modeString;
    int permissions;
{
    return (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions);
}

/* Slot 199 */
Tcl_Channel
Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async)
    Tcl_Interp * interp;
    int port;
    char * address;
    char * myaddr;
    int myport;
    int async;
{
    return (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async);
}

/* Slot 200 */
Tcl_Channel
Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData)
    Tcl_Interp * interp;
    int port;
    char * host;
    Tcl_TcpAcceptProc * acceptProc;
    ClientData callbackData;
{
    return (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData);
}

/* Slot 201 */
void
Tcl_Preserve(data)
    ClientData data;
{
    (tclStubsPtr->tcl_Preserve)(data);
}

/* Slot 202 */
void
Tcl_PrintDouble(interp, value, dst)
    Tcl_Interp * interp;
    double value;
    char * dst;
{
    (tclStubsPtr->tcl_PrintDouble)(interp, value, dst);
}

/* Slot 203 */
int
Tcl_PutEnv(string)
    CONST char * string;
{
    return (tclStubsPtr->tcl_PutEnv)(string);
}

/* Slot 204 */
char *
Tcl_PosixError(interp)
    Tcl_Interp * interp;
{
    return (tclStubsPtr->tcl_PosixError)(interp);
}

/* Slot 205 */
void
Tcl_QueueEvent(evPtr, position)
    Tcl_Event * evPtr;
    Tcl_QueuePosition position;
{
    (tclStubsPtr->tcl_QueueEvent)(evPtr, position);
}

/* Slot 206 */
int
Tcl_Read(chan, bufPtr, toRead)
    Tcl_Channel chan;
    char * bufPtr;
    int toRead;
{
    return (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead);
}

/* Slot 207 */
void
Tcl_ReapDetachedProcs()
{
    (tclStubsPtr->tcl_ReapDetachedProcs)();
}

/* Slot 208 */
int
Tcl_RecordAndEval(interp, cmd, flags)
    Tcl_Interp * interp;
    char * cmd;
    int flags;
{
    return (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags);
}

/* Slot 209 */
int
Tcl_RecordAndEvalObj(interp, cmdPtr, flags)
    Tcl_Interp * interp;
    Tcl_Obj * cmdPtr;
    int flags;
{
    return (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags);
}

/* 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;
    char * string;
{
    return (tclStubsPtr->tcl_RegExpCompile)(interp, string);
}

/* Slot 213 */
int
Tcl_RegExpExec(interp, regexp, str, start)
    Tcl_Interp * interp;
    Tcl_RegExp regexp;
    CONST char * str;
    CONST char * start;
{
    return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, str, start);
}

/* Slot 214 */
int
Tcl_RegExpMatch(interp, str, pattern)
    Tcl_Interp * interp;
    char * str;
    char * pattern;
{
    return (tclStubsPtr->tcl_RegExpMatch)(interp, str, pattern);
}

/* Slot 215 */
void
Tcl_RegExpRange(regexp, index, startPtr, endPtr)
    Tcl_RegExp regexp;
    int index;
    char ** startPtr;
    char ** endPtr;
{
    (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr);
}

/* Slot 216 */
void
Tcl_Release(clientData)
    ClientData clientData;
{
    (tclStubsPtr->tcl_Release)(clientData);
}

/* Slot 217 */
void
Tcl_ResetResult(interp)
    Tcl_Interp * interp;
{
    (tclStubsPtr->tcl_ResetResult)(interp);
}

/* Slot 218 */
int
Tcl_ScanElement(str, flagPtr)
    CONST char * str;
    int * flagPtr;
{
    return (tclStubsPtr->tcl_ScanElement)(str, flagPtr);
}

/* Slot 219 */
int
Tcl_ScanCountedElement(str, length, flagPtr)
    CONST char * str;
    int length;
    int * flagPtr;
{
    return (tclStubsPtr->tcl_ScanCountedElement)(str, length, flagPtr);
}

/* Slot 220 */
int
Tcl_Seek(chan, offset, mode)
    Tcl_Channel chan;
    int offset;
    int mode;
{
    return (tclStubsPtr->tcl_Seek)(chan, offset, mode);
}

/* Slot 221 */
int
Tcl_ServiceAll()
{
    return (tclStubsPtr->tcl_ServiceAll)();
}

/* Slot 222 */
int
Tcl_ServiceEvent(flags)
    int flags;
{
    return (tclStubsPtr->tcl_ServiceEvent)(flags);
}

/* Slot 223 */
void
Tcl_SetAssocData(interp, name, proc, clientData)
    Tcl_Interp * interp;
    char * name;
    Tcl_InterpDeleteProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData);
}

/* Slot 224 */
void
Tcl_SetChannelBufferSize(chan, sz)
    Tcl_Channel chan;
    int sz;
{
    (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz);
}

/* Slot 225 */
int
Tcl_SetChannelOption(interp, chan, optionName, newValue)
    Tcl_Interp * interp;
    Tcl_Channel chan;
    char * optionName;
    char * newValue;
{
    return (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue);
}

/* Slot 226 */
int
Tcl_SetCommandInfo(interp, cmdName, infoPtr)
    Tcl_Interp * interp;
    char * cmdName;
    Tcl_CmdInfo * infoPtr;
{
    return (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr);
}

/* Slot 227 */
void
Tcl_SetErrno(err)
    int err;
{
    (tclStubsPtr->tcl_SetErrno)(err);
}

/* Slot 228 */
void
Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp)
{
    Tcl_Interp * var;
    va_list argList;

    var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList);

    (tclStubsPtr->tcl_SetErrorCodeVA)(var, argList);
    va_end(argList);
}

/* Slot 229 */
void
Tcl_SetMaxBlockTime(timePtr)
    Tcl_Time * timePtr;
{
    (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr);
}

/* Slot 230 */
void
Tcl_SetPanicProc(panicProc)
    Tcl_PanicProc * panicProc;
{
    (tclStubsPtr->tcl_SetPanicProc)(panicProc);
}

/* Slot 231 */
int
Tcl_SetRecursionLimit(interp, depth)
    Tcl_Interp * interp;
    int depth;
{
    return (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth);
}

/* Slot 232 */
void
Tcl_SetResult(interp, str, freeProc)
    Tcl_Interp * interp;
    char * str;
    Tcl_FreeProc * freeProc;
{
    (tclStubsPtr->tcl_SetResult)(interp, str, freeProc);
}

/* Slot 233 */
int
Tcl_SetServiceMode(mode)
    int mode;
{
    return (tclStubsPtr->tcl_SetServiceMode)(mode);
}

/* Slot 234 */
void
Tcl_SetObjErrorCode(interp, errorObjPtr)
    Tcl_Interp * interp;
    Tcl_Obj * errorObjPtr;
{
    (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr);
}

/* Slot 235 */
void
Tcl_SetObjResult(interp, resultObjPtr)
    Tcl_Interp * interp;
    Tcl_Obj * resultObjPtr;
{
    (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr);
}

/* Slot 236 */
void
Tcl_SetStdChannel(channel, type)
    Tcl_Channel channel;
    int type;
{
    (tclStubsPtr->tcl_SetStdChannel)(channel, type);
}

/* Slot 237 */
char *
Tcl_SetVar(interp, varName, newValue, flags)
    Tcl_Interp * interp;
    char * varName;
    char * newValue;
    int flags;
{
    return (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags);
}

/* Slot 238 */
char *
Tcl_SetVar2(interp, part1, part2, newValue, flags)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    char * newValue;
    int flags;
{
    return (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags);
}

/* Slot 239 */
char *
Tcl_SignalId(sig)
    int sig;
{
    return (tclStubsPtr->tcl_SignalId)(sig);
}

/* Slot 240 */
char *
Tcl_SignalMsg(sig)
    int sig;
{
    return (tclStubsPtr->tcl_SignalMsg)(sig);
}

/* Slot 241 */
void
Tcl_SourceRCFile(interp)
    Tcl_Interp * interp;
{
    (tclStubsPtr->tcl_SourceRCFile)(interp);
}

/* Slot 242 */
int
Tcl_SplitList(interp, listStr, argcPtr, argvPtr)
    Tcl_Interp * interp;
    CONST char * listStr;
    int * argcPtr;
    char *** argvPtr;
{
    return (tclStubsPtr->tcl_SplitList)(interp, listStr, argcPtr, argvPtr);
}

/* Slot 243 */
void
Tcl_SplitPath(path, argcPtr, argvPtr)
    CONST char * path;
    int * argcPtr;
    char *** argvPtr;
{
    (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr);
}

/* Slot 244 */
void
Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc)
    Tcl_Interp * interp;
    char * pkgName;
    Tcl_PackageInitProc * initProc;
    Tcl_PackageInitProc * safeInitProc;
{
    (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc);
}

/* Slot 245 */
int
Tcl_StringMatch(str, pattern)
    CONST char * str;
    CONST char * pattern;
{
    return (tclStubsPtr->tcl_StringMatch)(str, pattern);
}

/* Slot 246 */
int
Tcl_Tell(chan)
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_Tell)(chan);
}

/* Slot 247 */
int
Tcl_TraceVar(interp, varName, flags, proc, clientData)
    Tcl_Interp * interp;
    char * varName;
    int flags;
    Tcl_VarTraceProc * proc;
    ClientData clientData;
{
    return (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData);
}

/* Slot 248 */
int
Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
    Tcl_VarTraceProc * proc;
    ClientData clientData;
{
    return (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData);
}

/* Slot 249 */
char *
Tcl_TranslateFileName(interp, name, bufferPtr)
    Tcl_Interp * interp;
    char * name;
    Tcl_DString * bufferPtr;
{
    return (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr);
}

/* Slot 250 */
int
Tcl_Ungets(chan, str, len, atHead)
    Tcl_Channel chan;
    char * str;
    int len;
    int atHead;
{
    return (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead);
}

/* Slot 251 */
void
Tcl_UnlinkVar(interp, varName)
    Tcl_Interp * interp;
    char * varName;
{
    (tclStubsPtr->tcl_UnlinkVar)(interp, varName);
}

/* Slot 252 */
int
Tcl_UnregisterChannel(interp, chan)
    Tcl_Interp * interp;
    Tcl_Channel chan;
{
    return (tclStubsPtr->tcl_UnregisterChannel)(interp, chan);
}

/* Slot 253 */
int
Tcl_UnsetVar(interp, varName, flags)
    Tcl_Interp * interp;
    char * varName;
    int flags;
{
    return (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags);
}

/* Slot 254 */
int
Tcl_UnsetVar2(interp, part1, part2, flags)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
{
    return (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags);
}

/* Slot 255 */
void
Tcl_UntraceVar(interp, varName, flags, proc, clientData)
    Tcl_Interp * interp;
    char * varName;
    int flags;
    Tcl_VarTraceProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData);
}

/* Slot 256 */
void
Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
    Tcl_VarTraceProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData);
}

/* Slot 257 */
void
Tcl_UpdateLinkedVar(interp, varName)
    Tcl_Interp * interp;
    char * varName;
{
    (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName);
}

/* Slot 258 */
int
Tcl_UpVar(interp, frameName, varName, localName, flags)
    Tcl_Interp * interp;
    char * frameName;
    char * varName;
    char * localName;
    int flags;
{
    return (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags);
}

/* Slot 259 */
int
Tcl_UpVar2(interp, frameName, part1, part2, localName, flags)
    Tcl_Interp * interp;
    char * frameName;
    char * part1;
    char * part2;
    char * localName;
    int flags;
{
    return (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags);
}

/* Slot 260 */
int
Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp)
{
    Tcl_Interp * var;
    va_list argList;
    int resultValue;

    var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList);

    resultValue = (tclStubsPtr->tcl_VarEvalVA)(var, argList);
    va_end(argList);
return resultValue;
}

/* Slot 261 */
ClientData
Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData)
    Tcl_Interp * interp;
    char * varName;
    int flags;
    Tcl_VarTraceProc * procPtr;
    ClientData prevClientData;
{
    return (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData);
}

/* Slot 262 */
ClientData
Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
    Tcl_VarTraceProc * procPtr;
    ClientData prevClientData;
{
    return (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData);
}

/* Slot 263 */
int
Tcl_Write(chan, s, slen)
    Tcl_Channel chan;
    char * s;
    int slen;
{
    return (tclStubsPtr->tcl_Write)(chan, s, slen);
}

/* Slot 264 */
void
Tcl_WrongNumArgs(interp, objc, objv, message)
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
    char * 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, str, termPtr)
    Tcl_Interp * interp;
    char * str;
    char ** termPtr;
{
    return (tclStubsPtr->tcl_ParseVar)(interp, str, 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
Tcl_PanicVA(format, argList)
    char * format;
    va_list argList;
{
    (tclStubsPtr->tcl_PanicVA)(format, argList);
}

/* Slot 279 */
void
Tcl_GetVersion(major, minor, patchLevel, type)
    int * major;
    int * minor;
    int * patchLevel;
    int * type;
{
    (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type);
}

/* Slot 280 is reserved */
/* Slot 281 is reserved */
/* Slot 282 is reserved */
/* Slot 283 is reserved */
/* Slot 284 is reserved */
/* Slot 285 is reserved */
/* Slot 286 */
void
Tcl_AppendObjToObj(objPtr, appendObjPtr)
    Tcl_Obj * objPtr;
    Tcl_Obj * appendObjPtr;
{
    (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr);
}

/* Slot 287 */
Tcl_Encoding
Tcl_CreateEncoding(typePtr)
    Tcl_EncodingType * typePtr;
{
    return (tclStubsPtr->tcl_CreateEncoding)(typePtr);
}

/* Slot 288 */
void
Tcl_CreateThreadExitHandler(proc, clientData)
    Tcl_ExitProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData);
}

/* Slot 289 */
void
Tcl_DeleteThreadExitHandler(proc, clientData)
    Tcl_ExitProc * proc;
    ClientData clientData;
{
    (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData);
}

/* Slot 290 */
void
Tcl_DiscardResult(statePtr)
    Tcl_SavedResult * statePtr;
{
    (tclStubsPtr->tcl_DiscardResult)(statePtr);
}

/* Slot 291 */
int
Tcl_EvalEx(interp, script, numBytes, flags)
    Tcl_Interp * interp;
    char * script;
    int numBytes;
    int flags;
{
    return (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags);
}

/* Slot 292 */
int
Tcl_EvalObjv(interp, objc, objv, flags)
    Tcl_Interp * interp;
    int objc;
    Tcl_Obj *CONST objv[];
    int flags;
{
    return (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags);
}

/* Slot 293 */
int
Tcl_EvalObjEx(interp, objPtr, flags)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    int flags;
{
    return (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags);
}

/* Slot 294 */
void
Tcl_ExitThread(status)
    int status;
{
    (tclStubsPtr->tcl_ExitThread)(status);
}

/* Slot 295 */
int
Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr)
    Tcl_Interp * interp;
    Tcl_Encoding encoding;
    CONST char * src;
    int srcLen;
    int flags;
    Tcl_EncodingState * statePtr;
    char * dst;
    int dstLen;
    int * srcReadPtr;
    int * dstWrotePtr;
    int * dstCharsPtr;
{
    return (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr);
}

/* Slot 296 */
char *
Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr)
    Tcl_Encoding encoding;
    CONST char * src;
    int srcLen;
    Tcl_DString * dsPtr;
{
    return (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr);
}

/* Slot 297 */
void
Tcl_FinalizeThread()
{
    (tclStubsPtr->tcl_FinalizeThread)();
}

/* Slot 298 */
void
Tcl_FinalizeNotifier(clientData)
    ClientData clientData;
{
    (tclStubsPtr->tcl_FinalizeNotifier)(clientData);
}

/* Slot 299 */
void
Tcl_FreeEncoding(encoding)
    Tcl_Encoding encoding;
{
    (tclStubsPtr->tcl_FreeEncoding)(encoding);
}

/* Slot 300 */
Tcl_ThreadId
Tcl_GetCurrentThread()
{
    return (tclStubsPtr->tcl_GetCurrentThread)();
}

/* Slot 301 */
Tcl_Encoding
Tcl_GetEncoding(interp, name)
    Tcl_Interp * interp;
    CONST char * name;
{
    return (tclStubsPtr->tcl_GetEncoding)(interp, name);
}

/* Slot 302 */
char *
Tcl_GetEncodingName(encoding)
    Tcl_Encoding encoding;
{
    return (tclStubsPtr->tcl_GetEncodingName)(encoding);
}

/* Slot 303 */
void
Tcl_GetEncodingNames(interp)
    Tcl_Interp * interp;
{
    (tclStubsPtr->tcl_GetEncodingNames)(interp);
}

/* Slot 304 */
int
Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr)
    Tcl_Interp * interp;
    Tcl_Obj * objPtr;
    char ** tablePtr;
    int offset;
    char * msg;
    int flags;
    int * indexPtr;
{
    return (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr);
}

/* Slot 305 */
VOID *
Tcl_GetThreadData(keyPtr, size)
    Tcl_ThreadDataKey * keyPtr;
    int size;
{
    return (tclStubsPtr->tcl_GetThreadData)(keyPtr, size);
}

/* Slot 306 */
Tcl_Obj *
Tcl_GetVar2Ex(interp, part1, part2, flags)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    int flags;
{
    return (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags);
}

/* Slot 307 */
ClientData
Tcl_InitNotifier()
{
    return (tclStubsPtr->tcl_InitNotifier)();
}

/* Slot 308 */
void
Tcl_MutexLock(mutexPtr)
    Tcl_Mutex * mutexPtr;
{
    (tclStubsPtr->tcl_MutexLock)(mutexPtr);
}

/* Slot 309 */
void
Tcl_MutexUnlock(mutexPtr)
    Tcl_Mutex * mutexPtr;
{
    (tclStubsPtr->tcl_MutexUnlock)(mutexPtr);
}

/* Slot 310 */
void
Tcl_ConditionNotify(condPtr)
    Tcl_Condition * condPtr;
{
    (tclStubsPtr->tcl_ConditionNotify)(condPtr);
}

/* Slot 311 */
void
Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
    Tcl_Condition * condPtr;
    Tcl_Mutex * mutexPtr;
    Tcl_Time * timePtr;
{
    (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr);
}

/* Slot 312 */
int
Tcl_NumUtfChars(src, len)
    CONST char * src;
    int len;
{
    return (tclStubsPtr->tcl_NumUtfChars)(src, len);
}

/* Slot 313 */
int
Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag)
    Tcl_Channel channel;
    Tcl_Obj * objPtr;
    int charsToRead;
    int appendFlag;
{
    return (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag);
}

/* Slot 314 */
void
Tcl_RestoreResult(interp, statePtr)
    Tcl_Interp * interp;
    Tcl_SavedResult * statePtr;
{
    (tclStubsPtr->tcl_RestoreResult)(interp, statePtr);
}

/* Slot 315 */
void
Tcl_SaveResult(interp, statePtr)
    Tcl_Interp * interp;
    Tcl_SavedResult * statePtr;
{
    (tclStubsPtr->tcl_SaveResult)(interp, statePtr);
}

/* Slot 316 */
int
Tcl_SetSystemEncoding(interp, name)
    Tcl_Interp * interp;
    CONST char * name;
{
    return (tclStubsPtr->tcl_SetSystemEncoding)(interp, name);
}

/* Slot 317 */
Tcl_Obj *
Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags)
    Tcl_Interp * interp;
    char * part1;
    char * part2;
    Tcl_Obj * newValuePtr;
    int flags;
{
    return (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags);
}

/* Slot 318 */
void
Tcl_ThreadAlert(threadId)
    Tcl_ThreadId threadId;
{
    (tclStubsPtr->tcl_ThreadAlert)(threadId);
}

/* Slot 319 */
void
Tcl_ThreadQueueEvent(threadId, evPtr, position)
    Tcl_ThreadId threadId;
    Tcl_Event* evPtr;
    Tcl_QueuePosition position;
{
    (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position);
}

/* Slot 320 */
Tcl_UniChar
Tcl_UniCharAtIndex(src, index)
    CONST char * src;
    int index;
{
    return (tclStubsPtr->tcl_UniCharAtIndex)(src, index);
}

/* Slot 321 */
Tcl_UniChar
Tcl_UniCharToLower(ch)
    int ch;
{
    return (tclStubsPtr->tcl_UniCharToLower)(ch);
}

/* Slot 322 */
Tcl_UniChar
Tcl_UniCharToTitle(ch)
    int ch;
{
    return (tclStubsPtr->tcl_UniCharToTitle)(ch);
}

/* Slot 323 */
Tcl_UniChar
Tcl_UniCharToUpper(ch)
    int ch;
{
    return (tclStubsPtr->tcl_UniCharToUpper)(ch);
}

/* Slot 324 */
int
Tcl_UniCharToUtf(ch, buf)
    int ch;
    char * buf;
{
    return (tclStubsPtr->tcl_UniCharToUtf)(ch, buf);
}

/* Slot 325 */
char *
Tcl_UtfAtIndex(src, index)
    CONST char * src;
    int index;
{
    return (tclStubsPtr->tcl_UtfAtIndex)(src, index);
}

/* Slot 326 */
int
Tcl_UtfCharComplete(src, len)
    CONST char * src;
    int len;
{
    return (tclStubsPtr->tcl_UtfCharComplete)(src, len);
}

/* Slot 327 */
int
Tcl_UtfBackslash(src, readPtr, dst)
    CONST char * src;
    int * readPtr;
    char * dst;
{
    return (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst);
}

/* Slot 328 */
char *
Tcl_UtfFindFirst(src, ch)
    CONST char * src;
    int ch;
{
    return (tclStubsPtr->tcl_UtfFindFirst)(src, ch);
}

/* Slot 329 */
char *
Tcl_UtfFindLast(src, ch)
    CONST char * src;
    int ch;
{
    return (tclStubsPtr->tcl_UtfFindLast)(src, ch);
}

/* Slot 330 */
char *
Tcl_UtfNext(src)
    CONST char * src;
{
    return (tclStubsPtr->tcl_UtfNext)(src);
}

/* Slot 331 */
char *
Tcl_UtfPrev(src, start)
    CONST char * src;
    CONST char * start;
{
    return (tclStubsPtr->tcl_UtfPrev)(src, start);
}

/* Slot 332 */
int
Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr)
    Tcl_Interp * interp;
    Tcl_Encoding encoding;
    CONST char * src;
    int srcLen;
    int flags;
    Tcl_EncodingState * statePtr;
    char * dst;
    int dstLen;
    int * srcReadPtr;
    int * dstWrotePtr;
    int * dstCharsPtr;
{
    return (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr);
}

/* Slot 333 */
char *
Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr)
    Tcl_Encoding encoding;
    CONST char * src;
    int srcLen;
    Tcl_DString * dsPtr;
{
    return (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr);
}

/* Slot 334 */
int
Tcl_UtfToLower(src)
    char * src;
{
    return (tclStubsPtr->tcl_UtfToLower)(src);
}

/* Slot 335 */
int
Tcl_UtfToTitle(src)
    char * src;
{
    return (tclStubsPtr->tcl_UtfToTitle)(src);
}

/* Slot 336 */
int
Tcl_UtfToUniChar(src, chPtr)
    CONST char * src;
    Tcl_UniChar * chPtr;
{
    return (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr);
}

/* Slot 337 */
int
Tcl_UtfToUpper(src)
    char * src;
{
    return (tclStubsPtr->tcl_UtfToUpper)(src);
}

/* Slot 338 */
int
Tcl_WriteChars(chan, src, srcLen)
    Tcl_Channel chan;
    CONST char * src;
    int srcLen;
{
    return (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen);
}

/* Slot 339 */
int
Tcl_WriteObj(chan, objPtr)
    Tcl_Channel chan;
    Tcl_Obj * objPtr;
{
    return (tclStubsPtr->tcl_WriteObj)(chan, objPtr);
}

/* Slot 340 */
char *
Tcl_GetString(objPtr)
    Tcl_Obj * objPtr;
{
    return (tclStubsPtr->tcl_GetString)(objPtr);
}

/* Slot 341 */
char *
Tcl_GetDefaultEncodingDir()
{
    return (tclStubsPtr->tcl_GetDefaultEncodingDir)();
}

/* Slot 342 */
void
Tcl_SetDefaultEncodingDir(path)
    char * path;
{
    (tclStubsPtr->tcl_SetDefaultEncodingDir)(path);
}

/* Slot 343 */
void
Tcl_AlertNotifier(clientData)
    ClientData clientData;
{
    (tclStubsPtr->tcl_AlertNotifier)(clientData);
}

/* Slot 344 */
void
Tcl_ServiceModeHook(mode)
    int mode;
{
    (tclStubsPtr->tcl_ServiceModeHook)(mode);
}


/* !END!: Do not edit above this line. */