# tclInt.decls --

 #

 #	This file contains the declarations for all unsupported

 #	functions that are exported by the Tcl library.  This file

 #	is used to generate the tclIntDecls.h, tclIntPlatDecls.h,

 #	tclIntStub.c, tclPlatStub.c, tclCompileDecls.h and tclCompileStub.c

 #	files

 #

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

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

 #

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

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

 # 

 # RCS: @(#) $Id: tclInt.decls,v 1.59.2.7 2007/04/21 19:52:14 kennykb Exp $

 library tcl

 # Define the unsupported generic interfaces.

 interface tclInt

 # Declare each of the functions in the unsupported internal Tcl

 # interface.  These interfaces are allowed to changed between versions.

 # Use at your own risk.  Note that the position of functions should not

 # be changed between versions to avoid gratuitous incompatibilities.

 # Replaced by Tcl_FSAccess in 8.4:

 #declare 0 generic {

 #    int TclAccess(CONST char *path, int mode)

 #}

 declare 1 generic {

     int TclAccessDeleteProc(TclAccessProc_ *proc)

 }

 declare 2 generic {

     int TclAccessInsertProc(TclAccessProc_ *proc)

 }

 declare 3 generic {

     void TclAllocateFreeObjects(void)

 }

 # Replaced by TclpChdir in 8.1:

 #  declare 4 generic {   

 #      int TclChdir(Tcl_Interp *interp, char *dirName)

 #  }

 declare 5 {unix win} {

     int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr,

 	    Tcl_Channel errorChan)

 }

 declare 6 generic {

     void TclCleanupCommand(Command *cmdPtr)

 }

 declare 7 generic {

     int TclCopyAndCollapse(int count, CONST char *src, char *dst)

 }

 declare 8 generic {

     int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan,

 	    Tcl_Channel outChan, int toRead, Tcl_Obj *cmdPtr)

 }

 # TclCreatePipeline unofficially exported for use by BLT.

 declare 9 {unix win} {

     int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv,

 	    Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr,

 	    TclFile *errFilePtr)

 }

 declare 10 generic {

     int TclCreateProc(Tcl_Interp *interp, Namespace *nsPtr, 

 	    CONST char *procName,

 	    Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr)

 }

 declare 11 generic {

     void TclDeleteCompiledLocalVars(Interp *iPtr, CallFrame *framePtr)

 }

 declare 12 generic {

     void TclDeleteVars(Interp *iPtr, Tcl_HashTable *tablePtr)

 }

 declare 13 generic {

     int TclDoGlob(Tcl_Interp *interp, char *separators,

 	    Tcl_DString *headPtr, char *tail, Tcl_GlobTypeData *types)

 }

 declare 14 generic {

     void TclDumpMemoryInfo(FILE *outFile)

 }

 # Removed in 8.1:

 #  declare 15 generic {

 #      void TclExpandParseValue(ParseValue *pvPtr, int needed)

 #  }

 declare 16 generic {

     void TclExprFloatError(Tcl_Interp *interp, double value)

 }

 # Removed in 8.4

 #declare 17 generic {

 #    int TclFileAttrsCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])

 #}

 #declare 18 generic {

 #    int TclFileCopyCmd(Tcl_Interp *interp, int argc, char **argv)

 #}

 #declare 19 generic {

 #    int TclFileDeleteCmd(Tcl_Interp *interp, int argc, char **argv)

 #}

 #declare 20 generic {

 #    int TclFileMakeDirsCmd(Tcl_Interp *interp, int argc, char **argv)

 #}

 #declare 21 generic {

 #    int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv)

 #}

 declare 22 generic {

     int TclFindElement(Tcl_Interp *interp, CONST char *listStr,

 	    int listLength, CONST char **elementPtr, CONST char **nextPtr,

 	    int *sizePtr, int *bracePtr)

 }

 declare 23 generic {

     Proc * TclFindProc(Interp *iPtr, CONST char *procName)

 }

 declare 24 generic {

     int TclFormatInt(char *buffer, long n)

 }

 declare 25 generic {

     void TclFreePackageInfo(Interp *iPtr)

 }

 # Removed in 8.1:

 #  declare 26 generic {	

 #      char * TclGetCwd(Tcl_Interp *interp)

 #  }

 declare 27 generic {

     int TclGetDate(char *p, Tcl_WideInt now, long zone,

 	    Tcl_WideInt *timePtr)

 }

 declare 28 generic {

     Tcl_Channel TclpGetDefaultStdChannel(int type)

 }

 # Removed in 8.4b2:

 #declare 29 generic {

 #    Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp,

 #	    int localIndex, Tcl_Obj *elemPtr, int flags)

 #}

 # Replaced by char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) in 8.1:

 #  declare 30 generic {

 #      char * TclGetEnv(CONST char *name)

 #  }

 declare 31 generic {

     char * TclGetExtension(char *name)

 }

 declare 32 generic {

     int TclGetFrame(Tcl_Interp *interp, CONST char *str,

 	    CallFrame **framePtrPtr)

 }

 declare 33 generic {

     TclCmdProcType TclGetInterpProc(void)

 }

 declare 34 generic {

     int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr,

 	    int endValue, int *indexPtr)

 }

 # Removed in 8.4b2:

 #declare 35 generic {

 #    Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex,

 #	    int flags)

 #}

 declare 36 generic {

     int TclGetLong(Tcl_Interp *interp, CONST char *str, long *longPtr)

 }

 declare 37 generic {

     int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)

 }

 declare 38 generic {

     int TclGetNamespaceForQualName(Tcl_Interp *interp, CONST char *qualName,

 	    Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr,

 	    Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr,

 	    CONST char **simpleNamePtr)

 }

 declare 39 generic {

     TclObjCmdProcType TclGetObjInterpProc(void)

 }

 declare 40 generic {

     int TclGetOpenMode(Tcl_Interp *interp, CONST char *str, int *seekFlagPtr)

 }

 declare 41 generic {

     Tcl_Command TclGetOriginalCommand(Tcl_Command command)

 }

 declare 42 generic {

     char * TclpGetUserHome(CONST char *name, Tcl_DString *bufferPtr)

 }

 declare 43 generic {

     int TclGlobalInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)

 }

 declare 44 generic {

     int TclGuessPackageName(CONST char *fileName, Tcl_DString *bufPtr)

 }

 declare 45 generic {

     int TclHideUnsafeCommands(Tcl_Interp *interp)

 }

 declare 46 generic {

     int TclInExit(void)

 }

 # Removed in 8.4b2:

 #declare 47 generic {

 #    Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp,

 #	    int localIndex, Tcl_Obj *elemPtr, long incrAmount)

 #}

 # Removed in 8.4b2:

 #declare 48 generic {

 #    Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex,

 #	    long incrAmount)

 #}

 declare 49 generic {

     Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr,

 	    Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed)

 }

 declare 50 generic {

     void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr,

 	    Namespace *nsPtr)

 }

 declare 51 generic {

     int TclInterpInit(Tcl_Interp *interp)

 }

 declare 52 generic {

     int TclInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)

 }

 declare 53 generic {

     int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp,

 	    int argc, CONST84 char **argv)

 }

 declare 54 generic {

     int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp,

 	    int objc, Tcl_Obj *CONST objv[])

 }

 declare 55 generic {

     Proc * TclIsProc(Command *cmdPtr)

 }

 # Replaced with TclpLoadFile in 8.1:

 #  declare 56 generic {

 #      int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,

 #  	    char *sym2, Tcl_PackageInitProc **proc1Ptr,

 #  	    Tcl_PackageInitProc **proc2Ptr)

 #  }

 # Signature changed to take a length in 8.1:

 #  declare 57 generic {

 #      int TclLooksLikeInt(char *p)

 #  }

 declare 58 generic {

     Var * TclLookupVar(Tcl_Interp *interp, CONST char *part1, CONST char *part2,

 	    int flags, CONST char *msg, int createPart1, int createPart2,

 	    Var **arrayPtrPtr)

 }

 # Replaced by Tcl_FSMatchInDirectory in 8.4

 #declare 59 generic {

 #    int TclpMatchFiles(Tcl_Interp *interp, char *separators,

 #	    Tcl_DString *dirPtr, char *pattern, char *tail)

 #}

 declare 60 generic {

     int TclNeedSpace(CONST char *start, CONST char *end)

 }

 declare 61 generic {

     Tcl_Obj * TclNewProcBodyObj(Proc *procPtr)

 }

 declare 62 generic {

     int TclObjCommandComplete(Tcl_Obj *cmdPtr)

 }

 declare 63 generic {

     int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp,

 	    int objc, Tcl_Obj *CONST objv[])

 }

 declare 64 generic {

     int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],

 	    int flags)

 }

 declare 65 generic {

     int TclObjInvokeGlobal(Tcl_Interp *interp, int objc,

 	    Tcl_Obj *CONST objv[], int flags)

 }

 declare 66 generic {

     int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc)

 }

 declare 67 generic {

     int TclOpenFileChannelInsertProc(TclOpenFileChannelProc_ *proc)

 }

 # Replaced by Tcl_FSAccess in 8.4:

 #declare 68 generic {

 #    int TclpAccess(CONST char *path, int mode)

 #}

 declare 69 generic {

     char * TclpAlloc(unsigned int size)

 }

 #declare 70 generic {

 #    int TclpCopyFile(CONST char *source, CONST char *dest)

 #}

 #declare 71 generic {

 #    int TclpCopyDirectory(CONST char *source, CONST char *dest,

 #	    Tcl_DString *errorPtr)

 #}

 #declare 72 generic {

 #    int TclpCreateDirectory(CONST char *path)

 #}

 #declare 73 generic {

 #    int TclpDeleteFile(CONST char *path)

 #}

 declare 74 generic {

     void TclpFree(char *ptr)

 }

 declare 75 generic {

     unsigned long TclpGetClicks(void)

 }

 declare 76 generic {

     unsigned long TclpGetSeconds(void)

 }

 # deprecated

 declare 77 generic {

     void TclpGetTime(Tcl_Time *time)

 }

 declare 78 generic {

     int TclpGetTimeZone(Tcl_WideInt time)

 }

 # Replaced by Tcl_FSListVolumes in 8.4:

 #declare 79 generic {

 #    int TclpListVolumes(Tcl_Interp *interp)

 #}

 # Replaced by Tcl_FSOpenFileChannel in 8.4:

 #declare 80 generic {

 #    Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName,

 #	    char *modeString, int permissions)

 #}

 declare 81 generic {

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

 }

 #declare 82 generic {

 #    int TclpRemoveDirectory(CONST char *path, int recursive,

 #	    Tcl_DString *errorPtr)

 #}

 #declare 83 generic {

 #    int TclpRenameFile(CONST char *source, CONST char *dest)

 #}

 # Removed in 8.1:

 #  declare 84 generic {

 #      int TclParseBraces(Tcl_Interp *interp, char *str, char **termPtr,

 #  	    ParseValue *pvPtr)

 #  }

 #  declare 85 generic {

 #      int TclParseNestedCmd(Tcl_Interp *interp, char *str, int flags,

 #  	    char **termPtr, ParseValue *pvPtr)

 #  }

 #  declare 86 generic {

 #      int TclParseQuotes(Tcl_Interp *interp, char *str, int termChar,

 #  	    int flags, char **termPtr, ParseValue *pvPtr)

 #  }

 #  declare 87 generic {

 #      void TclPlatformInit(Tcl_Interp *interp)

 #  }

 declare 88 generic {

     char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp,

 	    CONST char *name1, CONST char *name2, int flags)

 }

 declare 89 generic {

     int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp,

 	    Tcl_Command cmd)

 }

 # Removed in 8.1 (only available if compiled with TCL_COMPILE_DEBUG):

 #  declare 90 generic {

 #      void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr)

 #  }

 declare 91 generic {

     void TclProcCleanupProc(Proc *procPtr)

 }

 declare 92 generic {

     int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr,

 	    Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description,

 	    CONST char *procName)

 }

 declare 93 generic {

     void TclProcDeleteProc(ClientData clientData)

 }

 declare 94 generic {

     int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp,

 	    int argc, CONST84 char **argv)

 }

 # Replaced by Tcl_FSStat in 8.4:

 #declare 95 generic {

 #    int TclpStat(CONST char *path, Tcl_StatBuf *buf)

 #}

 declare 96 generic {

     int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName)

 }

 declare 97 generic {

     void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr)

 }

 declare 98 generic {

     int TclServiceIdle(void)

 }

 # Removed in 8.4b2:

 #declare 99 generic {

 #    Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, int localIndex,

 #	    Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int flags)

 #}

 # Removed in 8.4b2:

 #declare 100 generic {

 #    Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex,

 #	    Tcl_Obj *objPtr, int flags)

 #}

 declare 101 generic {

     char * TclSetPreInitScript(char *string)

 }

 declare 102 generic {

     void TclSetupEnv(Tcl_Interp *interp)

 }

 declare 103 generic {

     int TclSockGetPort(Tcl_Interp *interp, char *str, char *proto,

 	    int *portPtr)

 }

 declare 104 {unix win} {

     int TclSockMinimumBuffers(int sock, int size)

 }

 # Replaced by Tcl_FSStat in 8.4:

 #declare 105 generic {

 #    int TclStat(CONST char *path, Tcl_StatBuf *buf)

 #}

 declare 106 generic {

     int TclStatDeleteProc(TclStatProc_ *proc)

 }

 declare 107 generic {

     int TclStatInsertProc(TclStatProc_ *proc)

 }

 declare 108 generic {

     void TclTeardownNamespace(Namespace *nsPtr)

 }

 declare 109 generic {

     int TclUpdateReturnInfo(Interp *iPtr)

 }

 # Removed in 8.1:

 #  declare 110 generic {

 #      char * TclWordEnd(char *start, char *lastChar, int nested, int *semiPtr)

 #  }

 # Procedures used in conjunction with Tcl namespaces. They are

 # defined here instead of in tcl.decls since they are not stable yet.

 declare 111 generic {

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

 	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,

 	    Tcl_ResolveCompiledVarProc *compiledVarProc)

 }

 declare 112 generic {

     int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr,

 	    Tcl_Obj *objPtr)

 }

 declare 113 generic {

     Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, CONST char *name,

 	    ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc)

 }

 declare 114 generic {

     void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr)

 }

 declare 115 generic {

     int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr,

 	    CONST char *pattern, int resetListFirst)

 }

 declare 116 generic {

     Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, CONST char *name,

 	    Tcl_Namespace *contextNsPtr, int flags)

 }

 declare 117 generic {

     Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, CONST char *name,

 	    Tcl_Namespace *contextNsPtr, int flags)

 }

 declare 118 generic {

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

 	    Tcl_ResolverInfo *resInfo)

 }

 declare 119 generic {

     int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr,

 	    Tcl_ResolverInfo *resInfo)

 }

 declare 120 generic {

     Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, CONST char *name,

 	    Tcl_Namespace *contextNsPtr, int flags)

 }

 declare 121 generic {

     int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr,

 	    CONST char *pattern)

 }

 declare 122 generic {

     Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr)

 }

 declare 123 generic {

     void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command,

 	    Tcl_Obj *objPtr)

 }

 declare 124 generic {

     Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp)

 }

 declare 125 generic {

     Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp)

 }

 declare 126 generic {

     void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable,

 	    Tcl_Obj *objPtr)

 }

 declare 127 generic {

     int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr,

 	    CONST char *pattern, int allowOverwrite)

 }

 declare 128 generic {

     void Tcl_PopCallFrame(Tcl_Interp* interp)

 }

 declare 129 generic {

     int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr,

 	    Tcl_Namespace *nsPtr, int isProcCallFrame)

 } 

 declare 130 generic {

     int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, CONST char *name)

 }

 declare 131 generic {

     void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr,

 	    Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc,

 	    Tcl_ResolveCompiledVarProc *compiledVarProc)

 }

 declare 132 generic {

     int TclpHasSockets(Tcl_Interp *interp)

 }

 declare 133 generic {

     struct tm *	TclpGetDate(TclpTime_t time, int useGMT)

 }

 declare 134 generic {

     size_t TclpStrftime(char *s, size_t maxsize, CONST char *format,

 	    CONST struct tm *t, int useGMT)

 }

 declare 135 generic {

     int TclpCheckStackSpace(void)

 }

 # Added in 8.1:

 #declare 137 generic {

 #   int TclpChdir(CONST char *dirName)

 #}

 declare 138 generic {

     CONST84_RETURN char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr)

 }

 #declare 139 generic {

 #    int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1,

 #	    char *sym2, Tcl_PackageInitProc **proc1Ptr,

 #	    Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr)

 #}

 declare 140 generic {

     int TclLooksLikeInt(CONST char *bytes, int length)

 }

 # This is used by TclX, but should otherwise be considered private

 declare 141 generic {

     CONST84_RETURN char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)

 }

 declare 142 generic {

     int TclSetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr,

 	    CompileHookProc *hookProc, ClientData clientData)

 }

 declare 143 generic {

     int TclAddLiteralObj(struct CompileEnv *envPtr, Tcl_Obj *objPtr,

 	    LiteralEntry **litPtrPtr)

 }

 declare 144 generic {

     void TclHideLiteral(Tcl_Interp *interp, struct CompileEnv *envPtr,

 	    int index)

 }

 declare 145 generic {

     struct AuxDataType *TclGetAuxDataType(char *typeName)

 }

 declare 146 generic {

     TclHandle TclHandleCreate(VOID *ptr)

 }

 declare 147 generic {

     void TclHandleFree(TclHandle handle)

 }

 declare 148 generic {

     TclHandle TclHandlePreserve(TclHandle handle)

 }

 declare 149 generic {

     void TclHandleRelease(TclHandle handle)

 }

 # Added for Tcl 8.2

 declare 150 generic {

     int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re)

 }

 declare 151 generic {

     void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr,

 	    int *endPtr)

 }

 declare 152 generic {

     void TclSetLibraryPath(Tcl_Obj *pathPtr)

 }

 declare 153 generic {

     Tcl_Obj *TclGetLibraryPath(void)

 }

 # moved to tclTest.c (static) in 8.3.2/8.4a2

 #declare 154 generic {

 #    int TclTestChannelCmd(ClientData clientData,

 #    Tcl_Interp *interp, int argc, char **argv)

 #}

 #declare 155 generic {

 #    int TclTestChannelEventCmd(ClientData clientData,

 #	     Tcl_Interp *interp, int argc, char **argv)

 #}

 declare 156 generic {

     void TclRegError (Tcl_Interp *interp, CONST char *msg,

 	    int status)

 }

 declare 157 generic {

     Var * TclVarTraceExists (Tcl_Interp *interp, CONST char *varName)

 }

 declare 158 generic {

     void TclSetStartupScriptFileName(CONST char *filename)

 }

 declare 159 generic {

     CONST84_RETURN char *TclGetStartupScriptFileName(void)

 }

 #declare 160 generic {

 #    int TclpMatchFilesTypes(Tcl_Interp *interp, char *separators,

 #	    Tcl_DString *dirPtr, char *pattern, char *tail, GlobTypeData *types)

 #}

 # new in 8.3.2/8.4a2

 declare 161 generic {

     int TclChannelTransform(Tcl_Interp *interp, Tcl_Channel chan,

 	    Tcl_Obj *cmdObjPtr)

 }

 declare 162 generic {

     void TclChannelEventScriptInvoker(ClientData clientData, int flags)

 }

 # ALERT: The result of 'TclGetInstructionTable' is actually an

 # "InstructionDesc*" but we do not want to describe this structure in

 # "tclInt.h". It is described in "tclCompile.h". Use a cast to the

 # correct type when calling this procedure.

 declare 163 generic {

 	void * TclGetInstructionTable (void)

 }

 # ALERT: The argument of 'TclExpandCodeArray' is actually a

 # "CompileEnv*" but we do not want to describe this structure in

 # "tclInt.h". It is described in "tclCompile.h".

 declare 164 generic {

 	void TclExpandCodeArray (void *envPtr)

 }

 # These functions are vfs aware, but are generally only useful internally.

 declare 165 generic {

     void TclpSetInitialEncodings(void)

 }

 # New function due to TIP #33

 declare 166 generic {

     int TclListObjSetElement(Tcl_Interp *interp, Tcl_Obj *listPtr, 

 	    int index, Tcl_Obj *valuePtr)

 }

 # VFS-aware versions of Tcl*StartupScriptFileName (158 and 159 above)

 declare 167 generic {

     void TclSetStartupScriptPath(Tcl_Obj *pathPtr)

 }

 declare 168 generic {

     Tcl_Obj *TclGetStartupScriptPath(void)

 }

 # variant of Tcl_UtfNCmp that takes n as bytes, not chars

 declare 169 generic {

     int TclpUtfNcmp2(CONST char *s1, CONST char *s2, unsigned long n)

 }

 declare 170 generic {

     int TclCheckInterpTraces (Tcl_Interp *interp, CONST char *command, int numChars, \

             Command *cmdPtr, int result, int traceFlags, int objc, \

 	    Tcl_Obj *CONST objv[])

 }

 declare 171 generic {

     int TclCheckExecutionTraces (Tcl_Interp *interp, CONST char *command, int numChars, \

             Command *cmdPtr, int result, int traceFlags, int objc, \

 	    Tcl_Obj *CONST objv[])

 }

 declare 172 generic {

     int TclInThreadExit(void)

 }

 # added for 8.4.2

 declare 173 generic {

     int TclUniCharMatch (CONST Tcl_UniChar *string, int strLen, \

 	    CONST Tcl_UniChar *pattern, int ptnLen, int nocase)

 }

 # TclpGmtime and TclpLocaltime promoted to the generic interface from unix

 declare 182 generic {

      struct tm *TclpLocaltime(TclpTime_t_CONST clock)

 }

 declare 183 generic {

      struct tm *TclpGmtime(TclpTime_t_CONST clock)

 }

 declare 199 generic {

     int TclMatchIsTrivial(CONST char *pattern)

 }

 ##############################################################################

 # Define the platform specific internal Tcl interface. These functions are

 # only available on the designated platform.

 interface tclIntPlat

 ########################

 # Mac specific internals

 declare 0 mac {

     VOID * TclpSysAlloc(long size, int isBin)

 }

 declare 1 mac {

     void TclpSysFree(VOID *ptr)

 }

 declare 2 mac {

     VOID * TclpSysRealloc(VOID *cp, unsigned int size)

 }

 declare 3 mac {

     void TclpExit(int status)

 }

 # Prototypes for functions found in the tclMacUtil.c compatability library.

 declare 4 mac {

     int FSpGetDefaultDir(FSSpecPtr theSpec)

 }

 declare 5 mac {

     int FSpSetDefaultDir(FSSpecPtr theSpec)

 }

 declare 6 mac {

     OSErr FSpFindFolder(short vRefNum, OSType folderType,

 	    Boolean createFolder, FSSpec *spec)

 }

 declare 7 mac {

     void GetGlobalMouseTcl(Point *mouse)

 }

 # The following routines are utility functions in Tcl.  They are exported

 # here because they are needed in Tk.  They are not officially supported,

 # however.  The first set are from the MoreFiles package.

 declare 8 mac {

     pascal OSErr FSpGetDirectoryIDTcl(CONST FSSpec *spec, long *theDirID,

 	    Boolean *isDirectory)

 }

 declare 9 mac {

     pascal short FSpOpenResFileCompatTcl(CONST FSSpec *spec,

 	    SignedByte permission)

 }

 declare 10 mac {

     pascal void FSpCreateResFileCompatTcl(CONST FSSpec *spec, OSType creator,

 	    OSType fileType, ScriptCode scriptTag)

 }

 # Like the MoreFiles routines these fix problems in the standard

 # Mac calls.  These routines are from tclMacUtils.h.

 declare 11 mac {

     int FSpLocationFromPath(int length, CONST char *path, FSSpecPtr theSpec)

 }

 declare 12 mac {

     OSErr FSpPathFromLocation(FSSpecPtr theSpec, int *length,

 	    Handle *fullPath)

 }

 # Prototypes of Mac only internal functions.

 declare 13 mac {

     void TclMacExitHandler(void)

 }

 declare 14 mac {

     void TclMacInitExitToShell(int usePatch)

 }

 declare 15 mac {

     OSErr TclMacInstallExitToShellPatch(ExitToShellProcPtr newProc)

 }

 declare 16 mac {

     int TclMacOSErrorToPosixError(int error)

 }

 declare 17 mac {

     void TclMacRemoveTimer(void *timerToken)

 }

 declare 18 mac {

     void * TclMacStartTimer(long ms)

 }

 declare 19 mac {

     int TclMacTimerExpired(void *timerToken)

 }

 declare 20 mac {

     int TclMacRegisterResourceFork(short fileRef, Tcl_Obj *tokenPtr,

 	    int insert)

 }	

 declare 21 mac {

     short TclMacUnRegisterResourceFork(char *tokenPtr, Tcl_Obj *resultPtr)

 }	

 declare 22 mac {

     int TclMacCreateEnv(void)

 }

 declare 23 mac {

     FILE * TclMacFOpenHack(CONST char *path, CONST char *mode)

 }

 # Replaced in 8.1 by TclpReadLink:

 #  declare 24 mac {

 #      int TclMacReadlink(char *path, char *buf, int size)

 #  }

 declare 24 mac {

     char * TclpGetTZName(int isdst)

 }

 declare 25 mac {

     int TclMacChmod(CONST char *path, int mode)

 }

 # version of FSpLocationFromPath that doesn't resolve the last path component

 declare 26 mac {

     int FSpLLocationFromPath(int length, CONST char *path, FSSpecPtr theSpec)

 }

 ############################

 # Windows specific internals

 declare 0 win {

     void TclWinConvertError(DWORD errCode)

 }

 declare 1 win {

     void TclWinConvertWSAError(DWORD errCode)

 }

 declare 2 win {

     struct servent * TclWinGetServByName(CONST char *nm,

 	    CONST char *proto)

 }

 declare 3 win {

     int TclWinGetSockOpt(SOCKET s, int level, int optname,

 	    char FAR * optval, int FAR *optlen)

 }

 declare 4 win {

     HINSTANCE TclWinGetTclInstance(void)

 }

 # Removed in 8.1:

 #  declare 5 win {

 #      HINSTANCE TclWinLoadLibrary(char *name)

 #  }

 declare 6 win {

     u_short TclWinNToHS(u_short ns)

 }

 declare 7 win {

     int TclWinSetSockOpt(SOCKET s, int level, int optname,

 	    CONST char FAR * optval, int optlen)

 }

 declare 8 win {

     unsigned long TclpGetPid(Tcl_Pid pid)

 }

 declare 9 win {

     int TclWinGetPlatformId(void)

 }

 # Removed in 8.3.1 (for Win32s only)

 #declare 10 win {

 #    int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr)

 #}

 # Pipe channel functions

 declare 11 win {

     void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan)

 }

 declare 12 win {

     int TclpCloseFile(TclFile file)

 }

 declare 13 win {

     Tcl_Channel TclpCreateCommandChannel(TclFile readFile,

 	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)

 }

 declare 14 win {

     int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)

 }

 declare 15 win {

     int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,

 	    TclFile inputFile, TclFile outputFile, TclFile errorFile,

 	    Tcl_Pid *pidPtr)

 }

 # Signature changed in 8.1:

 #  declare 16 win {

 #      TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr)

 #  }

 #  declare 17 win {

 #      char * TclpGetTZName(void)

 #  }

 declare 18 win {

     TclFile TclpMakeFile(Tcl_Channel channel, int direction)

 }

 declare 19 win {

     TclFile TclpOpenFile(CONST char *fname, int mode)

 }

 declare 20 win {

     void TclWinAddProcess(HANDLE hProcess, DWORD id)

 }

 # removed permanently for 8.4

 #declare 21 win {

 #    void TclpAsyncMark(Tcl_AsyncHandler async)

 #}

 # Added in 8.1:

 declare 22 win {

     TclFile TclpCreateTempFile(CONST char *contents)

 }

 declare 23 win {

     char * TclpGetTZName(int isdst)

 }

 declare 24 win {

     char * TclWinNoBackslash(char *path)

 }

 declare 25 win {

     TclPlatformType *TclWinGetPlatform(void)

 }

 declare 26 win {

     void TclWinSetInterfaces(int wide)

 }

 # Added in Tcl 8.3.3 / 8.4

 declare 27 win {

     void TclWinFlushDirtyChannels (void)

 }

 # Added in 8.4.2

 declare 28 win {

     void TclWinResetInterfaces(void)

 }

 declare 29 win {

     int TclWinCPUID( unsigned int index, unsigned int *regs )

 }

 #########################

 # Unix specific internals

 # Pipe channel functions

 declare 0 unix {

     void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan)

 }

 declare 1 unix {

     int TclpCloseFile(TclFile file)

 }

 declare 2 unix {

     Tcl_Channel TclpCreateCommandChannel(TclFile readFile,

 	    TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr)

 }

 declare 3 unix {

     int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe)

 }

 declare 4 unix {

     int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv,

 	    TclFile inputFile, TclFile outputFile, TclFile errorFile,

 	    Tcl_Pid *pidPtr)

 }

 # Signature changed in 8.1:

 #  declare 5 unix {

 #      TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr)

 #  }

 declare 6 unix {

     TclFile TclpMakeFile(Tcl_Channel channel, int direction)

 }

 declare 7 unix {

     TclFile TclpOpenFile(CONST char *fname, int mode)

 }

 declare 8 unix {

     int TclUnixWaitForFile(int fd, int mask, int timeout)

 }

 # Added in 8.1:

 declare 9 unix {

     TclFile TclpCreateTempFile(CONST char *contents)

 }

 # Added in 8.4:

 declare 10 unix {

     Tcl_DirEntry * TclpReaddir(DIR * dir)

 }

 # Slots 11 and 12 are forwarders for functions that were promoted to

 # generic Stubs

 declare 11 unix {

     struct tm * TclpLocaltime_unix(TclpTime_t_CONST clock)

 }

 declare 12 unix {

     struct tm * TclpGmtime_unix(TclpTime_t_CONST clock)

 }

 declare 13 unix {

     char * TclpInetNtoa(struct in_addr addr)

 }