From 78fd70c5b692ba5346a7c00addcc18de7a1bb7cd Mon Sep 17 00:00:00 2001 From: stanton Date: Mon, 8 Mar 1999 22:25:29 +0000 Subject: * win/tclWinInt.h: * generic/tclInt.h: * generic/tclIntDecls.h: * generic/tclIntPlatDecls.h: * generic/tclIntPlatStubs.c: * generic/tclIntStubs.c: * generic/tclStubInit.c: * generic/tclInt.decls: Removed initialization and finalization routines from the stub table since these should never be called by an extension. --- ChangeLog | 15 +- generic/tclInt.decls | 286 +++++---- generic/tclInt.h | 15 +- generic/tclIntDecls.h | 1253 ++++++++++++++++++++++++++++++++++++++ generic/tclIntPlatDecls.h | 495 +++++++++++++++ generic/tclIntPlatStubs.c | 536 +++++++++++++++++ generic/tclIntStubs.c | 1453 +++++++++++++++++++++++++++++++++++++++++++++ generic/tclStubInit.c | 278 +++++---- win/tclWinInt.h | 10 +- 9 files changed, 4041 insertions(+), 300 deletions(-) create mode 100644 generic/tclIntDecls.h create mode 100644 generic/tclIntPlatDecls.h create mode 100644 generic/tclIntPlatStubs.c create mode 100644 generic/tclIntStubs.c diff --git a/ChangeLog b/ChangeLog index 0ca3aa9..204eb77 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,16 @@ +1999-03-08 + + * win/tclWinInt.h: + * generic/tclInt.h: + * generic/tclIntDecls.h: + * generic/tclIntPlatDecls.h: + * generic/tclIntPlatStubs.c: + * generic/tclIntStubs.c: + * generic/tclStubInit.c: + * generic/tclInt.decls: Removed initialization and finalization + routines from the stub table since these should never be called by + an extension. + 1999-03-06 * unix/Makefile.in: @@ -31,7 +44,7 @@ executables have a different search strategy for dynamically loadable stub-enabled extensions than executables using shared libraries. This effects extensions which load other - libraries in turnq. + libraries in turn. * generic/tclCompile.h: * generic/tclStubInit.c: diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 3b12a84..83abadd 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,7 @@ # 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.2.2.2 1999/03/06 21:19:57 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.2.2.3 1999/03/08 22:25:29 stanton Exp $ library tcl @@ -99,398 +99,386 @@ declare 21 generic { int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv) } declare 22 generic { - void TclFinalizeCompExecEnv(void) -} -declare 23 generic { - void TclFinalizeEnvironment(void) -} -declare 24 generic { - void TclFinalizeExecEnv(void) -} -declare 25 generic { int TclFindElement(Tcl_Interp *interp, char *list, int listLength, \ char **elementPtr, char **nextPtr, int *sizePtr, int *bracePtr) } -declare 26 generic { +declare 23 generic { Proc * TclFindProc(Interp *iPtr, char *procName) } -declare 27 generic { +declare 24 generic { int TclFormatInt(char *buffer, long n) } -declare 28 generic { +declare 25 generic { void TclFreePackageInfo(Interp *iPtr) } -declare 29 generic { +declare 26 generic { char * TclGetCwd(Tcl_Interp *interp) } -declare 30 generic { +declare 27 generic { int TclGetDate(char *p, unsigned long now, long zone, \ unsigned long *timePtr) } -declare 31 generic { +declare 28 generic { Tcl_Channel TclGetDefaultStdChannel(int type) } -declare 32 generic { +declare 29 generic { Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg) } -declare 33 generic { +declare 30 generic { char * TclGetEnv(CONST char *name) } -declare 34 generic { +declare 31 generic { char * TclGetExtension(char *name) } -declare 35 generic { +declare 32 generic { int TclGetFrame(Tcl_Interp *interp, char *string, CallFrame **framePtrPtr) } -declare 36 generic { +declare 33 generic { TclCmdProcType TclGetInterpProc(void) } -declare 37 generic { +declare 34 generic { int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr, \ int endValue, int *indexPtr) } -declare 38 generic { +declare 35 generic { Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex, \ int leaveErrorMsg) } -declare 39 generic { +declare 36 generic { int TclGetLong(Tcl_Interp *interp, char *string, long *longPtr) } -declare 40 generic { +declare 37 generic { int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName) } -declare 41 generic { +declare 38 generic { int TclGetNamespaceForQualName(Tcl_Interp *interp, char *qualName, \ Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \ Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \ char **simpleNamePtr) } -declare 42 generic { +declare 39 generic { TclObjCmdProcType TclGetObjInterpProc(void) } -declare 43 generic { +declare 40 generic { int TclGetOpenMode(Tcl_Interp *interp, char *string, int *seekFlagPtr) } -declare 44 generic { +declare 41 generic { Tcl_Command TclGetOriginalCommand(Tcl_Command command) } -declare 45 generic { +declare 42 generic { char * TclGetUserHome(char *name, Tcl_DString *bufferPtr) } -declare 46 generic { +declare 43 generic { int TclGlobalInvoke(Tcl_Interp *interp, int argc, char **argv, int flags) } -declare 47 generic { +declare 44 generic { int TclGuessPackageName(char *fileName, Tcl_DString *bufPtr) } -declare 48 generic { +declare 45 generic { int TclHideUnsafeCommands(Tcl_Interp *interp) } -declare 49 generic { +declare 46 generic { int TclInExit(void) } -declare 50 generic { +declare 47 generic { Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, long incrAmount) } -declare 51 generic { +declare 48 generic { Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex, \ long incrAmount) } -declare 52 generic { +declare 49 generic { Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed) } -declare 53 generic { +declare 50 generic { void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr, \ Namespace *nsPtr) } -declare 54 generic { - void TclInitNamespaces(void) -} -declare 55 generic { +declare 51 generic { int TclInterpInit(Tcl_Interp *interp) } -declare 56 generic { +declare 52 generic { int TclInvoke(Tcl_Interp *interp, int argc, char **argv, int flags) } -declare 57 generic { +declare 53 generic { int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp, \ int argc, char **argv) } -declare 58 generic { +declare 54 generic { int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp, \ int objc, Tcl_Obj *CONST objv[]) } -declare 59 generic { +declare 55 generic { Proc * TclIsProc(Command *cmdPtr) } -declare 60 generic { +declare 56 generic { int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ char *sym2, Tcl_PackageInitProc **proc1Ptr, \ Tcl_PackageInitProc **proc2Ptr) } -declare 61 generic { +declare 57 generic { int TclLooksLikeInt(char *p) } -declare 62 generic { +declare 58 generic { Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2, \ int flags, char *msg, int createPart1, int createPart2, \ Var **arrayPtrPtr) } -declare 63 generic { +declare 59 generic { int TclMatchFiles(Tcl_Interp *interp, char *separators, \ Tcl_DString *dirPtr, char *pattern, char *tail) } -declare 64 generic { +declare 60 generic { int TclNeedSpace(char *start, char *end) } -declare 65 generic { +declare 61 generic { Tcl_Obj * TclNewProcBodyObj(Proc *procPtr) } -declare 66 generic { +declare 62 generic { int TclObjCommandComplete(Tcl_Obj *cmdPtr) } -declare 67 generic { +declare 63 generic { int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp, \ int objc, Tcl_Obj *CONST objv[]) } -declare 68 generic { +declare 64 generic { int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \ int flags) } -declare 69 generic { +declare 65 generic { int TclObjInvokeGlobal(Tcl_Interp *interp, int objc, \ Tcl_Obj *CONST objv[], int flags) } -declare 70 generic { +declare 66 generic { int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc) } -declare 71 generic { +declare 67 generic { int TclOpenFileChannelInsertProc(TclOpenFileChannelProc_ *proc) } -declare 72 generic { +declare 68 generic { int TclpAccess(CONST char *path, int mode) } -declare 73 generic { +declare 69 generic { char * TclpAlloc(unsigned int size) } -declare 74 generic { +declare 70 generic { int TclpCopyFile(char *source, char *dest) } -declare 75 generic { +declare 71 generic { int TclpCopyDirectory(char *source, char *dest, Tcl_DString *errorPtr) } -declare 76 generic { +declare 72 generic { int TclpCreateDirectory(char *path) } -declare 77 generic { +declare 73 generic { int TclpDeleteFile(char *path) } -declare 78 generic { +declare 74 generic { void TclpFree(char *ptr) } -declare 79 generic { +declare 75 generic { unsigned long TclpGetClicks(void) } -declare 80 generic { +declare 76 generic { unsigned long TclpGetSeconds(void) } -declare 81 generic { +declare 77 generic { void TclpGetTime(Tcl_Time *time) } -declare 82 generic { +declare 78 generic { int TclpGetTimeZone(unsigned long time) } -declare 83 generic { +declare 79 generic { int TclpListVolumes(Tcl_Interp *interp) } -declare 84 generic { +declare 80 generic { Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName, \ char *modeString, int permissions) } -declare 85 generic { +declare 81 generic { char * TclpRealloc(char *ptr, unsigned int size) } -declare 86 generic { +declare 82 generic { int TclpRemoveDirectory(char *path, int recursive, Tcl_DString *errorPtr) } -declare 87 generic { +declare 83 generic { int TclpRenameFile(char *source, char *dest) } -declare 88 generic { +declare 84 generic { int TclParseBraces(Tcl_Interp *interp, char *string, char **termPtr, \ ParseValue *pvPtr) } -declare 89 generic { +declare 85 generic { int TclParseNestedCmd(Tcl_Interp *interp, char *string, int flags, \ char **termPtr, ParseValue *pvPtr) } -declare 90 generic { +declare 86 generic { int TclParseQuotes(Tcl_Interp *interp, char *string, int termChar, \ int flags, char **termPtr, ParseValue *pvPtr) } -declare 91 generic { +declare 87 generic { void TclPlatformInit(Tcl_Interp *interp) } -declare 92 generic { +declare 88 generic { char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp, \ char *name1, char *name2, int flags) } -declare 93 generic { +declare 89 generic { int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp, \ Tcl_Command cmd) } -declare 94 generic { +declare 90 generic { void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } -declare 95 generic { +declare 91 generic { void TclProcCleanupProc(Proc *procPtr) } -declare 96 generic { +declare 92 generic { int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, \ Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, \ CONST char *procName) } -declare 97 generic { +declare 93 generic { void TclProcDeleteProc(ClientData clientData) } -declare 98 generic { +declare 94 generic { int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp, \ int argc, char **argv) } -declare 99 generic { +declare 95 generic { int TclpStat(CONST char *path, struct stat *buf) } -declare 100 generic { +declare 96 generic { int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName) } -declare 101 generic { +declare 97 generic { void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr) } -declare 102 generic { +declare 98 generic { int TclServiceIdle(void) } -declare 103 generic { +declare 99 generic { Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int leaveErrorMsg) } -declare 104 generic { +declare 100 generic { Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \ Tcl_Obj *objPtr, int leaveErrorMsg) } -declare 105 generic { +declare 101 generic { char * TclSetPreInitScript(char *string) } -declare 106 generic { +declare 102 generic { void TclSetupEnv(Tcl_Interp *interp) } -declare 107 generic { +declare 103 generic { int TclSockGetPort(Tcl_Interp *interp, char *string, char *proto, \ int *portPtr) } -declare 108 generic { +declare 104 generic { int TclSockMinimumBuffers(int sock, int size) } -declare 109 generic { +declare 105 generic { int TclStat(CONST char *path, TclStat_ *buf) } -declare 110 generic { +declare 106 generic { int TclStatDeleteProc(TclStatProc_ *proc) } -declare 111 generic { +declare 107 generic { int TclStatInsertProc(TclStatProc_ *proc) } -declare 112 generic { +declare 108 generic { void TclTeardownNamespace(Namespace *nsPtr) } -declare 113 generic { +declare 109 generic { int TclUpdateReturnInfo(Interp *iPtr) } -declare 114 generic { +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 115 generic { +declare 111 generic { void Tcl_AddInterpResolvers(Tcl_Interp *interp, char *name, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) } -declare 116 generic { +declare 112 generic { int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ Tcl_Obj *objPtr) } -declare 117 generic { +declare 113 generic { Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, char *name, \ ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc) } -declare 118 generic { +declare 114 generic { void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr) } -declare 119 generic { +declare 115 generic { int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, char *pattern, \ int resetListFirst) } -declare 120 generic { +declare 116 generic { Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 121 generic { +declare 117 generic { Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 122 generic { +declare 118 generic { int Tcl_GetInterpResolvers(Tcl_Interp *interp, char *name, \ Tcl_ResolverInfo *resInfo) } -declare 123 generic { +declare 119 generic { int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ Tcl_ResolverInfo *resInfo) } -declare 124 generic { +declare 120 generic { Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 125 generic { +declare 121 generic { int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ char *pattern) } -declare 126 generic { +declare 122 generic { Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } -declare 127 generic { +declare 123 generic { void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, \ Tcl_Obj *objPtr) } -declare 128 generic { +declare 124 generic { Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp) } -declare 129 generic { +declare 125 generic { Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp) } -declare 130 generic { +declare 126 generic { void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable, \ Tcl_Obj *objPtr) } -declare 131 generic { +declare 127 generic { int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ char *pattern, int allowOverwrite) } -declare 132 generic { +declare 128 generic { void Tcl_PopCallFrame(Tcl_Interp* interp) } -declare 133 generic { +declare 129 generic { int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr, \ Tcl_Namespace *nsPtr, int isProcCallFrame) } -declare 134 generic { +declare 130 generic { int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, char *name) } -declare 135 generic { +declare 131 generic { void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) @@ -498,58 +486,58 @@ declare 135 generic { # Compilation procedures for commands in the generic core: -declare 136 generic { +declare 132 generic { int TclCompileBreakCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 137 generic { +declare 133 generic { int TclCompileCatchCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 138 generic { +declare 134 generic { int TclCompileContinueCmd(Tcl_Interp *interp, char *string, \ char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 139 generic { +declare 135 generic { int TclCompileExprCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 140 generic { +declare 136 generic { int TclCompileForCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 141 generic { +declare 137 generic { int TclCompileForeachCmd(Tcl_Interp *interp, char *string, \ char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 142 generic { +declare 138 generic { int TclCompileIfCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 143 generic { +declare 139 generic { int TclCompileIncrCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 144 generic { +declare 140 generic { int TclCompileSetCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 145 generic { +declare 141 generic { int TclCompileWhileCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 146 generic { +declare 142 generic { int TclHasSockets(Tcl_Interp *interp) } -declare 147 generic { +declare 143 generic { struct tm * TclpGetDate(TclpTime_t time, int useGMT) } -declare 148 generic { +declare 144 generic { size_t TclStrftime(char *s, size_t maxsize, const char *format, \ const struct tm *t) } -declare 149 generic { +declare 145 generic { int TclpCheckStackSpace(void) } @@ -698,49 +686,43 @@ declare 8 win { unsigned long TclpGetPid(Tcl_Pid pid) } declare 9 win { - void TclpFinalize(void) -} -declare 10 win { int TclWinGetPlatformId(void) } -declare 11 win { - void TclWinInit(HINSTANCE hInst) -} -declare 12 win { +declare 10 win { int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr) } # Pipe channel functions -declare 13 win { +declare 11 win { void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan) } -declare 14 win { +declare 12 win { int TclpCloseFile(TclFile file) } -declare 15 win { +declare 13 win { Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \ TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr) } -declare 16 win { +declare 14 win { int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) } -declare 17 win { +declare 15 win { int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ TclFile inputFile, TclFile outputFile, TclFile errorFile, \ Tcl_Pid *pidPtr) } -declare 18 win { +declare 16 win { TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr) } -declare 19 win { +declare 17 win { char * TclpGetTZName(void) } -declare 20 win { +declare 18 win { TclFile TclpMakeFile(Tcl_Channel channel, int direction) } -declare 21 win { +declare 19 win { TclFile TclpOpenFile(char *fname, int mode) } diff --git a/generic/tclInt.h b/generic/tclInt.h index c00dc0b..0446205 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.23.4.3 1999/03/06 21:19:58 stanton Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.23.4.4 1999/03/08 22:25:29 stanton Exp $ */ #ifndef _TCLINT @@ -1481,6 +1481,19 @@ extern char * tclEmptyStringRep; /* *---------------------------------------------------------------- + * Declarations of procedures that are not accessible by way of + * the stubs tables. + *---------------------------------------------------------------- + */ + +EXTERN void TclFinalizeCompExecEnv _ANSI_ARGS_((void)); +EXTERN void TclFinalizeEnvironment _ANSI_ARGS_((void)); +EXTERN void TclFinalizeExecEnv _ANSI_ARGS_((void)); +EXTERN void TclInitNamespaces _ANSI_ARGS_((void)); +EXTERN void TclpFinalize _ANSI_ARGS_((void)); + +/* + *---------------------------------------------------------------- * Command procedures in the generic core: *---------------------------------------------------------------- */ diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h new file mode 100644 index 0000000..cbe0ceb --- /dev/null +++ b/generic/tclIntDecls.h @@ -0,0 +1,1253 @@ +/* + * 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.2.4.1 1999/03/08 22:25:30 stanton Exp $ + */ + +#ifndef _TCLINTDECLS +#define _TCLINTDECLS + +/* + * 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 function declarations: + */ + +/* 0 */ +EXTERN int TclAccess _ANSI_ARGS_((CONST char * path, int mode)); +/* 1 */ +EXTERN int TclAccessDeleteProc _ANSI_ARGS_(( + TclAccessProc_ * proc)); +/* 2 */ +EXTERN int TclAccessInsertProc _ANSI_ARGS_(( + TclAccessProc_ * proc)); +/* 3 */ +EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); +/* 4 */ +EXTERN int TclChdir _ANSI_ARGS_((Tcl_Interp * interp, + char * dirName)); +/* 5 */ +EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, + int numPids, Tcl_Pid * pidPtr, + Tcl_Channel errorChan)); +/* 6 */ +EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr)); +/* 7 */ +EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count, + char * src, char * dst)); +/* 8 */ +EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel inChan, Tcl_Channel outChan, + int toRead, Tcl_Obj * cmdPtr)); +/* 9 */ +EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, + Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, + TclFile * outPipePtr, TclFile * errFilePtr)); +/* 10 */ +EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, + Namespace * nsPtr, char * procName, + Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, + Proc ** procPtrPtr)); +/* 11 */ +EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( + Interp * iPtr, CallFrame * framePtr)); +/* 12 */ +EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr, + Tcl_HashTable * tablePtr)); +/* 13 */ +EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, + char * separators, Tcl_DString * headPtr, + char * tail)); +/* 14 */ +EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile)); +/* 15 */ +EXTERN void TclExpandParseValue _ANSI_ARGS_((ParseValue * pvPtr, + int needed)); +/* 16 */ +EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, + double value)); +/* 17 */ +EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[])); +/* 18 */ +EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 19 */ +EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 20 */ +EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 21 */ +EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 22 */ +EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, + char * list, int listLength, + char ** elementPtr, char ** nextPtr, + int * sizePtr, int * bracePtr)); +/* 23 */ +EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr, + char * procName)); +/* 24 */ +EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); +/* 25 */ +EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); +/* 26 */ +EXTERN char * TclGetCwd _ANSI_ARGS_((Tcl_Interp * interp)); +/* 27 */ +EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, + long zone, unsigned long * timePtr)); +/* 28 */ +EXTERN Tcl_Channel TclGetDefaultStdChannel _ANSI_ARGS_((int type)); +/* 29 */ +EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, int leaveErrorMsg)); +/* 30 */ +EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name)); +/* 31 */ +EXTERN char * TclGetExtension _ANSI_ARGS_((char * name)); +/* 32 */ +EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, + char * string, CallFrame ** framePtrPtr)); +/* 33 */ +EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); +/* 34 */ +EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, int endValue, + int * indexPtr)); +/* 35 */ +EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, + int localIndex, int leaveErrorMsg)); +/* 36 */ +EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, + char * string, long * longPtr)); +/* 37 */ +EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( + Tcl_Interp * interp, char * targetName)); +/* 38 */ +EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( + Tcl_Interp * interp, char * qualName, + Namespace * cxtNsPtr, int flags, + Namespace ** nsPtrPtr, + Namespace ** altNsPtrPtr, + Namespace ** actualCxtPtrPtr, + char ** simpleNamePtr)); +/* 39 */ +EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); +/* 40 */ +EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * seekFlagPtr)); +/* 41 */ +EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( + Tcl_Command command)); +/* 42 */ +EXTERN char * TclGetUserHome _ANSI_ARGS_((char * name, + Tcl_DString * bufferPtr)); +/* 43 */ +EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, int flags)); +/* 44 */ +EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName, + Tcl_DString * bufPtr)); +/* 45 */ +EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 46 */ +EXTERN int TclInExit _ANSI_ARGS_((void)); +/* 47 */ +EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, long incrAmount)); +/* 48 */ +EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + long incrAmount)); +/* 49 */ +EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, + long incrAmount, int part1NotParsed)); +/* 50 */ +EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( + Tcl_Interp * interp, CallFrame * framePtr, + Namespace * nsPtr)); +/* 51 */ +EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 52 */ +EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, + char ** argv, int flags)); +/* 53 */ +EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int argc, char ** argv)); +/* 54 */ +EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[])); +/* 55 */ +EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); +/* 56 */ +EXTERN int TclLoadFile _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * sym1, char * sym2, + Tcl_PackageInitProc ** proc1Ptr, + Tcl_PackageInitProc ** proc2Ptr)); +/* 57 */ +EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * p)); +/* 58 */ +EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, + char * part1, char * part2, int flags, + char * msg, int createPart1, int createPart2, + Var ** arrayPtrPtr)); +/* 59 */ +EXTERN int TclMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, + char * separators, Tcl_DString * dirPtr, + char * pattern, char * tail)); +/* 60 */ +EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end)); +/* 61 */ +EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); +/* 62 */ +EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); +/* 63 */ +EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int objc, + Tcl_Obj *CONST objv[])); +/* 64 */ +EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 65 */ +EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 66 */ +EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( + TclOpenFileChannelProc_ * proc)); +/* 67 */ +EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( + TclOpenFileChannelProc_ * proc)); +/* 68 */ +EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode)); +/* 69 */ +EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); +/* 70 */ +EXTERN int TclpCopyFile _ANSI_ARGS_((char * source, char * dest)); +/* 71 */ +EXTERN int TclpCopyDirectory _ANSI_ARGS_((char * source, + char * dest, Tcl_DString * errorPtr)); +/* 72 */ +EXTERN int TclpCreateDirectory _ANSI_ARGS_((char * path)); +/* 73 */ +EXTERN int TclpDeleteFile _ANSI_ARGS_((char * path)); +/* 74 */ +EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); +/* 75 */ +EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); +/* 76 */ +EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); +/* 77 */ +EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); +/* 78 */ +EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); +/* 79 */ +EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp)); +/* 80 */ +EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * modeString, + int permissions)); +/* 81 */ +EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, + unsigned int size)); +/* 82 */ +EXTERN int TclpRemoveDirectory _ANSI_ARGS_((char * path, + int recursive, Tcl_DString * errorPtr)); +/* 83 */ +EXTERN int TclpRenameFile _ANSI_ARGS_((char * source, + char * dest)); +/* 84 */ +EXTERN int TclParseBraces _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char ** termPtr, + ParseValue * pvPtr)); +/* 85 */ +EXTERN int TclParseNestedCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int flags, char ** termPtr, + ParseValue * pvPtr)); +/* 86 */ +EXTERN int TclParseQuotes _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int termChar, int flags, + char ** termPtr, ParseValue * pvPtr)); +/* 87 */ +EXTERN void TclPlatformInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 88 */ +EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, char * name1, + char * name2, int flags)); +/* 89 */ +EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Interp * cmdInterp, Tcl_Command cmd)); +/* 90 */ +EXTERN void TclPrintByteCodeObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr)); +/* 91 */ +EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); +/* 92 */ +EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, + Proc * procPtr, Tcl_Obj * bodyPtr, + Namespace * nsPtr, CONST char * description, + CONST char * procName)); +/* 93 */ +EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); +/* 94 */ +EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int argc, char ** argv)); +/* 95 */ +EXTERN int TclpStat _ANSI_ARGS_((CONST char * path, + struct stat * buf)); +/* 96 */ +EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * oldName, char * newName)); +/* 97 */ +EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( + Tcl_Interp * interp, Command * newCmdPtr)); +/* 98 */ +EXTERN int TclServiceIdle _ANSI_ARGS_((void)); +/* 99 */ +EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, Tcl_Obj * objPtr, + int leaveErrorMsg)); +/* 100 */ +EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, + int localIndex, Tcl_Obj * objPtr, + int leaveErrorMsg)); +/* 101 */ +EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); +/* 102 */ +EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); +/* 103 */ +EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * proto, int * portPtr)); +/* 104 */ +EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, + int size)); +/* 105 */ +EXTERN int TclStat _ANSI_ARGS_((CONST char * path, + TclStat_ * buf)); +/* 106 */ +EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); +/* 107 */ +EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); +/* 108 */ +EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); +/* 109 */ +EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); +/* 110 */ +EXTERN char * TclWordEnd _ANSI_ARGS_((char * start, + char * lastChar, int nested, int * semiPtr)); +/* 111 */ +EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_ResolveCmdProc * cmdProc, + Tcl_ResolveVarProc * varProc, + Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* 112 */ +EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Namespace * nsPtr, + Tcl_Obj * objPtr)); +/* 113 */ +EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, + char * name, ClientData clientData, + Tcl_NamespaceDeleteProc * deleteProc)); +/* 114 */ +EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( + Tcl_Namespace * nsPtr)); +/* 115 */ +EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern, + int resetListFirst)); +/* 116 */ +EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * name, Tcl_Namespace * contextNsPtr, + int flags)); +/* 117 */ +EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, + char * name, Tcl_Namespace * contextNsPtr, + int flags)); +/* 118 */ +EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_ResolverInfo * resInfo)); +/* 119 */ +EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( + Tcl_Namespace * namespacePtr, + Tcl_ResolverInfo * resInfo)); +/* 120 */ +EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_Namespace * contextNsPtr, int flags)); +/* 121 */ +EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern)); +/* 122 */ +EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr)); +/* 123 */ +EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Command command, + Tcl_Obj * objPtr)); +/* 124 */ +EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 125 */ +EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 126 */ +EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Var variable, + Tcl_Obj * objPtr)); +/* 127 */ +EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern, + int allowOverwrite)); +/* 128 */ +EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); +/* 129 */ +EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, + Tcl_CallFrame * framePtr, + Tcl_Namespace * nsPtr, int isProcCallFrame)); +/* 130 */ +EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name)); +/* 131 */ +EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( + Tcl_Namespace * namespacePtr, + Tcl_ResolveCmdProc * cmdProc, + Tcl_ResolveVarProc * varProc, + Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* 132 */ +EXTERN int TclCompileBreakCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 133 */ +EXTERN int TclCompileCatchCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 134 */ +EXTERN int TclCompileContinueCmd _ANSI_ARGS_(( + Tcl_Interp * interp, char * string, + char * lastChar, int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 135 */ +EXTERN int TclCompileExprCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 136 */ +EXTERN int TclCompileForCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 137 */ +EXTERN int TclCompileForeachCmd _ANSI_ARGS_(( + Tcl_Interp * interp, char * string, + char * lastChar, int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 138 */ +EXTERN int TclCompileIfCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 139 */ +EXTERN int TclCompileIncrCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 140 */ +EXTERN int TclCompileSetCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 141 */ +EXTERN int TclCompileWhileCmd _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * lastChar, + int compileFlags, + struct CompileEnv * compileEnvPtr)); +/* 142 */ +EXTERN int TclHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); +/* 143 */ +EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT)); +/* 144 */ +EXTERN size_t TclStrftime _ANSI_ARGS_((char * s, size_t maxsize, + const char * format, const struct tm * t)); +/* 145 */ +EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); + +typedef struct TclIntStubs { + int magic; + struct TclIntStubHooks *hooks; + + int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */ + int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */ + int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */ + void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */ + int (*tclChdir) _ANSI_ARGS_((Tcl_Interp * interp, char * dirName)); /* 4 */ + int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ + void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */ + int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, char * src, char * dst)); /* 7 */ + int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */ + int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ + int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */ + void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */ + void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */ + int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail)); /* 13 */ + void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */ + void (*tclExpandParseValue) _ANSI_ARGS_((ParseValue * pvPtr, int needed)); /* 15 */ + void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */ + int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */ + int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */ + int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */ + int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */ + int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */ + int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, char * list, int listLength, char ** elementPtr, char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */ + Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */ + int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */ + void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */ + char * (*tclGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 26 */ + int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */ + Tcl_Channel (*tclGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */ + Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */ + char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name)); /* 30 */ + char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */ + int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 32 */ + TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */ + int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */ + Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */ + int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 36 */ + int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */ + int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */ + TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */ + int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 40 */ + Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */ + char * (*tclGetUserHome) _ANSI_ARGS_((char * name, Tcl_DString * bufferPtr)); /* 42 */ + int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */ + int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */ + int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */ + int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */ + Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */ + Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */ + Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */ + void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */ + int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */ + int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */ + int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */ + int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */ + Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */ + int (*tclLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr)); /* 56 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((char * p)); /* 57 */ + Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */ + int (*tclMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */ + int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */ + Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */ + int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */ + int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */ + int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */ + int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */ + int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */ + int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */ + int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */ + char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */ + int (*tclpCopyFile) _ANSI_ARGS_((char * source, char * dest)); /* 70 */ + int (*tclpCopyDirectory) _ANSI_ARGS_((char * source, char * dest, Tcl_DString * errorPtr)); /* 71 */ + int (*tclpCreateDirectory) _ANSI_ARGS_((char * path)); /* 72 */ + int (*tclpDeleteFile) _ANSI_ARGS_((char * path)); /* 73 */ + void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */ + unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */ + unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */ + void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */ + int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */ + int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */ + Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */ + char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */ + int (*tclpRemoveDirectory) _ANSI_ARGS_((char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */ + int (*tclpRenameFile) _ANSI_ARGS_((char * source, char * dest)); /* 83 */ + int (*tclParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr, ParseValue * pvPtr)); /* 84 */ + int (*tclParseNestedCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int flags, char ** termPtr, ParseValue * pvPtr)); /* 85 */ + int (*tclParseQuotes) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int termChar, int flags, char ** termPtr, ParseValue * pvPtr)); /* 86 */ + void (*tclPlatformInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 87 */ + char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */ + int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */ + void (*tclPrintByteCodeObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 90 */ + void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */ + int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */ + void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */ + int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */ + int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */ + int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */ + void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */ + int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */ + Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */ + Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */ + char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */ + void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */ + int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 103 */ + int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ + int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 105 */ + int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */ + int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */ + void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */ + int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */ + char * (*tclWordEnd) _ANSI_ARGS_((char * start, char * lastChar, int nested, int * semiPtr)); /* 110 */ + void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */ + int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */ + Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */ + void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */ + int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */ + Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */ + Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */ + int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */ + int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */ + Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ + int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */ + Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */ + void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */ + void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */ + int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */ + void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */ + int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */ + int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */ + void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */ + int (*tclCompileBreakCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 132 */ + int (*tclCompileCatchCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 133 */ + int (*tclCompileContinueCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 134 */ + int (*tclCompileExprCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 135 */ + int (*tclCompileForCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 136 */ + int (*tclCompileForeachCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 137 */ + int (*tclCompileIfCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 138 */ + int (*tclCompileIncrCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 139 */ + int (*tclCompileSetCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 140 */ + int (*tclCompileWhileCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 141 */ + int (*tclHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 142 */ + struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 143 */ + size_t (*tclStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 144 */ + int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 145 */ +} TclIntStubs; + +extern TclIntStubs *tclIntStubsPtr; + +#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 +#ifndef TclChdir +#define TclChdir(interp, dirName) \ + (tclIntStubsPtr->tclChdir)(interp, dirName) /* 4 */ +#endif +#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 +#ifndef TclExpandParseValue +#define TclExpandParseValue(pvPtr, needed) \ + (tclIntStubsPtr->tclExpandParseValue)(pvPtr, needed) /* 15 */ +#endif +#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, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \ + (tclIntStubsPtr->tclFindElement)(interp, list, 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 +#ifndef TclGetCwd +#define TclGetCwd(interp) \ + (tclIntStubsPtr->tclGetCwd)(interp) /* 26 */ +#endif +#ifndef TclGetDate +#define TclGetDate(p, now, zone, timePtr) \ + (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 27 */ +#endif +#ifndef TclGetDefaultStdChannel +#define TclGetDefaultStdChannel(type) \ + (tclIntStubsPtr->tclGetDefaultStdChannel)(type) /* 28 */ +#endif +#ifndef TclGetElementOfIndexedArray +#define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 29 */ +#endif +#ifndef TclGetEnv +#define TclGetEnv(name) \ + (tclIntStubsPtr->tclGetEnv)(name) /* 30 */ +#endif +#ifndef TclGetExtension +#define TclGetExtension(name) \ + (tclIntStubsPtr->tclGetExtension)(name) /* 31 */ +#endif +#ifndef TclGetFrame +#define TclGetFrame(interp, string, framePtrPtr) \ + (tclIntStubsPtr->tclGetFrame)(interp, string, 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, string, longPtr) \ + (tclIntStubsPtr->tclGetLong)(interp, string, 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, string, seekFlagPtr) \ + (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 40 */ +#endif +#ifndef TclGetOriginalCommand +#define TclGetOriginalCommand(command) \ + (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 41 */ +#endif +#ifndef TclGetUserHome +#define TclGetUserHome(name, bufferPtr) \ + (tclIntStubsPtr->tclGetUserHome)(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 +#ifndef TclLoadFile +#define TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) \ + (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) /* 56 */ +#endif +#ifndef TclLooksLikeInt +#define TclLooksLikeInt(p) \ + (tclIntStubsPtr->tclLooksLikeInt)(p) /* 57 */ +#endif +#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 TclMatchFiles +#define TclMatchFiles(interp, separators, dirPtr, pattern, tail) \ + (tclIntStubsPtr->tclMatchFiles)(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 +#ifndef TclParseBraces +#define TclParseBraces(interp, string, termPtr, pvPtr) \ + (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr) /* 84 */ +#endif +#ifndef TclParseNestedCmd +#define TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) \ + (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr) /* 85 */ +#endif +#ifndef TclParseQuotes +#define TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) \ + (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr) /* 86 */ +#endif +#ifndef TclPlatformInit +#define TclPlatformInit(interp) \ + (tclIntStubsPtr->tclPlatformInit)(interp) /* 87 */ +#endif +#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 +#ifndef TclPrintByteCodeObj +#define TclPrintByteCodeObj(interp, objPtr) \ + (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr) /* 90 */ +#endif +#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 +#ifndef TclSetPreInitScript +#define TclSetPreInitScript(string) \ + (tclIntStubsPtr->tclSetPreInitScript)(string) /* 101 */ +#endif +#ifndef TclSetupEnv +#define TclSetupEnv(interp) \ + (tclIntStubsPtr->tclSetupEnv)(interp) /* 102 */ +#endif +#ifndef TclSockGetPort +#define TclSockGetPort(interp, string, proto, portPtr) \ + (tclIntStubsPtr->tclSockGetPort)(interp, string, 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 +#ifndef TclWordEnd +#define TclWordEnd(start, lastChar, nested, semiPtr) \ + (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr) /* 110 */ +#endif +#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 TclCompileBreakCmd +#define TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 132 */ +#endif +#ifndef TclCompileCatchCmd +#define TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 133 */ +#endif +#ifndef TclCompileContinueCmd +#define TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 134 */ +#endif +#ifndef TclCompileExprCmd +#define TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 135 */ +#endif +#ifndef TclCompileForCmd +#define TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 136 */ +#endif +#ifndef TclCompileForeachCmd +#define TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 137 */ +#endif +#ifndef TclCompileIfCmd +#define TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 138 */ +#endif +#ifndef TclCompileIncrCmd +#define TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 139 */ +#endif +#ifndef TclCompileSetCmd +#define TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 140 */ +#endif +#ifndef TclCompileWhileCmd +#define TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ + (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 141 */ +#endif +#ifndef TclHasSockets +#define TclHasSockets(interp) \ + (tclIntStubsPtr->tclHasSockets)(interp) /* 142 */ +#endif +#ifndef TclpGetDate +#define TclpGetDate(time, useGMT) \ + (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 143 */ +#endif +#ifndef TclStrftime +#define TclStrftime(s, maxsize, format, t) \ + (tclIntStubsPtr->tclStrftime)(s, maxsize, format, t) /* 144 */ +#endif +#ifndef TclpCheckStackSpace +#define TclpCheckStackSpace() \ + (tclIntStubsPtr->tclpCheckStackSpace)() /* 145 */ +#endif + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#endif /* _TCLINTDECLS */ + diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h new file mode 100644 index 0000000..996fc03 --- /dev/null +++ b/generic/tclIntPlatDecls.h @@ -0,0 +1,495 @@ +/* + * 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.2.4.1 1999/03/08 22:25:30 stanton Exp $ + */ + +#ifndef _TCLINTPLATDECLS +#define _TCLINTPLATDECLS + +/* + * 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 function declarations: + */ + +#ifdef __WIN32__ +/* 0 */ +EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode)); +/* 1 */ +EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode)); +/* 2 */ +EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((const char * nm, + const char * proto)); +/* 3 */ +EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, + int optname, char FAR * optval, + int FAR * optlen)); +/* 4 */ +EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void)); +/* 5 */ +EXTERN HINSTANCE TclWinLoadLibrary _ANSI_ARGS_((char * name)); +/* 6 */ +EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); +/* 7 */ +EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, + int optname, const char FAR * optval, + int optlen)); +/* 8 */ +EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); +/* 9 */ +EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); +/* 10 */ +EXTERN int TclWinSynchSpawn _ANSI_ARGS_((void * args, int type, + void ** trans, Tcl_Pid * pidPtr)); +/* 11 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 12 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 13 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 14 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 15 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* 16 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, + Tcl_DString * namePtr)); +/* 17 */ +EXTERN char * TclpGetTZName _ANSI_ARGS_((void)); +/* 18 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 19 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); +#endif /* __WIN32__ */ +#if !defined(__WIN32__) && !defined(MAC_TCL) +/* 0 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 1 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 2 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 3 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 4 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* 5 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, + Tcl_DString * namePtr)); +/* 6 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 7 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); +/* 8 */ +EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, + int timeout)); +#endif /* UNIX */ +#ifdef MAC_TCL +/* 0 */ +EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); +/* 1 */ +EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); +/* 2 */ +EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, + unsigned int size)); +/* 3 */ +EXTERN void TclPlatformExit _ANSI_ARGS_((int status)); +/* 4 */ +EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); +/* 5 */ +EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); +/* 6 */ +EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, + OSType folderType, Boolean createFolder, + FSSpec * spec)); +/* 7 */ +EXTERN void GetGlobalMouse _ANSI_ARGS_((Point * mouse)); +/* 8 */ +EXTERN pascal OSErr FSpGetDirectoryID _ANSI_ARGS_((const FSSpec * spec, + long * theDirID, Boolean * isDirectory)); +/* 9 */ +EXTERN pascal short FSpOpenResFileCompat _ANSI_ARGS_(( + const FSSpec * spec, SignedByte permission)); +/* 10 */ +EXTERN pascal void FSpCreateResFileCompat _ANSI_ARGS_(( + const FSSpec * spec, OSType creator, + OSType fileType, ScriptCode scriptTag)); +/* 11 */ +EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, + CONST char * path, FSSpecPtr theSpec)); +/* 12 */ +EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, + int * length, Handle * fullPath)); +/* 13 */ +EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); +/* 14 */ +EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); +/* 15 */ +EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( + ExitToShellProcPtr newProc)); +/* 16 */ +EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); +/* 17 */ +EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken)); +/* 18 */ +EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); +/* 19 */ +EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken)); +/* 20 */ +EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_(( + short fileRef, Tcl_Obj * tokenPtr, + int insert)); +/* 21 */ +EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_(( + char * tokenPtr, Tcl_Obj * resultPtr)); +/* 22 */ +EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); +/* 23 */ +EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((const char * path, + const char * mode)); +/* 24 */ +EXTERN int TclMacReadlink _ANSI_ARGS_((char * path, char * buf, + int size)); +/* 25 */ +EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); +#endif /* MAC_TCL */ + +typedef struct TclIntPlatStubs { + int magic; + struct TclIntPlatStubHooks *hooks; + +#ifdef __WIN32__ + void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */ + void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */ + struct servent * (*tclWinGetServByName) _ANSI_ARGS_((const char * nm, const char * proto)); /* 2 */ + int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */ + HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */ + HINSTANCE (*tclWinLoadLibrary) _ANSI_ARGS_((char * name)); /* 5 */ + u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ + int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); /* 7 */ + unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ + int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ + int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 10 */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 16 */ + char * (*tclpGetTZName) _ANSI_ARGS_((void)); /* 17 */ + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 19 */ +#endif /* __WIN32__ */ +#if !defined(__WIN32__) && !defined(MAC_TCL) + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 5 */ + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 7 */ + int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ +#endif /* UNIX */ +#ifdef MAC_TCL + VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ + void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ + VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ + void (*tclPlatformExit) _ANSI_ARGS_((int status)); /* 3 */ + int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */ + int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */ + OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */ + void (*getGlobalMouse) _ANSI_ARGS_((Point * mouse)); /* 7 */ + pascal OSErr (*fSpGetDirectoryID) _ANSI_ARGS_((const FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */ + pascal short (*fSpOpenResFileCompat) _ANSI_ARGS_((const FSSpec * spec, SignedByte permission)); /* 9 */ + pascal void (*fSpCreateResFileCompat) _ANSI_ARGS_((const FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */ + int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */ + OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */ + void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */ + void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */ + OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */ + int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */ + void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */ + void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */ + int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */ + int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */ + short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */ + int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ + FILE * (*tclMacFOpenHack) _ANSI_ARGS_((const char * path, const char * mode)); /* 23 */ + int (*tclMacReadlink) _ANSI_ARGS_((char * path, char * buf, int size)); /* 24 */ + int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ +#endif /* MAC_TCL */ +} TclIntPlatStubs; + +extern TclIntPlatStubs *tclIntPlatStubsPtr; + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#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 +#ifndef TclWinLoadLibrary +#define TclWinLoadLibrary(name) \ + (tclIntPlatStubsPtr->tclWinLoadLibrary)(name) /* 5 */ +#endif +#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 +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents, namePtr) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 16 */ +#endif +#ifndef TclpGetTZName +#define TclpGetTZName() \ + (tclIntPlatStubsPtr->tclpGetTZName)() /* 17 */ +#endif +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 18 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 19 */ +#endif +#endif /* __WIN32__ */ +#if !defined(__WIN32__) && !defined(MAC_TCL) +#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 +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents, namePtr) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 5 */ +#endif +#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 +#endif /* UNIX */ +#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 TclPlatformExit +#define TclPlatformExit(status) \ + (tclIntPlatStubsPtr->tclPlatformExit)(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 +#ifndef TclMacReadlink +#define TclMacReadlink(path, buf, size) \ + (tclIntPlatStubsPtr->tclMacReadlink)(path, buf, size) /* 24 */ +#endif +#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 */ diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c new file mode 100644 index 0000000..88d9ca2 --- /dev/null +++ b/generic/tclIntPlatStubs.c @@ -0,0 +1,536 @@ +/* + * 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.2.4.1 1999/03/08 22:25:30 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: + */ + +#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 */ +HINSTANCE +TclWinLoadLibrary(name) + char * name; +{ + return (tclIntPlatStubsPtr->tclWinLoadLibrary)(name); +} + +/* 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 */ +TclFile +TclpCreateTempFile(contents, namePtr) + char * contents; + Tcl_DString * namePtr; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr); +} + +/* Slot 17 */ +char * +TclpGetTZName() +{ + return (tclIntPlatStubsPtr->tclpGetTZName)(); +} + +/* Slot 18 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 19 */ +TclFile +TclpOpenFile(fname, mode) + char * fname; + int mode; +{ + return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); +} + +#endif /* __WIN32__ */ +#if !defined(__WIN32__) && !defined(MAC_TCL) +/* 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 */ +TclFile +TclpCreateTempFile(contents, namePtr) + char * contents; + Tcl_DString * namePtr; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr); +} + +/* Slot 6 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 7 */ +TclFile +TclpOpenFile(fname, mode) + 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); +} + +#endif /* UNIX */ +#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 +TclPlatformExit(status) + int status; +{ + (tclIntPlatStubsPtr->tclPlatformExit)(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 */ +int +TclMacReadlink(path, buf, size) + char * path; + char * buf; + int size; +{ + return (tclIntPlatStubsPtr->tclMacReadlink)(path, buf, size); +} + +/* 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. */ diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c new file mode 100644 index 0000000..737630b --- /dev/null +++ b/generic/tclIntStubs.c @@ -0,0 +1,1453 @@ +/* + * 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.2.4.1 1999/03/08 22:25:31 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 */ +int +TclChdir(interp, dirName) + Tcl_Interp * interp; + char * dirName; +{ + return (tclIntStubsPtr->tclChdir)(interp, dirName); +} + +/* 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; + 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 */ +void +TclExpandParseValue(pvPtr, needed) + ParseValue * pvPtr; + int needed; +{ + (tclIntStubsPtr->tclExpandParseValue)(pvPtr, needed); +} + +/* 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, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) + Tcl_Interp * interp; + char * list; + int listLength; + char ** elementPtr; + char ** nextPtr; + int * sizePtr; + int * bracePtr; +{ + return (tclIntStubsPtr->tclFindElement)(interp, list, 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 */ +char * +TclGetCwd(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclGetCwd)(interp); +} + +/* 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 +TclGetDefaultStdChannel(type) + int type; +{ + return (tclIntStubsPtr->tclGetDefaultStdChannel)(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 */ +char * +TclGetEnv(name) + CONST char * name; +{ + return (tclIntStubsPtr->tclGetEnv)(name); +} + +/* Slot 31 */ +char * +TclGetExtension(name) + char * name; +{ + return (tclIntStubsPtr->tclGetExtension)(name); +} + +/* Slot 32 */ +int +TclGetFrame(interp, string, framePtrPtr) + Tcl_Interp * interp; + char * string; + CallFrame ** framePtrPtr; +{ + return (tclIntStubsPtr->tclGetFrame)(interp, string, 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, string, longPtr) + Tcl_Interp * interp; + char * string; + long * longPtr; +{ + return (tclIntStubsPtr->tclGetLong)(interp, string, 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, string, seekFlagPtr) + Tcl_Interp * interp; + char * string; + int * seekFlagPtr; +{ + return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr); +} + +/* Slot 41 */ +Tcl_Command +TclGetOriginalCommand(command) + Tcl_Command command; +{ + return (tclIntStubsPtr->tclGetOriginalCommand)(command); +} + +/* Slot 42 */ +char * +TclGetUserHome(name, bufferPtr) + char * name; + Tcl_DString * bufferPtr; +{ + return (tclIntStubsPtr->tclGetUserHome)(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 */ +int +TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) + Tcl_Interp * interp; + char * fileName; + char * sym1; + char * sym2; + Tcl_PackageInitProc ** proc1Ptr; + Tcl_PackageInitProc ** proc2Ptr; +{ + return (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr); +} + +/* Slot 57 */ +int +TclLooksLikeInt(p) + char * p; +{ + return (tclIntStubsPtr->tclLooksLikeInt)(p); +} + +/* 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 +TclMatchFiles(interp, separators, dirPtr, pattern, tail) + Tcl_Interp * interp; + char * separators; + Tcl_DString * dirPtr; + char * pattern; + char * tail; +{ + return (tclIntStubsPtr->tclMatchFiles)(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) + char * source; + char * dest; +{ + return (tclIntStubsPtr->tclpCopyFile)(source, dest); +} + +/* Slot 71 */ +int +TclpCopyDirectory(source, dest, errorPtr) + char * source; + char * dest; + Tcl_DString * errorPtr; +{ + return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr); +} + +/* Slot 72 */ +int +TclpCreateDirectory(path) + char * path; +{ + return (tclIntStubsPtr->tclpCreateDirectory)(path); +} + +/* Slot 73 */ +int +TclpDeleteFile(path) + 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) + char * path; + int recursive; + Tcl_DString * errorPtr; +{ + return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr); +} + +/* Slot 83 */ +int +TclpRenameFile(source, dest) + char * source; + char * dest; +{ + return (tclIntStubsPtr->tclpRenameFile)(source, dest); +} + +/* Slot 84 */ +int +TclParseBraces(interp, string, termPtr, pvPtr) + Tcl_Interp * interp; + char * string; + char ** termPtr; + ParseValue * pvPtr; +{ + return (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr); +} + +/* Slot 85 */ +int +TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) + Tcl_Interp * interp; + char * string; + int flags; + char ** termPtr; + ParseValue * pvPtr; +{ + return (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr); +} + +/* Slot 86 */ +int +TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) + Tcl_Interp * interp; + char * string; + int termChar; + int flags; + char ** termPtr; + ParseValue * pvPtr; +{ + return (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr); +} + +/* Slot 87 */ +void +TclPlatformInit(interp) + Tcl_Interp * interp; +{ + (tclIntStubsPtr->tclPlatformInit)(interp); +} + +/* 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 */ +void +TclPrintByteCodeObj(interp, objPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; +{ + (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr); +} + +/* 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 */ +char * +TclSetPreInitScript(string) + char * string; +{ + return (tclIntStubsPtr->tclSetPreInitScript)(string); +} + +/* Slot 102 */ +void +TclSetupEnv(interp) + Tcl_Interp * interp; +{ + (tclIntStubsPtr->tclSetupEnv)(interp); +} + +/* Slot 103 */ +int +TclSockGetPort(interp, string, proto, portPtr) + Tcl_Interp * interp; + char * string; + char * proto; + int * portPtr; +{ + return (tclIntStubsPtr->tclSockGetPort)(interp, string, 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 */ +char * +TclWordEnd(start, lastChar, nested, semiPtr) + char * start; + char * lastChar; + int nested; + int * semiPtr; +{ + return (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr); +} + +/* 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 +TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 133 */ +int +TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 134 */ +int +TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 135 */ +int +TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 136 */ +int +TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 137 */ +int +TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 138 */ +int +TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 139 */ +int +TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 140 */ +int +TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 141 */ +int +TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) + Tcl_Interp * interp; + char * string; + char * lastChar; + int compileFlags; + struct CompileEnv * compileEnvPtr; +{ + return (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); +} + +/* Slot 142 */ +int +TclHasSockets(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclHasSockets)(interp); +} + +/* Slot 143 */ +struct tm * +TclpGetDate(time, useGMT) + TclpTime_t time; + int useGMT; +{ + return (tclIntStubsPtr->tclpGetDate)(time, useGMT); +} + +/* Slot 144 */ +size_t +TclStrftime(s, maxsize, format, t) + char * s; + size_t maxsize; + const char * format; + const struct tm * t; +{ + return (tclIntStubsPtr->tclStrftime)(s, maxsize, format, t); +} + +/* Slot 145 */ +int +TclpCheckStackSpace() +{ + return (tclIntStubsPtr->tclpCheckStackSpace)(); +} + + +/* !END!: Do not edit above this line. */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 01d18f4..edc914d 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.2.2.2 1999/03/06 21:19:58 stanton Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.2.2.3 1999/03/08 22:25:31 stanton Exp $ */ #include "tclInt.h" @@ -351,134 +351,130 @@ TclIntStubs tclIntStubs = { TclFileDeleteCmd, /* 19 */ TclFileMakeDirsCmd, /* 20 */ TclFileRenameCmd, /* 21 */ - TclFinalizeCompExecEnv, /* 22 */ - TclFinalizeEnvironment, /* 23 */ - TclFinalizeExecEnv, /* 24 */ - TclFindElement, /* 25 */ - TclFindProc, /* 26 */ - TclFormatInt, /* 27 */ - TclFreePackageInfo, /* 28 */ - TclGetCwd, /* 29 */ - TclGetDate, /* 30 */ - TclGetDefaultStdChannel, /* 31 */ - TclGetElementOfIndexedArray, /* 32 */ - TclGetEnv, /* 33 */ - TclGetExtension, /* 34 */ - TclGetFrame, /* 35 */ - TclGetInterpProc, /* 36 */ - TclGetIntForIndex, /* 37 */ - TclGetIndexedScalar, /* 38 */ - TclGetLong, /* 39 */ - TclGetLoadedPackages, /* 40 */ - TclGetNamespaceForQualName, /* 41 */ - TclGetObjInterpProc, /* 42 */ - TclGetOpenMode, /* 43 */ - TclGetOriginalCommand, /* 44 */ - TclGetUserHome, /* 45 */ - TclGlobalInvoke, /* 46 */ - TclGuessPackageName, /* 47 */ - TclHideUnsafeCommands, /* 48 */ - TclInExit, /* 49 */ - TclIncrElementOfIndexedArray, /* 50 */ - TclIncrIndexedScalar, /* 51 */ - TclIncrVar2, /* 52 */ - TclInitCompiledLocals, /* 53 */ - TclInitNamespaces, /* 54 */ - TclInterpInit, /* 55 */ - TclInvoke, /* 56 */ - TclInvokeObjectCommand, /* 57 */ - TclInvokeStringCommand, /* 58 */ - TclIsProc, /* 59 */ - TclLoadFile, /* 60 */ - TclLooksLikeInt, /* 61 */ - TclLookupVar, /* 62 */ - TclMatchFiles, /* 63 */ - TclNeedSpace, /* 64 */ - TclNewProcBodyObj, /* 65 */ - TclObjCommandComplete, /* 66 */ - TclObjInterpProc, /* 67 */ - TclObjInvoke, /* 68 */ - TclObjInvokeGlobal, /* 69 */ - TclOpenFileChannelDeleteProc, /* 70 */ - TclOpenFileChannelInsertProc, /* 71 */ - TclpAccess, /* 72 */ - TclpAlloc, /* 73 */ - TclpCopyFile, /* 74 */ - TclpCopyDirectory, /* 75 */ - TclpCreateDirectory, /* 76 */ - TclpDeleteFile, /* 77 */ - TclpFree, /* 78 */ - TclpGetClicks, /* 79 */ - TclpGetSeconds, /* 80 */ - TclpGetTime, /* 81 */ - TclpGetTimeZone, /* 82 */ - TclpListVolumes, /* 83 */ - TclpOpenFileChannel, /* 84 */ - TclpRealloc, /* 85 */ - TclpRemoveDirectory, /* 86 */ - TclpRenameFile, /* 87 */ - TclParseBraces, /* 88 */ - TclParseNestedCmd, /* 89 */ - TclParseQuotes, /* 90 */ - TclPlatformInit, /* 91 */ - TclPrecTraceProc, /* 92 */ - TclPreventAliasLoop, /* 93 */ - TclPrintByteCodeObj, /* 94 */ - TclProcCleanupProc, /* 95 */ - TclProcCompileProc, /* 96 */ - TclProcDeleteProc, /* 97 */ - TclProcInterpProc, /* 98 */ - TclpStat, /* 99 */ - TclRenameCommand, /* 100 */ - TclResetShadowedCmdRefs, /* 101 */ - TclServiceIdle, /* 102 */ - TclSetElementOfIndexedArray, /* 103 */ - TclSetIndexedScalar, /* 104 */ - TclSetPreInitScript, /* 105 */ - TclSetupEnv, /* 106 */ - TclSockGetPort, /* 107 */ - TclSockMinimumBuffers, /* 108 */ - TclStat, /* 109 */ - TclStatDeleteProc, /* 110 */ - TclStatInsertProc, /* 111 */ - TclTeardownNamespace, /* 112 */ - TclUpdateReturnInfo, /* 113 */ - TclWordEnd, /* 114 */ - Tcl_AddInterpResolvers, /* 115 */ - Tcl_AppendExportList, /* 116 */ - Tcl_CreateNamespace, /* 117 */ - Tcl_DeleteNamespace, /* 118 */ - Tcl_Export, /* 119 */ - Tcl_FindCommand, /* 120 */ - Tcl_FindNamespace, /* 121 */ - Tcl_GetInterpResolvers, /* 122 */ - Tcl_GetNamespaceResolvers, /* 123 */ - Tcl_FindNamespaceVar, /* 124 */ - Tcl_ForgetImport, /* 125 */ - Tcl_GetCommandFromObj, /* 126 */ - Tcl_GetCommandFullName, /* 127 */ - Tcl_GetCurrentNamespace, /* 128 */ - Tcl_GetGlobalNamespace, /* 129 */ - Tcl_GetVariableFullName, /* 130 */ - Tcl_Import, /* 131 */ - Tcl_PopCallFrame, /* 132 */ - Tcl_PushCallFrame, /* 133 */ - Tcl_RemoveInterpResolvers, /* 134 */ - Tcl_SetNamespaceResolvers, /* 135 */ - TclCompileBreakCmd, /* 136 */ - TclCompileCatchCmd, /* 137 */ - TclCompileContinueCmd, /* 138 */ - TclCompileExprCmd, /* 139 */ - TclCompileForCmd, /* 140 */ - TclCompileForeachCmd, /* 141 */ - TclCompileIfCmd, /* 142 */ - TclCompileIncrCmd, /* 143 */ - TclCompileSetCmd, /* 144 */ - TclCompileWhileCmd, /* 145 */ - TclHasSockets, /* 146 */ - TclpGetDate, /* 147 */ - TclStrftime, /* 148 */ - TclpCheckStackSpace, /* 149 */ + TclFindElement, /* 22 */ + TclFindProc, /* 23 */ + TclFormatInt, /* 24 */ + TclFreePackageInfo, /* 25 */ + TclGetCwd, /* 26 */ + TclGetDate, /* 27 */ + TclGetDefaultStdChannel, /* 28 */ + TclGetElementOfIndexedArray, /* 29 */ + TclGetEnv, /* 30 */ + TclGetExtension, /* 31 */ + TclGetFrame, /* 32 */ + TclGetInterpProc, /* 33 */ + TclGetIntForIndex, /* 34 */ + TclGetIndexedScalar, /* 35 */ + TclGetLong, /* 36 */ + TclGetLoadedPackages, /* 37 */ + TclGetNamespaceForQualName, /* 38 */ + TclGetObjInterpProc, /* 39 */ + TclGetOpenMode, /* 40 */ + TclGetOriginalCommand, /* 41 */ + TclGetUserHome, /* 42 */ + TclGlobalInvoke, /* 43 */ + TclGuessPackageName, /* 44 */ + TclHideUnsafeCommands, /* 45 */ + TclInExit, /* 46 */ + TclIncrElementOfIndexedArray, /* 47 */ + TclIncrIndexedScalar, /* 48 */ + TclIncrVar2, /* 49 */ + TclInitCompiledLocals, /* 50 */ + TclInterpInit, /* 51 */ + TclInvoke, /* 52 */ + TclInvokeObjectCommand, /* 53 */ + TclInvokeStringCommand, /* 54 */ + TclIsProc, /* 55 */ + TclLoadFile, /* 56 */ + TclLooksLikeInt, /* 57 */ + TclLookupVar, /* 58 */ + TclMatchFiles, /* 59 */ + TclNeedSpace, /* 60 */ + TclNewProcBodyObj, /* 61 */ + TclObjCommandComplete, /* 62 */ + TclObjInterpProc, /* 63 */ + TclObjInvoke, /* 64 */ + TclObjInvokeGlobal, /* 65 */ + TclOpenFileChannelDeleteProc, /* 66 */ + TclOpenFileChannelInsertProc, /* 67 */ + TclpAccess, /* 68 */ + TclpAlloc, /* 69 */ + TclpCopyFile, /* 70 */ + TclpCopyDirectory, /* 71 */ + TclpCreateDirectory, /* 72 */ + TclpDeleteFile, /* 73 */ + TclpFree, /* 74 */ + TclpGetClicks, /* 75 */ + TclpGetSeconds, /* 76 */ + TclpGetTime, /* 77 */ + TclpGetTimeZone, /* 78 */ + TclpListVolumes, /* 79 */ + TclpOpenFileChannel, /* 80 */ + TclpRealloc, /* 81 */ + TclpRemoveDirectory, /* 82 */ + TclpRenameFile, /* 83 */ + TclParseBraces, /* 84 */ + TclParseNestedCmd, /* 85 */ + TclParseQuotes, /* 86 */ + TclPlatformInit, /* 87 */ + TclPrecTraceProc, /* 88 */ + TclPreventAliasLoop, /* 89 */ + TclPrintByteCodeObj, /* 90 */ + TclProcCleanupProc, /* 91 */ + TclProcCompileProc, /* 92 */ + TclProcDeleteProc, /* 93 */ + TclProcInterpProc, /* 94 */ + TclpStat, /* 95 */ + TclRenameCommand, /* 96 */ + TclResetShadowedCmdRefs, /* 97 */ + TclServiceIdle, /* 98 */ + TclSetElementOfIndexedArray, /* 99 */ + TclSetIndexedScalar, /* 100 */ + TclSetPreInitScript, /* 101 */ + TclSetupEnv, /* 102 */ + TclSockGetPort, /* 103 */ + TclSockMinimumBuffers, /* 104 */ + TclStat, /* 105 */ + TclStatDeleteProc, /* 106 */ + TclStatInsertProc, /* 107 */ + TclTeardownNamespace, /* 108 */ + TclUpdateReturnInfo, /* 109 */ + TclWordEnd, /* 110 */ + Tcl_AddInterpResolvers, /* 111 */ + Tcl_AppendExportList, /* 112 */ + Tcl_CreateNamespace, /* 113 */ + Tcl_DeleteNamespace, /* 114 */ + Tcl_Export, /* 115 */ + Tcl_FindCommand, /* 116 */ + Tcl_FindNamespace, /* 117 */ + Tcl_GetInterpResolvers, /* 118 */ + Tcl_GetNamespaceResolvers, /* 119 */ + Tcl_FindNamespaceVar, /* 120 */ + Tcl_ForgetImport, /* 121 */ + Tcl_GetCommandFromObj, /* 122 */ + Tcl_GetCommandFullName, /* 123 */ + Tcl_GetCurrentNamespace, /* 124 */ + Tcl_GetGlobalNamespace, /* 125 */ + Tcl_GetVariableFullName, /* 126 */ + Tcl_Import, /* 127 */ + Tcl_PopCallFrame, /* 128 */ + Tcl_PushCallFrame, /* 129 */ + Tcl_RemoveInterpResolvers, /* 130 */ + Tcl_SetNamespaceResolvers, /* 131 */ + TclCompileBreakCmd, /* 132 */ + TclCompileCatchCmd, /* 133 */ + TclCompileContinueCmd, /* 134 */ + TclCompileExprCmd, /* 135 */ + TclCompileForCmd, /* 136 */ + TclCompileForeachCmd, /* 137 */ + TclCompileIfCmd, /* 138 */ + TclCompileIncrCmd, /* 139 */ + TclCompileSetCmd, /* 140 */ + TclCompileWhileCmd, /* 141 */ + TclHasSockets, /* 142 */ + TclpGetDate, /* 143 */ + TclStrftime, /* 144 */ + TclpCheckStackSpace, /* 145 */ }; TclIntStubs *tclIntStubsPtr = &tclIntStubs; @@ -496,19 +492,17 @@ TclIntPlatStubs tclIntPlatStubs = { TclWinNToHS, /* 6 */ TclWinSetSockOpt, /* 7 */ TclpGetPid, /* 8 */ - TclpFinalize, /* 9 */ - TclWinGetPlatformId, /* 10 */ - TclWinInit, /* 11 */ - TclWinSynchSpawn, /* 12 */ - TclGetAndDetachPids, /* 13 */ - TclpCloseFile, /* 14 */ - TclpCreateCommandChannel, /* 15 */ - TclpCreatePipe, /* 16 */ - TclpCreateProcess, /* 17 */ - TclpCreateTempFile, /* 18 */ - TclpGetTZName, /* 19 */ - TclpMakeFile, /* 20 */ - TclpOpenFile, /* 21 */ + TclWinGetPlatformId, /* 9 */ + TclWinSynchSpawn, /* 10 */ + TclGetAndDetachPids, /* 11 */ + TclpCloseFile, /* 12 */ + TclpCreateCommandChannel, /* 13 */ + TclpCreatePipe, /* 14 */ + TclpCreateProcess, /* 15 */ + TclpCreateTempFile, /* 16 */ + TclpGetTZName, /* 17 */ + TclpMakeFile, /* 18 */ + TclpOpenFile, /* 19 */ #endif /* __WIN32__ */ #if !defined(__WIN32__) && !defined(MAC_TCL) TclGetAndDetachPids, /* 0 */ diff --git a/win/tclWinInt.h b/win/tclWinInt.h index 64c43f7..122ccc8 100644 --- a/win/tclWinInt.h +++ b/win/tclWinInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinInt.h,v 1.5.4.1 1999/03/04 00:59:04 stanton Exp $ + * RCS: @(#) $Id: tclWinInt.h,v 1.5.4.2 1999/03/08 22:25:31 stanton Exp $ */ #ifndef _TCLWININT @@ -43,10 +43,12 @@ #define VER_PLATFORM_WIN32_WINDOWS 1 #endif -EXTERN int TclWinGetPlatformId(void); +/* + * Declarations of functions that are not accessible by way of the + * stubs table. + */ + EXTERN void TclWinInit(HINSTANCE hInst); -EXTERN int TclWinSynchSpawn(void *args, int type, void **trans, - Tcl_Pid *pidPtr); # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLIMPORT -- cgit v0.12