summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorstanton <stanton>1999-03-04 01:01:57 (GMT)
committerstanton <stanton>1999-03-04 01:01:57 (GMT)
commit8074a699cc242dd75d90b2f676eecd35a41b525c (patch)
tree04ec477faa3d4c429f33eba6eade67aaa22ac0ee
parentfd1dfeea2918db576ed45426a57111aa09b7ed83 (diff)
downloadtcl-8074a699cc242dd75d90b2f676eecd35a41b525c.zip
tcl-8074a699cc242dd75d90b2f676eecd35a41b525c.tar.gz
tcl-8074a699cc242dd75d90b2f676eecd35a41b525c.tar.bz2
* generic/tcl.decls: Added Mac specific declarations.
* generic/tclStubs.c: * generic/tclStubInit.c: Added undefs for all of the TCL_MEM_DEBUG macros to avoid conflicts with the stub names. * generic/tclStubInit.c: * generic/tclInt.h: * generic/tclInt.decls: Moved some declarations out of the generic and into the platform specific sections. Added missing declarations and Mac specific declarations. * generic/tclInt.h: * generic/tclDate.c: * generic/tclClock.c: Created a new opaque TclpTime_t type so generic functions that depend on the format of time_t can appear in the generic header files. * generic/tclStubInit.c: * generic/tclPanic.c: * generic/tcl.h: * generic/tcl.decls: renamed Tcl_Panic back to panic to avoid incompatibilities in a patch release.
Diffstat
-rw-r--r--generic/tcl.decls62
-rw-r--r--generic/tclDecls.h23
-rw-r--r--generic/tclInt.decls474
-rw-r--r--generic/tclIntDecls.h827
-rw-r--r--generic/tclIntPlatDecls.h388
-rw-r--r--generic/tclIntPlatStubs.c421
-rw-r--r--generic/tclIntStubs.c388
-rw-r--r--generic/tclPanic.c6
-rw-r--r--generic/tclPlatDecls.h81
-rw-r--r--generic/tclPlatStubs.c91
-rw-r--r--generic/tclStubInit.c338
-rw-r--r--generic/tclStubs.c22
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 */
generated by cgit v0.12 at 2024-11-02 00:47:54 (GMT)