diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.decls | 62 | ||||
| -rw-r--r-- | generic/tclDecls.h | 23 | ||||
| -rw-r--r-- | generic/tclInt.decls | 474 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 827 | ||||
| -rw-r--r-- | generic/tclIntPlatDecls.h | 388 | ||||
| -rw-r--r-- | generic/tclIntPlatStubs.c | 421 | ||||
| -rw-r--r-- | generic/tclIntStubs.c | 388 | ||||
| -rw-r--r-- | generic/tclPanic.c | 6 | ||||
| -rw-r--r-- | generic/tclPlatDecls.h | 81 | ||||
| -rw-r--r-- | generic/tclPlatStubs.c | 91 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 338 | ||||
| -rw-r--r-- | generic/tclStubs.c | 22 |
12 files changed, 2120 insertions, 1001 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index a398448..4217db5 100644 --- a/generic/tcl.decls +++ b/generic/tcl.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: tcl.decls,v 1.1 1999/03/03 00:38:38 stanton Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.2 1999/03/04 01:01:57 stanton Exp $ library tcl @@ -634,10 +634,10 @@ declare 184 generic { Tcl_TcpAcceptProc *acceptProc, ClientData callbackData) } declare 185 generic { - void Tcl_Panic(char *format, ...) + void panic(char *format, ...) } declare 186 generic { - void Tcl_PanicVA(char *format, va_list argList) + void panicVA(char *format, va_list argList) } declare 187 generic { char * Tcl_ParseVar(Tcl_Interp *interp, char *string, char **termPtr) @@ -930,13 +930,67 @@ declare 274 generic { Tcl_Obj *CONST objv[], char *message) } - +############################################################################## # Define the platform specific public Tcl interface. These functions are # only available on the designated platform. interface tclPlat +################## +# Mac declarations + +# This is needed by the shells to handle Macintosh events. + +declare 0 mac { + void Tcl_MacSetEventProc(Tcl_MacConvertEventPtr procPtr) +} + +# These routines are useful for handling using scripts from resources +# in the application shell + +declare 1 mac { + char * Tcl_MacConvertTextResource(Handle resource) +} +declare 2 mac { + int Tcl_MacEvalResource(Tcl_Interp *interp, char *resourceName, \ + int resourceNumber, char *fileName) +} +declare 3 mac { + Handle Tcl_MacFindResource(Tcl_Interp *interp, long resourceType, \ + char *resourceName, int resourceNumber, char *resFileRef, \ + int * releaseIt) +} + +# These routines support the new OSType object type (i.e. the packed 4 +# character type and creator codes). + +declare 4 mac { + int Tcl_GetOSTypeFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr, \ + OSType *osTypePtr) +} +declare 5 mac { + void Tcl_SetOSTypeObj(Tcl_Obj *objPtr, OSType osType) +} +declare 6 mac { + Tcl_Obj * Tcl_NewOSTypeObj(OSType osType) +} + +# These are not in MSL 2.1.2, so we need to export them from the +# Tcl shared library. They are found in the compat directory +# except the panic routine which is found in tclMacPanic.h. + +declare 7 mac { + int strncasecmp(CONST char *s1, CONST char *s2, size_t n) +} +declare 8 mac { + int strcasecmp(CONST char *s1, CONST char *s2) +} + + +#################### +# Unix declaractions + declare 0 unix { void Tcl_CreateFileHandler(int fd, int mask, Tcl_FileProc *proc, \ ClientData clientData) diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 420618f..8c65c35 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.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: tclDecls.h,v 1.1 1999/03/03 00:38:39 stanton Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.2 1999/03/04 01:01:57 stanton Exp $ */ #ifndef _TCLDECLS @@ -579,10 +579,9 @@ EXTERN Tcl_Channel Tcl_OpenTcpServer _ANSI_ARGS_((Tcl_Interp * interp, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData)); /* 185 */ -EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); +EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 186 */ -EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format, - va_list argList)); +EXTERN void panicVA _ANSI_ARGS_((char * format, va_list argList)); /* 187 */ EXTERN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr)); @@ -1050,8 +1049,8 @@ typedef struct TclStubs { Tcl_Channel (*tcl_OpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 182 */ Tcl_Channel (*tcl_OpenTcpClient) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * address, char * myaddr, int myport, int async)); /* 183 */ Tcl_Channel (*tcl_OpenTcpServer) _ANSI_ARGS_((Tcl_Interp * interp, int port, char * host, Tcl_TcpAcceptProc * acceptProc, ClientData callbackData)); /* 184 */ - void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 185 */ - void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 186 */ + void (*panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 185 */ + void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 186 */ char * (*tcl_ParseVar) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr)); /* 187 */ char * (*tcl_PkgPresent) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact)); /* 188 */ char * (*tcl_PkgPresentEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 189 */ @@ -1890,13 +1889,13 @@ extern TclStubs *tclStubsPtr; #define Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) \ (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData) /* 184 */ #endif -#ifndef Tcl_Panic -#define Tcl_Panic \ - (tclStubsPtr->tcl_Panic) /* 185 */ +#ifndef panic +#define panic \ + (tclStubsPtr->panic) /* 185 */ #endif -#ifndef Tcl_PanicVA -#define Tcl_PanicVA(format, argList) \ - (tclStubsPtr->tcl_PanicVA)(format, argList) /* 186 */ +#ifndef panicVA +#define panicVA(format, argList) \ + (tclStubsPtr->panicVA)(format, argList) /* 186 */ #endif #ifndef Tcl_ParseVar #define Tcl_ParseVar(interp, string, termPtr) \ diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 85d65aa..c51f867 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.1 1999/03/03 00:38:40 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.2 1999/03/04 01:01:58 stanton Exp $ library tcl @@ -120,407 +120,376 @@ declare 28 generic { void TclFreePackageInfo(Interp *iPtr) } declare 29 generic { - void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan) -} -declare 30 generic { char * TclGetCwd(Tcl_Interp *interp) } -declare 31 generic { +declare 30 generic { int TclGetDate(char *p, unsigned long now, long zone, \ unsigned long *timePtr) } -declare 32 generic { +declare 31 generic { Tcl_Channel TclGetDefaultStdChannel(int type) } -declare 33 generic { +declare 32 generic { Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg) } -declare 34 generic { +declare 33 generic { char * TclGetEnv(CONST char *name) } -declare 35 generic { +declare 34 generic { char * TclGetExtension(char *name) } -declare 36 generic { +declare 35 generic { int TclGetFrame(Tcl_Interp *interp, char *string, CallFrame **framePtrPtr) } -declare 37 generic { +declare 36 generic { TclCmdProcType TclGetInterpProc(void) } -declare 38 generic { +declare 37 generic { int TclGetIntForIndex(Tcl_Interp *interp, Tcl_Obj *objPtr, \ int endValue, int *indexPtr) } -declare 39 generic { +declare 38 generic { Tcl_Obj * TclGetIndexedScalar(Tcl_Interp *interp, int localIndex, \ int leaveErrorMsg) } -declare 40 generic { +declare 39 generic { int TclGetLong(Tcl_Interp *interp, char *string, long *longPtr) } -declare 41 generic { +declare 40 generic { int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName) } -declare 42 generic { +declare 41 generic { int TclGetNamespaceForQualName(Tcl_Interp *interp, char *qualName, \ Namespace *cxtNsPtr, int flags, Namespace **nsPtrPtr, \ Namespace **altNsPtrPtr, Namespace **actualCxtPtrPtr, \ char **simpleNamePtr) } -declare 43 generic { +declare 42 generic { TclObjCmdProcType TclGetObjInterpProc(void) } -declare 44 generic { +declare 43 generic { int TclGetOpenMode(Tcl_Interp *interp, char *string, int *seekFlagPtr) } -declare 45 generic { +declare 44 generic { Tcl_Command TclGetOriginalCommand(Tcl_Command command) } -declare 46 generic { - char * TclpGetUserHome(char *name, Tcl_DString *bufferPtr) +declare 45 generic { + char * TclGetUserHome(char *name, Tcl_DString *bufferPtr) } -declare 47 generic { +declare 46 generic { int TclGlobalInvoke(Tcl_Interp *interp, int argc, char **argv, int flags) } -declare 48 generic { +declare 47 generic { int TclGuessPackageName(char *fileName, Tcl_DString *bufPtr) } -declare 49 generic { - int TclHasSockets(Tcl_Interp *interp) -} -declare 50 generic { +declare 48 generic { int TclHideUnsafeCommands(Tcl_Interp *interp) } -declare 51 generic { +declare 49 generic { int TclInExit(void) } -declare 52 generic { +declare 50 generic { Tcl_Obj * TclIncrElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, long incrAmount) } -declare 53 generic { +declare 51 generic { Tcl_Obj * TclIncrIndexedScalar(Tcl_Interp *interp, int localIndex, \ long incrAmount) } -declare 54 generic { +declare 52 generic { Tcl_Obj * TclIncrVar2(Tcl_Interp *interp, Tcl_Obj *part1Ptr, \ Tcl_Obj *part2Ptr, long incrAmount, int part1NotParsed) } -declare 55 generic { +declare 53 generic { void TclInitCompiledLocals(Tcl_Interp *interp, CallFrame *framePtr, \ Namespace *nsPtr) } -declare 56 generic { +declare 54 generic { void TclInitNamespaces(void) } -declare 57 generic { +declare 55 generic { int TclInterpInit(Tcl_Interp *interp) } -declare 58 generic { +declare 56 generic { int TclInvoke(Tcl_Interp *interp, int argc, char **argv, int flags) } -declare 59 generic { +declare 57 generic { int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp, \ int argc, char **argv) } -declare 60 generic { +declare 58 generic { int TclInvokeStringCommand(ClientData clientData, Tcl_Interp *interp, \ int objc, Tcl_Obj *CONST objv[]) } -declare 61 generic { +declare 59 generic { Proc * TclIsProc(Command *cmdPtr) } -declare 62 generic { +declare 60 generic { int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ char *sym2, Tcl_PackageInitProc **proc1Ptr, \ Tcl_PackageInitProc **proc2Ptr) } -declare 63 generic { +declare 61 generic { int TclLooksLikeInt(char *p) } -declare 64 generic { +declare 62 generic { Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2, \ int flags, char *msg, int createPart1, int createPart2, \ Var **arrayPtrPtr) } -declare 65 generic { +declare 63 generic { int TclMatchFiles(Tcl_Interp *interp, char *separators, \ Tcl_DString *dirPtr, char *pattern, char *tail) } -declare 66 generic { +declare 64 generic { int TclNeedSpace(char *start, char *end) } -declare 67 generic { +declare 65 generic { Tcl_Obj * TclNewProcBodyObj(Proc *procPtr) } -declare 68 generic { +declare 66 generic { int TclObjCommandComplete(Tcl_Obj *cmdPtr) } -declare 69 generic { +declare 67 generic { int TclObjInterpProc(ClientData clientData, Tcl_Interp *interp, \ int objc, Tcl_Obj *CONST objv[]) } -declare 70 generic { +declare 68 generic { int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], \ int flags) } -declare 71 generic { +declare 69 generic { int TclObjInvokeGlobal(Tcl_Interp *interp, int objc, \ Tcl_Obj *CONST objv[], int flags) } -declare 72 generic { +declare 70 generic { int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc) } -declare 73 generic { +declare 71 generic { int TclOpenFileChannelInsertProc(TclOpenFileChannelProc_ *proc) } -declare 74 generic { - char * TclpAlloc(unsigned int size) +declare 72 generic { + int TclpAccess(CONST char *path, int mode) } -declare 75 generic { - int TclpCloseFile(TclFile file) +declare 73 generic { + char * TclpAlloc(unsigned int size) } -declare 76 generic { +declare 74 generic { int TclpCopyFile(char *source, char *dest) } -declare 77 generic { +declare 75 generic { int TclpCopyDirectory(char *source, char *dest, Tcl_DString *errorPtr) } -declare 78 generic { - Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \ - TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr) -} -declare 79 generic { +declare 76 generic { int TclpCreateDirectory(char *path) } -declare 80 generic { - int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) -} -declare 81 generic { - int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ - TclFile inputFile, TclFile outputFile, TclFile errorFile, \ - Tcl_Pid *pidPtr) -} -declare 82 generic { - TclFile TclpCreateTempFile(char *contents, - Tcl_DString *namePtr) -} -declare 83 generic { +declare 77 generic { int TclpDeleteFile(char *path) } -declare 84 generic { - void TclpFinalize(void) -} -declare 85 generic { +declare 78 generic { void TclpFree(char *ptr) } -declare 86 generic { +declare 79 generic { unsigned long TclpGetClicks(void) } -declare 87 generic { +declare 80 generic { unsigned long TclpGetSeconds(void) } -declare 88 generic { +declare 81 generic { void TclpGetTime(Tcl_Time *time) } -declare 89 generic { +declare 82 generic { int TclpGetTimeZone(unsigned long time) } -declare 90 generic { - char * TclpGetTZName(void) -} -declare 91 generic { +declare 83 generic { int TclpListVolumes(Tcl_Interp *interp) } -declare 92 generic { - TclFile TclpMakeFile(Tcl_Channel channel, int direction) -} -declare 93 generic { - TclFile TclpOpenFile(char *fname, int mode) -} -declare 94 generic { +declare 84 generic { Tcl_Channel TclpOpenFileChannel(Tcl_Interp *interp, char *fileName, \ char *modeString, int permissions) } -declare 95 generic { +declare 85 generic { char * TclpRealloc(char *ptr, unsigned int size) } -declare 96 generic { +declare 86 generic { int TclpRemoveDirectory(char *path, int recursive, Tcl_DString *errorPtr) } -declare 97 generic { +declare 87 generic { int TclpRenameFile(char *source, char *dest) } -declare 98 generic { +declare 88 generic { int TclParseBraces(Tcl_Interp *interp, char *string, char **termPtr, \ ParseValue *pvPtr) } -declare 99 generic { +declare 89 generic { int TclParseNestedCmd(Tcl_Interp *interp, char *string, int flags, \ char **termPtr, ParseValue *pvPtr) } -declare 100 generic { +declare 90 generic { int TclParseQuotes(Tcl_Interp *interp, char *string, int termChar, \ int flags, char **termPtr, ParseValue *pvPtr) } -declare 101 generic { +declare 91 generic { void TclPlatformInit(Tcl_Interp *interp) } -declare 102 generic { +declare 92 generic { char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp, \ char *name1, char *name2, int flags) } -declare 103 generic { +declare 93 generic { int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp, \ Tcl_Command cmd) } -declare 104 generic { +declare 94 generic { void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } -declare 105 generic { +declare 95 generic { void TclProcCleanupProc(Proc *procPtr) } -declare 106 generic { +declare 96 generic { int TclProcCompileProc(Tcl_Interp *interp, Proc *procPtr, \ Tcl_Obj *bodyPtr, Namespace *nsPtr, CONST char *description, \ CONST char *procName) } -declare 107 generic { +declare 97 generic { void TclProcDeleteProc(ClientData clientData) } -declare 108 generic { +declare 98 generic { int TclProcInterpProc(ClientData clientData, Tcl_Interp *interp, \ int argc, char **argv) } -declare 109 generic { +declare 99 generic { + int TclpStat(CONST char *path, struct stat *buf) +} +declare 100 generic { int TclRenameCommand(Tcl_Interp *interp, char *oldName, char *newName) } -declare 110 generic { +declare 101 generic { void TclResetShadowedCmdRefs(Tcl_Interp *interp, Command *newCmdPtr) } -declare 111 generic { +declare 102 generic { int TclServiceIdle(void) } -declare 112 generic { +declare 103 generic { Tcl_Obj * TclSetElementOfIndexedArray(Tcl_Interp *interp, \ int localIndex, Tcl_Obj *elemPtr, Tcl_Obj *objPtr, int leaveErrorMsg) } -declare 113 generic { +declare 104 generic { Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \ Tcl_Obj *objPtr, int leaveErrorMsg) } -declare 114 generic { +declare 105 generic { char * TclSetPreInitScript(char *string) } -declare 115 generic { +declare 106 generic { void TclSetupEnv(Tcl_Interp *interp) } -declare 116 generic { +declare 107 generic { int TclSockGetPort(Tcl_Interp *interp, char *string, char *proto, \ int *portPtr) } -declare 117 generic { +declare 108 generic { int TclSockMinimumBuffers(int sock, int size) } -declare 118 generic { +declare 109 generic { int TclStat(CONST char *path, TclStat_ *buf) } -declare 119 generic { +declare 110 generic { int TclStatDeleteProc(TclStatProc_ *proc) } -declare 120 generic { +declare 111 generic { int TclStatInsertProc(TclStatProc_ *proc) } -declare 121 generic { +declare 112 generic { void TclTeardownNamespace(Namespace *nsPtr) } -declare 122 generic { +declare 113 generic { int TclUpdateReturnInfo(Interp *iPtr) } -declare 123 generic { +declare 114 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 124 generic { +declare 115 generic { void Tcl_AddInterpResolvers(Tcl_Interp *interp, char *name, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) } -declare 125 generic { +declare 116 generic { int Tcl_AppendExportList(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ Tcl_Obj *objPtr) } -declare 126 generic { +declare 117 generic { Tcl_Namespace * Tcl_CreateNamespace(Tcl_Interp *interp, char *name, \ ClientData clientData, Tcl_NamespaceDeleteProc *deleteProc) } -declare 127 generic { +declare 118 generic { void Tcl_DeleteNamespace(Tcl_Namespace *nsPtr) } -declare 128 generic { +declare 119 generic { int Tcl_Export(Tcl_Interp *interp, Tcl_Namespace *nsPtr, char *pattern, \ int resetListFirst) } -declare 129 generic { +declare 120 generic { Tcl_Command Tcl_FindCommand(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 130 generic { +declare 121 generic { Tcl_Namespace * Tcl_FindNamespace(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 131 generic { +declare 122 generic { int Tcl_GetInterpResolvers(Tcl_Interp *interp, char *name, \ Tcl_ResolverInfo *resInfo) } -declare 132 generic { +declare 123 generic { int Tcl_GetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ Tcl_ResolverInfo *resInfo) } -declare 133 generic { +declare 124 generic { Tcl_Var Tcl_FindNamespaceVar(Tcl_Interp *interp, char *name, \ Tcl_Namespace *contextNsPtr, int flags) } -declare 134 generic { +declare 125 generic { int Tcl_ForgetImport(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ char *pattern) } -declare 135 generic { +declare 126 generic { Tcl_Command Tcl_GetCommandFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } -declare 136 generic { +declare 127 generic { void Tcl_GetCommandFullName(Tcl_Interp *interp, Tcl_Command command, \ Tcl_Obj *objPtr) } -declare 137 generic { +declare 128 generic { Tcl_Namespace * Tcl_GetCurrentNamespace(Tcl_Interp *interp) } -declare 138 generic { +declare 129 generic { Tcl_Namespace * Tcl_GetGlobalNamespace(Tcl_Interp *interp) } -declare 139 generic { +declare 130 generic { void Tcl_GetVariableFullName(Tcl_Interp *interp, Tcl_Var variable, \ Tcl_Obj *objPtr) } -declare 140 generic { +declare 131 generic { int Tcl_Import(Tcl_Interp *interp, Tcl_Namespace *nsPtr, \ char *pattern, int allowOverwrite) } -declare 141 generic { +declare 132 generic { void Tcl_PopCallFrame(Tcl_Interp* interp) } -declare 142 generic { +declare 133 generic { int Tcl_PushCallFrame(Tcl_Interp* interp, Tcl_CallFrame *framePtr, \ Tcl_Namespace *nsPtr, int isProcCallFrame) } -declare 143 generic { +declare 134 generic { int Tcl_RemoveInterpResolvers(Tcl_Interp *interp, char *name) } -declare 144 generic { +declare 135 generic { void Tcl_SetNamespaceResolvers(Tcl_Namespace *namespacePtr, \ Tcl_ResolveCmdProc *cmdProc, Tcl_ResolveVarProc *varProc, \ Tcl_ResolveCompiledVarProc *compiledVarProc) @@ -528,47 +497,60 @@ declare 144 generic { # Compilation procedures for commands in the generic core: -declare 145 generic { +declare 136 generic { int TclCompileBreakCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 146 generic { +declare 137 generic { int TclCompileCatchCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 147 generic { +declare 138 generic { int TclCompileContinueCmd(Tcl_Interp *interp, char *string, \ char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 148 generic { +declare 139 generic { int TclCompileExprCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 149 generic { +declare 140 generic { int TclCompileForCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 150 generic { +declare 141 generic { int TclCompileForeachCmd(Tcl_Interp *interp, char *string, \ char *lastChar, int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 151 generic { +declare 142 generic { int TclCompileIfCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 152 generic { +declare 143 generic { int TclCompileIncrCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 153 generic { +declare 144 generic { int TclCompileSetCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } -declare 154 generic { +declare 145 generic { int TclCompileWhileCmd(Tcl_Interp *interp, char *string, char *lastChar, \ int compileFlags, struct CompileEnv *compileEnvPtr) } +declare 146 generic { + int TclHasSockets(Tcl_Interp *interp) +} +declare 147 generic { + struct tm * TclpGetDate(TclpTime_t time, int useGMT) +} +declare 148 generic { + size_t TclStrftime(char *s, size_t maxsize, const char *format, \ + const struct tm *t) +} +declare 149 generic { + int TclpCheckStackSpace(void) +} ############################################################################## @@ -577,24 +559,111 @@ declare 154 generic { interface tclIntPlat +######################## # Mac specific internals declare 0 mac { - int TclpCheckStackSpace(void) + VOID * TclpSysAlloc(long size, int isBin) } declare 1 mac { - VOID * TclpSysAlloc(long size, int isBin) + void TclpSysFree(VOID *ptr) } declare 2 mac { - void TclpSysFree(VOID *ptr) + VOID * TclpSysRealloc(VOID *cp, unsigned int size) } declare 3 mac { - VOID * TclpSysRealloc(VOID *cp, unsigned int size) + void TclPlatformExit(int status) } + +# Prototypes for functions found in the tclMacUtil.c compatability library. + declare 4 mac { - void TclPlatformExit(int status) + int FSpGetDefaultDir(FSSpecPtr theSpec) +} +declare 5 mac { + int FSpSetDefaultDir(FSSpecPtr theSpec) +} +declare 6 mac { + OSErr FSpFindFolder(short vRefNum, OSType folderType, \ + Boolean createFolder, FSSpec *spec) +} +declare 7 mac { + void GetGlobalMouse(Point *mouse) +} + +# The following routines are utility functions in Tcl. They are exported +# here because they are needed in Tk. They are not officially supported, +# however. The first set are from the MoreFiles package. + +declare 8 mac { + pascal OSErr FSpGetDirectoryID(const FSSpec *spec, long *theDirID, \ + Boolean *isDirectory) +} +declare 9 mac { + pascal short FSpOpenResFileCompat(const FSSpec *spec, \ + SignedByte permission) +} +declare 10 mac { + pascal void FSpCreateResFileCompat(const FSSpec *spec, OSType creator, \ + OSType fileType, ScriptCode scriptTag) +} + +# Like the MoreFiles routines these fix problems in the standard +# Mac calls. These routines are from tclMacUtils.h. + +declare 11 mac { + int FSpLocationFromPath(int length, CONST char *path, FSSpecPtr theSpec) +} +declare 12 mac { + OSErr FSpPathFromLocation(FSSpecPtr theSpec, int *length, \ + Handle *fullPath) +} + +# Prototypes of Mac only internal functions. + +declare 13 mac { + void TclMacExitHandler(void) +} +declare 14 mac { + void TclMacInitExitToShell(int usePatch) +} +declare 15 mac { + OSErr TclMacInstallExitToShellPatch(ExitToShellProcPtr newProc) +} +declare 16 mac { + int TclMacOSErrorToPosixError(int error) +} +declare 17 mac { + void TclMacRemoveTimer(void *timerToken) +} +declare 18 mac { + void * TclMacStartTimer(long ms) +} +declare 19 mac { + int TclMacTimerExpired(void *timerToken) +} +declare 20 mac { + int TclMacRegisterResourceFork(short fileRef, Tcl_Obj *tokenPtr, \ + int insert) +} +declare 21 mac { + short TclMacUnRegisterResourceFork(char *tokenPtr, Tcl_Obj *resultPtr) +} +declare 22 mac { + int TclMacCreateEnv(void) +} +declare 23 mac { + FILE * TclMacFOpenHack(const char *path, const char *mode) +} +declare 24 mac { + int TclMacReadlink(char *path, char *buf, int size) +} +declare 25 mac { + int TclMacChmod(char *path, int mode) } + +############################ # Windows specific internals declare 0 win { @@ -615,7 +684,7 @@ declare 4 win { HINSTANCE TclWinGetTclInstance(void) } declare 5 win { - HINSTANCE TclWinLoadLibrary(char *name) + HINSTANCE TclWinLoadLibrary(char *name) } declare 6 win { u_short TclWinNToHS(u_short ns) @@ -624,3 +693,90 @@ declare 7 win { int TclWinSetSockOpt(SOCKET s, int level, int optname, \ const char FAR * optval, int optlen) } +declare 8 win { + unsigned long TclpGetPid(Tcl_Pid pid) +} +declare 9 win { + void TclpFinalize(void) +} +declare 10 win { + int TclWinGetPlatformId(void) +} +declare 11 win { + void TclWinInit(HINSTANCE hInst) +} +declare 12 win { + int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr) +} + +# Pipe channel functions + +declare 13 win { + void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan) +} +declare 14 win { + int TclpCloseFile(TclFile file) +} +declare 15 win { + Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \ + TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr) +} +declare 16 win { + int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) +} +declare 17 win { + int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ + TclFile inputFile, TclFile outputFile, TclFile errorFile, \ + Tcl_Pid *pidPtr) +} +declare 18 win { + TclFile TclpCreateTempFile(char *contents, + Tcl_DString *namePtr) +} +declare 19 win { + char * TclpGetTZName(void) +} +declare 20 win { + TclFile TclpMakeFile(Tcl_Channel channel, int direction) +} +declare 21 win { + TclFile TclpOpenFile(char *fname, int mode) +} + +######################### +# Unix specific internals + +# Pipe channel functions + +declare 0 unix { + void TclGetAndDetachPids(Tcl_Interp *interp, Tcl_Channel chan) +} +declare 1 unix { + int TclpCloseFile(TclFile file) +} +declare 2 unix { + Tcl_Channel TclpCreateCommandChannel(TclFile readFile, \ + TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr) +} +declare 3 unix { + int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) +} +declare 4 unix { + int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ + TclFile inputFile, TclFile outputFile, TclFile errorFile, \ + Tcl_Pid *pidPtr) +} +declare 5 unix { + TclFile TclpCreateTempFile(char *contents, + Tcl_DString *namePtr) +} +declare 6 unix { + TclFile TclpMakeFile(Tcl_Channel channel, int direction) +} +declare 7 unix { + TclFile TclpOpenFile(char *fname, int mode) +} +declare 8 unix { + int TclUnixWaitForFile(int fd, int mask, int timeout) +} + diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 6f9dba0..1152a56 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.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: tclIntDecls.h,v 1.1 1999/03/03 00:38:41 stanton Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.2 1999/03/04 01:01:58 stanton Exp $ */ #ifndef _TCLINTDECLS @@ -117,42 +117,39 @@ EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); /* 28 */ EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); /* 29 */ -EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, - Tcl_Channel chan)); -/* 30 */ EXTERN char * TclGetCwd _ANSI_ARGS_((Tcl_Interp * interp)); -/* 31 */ +/* 30 */ EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); -/* 32 */ +/* 31 */ EXTERN Tcl_Channel TclGetDefaultStdChannel _ANSI_ARGS_((int type)); -/* 33 */ +/* 32 */ EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); -/* 34 */ +/* 33 */ EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name)); -/* 35 */ +/* 34 */ EXTERN char * TclGetExtension _ANSI_ARGS_((char * name)); -/* 36 */ +/* 35 */ EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); -/* 37 */ +/* 36 */ EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); -/* 38 */ +/* 37 */ EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); -/* 39 */ +/* 38 */ EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); -/* 40 */ +/* 39 */ EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); -/* 41 */ +/* 40 */ EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( Tcl_Interp * interp, char * targetName)); -/* 42 */ +/* 41 */ EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, @@ -160,371 +157,356 @@ EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); -/* 43 */ +/* 42 */ EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); -/* 44 */ +/* 43 */ EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); -/* 45 */ +/* 44 */ EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( Tcl_Command command)); -/* 46 */ -EXTERN char * TclpGetUserHome _ANSI_ARGS_((char * name, +/* 45 */ +EXTERN char * TclGetUserHome _ANSI_ARGS_((char * name, Tcl_DString * bufferPtr)); -/* 47 */ +/* 46 */ EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); -/* 48 */ +/* 47 */ EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); -/* 49 */ -EXTERN int TclHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); -/* 50 */ +/* 48 */ EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 51 */ +/* 49 */ EXTERN int TclInExit _ANSI_ARGS_((void)); -/* 52 */ +/* 50 */ EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); -/* 53 */ +/* 51 */ EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, long incrAmount)); -/* 54 */ +/* 52 */ EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); -/* 55 */ +/* 53 */ EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); -/* 56 */ +/* 54 */ EXTERN void TclInitNamespaces _ANSI_ARGS_((void)); -/* 57 */ +/* 55 */ EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); -/* 58 */ +/* 56 */ EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); -/* 59 */ +/* 57 */ EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); -/* 60 */ +/* 58 */ EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); -/* 61 */ +/* 59 */ EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); -/* 62 */ +/* 60 */ EXTERN int TclLoadFile _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr)); -/* 63 */ +/* 61 */ EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * p)); -/* 64 */ +/* 62 */ EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); -/* 65 */ +/* 63 */ EXTERN int TclMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); -/* 66 */ +/* 64 */ EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end)); -/* 67 */ +/* 65 */ EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); -/* 68 */ +/* 66 */ EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); -/* 69 */ +/* 67 */ EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); -/* 70 */ +/* 68 */ EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); -/* 71 */ +/* 69 */ EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); -/* 72 */ +/* 70 */ EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( TclOpenFileChannelProc_ * proc)); -/* 73 */ +/* 71 */ EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( TclOpenFileChannelProc_ * proc)); -/* 74 */ +/* 72 */ +EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode)); +/* 73 */ EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); -/* 75 */ -EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); -/* 76 */ +/* 74 */ EXTERN int TclpCopyFile _ANSI_ARGS_((char * source, char * dest)); -/* 77 */ +/* 75 */ EXTERN int TclpCopyDirectory _ANSI_ARGS_((char * source, char * dest, Tcl_DString * errorPtr)); -/* 78 */ -EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( - TclFile readFile, TclFile writeFile, - TclFile errorFile, int numPids, - Tcl_Pid * pidPtr)); -/* 79 */ +/* 76 */ EXTERN int TclpCreateDirectory _ANSI_ARGS_((char * path)); -/* 80 */ -EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, - TclFile * writePipe)); -/* 81 */ -EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, - int argc, char ** argv, TclFile inputFile, - TclFile outputFile, TclFile errorFile, - Tcl_Pid * pidPtr)); -/* 82 */ -EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, - Tcl_DString * namePtr)); -/* 83 */ +/* 77 */ EXTERN int TclpDeleteFile _ANSI_ARGS_((char * path)); -/* 84 */ -EXTERN void TclpFinalize _ANSI_ARGS_((void)); -/* 85 */ +/* 78 */ EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); -/* 86 */ +/* 79 */ EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); -/* 87 */ +/* 80 */ EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); -/* 88 */ +/* 81 */ EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); -/* 89 */ +/* 82 */ EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); -/* 90 */ -EXTERN char * TclpGetTZName _ANSI_ARGS_((void)); -/* 91 */ +/* 83 */ EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp)); -/* 92 */ -EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, - int direction)); -/* 93 */ -EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); -/* 94 */ +/* 84 */ EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); -/* 95 */ +/* 85 */ EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, unsigned int size)); -/* 96 */ +/* 86 */ EXTERN int TclpRemoveDirectory _ANSI_ARGS_((char * path, int recursive, Tcl_DString * errorPtr)); -/* 97 */ +/* 87 */ EXTERN int TclpRenameFile _ANSI_ARGS_((char * source, char * dest)); -/* 98 */ +/* 88 */ EXTERN int TclParseBraces _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr, ParseValue * pvPtr)); -/* 99 */ +/* 89 */ EXTERN int TclParseNestedCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, int flags, char ** termPtr, ParseValue * pvPtr)); -/* 100 */ +/* 90 */ EXTERN int TclParseQuotes _ANSI_ARGS_((Tcl_Interp * interp, char * string, int termChar, int flags, char ** termPtr, ParseValue * pvPtr)); -/* 101 */ +/* 91 */ EXTERN void TclPlatformInit _ANSI_ARGS_((Tcl_Interp * interp)); -/* 102 */ +/* 92 */ EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); -/* 103 */ +/* 93 */ EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); -/* 104 */ +/* 94 */ EXTERN void TclPrintByteCodeObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 105 */ +/* 95 */ EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); -/* 106 */ +/* 96 */ EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); -/* 107 */ +/* 97 */ EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); -/* 108 */ +/* 98 */ EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); -/* 109 */ +/* 99 */ +EXTERN int TclpStat _ANSI_ARGS_((CONST char * path, + struct stat * buf)); +/* 100 */ EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); -/* 110 */ +/* 101 */ EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( Tcl_Interp * interp, Command * newCmdPtr)); -/* 111 */ +/* 102 */ EXTERN int TclServiceIdle _ANSI_ARGS_((void)); -/* 112 */ +/* 103 */ EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_(( Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); -/* 113 */ +/* 104 */ EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); -/* 114 */ +/* 105 */ EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); -/* 115 */ +/* 106 */ EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); -/* 116 */ +/* 107 */ EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); -/* 117 */ +/* 108 */ EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, int size)); -/* 118 */ +/* 109 */ EXTERN int TclStat _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); -/* 119 */ +/* 110 */ EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); -/* 120 */ +/* 111 */ EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); -/* 121 */ +/* 112 */ EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); -/* 122 */ +/* 113 */ EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); -/* 123 */ +/* 114 */ EXTERN char * TclWordEnd _ANSI_ARGS_((char * start, char * lastChar, int nested, int * semiPtr)); -/* 124 */ +/* 115 */ EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); -/* 125 */ +/* 116 */ EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); -/* 126 */ +/* 117 */ EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); -/* 127 */ +/* 118 */ EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( Tcl_Namespace * nsPtr)); -/* 128 */ +/* 119 */ EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); -/* 129 */ +/* 120 */ EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); -/* 130 */ +/* 121 */ EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); -/* 131 */ +/* 122 */ EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); -/* 132 */ +/* 123 */ EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); -/* 133 */ +/* 124 */ EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); -/* 134 */ +/* 125 */ EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); -/* 135 */ +/* 126 */ EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Obj * objPtr)); -/* 136 */ +/* 127 */ EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); -/* 137 */ +/* 128 */ EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 138 */ +/* 129 */ EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( Tcl_Interp * interp)); -/* 139 */ +/* 130 */ EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); -/* 140 */ +/* 131 */ EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); -/* 141 */ +/* 132 */ EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); -/* 142 */ +/* 133 */ EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); -/* 143 */ +/* 134 */ EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( Tcl_Interp * interp, char * name)); -/* 144 */ +/* 135 */ EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); -/* 145 */ +/* 136 */ EXTERN int TclCompileBreakCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 146 */ +/* 137 */ EXTERN int TclCompileCatchCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 147 */ +/* 138 */ EXTERN int TclCompileContinueCmd _ANSI_ARGS_(( Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 148 */ +/* 139 */ EXTERN int TclCompileExprCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 149 */ +/* 140 */ EXTERN int TclCompileForCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 150 */ +/* 141 */ EXTERN int TclCompileForeachCmd _ANSI_ARGS_(( Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 151 */ +/* 142 */ EXTERN int TclCompileIfCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 152 */ +/* 143 */ EXTERN int TclCompileIncrCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 153 */ +/* 144 */ EXTERN int TclCompileSetCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); -/* 154 */ +/* 145 */ EXTERN int TclCompileWhileCmd _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); +/* 146 */ +EXTERN int TclHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); +/* 147 */ +EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT)); +/* 148 */ +EXTERN size_t TclStrftime _ANSI_ARGS_((char * s, size_t maxsize, + const char * format, const struct tm * t)); +/* 149 */ +EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); typedef struct TclIntStubs { int magic; @@ -559,132 +541,127 @@ typedef struct TclIntStubs { Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 26 */ int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 27 */ void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 28 */ - void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 29 */ - char * (*tclGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 30 */ - int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 31 */ - Tcl_Channel (*tclGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 32 */ - Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 33 */ - char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name)); /* 34 */ - char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 35 */ - int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 36 */ - TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 37 */ - int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 38 */ - Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 39 */ - int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 40 */ - int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 41 */ - int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 42 */ - TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 43 */ - int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 44 */ - Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 45 */ - char * (*tclpGetUserHome) _ANSI_ARGS_((char * name, Tcl_DString * bufferPtr)); /* 46 */ - int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 47 */ - int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 48 */ - int (*tclHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 49 */ - int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 50 */ - int (*tclInExit) _ANSI_ARGS_((void)); /* 51 */ - Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 52 */ - Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 53 */ - Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 54 */ - void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 55 */ - void (*tclInitNamespaces) _ANSI_ARGS_((void)); /* 56 */ - int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 57 */ - int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 58 */ - int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 59 */ - int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 60 */ - Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 61 */ - int (*tclLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr)); /* 62 */ - int (*tclLooksLikeInt) _ANSI_ARGS_((char * p)); /* 63 */ - Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 64 */ - int (*tclMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 65 */ - int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 66 */ - Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 67 */ - int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 68 */ - int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 69 */ - int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 70 */ - int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 71 */ - int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 72 */ - int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 73 */ - char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 74 */ - int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 75 */ - int (*tclpCopyFile) _ANSI_ARGS_((char * source, char * dest)); /* 76 */ - int (*tclpCopyDirectory) _ANSI_ARGS_((char * source, char * dest, Tcl_DString * errorPtr)); /* 77 */ - Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 78 */ - int (*tclpCreateDirectory) _ANSI_ARGS_((char * path)); /* 79 */ - int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 80 */ - int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 81 */ - TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 82 */ - int (*tclpDeleteFile) _ANSI_ARGS_((char * path)); /* 83 */ - void (*tclpFinalize) _ANSI_ARGS_((void)); /* 84 */ - void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 85 */ - unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 86 */ - unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 87 */ - void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 88 */ - int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 89 */ - char * (*tclpGetTZName) _ANSI_ARGS_((void)); /* 90 */ - int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 91 */ - TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 92 */ - TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 93 */ - Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 94 */ - char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 95 */ - int (*tclpRemoveDirectory) _ANSI_ARGS_((char * path, int recursive, Tcl_DString * errorPtr)); /* 96 */ - int (*tclpRenameFile) _ANSI_ARGS_((char * source, char * dest)); /* 97 */ - int (*tclParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr, ParseValue * pvPtr)); /* 98 */ - int (*tclParseNestedCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int flags, char ** termPtr, ParseValue * pvPtr)); /* 99 */ - int (*tclParseQuotes) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int termChar, int flags, char ** termPtr, ParseValue * pvPtr)); /* 100 */ - void (*tclPlatformInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 101 */ - char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 102 */ - int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 103 */ - void (*tclPrintByteCodeObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 104 */ - void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 105 */ - int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 106 */ - void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 107 */ - int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 108 */ - int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 109 */ - void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 110 */ - int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 111 */ - Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 112 */ - Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 113 */ - char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 114 */ - void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 115 */ - int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 116 */ - int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 117 */ - int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 118 */ - int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 119 */ - int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 120 */ - void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 121 */ - int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 122 */ - char * (*tclWordEnd) _ANSI_ARGS_((char * start, char * lastChar, int nested, int * semiPtr)); /* 123 */ - void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 124 */ - int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 125 */ - Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 126 */ - void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 127 */ - int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 128 */ - Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 129 */ - Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 130 */ - int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 131 */ - int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 132 */ - Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 133 */ - int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 134 */ - Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 135 */ - void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 136 */ - Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 137 */ - Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 138 */ - void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 139 */ - int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 140 */ - void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 141 */ - int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 142 */ - int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 143 */ - void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 144 */ - int (*tclCompileBreakCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 145 */ - int (*tclCompileCatchCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 146 */ - int (*tclCompileContinueCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 147 */ - int (*tclCompileExprCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 148 */ - int (*tclCompileForCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 149 */ - int (*tclCompileForeachCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 150 */ - int (*tclCompileIfCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 151 */ - int (*tclCompileIncrCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 152 */ - int (*tclCompileSetCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 153 */ - int (*tclCompileWhileCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 154 */ + char * (*tclGetCwd) _ANSI_ARGS_((Tcl_Interp * interp)); /* 29 */ + int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 30 */ + Tcl_Channel (*tclGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 31 */ + Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 32 */ + char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name)); /* 33 */ + char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 34 */ + int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 35 */ + TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 36 */ + int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 37 */ + Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 38 */ + int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 39 */ + int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 40 */ + int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 41 */ + TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 42 */ + int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 43 */ + Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 44 */ + char * (*tclGetUserHome) _ANSI_ARGS_((char * name, Tcl_DString * bufferPtr)); /* 45 */ + int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 46 */ + int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 47 */ + int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 48 */ + int (*tclInExit) _ANSI_ARGS_((void)); /* 49 */ + Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 50 */ + Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 51 */ + Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 52 */ + void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 53 */ + void (*tclInitNamespaces) _ANSI_ARGS_((void)); /* 54 */ + int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 55 */ + int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 56 */ + int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 57 */ + int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 58 */ + Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 59 */ + int (*tclLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr)); /* 60 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((char * p)); /* 61 */ + Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 62 */ + int (*tclMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 63 */ + int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 64 */ + Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 65 */ + int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 66 */ + int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 67 */ + int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 68 */ + int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 69 */ + int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 70 */ + int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 71 */ + int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 72 */ + char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 73 */ + int (*tclpCopyFile) _ANSI_ARGS_((char * source, char * dest)); /* 74 */ + int (*tclpCopyDirectory) _ANSI_ARGS_((char * source, char * dest, Tcl_DString * errorPtr)); /* 75 */ + int (*tclpCreateDirectory) _ANSI_ARGS_((char * path)); /* 76 */ + int (*tclpDeleteFile) _ANSI_ARGS_((char * path)); /* 77 */ + void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 78 */ + unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 79 */ + unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 80 */ + void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 81 */ + int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 82 */ + int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 83 */ + Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 84 */ + char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 85 */ + int (*tclpRemoveDirectory) _ANSI_ARGS_((char * path, int recursive, Tcl_DString * errorPtr)); /* 86 */ + int (*tclpRenameFile) _ANSI_ARGS_((char * source, char * dest)); /* 87 */ + int (*tclParseBraces) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char ** termPtr, ParseValue * pvPtr)); /* 88 */ + int (*tclParseNestedCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int flags, char ** termPtr, ParseValue * pvPtr)); /* 89 */ + int (*tclParseQuotes) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int termChar, int flags, char ** termPtr, ParseValue * pvPtr)); /* 90 */ + void (*tclPlatformInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 91 */ + char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 92 */ + int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 93 */ + void (*tclPrintByteCodeObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 94 */ + void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 95 */ + int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 96 */ + void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 97 */ + int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 98 */ + int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 99 */ + int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 100 */ + void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 101 */ + int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 102 */ + Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 103 */ + Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 104 */ + char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 105 */ + void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 106 */ + int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 107 */ + int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 108 */ + int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 109 */ + int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 110 */ + int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 111 */ + void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 112 */ + int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 113 */ + char * (*tclWordEnd) _ANSI_ARGS_((char * start, char * lastChar, int nested, int * semiPtr)); /* 114 */ + void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 115 */ + int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 116 */ + Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 117 */ + void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 118 */ + int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 119 */ + Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ + Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 121 */ + int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 122 */ + int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 123 */ + Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 124 */ + int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 125 */ + Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 126 */ + void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 127 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 128 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 129 */ + void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 130 */ + int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 131 */ + void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 132 */ + int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 133 */ + int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 134 */ + void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 135 */ + int (*tclCompileBreakCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 136 */ + int (*tclCompileCatchCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 137 */ + int (*tclCompileContinueCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 138 */ + int (*tclCompileExprCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 139 */ + int (*tclCompileForCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 140 */ + int (*tclCompileForeachCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 141 */ + int (*tclCompileIfCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 142 */ + int (*tclCompileIncrCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 143 */ + int (*tclCompileSetCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 144 */ + int (*tclCompileWhileCmd) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * lastChar, int compileFlags, struct CompileEnv * compileEnvPtr)); /* 145 */ + int (*tclHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 146 */ + struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 147 */ + size_t (*tclStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 148 */ + int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 149 */ } TclIntStubs; extern TclIntStubs *tclIntStubsPtr; @@ -811,509 +788,489 @@ extern TclIntStubs *tclIntStubsPtr; #define TclFreePackageInfo(iPtr) \ (tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 28 */ #endif -#ifndef TclGetAndDetachPids -#define TclGetAndDetachPids(interp, chan) \ - (tclIntStubsPtr->tclGetAndDetachPids)(interp, chan) /* 29 */ -#endif #ifndef TclGetCwd #define TclGetCwd(interp) \ - (tclIntStubsPtr->tclGetCwd)(interp) /* 30 */ + (tclIntStubsPtr->tclGetCwd)(interp) /* 29 */ #endif #ifndef TclGetDate #define TclGetDate(p, now, zone, timePtr) \ - (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 31 */ + (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 30 */ #endif #ifndef TclGetDefaultStdChannel #define TclGetDefaultStdChannel(type) \ - (tclIntStubsPtr->tclGetDefaultStdChannel)(type) /* 32 */ + (tclIntStubsPtr->tclGetDefaultStdChannel)(type) /* 31 */ #endif #ifndef TclGetElementOfIndexedArray #define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \ - (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 33 */ + (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 32 */ #endif #ifndef TclGetEnv #define TclGetEnv(name) \ - (tclIntStubsPtr->tclGetEnv)(name) /* 34 */ + (tclIntStubsPtr->tclGetEnv)(name) /* 33 */ #endif #ifndef TclGetExtension #define TclGetExtension(name) \ - (tclIntStubsPtr->tclGetExtension)(name) /* 35 */ + (tclIntStubsPtr->tclGetExtension)(name) /* 34 */ #endif #ifndef TclGetFrame #define TclGetFrame(interp, string, framePtrPtr) \ - (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 36 */ + (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 35 */ #endif #ifndef TclGetInterpProc #define TclGetInterpProc() \ - (tclIntStubsPtr->tclGetInterpProc)() /* 37 */ + (tclIntStubsPtr->tclGetInterpProc)() /* 36 */ #endif #ifndef TclGetIntForIndex #define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \ - (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 38 */ + (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 37 */ #endif #ifndef TclGetIndexedScalar #define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \ - (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 39 */ + (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 38 */ #endif #ifndef TclGetLong #define TclGetLong(interp, string, longPtr) \ - (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 40 */ + (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 39 */ #endif #ifndef TclGetLoadedPackages #define TclGetLoadedPackages(interp, targetName) \ - (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 41 */ + (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 40 */ #endif #ifndef TclGetNamespaceForQualName #define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \ - (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 42 */ + (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 41 */ #endif #ifndef TclGetObjInterpProc #define TclGetObjInterpProc() \ - (tclIntStubsPtr->tclGetObjInterpProc)() /* 43 */ + (tclIntStubsPtr->tclGetObjInterpProc)() /* 42 */ #endif #ifndef TclGetOpenMode #define TclGetOpenMode(interp, string, seekFlagPtr) \ - (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 44 */ + (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 43 */ #endif #ifndef TclGetOriginalCommand #define TclGetOriginalCommand(command) \ - (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 45 */ + (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 44 */ #endif -#ifndef TclpGetUserHome -#define TclpGetUserHome(name, bufferPtr) \ - (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 46 */ +#ifndef TclGetUserHome +#define TclGetUserHome(name, bufferPtr) \ + (tclIntStubsPtr->tclGetUserHome)(name, bufferPtr) /* 45 */ #endif #ifndef TclGlobalInvoke #define TclGlobalInvoke(interp, argc, argv, flags) \ - (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 47 */ + (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 46 */ #endif #ifndef TclGuessPackageName #define TclGuessPackageName(fileName, bufPtr) \ - (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 48 */ -#endif -#ifndef TclHasSockets -#define TclHasSockets(interp) \ - (tclIntStubsPtr->tclHasSockets)(interp) /* 49 */ + (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 47 */ #endif #ifndef TclHideUnsafeCommands #define TclHideUnsafeCommands(interp) \ - (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 50 */ + (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 48 */ #endif #ifndef TclInExit #define TclInExit() \ - (tclIntStubsPtr->tclInExit)() /* 51 */ + (tclIntStubsPtr->tclInExit)() /* 49 */ #endif #ifndef TclIncrElementOfIndexedArray #define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \ - (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 52 */ + (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 50 */ #endif #ifndef TclIncrIndexedScalar #define TclIncrIndexedScalar(interp, localIndex, incrAmount) \ - (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 53 */ + (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 51 */ #endif #ifndef TclIncrVar2 #define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \ - (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 54 */ + (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 52 */ #endif #ifndef TclInitCompiledLocals #define TclInitCompiledLocals(interp, framePtr, nsPtr) \ - (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 55 */ + (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 53 */ #endif #ifndef TclInitNamespaces #define TclInitNamespaces() \ - (tclIntStubsPtr->tclInitNamespaces)() /* 56 */ + (tclIntStubsPtr->tclInitNamespaces)() /* 54 */ #endif #ifndef TclInterpInit #define TclInterpInit(interp) \ - (tclIntStubsPtr->tclInterpInit)(interp) /* 57 */ + (tclIntStubsPtr->tclInterpInit)(interp) /* 55 */ #endif #ifndef TclInvoke #define TclInvoke(interp, argc, argv, flags) \ - (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 58 */ + (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 56 */ #endif #ifndef TclInvokeObjectCommand #define TclInvokeObjectCommand(clientData, interp, argc, argv) \ - (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 59 */ + (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 57 */ #endif #ifndef TclInvokeStringCommand #define TclInvokeStringCommand(clientData, interp, objc, objv) \ - (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 60 */ + (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 58 */ #endif #ifndef TclIsProc #define TclIsProc(cmdPtr) \ - (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 61 */ + (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 59 */ #endif #ifndef TclLoadFile #define TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) \ - (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) /* 62 */ + (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) /* 60 */ #endif #ifndef TclLooksLikeInt #define TclLooksLikeInt(p) \ - (tclIntStubsPtr->tclLooksLikeInt)(p) /* 63 */ + (tclIntStubsPtr->tclLooksLikeInt)(p) /* 61 */ #endif #ifndef TclLookupVar #define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \ - (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 64 */ + (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 62 */ #endif #ifndef TclMatchFiles #define TclMatchFiles(interp, separators, dirPtr, pattern, tail) \ - (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 65 */ + (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 63 */ #endif #ifndef TclNeedSpace #define TclNeedSpace(start, end) \ - (tclIntStubsPtr->tclNeedSpace)(start, end) /* 66 */ + (tclIntStubsPtr->tclNeedSpace)(start, end) /* 64 */ #endif #ifndef TclNewProcBodyObj #define TclNewProcBodyObj(procPtr) \ - (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 67 */ + (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 65 */ #endif #ifndef TclObjCommandComplete #define TclObjCommandComplete(cmdPtr) \ - (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 68 */ + (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 66 */ #endif #ifndef TclObjInterpProc #define TclObjInterpProc(clientData, interp, objc, objv) \ - (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 69 */ + (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 67 */ #endif #ifndef TclObjInvoke #define TclObjInvoke(interp, objc, objv, flags) \ - (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 70 */ + (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 68 */ #endif #ifndef TclObjInvokeGlobal #define TclObjInvokeGlobal(interp, objc, objv, flags) \ - (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 71 */ + (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 69 */ #endif #ifndef TclOpenFileChannelDeleteProc #define TclOpenFileChannelDeleteProc(proc) \ - (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 72 */ + (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 70 */ #endif #ifndef TclOpenFileChannelInsertProc #define TclOpenFileChannelInsertProc(proc) \ - (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 73 */ + (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 71 */ +#endif +#ifndef TclpAccess +#define TclpAccess(path, mode) \ + (tclIntStubsPtr->tclpAccess)(path, mode) /* 72 */ #endif #ifndef TclpAlloc #define TclpAlloc(size) \ - (tclIntStubsPtr->tclpAlloc)(size) /* 74 */ -#endif -#ifndef TclpCloseFile -#define TclpCloseFile(file) \ - (tclIntStubsPtr->tclpCloseFile)(file) /* 75 */ + (tclIntStubsPtr->tclpAlloc)(size) /* 73 */ #endif #ifndef TclpCopyFile #define TclpCopyFile(source, dest) \ - (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 76 */ + (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 74 */ #endif #ifndef TclpCopyDirectory #define TclpCopyDirectory(source, dest, errorPtr) \ - (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 77 */ -#endif -#ifndef TclpCreateCommandChannel -#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ - (tclIntStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 78 */ + (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 75 */ #endif #ifndef TclpCreateDirectory #define TclpCreateDirectory(path) \ - (tclIntStubsPtr->tclpCreateDirectory)(path) /* 79 */ -#endif -#ifndef TclpCreatePipe -#define TclpCreatePipe(readPipe, writePipe) \ - (tclIntStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 80 */ -#endif -#ifndef TclpCreateProcess -#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ - (tclIntStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 81 */ -#endif -#ifndef TclpCreateTempFile -#define TclpCreateTempFile(contents, namePtr) \ - (tclIntStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 82 */ + (tclIntStubsPtr->tclpCreateDirectory)(path) /* 76 */ #endif #ifndef TclpDeleteFile #define TclpDeleteFile(path) \ - (tclIntStubsPtr->tclpDeleteFile)(path) /* 83 */ -#endif -#ifndef TclpFinalize -#define TclpFinalize() \ - (tclIntStubsPtr->tclpFinalize)() /* 84 */ + (tclIntStubsPtr->tclpDeleteFile)(path) /* 77 */ #endif #ifndef TclpFree #define TclpFree(ptr) \ - (tclIntStubsPtr->tclpFree)(ptr) /* 85 */ + (tclIntStubsPtr->tclpFree)(ptr) /* 78 */ #endif #ifndef TclpGetClicks #define TclpGetClicks() \ - (tclIntStubsPtr->tclpGetClicks)() /* 86 */ + (tclIntStubsPtr->tclpGetClicks)() /* 79 */ #endif #ifndef TclpGetSeconds #define TclpGetSeconds() \ - (tclIntStubsPtr->tclpGetSeconds)() /* 87 */ + (tclIntStubsPtr->tclpGetSeconds)() /* 80 */ #endif #ifndef TclpGetTime #define TclpGetTime(time) \ - (tclIntStubsPtr->tclpGetTime)(time) /* 88 */ + (tclIntStubsPtr->tclpGetTime)(time) /* 81 */ #endif #ifndef TclpGetTimeZone #define TclpGetTimeZone(time) \ - (tclIntStubsPtr->tclpGetTimeZone)(time) /* 89 */ -#endif -#ifndef TclpGetTZName -#define TclpGetTZName() \ - (tclIntStubsPtr->tclpGetTZName)() /* 90 */ + (tclIntStubsPtr->tclpGetTimeZone)(time) /* 82 */ #endif #ifndef TclpListVolumes #define TclpListVolumes(interp) \ - (tclIntStubsPtr->tclpListVolumes)(interp) /* 91 */ -#endif -#ifndef TclpMakeFile -#define TclpMakeFile(channel, direction) \ - (tclIntStubsPtr->tclpMakeFile)(channel, direction) /* 92 */ -#endif -#ifndef TclpOpenFile -#define TclpOpenFile(fname, mode) \ - (tclIntStubsPtr->tclpOpenFile)(fname, mode) /* 93 */ + (tclIntStubsPtr->tclpListVolumes)(interp) /* 83 */ #endif #ifndef TclpOpenFileChannel #define TclpOpenFileChannel(interp, fileName, modeString, permissions) \ - (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 94 */ + (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 84 */ #endif #ifndef TclpRealloc #define TclpRealloc(ptr, size) \ - (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 95 */ + (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 85 */ #endif #ifndef TclpRemoveDirectory #define TclpRemoveDirectory(path, recursive, errorPtr) \ - (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 96 */ + (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 86 */ #endif #ifndef TclpRenameFile #define TclpRenameFile(source, dest) \ - (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 97 */ + (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 87 */ #endif #ifndef TclParseBraces #define TclParseBraces(interp, string, termPtr, pvPtr) \ - (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr) /* 98 */ + (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr) /* 88 */ #endif #ifndef TclParseNestedCmd #define TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) \ - (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr) /* 99 */ + (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr) /* 89 */ #endif #ifndef TclParseQuotes #define TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) \ - (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr) /* 100 */ + (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr) /* 90 */ #endif #ifndef TclPlatformInit #define TclPlatformInit(interp) \ - (tclIntStubsPtr->tclPlatformInit)(interp) /* 101 */ + (tclIntStubsPtr->tclPlatformInit)(interp) /* 91 */ #endif #ifndef TclPrecTraceProc #define TclPrecTraceProc(clientData, interp, name1, name2, flags) \ - (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 102 */ + (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 92 */ #endif #ifndef TclPreventAliasLoop #define TclPreventAliasLoop(interp, cmdInterp, cmd) \ - (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 103 */ + (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 93 */ #endif #ifndef TclPrintByteCodeObj #define TclPrintByteCodeObj(interp, objPtr) \ - (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr) /* 104 */ + (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr) /* 94 */ #endif #ifndef TclProcCleanupProc #define TclProcCleanupProc(procPtr) \ - (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 105 */ + (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 95 */ #endif #ifndef TclProcCompileProc #define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \ - (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 106 */ + (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 96 */ #endif #ifndef TclProcDeleteProc #define TclProcDeleteProc(clientData) \ - (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 107 */ + (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 97 */ #endif #ifndef TclProcInterpProc #define TclProcInterpProc(clientData, interp, argc, argv) \ - (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 108 */ + (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 98 */ +#endif +#ifndef TclpStat +#define TclpStat(path, buf) \ + (tclIntStubsPtr->tclpStat)(path, buf) /* 99 */ #endif #ifndef TclRenameCommand #define TclRenameCommand(interp, oldName, newName) \ - (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 109 */ + (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 100 */ #endif #ifndef TclResetShadowedCmdRefs #define TclResetShadowedCmdRefs(interp, newCmdPtr) \ - (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 110 */ + (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 101 */ #endif #ifndef TclServiceIdle #define TclServiceIdle() \ - (tclIntStubsPtr->tclServiceIdle)() /* 111 */ + (tclIntStubsPtr->tclServiceIdle)() /* 102 */ #endif #ifndef TclSetElementOfIndexedArray #define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \ - (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 112 */ + (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 103 */ #endif #ifndef TclSetIndexedScalar #define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \ - (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 113 */ + (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 104 */ #endif #ifndef TclSetPreInitScript #define TclSetPreInitScript(string) \ - (tclIntStubsPtr->tclSetPreInitScript)(string) /* 114 */ + (tclIntStubsPtr->tclSetPreInitScript)(string) /* 105 */ #endif #ifndef TclSetupEnv #define TclSetupEnv(interp) \ - (tclIntStubsPtr->tclSetupEnv)(interp) /* 115 */ + (tclIntStubsPtr->tclSetupEnv)(interp) /* 106 */ #endif #ifndef TclSockGetPort #define TclSockGetPort(interp, string, proto, portPtr) \ - (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 116 */ + (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 107 */ #endif #ifndef TclSockMinimumBuffers #define TclSockMinimumBuffers(sock, size) \ - (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 117 */ + (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 108 */ #endif #ifndef TclStat #define TclStat(path, buf) \ - (tclIntStubsPtr->tclStat)(path, buf) /* 118 */ + (tclIntStubsPtr->tclStat)(path, buf) /* 109 */ #endif #ifndef TclStatDeleteProc #define TclStatDeleteProc(proc) \ - (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 119 */ + (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 110 */ #endif #ifndef TclStatInsertProc #define TclStatInsertProc(proc) \ - (tclIntStubsPtr->tclStatInsertProc)(proc) /* 120 */ + (tclIntStubsPtr->tclStatInsertProc)(proc) /* 111 */ #endif #ifndef TclTeardownNamespace #define TclTeardownNamespace(nsPtr) \ - (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 121 */ + (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 112 */ #endif #ifndef TclUpdateReturnInfo #define TclUpdateReturnInfo(iPtr) \ - (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 122 */ + (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 113 */ #endif #ifndef TclWordEnd #define TclWordEnd(start, lastChar, nested, semiPtr) \ - (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr) /* 123 */ + (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr) /* 114 */ #endif #ifndef Tcl_AddInterpResolvers #define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \ - (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 124 */ + (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 115 */ #endif #ifndef Tcl_AppendExportList #define Tcl_AppendExportList(interp, nsPtr, objPtr) \ - (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 125 */ + (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 116 */ #endif #ifndef Tcl_CreateNamespace #define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \ - (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 126 */ + (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 117 */ #endif #ifndef Tcl_DeleteNamespace #define Tcl_DeleteNamespace(nsPtr) \ - (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 127 */ + (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 118 */ #endif #ifndef Tcl_Export #define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \ - (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 128 */ + (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 119 */ #endif #ifndef Tcl_FindCommand #define Tcl_FindCommand(interp, name, contextNsPtr, flags) \ - (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 129 */ + (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 120 */ #endif #ifndef Tcl_FindNamespace #define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \ - (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 130 */ + (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 121 */ #endif #ifndef Tcl_GetInterpResolvers #define Tcl_GetInterpResolvers(interp, name, resInfo) \ - (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 131 */ + (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 122 */ #endif #ifndef Tcl_GetNamespaceResolvers #define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \ - (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 132 */ + (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 123 */ #endif #ifndef Tcl_FindNamespaceVar #define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \ - (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 133 */ + (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 124 */ #endif #ifndef Tcl_ForgetImport #define Tcl_ForgetImport(interp, nsPtr, pattern) \ - (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 134 */ + (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 125 */ #endif #ifndef Tcl_GetCommandFromObj #define Tcl_GetCommandFromObj(interp, objPtr) \ - (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 135 */ + (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 126 */ #endif #ifndef Tcl_GetCommandFullName #define Tcl_GetCommandFullName(interp, command, objPtr) \ - (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 136 */ + (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 127 */ #endif #ifndef Tcl_GetCurrentNamespace #define Tcl_GetCurrentNamespace(interp) \ - (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 137 */ + (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 128 */ #endif #ifndef Tcl_GetGlobalNamespace #define Tcl_GetGlobalNamespace(interp) \ - (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 138 */ + (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 129 */ #endif #ifndef Tcl_GetVariableFullName #define Tcl_GetVariableFullName(interp, variable, objPtr) \ - (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 139 */ + (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 130 */ #endif #ifndef Tcl_Import #define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \ - (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 140 */ + (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 131 */ #endif #ifndef Tcl_PopCallFrame #define Tcl_PopCallFrame(interp) \ - (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 141 */ + (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 132 */ #endif #ifndef Tcl_PushCallFrame #define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \ - (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 142 */ + (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 133 */ #endif #ifndef Tcl_RemoveInterpResolvers #define Tcl_RemoveInterpResolvers(interp, name) \ - (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 143 */ + (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 134 */ #endif #ifndef Tcl_SetNamespaceResolvers #define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \ - (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 144 */ + (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 135 */ #endif #ifndef TclCompileBreakCmd #define TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 145 */ + (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 136 */ #endif #ifndef TclCompileCatchCmd #define TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 146 */ + (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 137 */ #endif #ifndef TclCompileContinueCmd #define TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 147 */ + (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 138 */ #endif #ifndef TclCompileExprCmd #define TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 148 */ + (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 139 */ #endif #ifndef TclCompileForCmd #define TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 149 */ + (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 140 */ #endif #ifndef TclCompileForeachCmd #define TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 150 */ + (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 141 */ #endif #ifndef TclCompileIfCmd #define TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 151 */ + (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 142 */ #endif #ifndef TclCompileIncrCmd #define TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 152 */ + (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 143 */ #endif #ifndef TclCompileSetCmd #define TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 153 */ + (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 144 */ #endif #ifndef TclCompileWhileCmd #define TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) \ - (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 154 */ + (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr) /* 145 */ +#endif +#ifndef TclHasSockets +#define TclHasSockets(interp) \ + (tclIntStubsPtr->tclHasSockets)(interp) /* 146 */ +#endif +#ifndef TclpGetDate +#define TclpGetDate(time, useGMT) \ + (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 147 */ +#endif +#ifndef TclStrftime +#define TclStrftime(s, maxsize, format, t) \ + (tclIntStubsPtr->tclStrftime)(s, maxsize, format, t) /* 148 */ +#endif +#ifndef TclpCheckStackSpace +#define TclpCheckStackSpace() \ + (tclIntStubsPtr->tclpCheckStackSpace)() /* 149 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 35d5b95..04861f0 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.1 1999/03/03 00:38:41 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.2 1999/03/04 01:01:58 stanton Exp $ */ #ifndef _TCLINTPLATDECLS @@ -49,19 +49,145 @@ EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); 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 void TclpFinalize _ANSI_ARGS_((void)); +/* 10 */ +EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); +/* 11 */ +EXTERN void TclWinInit _ANSI_ARGS_((HINSTANCE hInst)); +/* 12 */ +EXTERN int TclWinSynchSpawn _ANSI_ARGS_((void * args, int type, + void ** trans, Tcl_Pid * pidPtr)); +/* 13 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 14 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 15 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 16 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 17 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* 18 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char * contents, + Tcl_DString * namePtr)); +/* 19 */ +EXTERN char * TclpGetTZName _ANSI_ARGS_((void)); +/* 20 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 21 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((char * fname, int mode)); #endif /* __WIN32__ */ -#ifdef MAC_TCL +#if !defined(__WIN32__) && !defined(MAC_TCL) /* 0 */ -EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); /* 1 */ -EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); /* 2 */ -EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); +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)); -/* 4 */ +/* 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 { @@ -77,13 +203,59 @@ typedef struct TclIntPlatStubs { 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 */ + void (*tclpFinalize) _ANSI_ARGS_((void)); /* 9 */ + int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 10 */ + void (*tclWinInit) _ANSI_ARGS_((HINSTANCE hInst)); /* 11 */ + int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 12 */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 13 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 14 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 15 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 16 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 17 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((char * contents, Tcl_DString * namePtr)); /* 18 */ + char * (*tclpGetTZName) _ANSI_ARGS_((void)); /* 19 */ + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 20 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((char * fname, int mode)); /* 21 */ #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 - int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 0 */ - VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 1 */ - void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 2 */ - VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 3 */ - void (*tclPlatformExit) _ANSI_ARGS_((int status)); /* 4 */ + 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; @@ -128,27 +300,205 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #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 TclpFinalize +#define TclpFinalize() \ + (tclIntPlatStubsPtr->tclpFinalize)() /* 9 */ +#endif +#ifndef TclWinGetPlatformId +#define TclWinGetPlatformId() \ + (tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 10 */ +#endif +#ifndef TclWinInit +#define TclWinInit(hInst) \ + (tclIntPlatStubsPtr->tclWinInit)(hInst) /* 11 */ +#endif +#ifndef TclWinSynchSpawn +#define TclWinSynchSpawn(args, type, trans, pidPtr) \ + (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 12 */ +#endif +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 13 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 14 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 15 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 16 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 17 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents, namePtr) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr) /* 18 */ +#endif +#ifndef TclpGetTZName +#define TclpGetTZName() \ + (tclIntPlatStubsPtr->tclpGetTZName)() /* 19 */ +#endif +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 20 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 21 */ +#endif #endif /* __WIN32__ */ -#ifdef MAC_TCL -#ifndef TclpCheckStackSpace -#define TclpCheckStackSpace() \ - (tclIntPlatStubsPtr->tclpCheckStackSpace)() /* 0 */ +#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) /* 1 */ + (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 0 */ #endif #ifndef TclpSysFree #define TclpSysFree(ptr) \ - (tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 2 */ + (tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 1 */ #endif #ifndef TclpSysRealloc #define TclpSysRealloc(cp, size) \ - (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 3 */ + (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 2 */ #endif #ifndef TclPlatformExit #define TclPlatformExit(status) \ - (tclIntPlatStubsPtr->tclPlatformExit)(status) /* 4 */ + (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 */ diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c index 1a10ac5..6140fc6 100644 --- a/generic/tclIntPlatStubs.c +++ b/generic/tclIntPlatStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.1 1999/03/03 00:38:41 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.2 1999/03/04 01:01:58 stanton Exp $ */ #include "tclInt.h" @@ -98,16 +98,227 @@ TclWinSetSockOpt(s, level, optname, optval, optlen) return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen); } +/* Slot 8 */ +unsigned long +TclpGetPid(pid) + Tcl_Pid pid; +{ + return (tclIntPlatStubsPtr->tclpGetPid)(pid); +} + +/* Slot 9 */ +void +TclpFinalize() +{ + (tclIntPlatStubsPtr->tclpFinalize)(); +} + +/* Slot 10 */ +int +TclWinGetPlatformId() +{ + return (tclIntPlatStubsPtr->tclWinGetPlatformId)(); +} + +/* Slot 11 */ +void +TclWinInit(hInst) + HINSTANCE hInst; +{ + (tclIntPlatStubsPtr->tclWinInit)(hInst); +} + +/* Slot 12 */ +int +TclWinSynchSpawn(args, type, trans, pidPtr) + void * args; + int type; + void ** trans; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr); +} + +/* Slot 13 */ +void +TclGetAndDetachPids(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); +} + +/* Slot 14 */ +int +TclpCloseFile(file) + TclFile file; +{ + return (tclIntPlatStubsPtr->tclpCloseFile)(file); +} + +/* Slot 15 */ +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 16 */ +int +TclpCreatePipe(readPipe, writePipe) + TclFile * readPipe; + TclFile * writePipe; +{ + return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); +} + +/* Slot 17 */ +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 18 */ +TclFile +TclpCreateTempFile(contents, namePtr) + char * contents; + Tcl_DString * namePtr; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents, namePtr); +} + +/* Slot 19 */ +char * +TclpGetTZName() +{ + return (tclIntPlatStubsPtr->tclpGetTZName)(); +} + +/* Slot 20 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 21 */ +TclFile +TclpOpenFile(fname, mode) + char * fname; + int mode; +{ + return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); +} + #endif /* __WIN32__ */ -#ifdef MAC_TCL +#if !defined(__WIN32__) && !defined(MAC_TCL) /* Slot 0 */ -int -TclpCheckStackSpace() +void +TclGetAndDetachPids(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; { - return (tclIntPlatStubsPtr->tclpCheckStackSpace)(); + (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; @@ -116,7 +327,7 @@ TclpSysAlloc(size, isBin) return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin); } -/* Slot 2 */ +/* Slot 1 */ void TclpSysFree(ptr) VOID * ptr; @@ -124,7 +335,7 @@ TclpSysFree(ptr) (tclIntPlatStubsPtr->tclpSysFree)(ptr); } -/* Slot 3 */ +/* Slot 2 */ VOID * TclpSysRealloc(cp, size) VOID * cp; @@ -133,7 +344,7 @@ TclpSysRealloc(cp, size) return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size); } -/* Slot 4 */ +/* Slot 3 */ void TclPlatformExit(status) int status; @@ -141,6 +352,200 @@ TclPlatformExit(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 index 34ea414..224bedb 100644 --- a/generic/tclIntStubs.c +++ b/generic/tclIntStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntStubs.c,v 1.1 1999/03/03 00:38:41 stanton Exp $ + * RCS: @(#) $Id: tclIntStubs.c,v 1.2 1999/03/04 01:01:58 stanton Exp $ */ #include "tclInt.h" @@ -300,15 +300,6 @@ TclFreePackageInfo(iPtr) } /* Slot 29 */ -void -TclGetAndDetachPids(interp, chan) - Tcl_Interp * interp; - Tcl_Channel chan; -{ - (tclIntStubsPtr->tclGetAndDetachPids)(interp, chan); -} - -/* Slot 30 */ char * TclGetCwd(interp) Tcl_Interp * interp; @@ -316,7 +307,7 @@ TclGetCwd(interp) return (tclIntStubsPtr->tclGetCwd)(interp); } -/* Slot 31 */ +/* Slot 30 */ int TclGetDate(p, now, zone, timePtr) char * p; @@ -327,7 +318,7 @@ TclGetDate(p, now, zone, timePtr) return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr); } -/* Slot 32 */ +/* Slot 31 */ Tcl_Channel TclGetDefaultStdChannel(type) int type; @@ -335,7 +326,7 @@ TclGetDefaultStdChannel(type) return (tclIntStubsPtr->tclGetDefaultStdChannel)(type); } -/* Slot 33 */ +/* Slot 32 */ Tcl_Obj * TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) Tcl_Interp * interp; @@ -346,7 +337,7 @@ TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg); } -/* Slot 34 */ +/* Slot 33 */ char * TclGetEnv(name) CONST char * name; @@ -354,7 +345,7 @@ TclGetEnv(name) return (tclIntStubsPtr->tclGetEnv)(name); } -/* Slot 35 */ +/* Slot 34 */ char * TclGetExtension(name) char * name; @@ -362,7 +353,7 @@ TclGetExtension(name) return (tclIntStubsPtr->tclGetExtension)(name); } -/* Slot 36 */ +/* Slot 35 */ int TclGetFrame(interp, string, framePtrPtr) Tcl_Interp * interp; @@ -372,14 +363,14 @@ TclGetFrame(interp, string, framePtrPtr) return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr); } -/* Slot 37 */ +/* Slot 36 */ TclCmdProcType TclGetInterpProc() { return (tclIntStubsPtr->tclGetInterpProc)(); } -/* Slot 38 */ +/* Slot 37 */ int TclGetIntForIndex(interp, objPtr, endValue, indexPtr) Tcl_Interp * interp; @@ -390,7 +381,7 @@ TclGetIntForIndex(interp, objPtr, endValue, indexPtr) return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr); } -/* Slot 39 */ +/* Slot 38 */ Tcl_Obj * TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) Tcl_Interp * interp; @@ -400,7 +391,7 @@ TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg); } -/* Slot 40 */ +/* Slot 39 */ int TclGetLong(interp, string, longPtr) Tcl_Interp * interp; @@ -410,7 +401,7 @@ TclGetLong(interp, string, longPtr) return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr); } -/* Slot 41 */ +/* Slot 40 */ int TclGetLoadedPackages(interp, targetName) Tcl_Interp * interp; @@ -419,7 +410,7 @@ TclGetLoadedPackages(interp, targetName) return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName); } -/* Slot 42 */ +/* Slot 41 */ int TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) Tcl_Interp * interp; @@ -434,14 +425,14 @@ TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtr return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr); } -/* Slot 43 */ +/* Slot 42 */ TclObjCmdProcType TclGetObjInterpProc() { return (tclIntStubsPtr->tclGetObjInterpProc)(); } -/* Slot 44 */ +/* Slot 43 */ int TclGetOpenMode(interp, string, seekFlagPtr) Tcl_Interp * interp; @@ -451,7 +442,7 @@ TclGetOpenMode(interp, string, seekFlagPtr) return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr); } -/* Slot 45 */ +/* Slot 44 */ Tcl_Command TclGetOriginalCommand(command) Tcl_Command command; @@ -459,16 +450,16 @@ TclGetOriginalCommand(command) return (tclIntStubsPtr->tclGetOriginalCommand)(command); } -/* Slot 46 */ +/* Slot 45 */ char * -TclpGetUserHome(name, bufferPtr) +TclGetUserHome(name, bufferPtr) char * name; Tcl_DString * bufferPtr; { - return (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr); + return (tclIntStubsPtr->tclGetUserHome)(name, bufferPtr); } -/* Slot 47 */ +/* Slot 46 */ int TclGlobalInvoke(interp, argc, argv, flags) Tcl_Interp * interp; @@ -479,7 +470,7 @@ TclGlobalInvoke(interp, argc, argv, flags) return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags); } -/* Slot 48 */ +/* Slot 47 */ int TclGuessPackageName(fileName, bufPtr) char * fileName; @@ -488,15 +479,7 @@ TclGuessPackageName(fileName, bufPtr) return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr); } -/* Slot 49 */ -int -TclHasSockets(interp) - Tcl_Interp * interp; -{ - return (tclIntStubsPtr->tclHasSockets)(interp); -} - -/* Slot 50 */ +/* Slot 48 */ int TclHideUnsafeCommands(interp) Tcl_Interp * interp; @@ -504,14 +487,14 @@ TclHideUnsafeCommands(interp) return (tclIntStubsPtr->tclHideUnsafeCommands)(interp); } -/* Slot 51 */ +/* Slot 49 */ int TclInExit() { return (tclIntStubsPtr->tclInExit)(); } -/* Slot 52 */ +/* Slot 50 */ Tcl_Obj * TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) Tcl_Interp * interp; @@ -522,7 +505,7 @@ TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount); } -/* Slot 53 */ +/* Slot 51 */ Tcl_Obj * TclIncrIndexedScalar(interp, localIndex, incrAmount) Tcl_Interp * interp; @@ -532,7 +515,7 @@ TclIncrIndexedScalar(interp, localIndex, incrAmount) return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount); } -/* Slot 54 */ +/* Slot 52 */ Tcl_Obj * TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) Tcl_Interp * interp; @@ -544,7 +527,7 @@ TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed); } -/* Slot 55 */ +/* Slot 53 */ void TclInitCompiledLocals(interp, framePtr, nsPtr) Tcl_Interp * interp; @@ -554,14 +537,14 @@ TclInitCompiledLocals(interp, framePtr, nsPtr) (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr); } -/* Slot 56 */ +/* Slot 54 */ void TclInitNamespaces() { (tclIntStubsPtr->tclInitNamespaces)(); } -/* Slot 57 */ +/* Slot 55 */ int TclInterpInit(interp) Tcl_Interp * interp; @@ -569,7 +552,7 @@ TclInterpInit(interp) return (tclIntStubsPtr->tclInterpInit)(interp); } -/* Slot 58 */ +/* Slot 56 */ int TclInvoke(interp, argc, argv, flags) Tcl_Interp * interp; @@ -580,7 +563,7 @@ TclInvoke(interp, argc, argv, flags) return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags); } -/* Slot 59 */ +/* Slot 57 */ int TclInvokeObjectCommand(clientData, interp, argc, argv) ClientData clientData; @@ -591,7 +574,7 @@ TclInvokeObjectCommand(clientData, interp, argc, argv) return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv); } -/* Slot 60 */ +/* Slot 58 */ int TclInvokeStringCommand(clientData, interp, objc, objv) ClientData clientData; @@ -602,7 +585,7 @@ TclInvokeStringCommand(clientData, interp, objc, objv) return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv); } -/* Slot 61 */ +/* Slot 59 */ Proc * TclIsProc(cmdPtr) Command * cmdPtr; @@ -610,7 +593,7 @@ TclIsProc(cmdPtr) return (tclIntStubsPtr->tclIsProc)(cmdPtr); } -/* Slot 62 */ +/* Slot 60 */ int TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) Tcl_Interp * interp; @@ -623,7 +606,7 @@ TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr) return (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr); } -/* Slot 63 */ +/* Slot 61 */ int TclLooksLikeInt(p) char * p; @@ -631,7 +614,7 @@ TclLooksLikeInt(p) return (tclIntStubsPtr->tclLooksLikeInt)(p); } -/* Slot 64 */ +/* Slot 62 */ Var * TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) Tcl_Interp * interp; @@ -646,7 +629,7 @@ TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPt return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr); } -/* Slot 65 */ +/* Slot 63 */ int TclMatchFiles(interp, separators, dirPtr, pattern, tail) Tcl_Interp * interp; @@ -658,7 +641,7 @@ TclMatchFiles(interp, separators, dirPtr, pattern, tail) return (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail); } -/* Slot 66 */ +/* Slot 64 */ int TclNeedSpace(start, end) char * start; @@ -667,7 +650,7 @@ TclNeedSpace(start, end) return (tclIntStubsPtr->tclNeedSpace)(start, end); } -/* Slot 67 */ +/* Slot 65 */ Tcl_Obj * TclNewProcBodyObj(procPtr) Proc * procPtr; @@ -675,7 +658,7 @@ TclNewProcBodyObj(procPtr) return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr); } -/* Slot 68 */ +/* Slot 66 */ int TclObjCommandComplete(cmdPtr) Tcl_Obj * cmdPtr; @@ -683,7 +666,7 @@ TclObjCommandComplete(cmdPtr) return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr); } -/* Slot 69 */ +/* Slot 67 */ int TclObjInterpProc(clientData, interp, objc, objv) ClientData clientData; @@ -694,7 +677,7 @@ TclObjInterpProc(clientData, interp, objc, objv) return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv); } -/* Slot 70 */ +/* Slot 68 */ int TclObjInvoke(interp, objc, objv, flags) Tcl_Interp * interp; @@ -705,7 +688,7 @@ TclObjInvoke(interp, objc, objv, flags) return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags); } -/* Slot 71 */ +/* Slot 69 */ int TclObjInvokeGlobal(interp, objc, objv, flags) Tcl_Interp * interp; @@ -716,7 +699,7 @@ TclObjInvokeGlobal(interp, objc, objv, flags) return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags); } -/* Slot 72 */ +/* Slot 70 */ int TclOpenFileChannelDeleteProc(proc) TclOpenFileChannelProc_ * proc; @@ -724,7 +707,7 @@ TclOpenFileChannelDeleteProc(proc) return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc); } -/* Slot 73 */ +/* Slot 71 */ int TclOpenFileChannelInsertProc(proc) TclOpenFileChannelProc_ * proc; @@ -732,7 +715,16 @@ TclOpenFileChannelInsertProc(proc) return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc); } -/* Slot 74 */ +/* Slot 72 */ +int +TclpAccess(path, mode) + CONST char * path; + int mode; +{ + return (tclIntStubsPtr->tclpAccess)(path, mode); +} + +/* Slot 73 */ char * TclpAlloc(size) unsigned int size; @@ -740,15 +732,7 @@ TclpAlloc(size) return (tclIntStubsPtr->tclpAlloc)(size); } -/* Slot 75 */ -int -TclpCloseFile(file) - TclFile file; -{ - return (tclIntStubsPtr->tclpCloseFile)(file); -} - -/* Slot 76 */ +/* Slot 74 */ int TclpCopyFile(source, dest) char * source; @@ -757,7 +741,7 @@ TclpCopyFile(source, dest) return (tclIntStubsPtr->tclpCopyFile)(source, dest); } -/* Slot 77 */ +/* Slot 75 */ int TclpCopyDirectory(source, dest, errorPtr) char * source; @@ -767,19 +751,7 @@ TclpCopyDirectory(source, dest, errorPtr) return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr); } -/* Slot 78 */ -Tcl_Channel -TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) - TclFile readFile; - TclFile writeFile; - TclFile errorFile; - int numPids; - Tcl_Pid * pidPtr; -{ - return (tclIntStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); -} - -/* Slot 79 */ +/* Slot 76 */ int TclpCreateDirectory(path) char * path; @@ -787,39 +759,7 @@ TclpCreateDirectory(path) return (tclIntStubsPtr->tclpCreateDirectory)(path); } -/* Slot 80 */ -int -TclpCreatePipe(readPipe, writePipe) - TclFile * readPipe; - TclFile * writePipe; -{ - return (tclIntStubsPtr->tclpCreatePipe)(readPipe, writePipe); -} - -/* Slot 81 */ -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 (tclIntStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); -} - -/* Slot 82 */ -TclFile -TclpCreateTempFile(contents, namePtr) - char * contents; - Tcl_DString * namePtr; -{ - return (tclIntStubsPtr->tclpCreateTempFile)(contents, namePtr); -} - -/* Slot 83 */ +/* Slot 77 */ int TclpDeleteFile(path) char * path; @@ -827,14 +767,7 @@ TclpDeleteFile(path) return (tclIntStubsPtr->tclpDeleteFile)(path); } -/* Slot 84 */ -void -TclpFinalize() -{ - (tclIntStubsPtr->tclpFinalize)(); -} - -/* Slot 85 */ +/* Slot 78 */ void TclpFree(ptr) char * ptr; @@ -842,21 +775,21 @@ TclpFree(ptr) (tclIntStubsPtr->tclpFree)(ptr); } -/* Slot 86 */ +/* Slot 79 */ unsigned long TclpGetClicks() { return (tclIntStubsPtr->tclpGetClicks)(); } -/* Slot 87 */ +/* Slot 80 */ unsigned long TclpGetSeconds() { return (tclIntStubsPtr->tclpGetSeconds)(); } -/* Slot 88 */ +/* Slot 81 */ void TclpGetTime(time) Tcl_Time * time; @@ -864,7 +797,7 @@ TclpGetTime(time) (tclIntStubsPtr->tclpGetTime)(time); } -/* Slot 89 */ +/* Slot 82 */ int TclpGetTimeZone(time) unsigned long time; @@ -872,14 +805,7 @@ TclpGetTimeZone(time) return (tclIntStubsPtr->tclpGetTimeZone)(time); } -/* Slot 90 */ -char * -TclpGetTZName() -{ - return (tclIntStubsPtr->tclpGetTZName)(); -} - -/* Slot 91 */ +/* Slot 83 */ int TclpListVolumes(interp) Tcl_Interp * interp; @@ -887,25 +813,7 @@ TclpListVolumes(interp) return (tclIntStubsPtr->tclpListVolumes)(interp); } -/* Slot 92 */ -TclFile -TclpMakeFile(channel, direction) - Tcl_Channel channel; - int direction; -{ - return (tclIntStubsPtr->tclpMakeFile)(channel, direction); -} - -/* Slot 93 */ -TclFile -TclpOpenFile(fname, mode) - char * fname; - int mode; -{ - return (tclIntStubsPtr->tclpOpenFile)(fname, mode); -} - -/* Slot 94 */ +/* Slot 84 */ Tcl_Channel TclpOpenFileChannel(interp, fileName, modeString, permissions) Tcl_Interp * interp; @@ -916,7 +824,7 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions) return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions); } -/* Slot 95 */ +/* Slot 85 */ char * TclpRealloc(ptr, size) char * ptr; @@ -925,7 +833,7 @@ TclpRealloc(ptr, size) return (tclIntStubsPtr->tclpRealloc)(ptr, size); } -/* Slot 96 */ +/* Slot 86 */ int TclpRemoveDirectory(path, recursive, errorPtr) char * path; @@ -935,7 +843,7 @@ TclpRemoveDirectory(path, recursive, errorPtr) return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr); } -/* Slot 97 */ +/* Slot 87 */ int TclpRenameFile(source, dest) char * source; @@ -944,7 +852,7 @@ TclpRenameFile(source, dest) return (tclIntStubsPtr->tclpRenameFile)(source, dest); } -/* Slot 98 */ +/* Slot 88 */ int TclParseBraces(interp, string, termPtr, pvPtr) Tcl_Interp * interp; @@ -955,7 +863,7 @@ TclParseBraces(interp, string, termPtr, pvPtr) return (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr); } -/* Slot 99 */ +/* Slot 89 */ int TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) Tcl_Interp * interp; @@ -967,7 +875,7 @@ TclParseNestedCmd(interp, string, flags, termPtr, pvPtr) return (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr); } -/* Slot 100 */ +/* Slot 90 */ int TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) Tcl_Interp * interp; @@ -980,7 +888,7 @@ TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr) return (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr); } -/* Slot 101 */ +/* Slot 91 */ void TclPlatformInit(interp) Tcl_Interp * interp; @@ -988,7 +896,7 @@ TclPlatformInit(interp) (tclIntStubsPtr->tclPlatformInit)(interp); } -/* Slot 102 */ +/* Slot 92 */ char * TclPrecTraceProc(clientData, interp, name1, name2, flags) ClientData clientData; @@ -1000,7 +908,7 @@ TclPrecTraceProc(clientData, interp, name1, name2, flags) return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags); } -/* Slot 103 */ +/* Slot 93 */ int TclPreventAliasLoop(interp, cmdInterp, cmd) Tcl_Interp * interp; @@ -1010,7 +918,7 @@ TclPreventAliasLoop(interp, cmdInterp, cmd) return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd); } -/* Slot 104 */ +/* Slot 94 */ void TclPrintByteCodeObj(interp, objPtr) Tcl_Interp * interp; @@ -1019,7 +927,7 @@ TclPrintByteCodeObj(interp, objPtr) (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr); } -/* Slot 105 */ +/* Slot 95 */ void TclProcCleanupProc(procPtr) Proc * procPtr; @@ -1027,7 +935,7 @@ TclProcCleanupProc(procPtr) (tclIntStubsPtr->tclProcCleanupProc)(procPtr); } -/* Slot 106 */ +/* Slot 96 */ int TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) Tcl_Interp * interp; @@ -1040,7 +948,7 @@ TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName); } -/* Slot 107 */ +/* Slot 97 */ void TclProcDeleteProc(clientData) ClientData clientData; @@ -1048,7 +956,7 @@ TclProcDeleteProc(clientData) (tclIntStubsPtr->tclProcDeleteProc)(clientData); } -/* Slot 108 */ +/* Slot 98 */ int TclProcInterpProc(clientData, interp, argc, argv) ClientData clientData; @@ -1059,7 +967,16 @@ TclProcInterpProc(clientData, interp, argc, argv) return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv); } -/* Slot 109 */ +/* Slot 99 */ +int +TclpStat(path, buf) + CONST char * path; + struct stat * buf; +{ + return (tclIntStubsPtr->tclpStat)(path, buf); +} + +/* Slot 100 */ int TclRenameCommand(interp, oldName, newName) Tcl_Interp * interp; @@ -1069,7 +986,7 @@ TclRenameCommand(interp, oldName, newName) return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName); } -/* Slot 110 */ +/* Slot 101 */ void TclResetShadowedCmdRefs(interp, newCmdPtr) Tcl_Interp * interp; @@ -1078,14 +995,14 @@ TclResetShadowedCmdRefs(interp, newCmdPtr) (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr); } -/* Slot 111 */ +/* Slot 102 */ int TclServiceIdle() { return (tclIntStubsPtr->tclServiceIdle)(); } -/* Slot 112 */ +/* Slot 103 */ Tcl_Obj * TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) Tcl_Interp * interp; @@ -1097,7 +1014,7 @@ TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg); } -/* Slot 113 */ +/* Slot 104 */ Tcl_Obj * TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) Tcl_Interp * interp; @@ -1108,7 +1025,7 @@ TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg); } -/* Slot 114 */ +/* Slot 105 */ char * TclSetPreInitScript(string) char * string; @@ -1116,7 +1033,7 @@ TclSetPreInitScript(string) return (tclIntStubsPtr->tclSetPreInitScript)(string); } -/* Slot 115 */ +/* Slot 106 */ void TclSetupEnv(interp) Tcl_Interp * interp; @@ -1124,7 +1041,7 @@ TclSetupEnv(interp) (tclIntStubsPtr->tclSetupEnv)(interp); } -/* Slot 116 */ +/* Slot 107 */ int TclSockGetPort(interp, string, proto, portPtr) Tcl_Interp * interp; @@ -1135,7 +1052,7 @@ TclSockGetPort(interp, string, proto, portPtr) return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr); } -/* Slot 117 */ +/* Slot 108 */ int TclSockMinimumBuffers(sock, size) int sock; @@ -1144,7 +1061,7 @@ TclSockMinimumBuffers(sock, size) return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size); } -/* Slot 118 */ +/* Slot 109 */ int TclStat(path, buf) CONST char * path; @@ -1153,7 +1070,7 @@ TclStat(path, buf) return (tclIntStubsPtr->tclStat)(path, buf); } -/* Slot 119 */ +/* Slot 110 */ int TclStatDeleteProc(proc) TclStatProc_ * proc; @@ -1161,7 +1078,7 @@ TclStatDeleteProc(proc) return (tclIntStubsPtr->tclStatDeleteProc)(proc); } -/* Slot 120 */ +/* Slot 111 */ int TclStatInsertProc(proc) TclStatProc_ * proc; @@ -1169,7 +1086,7 @@ TclStatInsertProc(proc) return (tclIntStubsPtr->tclStatInsertProc)(proc); } -/* Slot 121 */ +/* Slot 112 */ void TclTeardownNamespace(nsPtr) Namespace * nsPtr; @@ -1177,7 +1094,7 @@ TclTeardownNamespace(nsPtr) (tclIntStubsPtr->tclTeardownNamespace)(nsPtr); } -/* Slot 122 */ +/* Slot 113 */ int TclUpdateReturnInfo(iPtr) Interp * iPtr; @@ -1185,7 +1102,7 @@ TclUpdateReturnInfo(iPtr) return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr); } -/* Slot 123 */ +/* Slot 114 */ char * TclWordEnd(start, lastChar, nested, semiPtr) char * start; @@ -1196,7 +1113,7 @@ TclWordEnd(start, lastChar, nested, semiPtr) return (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr); } -/* Slot 124 */ +/* Slot 115 */ void Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) Tcl_Interp * interp; @@ -1208,7 +1125,7 @@ Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc); } -/* Slot 125 */ +/* Slot 116 */ int Tcl_AppendExportList(interp, nsPtr, objPtr) Tcl_Interp * interp; @@ -1218,7 +1135,7 @@ Tcl_AppendExportList(interp, nsPtr, objPtr) return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr); } -/* Slot 126 */ +/* Slot 117 */ Tcl_Namespace * Tcl_CreateNamespace(interp, name, clientData, deleteProc) Tcl_Interp * interp; @@ -1229,7 +1146,7 @@ Tcl_CreateNamespace(interp, name, clientData, deleteProc) return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc); } -/* Slot 127 */ +/* Slot 118 */ void Tcl_DeleteNamespace(nsPtr) Tcl_Namespace * nsPtr; @@ -1237,7 +1154,7 @@ Tcl_DeleteNamespace(nsPtr) (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr); } -/* Slot 128 */ +/* Slot 119 */ int Tcl_Export(interp, nsPtr, pattern, resetListFirst) Tcl_Interp * interp; @@ -1248,7 +1165,7 @@ Tcl_Export(interp, nsPtr, pattern, resetListFirst) return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst); } -/* Slot 129 */ +/* Slot 120 */ Tcl_Command Tcl_FindCommand(interp, name, contextNsPtr, flags) Tcl_Interp * interp; @@ -1259,7 +1176,7 @@ Tcl_FindCommand(interp, name, contextNsPtr, flags) return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags); } -/* Slot 130 */ +/* Slot 121 */ Tcl_Namespace * Tcl_FindNamespace(interp, name, contextNsPtr, flags) Tcl_Interp * interp; @@ -1270,7 +1187,7 @@ Tcl_FindNamespace(interp, name, contextNsPtr, flags) return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags); } -/* Slot 131 */ +/* Slot 122 */ int Tcl_GetInterpResolvers(interp, name, resInfo) Tcl_Interp * interp; @@ -1280,7 +1197,7 @@ Tcl_GetInterpResolvers(interp, name, resInfo) return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo); } -/* Slot 132 */ +/* Slot 123 */ int Tcl_GetNamespaceResolvers(namespacePtr, resInfo) Tcl_Namespace * namespacePtr; @@ -1289,7 +1206,7 @@ Tcl_GetNamespaceResolvers(namespacePtr, resInfo) return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo); } -/* Slot 133 */ +/* Slot 124 */ Tcl_Var Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) Tcl_Interp * interp; @@ -1300,7 +1217,7 @@ Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags); } -/* Slot 134 */ +/* Slot 125 */ int Tcl_ForgetImport(interp, nsPtr, pattern) Tcl_Interp * interp; @@ -1310,7 +1227,7 @@ Tcl_ForgetImport(interp, nsPtr, pattern) return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern); } -/* Slot 135 */ +/* Slot 126 */ Tcl_Command Tcl_GetCommandFromObj(interp, objPtr) Tcl_Interp * interp; @@ -1319,7 +1236,7 @@ Tcl_GetCommandFromObj(interp, objPtr) return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr); } -/* Slot 136 */ +/* Slot 127 */ void Tcl_GetCommandFullName(interp, command, objPtr) Tcl_Interp * interp; @@ -1329,7 +1246,7 @@ Tcl_GetCommandFullName(interp, command, objPtr) (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr); } -/* Slot 137 */ +/* Slot 128 */ Tcl_Namespace * Tcl_GetCurrentNamespace(interp) Tcl_Interp * interp; @@ -1337,7 +1254,7 @@ Tcl_GetCurrentNamespace(interp) return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp); } -/* Slot 138 */ +/* Slot 129 */ Tcl_Namespace * Tcl_GetGlobalNamespace(interp) Tcl_Interp * interp; @@ -1345,7 +1262,7 @@ Tcl_GetGlobalNamespace(interp) return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp); } -/* Slot 139 */ +/* Slot 130 */ void Tcl_GetVariableFullName(interp, variable, objPtr) Tcl_Interp * interp; @@ -1355,7 +1272,7 @@ Tcl_GetVariableFullName(interp, variable, objPtr) (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr); } -/* Slot 140 */ +/* Slot 131 */ int Tcl_Import(interp, nsPtr, pattern, allowOverwrite) Tcl_Interp * interp; @@ -1366,7 +1283,7 @@ Tcl_Import(interp, nsPtr, pattern, allowOverwrite) return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite); } -/* Slot 141 */ +/* Slot 132 */ void Tcl_PopCallFrame(interp) Tcl_Interp* interp; @@ -1374,7 +1291,7 @@ Tcl_PopCallFrame(interp) (tclIntStubsPtr->tcl_PopCallFrame)(interp); } -/* Slot 142 */ +/* Slot 133 */ int Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) Tcl_Interp* interp; @@ -1385,7 +1302,7 @@ Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame); } -/* Slot 143 */ +/* Slot 134 */ int Tcl_RemoveInterpResolvers(interp, name) Tcl_Interp * interp; @@ -1394,7 +1311,7 @@ Tcl_RemoveInterpResolvers(interp, name) return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name); } -/* Slot 144 */ +/* Slot 135 */ void Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) Tcl_Namespace * namespacePtr; @@ -1405,7 +1322,7 @@ Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc); } -/* Slot 145 */ +/* Slot 136 */ int TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1417,7 +1334,7 @@ TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 146 */ +/* Slot 137 */ int TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1429,7 +1346,7 @@ TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 147 */ +/* Slot 138 */ int TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1441,7 +1358,7 @@ TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 148 */ +/* Slot 139 */ int TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1453,7 +1370,7 @@ TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 149 */ +/* Slot 140 */ int TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1465,7 +1382,7 @@ TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 150 */ +/* Slot 141 */ int TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1477,7 +1394,7 @@ TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 151 */ +/* Slot 142 */ int TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1489,7 +1406,7 @@ TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 152 */ +/* Slot 143 */ int TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1501,7 +1418,7 @@ TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 153 */ +/* Slot 144 */ int TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1513,7 +1430,7 @@ TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } -/* Slot 154 */ +/* Slot 145 */ int TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) Tcl_Interp * interp; @@ -1525,5 +1442,40 @@ TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr) return (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr); } +/* Slot 146 */ +int +TclHasSockets(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclHasSockets)(interp); +} + +/* Slot 147 */ +struct tm * +TclpGetDate(time, useGMT) + TclpTime_t time; + int useGMT; +{ + return (tclIntStubsPtr->tclpGetDate)(time, useGMT); +} + +/* Slot 148 */ +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 149 */ +int +TclpCheckStackSpace() +{ + return (tclIntStubsPtr->tclpCheckStackSpace)(); +} + /* !END!: Do not edit above this line. */ diff --git a/generic/tclPanic.c b/generic/tclPanic.c index af795e1..87bc177 100644 --- a/generic/tclPanic.c +++ b/generic/tclPanic.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclPanic.c,v 1.1 1999/03/03 00:38:42 stanton Exp $ + * RCS: @(#) $Id: tclPanic.c,v 1.2 1999/03/04 01:01:59 stanton Exp $ */ #include "tclInt.h" @@ -97,7 +97,7 @@ Tcl_PanicVA (format, argList) /* *---------------------------------------------------------------------- * - * Tcl_Panic -- + * panic -- * * Print an error message and kill the process. * @@ -112,7 +112,7 @@ Tcl_PanicVA (format, argList) /* VARARGS ARGSUSED */ void -Tcl_Panic TCL_VARARGS_DEF(char *,arg1) +panic TCL_VARARGS_DEF(char *,arg1) { va_list argList; char *format; diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index 3ef035a..acaf3f2 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -16,6 +16,38 @@ EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, char * string, int write, int checkUsage, ClientData * filePtr)); #endif /* UNIX */ +#ifdef MAC_TCL +/* 0 */ +EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_(( + Tcl_MacConvertEventPtr procPtr)); +/* 1 */ +EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_(( + Handle resource)); +/* 2 */ +EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp, + char * resourceName, int resourceNumber, + char * fileName)); +/* 3 */ +EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp, + long resourceType, char * resourceName, + int resourceNumber, char * resFileRef, + int * releaseIt)); +/* 4 */ +EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr, + OSType * osTypePtr)); +/* 5 */ +EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, + OSType osType)); +/* 6 */ +EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType)); +/* 7 */ +EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1, + CONST char * s2, size_t n)); +/* 8 */ +EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1, + CONST char * s2)); +#endif /* MAC_TCL */ typedef struct TclPlatStubs { int magic; @@ -26,6 +58,17 @@ typedef struct TclPlatStubs { void (*tcl_DeleteFileHandler) _ANSI_ARGS_((int fd)); /* 1 */ int (*tcl_GetOpenFile) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int write, int checkUsage, ClientData * filePtr)); /* 2 */ #endif /* UNIX */ +#ifdef MAC_TCL + void (*tcl_MacSetEventProc) _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); /* 0 */ + char * (*tcl_MacConvertTextResource) _ANSI_ARGS_((Handle resource)); /* 1 */ + int (*tcl_MacEvalResource) _ANSI_ARGS_((Tcl_Interp * interp, char * resourceName, int resourceNumber, char * fileName)); /* 2 */ + Handle (*tcl_MacFindResource) _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, char * resourceName, int resourceNumber, char * resFileRef, int * releaseIt)); /* 3 */ + int (*tcl_GetOSTypeFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 4 */ + void (*tcl_SetOSTypeObj) _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 5 */ + Tcl_Obj * (*tcl_NewOSTypeObj) _ANSI_ARGS_((OSType osType)); /* 6 */ + int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */ + int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */ +#endif /* MAC_TCL */ } TclPlatStubs; extern TclPlatStubs *tclPlatStubsPtr; @@ -50,6 +93,44 @@ extern TclPlatStubs *tclPlatStubsPtr; (tclPlatStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr) /* 2 */ #endif #endif /* UNIX */ +#ifdef MAC_TCL +#ifndef Tcl_MacSetEventProc +#define Tcl_MacSetEventProc(procPtr) \ + (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr) /* 0 */ +#endif +#ifndef Tcl_MacConvertTextResource +#define Tcl_MacConvertTextResource(resource) \ + (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource) /* 1 */ +#endif +#ifndef Tcl_MacEvalResource +#define Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) \ + (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName) /* 2 */ +#endif +#ifndef Tcl_MacFindResource +#define Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) \ + (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) /* 3 */ +#endif +#ifndef Tcl_GetOSTypeFromObj +#define Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) \ + (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr) /* 4 */ +#endif +#ifndef Tcl_SetOSTypeObj +#define Tcl_SetOSTypeObj(objPtr, osType) \ + (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType) /* 5 */ +#endif +#ifndef Tcl_NewOSTypeObj +#define Tcl_NewOSTypeObj(osType) \ + (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType) /* 6 */ +#endif +#ifndef strncasecmp +#define strncasecmp(s1, s2, n) \ + (tclPlatStubsPtr->strncasecmp)(s1, s2, n) /* 7 */ +#endif +#ifndef strcasecmp +#define strcasecmp(s1, s2) \ + (tclPlatStubsPtr->strcasecmp)(s1, s2) /* 8 */ +#endif +#endif /* MAC_TCL */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclPlatStubs.c b/generic/tclPlatStubs.c index 82f8b4d..5e82128 100644 --- a/generic/tclPlatStubs.c +++ b/generic/tclPlatStubs.c @@ -7,11 +7,10 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclPlatStubs.c,v 1.1 1999/03/03 00:38:42 stanton Exp $ + * RCS: @(#) $Id: tclPlatStubs.c,v 1.2 1999/03/04 01:01:59 stanton Exp $ */ #include "tcl.h" -#include "tclPort.h" /* * WARNING: This file is automatically generated by the tools/genStubs.tcl @@ -58,5 +57,93 @@ Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) } #endif /* UNIX */ +#ifdef MAC_TCL +/* Slot 0 */ +void +Tcl_MacSetEventProc(procPtr) + Tcl_MacConvertEventPtr procPtr; +{ + (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr); +} + +/* Slot 1 */ +char * +Tcl_MacConvertTextResource(resource) + Handle resource; +{ + return (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource); +} + +/* Slot 2 */ +int +Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) + Tcl_Interp * interp; + char * resourceName; + int resourceNumber; + char * fileName; +{ + return (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName); +} + +/* Slot 3 */ +Handle +Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) + Tcl_Interp * interp; + long resourceType; + char * resourceName; + int resourceNumber; + char * resFileRef; + int * releaseIt; +{ + return (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt); +} + +/* Slot 4 */ +int +Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + OSType * osTypePtr; +{ + return (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr); +} + +/* Slot 5 */ +void +Tcl_SetOSTypeObj(objPtr, osType) + Tcl_Obj * objPtr; + OSType osType; +{ + (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType); +} + +/* Slot 6 */ +Tcl_Obj * +Tcl_NewOSTypeObj(osType) + OSType osType; +{ + return (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType); +} + +/* Slot 7 */ +int +strncasecmp(s1, s2, n) + CONST char * s1; + CONST char * s2; + size_t n; +{ + return (tclPlatStubsPtr->strncasecmp)(s1, s2, n); +} + +/* Slot 8 */ +int +strcasecmp(s1, s2) + CONST char * s1; + CONST char * s2; +{ + return (tclPlatStubsPtr->strcasecmp)(s1, s2); +} + +#endif /* MAC_TCL */ /* !END!: Do not edit above this line. */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 2737f9c..4bef701 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,13 +8,31 @@ * 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.1 1999/03/03 00:38:43 stanton Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.2 1999/03/04 01:01:59 stanton Exp $ */ #include "tclInt.h" #include "tclPort.h" /* + * Remove macros that will interfere with the definitions below. + */ + +#undef Tcl_Alloc +#undef Tcl_Free +#undef Tcl_Realloc +#undef Tcl_NewBooleanObj +#undef Tcl_NewByteArrayObj +#undef Tcl_NewDoubleObj +#undef Tcl_NewIntObj +#undef Tcl_NewListObj +#undef Tcl_NewLongObj +#undef Tcl_NewObj +#undef Tcl_NewStringObj +#undef Tcl_DumpActiveMemory +#undef Tcl_ValidateAllMemory + +/* * WARNING: The contents of this file is automatically generated by the * tools/genStubs.tcl script. Any modifications to the function declarations * below should be made in the generic/tcl.decls script. @@ -212,8 +230,8 @@ TclStubs tclStubs = { Tcl_OpenFileChannel, /* 182 */ Tcl_OpenTcpClient, /* 183 */ Tcl_OpenTcpServer, /* 184 */ - Tcl_Panic, /* 185 */ - Tcl_PanicVA, /* 186 */ + panic, /* 185 */ + panicVA, /* 186 */ Tcl_ParseVar, /* 187 */ Tcl_PkgPresent, /* 188 */ Tcl_PkgPresentEx, /* 189 */ @@ -338,132 +356,127 @@ TclIntStubs tclIntStubs = { TclFindProc, /* 26 */ TclFormatInt, /* 27 */ TclFreePackageInfo, /* 28 */ - TclGetAndDetachPids, /* 29 */ - TclGetCwd, /* 30 */ - TclGetDate, /* 31 */ - TclGetDefaultStdChannel, /* 32 */ - TclGetElementOfIndexedArray, /* 33 */ - TclGetEnv, /* 34 */ - TclGetExtension, /* 35 */ - TclGetFrame, /* 36 */ - TclGetInterpProc, /* 37 */ - TclGetIntForIndex, /* 38 */ - TclGetIndexedScalar, /* 39 */ - TclGetLong, /* 40 */ - TclGetLoadedPackages, /* 41 */ - TclGetNamespaceForQualName, /* 42 */ - TclGetObjInterpProc, /* 43 */ - TclGetOpenMode, /* 44 */ - TclGetOriginalCommand, /* 45 */ - TclpGetUserHome, /* 46 */ - TclGlobalInvoke, /* 47 */ - TclGuessPackageName, /* 48 */ - TclHasSockets, /* 49 */ - TclHideUnsafeCommands, /* 50 */ - TclInExit, /* 51 */ - TclIncrElementOfIndexedArray, /* 52 */ - TclIncrIndexedScalar, /* 53 */ - TclIncrVar2, /* 54 */ - TclInitCompiledLocals, /* 55 */ - TclInitNamespaces, /* 56 */ - TclInterpInit, /* 57 */ - TclInvoke, /* 58 */ - TclInvokeObjectCommand, /* 59 */ - TclInvokeStringCommand, /* 60 */ - TclIsProc, /* 61 */ - TclLoadFile, /* 62 */ - TclLooksLikeInt, /* 63 */ - TclLookupVar, /* 64 */ - TclMatchFiles, /* 65 */ - TclNeedSpace, /* 66 */ - TclNewProcBodyObj, /* 67 */ - TclObjCommandComplete, /* 68 */ - TclObjInterpProc, /* 69 */ - TclObjInvoke, /* 70 */ - TclObjInvokeGlobal, /* 71 */ - TclOpenFileChannelDeleteProc, /* 72 */ - TclOpenFileChannelInsertProc, /* 73 */ - TclpAlloc, /* 74 */ - TclpCloseFile, /* 75 */ - TclpCopyFile, /* 76 */ - TclpCopyDirectory, /* 77 */ - TclpCreateCommandChannel, /* 78 */ - TclpCreateDirectory, /* 79 */ - TclpCreatePipe, /* 80 */ - TclpCreateProcess, /* 81 */ - TclpCreateTempFile, /* 82 */ - TclpDeleteFile, /* 83 */ - TclpFinalize, /* 84 */ - TclpFree, /* 85 */ - TclpGetClicks, /* 86 */ - TclpGetSeconds, /* 87 */ - TclpGetTime, /* 88 */ - TclpGetTimeZone, /* 89 */ - TclpGetTZName, /* 90 */ - TclpListVolumes, /* 91 */ - TclpMakeFile, /* 92 */ - TclpOpenFile, /* 93 */ - TclpOpenFileChannel, /* 94 */ - TclpRealloc, /* 95 */ - TclpRemoveDirectory, /* 96 */ - TclpRenameFile, /* 97 */ - TclParseBraces, /* 98 */ - TclParseNestedCmd, /* 99 */ - TclParseQuotes, /* 100 */ - TclPlatformInit, /* 101 */ - TclPrecTraceProc, /* 102 */ - TclPreventAliasLoop, /* 103 */ - TclPrintByteCodeObj, /* 104 */ - TclProcCleanupProc, /* 105 */ - TclProcCompileProc, /* 106 */ - TclProcDeleteProc, /* 107 */ - TclProcInterpProc, /* 108 */ - TclRenameCommand, /* 109 */ - TclResetShadowedCmdRefs, /* 110 */ - TclServiceIdle, /* 111 */ - TclSetElementOfIndexedArray, /* 112 */ - TclSetIndexedScalar, /* 113 */ - TclSetPreInitScript, /* 114 */ - TclSetupEnv, /* 115 */ - TclSockGetPort, /* 116 */ - TclSockMinimumBuffers, /* 117 */ - TclStat, /* 118 */ - TclStatDeleteProc, /* 119 */ - TclStatInsertProc, /* 120 */ - TclTeardownNamespace, /* 121 */ - TclUpdateReturnInfo, /* 122 */ - TclWordEnd, /* 123 */ - Tcl_AddInterpResolvers, /* 124 */ - Tcl_AppendExportList, /* 125 */ - Tcl_CreateNamespace, /* 126 */ - Tcl_DeleteNamespace, /* 127 */ - Tcl_Export, /* 128 */ - Tcl_FindCommand, /* 129 */ - Tcl_FindNamespace, /* 130 */ - Tcl_GetInterpResolvers, /* 131 */ - Tcl_GetNamespaceResolvers, /* 132 */ - Tcl_FindNamespaceVar, /* 133 */ - Tcl_ForgetImport, /* 134 */ - Tcl_GetCommandFromObj, /* 135 */ - Tcl_GetCommandFullName, /* 136 */ - Tcl_GetCurrentNamespace, /* 137 */ - Tcl_GetGlobalNamespace, /* 138 */ - Tcl_GetVariableFullName, /* 139 */ - Tcl_Import, /* 140 */ - Tcl_PopCallFrame, /* 141 */ - Tcl_PushCallFrame, /* 142 */ - Tcl_RemoveInterpResolvers, /* 143 */ - Tcl_SetNamespaceResolvers, /* 144 */ - TclCompileBreakCmd, /* 145 */ - TclCompileCatchCmd, /* 146 */ - TclCompileContinueCmd, /* 147 */ - TclCompileExprCmd, /* 148 */ - TclCompileForCmd, /* 149 */ - TclCompileForeachCmd, /* 150 */ - TclCompileIfCmd, /* 151 */ - TclCompileIncrCmd, /* 152 */ - TclCompileSetCmd, /* 153 */ - TclCompileWhileCmd, /* 154 */ + 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 */ }; extern TclIntStubs *tclIntStubsPtr = &tclIntStubs; @@ -480,13 +493,59 @@ TclIntPlatStubs tclIntPlatStubs = { TclWinLoadLibrary, /* 5 */ 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 */ #endif /* __WIN32__ */ +#if !defined(__WIN32__) && !defined(MAC_TCL) + TclGetAndDetachPids, /* 0 */ + TclpCloseFile, /* 1 */ + TclpCreateCommandChannel, /* 2 */ + TclpCreatePipe, /* 3 */ + TclpCreateProcess, /* 4 */ + TclpCreateTempFile, /* 5 */ + TclpMakeFile, /* 6 */ + TclpOpenFile, /* 7 */ + TclUnixWaitForFile, /* 8 */ +#endif /* UNIX */ #ifdef MAC_TCL - TclpCheckStackSpace, /* 0 */ - TclpSysAlloc, /* 1 */ - TclpSysFree, /* 2 */ - TclpSysRealloc, /* 3 */ - TclPlatformExit, /* 4 */ + TclpSysAlloc, /* 0 */ + TclpSysFree, /* 1 */ + TclpSysRealloc, /* 2 */ + TclPlatformExit, /* 3 */ + FSpGetDefaultDir, /* 4 */ + FSpSetDefaultDir, /* 5 */ + FSpFindFolder, /* 6 */ + GetGlobalMouse, /* 7 */ + FSpGetDirectoryID, /* 8 */ + FSpOpenResFileCompat, /* 9 */ + FSpCreateResFileCompat, /* 10 */ + FSpLocationFromPath, /* 11 */ + FSpPathFromLocation, /* 12 */ + TclMacExitHandler, /* 13 */ + TclMacInitExitToShell, /* 14 */ + TclMacInstallExitToShellPatch, /* 15 */ + TclMacOSErrorToPosixError, /* 16 */ + TclMacRemoveTimer, /* 17 */ + TclMacStartTimer, /* 18 */ + TclMacTimerExpired, /* 19 */ + TclMacRegisterResourceFork, /* 20 */ + TclMacUnRegisterResourceFork, /* 21 */ + TclMacCreateEnv, /* 22 */ + TclMacFOpenHack, /* 23 */ + TclMacReadlink, /* 24 */ + TclMacChmod, /* 25 */ #endif /* MAC_TCL */ }; @@ -500,6 +559,17 @@ TclPlatStubs tclPlatStubs = { Tcl_DeleteFileHandler, /* 1 */ Tcl_GetOpenFile, /* 2 */ #endif /* UNIX */ +#ifdef MAC_TCL + Tcl_MacSetEventProc, /* 0 */ + Tcl_MacConvertTextResource, /* 1 */ + Tcl_MacEvalResource, /* 2 */ + Tcl_MacFindResource, /* 3 */ + Tcl_GetOSTypeFromObj, /* 4 */ + Tcl_SetOSTypeObj, /* 5 */ + Tcl_NewOSTypeObj, /* 6 */ + strncasecmp, /* 7 */ + strcasecmp, /* 8 */ +#endif /* MAC_TCL */ }; extern TclPlatStubs *tclPlatStubsPtr = &tclPlatStubs; diff --git a/generic/tclStubs.c b/generic/tclStubs.c index 523eefd..eb1b729 100644 --- a/generic/tclStubs.c +++ b/generic/tclStubs.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubs.c,v 1.1 1999/03/03 00:38:43 stanton Exp $ + * RCS: @(#) $Id: tclStubs.c,v 1.2 1999/03/04 01:01:59 stanton Exp $ */ #include "tcl.h" @@ -18,11 +18,19 @@ * Undefine function macros that will interfere with the defintions below. */ -#undef Tcl_DumpActiveMemory -#undef Tcl_ValidateAllMemory #undef Tcl_Alloc #undef Tcl_Free #undef Tcl_Realloc +#undef Tcl_NewBooleanObj +#undef Tcl_NewByteArrayObj +#undef Tcl_NewDoubleObj +#undef Tcl_NewIntObj +#undef Tcl_NewListObj +#undef Tcl_NewLongObj +#undef Tcl_NewObj +#undef Tcl_NewStringObj +#undef Tcl_DumpActiveMemory +#undef Tcl_ValidateAllMemory /* * WARNING: This file is automatically generated by the tools/genStubs.tcl @@ -1767,24 +1775,24 @@ Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) /* Slot 185 */ void -Tcl_Panic TCL_VARARGS_DEF(char *,format) +panic TCL_VARARGS_DEF(char *,format) { char * var; va_list argList; var = (char *) TCL_VARARGS_START(char *,format,argList); - (tclStubsPtr->tcl_PanicVA)(var, argList); + (tclStubsPtr->panicVA)(var, argList); va_end(argList); } /* Slot 186 */ void -Tcl_PanicVA(format, argList) +panicVA(format, argList) char * format; va_list argList; { - (tclStubsPtr->tcl_PanicVA)(format, argList); + (tclStubsPtr->panicVA)(format, argList); } /* Slot 187 */ |