diff options
| -rw-r--r-- | generic/tcl.decls | 6 | ||||
| -rw-r--r-- | generic/tcl.h | 5 | ||||
| -rw-r--r-- | generic/tclDecls.h | 23 | ||||
| -rw-r--r-- | generic/tclInt.decls | 20 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 2253 | ||||
| -rw-r--r-- | generic/tclIntPlatDecls.h | 1070 | ||||
| -rw-r--r-- | generic/tclIntPlatStubs.c | 1134 | ||||
| -rw-r--r-- | generic/tclIntStubs.c | 2521 | ||||
| -rw-r--r-- | generic/tclPlatDecls.h | 231 | ||||
| -rw-r--r-- | generic/tclPlatStubs.c | 232 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 1336 | ||||
| -rw-r--r-- | generic/tclStubs.c | 6502 |
12 files changed, 7677 insertions, 7656 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 2a014a4..c7fb506 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.3.2.5 1999/03/12 23:29:11 surles Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.3.2.6 1999/03/14 18:56:06 stanton Exp $ library tcl @@ -35,7 +35,7 @@ declare 1 generic { int exact, ClientData *clientDataPtr) } declare 2 generic { - void panic(char *format, ...) + void Tcl_Panic(char *format, ...) } declare 3 generic { char * Tcl_Alloc(unsigned int size) @@ -959,7 +959,7 @@ declare 277 generic { Tcl_Pid Tcl_WaitPid(Tcl_Pid pid, int *statPtr, int options) } declare 278 generic { - void panicVA(char *format, va_list argList) + void Tcl_PanicVA(char *format, va_list argList) } declare 279 generic { void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type) diff --git a/generic/tcl.h b/generic/tcl.h index 9f08932..15d6e3b 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -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: tcl.h,v 1.1.2.17 1999/03/12 23:00:59 stanton Exp $ + * RCS: @(#) $Id: tcl.h,v 1.1.2.18 1999/03/14 18:56:07 stanton Exp $ */ #ifndef _TCL @@ -1292,6 +1292,9 @@ typedef unsigned short Tcl_UniChar; /* * The following constant is used to test for older versions of Tcl * in the stubs tables. + * + * Jan Nijtman's plus patch uses 0xFCA1BACF, so we need to pick a different + * value since the stubs tables don't match. */ #define TCL_STUB_MAGIC 0xFCA3BACF diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 7b09055..43858d5 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.3.2.6 1999/03/14 01:53:04 rjohnson Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.3.2.7 1999/03/14 18:56:07 stanton Exp $ */ #ifndef _TCLDECLS @@ -35,7 +35,7 @@ EXTERN char * Tcl_PkgRequireEx _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 2 */ -EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); +EXTERN void Tcl_Panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 3 */ EXTERN char * Tcl_Alloc _ANSI_ARGS_((unsigned int size)); /* 4 */ @@ -869,7 +869,8 @@ EXTERN int Tcl_VarEvalVA _ANSI_ARGS_((Tcl_Interp * interp, EXTERN Tcl_Pid Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 278 */ -EXTERN void panicVA _ANSI_ARGS_((char * format, va_list argList)); +EXTERN void Tcl_PanicVA _ANSI_ARGS_((char * format, + va_list argList)); /* 279 */ EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor, int * patchLevel, int * type)); @@ -1060,7 +1061,7 @@ typedef struct TclStubs { int (*tcl_PkgProvideEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, ClientData clientData)); /* 0 */ char * (*tcl_PkgRequireEx) _ANSI_ARGS_((Tcl_Interp * interp, char * name, char * version, int exact, ClientData * clientDataPtr)); /* 1 */ - void (*panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 2 */ + void (*tcl_Panic) _ANSI_ARGS_(TCL_VARARGS(char *,format)); /* 2 */ char * (*tcl_Alloc) _ANSI_ARGS_((unsigned int size)); /* 3 */ void (*tcl_Free) _ANSI_ARGS_((char * ptr)); /* 4 */ char * (*tcl_Realloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 5 */ @@ -1360,7 +1361,7 @@ typedef struct TclStubs { void (*tcl_SetErrorCodeVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 275 */ int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 276 */ Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */ - void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */ + void (*tcl_PanicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */ void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, int * type)); /* 279 */ void *reserved280; void *reserved281; @@ -1443,9 +1444,9 @@ extern TclStubs *tclStubsPtr; #define Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) \ (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr) /* 1 */ #endif -#ifndef panic -#define panic \ - (tclStubsPtr->panic) /* 2 */ +#ifndef Tcl_Panic +#define Tcl_Panic \ + (tclStubsPtr->tcl_Panic) /* 2 */ #endif #ifndef Tcl_Alloc #define Tcl_Alloc(size) \ @@ -2550,9 +2551,9 @@ extern TclStubs *tclStubsPtr; #define Tcl_WaitPid(pid, statPtr, options) \ (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options) /* 277 */ #endif -#ifndef panicVA -#define panicVA(format, argList) \ - (tclStubsPtr->panicVA)(format, argList) /* 278 */ +#ifndef Tcl_PanicVA +#define Tcl_PanicVA(format, argList) \ + (tclStubsPtr->tcl_PanicVA)(format, argList) /* 278 */ #endif #ifndef Tcl_GetVersion #define Tcl_GetVersion(major, minor, patchLevel, type) \ diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 8fc71e2..5c885e0 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.3.2.2 1999/03/11 01:50:29 stanton Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.3.2.3 1999/03/14 18:56:08 stanton Exp $ library tcl @@ -503,8 +503,8 @@ declare 133 generic { struct tm * TclpGetDate(TclpTime_t time, int useGMT) } declare 134 generic { - size_t TclpStrftime(char *s, size_t maxsize, const char *format, \ - const struct tm *t) + size_t TclpStrftime(char *s, size_t maxsize, CONST char *format, \ + CONST struct tm *t) } declare 135 generic { int TclpCheckStackSpace(void) @@ -571,15 +571,15 @@ declare 7 mac { # however. The first set are from the MoreFiles package. declare 8 mac { - pascal OSErr FSpGetDirectoryID(const FSSpec *spec, long *theDirID, \ + pascal OSErr FSpGetDirectoryID(CONST FSSpec *spec, long *theDirID, \ Boolean *isDirectory) } declare 9 mac { - pascal short FSpOpenResFileCompat(const FSSpec *spec, \ + pascal short FSpOpenResFileCompat(CONST FSSpec *spec, \ SignedByte permission) } declare 10 mac { - pascal void FSpCreateResFileCompat(const FSSpec *spec, OSType creator, \ + pascal void FSpCreateResFileCompat(CONST FSSpec *spec, OSType creator, \ OSType fileType, ScriptCode scriptTag) } @@ -628,7 +628,7 @@ declare 22 mac { int TclMacCreateEnv(void) } declare 23 mac { - FILE * TclMacFOpenHack(const char *path, const char *mode) + FILE * TclMacFOpenHack(CONST char *path, CONST char *mode) } # Replaced in 8.1 by TclpReadLink: # declare 24 mac { @@ -648,8 +648,8 @@ declare 1 win { void TclWinConvertWSAError(DWORD errCode) } declare 2 win { - struct servent * TclWinGetServByName(const char *nm, \ - const char *proto) + struct servent * TclWinGetServByName(CONST char *nm, \ + CONST char *proto) } declare 3 win { int TclWinGetSockOpt(SOCKET s, int level, int optname, \ @@ -667,7 +667,7 @@ declare 6 win { } declare 7 win { int TclWinSetSockOpt(SOCKET s, int level, int optname, \ - const char FAR * optval, int optlen) + CONST char FAR * optval, int optlen) } declare 8 win { unsigned long TclpGetPid(Tcl_Pid pid) diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 7f3ab11..0d5e0fc 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -1,1127 +1,1126 @@ -/*
- * tclIntDecls.h --
- *
- * This file contains the declarations for all unsupported
- * functions that are exported by the Tcl library. These
- * interfaces are not guaranteed to remain the same between
- * versions. Use at your own risk.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclIntDecls.h,v 1.3.2.3 1999/03/12 23:29:15 surles Exp $
- */
-
-#ifndef _TCLINTDECLS
-#define _TCLINTDECLS
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tclInt.decls script.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported function declarations:
- */
-
-/* 0 */
-EXTERN int TclAccess _ANSI_ARGS_((CONST char * path, int mode));
-/* 1 */
-EXTERN int TclAccessDeleteProc _ANSI_ARGS_((
- TclAccessProc_ * proc));
-/* 2 */
-EXTERN int TclAccessInsertProc _ANSI_ARGS_((
- TclAccessProc_ * proc));
-/* 3 */
-EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void));
-/* Slot 4 is reserved */
-/* 5 */
-EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
- int numPids, Tcl_Pid * pidPtr,
- Tcl_Channel errorChan));
-/* 6 */
-EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
-/* 7 */
-EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count,
- CONST char * src, char * dst));
-/* 8 */
-EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Channel inChan, Tcl_Channel outChan,
- int toRead, Tcl_Obj * cmdPtr));
-/* 9 */
-EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv,
- Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
- TclFile * outPipePtr, TclFile * errFilePtr));
-/* 10 */
-EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp,
- Namespace * nsPtr, char * procName,
- Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr,
- Proc ** procPtrPtr));
-/* 11 */
-EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_((
- Interp * iPtr, CallFrame * framePtr));
-/* 12 */
-EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr,
- Tcl_HashTable * tablePtr));
-/* 13 */
-EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp,
- char * separators, Tcl_DString * headPtr,
- char * tail));
-/* 14 */
-EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
-/* Slot 15 is reserved */
-/* 16 */
-EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
- double value));
-/* 17 */
-EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[]));
-/* 18 */
-EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv));
-/* 19 */
-EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv));
-/* 20 */
-EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv));
-/* 21 */
-EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv));
-/* 22 */
-EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * list, int listLength,
- CONST char ** elementPtr,
- CONST char ** nextPtr, int * sizePtr,
- int * bracePtr));
-/* 23 */
-EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr,
- char * procName));
-/* 24 */
-EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n));
-/* 25 */
-EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
-/* Slot 26 is reserved */
-/* 27 */
-EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now,
- long zone, unsigned long * timePtr));
-/* 28 */
-EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
-/* 29 */
-EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_((
- Tcl_Interp * interp, int localIndex,
- Tcl_Obj * elemPtr, int leaveErrorMsg));
-/* Slot 30 is reserved */
-/* 31 */
-EXTERN char * TclGetExtension _ANSI_ARGS_((char * name));
-/* 32 */
-EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
- char * string, CallFrame ** framePtrPtr));
-/* 33 */
-EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void));
-/* 34 */
-EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, int endValue,
- int * indexPtr));
-/* 35 */
-EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
- int localIndex, int leaveErrorMsg));
-/* 36 */
-EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp,
- char * string, long * longPtr));
-/* 37 */
-EXTERN int TclGetLoadedPackages _ANSI_ARGS_((
- Tcl_Interp * interp, char * targetName));
-/* 38 */
-EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_((
- Tcl_Interp * interp, char * qualName,
- Namespace * cxtNsPtr, int flags,
- Namespace ** nsPtrPtr,
- Namespace ** altNsPtrPtr,
- Namespace ** actualCxtPtrPtr,
- char ** simpleNamePtr));
-/* 39 */
-EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
-/* 40 */
-EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp,
- char * string, int * seekFlagPtr));
-/* 41 */
-EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_((
- Tcl_Command command));
-/* 42 */
-EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name,
- Tcl_DString * bufferPtr));
-/* 43 */
-EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv, int flags));
-/* 44 */
-EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName,
- Tcl_DString * bufPtr));
-/* 45 */
-EXTERN int TclHideUnsafeCommands _ANSI_ARGS_((
- Tcl_Interp * interp));
-/* 46 */
-EXTERN int TclInExit _ANSI_ARGS_((void));
-/* 47 */
-EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_((
- Tcl_Interp * interp, int localIndex,
- Tcl_Obj * elemPtr, long incrAmount));
-/* 48 */
-EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_((
- Tcl_Interp * interp, int localIndex,
- long incrAmount));
-/* 49 */
-EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr,
- long incrAmount, int part1NotParsed));
-/* 50 */
-EXTERN void TclInitCompiledLocals _ANSI_ARGS_((
- Tcl_Interp * interp, CallFrame * framePtr,
- Namespace * nsPtr));
-/* 51 */
-EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
-/* 52 */
-EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc,
- char ** argv, int flags));
-/* 53 */
-EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
- ClientData clientData, Tcl_Interp * interp,
- int argc, char ** argv));
-/* 54 */
-EXTERN int TclInvokeStringCommand _ANSI_ARGS_((
- ClientData clientData, Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[]));
-/* 55 */
-EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr));
-/* Slot 56 is reserved */
-/* Slot 57 is reserved */
-/* 58 */
-EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
- char * part1, char * part2, int flags,
- char * msg, int createPart1, int createPart2,
- Var ** arrayPtrPtr));
-/* 59 */
-EXTERN int TclpMatchFiles _ANSI_ARGS_((Tcl_Interp * interp,
- char * separators, Tcl_DString * dirPtr,
- char * pattern, char * tail));
-/* 60 */
-EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end));
-/* 61 */
-EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
-/* 62 */
-EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
-/* 63 */
-EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp * interp, int objc,
- Tcl_Obj *CONST objv[]));
-/* 64 */
-EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[], int flags));
-/* 65 */
-EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[], int flags));
-/* 66 */
-EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_((
- TclOpenFileChannelProc_ * proc));
-/* 67 */
-EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_((
- TclOpenFileChannelProc_ * proc));
-/* 68 */
-EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode));
-/* 69 */
-EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
-/* 70 */
-EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char * source,
- CONST char * dest));
-/* 71 */
-EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char * source,
- CONST char * dest, Tcl_DString * errorPtr));
-/* 72 */
-EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char * path));
-/* 73 */
-EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char * path));
-/* 74 */
-EXTERN void TclpFree _ANSI_ARGS_((char * ptr));
-/* 75 */
-EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void));
-/* 76 */
-EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void));
-/* 77 */
-EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
-/* 78 */
-EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
-/* 79 */
-EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp));
-/* 80 */
-EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp,
- char * fileName, char * modeString,
- int permissions));
-/* 81 */
-EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
- unsigned int size));
-/* 82 */
-EXTERN int TclpRemoveDirectory _ANSI_ARGS_((CONST char * path,
- int recursive, Tcl_DString * errorPtr));
-/* 83 */
-EXTERN int TclpRenameFile _ANSI_ARGS_((CONST char * source,
- CONST char * dest));
-/* Slot 84 is reserved */
-/* Slot 85 is reserved */
-/* Slot 86 is reserved */
-/* Slot 87 is reserved */
-/* 88 */
-EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp * interp, char * name1,
- char * name2, int flags));
-/* 89 */
-EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Interp * cmdInterp, Tcl_Command cmd));
-/* Slot 90 is reserved */
-/* 91 */
-EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
-/* 92 */
-EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp,
- Proc * procPtr, Tcl_Obj * bodyPtr,
- Namespace * nsPtr, CONST char * description,
- CONST char * procName));
-/* 93 */
-EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
-/* 94 */
-EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData,
- Tcl_Interp * interp, int argc, char ** argv));
-/* 95 */
-EXTERN int TclpStat _ANSI_ARGS_((CONST char * path,
- struct stat * buf));
-/* 96 */
-EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp,
- char * oldName, char * newName));
-/* 97 */
-EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_((
- Tcl_Interp * interp, Command * newCmdPtr));
-/* 98 */
-EXTERN int TclServiceIdle _ANSI_ARGS_((void));
-/* 99 */
-EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_((
- Tcl_Interp * interp, int localIndex,
- Tcl_Obj * elemPtr, Tcl_Obj * objPtr,
- int leaveErrorMsg));
-/* 100 */
-EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp,
- int localIndex, Tcl_Obj * objPtr,
- int leaveErrorMsg));
-/* Slot 101 is reserved */
-/* 102 */
-EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
-/* 103 */
-EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp,
- char * string, char * proto, int * portPtr));
-/* 104 */
-EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
- int size));
-/* 105 */
-EXTERN int TclStat _ANSI_ARGS_((CONST char * path,
- TclStat_ * buf));
-/* 106 */
-EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc));
-/* 107 */
-EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc));
-/* 108 */
-EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
-/* 109 */
-EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
-/* Slot 110 is reserved */
-/* 111 */
-EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((
- Tcl_Interp * interp, char * name,
- Tcl_ResolveCmdProc * cmdProc,
- Tcl_ResolveVarProc * varProc,
- Tcl_ResolveCompiledVarProc * compiledVarProc));
-/* 112 */
-EXTERN int Tcl_AppendExportList _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Namespace * nsPtr,
- Tcl_Obj * objPtr));
-/* 113 */
-EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp,
- char * name, ClientData clientData,
- Tcl_NamespaceDeleteProc * deleteProc));
-/* 114 */
-EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((
- Tcl_Namespace * nsPtr));
-/* 115 */
-EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, char * pattern,
- int resetListFirst));
-/* 116 */
-EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp,
- char * name, Tcl_Namespace * contextNsPtr,
- int flags));
-/* 117 */
-EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp,
- char * name, Tcl_Namespace * contextNsPtr,
- int flags));
-/* 118 */
-EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((
- Tcl_Interp * interp, char * name,
- Tcl_ResolverInfo * resInfo));
-/* 119 */
-EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_((
- Tcl_Namespace * namespacePtr,
- Tcl_ResolverInfo * resInfo));
-/* 120 */
-EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((
- Tcl_Interp * interp, char * name,
- Tcl_Namespace * contextNsPtr, int flags));
-/* 121 */
-EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, char * pattern));
-/* 122 */
-EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr));
-/* 123 */
-EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Command command,
- Tcl_Obj * objPtr));
-/* 124 */
-EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_((
- Tcl_Interp * interp));
-/* 125 */
-EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_((
- Tcl_Interp * interp));
-/* 126 */
-EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Var variable,
- Tcl_Obj * objPtr));
-/* 127 */
-EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, char * pattern,
- int allowOverwrite));
-/* 128 */
-EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp));
-/* 129 */
-EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp,
- Tcl_CallFrame * framePtr,
- Tcl_Namespace * nsPtr, int isProcCallFrame));
-/* 130 */
-EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_((
- Tcl_Interp * interp, char * name));
-/* 131 */
-EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_((
- Tcl_Namespace * namespacePtr,
- Tcl_ResolveCmdProc * cmdProc,
- Tcl_ResolveVarProc * varProc,
- Tcl_ResolveCompiledVarProc * compiledVarProc));
-/* 132 */
-EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
-/* 133 */
-EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT));
-/* 134 */
-EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize,
- const char * format, const struct tm * t));
-/* 135 */
-EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void));
-/* Slot 136 is reserved */
-/* 137 */
-EXTERN int TclpChdir _ANSI_ARGS_((CONST char * dirName));
-/* 138 */
-EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name,
- Tcl_DString * valuePtr));
-/* 139 */
-EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp,
- char * fileName, char * sym1, char * sym2,
- Tcl_PackageInitProc ** proc1Ptr,
- Tcl_PackageInitProc ** proc2Ptr,
- ClientData * clientDataPtr));
-/* 140 */
-EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes,
- int length));
-
-typedef struct TclIntStubs {
- int magic;
- struct TclIntStubHooks *hooks;
-
- int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */
- int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */
- int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */
- void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
- void *reserved4;
- int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
- void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */
- int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */
- int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */
- int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
- int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */
- void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */
- void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */
- int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail)); /* 13 */
- void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
- void *reserved15;
- void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
- int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */
- int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */
- int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */
- int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */
- int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */
- int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
- Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */
- int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */
- void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
- void *reserved26;
- int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */
- Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
- Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */
- void *reserved30;
- char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */
- int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 32 */
- TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */
- int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
- Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */
- int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 36 */
- int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
- int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */
- TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
- int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 40 */
- Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
- char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
- int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */
- int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */
- int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
- int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
- Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */
- Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */
- Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
- void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
- int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
- int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */
- int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */
- int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
- Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
- void *reserved56;
- void *reserved57;
- Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
- int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */
- int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */
- Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */
- int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
- int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
- int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
- int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
- int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
- int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
- int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */
- char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
- int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 70 */
- int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 71 */
- int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 72 */
- int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 73 */
- void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */
- unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */
- unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */
- void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */
- int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */
- int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */
- Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */
- char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
- int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */
- int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 83 */
- void *reserved84;
- void *reserved85;
- void *reserved86;
- void *reserved87;
- char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */
- int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
- void *reserved90;
- void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */
- int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */
- void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */
- int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */
- int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */
- int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */
- void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
- int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
- Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */
- Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */
- void *reserved101;
- void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
- int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 103 */
- int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
- int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 105 */
- int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */
- int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */
- void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
- int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
- void *reserved110;
- void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */
- int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */
- Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */
- void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */
- int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */
- Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
- Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
- int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */
- int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */
- Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
- int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */
- Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */
- void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */
- Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */
- Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */
- void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */
- int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */
- void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */
- int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */
- int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */
- void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */
- int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
- struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
- size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, const char * format, const struct tm * t)); /* 134 */
- int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
- void *reserved136;
- int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 137 */
- char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
- int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 139 */
- int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */
-} TclIntStubs;
-
-extern TclIntStubs *tclIntStubsPtr;
-
-#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
-
-/*
- * Inline function declarations:
- */
-
-#ifndef TclAccess
-#define TclAccess(path, mode) \
- (tclIntStubsPtr->tclAccess)(path, mode) /* 0 */
-#endif
-#ifndef TclAccessDeleteProc
-#define TclAccessDeleteProc(proc) \
- (tclIntStubsPtr->tclAccessDeleteProc)(proc) /* 1 */
-#endif
-#ifndef TclAccessInsertProc
-#define TclAccessInsertProc(proc) \
- (tclIntStubsPtr->tclAccessInsertProc)(proc) /* 2 */
-#endif
-#ifndef TclAllocateFreeObjects
-#define TclAllocateFreeObjects() \
- (tclIntStubsPtr->tclAllocateFreeObjects)() /* 3 */
-#endif
-/* Slot 4 is reserved */
-#ifndef TclCleanupChildren
-#define TclCleanupChildren(interp, numPids, pidPtr, errorChan) \
- (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan) /* 5 */
-#endif
-#ifndef TclCleanupCommand
-#define TclCleanupCommand(cmdPtr) \
- (tclIntStubsPtr->tclCleanupCommand)(cmdPtr) /* 6 */
-#endif
-#ifndef TclCopyAndCollapse
-#define TclCopyAndCollapse(count, src, dst) \
- (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst) /* 7 */
-#endif
-#ifndef TclCopyChannel
-#define TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr) \
- (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr) /* 8 */
-#endif
-#ifndef TclCreatePipeline
-#define TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) \
- (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) /* 9 */
-#endif
-#ifndef TclCreateProc
-#define TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) \
- (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) /* 10 */
-#endif
-#ifndef TclDeleteCompiledLocalVars
-#define TclDeleteCompiledLocalVars(iPtr, framePtr) \
- (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr) /* 11 */
-#endif
-#ifndef TclDeleteVars
-#define TclDeleteVars(iPtr, tablePtr) \
- (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr) /* 12 */
-#endif
-#ifndef TclDoGlob
-#define TclDoGlob(interp, separators, headPtr, tail) \
- (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail) /* 13 */
-#endif
-#ifndef TclDumpMemoryInfo
-#define TclDumpMemoryInfo(outFile) \
- (tclIntStubsPtr->tclDumpMemoryInfo)(outFile) /* 14 */
-#endif
-/* Slot 15 is reserved */
-#ifndef TclExprFloatError
-#define TclExprFloatError(interp, value) \
- (tclIntStubsPtr->tclExprFloatError)(interp, value) /* 16 */
-#endif
-#ifndef TclFileAttrsCmd
-#define TclFileAttrsCmd(interp, objc, objv) \
- (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv) /* 17 */
-#endif
-#ifndef TclFileCopyCmd
-#define TclFileCopyCmd(interp, argc, argv) \
- (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv) /* 18 */
-#endif
-#ifndef TclFileDeleteCmd
-#define TclFileDeleteCmd(interp, argc, argv) \
- (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv) /* 19 */
-#endif
-#ifndef TclFileMakeDirsCmd
-#define TclFileMakeDirsCmd(interp, argc, argv) \
- (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv) /* 20 */
-#endif
-#ifndef TclFileRenameCmd
-#define TclFileRenameCmd(interp, argc, argv) \
- (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv) /* 21 */
-#endif
-#ifndef TclFindElement
-#define TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \
- (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 22 */
-#endif
-#ifndef TclFindProc
-#define TclFindProc(iPtr, procName) \
- (tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 23 */
-#endif
-#ifndef TclFormatInt
-#define TclFormatInt(buffer, n) \
- (tclIntStubsPtr->tclFormatInt)(buffer, n) /* 24 */
-#endif
-#ifndef TclFreePackageInfo
-#define TclFreePackageInfo(iPtr) \
- (tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 25 */
-#endif
-/* Slot 26 is reserved */
-#ifndef TclGetDate
-#define TclGetDate(p, now, zone, timePtr) \
- (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 27 */
-#endif
-#ifndef TclpGetDefaultStdChannel
-#define TclpGetDefaultStdChannel(type) \
- (tclIntStubsPtr->tclpGetDefaultStdChannel)(type) /* 28 */
-#endif
-#ifndef TclGetElementOfIndexedArray
-#define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \
- (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 29 */
-#endif
-/* Slot 30 is reserved */
-#ifndef TclGetExtension
-#define TclGetExtension(name) \
- (tclIntStubsPtr->tclGetExtension)(name) /* 31 */
-#endif
-#ifndef TclGetFrame
-#define TclGetFrame(interp, string, framePtrPtr) \
- (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 32 */
-#endif
-#ifndef TclGetInterpProc
-#define TclGetInterpProc() \
- (tclIntStubsPtr->tclGetInterpProc)() /* 33 */
-#endif
-#ifndef TclGetIntForIndex
-#define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \
- (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 34 */
-#endif
-#ifndef TclGetIndexedScalar
-#define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \
- (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 35 */
-#endif
-#ifndef TclGetLong
-#define TclGetLong(interp, string, longPtr) \
- (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 36 */
-#endif
-#ifndef TclGetLoadedPackages
-#define TclGetLoadedPackages(interp, targetName) \
- (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 37 */
-#endif
-#ifndef TclGetNamespaceForQualName
-#define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \
- (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 38 */
-#endif
-#ifndef TclGetObjInterpProc
-#define TclGetObjInterpProc() \
- (tclIntStubsPtr->tclGetObjInterpProc)() /* 39 */
-#endif
-#ifndef TclGetOpenMode
-#define TclGetOpenMode(interp, string, seekFlagPtr) \
- (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 40 */
-#endif
-#ifndef TclGetOriginalCommand
-#define TclGetOriginalCommand(command) \
- (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 41 */
-#endif
-#ifndef TclpGetUserHome
-#define TclpGetUserHome(name, bufferPtr) \
- (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 42 */
-#endif
-#ifndef TclGlobalInvoke
-#define TclGlobalInvoke(interp, argc, argv, flags) \
- (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 43 */
-#endif
-#ifndef TclGuessPackageName
-#define TclGuessPackageName(fileName, bufPtr) \
- (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 44 */
-#endif
-#ifndef TclHideUnsafeCommands
-#define TclHideUnsafeCommands(interp) \
- (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 45 */
-#endif
-#ifndef TclInExit
-#define TclInExit() \
- (tclIntStubsPtr->tclInExit)() /* 46 */
-#endif
-#ifndef TclIncrElementOfIndexedArray
-#define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \
- (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 47 */
-#endif
-#ifndef TclIncrIndexedScalar
-#define TclIncrIndexedScalar(interp, localIndex, incrAmount) \
- (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 48 */
-#endif
-#ifndef TclIncrVar2
-#define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \
- (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 49 */
-#endif
-#ifndef TclInitCompiledLocals
-#define TclInitCompiledLocals(interp, framePtr, nsPtr) \
- (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 50 */
-#endif
-#ifndef TclInterpInit
-#define TclInterpInit(interp) \
- (tclIntStubsPtr->tclInterpInit)(interp) /* 51 */
-#endif
-#ifndef TclInvoke
-#define TclInvoke(interp, argc, argv, flags) \
- (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 52 */
-#endif
-#ifndef TclInvokeObjectCommand
-#define TclInvokeObjectCommand(clientData, interp, argc, argv) \
- (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 53 */
-#endif
-#ifndef TclInvokeStringCommand
-#define TclInvokeStringCommand(clientData, interp, objc, objv) \
- (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 54 */
-#endif
-#ifndef TclIsProc
-#define TclIsProc(cmdPtr) \
- (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 55 */
-#endif
-/* Slot 56 is reserved */
-/* Slot 57 is reserved */
-#ifndef TclLookupVar
-#define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \
- (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 58 */
-#endif
-#ifndef TclpMatchFiles
-#define TclpMatchFiles(interp, separators, dirPtr, pattern, tail) \
- (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 59 */
-#endif
-#ifndef TclNeedSpace
-#define TclNeedSpace(start, end) \
- (tclIntStubsPtr->tclNeedSpace)(start, end) /* 60 */
-#endif
-#ifndef TclNewProcBodyObj
-#define TclNewProcBodyObj(procPtr) \
- (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 61 */
-#endif
-#ifndef TclObjCommandComplete
-#define TclObjCommandComplete(cmdPtr) \
- (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 62 */
-#endif
-#ifndef TclObjInterpProc
-#define TclObjInterpProc(clientData, interp, objc, objv) \
- (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 63 */
-#endif
-#ifndef TclObjInvoke
-#define TclObjInvoke(interp, objc, objv, flags) \
- (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 64 */
-#endif
-#ifndef TclObjInvokeGlobal
-#define TclObjInvokeGlobal(interp, objc, objv, flags) \
- (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 65 */
-#endif
-#ifndef TclOpenFileChannelDeleteProc
-#define TclOpenFileChannelDeleteProc(proc) \
- (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 66 */
-#endif
-#ifndef TclOpenFileChannelInsertProc
-#define TclOpenFileChannelInsertProc(proc) \
- (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 67 */
-#endif
-#ifndef TclpAccess
-#define TclpAccess(path, mode) \
- (tclIntStubsPtr->tclpAccess)(path, mode) /* 68 */
-#endif
-#ifndef TclpAlloc
-#define TclpAlloc(size) \
- (tclIntStubsPtr->tclpAlloc)(size) /* 69 */
-#endif
-#ifndef TclpCopyFile
-#define TclpCopyFile(source, dest) \
- (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 70 */
-#endif
-#ifndef TclpCopyDirectory
-#define TclpCopyDirectory(source, dest, errorPtr) \
- (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 71 */
-#endif
-#ifndef TclpCreateDirectory
-#define TclpCreateDirectory(path) \
- (tclIntStubsPtr->tclpCreateDirectory)(path) /* 72 */
-#endif
-#ifndef TclpDeleteFile
-#define TclpDeleteFile(path) \
- (tclIntStubsPtr->tclpDeleteFile)(path) /* 73 */
-#endif
-#ifndef TclpFree
-#define TclpFree(ptr) \
- (tclIntStubsPtr->tclpFree)(ptr) /* 74 */
-#endif
-#ifndef TclpGetClicks
-#define TclpGetClicks() \
- (tclIntStubsPtr->tclpGetClicks)() /* 75 */
-#endif
-#ifndef TclpGetSeconds
-#define TclpGetSeconds() \
- (tclIntStubsPtr->tclpGetSeconds)() /* 76 */
-#endif
-#ifndef TclpGetTime
-#define TclpGetTime(time) \
- (tclIntStubsPtr->tclpGetTime)(time) /* 77 */
-#endif
-#ifndef TclpGetTimeZone
-#define TclpGetTimeZone(time) \
- (tclIntStubsPtr->tclpGetTimeZone)(time) /* 78 */
-#endif
-#ifndef TclpListVolumes
-#define TclpListVolumes(interp) \
- (tclIntStubsPtr->tclpListVolumes)(interp) /* 79 */
-#endif
-#ifndef TclpOpenFileChannel
-#define TclpOpenFileChannel(interp, fileName, modeString, permissions) \
- (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 80 */
-#endif
-#ifndef TclpRealloc
-#define TclpRealloc(ptr, size) \
- (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 81 */
-#endif
-#ifndef TclpRemoveDirectory
-#define TclpRemoveDirectory(path, recursive, errorPtr) \
- (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 82 */
-#endif
-#ifndef TclpRenameFile
-#define TclpRenameFile(source, dest) \
- (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 83 */
-#endif
-/* Slot 84 is reserved */
-/* Slot 85 is reserved */
-/* Slot 86 is reserved */
-/* Slot 87 is reserved */
-#ifndef TclPrecTraceProc
-#define TclPrecTraceProc(clientData, interp, name1, name2, flags) \
- (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 88 */
-#endif
-#ifndef TclPreventAliasLoop
-#define TclPreventAliasLoop(interp, cmdInterp, cmd) \
- (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 89 */
-#endif
-/* Slot 90 is reserved */
-#ifndef TclProcCleanupProc
-#define TclProcCleanupProc(procPtr) \
- (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 91 */
-#endif
-#ifndef TclProcCompileProc
-#define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \
- (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 92 */
-#endif
-#ifndef TclProcDeleteProc
-#define TclProcDeleteProc(clientData) \
- (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 93 */
-#endif
-#ifndef TclProcInterpProc
-#define TclProcInterpProc(clientData, interp, argc, argv) \
- (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 94 */
-#endif
-#ifndef TclpStat
-#define TclpStat(path, buf) \
- (tclIntStubsPtr->tclpStat)(path, buf) /* 95 */
-#endif
-#ifndef TclRenameCommand
-#define TclRenameCommand(interp, oldName, newName) \
- (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 96 */
-#endif
-#ifndef TclResetShadowedCmdRefs
-#define TclResetShadowedCmdRefs(interp, newCmdPtr) \
- (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 97 */
-#endif
-#ifndef TclServiceIdle
-#define TclServiceIdle() \
- (tclIntStubsPtr->tclServiceIdle)() /* 98 */
-#endif
-#ifndef TclSetElementOfIndexedArray
-#define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \
- (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 99 */
-#endif
-#ifndef TclSetIndexedScalar
-#define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \
- (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 100 */
-#endif
-/* Slot 101 is reserved */
-#ifndef TclSetupEnv
-#define TclSetupEnv(interp) \
- (tclIntStubsPtr->tclSetupEnv)(interp) /* 102 */
-#endif
-#ifndef TclSockGetPort
-#define TclSockGetPort(interp, string, proto, portPtr) \
- (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 103 */
-#endif
-#ifndef TclSockMinimumBuffers
-#define TclSockMinimumBuffers(sock, size) \
- (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 104 */
-#endif
-#ifndef TclStat
-#define TclStat(path, buf) \
- (tclIntStubsPtr->tclStat)(path, buf) /* 105 */
-#endif
-#ifndef TclStatDeleteProc
-#define TclStatDeleteProc(proc) \
- (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 106 */
-#endif
-#ifndef TclStatInsertProc
-#define TclStatInsertProc(proc) \
- (tclIntStubsPtr->tclStatInsertProc)(proc) /* 107 */
-#endif
-#ifndef TclTeardownNamespace
-#define TclTeardownNamespace(nsPtr) \
- (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 108 */
-#endif
-#ifndef TclUpdateReturnInfo
-#define TclUpdateReturnInfo(iPtr) \
- (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 109 */
-#endif
-/* Slot 110 is reserved */
-#ifndef Tcl_AddInterpResolvers
-#define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \
- (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 111 */
-#endif
-#ifndef Tcl_AppendExportList
-#define Tcl_AppendExportList(interp, nsPtr, objPtr) \
- (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 112 */
-#endif
-#ifndef Tcl_CreateNamespace
-#define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \
- (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 113 */
-#endif
-#ifndef Tcl_DeleteNamespace
-#define Tcl_DeleteNamespace(nsPtr) \
- (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 114 */
-#endif
-#ifndef Tcl_Export
-#define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \
- (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 115 */
-#endif
-#ifndef Tcl_FindCommand
-#define Tcl_FindCommand(interp, name, contextNsPtr, flags) \
- (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 116 */
-#endif
-#ifndef Tcl_FindNamespace
-#define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \
- (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 117 */
-#endif
-#ifndef Tcl_GetInterpResolvers
-#define Tcl_GetInterpResolvers(interp, name, resInfo) \
- (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 118 */
-#endif
-#ifndef Tcl_GetNamespaceResolvers
-#define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \
- (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 119 */
-#endif
-#ifndef Tcl_FindNamespaceVar
-#define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \
- (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 120 */
-#endif
-#ifndef Tcl_ForgetImport
-#define Tcl_ForgetImport(interp, nsPtr, pattern) \
- (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 121 */
-#endif
-#ifndef Tcl_GetCommandFromObj
-#define Tcl_GetCommandFromObj(interp, objPtr) \
- (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 122 */
-#endif
-#ifndef Tcl_GetCommandFullName
-#define Tcl_GetCommandFullName(interp, command, objPtr) \
- (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 123 */
-#endif
-#ifndef Tcl_GetCurrentNamespace
-#define Tcl_GetCurrentNamespace(interp) \
- (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 124 */
-#endif
-#ifndef Tcl_GetGlobalNamespace
-#define Tcl_GetGlobalNamespace(interp) \
- (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 125 */
-#endif
-#ifndef Tcl_GetVariableFullName
-#define Tcl_GetVariableFullName(interp, variable, objPtr) \
- (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 126 */
-#endif
-#ifndef Tcl_Import
-#define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \
- (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 127 */
-#endif
-#ifndef Tcl_PopCallFrame
-#define Tcl_PopCallFrame(interp) \
- (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 128 */
-#endif
-#ifndef Tcl_PushCallFrame
-#define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \
- (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 129 */
-#endif
-#ifndef Tcl_RemoveInterpResolvers
-#define Tcl_RemoveInterpResolvers(interp, name) \
- (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 130 */
-#endif
-#ifndef Tcl_SetNamespaceResolvers
-#define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \
- (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 131 */
-#endif
-#ifndef TclpHasSockets
-#define TclpHasSockets(interp) \
- (tclIntStubsPtr->tclpHasSockets)(interp) /* 132 */
-#endif
-#ifndef TclpGetDate
-#define TclpGetDate(time, useGMT) \
- (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 133 */
-#endif
-#ifndef TclpStrftime
-#define TclpStrftime(s, maxsize, format, t) \
- (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 134 */
-#endif
-#ifndef TclpCheckStackSpace
-#define TclpCheckStackSpace() \
- (tclIntStubsPtr->tclpCheckStackSpace)() /* 135 */
-#endif
-/* Slot 136 is reserved */
-#ifndef TclpChdir
-#define TclpChdir(dirName) \
- (tclIntStubsPtr->tclpChdir)(dirName) /* 137 */
-#endif
-#ifndef TclGetEnv
-#define TclGetEnv(name, valuePtr) \
- (tclIntStubsPtr->tclGetEnv)(name, valuePtr) /* 138 */
-#endif
-#ifndef TclpLoadFile
-#define TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) \
- (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) /* 139 */
-#endif
-#ifndef TclLooksLikeInt
-#define TclLooksLikeInt(bytes, length) \
- (tclIntStubsPtr->tclLooksLikeInt)(bytes, length) /* 140 */
-#endif
-
-#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
-
-/* !END!: Do not edit above this line. */
-
-#endif /* _TCLINTDECLS */
-
+/* + * tclIntDecls.h -- + * + * This file contains the declarations for all unsupported + * functions that are exported by the Tcl library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tclIntDecls.h,v 1.3.2.4 1999/03/14 18:56:09 stanton Exp $ + */ + +#ifndef _TCLINTDECLS +#define _TCLINTDECLS + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tclInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +/* 0 */ +EXTERN int TclAccess _ANSI_ARGS_((CONST char * path, int mode)); +/* 1 */ +EXTERN int TclAccessDeleteProc _ANSI_ARGS_(( + TclAccessProc_ * proc)); +/* 2 */ +EXTERN int TclAccessInsertProc _ANSI_ARGS_(( + TclAccessProc_ * proc)); +/* 3 */ +EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void)); +/* Slot 4 is reserved */ +/* 5 */ +EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp, + int numPids, Tcl_Pid * pidPtr, + Tcl_Channel errorChan)); +/* 6 */ +EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr)); +/* 7 */ +EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count, + CONST char * src, char * dst)); +/* 8 */ +EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel inChan, Tcl_Channel outChan, + int toRead, Tcl_Obj * cmdPtr)); +/* 9 */ +EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, + Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, + TclFile * outPipePtr, TclFile * errFilePtr)); +/* 10 */ +EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp, + Namespace * nsPtr, char * procName, + Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, + Proc ** procPtrPtr)); +/* 11 */ +EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( + Interp * iPtr, CallFrame * framePtr)); +/* 12 */ +EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr, + Tcl_HashTable * tablePtr)); +/* 13 */ +EXTERN int TclDoGlob _ANSI_ARGS_((Tcl_Interp * interp, + char * separators, Tcl_DString * headPtr, + char * tail)); +/* 14 */ +EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile)); +/* Slot 15 is reserved */ +/* 16 */ +EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp, + double value)); +/* 17 */ +EXTERN int TclFileAttrsCmd _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[])); +/* 18 */ +EXTERN int TclFileCopyCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 19 */ +EXTERN int TclFileDeleteCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 20 */ +EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 21 */ +EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv)); +/* 22 */ +EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp, + CONST char * list, int listLength, + CONST char ** elementPtr, + CONST char ** nextPtr, int * sizePtr, + int * bracePtr)); +/* 23 */ +EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr, + char * procName)); +/* 24 */ +EXTERN int TclFormatInt _ANSI_ARGS_((char * buffer, long n)); +/* 25 */ +EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr)); +/* Slot 26 is reserved */ +/* 27 */ +EXTERN int TclGetDate _ANSI_ARGS_((char * p, unsigned long now, + long zone, unsigned long * timePtr)); +/* 28 */ +EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type)); +/* 29 */ +EXTERN Tcl_Obj * TclGetElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, int leaveErrorMsg)); +/* Slot 30 is reserved */ +/* 31 */ +EXTERN char * TclGetExtension _ANSI_ARGS_((char * name)); +/* 32 */ +EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp, + char * string, CallFrame ** framePtrPtr)); +/* 33 */ +EXTERN TclCmdProcType TclGetInterpProc _ANSI_ARGS_((void)); +/* 34 */ +EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr, int endValue, + int * indexPtr)); +/* 35 */ +EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, + int localIndex, int leaveErrorMsg)); +/* 36 */ +EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, + char * string, long * longPtr)); +/* 37 */ +EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( + Tcl_Interp * interp, char * targetName)); +/* 38 */ +EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_(( + Tcl_Interp * interp, char * qualName, + Namespace * cxtNsPtr, int flags, + Namespace ** nsPtrPtr, + Namespace ** altNsPtrPtr, + Namespace ** actualCxtPtrPtr, + char ** simpleNamePtr)); +/* 39 */ +EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void)); +/* 40 */ +EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp, + char * string, int * seekFlagPtr)); +/* 41 */ +EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_(( + Tcl_Command command)); +/* 42 */ +EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name, + Tcl_DString * bufferPtr)); +/* 43 */ +EXTERN int TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, int flags)); +/* 44 */ +EXTERN int TclGuessPackageName _ANSI_ARGS_((char * fileName, + Tcl_DString * bufPtr)); +/* 45 */ +EXTERN int TclHideUnsafeCommands _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 46 */ +EXTERN int TclInExit _ANSI_ARGS_((void)); +/* 47 */ +EXTERN Tcl_Obj * TclIncrElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, long incrAmount)); +/* 48 */ +EXTERN Tcl_Obj * TclIncrIndexedScalar _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + long incrAmount)); +/* 49 */ +EXTERN Tcl_Obj * TclIncrVar2 _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, + long incrAmount, int part1NotParsed)); +/* 50 */ +EXTERN void TclInitCompiledLocals _ANSI_ARGS_(( + Tcl_Interp * interp, CallFrame * framePtr, + Namespace * nsPtr)); +/* 51 */ +EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp)); +/* 52 */ +EXTERN int TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, + char ** argv, int flags)); +/* 53 */ +EXTERN int TclInvokeObjectCommand _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int argc, char ** argv)); +/* 54 */ +EXTERN int TclInvokeStringCommand _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[])); +/* 55 */ +EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr)); +/* Slot 56 is reserved */ +/* Slot 57 is reserved */ +/* 58 */ +EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, + char * part1, char * part2, int flags, + char * msg, int createPart1, int createPart2, + Var ** arrayPtrPtr)); +/* 59 */ +EXTERN int TclpMatchFiles _ANSI_ARGS_((Tcl_Interp * interp, + char * separators, Tcl_DString * dirPtr, + char * pattern, char * tail)); +/* 60 */ +EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end)); +/* 61 */ +EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); +/* 62 */ +EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr)); +/* 63 */ +EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int objc, + Tcl_Obj *CONST objv[])); +/* 64 */ +EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 65 */ +EXTERN int TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, + int objc, Tcl_Obj *CONST objv[], int flags)); +/* 66 */ +EXTERN int TclOpenFileChannelDeleteProc _ANSI_ARGS_(( + TclOpenFileChannelProc_ * proc)); +/* 67 */ +EXTERN int TclOpenFileChannelInsertProc _ANSI_ARGS_(( + TclOpenFileChannelProc_ * proc)); +/* 68 */ +EXTERN int TclpAccess _ANSI_ARGS_((CONST char * path, int mode)); +/* 69 */ +EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size)); +/* 70 */ +EXTERN int TclpCopyFile _ANSI_ARGS_((CONST char * source, + CONST char * dest)); +/* 71 */ +EXTERN int TclpCopyDirectory _ANSI_ARGS_((CONST char * source, + CONST char * dest, Tcl_DString * errorPtr)); +/* 72 */ +EXTERN int TclpCreateDirectory _ANSI_ARGS_((CONST char * path)); +/* 73 */ +EXTERN int TclpDeleteFile _ANSI_ARGS_((CONST char * path)); +/* 74 */ +EXTERN void TclpFree _ANSI_ARGS_((char * ptr)); +/* 75 */ +EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); +/* 76 */ +EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); +/* 77 */ +EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time)); +/* 78 */ +EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time)); +/* 79 */ +EXTERN int TclpListVolumes _ANSI_ARGS_((Tcl_Interp * interp)); +/* 80 */ +EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * modeString, + int permissions)); +/* 81 */ +EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr, + unsigned int size)); +/* 82 */ +EXTERN int TclpRemoveDirectory _ANSI_ARGS_((CONST char * path, + int recursive, Tcl_DString * errorPtr)); +/* 83 */ +EXTERN int TclpRenameFile _ANSI_ARGS_((CONST char * source, + CONST char * dest)); +/* Slot 84 is reserved */ +/* Slot 85 is reserved */ +/* Slot 86 is reserved */ +/* Slot 87 is reserved */ +/* 88 */ +EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, char * name1, + char * name2, int flags)); +/* 89 */ +EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Interp * cmdInterp, Tcl_Command cmd)); +/* Slot 90 is reserved */ +/* 91 */ +EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr)); +/* 92 */ +EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp, + Proc * procPtr, Tcl_Obj * bodyPtr, + Namespace * nsPtr, CONST char * description, + CONST char * procName)); +/* 93 */ +EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData)); +/* 94 */ +EXTERN int TclProcInterpProc _ANSI_ARGS_((ClientData clientData, + Tcl_Interp * interp, int argc, char ** argv)); +/* 95 */ +EXTERN int TclpStat _ANSI_ARGS_((CONST char * path, + struct stat * buf)); +/* 96 */ +EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * oldName, char * newName)); +/* 97 */ +EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( + Tcl_Interp * interp, Command * newCmdPtr)); +/* 98 */ +EXTERN int TclServiceIdle _ANSI_ARGS_((void)); +/* 99 */ +EXTERN Tcl_Obj * TclSetElementOfIndexedArray _ANSI_ARGS_(( + Tcl_Interp * interp, int localIndex, + Tcl_Obj * elemPtr, Tcl_Obj * objPtr, + int leaveErrorMsg)); +/* 100 */ +EXTERN Tcl_Obj * TclSetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, + int localIndex, Tcl_Obj * objPtr, + int leaveErrorMsg)); +/* Slot 101 is reserved */ +/* 102 */ +EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); +/* 103 */ +EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp, + char * string, char * proto, int * portPtr)); +/* 104 */ +EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock, + int size)); +/* 105 */ +EXTERN int TclStat _ANSI_ARGS_((CONST char * path, + TclStat_ * buf)); +/* 106 */ +EXTERN int TclStatDeleteProc _ANSI_ARGS_((TclStatProc_ * proc)); +/* 107 */ +EXTERN int TclStatInsertProc _ANSI_ARGS_((TclStatProc_ * proc)); +/* 108 */ +EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr)); +/* 109 */ +EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr)); +/* Slot 110 is reserved */ +/* 111 */ +EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_ResolveCmdProc * cmdProc, + Tcl_ResolveVarProc * varProc, + Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* 112 */ +EXTERN int Tcl_AppendExportList _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Namespace * nsPtr, + Tcl_Obj * objPtr)); +/* 113 */ +EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp, + char * name, ClientData clientData, + Tcl_NamespaceDeleteProc * deleteProc)); +/* 114 */ +EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_(( + Tcl_Namespace * nsPtr)); +/* 115 */ +EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern, + int resetListFirst)); +/* 116 */ +EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp, + char * name, Tcl_Namespace * contextNsPtr, + int flags)); +/* 117 */ +EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp, + char * name, Tcl_Namespace * contextNsPtr, + int flags)); +/* 118 */ +EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_ResolverInfo * resInfo)); +/* 119 */ +EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_(( + Tcl_Namespace * namespacePtr, + Tcl_ResolverInfo * resInfo)); +/* 120 */ +EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_(( + Tcl_Interp * interp, char * name, + Tcl_Namespace * contextNsPtr, int flags)); +/* 121 */ +EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern)); +/* 122 */ +EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Obj * objPtr)); +/* 123 */ +EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Command command, + Tcl_Obj * objPtr)); +/* 124 */ +EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 125 */ +EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_(( + Tcl_Interp * interp)); +/* 126 */ +EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_(( + Tcl_Interp * interp, Tcl_Var variable, + Tcl_Obj * objPtr)); +/* 127 */ +EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Namespace * nsPtr, char * pattern, + int allowOverwrite)); +/* 128 */ +EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp* interp)); +/* 129 */ +EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp* interp, + Tcl_CallFrame * framePtr, + Tcl_Namespace * nsPtr, int isProcCallFrame)); +/* 130 */ +EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_(( + Tcl_Interp * interp, char * name)); +/* 131 */ +EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_(( + Tcl_Namespace * namespacePtr, + Tcl_ResolveCmdProc * cmdProc, + Tcl_ResolveVarProc * varProc, + Tcl_ResolveCompiledVarProc * compiledVarProc)); +/* 132 */ +EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp)); +/* 133 */ +EXTERN struct tm * TclpGetDate _ANSI_ARGS_((TclpTime_t time, int useGMT)); +/* 134 */ +EXTERN size_t TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize, + CONST char * format, CONST struct tm * t)); +/* 135 */ +EXTERN int TclpCheckStackSpace _ANSI_ARGS_((void)); +/* Slot 136 is reserved */ +/* 137 */ +EXTERN int TclpChdir _ANSI_ARGS_((CONST char * dirName)); +/* 138 */ +EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name, + Tcl_DString * valuePtr)); +/* 139 */ +EXTERN int TclpLoadFile _ANSI_ARGS_((Tcl_Interp * interp, + char * fileName, char * sym1, char * sym2, + Tcl_PackageInitProc ** proc1Ptr, + Tcl_PackageInitProc ** proc2Ptr, + ClientData * clientDataPtr)); +/* 140 */ +EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes, + int length)); + +typedef struct TclIntStubs { + int magic; + struct TclIntStubHooks *hooks; + + int (*tclAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 0 */ + int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 1 */ + int (*tclAccessInsertProc) _ANSI_ARGS_((TclAccessProc_ * proc)); /* 2 */ + void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */ + void *reserved4; + int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */ + void (*tclCleanupCommand) _ANSI_ARGS_((Command * cmdPtr)); /* 6 */ + int (*tclCopyAndCollapse) _ANSI_ARGS_((int count, CONST char * src, char * dst)); /* 7 */ + int (*tclCopyChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr)); /* 8 */ + int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */ + int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr)); /* 10 */ + void (*tclDeleteCompiledLocalVars) _ANSI_ARGS_((Interp * iPtr, CallFrame * framePtr)); /* 11 */ + void (*tclDeleteVars) _ANSI_ARGS_((Interp * iPtr, Tcl_HashTable * tablePtr)); /* 12 */ + int (*tclDoGlob) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * headPtr, char * tail)); /* 13 */ + void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */ + void *reserved15; + void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */ + int (*tclFileAttrsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 17 */ + int (*tclFileCopyCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 18 */ + int (*tclFileDeleteCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 19 */ + int (*tclFileMakeDirsCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 20 */ + int (*tclFileRenameCmd) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv)); /* 21 */ + int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * list, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */ + Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, char * procName)); /* 23 */ + int (*tclFormatInt) _ANSI_ARGS_((char * buffer, long n)); /* 24 */ + void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */ + void *reserved26; + int (*tclGetDate) _ANSI_ARGS_((char * p, unsigned long now, long zone, unsigned long * timePtr)); /* 27 */ + Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */ + Tcl_Obj * (*tclGetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, int leaveErrorMsg)); /* 29 */ + void *reserved30; + char * (*tclGetExtension) _ANSI_ARGS_((char * name)); /* 31 */ + int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, char * string, CallFrame ** framePtrPtr)); /* 32 */ + TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */ + int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */ + Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int leaveErrorMsg)); /* 35 */ + int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * string, long * longPtr)); /* 36 */ + int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */ + int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, char ** simpleNamePtr)); /* 38 */ + TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */ + int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, char * string, int * seekFlagPtr)); /* 40 */ + Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */ + char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */ + int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 43 */ + int (*tclGuessPackageName) _ANSI_ARGS_((char * fileName, Tcl_DString * bufPtr)); /* 44 */ + int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */ + int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */ + Tcl_Obj * (*tclIncrElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, long incrAmount)); /* 47 */ + Tcl_Obj * (*tclIncrIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, long incrAmount)); /* 48 */ + Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */ + void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */ + int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */ + int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, int flags)); /* 52 */ + int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 53 */ + int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */ + Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */ + void *reserved56; + void *reserved57; + Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */ + int (*tclpMatchFiles) _ANSI_ARGS_((Tcl_Interp * interp, char * separators, Tcl_DString * dirPtr, char * pattern, char * tail)); /* 59 */ + int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */ + Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */ + int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */ + int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */ + int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */ + int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */ + int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */ + int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */ + int (*tclpAccess) _ANSI_ARGS_((CONST char * path, int mode)); /* 68 */ + char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */ + int (*tclpCopyFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 70 */ + int (*tclpCopyDirectory) _ANSI_ARGS_((CONST char * source, CONST char * dest, Tcl_DString * errorPtr)); /* 71 */ + int (*tclpCreateDirectory) _ANSI_ARGS_((CONST char * path)); /* 72 */ + int (*tclpDeleteFile) _ANSI_ARGS_((CONST char * path)); /* 73 */ + void (*tclpFree) _ANSI_ARGS_((char * ptr)); /* 74 */ + unsigned long (*tclpGetClicks) _ANSI_ARGS_((void)); /* 75 */ + unsigned long (*tclpGetSeconds) _ANSI_ARGS_((void)); /* 76 */ + void (*tclpGetTime) _ANSI_ARGS_((Tcl_Time * time)); /* 77 */ + int (*tclpGetTimeZone) _ANSI_ARGS_((unsigned long time)); /* 78 */ + int (*tclpListVolumes) _ANSI_ARGS_((Tcl_Interp * interp)); /* 79 */ + Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * modeString, int permissions)); /* 80 */ + char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */ + int (*tclpRemoveDirectory) _ANSI_ARGS_((CONST char * path, int recursive, Tcl_DString * errorPtr)); /* 82 */ + int (*tclpRenameFile) _ANSI_ARGS_((CONST char * source, CONST char * dest)); /* 83 */ + void *reserved84; + void *reserved85; + void *reserved86; + void *reserved87; + char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, char * name1, char * name2, int flags)); /* 88 */ + int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */ + void *reserved90; + void (*tclProcCleanupProc) _ANSI_ARGS_((Proc * procPtr)); /* 91 */ + int (*tclProcCompileProc) _ANSI_ARGS_((Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName)); /* 92 */ + void (*tclProcDeleteProc) _ANSI_ARGS_((ClientData clientData)); /* 93 */ + int (*tclProcInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 94 */ + int (*tclpStat) _ANSI_ARGS_((CONST char * path, struct stat * buf)); /* 95 */ + int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * oldName, char * newName)); /* 96 */ + void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */ + int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */ + Tcl_Obj * (*tclSetElementOfIndexedArray) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * elemPtr, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 99 */ + Tcl_Obj * (*tclSetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, Tcl_Obj * objPtr, int leaveErrorMsg)); /* 100 */ + void *reserved101; + void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */ + int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * string, char * proto, int * portPtr)); /* 103 */ + int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */ + int (*tclStat) _ANSI_ARGS_((CONST char * path, TclStat_ * buf)); /* 105 */ + int (*tclStatDeleteProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 106 */ + int (*tclStatInsertProc) _ANSI_ARGS_((TclStatProc_ * proc)); /* 107 */ + void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */ + int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */ + void *reserved110; + void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 111 */ + int (*tcl_AppendExportList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr)); /* 112 */ + Tcl_Namespace * (*tcl_CreateNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc)); /* 113 */ + void (*tcl_DeleteNamespace) _ANSI_ARGS_((Tcl_Namespace * nsPtr)); /* 114 */ + int (*tcl_Export) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int resetListFirst)); /* 115 */ + Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */ + Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */ + int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_ResolverInfo * resInfo)); /* 118 */ + int (*tcl_GetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo)); /* 119 */ + Tcl_Var (*tcl_FindNamespaceVar) _ANSI_ARGS_((Tcl_Interp * interp, char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */ + int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern)); /* 121 */ + Tcl_Command (*tcl_GetCommandFromObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 122 */ + void (*tcl_GetCommandFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr)); /* 123 */ + Tcl_Namespace * (*tcl_GetCurrentNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 124 */ + Tcl_Namespace * (*tcl_GetGlobalNamespace) _ANSI_ARGS_((Tcl_Interp * interp)); /* 125 */ + void (*tcl_GetVariableFullName) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr)); /* 126 */ + int (*tcl_Import) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, char * pattern, int allowOverwrite)); /* 127 */ + void (*tcl_PopCallFrame) _ANSI_ARGS_((Tcl_Interp* interp)); /* 128 */ + int (*tcl_PushCallFrame) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame)); /* 129 */ + int (*tcl_RemoveInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, char * name)); /* 130 */ + void (*tcl_SetNamespaceResolvers) _ANSI_ARGS_((Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc)); /* 131 */ + int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */ + struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */ + size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t)); /* 134 */ + int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */ + void *reserved136; + int (*tclpChdir) _ANSI_ARGS_((CONST char * dirName)); /* 137 */ + char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */ + int (*tclpLoadFile) _ANSI_ARGS_((Tcl_Interp * interp, char * fileName, char * sym1, char * sym2, Tcl_PackageInitProc ** proc1Ptr, Tcl_PackageInitProc ** proc2Ptr, ClientData * clientDataPtr)); /* 139 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */ +} TclIntStubs; + +extern TclIntStubs *tclIntStubsPtr; + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifndef TclAccess +#define TclAccess(path, mode) \ + (tclIntStubsPtr->tclAccess)(path, mode) /* 0 */ +#endif +#ifndef TclAccessDeleteProc +#define TclAccessDeleteProc(proc) \ + (tclIntStubsPtr->tclAccessDeleteProc)(proc) /* 1 */ +#endif +#ifndef TclAccessInsertProc +#define TclAccessInsertProc(proc) \ + (tclIntStubsPtr->tclAccessInsertProc)(proc) /* 2 */ +#endif +#ifndef TclAllocateFreeObjects +#define TclAllocateFreeObjects() \ + (tclIntStubsPtr->tclAllocateFreeObjects)() /* 3 */ +#endif +/* Slot 4 is reserved */ +#ifndef TclCleanupChildren +#define TclCleanupChildren(interp, numPids, pidPtr, errorChan) \ + (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan) /* 5 */ +#endif +#ifndef TclCleanupCommand +#define TclCleanupCommand(cmdPtr) \ + (tclIntStubsPtr->tclCleanupCommand)(cmdPtr) /* 6 */ +#endif +#ifndef TclCopyAndCollapse +#define TclCopyAndCollapse(count, src, dst) \ + (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst) /* 7 */ +#endif +#ifndef TclCopyChannel +#define TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr) \ + (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr) /* 8 */ +#endif +#ifndef TclCreatePipeline +#define TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) \ + (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) /* 9 */ +#endif +#ifndef TclCreateProc +#define TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) \ + (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) /* 10 */ +#endif +#ifndef TclDeleteCompiledLocalVars +#define TclDeleteCompiledLocalVars(iPtr, framePtr) \ + (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr) /* 11 */ +#endif +#ifndef TclDeleteVars +#define TclDeleteVars(iPtr, tablePtr) \ + (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr) /* 12 */ +#endif +#ifndef TclDoGlob +#define TclDoGlob(interp, separators, headPtr, tail) \ + (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail) /* 13 */ +#endif +#ifndef TclDumpMemoryInfo +#define TclDumpMemoryInfo(outFile) \ + (tclIntStubsPtr->tclDumpMemoryInfo)(outFile) /* 14 */ +#endif +/* Slot 15 is reserved */ +#ifndef TclExprFloatError +#define TclExprFloatError(interp, value) \ + (tclIntStubsPtr->tclExprFloatError)(interp, value) /* 16 */ +#endif +#ifndef TclFileAttrsCmd +#define TclFileAttrsCmd(interp, objc, objv) \ + (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv) /* 17 */ +#endif +#ifndef TclFileCopyCmd +#define TclFileCopyCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv) /* 18 */ +#endif +#ifndef TclFileDeleteCmd +#define TclFileDeleteCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv) /* 19 */ +#endif +#ifndef TclFileMakeDirsCmd +#define TclFileMakeDirsCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv) /* 20 */ +#endif +#ifndef TclFileRenameCmd +#define TclFileRenameCmd(interp, argc, argv) \ + (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv) /* 21 */ +#endif +#ifndef TclFindElement +#define TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) \ + (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) /* 22 */ +#endif +#ifndef TclFindProc +#define TclFindProc(iPtr, procName) \ + (tclIntStubsPtr->tclFindProc)(iPtr, procName) /* 23 */ +#endif +#ifndef TclFormatInt +#define TclFormatInt(buffer, n) \ + (tclIntStubsPtr->tclFormatInt)(buffer, n) /* 24 */ +#endif +#ifndef TclFreePackageInfo +#define TclFreePackageInfo(iPtr) \ + (tclIntStubsPtr->tclFreePackageInfo)(iPtr) /* 25 */ +#endif +/* Slot 26 is reserved */ +#ifndef TclGetDate +#define TclGetDate(p, now, zone, timePtr) \ + (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr) /* 27 */ +#endif +#ifndef TclpGetDefaultStdChannel +#define TclpGetDefaultStdChannel(type) \ + (tclIntStubsPtr->tclpGetDefaultStdChannel)(type) /* 28 */ +#endif +#ifndef TclGetElementOfIndexedArray +#define TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg) /* 29 */ +#endif +/* Slot 30 is reserved */ +#ifndef TclGetExtension +#define TclGetExtension(name) \ + (tclIntStubsPtr->tclGetExtension)(name) /* 31 */ +#endif +#ifndef TclGetFrame +#define TclGetFrame(interp, string, framePtrPtr) \ + (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr) /* 32 */ +#endif +#ifndef TclGetInterpProc +#define TclGetInterpProc() \ + (tclIntStubsPtr->tclGetInterpProc)() /* 33 */ +#endif +#ifndef TclGetIntForIndex +#define TclGetIntForIndex(interp, objPtr, endValue, indexPtr) \ + (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr) /* 34 */ +#endif +#ifndef TclGetIndexedScalar +#define TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) \ + (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg) /* 35 */ +#endif +#ifndef TclGetLong +#define TclGetLong(interp, string, longPtr) \ + (tclIntStubsPtr->tclGetLong)(interp, string, longPtr) /* 36 */ +#endif +#ifndef TclGetLoadedPackages +#define TclGetLoadedPackages(interp, targetName) \ + (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName) /* 37 */ +#endif +#ifndef TclGetNamespaceForQualName +#define TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) \ + (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) /* 38 */ +#endif +#ifndef TclGetObjInterpProc +#define TclGetObjInterpProc() \ + (tclIntStubsPtr->tclGetObjInterpProc)() /* 39 */ +#endif +#ifndef TclGetOpenMode +#define TclGetOpenMode(interp, string, seekFlagPtr) \ + (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr) /* 40 */ +#endif +#ifndef TclGetOriginalCommand +#define TclGetOriginalCommand(command) \ + (tclIntStubsPtr->tclGetOriginalCommand)(command) /* 41 */ +#endif +#ifndef TclpGetUserHome +#define TclpGetUserHome(name, bufferPtr) \ + (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr) /* 42 */ +#endif +#ifndef TclGlobalInvoke +#define TclGlobalInvoke(interp, argc, argv, flags) \ + (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags) /* 43 */ +#endif +#ifndef TclGuessPackageName +#define TclGuessPackageName(fileName, bufPtr) \ + (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr) /* 44 */ +#endif +#ifndef TclHideUnsafeCommands +#define TclHideUnsafeCommands(interp) \ + (tclIntStubsPtr->tclHideUnsafeCommands)(interp) /* 45 */ +#endif +#ifndef TclInExit +#define TclInExit() \ + (tclIntStubsPtr->tclInExit)() /* 46 */ +#endif +#ifndef TclIncrElementOfIndexedArray +#define TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) \ + (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount) /* 47 */ +#endif +#ifndef TclIncrIndexedScalar +#define TclIncrIndexedScalar(interp, localIndex, incrAmount) \ + (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount) /* 48 */ +#endif +#ifndef TclIncrVar2 +#define TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) \ + (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) /* 49 */ +#endif +#ifndef TclInitCompiledLocals +#define TclInitCompiledLocals(interp, framePtr, nsPtr) \ + (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr) /* 50 */ +#endif +#ifndef TclInterpInit +#define TclInterpInit(interp) \ + (tclIntStubsPtr->tclInterpInit)(interp) /* 51 */ +#endif +#ifndef TclInvoke +#define TclInvoke(interp, argc, argv, flags) \ + (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags) /* 52 */ +#endif +#ifndef TclInvokeObjectCommand +#define TclInvokeObjectCommand(clientData, interp, argc, argv) \ + (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv) /* 53 */ +#endif +#ifndef TclInvokeStringCommand +#define TclInvokeStringCommand(clientData, interp, objc, objv) \ + (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv) /* 54 */ +#endif +#ifndef TclIsProc +#define TclIsProc(cmdPtr) \ + (tclIntStubsPtr->tclIsProc)(cmdPtr) /* 55 */ +#endif +/* Slot 56 is reserved */ +/* Slot 57 is reserved */ +#ifndef TclLookupVar +#define TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) \ + (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) /* 58 */ +#endif +#ifndef TclpMatchFiles +#define TclpMatchFiles(interp, separators, dirPtr, pattern, tail) \ + (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail) /* 59 */ +#endif +#ifndef TclNeedSpace +#define TclNeedSpace(start, end) \ + (tclIntStubsPtr->tclNeedSpace)(start, end) /* 60 */ +#endif +#ifndef TclNewProcBodyObj +#define TclNewProcBodyObj(procPtr) \ + (tclIntStubsPtr->tclNewProcBodyObj)(procPtr) /* 61 */ +#endif +#ifndef TclObjCommandComplete +#define TclObjCommandComplete(cmdPtr) \ + (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr) /* 62 */ +#endif +#ifndef TclObjInterpProc +#define TclObjInterpProc(clientData, interp, objc, objv) \ + (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv) /* 63 */ +#endif +#ifndef TclObjInvoke +#define TclObjInvoke(interp, objc, objv, flags) \ + (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags) /* 64 */ +#endif +#ifndef TclObjInvokeGlobal +#define TclObjInvokeGlobal(interp, objc, objv, flags) \ + (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags) /* 65 */ +#endif +#ifndef TclOpenFileChannelDeleteProc +#define TclOpenFileChannelDeleteProc(proc) \ + (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc) /* 66 */ +#endif +#ifndef TclOpenFileChannelInsertProc +#define TclOpenFileChannelInsertProc(proc) \ + (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc) /* 67 */ +#endif +#ifndef TclpAccess +#define TclpAccess(path, mode) \ + (tclIntStubsPtr->tclpAccess)(path, mode) /* 68 */ +#endif +#ifndef TclpAlloc +#define TclpAlloc(size) \ + (tclIntStubsPtr->tclpAlloc)(size) /* 69 */ +#endif +#ifndef TclpCopyFile +#define TclpCopyFile(source, dest) \ + (tclIntStubsPtr->tclpCopyFile)(source, dest) /* 70 */ +#endif +#ifndef TclpCopyDirectory +#define TclpCopyDirectory(source, dest, errorPtr) \ + (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr) /* 71 */ +#endif +#ifndef TclpCreateDirectory +#define TclpCreateDirectory(path) \ + (tclIntStubsPtr->tclpCreateDirectory)(path) /* 72 */ +#endif +#ifndef TclpDeleteFile +#define TclpDeleteFile(path) \ + (tclIntStubsPtr->tclpDeleteFile)(path) /* 73 */ +#endif +#ifndef TclpFree +#define TclpFree(ptr) \ + (tclIntStubsPtr->tclpFree)(ptr) /* 74 */ +#endif +#ifndef TclpGetClicks +#define TclpGetClicks() \ + (tclIntStubsPtr->tclpGetClicks)() /* 75 */ +#endif +#ifndef TclpGetSeconds +#define TclpGetSeconds() \ + (tclIntStubsPtr->tclpGetSeconds)() /* 76 */ +#endif +#ifndef TclpGetTime +#define TclpGetTime(time) \ + (tclIntStubsPtr->tclpGetTime)(time) /* 77 */ +#endif +#ifndef TclpGetTimeZone +#define TclpGetTimeZone(time) \ + (tclIntStubsPtr->tclpGetTimeZone)(time) /* 78 */ +#endif +#ifndef TclpListVolumes +#define TclpListVolumes(interp) \ + (tclIntStubsPtr->tclpListVolumes)(interp) /* 79 */ +#endif +#ifndef TclpOpenFileChannel +#define TclpOpenFileChannel(interp, fileName, modeString, permissions) \ + (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions) /* 80 */ +#endif +#ifndef TclpRealloc +#define TclpRealloc(ptr, size) \ + (tclIntStubsPtr->tclpRealloc)(ptr, size) /* 81 */ +#endif +#ifndef TclpRemoveDirectory +#define TclpRemoveDirectory(path, recursive, errorPtr) \ + (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr) /* 82 */ +#endif +#ifndef TclpRenameFile +#define TclpRenameFile(source, dest) \ + (tclIntStubsPtr->tclpRenameFile)(source, dest) /* 83 */ +#endif +/* Slot 84 is reserved */ +/* Slot 85 is reserved */ +/* Slot 86 is reserved */ +/* Slot 87 is reserved */ +#ifndef TclPrecTraceProc +#define TclPrecTraceProc(clientData, interp, name1, name2, flags) \ + (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags) /* 88 */ +#endif +#ifndef TclPreventAliasLoop +#define TclPreventAliasLoop(interp, cmdInterp, cmd) \ + (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd) /* 89 */ +#endif +/* Slot 90 is reserved */ +#ifndef TclProcCleanupProc +#define TclProcCleanupProc(procPtr) \ + (tclIntStubsPtr->tclProcCleanupProc)(procPtr) /* 91 */ +#endif +#ifndef TclProcCompileProc +#define TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) \ + (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName) /* 92 */ +#endif +#ifndef TclProcDeleteProc +#define TclProcDeleteProc(clientData) \ + (tclIntStubsPtr->tclProcDeleteProc)(clientData) /* 93 */ +#endif +#ifndef TclProcInterpProc +#define TclProcInterpProc(clientData, interp, argc, argv) \ + (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv) /* 94 */ +#endif +#ifndef TclpStat +#define TclpStat(path, buf) \ + (tclIntStubsPtr->tclpStat)(path, buf) /* 95 */ +#endif +#ifndef TclRenameCommand +#define TclRenameCommand(interp, oldName, newName) \ + (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName) /* 96 */ +#endif +#ifndef TclResetShadowedCmdRefs +#define TclResetShadowedCmdRefs(interp, newCmdPtr) \ + (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr) /* 97 */ +#endif +#ifndef TclServiceIdle +#define TclServiceIdle() \ + (tclIntStubsPtr->tclServiceIdle)() /* 98 */ +#endif +#ifndef TclSetElementOfIndexedArray +#define TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) /* 99 */ +#endif +#ifndef TclSetIndexedScalar +#define TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) \ + (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg) /* 100 */ +#endif +/* Slot 101 is reserved */ +#ifndef TclSetupEnv +#define TclSetupEnv(interp) \ + (tclIntStubsPtr->tclSetupEnv)(interp) /* 102 */ +#endif +#ifndef TclSockGetPort +#define TclSockGetPort(interp, string, proto, portPtr) \ + (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr) /* 103 */ +#endif +#ifndef TclSockMinimumBuffers +#define TclSockMinimumBuffers(sock, size) \ + (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size) /* 104 */ +#endif +#ifndef TclStat +#define TclStat(path, buf) \ + (tclIntStubsPtr->tclStat)(path, buf) /* 105 */ +#endif +#ifndef TclStatDeleteProc +#define TclStatDeleteProc(proc) \ + (tclIntStubsPtr->tclStatDeleteProc)(proc) /* 106 */ +#endif +#ifndef TclStatInsertProc +#define TclStatInsertProc(proc) \ + (tclIntStubsPtr->tclStatInsertProc)(proc) /* 107 */ +#endif +#ifndef TclTeardownNamespace +#define TclTeardownNamespace(nsPtr) \ + (tclIntStubsPtr->tclTeardownNamespace)(nsPtr) /* 108 */ +#endif +#ifndef TclUpdateReturnInfo +#define TclUpdateReturnInfo(iPtr) \ + (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr) /* 109 */ +#endif +/* Slot 110 is reserved */ +#ifndef Tcl_AddInterpResolvers +#define Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) \ + (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc) /* 111 */ +#endif +#ifndef Tcl_AppendExportList +#define Tcl_AppendExportList(interp, nsPtr, objPtr) \ + (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr) /* 112 */ +#endif +#ifndef Tcl_CreateNamespace +#define Tcl_CreateNamespace(interp, name, clientData, deleteProc) \ + (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc) /* 113 */ +#endif +#ifndef Tcl_DeleteNamespace +#define Tcl_DeleteNamespace(nsPtr) \ + (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr) /* 114 */ +#endif +#ifndef Tcl_Export +#define Tcl_Export(interp, nsPtr, pattern, resetListFirst) \ + (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst) /* 115 */ +#endif +#ifndef Tcl_FindCommand +#define Tcl_FindCommand(interp, name, contextNsPtr, flags) \ + (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags) /* 116 */ +#endif +#ifndef Tcl_FindNamespace +#define Tcl_FindNamespace(interp, name, contextNsPtr, flags) \ + (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags) /* 117 */ +#endif +#ifndef Tcl_GetInterpResolvers +#define Tcl_GetInterpResolvers(interp, name, resInfo) \ + (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo) /* 118 */ +#endif +#ifndef Tcl_GetNamespaceResolvers +#define Tcl_GetNamespaceResolvers(namespacePtr, resInfo) \ + (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo) /* 119 */ +#endif +#ifndef Tcl_FindNamespaceVar +#define Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) \ + (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags) /* 120 */ +#endif +#ifndef Tcl_ForgetImport +#define Tcl_ForgetImport(interp, nsPtr, pattern) \ + (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern) /* 121 */ +#endif +#ifndef Tcl_GetCommandFromObj +#define Tcl_GetCommandFromObj(interp, objPtr) \ + (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr) /* 122 */ +#endif +#ifndef Tcl_GetCommandFullName +#define Tcl_GetCommandFullName(interp, command, objPtr) \ + (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr) /* 123 */ +#endif +#ifndef Tcl_GetCurrentNamespace +#define Tcl_GetCurrentNamespace(interp) \ + (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp) /* 124 */ +#endif +#ifndef Tcl_GetGlobalNamespace +#define Tcl_GetGlobalNamespace(interp) \ + (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp) /* 125 */ +#endif +#ifndef Tcl_GetVariableFullName +#define Tcl_GetVariableFullName(interp, variable, objPtr) \ + (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr) /* 126 */ +#endif +#ifndef Tcl_Import +#define Tcl_Import(interp, nsPtr, pattern, allowOverwrite) \ + (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite) /* 127 */ +#endif +#ifndef Tcl_PopCallFrame +#define Tcl_PopCallFrame(interp) \ + (tclIntStubsPtr->tcl_PopCallFrame)(interp) /* 128 */ +#endif +#ifndef Tcl_PushCallFrame +#define Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) \ + (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame) /* 129 */ +#endif +#ifndef Tcl_RemoveInterpResolvers +#define Tcl_RemoveInterpResolvers(interp, name) \ + (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name) /* 130 */ +#endif +#ifndef Tcl_SetNamespaceResolvers +#define Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) \ + (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc) /* 131 */ +#endif +#ifndef TclpHasSockets +#define TclpHasSockets(interp) \ + (tclIntStubsPtr->tclpHasSockets)(interp) /* 132 */ +#endif +#ifndef TclpGetDate +#define TclpGetDate(time, useGMT) \ + (tclIntStubsPtr->tclpGetDate)(time, useGMT) /* 133 */ +#endif +#ifndef TclpStrftime +#define TclpStrftime(s, maxsize, format, t) \ + (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t) /* 134 */ +#endif +#ifndef TclpCheckStackSpace +#define TclpCheckStackSpace() \ + (tclIntStubsPtr->tclpCheckStackSpace)() /* 135 */ +#endif +/* Slot 136 is reserved */ +#ifndef TclpChdir +#define TclpChdir(dirName) \ + (tclIntStubsPtr->tclpChdir)(dirName) /* 137 */ +#endif +#ifndef TclGetEnv +#define TclGetEnv(name, valuePtr) \ + (tclIntStubsPtr->tclGetEnv)(name, valuePtr) /* 138 */ +#endif +#ifndef TclpLoadFile +#define TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) \ + (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) /* 139 */ +#endif +#ifndef TclLooksLikeInt +#define TclLooksLikeInt(bytes, length) \ + (tclIntStubsPtr->tclLooksLikeInt)(bytes, length) /* 140 */ +#endif + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#endif /* _TCLINTDECLS */ diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 42d21f5..4f0c091 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -1,535 +1,535 @@ -/*
- * tclIntPlatDecls.h --
- *
- * This file contains the declarations for all platform dependent
- * unsupported functions that are exported by the Tcl library. These
- * interfaces are not guaranteed to remain the same between
- * versions. Use at your own risk.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- * All rights reserved.
- *
- * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.3.2.3 1999/03/12 23:29:16 surles Exp $
- */
-
-#ifndef _TCLINTPLATDECLS
-#define _TCLINTPLATDECLS
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tclInt.decls script.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported function declarations:
- */
-
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
-/* 0 */
-EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Channel chan));
-/* 1 */
-EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file));
-/* 2 */
-EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_((
- TclFile readFile, TclFile writeFile,
- TclFile errorFile, int numPids,
- Tcl_Pid * pidPtr));
-/* 3 */
-EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe,
- TclFile * writePipe));
-/* 4 */
-EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv, TclFile inputFile,
- TclFile outputFile, TclFile errorFile,
- Tcl_Pid * pidPtr));
-/* Slot 5 is reserved */
-/* 6 */
-EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel,
- int direction));
-/* 7 */
-EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname,
- int mode));
-/* 8 */
-EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask,
- int timeout));
-/* 9 */
-EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((
- CONST char * contents));
-#endif /* UNIX */
-#ifdef __WIN32__
-/* 0 */
-EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode));
-/* 1 */
-EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
-/* 2 */
-EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((const char * nm,
- const char * proto));
-/* 3 */
-EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level,
- int optname, char FAR * optval,
- int FAR * optlen));
-/* 4 */
-EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void));
-/* Slot 5 is reserved */
-/* 6 */
-EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns));
-/* 7 */
-EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level,
- int optname, const char FAR * optval,
- int optlen));
-/* 8 */
-EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid));
-/* 9 */
-EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void));
-/* 10 */
-EXTERN int TclWinSynchSpawn _ANSI_ARGS_((void * args, int type,
- void ** trans, Tcl_Pid * pidPtr));
-/* 11 */
-EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Channel chan));
-/* 12 */
-EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file));
-/* 13 */
-EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_((
- TclFile readFile, TclFile writeFile,
- TclFile errorFile, int numPids,
- Tcl_Pid * pidPtr));
-/* 14 */
-EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe,
- TclFile * writePipe));
-/* 15 */
-EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, char ** argv, TclFile inputFile,
- TclFile outputFile, TclFile errorFile,
- Tcl_Pid * pidPtr));
-/* Slot 16 is reserved */
-/* Slot 17 is reserved */
-/* 18 */
-EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel,
- int direction));
-/* 19 */
-EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname,
- int mode));
-/* 20 */
-EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess,
- DWORD id));
-/* 21 */
-EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async));
-/* 22 */
-EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((
- CONST char * contents));
-/* 23 */
-EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst));
-/* 24 */
-EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path));
-/* 25 */
-EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * string,
- int len, Tcl_DString * dsPtr));
-/* 26 */
-EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * string,
- int len, Tcl_DString * dsPtr));
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
-/* 0 */
-EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
-/* 1 */
-EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr));
-/* 2 */
-EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp,
- unsigned int size));
-/* 3 */
-EXTERN void TclpExit _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));
-/* Slot 24 is reserved */
-/* 25 */
-EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode));
-#endif /* MAC_TCL */
-
-typedef struct TclIntPlatStubs {
- int magic;
- struct TclIntPlatStubHooks *hooks;
-
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
- 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 */
- void *reserved5;
- TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */
- TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */
- int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */
- TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */
-#endif /* UNIX */
-#ifdef __WIN32__
- void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
- void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
- struct servent * (*tclWinGetServByName) _ANSI_ARGS_((const char * nm, const char * proto)); /* 2 */
- int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
- HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
- void *reserved5;
- u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
- int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); /* 7 */
- unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */
- int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */
- int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 10 */
- void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */
- int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */
- Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */
- int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */
- int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */
- void *reserved16;
- void *reserved17;
- TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */
- TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */
- void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */
- void (*tclpAsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 21 */
- TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */
- char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */
- char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */
- TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * string, int len, Tcl_DString * dsPtr)); /* 25 */
- char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * string, int len, Tcl_DString * dsPtr)); /* 26 */
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
- VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */
- void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */
- VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */
- void (*tclpExit) _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 */
- void *reserved24;
- int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */
-#endif /* MAC_TCL */
-} TclIntPlatStubs;
-
-extern TclIntPlatStubs *tclIntPlatStubsPtr;
-
-#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
-
-/*
- * Inline function declarations:
- */
-
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
-#ifndef TclGetAndDetachPids
-#define TclGetAndDetachPids(interp, chan) \
- (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */
-#endif
-#ifndef TclpCloseFile
-#define TclpCloseFile(file) \
- (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */
-#endif
-#ifndef TclpCreateCommandChannel
-#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \
- (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */
-#endif
-#ifndef TclpCreatePipe
-#define TclpCreatePipe(readPipe, writePipe) \
- (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */
-#endif
-#ifndef TclpCreateProcess
-#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \
- (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */
-#endif
-/* Slot 5 is reserved */
-#ifndef TclpMakeFile
-#define TclpMakeFile(channel, direction) \
- (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */
-#endif
-#ifndef TclpOpenFile
-#define TclpOpenFile(fname, mode) \
- (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */
-#endif
-#ifndef TclUnixWaitForFile
-#define TclUnixWaitForFile(fd, mask, timeout) \
- (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */
-#endif
-#ifndef TclpCreateTempFile
-#define TclpCreateTempFile(contents) \
- (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 9 */
-#endif
-#endif /* UNIX */
-#ifdef __WIN32__
-#ifndef TclWinConvertError
-#define TclWinConvertError(errCode) \
- (tclIntPlatStubsPtr->tclWinConvertError)(errCode) /* 0 */
-#endif
-#ifndef TclWinConvertWSAError
-#define TclWinConvertWSAError(errCode) \
- (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode) /* 1 */
-#endif
-#ifndef TclWinGetServByName
-#define TclWinGetServByName(nm, proto) \
- (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto) /* 2 */
-#endif
-#ifndef TclWinGetSockOpt
-#define TclWinGetSockOpt(s, level, optname, optval, optlen) \
- (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen) /* 3 */
-#endif
-#ifndef TclWinGetTclInstance
-#define TclWinGetTclInstance() \
- (tclIntPlatStubsPtr->tclWinGetTclInstance)() /* 4 */
-#endif
-/* Slot 5 is reserved */
-#ifndef TclWinNToHS
-#define TclWinNToHS(ns) \
- (tclIntPlatStubsPtr->tclWinNToHS)(ns) /* 6 */
-#endif
-#ifndef TclWinSetSockOpt
-#define TclWinSetSockOpt(s, level, optname, optval, optlen) \
- (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen) /* 7 */
-#endif
-#ifndef TclpGetPid
-#define TclpGetPid(pid) \
- (tclIntPlatStubsPtr->tclpGetPid)(pid) /* 8 */
-#endif
-#ifndef TclWinGetPlatformId
-#define TclWinGetPlatformId() \
- (tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 9 */
-#endif
-#ifndef TclWinSynchSpawn
-#define TclWinSynchSpawn(args, type, trans, pidPtr) \
- (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 10 */
-#endif
-#ifndef TclGetAndDetachPids
-#define TclGetAndDetachPids(interp, chan) \
- (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 11 */
-#endif
-#ifndef TclpCloseFile
-#define TclpCloseFile(file) \
- (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 12 */
-#endif
-#ifndef TclpCreateCommandChannel
-#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \
- (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 13 */
-#endif
-#ifndef TclpCreatePipe
-#define TclpCreatePipe(readPipe, writePipe) \
- (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 14 */
-#endif
-#ifndef TclpCreateProcess
-#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \
- (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 15 */
-#endif
-/* Slot 16 is reserved */
-/* Slot 17 is reserved */
-#ifndef TclpMakeFile
-#define TclpMakeFile(channel, direction) \
- (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 18 */
-#endif
-#ifndef TclpOpenFile
-#define TclpOpenFile(fname, mode) \
- (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 19 */
-#endif
-#ifndef TclWinAddProcess
-#define TclWinAddProcess(hProcess, id) \
- (tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id) /* 20 */
-#endif
-#ifndef TclpAsyncMark
-#define TclpAsyncMark(async) \
- (tclIntPlatStubsPtr->tclpAsyncMark)(async) /* 21 */
-#endif
-#ifndef TclpCreateTempFile
-#define TclpCreateTempFile(contents) \
- (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 22 */
-#endif
-#ifndef TclpGetTZName
-#define TclpGetTZName(isdst) \
- (tclIntPlatStubsPtr->tclpGetTZName)(isdst) /* 23 */
-#endif
-#ifndef TclWinNoBackslash
-#define TclWinNoBackslash(path) \
- (tclIntPlatStubsPtr->tclWinNoBackslash)(path) /* 24 */
-#endif
-#ifndef Tcl_WinUtfToTChar
-#define Tcl_WinUtfToTChar(string, len, dsPtr) \
- (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(string, len, dsPtr) /* 25 */
-#endif
-#ifndef Tcl_WinTCharToUtf
-#define Tcl_WinTCharToUtf(string, len, dsPtr) \
- (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(string, len, dsPtr) /* 26 */
-#endif
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
-#ifndef TclpSysAlloc
-#define TclpSysAlloc(size, isBin) \
- (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 0 */
-#endif
-#ifndef TclpSysFree
-#define TclpSysFree(ptr) \
- (tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 1 */
-#endif
-#ifndef TclpSysRealloc
-#define TclpSysRealloc(cp, size) \
- (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 2 */
-#endif
-#ifndef TclpExit
-#define TclpExit(status) \
- (tclIntPlatStubsPtr->tclpExit)(status) /* 3 */
-#endif
-#ifndef FSpGetDefaultDir
-#define FSpGetDefaultDir(theSpec) \
- (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec) /* 4 */
-#endif
-#ifndef FSpSetDefaultDir
-#define FSpSetDefaultDir(theSpec) \
- (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec) /* 5 */
-#endif
-#ifndef FSpFindFolder
-#define FSpFindFolder(vRefNum, folderType, createFolder, spec) \
- (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec) /* 6 */
-#endif
-#ifndef GetGlobalMouse
-#define GetGlobalMouse(mouse) \
- (tclIntPlatStubsPtr->getGlobalMouse)(mouse) /* 7 */
-#endif
-#ifndef FSpGetDirectoryID
-#define FSpGetDirectoryID(spec, theDirID, isDirectory) \
- (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory) /* 8 */
-#endif
-#ifndef FSpOpenResFileCompat
-#define FSpOpenResFileCompat(spec, permission) \
- (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission) /* 9 */
-#endif
-#ifndef FSpCreateResFileCompat
-#define FSpCreateResFileCompat(spec, creator, fileType, scriptTag) \
- (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag) /* 10 */
-#endif
-#ifndef FSpLocationFromPath
-#define FSpLocationFromPath(length, path, theSpec) \
- (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec) /* 11 */
-#endif
-#ifndef FSpPathFromLocation
-#define FSpPathFromLocation(theSpec, length, fullPath) \
- (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath) /* 12 */
-#endif
-#ifndef TclMacExitHandler
-#define TclMacExitHandler() \
- (tclIntPlatStubsPtr->tclMacExitHandler)() /* 13 */
-#endif
-#ifndef TclMacInitExitToShell
-#define TclMacInitExitToShell(usePatch) \
- (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch) /* 14 */
-#endif
-#ifndef TclMacInstallExitToShellPatch
-#define TclMacInstallExitToShellPatch(newProc) \
- (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc) /* 15 */
-#endif
-#ifndef TclMacOSErrorToPosixError
-#define TclMacOSErrorToPosixError(error) \
- (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error) /* 16 */
-#endif
-#ifndef TclMacRemoveTimer
-#define TclMacRemoveTimer(timerToken) \
- (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken) /* 17 */
-#endif
-#ifndef TclMacStartTimer
-#define TclMacStartTimer(ms) \
- (tclIntPlatStubsPtr->tclMacStartTimer)(ms) /* 18 */
-#endif
-#ifndef TclMacTimerExpired
-#define TclMacTimerExpired(timerToken) \
- (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken) /* 19 */
-#endif
-#ifndef TclMacRegisterResourceFork
-#define TclMacRegisterResourceFork(fileRef, tokenPtr, insert) \
- (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert) /* 20 */
-#endif
-#ifndef TclMacUnRegisterResourceFork
-#define TclMacUnRegisterResourceFork(tokenPtr, resultPtr) \
- (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr) /* 21 */
-#endif
-#ifndef TclMacCreateEnv
-#define TclMacCreateEnv() \
- (tclIntPlatStubsPtr->tclMacCreateEnv)() /* 22 */
-#endif
-#ifndef TclMacFOpenHack
-#define TclMacFOpenHack(path, mode) \
- (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode) /* 23 */
-#endif
-/* Slot 24 is reserved */
-#ifndef TclMacChmod
-#define TclMacChmod(path, mode) \
- (tclIntPlatStubsPtr->tclMacChmod)(path, mode) /* 25 */
-#endif
-#endif /* MAC_TCL */
-
-#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
-
-/* !END!: Do not edit above this line. */
-
-#endif /* _TCLINTPLATDECLS */
+/* + * tclIntPlatDecls.h -- + * + * This file contains the declarations for all platform dependent + * unsupported functions that are exported by the Tcl library. These + * interfaces are not guaranteed to remain the same between + * versions. Use at your own risk. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.3.2.4 1999/03/14 18:56:09 stanton Exp $ + */ + +#ifndef _TCLINTPLATDECLS +#define _TCLINTPLATDECLS + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tclInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* 0 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 1 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 2 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 3 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 4 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* Slot 5 is reserved */ +/* 6 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 7 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, + int mode)); +/* 8 */ +EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, + int timeout)); +/* 9 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( + CONST char * contents)); +#endif /* UNIX */ +#ifdef __WIN32__ +/* 0 */ +EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode)); +/* 1 */ +EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode)); +/* 2 */ +EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((CONST char * nm, + CONST char * proto)); +/* 3 */ +EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, + int optname, char FAR * optval, + int FAR * optlen)); +/* 4 */ +EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void)); +/* Slot 5 is reserved */ +/* 6 */ +EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); +/* 7 */ +EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, + int optname, CONST char FAR * optval, + int optlen)); +/* 8 */ +EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); +/* 9 */ +EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); +/* 10 */ +EXTERN int TclWinSynchSpawn _ANSI_ARGS_((void * args, int type, + void ** trans, Tcl_Pid * pidPtr)); +/* 11 */ +EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Channel chan)); +/* 12 */ +EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); +/* 13 */ +EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( + TclFile readFile, TclFile writeFile, + TclFile errorFile, int numPids, + Tcl_Pid * pidPtr)); +/* 14 */ +EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, + TclFile * writePipe)); +/* 15 */ +EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, + int argc, char ** argv, TclFile inputFile, + TclFile outputFile, TclFile errorFile, + Tcl_Pid * pidPtr)); +/* Slot 16 is reserved */ +/* Slot 17 is reserved */ +/* 18 */ +EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, + int direction)); +/* 19 */ +EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, + int mode)); +/* 20 */ +EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, + DWORD id)); +/* 21 */ +EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); +/* 22 */ +EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( + CONST char * contents)); +/* 23 */ +EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); +/* 24 */ +EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); +/* 25 */ +EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * string, + int len, Tcl_DString * dsPtr)); +/* 26 */ +EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * string, + int len, Tcl_DString * dsPtr)); +#endif /* __WIN32__ */ +#ifdef MAC_TCL +/* 0 */ +EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); +/* 1 */ +EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); +/* 2 */ +EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, + unsigned int size)); +/* 3 */ +EXTERN void TclpExit _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)); +/* Slot 24 is reserved */ +/* 25 */ +EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); +#endif /* MAC_TCL */ + +typedef struct TclIntPlatStubs { + int magic; + struct TclIntPlatStubHooks *hooks; + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + 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 */ + void *reserved5; + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ + int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ +#endif /* UNIX */ +#ifdef __WIN32__ + void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */ + void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */ + struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */ + int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */ + HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */ + void *reserved5; + u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ + int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */ + unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ + int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ + int (*tclWinSynchSpawn) _ANSI_ARGS_((void * args, int type, void ** trans, Tcl_Pid * pidPtr)); /* 10 */ + void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ + int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ + Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ + int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ + int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ + void *reserved16; + void *reserved17; + TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ + TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ + void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */ + void (*tclpAsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 21 */ + TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */ + char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */ + char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ + TCHAR * (*tcl_WinUtfToTChar) _ANSI_ARGS_((CONST char * string, int len, Tcl_DString * dsPtr)); /* 25 */ + char * (*tcl_WinTCharToUtf) _ANSI_ARGS_((CONST TCHAR * string, int len, Tcl_DString * dsPtr)); /* 26 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ + void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ + VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ + void (*tclpExit) _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 */ + void *reserved24; + int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ +#endif /* MAC_TCL */ +} TclIntPlatStubs; + +extern TclIntPlatStubs *tclIntPlatStubsPtr; + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 0 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 1 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 2 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 3 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 4 */ +#endif +/* Slot 5 is reserved */ +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 6 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 7 */ +#endif +#ifndef TclUnixWaitForFile +#define TclUnixWaitForFile(fd, mask, timeout) \ + (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout) /* 8 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 9 */ +#endif +#endif /* UNIX */ +#ifdef __WIN32__ +#ifndef TclWinConvertError +#define TclWinConvertError(errCode) \ + (tclIntPlatStubsPtr->tclWinConvertError)(errCode) /* 0 */ +#endif +#ifndef TclWinConvertWSAError +#define TclWinConvertWSAError(errCode) \ + (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode) /* 1 */ +#endif +#ifndef TclWinGetServByName +#define TclWinGetServByName(nm, proto) \ + (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto) /* 2 */ +#endif +#ifndef TclWinGetSockOpt +#define TclWinGetSockOpt(s, level, optname, optval, optlen) \ + (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen) /* 3 */ +#endif +#ifndef TclWinGetTclInstance +#define TclWinGetTclInstance() \ + (tclIntPlatStubsPtr->tclWinGetTclInstance)() /* 4 */ +#endif +/* Slot 5 is reserved */ +#ifndef TclWinNToHS +#define TclWinNToHS(ns) \ + (tclIntPlatStubsPtr->tclWinNToHS)(ns) /* 6 */ +#endif +#ifndef TclWinSetSockOpt +#define TclWinSetSockOpt(s, level, optname, optval, optlen) \ + (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen) /* 7 */ +#endif +#ifndef TclpGetPid +#define TclpGetPid(pid) \ + (tclIntPlatStubsPtr->tclpGetPid)(pid) /* 8 */ +#endif +#ifndef TclWinGetPlatformId +#define TclWinGetPlatformId() \ + (tclIntPlatStubsPtr->tclWinGetPlatformId)() /* 9 */ +#endif +#ifndef TclWinSynchSpawn +#define TclWinSynchSpawn(args, type, trans, pidPtr) \ + (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr) /* 10 */ +#endif +#ifndef TclGetAndDetachPids +#define TclGetAndDetachPids(interp, chan) \ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan) /* 11 */ +#endif +#ifndef TclpCloseFile +#define TclpCloseFile(file) \ + (tclIntPlatStubsPtr->tclpCloseFile)(file) /* 12 */ +#endif +#ifndef TclpCreateCommandChannel +#define TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr) /* 13 */ +#endif +#ifndef TclpCreatePipe +#define TclpCreatePipe(readPipe, writePipe) \ + (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe) /* 14 */ +#endif +#ifndef TclpCreateProcess +#define TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) \ + (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) /* 15 */ +#endif +/* Slot 16 is reserved */ +/* Slot 17 is reserved */ +#ifndef TclpMakeFile +#define TclpMakeFile(channel, direction) \ + (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction) /* 18 */ +#endif +#ifndef TclpOpenFile +#define TclpOpenFile(fname, mode) \ + (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode) /* 19 */ +#endif +#ifndef TclWinAddProcess +#define TclWinAddProcess(hProcess, id) \ + (tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id) /* 20 */ +#endif +#ifndef TclpAsyncMark +#define TclpAsyncMark(async) \ + (tclIntPlatStubsPtr->tclpAsyncMark)(async) /* 21 */ +#endif +#ifndef TclpCreateTempFile +#define TclpCreateTempFile(contents) \ + (tclIntPlatStubsPtr->tclpCreateTempFile)(contents) /* 22 */ +#endif +#ifndef TclpGetTZName +#define TclpGetTZName(isdst) \ + (tclIntPlatStubsPtr->tclpGetTZName)(isdst) /* 23 */ +#endif +#ifndef TclWinNoBackslash +#define TclWinNoBackslash(path) \ + (tclIntPlatStubsPtr->tclWinNoBackslash)(path) /* 24 */ +#endif +#ifndef Tcl_WinUtfToTChar +#define Tcl_WinUtfToTChar(string, len, dsPtr) \ + (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(string, len, dsPtr) /* 25 */ +#endif +#ifndef Tcl_WinTCharToUtf +#define Tcl_WinTCharToUtf(string, len, dsPtr) \ + (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(string, len, dsPtr) /* 26 */ +#endif +#endif /* __WIN32__ */ +#ifdef MAC_TCL +#ifndef TclpSysAlloc +#define TclpSysAlloc(size, isBin) \ + (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 0 */ +#endif +#ifndef TclpSysFree +#define TclpSysFree(ptr) \ + (tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 1 */ +#endif +#ifndef TclpSysRealloc +#define TclpSysRealloc(cp, size) \ + (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 2 */ +#endif +#ifndef TclpExit +#define TclpExit(status) \ + (tclIntPlatStubsPtr->tclpExit)(status) /* 3 */ +#endif +#ifndef FSpGetDefaultDir +#define FSpGetDefaultDir(theSpec) \ + (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec) /* 4 */ +#endif +#ifndef FSpSetDefaultDir +#define FSpSetDefaultDir(theSpec) \ + (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec) /* 5 */ +#endif +#ifndef FSpFindFolder +#define FSpFindFolder(vRefNum, folderType, createFolder, spec) \ + (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec) /* 6 */ +#endif +#ifndef GetGlobalMouse +#define GetGlobalMouse(mouse) \ + (tclIntPlatStubsPtr->getGlobalMouse)(mouse) /* 7 */ +#endif +#ifndef FSpGetDirectoryID +#define FSpGetDirectoryID(spec, theDirID, isDirectory) \ + (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory) /* 8 */ +#endif +#ifndef FSpOpenResFileCompat +#define FSpOpenResFileCompat(spec, permission) \ + (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission) /* 9 */ +#endif +#ifndef FSpCreateResFileCompat +#define FSpCreateResFileCompat(spec, creator, fileType, scriptTag) \ + (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag) /* 10 */ +#endif +#ifndef FSpLocationFromPath +#define FSpLocationFromPath(length, path, theSpec) \ + (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec) /* 11 */ +#endif +#ifndef FSpPathFromLocation +#define FSpPathFromLocation(theSpec, length, fullPath) \ + (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath) /* 12 */ +#endif +#ifndef TclMacExitHandler +#define TclMacExitHandler() \ + (tclIntPlatStubsPtr->tclMacExitHandler)() /* 13 */ +#endif +#ifndef TclMacInitExitToShell +#define TclMacInitExitToShell(usePatch) \ + (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch) /* 14 */ +#endif +#ifndef TclMacInstallExitToShellPatch +#define TclMacInstallExitToShellPatch(newProc) \ + (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc) /* 15 */ +#endif +#ifndef TclMacOSErrorToPosixError +#define TclMacOSErrorToPosixError(error) \ + (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error) /* 16 */ +#endif +#ifndef TclMacRemoveTimer +#define TclMacRemoveTimer(timerToken) \ + (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken) /* 17 */ +#endif +#ifndef TclMacStartTimer +#define TclMacStartTimer(ms) \ + (tclIntPlatStubsPtr->tclMacStartTimer)(ms) /* 18 */ +#endif +#ifndef TclMacTimerExpired +#define TclMacTimerExpired(timerToken) \ + (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken) /* 19 */ +#endif +#ifndef TclMacRegisterResourceFork +#define TclMacRegisterResourceFork(fileRef, tokenPtr, insert) \ + (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert) /* 20 */ +#endif +#ifndef TclMacUnRegisterResourceFork +#define TclMacUnRegisterResourceFork(tokenPtr, resultPtr) \ + (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr) /* 21 */ +#endif +#ifndef TclMacCreateEnv +#define TclMacCreateEnv() \ + (tclIntPlatStubsPtr->tclMacCreateEnv)() /* 22 */ +#endif +#ifndef TclMacFOpenHack +#define TclMacFOpenHack(path, mode) \ + (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode) /* 23 */ +#endif +/* Slot 24 is reserved */ +#ifndef TclMacChmod +#define TclMacChmod(path, mode) \ + (tclIntPlatStubsPtr->tclMacChmod)(path, mode) /* 25 */ +#endif +#endif /* MAC_TCL */ + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#endif /* _TCLINTPLATDECLS */ diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c index e207be6..641ac13 100644 --- a/generic/tclIntPlatStubs.c +++ b/generic/tclIntPlatStubs.c @@ -1,567 +1,567 @@ -/*
- * tclIntPlatStubs.c --
- *
- * This file contains the wrapper functions for the platform dependent
- * unsupported Tcl API.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- * All rights reserved.
- *
- * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.3.2.3 1999/03/12 23:29:16 surles Exp $
- */
-
-#include "tclInt.h"
-#include "tclPort.h"
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tclInt.decls script.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported stub functions:
- */
-
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
-/* Slot 0 */
-void
-TclGetAndDetachPids(interp, chan)
- Tcl_Interp * interp;
- Tcl_Channel chan;
-{
- (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan);
-}
-
-/* Slot 1 */
-int
-TclpCloseFile(file)
- TclFile file;
-{
- return (tclIntPlatStubsPtr->tclpCloseFile)(file);
-}
-
-/* Slot 2 */
-Tcl_Channel
-TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
- TclFile readFile;
- TclFile writeFile;
- TclFile errorFile;
- int numPids;
- Tcl_Pid * pidPtr;
-{
- return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr);
-}
-
-/* Slot 3 */
-int
-TclpCreatePipe(readPipe, writePipe)
- TclFile * readPipe;
- TclFile * writePipe;
-{
- return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe);
-}
-
-/* Slot 4 */
-int
-TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
- TclFile inputFile;
- TclFile outputFile;
- TclFile errorFile;
- Tcl_Pid * pidPtr;
-{
- return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr);
-}
-
-/* Slot 5 is reserved */
-/* Slot 6 */
-TclFile
-TclpMakeFile(channel, direction)
- Tcl_Channel channel;
- int direction;
-{
- return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction);
-}
-
-/* Slot 7 */
-TclFile
-TclpOpenFile(fname, mode)
- CONST char * fname;
- int mode;
-{
- return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode);
-}
-
-/* Slot 8 */
-int
-TclUnixWaitForFile(fd, mask, timeout)
- int fd;
- int mask;
- int timeout;
-{
- return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout);
-}
-
-/* Slot 9 */
-TclFile
-TclpCreateTempFile(contents)
- CONST char * contents;
-{
- return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents);
-}
-
-#endif /* UNIX */
-#ifdef __WIN32__
-/* Slot 0 */
-void
-TclWinConvertError(errCode)
- DWORD errCode;
-{
- (tclIntPlatStubsPtr->tclWinConvertError)(errCode);
-}
-
-/* Slot 1 */
-void
-TclWinConvertWSAError(errCode)
- DWORD errCode;
-{
- (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode);
-}
-
-/* Slot 2 */
-struct servent *
-TclWinGetServByName(nm, proto)
- const char * nm;
- const char * proto;
-{
- return (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto);
-}
-
-/* Slot 3 */
-int
-TclWinGetSockOpt(s, level, optname, optval, optlen)
- SOCKET s;
- int level;
- int optname;
- char FAR * optval;
- int FAR * optlen;
-{
- return (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen);
-}
-
-/* Slot 4 */
-HINSTANCE
-TclWinGetTclInstance()
-{
- return (tclIntPlatStubsPtr->tclWinGetTclInstance)();
-}
-
-/* Slot 5 is reserved */
-/* Slot 6 */
-u_short
-TclWinNToHS(ns)
- u_short ns;
-{
- return (tclIntPlatStubsPtr->tclWinNToHS)(ns);
-}
-
-/* Slot 7 */
-int
-TclWinSetSockOpt(s, level, optname, optval, optlen)
- SOCKET s;
- int level;
- int optname;
- const char FAR * optval;
- int optlen;
-{
- return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen);
-}
-
-/* Slot 8 */
-unsigned long
-TclpGetPid(pid)
- Tcl_Pid pid;
-{
- return (tclIntPlatStubsPtr->tclpGetPid)(pid);
-}
-
-/* Slot 9 */
-int
-TclWinGetPlatformId()
-{
- return (tclIntPlatStubsPtr->tclWinGetPlatformId)();
-}
-
-/* Slot 10 */
-int
-TclWinSynchSpawn(args, type, trans, pidPtr)
- void * args;
- int type;
- void ** trans;
- Tcl_Pid * pidPtr;
-{
- return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr);
-}
-
-/* Slot 11 */
-void
-TclGetAndDetachPids(interp, chan)
- Tcl_Interp * interp;
- Tcl_Channel chan;
-{
- (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan);
-}
-
-/* Slot 12 */
-int
-TclpCloseFile(file)
- TclFile file;
-{
- return (tclIntPlatStubsPtr->tclpCloseFile)(file);
-}
-
-/* Slot 13 */
-Tcl_Channel
-TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr)
- TclFile readFile;
- TclFile writeFile;
- TclFile errorFile;
- int numPids;
- Tcl_Pid * pidPtr;
-{
- return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr);
-}
-
-/* Slot 14 */
-int
-TclpCreatePipe(readPipe, writePipe)
- TclFile * readPipe;
- TclFile * writePipe;
-{
- return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe);
-}
-
-/* Slot 15 */
-int
-TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
- TclFile inputFile;
- TclFile outputFile;
- TclFile errorFile;
- Tcl_Pid * pidPtr;
-{
- return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr);
-}
-
-/* Slot 16 is reserved */
-/* Slot 17 is reserved */
-/* Slot 18 */
-TclFile
-TclpMakeFile(channel, direction)
- Tcl_Channel channel;
- int direction;
-{
- return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction);
-}
-
-/* Slot 19 */
-TclFile
-TclpOpenFile(fname, mode)
- CONST char * fname;
- int mode;
-{
- return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode);
-}
-
-/* Slot 20 */
-void
-TclWinAddProcess(hProcess, id)
- HANDLE hProcess;
- DWORD id;
-{
- (tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id);
-}
-
-/* Slot 21 */
-void
-TclpAsyncMark(async)
- Tcl_AsyncHandler async;
-{
- (tclIntPlatStubsPtr->tclpAsyncMark)(async);
-}
-
-/* Slot 22 */
-TclFile
-TclpCreateTempFile(contents)
- CONST char * contents;
-{
- return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents);
-}
-
-/* Slot 23 */
-char *
-TclpGetTZName(isdst)
- int isdst;
-{
- return (tclIntPlatStubsPtr->tclpGetTZName)(isdst);
-}
-
-/* Slot 24 */
-char *
-TclWinNoBackslash(path)
- char * path;
-{
- return (tclIntPlatStubsPtr->tclWinNoBackslash)(path);
-}
-
-/* Slot 25 */
-TCHAR *
-Tcl_WinUtfToTChar(string, len, dsPtr)
- CONST char * string;
- int len;
- Tcl_DString * dsPtr;
-{
- return (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(string, len, dsPtr);
-}
-
-/* Slot 26 */
-char *
-Tcl_WinTCharToUtf(string, len, dsPtr)
- CONST TCHAR * string;
- int len;
- Tcl_DString * dsPtr;
-{
- return (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(string, len, dsPtr);
-}
-
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
-/* Slot 0 */
-VOID *
-TclpSysAlloc(size, isBin)
- long size;
- int isBin;
-{
- return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin);
-}
-
-/* Slot 1 */
-void
-TclpSysFree(ptr)
- VOID * ptr;
-{
- (tclIntPlatStubsPtr->tclpSysFree)(ptr);
-}
-
-/* Slot 2 */
-VOID *
-TclpSysRealloc(cp, size)
- VOID * cp;
- unsigned int size;
-{
- return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size);
-}
-
-/* Slot 3 */
-void
-TclpExit(status)
- int status;
-{
- (tclIntPlatStubsPtr->tclpExit)(status);
-}
-
-/* Slot 4 */
-int
-FSpGetDefaultDir(theSpec)
- FSSpecPtr theSpec;
-{
- return (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec);
-}
-
-/* Slot 5 */
-int
-FSpSetDefaultDir(theSpec)
- FSSpecPtr theSpec;
-{
- return (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec);
-}
-
-/* Slot 6 */
-OSErr
-FSpFindFolder(vRefNum, folderType, createFolder, spec)
- short vRefNum;
- OSType folderType;
- Boolean createFolder;
- FSSpec * spec;
-{
- return (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec);
-}
-
-/* Slot 7 */
-void
-GetGlobalMouse(mouse)
- Point * mouse;
-{
- (tclIntPlatStubsPtr->getGlobalMouse)(mouse);
-}
-
-/* Slot 8 */
-pascal OSErr
-FSpGetDirectoryID(spec, theDirID, isDirectory)
- const FSSpec * spec;
- long * theDirID;
- Boolean * isDirectory;
-{
- return (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory);
-}
-
-/* Slot 9 */
-pascal short
-FSpOpenResFileCompat(spec, permission)
- const FSSpec * spec;
- SignedByte permission;
-{
- return (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission);
-}
-
-/* Slot 10 */
-pascal void
-FSpCreateResFileCompat(spec, creator, fileType, scriptTag)
- const FSSpec * spec;
- OSType creator;
- OSType fileType;
- ScriptCode scriptTag;
-{
- return (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag);
-}
-
-/* Slot 11 */
-int
-FSpLocationFromPath(length, path, theSpec)
- int length;
- CONST char * path;
- FSSpecPtr theSpec;
-{
- return (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec);
-}
-
-/* Slot 12 */
-OSErr
-FSpPathFromLocation(theSpec, length, fullPath)
- FSSpecPtr theSpec;
- int * length;
- Handle * fullPath;
-{
- return (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath);
-}
-
-/* Slot 13 */
-void
-TclMacExitHandler()
-{
- (tclIntPlatStubsPtr->tclMacExitHandler)();
-}
-
-/* Slot 14 */
-void
-TclMacInitExitToShell(usePatch)
- int usePatch;
-{
- (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch);
-}
-
-/* Slot 15 */
-OSErr
-TclMacInstallExitToShellPatch(newProc)
- ExitToShellProcPtr newProc;
-{
- return (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc);
-}
-
-/* Slot 16 */
-int
-TclMacOSErrorToPosixError(error)
- int error;
-{
- return (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error);
-}
-
-/* Slot 17 */
-void
-TclMacRemoveTimer(timerToken)
- void * timerToken;
-{
- (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken);
-}
-
-/* Slot 18 */
-void *
-TclMacStartTimer(ms)
- long ms;
-{
- return (tclIntPlatStubsPtr->tclMacStartTimer)(ms);
-}
-
-/* Slot 19 */
-int
-TclMacTimerExpired(timerToken)
- void * timerToken;
-{
- return (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken);
-}
-
-/* Slot 20 */
-int
-TclMacRegisterResourceFork(fileRef, tokenPtr, insert)
- short fileRef;
- Tcl_Obj * tokenPtr;
- int insert;
-{
- return (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert);
-}
-
-/* Slot 21 */
-short
-TclMacUnRegisterResourceFork(tokenPtr, resultPtr)
- char * tokenPtr;
- Tcl_Obj * resultPtr;
-{
- return (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr);
-}
-
-/* Slot 22 */
-int
-TclMacCreateEnv()
-{
- return (tclIntPlatStubsPtr->tclMacCreateEnv)();
-}
-
-/* Slot 23 */
-FILE *
-TclMacFOpenHack(path, mode)
- const char * path;
- const char * mode;
-{
- return (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode);
-}
-
-/* Slot 24 is reserved */
-/* Slot 25 */
-int
-TclMacChmod(path, mode)
- char * path;
- int mode;
-{
- return (tclIntPlatStubsPtr->tclMacChmod)(path, mode);
-}
-
-#endif /* MAC_TCL */
-
-/* !END!: Do not edit above this line. */
+/* + * tclIntPlatStubs.c -- + * + * This file contains the wrapper functions for the platform dependent + * unsupported Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.3.2.4 1999/03/14 18:56:10 stanton Exp $ + */ + +#include "tclInt.h" +#include "tclPort.h" + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tclInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported stub functions: + */ + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 0 */ +void +TclGetAndDetachPids(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); +} + +/* Slot 1 */ +int +TclpCloseFile(file) + TclFile file; +{ + return (tclIntPlatStubsPtr->tclpCloseFile)(file); +} + +/* Slot 2 */ +Tcl_Channel +TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) + TclFile readFile; + TclFile writeFile; + TclFile errorFile; + int numPids; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); +} + +/* Slot 3 */ +int +TclpCreatePipe(readPipe, writePipe) + TclFile * readPipe; + TclFile * writePipe; +{ + return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); +} + +/* Slot 4 */ +int +TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) + Tcl_Interp * interp; + int argc; + char ** argv; + TclFile inputFile; + TclFile outputFile; + TclFile errorFile; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); +} + +/* Slot 5 is reserved */ +/* Slot 6 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 7 */ +TclFile +TclpOpenFile(fname, mode) + CONST char * fname; + int mode; +{ + return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); +} + +/* Slot 8 */ +int +TclUnixWaitForFile(fd, mask, timeout) + int fd; + int mask; + int timeout; +{ + return (tclIntPlatStubsPtr->tclUnixWaitForFile)(fd, mask, timeout); +} + +/* Slot 9 */ +TclFile +TclpCreateTempFile(contents) + CONST char * contents; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents); +} + +#endif /* UNIX */ +#ifdef __WIN32__ +/* Slot 0 */ +void +TclWinConvertError(errCode) + DWORD errCode; +{ + (tclIntPlatStubsPtr->tclWinConvertError)(errCode); +} + +/* Slot 1 */ +void +TclWinConvertWSAError(errCode) + DWORD errCode; +{ + (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode); +} + +/* Slot 2 */ +struct servent * +TclWinGetServByName(nm, proto) + CONST char * nm; + CONST char * proto; +{ + return (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto); +} + +/* Slot 3 */ +int +TclWinGetSockOpt(s, level, optname, optval, optlen) + SOCKET s; + int level; + int optname; + char FAR * optval; + int FAR * optlen; +{ + return (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen); +} + +/* Slot 4 */ +HINSTANCE +TclWinGetTclInstance() +{ + return (tclIntPlatStubsPtr->tclWinGetTclInstance)(); +} + +/* Slot 5 is reserved */ +/* Slot 6 */ +u_short +TclWinNToHS(ns) + u_short ns; +{ + return (tclIntPlatStubsPtr->tclWinNToHS)(ns); +} + +/* Slot 7 */ +int +TclWinSetSockOpt(s, level, optname, optval, optlen) + SOCKET s; + int level; + int optname; + CONST char FAR * optval; + int optlen; +{ + return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen); +} + +/* Slot 8 */ +unsigned long +TclpGetPid(pid) + Tcl_Pid pid; +{ + return (tclIntPlatStubsPtr->tclpGetPid)(pid); +} + +/* Slot 9 */ +int +TclWinGetPlatformId() +{ + return (tclIntPlatStubsPtr->tclWinGetPlatformId)(); +} + +/* Slot 10 */ +int +TclWinSynchSpawn(args, type, trans, pidPtr) + void * args; + int type; + void ** trans; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclWinSynchSpawn)(args, type, trans, pidPtr); +} + +/* Slot 11 */ +void +TclGetAndDetachPids(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclIntPlatStubsPtr->tclGetAndDetachPids)(interp, chan); +} + +/* Slot 12 */ +int +TclpCloseFile(file) + TclFile file; +{ + return (tclIntPlatStubsPtr->tclpCloseFile)(file); +} + +/* Slot 13 */ +Tcl_Channel +TclpCreateCommandChannel(readFile, writeFile, errorFile, numPids, pidPtr) + TclFile readFile; + TclFile writeFile; + TclFile errorFile; + int numPids; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateCommandChannel)(readFile, writeFile, errorFile, numPids, pidPtr); +} + +/* Slot 14 */ +int +TclpCreatePipe(readPipe, writePipe) + TclFile * readPipe; + TclFile * writePipe; +{ + return (tclIntPlatStubsPtr->tclpCreatePipe)(readPipe, writePipe); +} + +/* Slot 15 */ +int +TclpCreateProcess(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr) + Tcl_Interp * interp; + int argc; + char ** argv; + TclFile inputFile; + TclFile outputFile; + TclFile errorFile; + Tcl_Pid * pidPtr; +{ + return (tclIntPlatStubsPtr->tclpCreateProcess)(interp, argc, argv, inputFile, outputFile, errorFile, pidPtr); +} + +/* Slot 16 is reserved */ +/* Slot 17 is reserved */ +/* Slot 18 */ +TclFile +TclpMakeFile(channel, direction) + Tcl_Channel channel; + int direction; +{ + return (tclIntPlatStubsPtr->tclpMakeFile)(channel, direction); +} + +/* Slot 19 */ +TclFile +TclpOpenFile(fname, mode) + CONST char * fname; + int mode; +{ + return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); +} + +/* Slot 20 */ +void +TclWinAddProcess(hProcess, id) + HANDLE hProcess; + DWORD id; +{ + (tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id); +} + +/* Slot 21 */ +void +TclpAsyncMark(async) + Tcl_AsyncHandler async; +{ + (tclIntPlatStubsPtr->tclpAsyncMark)(async); +} + +/* Slot 22 */ +TclFile +TclpCreateTempFile(contents) + CONST char * contents; +{ + return (tclIntPlatStubsPtr->tclpCreateTempFile)(contents); +} + +/* Slot 23 */ +char * +TclpGetTZName(isdst) + int isdst; +{ + return (tclIntPlatStubsPtr->tclpGetTZName)(isdst); +} + +/* Slot 24 */ +char * +TclWinNoBackslash(path) + char * path; +{ + return (tclIntPlatStubsPtr->tclWinNoBackslash)(path); +} + +/* Slot 25 */ +TCHAR * +Tcl_WinUtfToTChar(string, len, dsPtr) + CONST char * string; + int len; + Tcl_DString * dsPtr; +{ + return (tclIntPlatStubsPtr->tcl_WinUtfToTChar)(string, len, dsPtr); +} + +/* Slot 26 */ +char * +Tcl_WinTCharToUtf(string, len, dsPtr) + CONST TCHAR * string; + int len; + Tcl_DString * dsPtr; +{ + return (tclIntPlatStubsPtr->tcl_WinTCharToUtf)(string, len, dsPtr); +} + +#endif /* __WIN32__ */ +#ifdef MAC_TCL +/* Slot 0 */ +VOID * +TclpSysAlloc(size, isBin) + long size; + int isBin; +{ + return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin); +} + +/* Slot 1 */ +void +TclpSysFree(ptr) + VOID * ptr; +{ + (tclIntPlatStubsPtr->tclpSysFree)(ptr); +} + +/* Slot 2 */ +VOID * +TclpSysRealloc(cp, size) + VOID * cp; + unsigned int size; +{ + return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size); +} + +/* Slot 3 */ +void +TclpExit(status) + int status; +{ + (tclIntPlatStubsPtr->tclpExit)(status); +} + +/* Slot 4 */ +int +FSpGetDefaultDir(theSpec) + FSSpecPtr theSpec; +{ + return (tclIntPlatStubsPtr->fSpGetDefaultDir)(theSpec); +} + +/* Slot 5 */ +int +FSpSetDefaultDir(theSpec) + FSSpecPtr theSpec; +{ + return (tclIntPlatStubsPtr->fSpSetDefaultDir)(theSpec); +} + +/* Slot 6 */ +OSErr +FSpFindFolder(vRefNum, folderType, createFolder, spec) + short vRefNum; + OSType folderType; + Boolean createFolder; + FSSpec * spec; +{ + return (tclIntPlatStubsPtr->fSpFindFolder)(vRefNum, folderType, createFolder, spec); +} + +/* Slot 7 */ +void +GetGlobalMouse(mouse) + Point * mouse; +{ + (tclIntPlatStubsPtr->getGlobalMouse)(mouse); +} + +/* Slot 8 */ +pascal OSErr +FSpGetDirectoryID(spec, theDirID, isDirectory) + CONST FSSpec * spec; + long * theDirID; + Boolean * isDirectory; +{ + return (tclIntPlatStubsPtr->fSpGetDirectoryID)(spec, theDirID, isDirectory); +} + +/* Slot 9 */ +pascal short +FSpOpenResFileCompat(spec, permission) + CONST FSSpec * spec; + SignedByte permission; +{ + return (tclIntPlatStubsPtr->fSpOpenResFileCompat)(spec, permission); +} + +/* Slot 10 */ +pascal void +FSpCreateResFileCompat(spec, creator, fileType, scriptTag) + CONST FSSpec * spec; + OSType creator; + OSType fileType; + ScriptCode scriptTag; +{ + return (tclIntPlatStubsPtr->fSpCreateResFileCompat)(spec, creator, fileType, scriptTag); +} + +/* Slot 11 */ +int +FSpLocationFromPath(length, path, theSpec) + int length; + CONST char * path; + FSSpecPtr theSpec; +{ + return (tclIntPlatStubsPtr->fSpLocationFromPath)(length, path, theSpec); +} + +/* Slot 12 */ +OSErr +FSpPathFromLocation(theSpec, length, fullPath) + FSSpecPtr theSpec; + int * length; + Handle * fullPath; +{ + return (tclIntPlatStubsPtr->fSpPathFromLocation)(theSpec, length, fullPath); +} + +/* Slot 13 */ +void +TclMacExitHandler() +{ + (tclIntPlatStubsPtr->tclMacExitHandler)(); +} + +/* Slot 14 */ +void +TclMacInitExitToShell(usePatch) + int usePatch; +{ + (tclIntPlatStubsPtr->tclMacInitExitToShell)(usePatch); +} + +/* Slot 15 */ +OSErr +TclMacInstallExitToShellPatch(newProc) + ExitToShellProcPtr newProc; +{ + return (tclIntPlatStubsPtr->tclMacInstallExitToShellPatch)(newProc); +} + +/* Slot 16 */ +int +TclMacOSErrorToPosixError(error) + int error; +{ + return (tclIntPlatStubsPtr->tclMacOSErrorToPosixError)(error); +} + +/* Slot 17 */ +void +TclMacRemoveTimer(timerToken) + void * timerToken; +{ + (tclIntPlatStubsPtr->tclMacRemoveTimer)(timerToken); +} + +/* Slot 18 */ +void * +TclMacStartTimer(ms) + long ms; +{ + return (tclIntPlatStubsPtr->tclMacStartTimer)(ms); +} + +/* Slot 19 */ +int +TclMacTimerExpired(timerToken) + void * timerToken; +{ + return (tclIntPlatStubsPtr->tclMacTimerExpired)(timerToken); +} + +/* Slot 20 */ +int +TclMacRegisterResourceFork(fileRef, tokenPtr, insert) + short fileRef; + Tcl_Obj * tokenPtr; + int insert; +{ + return (tclIntPlatStubsPtr->tclMacRegisterResourceFork)(fileRef, tokenPtr, insert); +} + +/* Slot 21 */ +short +TclMacUnRegisterResourceFork(tokenPtr, resultPtr) + char * tokenPtr; + Tcl_Obj * resultPtr; +{ + return (tclIntPlatStubsPtr->tclMacUnRegisterResourceFork)(tokenPtr, resultPtr); +} + +/* Slot 22 */ +int +TclMacCreateEnv() +{ + return (tclIntPlatStubsPtr->tclMacCreateEnv)(); +} + +/* Slot 23 */ +FILE * +TclMacFOpenHack(path, mode) + CONST char * path; + CONST char * mode; +{ + return (tclIntPlatStubsPtr->tclMacFOpenHack)(path, mode); +} + +/* Slot 24 is reserved */ +/* Slot 25 */ +int +TclMacChmod(path, mode) + char * path; + int mode; +{ + return (tclIntPlatStubsPtr->tclMacChmod)(path, mode); +} + +#endif /* MAC_TCL */ + +/* !END!: Do not edit above this line. */ diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c index ae66d6d..1e245f9 100644 --- a/generic/tclIntStubs.c +++ b/generic/tclIntStubs.c @@ -1,1260 +1,1261 @@ -/*
- * tclIntStubs.c --
- *
- * This file contains the wrapper functions for the platform independent
- * unsupported Tcl API.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- * All rights reserved.
- *
- * RCS: @(#) $Id: tclIntStubs.c,v 1.3.2.3 1999/03/12 23:29:17 surles Exp $
- */
-
-#include "tclInt.h"
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tclInt.decls script.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported stub functions:
- */
-
-/* Slot 0 */
-int
-TclAccess(path, mode)
- CONST char * path;
- int mode;
-{
- return (tclIntStubsPtr->tclAccess)(path, mode);
-}
-
-/* Slot 1 */
-int
-TclAccessDeleteProc(proc)
- TclAccessProc_ * proc;
-{
- return (tclIntStubsPtr->tclAccessDeleteProc)(proc);
-}
-
-/* Slot 2 */
-int
-TclAccessInsertProc(proc)
- TclAccessProc_ * proc;
-{
- return (tclIntStubsPtr->tclAccessInsertProc)(proc);
-}
-
-/* Slot 3 */
-void
-TclAllocateFreeObjects()
-{
- (tclIntStubsPtr->tclAllocateFreeObjects)();
-}
-
-/* Slot 4 is reserved */
-/* Slot 5 */
-int
-TclCleanupChildren(interp, numPids, pidPtr, errorChan)
- Tcl_Interp * interp;
- int numPids;
- Tcl_Pid * pidPtr;
- Tcl_Channel errorChan;
-{
- return (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan);
-}
-
-/* Slot 6 */
-void
-TclCleanupCommand(cmdPtr)
- Command * cmdPtr;
-{
- (tclIntStubsPtr->tclCleanupCommand)(cmdPtr);
-}
-
-/* Slot 7 */
-int
-TclCopyAndCollapse(count, src, dst)
- int count;
- CONST char * src;
- char * dst;
-{
- return (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst);
-}
-
-/* Slot 8 */
-int
-TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr)
- Tcl_Interp * interp;
- Tcl_Channel inChan;
- Tcl_Channel outChan;
- int toRead;
- Tcl_Obj * cmdPtr;
-{
- return (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr);
-}
-
-/* Slot 9 */
-int
-TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
- Tcl_Pid ** pidArrayPtr;
- TclFile * inPipePtr;
- TclFile * outPipePtr;
- TclFile * errFilePtr;
-{
- return (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr);
-}
-
-/* Slot 10 */
-int
-TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr)
- Tcl_Interp * interp;
- Namespace * nsPtr;
- char * procName;
- Tcl_Obj * argsPtr;
- Tcl_Obj * bodyPtr;
- Proc ** procPtrPtr;
-{
- return (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr);
-}
-
-/* Slot 11 */
-void
-TclDeleteCompiledLocalVars(iPtr, framePtr)
- Interp * iPtr;
- CallFrame * framePtr;
-{
- (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr);
-}
-
-/* Slot 12 */
-void
-TclDeleteVars(iPtr, tablePtr)
- Interp * iPtr;
- Tcl_HashTable * tablePtr;
-{
- (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr);
-}
-
-/* Slot 13 */
-int
-TclDoGlob(interp, separators, headPtr, tail)
- Tcl_Interp * interp;
- char * separators;
- Tcl_DString * headPtr;
- char * tail;
-{
- return (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail);
-}
-
-/* Slot 14 */
-void
-TclDumpMemoryInfo(outFile)
- FILE * outFile;
-{
- (tclIntStubsPtr->tclDumpMemoryInfo)(outFile);
-}
-
-/* Slot 15 is reserved */
-/* Slot 16 */
-void
-TclExprFloatError(interp, value)
- Tcl_Interp * interp;
- double value;
-{
- (tclIntStubsPtr->tclExprFloatError)(interp, value);
-}
-
-/* Slot 17 */
-int
-TclFileAttrsCmd(interp, objc, objv)
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv);
-}
-
-/* Slot 18 */
-int
-TclFileCopyCmd(interp, argc, argv)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
-{
- return (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv);
-}
-
-/* Slot 19 */
-int
-TclFileDeleteCmd(interp, argc, argv)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
-{
- return (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv);
-}
-
-/* Slot 20 */
-int
-TclFileMakeDirsCmd(interp, argc, argv)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
-{
- return (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv);
-}
-
-/* Slot 21 */
-int
-TclFileRenameCmd(interp, argc, argv)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
-{
- return (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv);
-}
-
-/* Slot 22 */
-int
-TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr)
- Tcl_Interp * interp;
- CONST char * list;
- int listLength;
- CONST char ** elementPtr;
- CONST char ** nextPtr;
- int * sizePtr;
- int * bracePtr;
-{
- return (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr);
-}
-
-/* Slot 23 */
-Proc *
-TclFindProc(iPtr, procName)
- Interp * iPtr;
- char * procName;
-{
- return (tclIntStubsPtr->tclFindProc)(iPtr, procName);
-}
-
-/* Slot 24 */
-int
-TclFormatInt(buffer, n)
- char * buffer;
- long n;
-{
- return (tclIntStubsPtr->tclFormatInt)(buffer, n);
-}
-
-/* Slot 25 */
-void
-TclFreePackageInfo(iPtr)
- Interp * iPtr;
-{
- (tclIntStubsPtr->tclFreePackageInfo)(iPtr);
-}
-
-/* Slot 26 is reserved */
-/* Slot 27 */
-int
-TclGetDate(p, now, zone, timePtr)
- char * p;
- unsigned long now;
- long zone;
- unsigned long * timePtr;
-{
- return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr);
-}
-
-/* Slot 28 */
-Tcl_Channel
-TclpGetDefaultStdChannel(type)
- int type;
-{
- return (tclIntStubsPtr->tclpGetDefaultStdChannel)(type);
-}
-
-/* Slot 29 */
-Tcl_Obj *
-TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
- Tcl_Interp * interp;
- int localIndex;
- Tcl_Obj * elemPtr;
- int leaveErrorMsg;
-{
- return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg);
-}
-
-/* Slot 30 is reserved */
-/* Slot 31 */
-char *
-TclGetExtension(name)
- char * name;
-{
- return (tclIntStubsPtr->tclGetExtension)(name);
-}
-
-/* Slot 32 */
-int
-TclGetFrame(interp, string, framePtrPtr)
- Tcl_Interp * interp;
- char * string;
- CallFrame ** framePtrPtr;
-{
- return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr);
-}
-
-/* Slot 33 */
-TclCmdProcType
-TclGetInterpProc()
-{
- return (tclIntStubsPtr->tclGetInterpProc)();
-}
-
-/* Slot 34 */
-int
-TclGetIntForIndex(interp, objPtr, endValue, indexPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- int endValue;
- int * indexPtr;
-{
- return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr);
-}
-
-/* Slot 35 */
-Tcl_Obj *
-TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
- Tcl_Interp * interp;
- int localIndex;
- int leaveErrorMsg;
-{
- return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg);
-}
-
-/* Slot 36 */
-int
-TclGetLong(interp, string, longPtr)
- Tcl_Interp * interp;
- char * string;
- long * longPtr;
-{
- return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr);
-}
-
-/* Slot 37 */
-int
-TclGetLoadedPackages(interp, targetName)
- Tcl_Interp * interp;
- char * targetName;
-{
- return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName);
-}
-
-/* Slot 38 */
-int
-TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
- Tcl_Interp * interp;
- char * qualName;
- Namespace * cxtNsPtr;
- int flags;
- Namespace ** nsPtrPtr;
- Namespace ** altNsPtrPtr;
- Namespace ** actualCxtPtrPtr;
- char ** simpleNamePtr;
-{
- return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr);
-}
-
-/* Slot 39 */
-TclObjCmdProcType
-TclGetObjInterpProc()
-{
- return (tclIntStubsPtr->tclGetObjInterpProc)();
-}
-
-/* Slot 40 */
-int
-TclGetOpenMode(interp, string, seekFlagPtr)
- Tcl_Interp * interp;
- char * string;
- int * seekFlagPtr;
-{
- return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr);
-}
-
-/* Slot 41 */
-Tcl_Command
-TclGetOriginalCommand(command)
- Tcl_Command command;
-{
- return (tclIntStubsPtr->tclGetOriginalCommand)(command);
-}
-
-/* Slot 42 */
-char *
-TclpGetUserHome(name, bufferPtr)
- CONST char * name;
- Tcl_DString * bufferPtr;
-{
- return (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr);
-}
-
-/* Slot 43 */
-int
-TclGlobalInvoke(interp, argc, argv, flags)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
- int flags;
-{
- return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags);
-}
-
-/* Slot 44 */
-int
-TclGuessPackageName(fileName, bufPtr)
- char * fileName;
- Tcl_DString * bufPtr;
-{
- return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr);
-}
-
-/* Slot 45 */
-int
-TclHideUnsafeCommands(interp)
- Tcl_Interp * interp;
-{
- return (tclIntStubsPtr->tclHideUnsafeCommands)(interp);
-}
-
-/* Slot 46 */
-int
-TclInExit()
-{
- return (tclIntStubsPtr->tclInExit)();
-}
-
-/* Slot 47 */
-Tcl_Obj *
-TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount)
- Tcl_Interp * interp;
- int localIndex;
- Tcl_Obj * elemPtr;
- long incrAmount;
-{
- return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount);
-}
-
-/* Slot 48 */
-Tcl_Obj *
-TclIncrIndexedScalar(interp, localIndex, incrAmount)
- Tcl_Interp * interp;
- int localIndex;
- long incrAmount;
-{
- return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount);
-}
-
-/* Slot 49 */
-Tcl_Obj *
-TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed)
- Tcl_Interp * interp;
- Tcl_Obj * part1Ptr;
- Tcl_Obj * part2Ptr;
- long incrAmount;
- int part1NotParsed;
-{
- return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed);
-}
-
-/* Slot 50 */
-void
-TclInitCompiledLocals(interp, framePtr, nsPtr)
- Tcl_Interp * interp;
- CallFrame * framePtr;
- Namespace * nsPtr;
-{
- (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr);
-}
-
-/* Slot 51 */
-int
-TclInterpInit(interp)
- Tcl_Interp * interp;
-{
- return (tclIntStubsPtr->tclInterpInit)(interp);
-}
-
-/* Slot 52 */
-int
-TclInvoke(interp, argc, argv, flags)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
- int flags;
-{
- return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags);
-}
-
-/* Slot 53 */
-int
-TclInvokeObjectCommand(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp * interp;
- int argc;
- char ** argv;
-{
- return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv);
-}
-
-/* Slot 54 */
-int
-TclInvokeStringCommand(clientData, interp, objc, objv)
- ClientData clientData;
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv);
-}
-
-/* Slot 55 */
-Proc *
-TclIsProc(cmdPtr)
- Command * cmdPtr;
-{
- return (tclIntStubsPtr->tclIsProc)(cmdPtr);
-}
-
-/* Slot 56 is reserved */
-/* Slot 57 is reserved */
-/* Slot 58 */
-Var *
-TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
- char * msg;
- int createPart1;
- int createPart2;
- Var ** arrayPtrPtr;
-{
- return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr);
-}
-
-/* Slot 59 */
-int
-TclpMatchFiles(interp, separators, dirPtr, pattern, tail)
- Tcl_Interp * interp;
- char * separators;
- Tcl_DString * dirPtr;
- char * pattern;
- char * tail;
-{
- return (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail);
-}
-
-/* Slot 60 */
-int
-TclNeedSpace(start, end)
- char * start;
- char * end;
-{
- return (tclIntStubsPtr->tclNeedSpace)(start, end);
-}
-
-/* Slot 61 */
-Tcl_Obj *
-TclNewProcBodyObj(procPtr)
- Proc * procPtr;
-{
- return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr);
-}
-
-/* Slot 62 */
-int
-TclObjCommandComplete(cmdPtr)
- Tcl_Obj * cmdPtr;
-{
- return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr);
-}
-
-/* Slot 63 */
-int
-TclObjInterpProc(clientData, interp, objc, objv)
- ClientData clientData;
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv);
-}
-
-/* Slot 64 */
-int
-TclObjInvoke(interp, objc, objv, flags)
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
- int flags;
-{
- return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags);
-}
-
-/* Slot 65 */
-int
-TclObjInvokeGlobal(interp, objc, objv, flags)
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
- int flags;
-{
- return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags);
-}
-
-/* Slot 66 */
-int
-TclOpenFileChannelDeleteProc(proc)
- TclOpenFileChannelProc_ * proc;
-{
- return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc);
-}
-
-/* Slot 67 */
-int
-TclOpenFileChannelInsertProc(proc)
- TclOpenFileChannelProc_ * proc;
-{
- return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc);
-}
-
-/* Slot 68 */
-int
-TclpAccess(path, mode)
- CONST char * path;
- int mode;
-{
- return (tclIntStubsPtr->tclpAccess)(path, mode);
-}
-
-/* Slot 69 */
-char *
-TclpAlloc(size)
- unsigned int size;
-{
- return (tclIntStubsPtr->tclpAlloc)(size);
-}
-
-/* Slot 70 */
-int
-TclpCopyFile(source, dest)
- CONST char * source;
- CONST char * dest;
-{
- return (tclIntStubsPtr->tclpCopyFile)(source, dest);
-}
-
-/* Slot 71 */
-int
-TclpCopyDirectory(source, dest, errorPtr)
- CONST char * source;
- CONST char * dest;
- Tcl_DString * errorPtr;
-{
- return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr);
-}
-
-/* Slot 72 */
-int
-TclpCreateDirectory(path)
- CONST char * path;
-{
- return (tclIntStubsPtr->tclpCreateDirectory)(path);
-}
-
-/* Slot 73 */
-int
-TclpDeleteFile(path)
- CONST char * path;
-{
- return (tclIntStubsPtr->tclpDeleteFile)(path);
-}
-
-/* Slot 74 */
-void
-TclpFree(ptr)
- char * ptr;
-{
- (tclIntStubsPtr->tclpFree)(ptr);
-}
-
-/* Slot 75 */
-unsigned long
-TclpGetClicks()
-{
- return (tclIntStubsPtr->tclpGetClicks)();
-}
-
-/* Slot 76 */
-unsigned long
-TclpGetSeconds()
-{
- return (tclIntStubsPtr->tclpGetSeconds)();
-}
-
-/* Slot 77 */
-void
-TclpGetTime(time)
- Tcl_Time * time;
-{
- (tclIntStubsPtr->tclpGetTime)(time);
-}
-
-/* Slot 78 */
-int
-TclpGetTimeZone(time)
- unsigned long time;
-{
- return (tclIntStubsPtr->tclpGetTimeZone)(time);
-}
-
-/* Slot 79 */
-int
-TclpListVolumes(interp)
- Tcl_Interp * interp;
-{
- return (tclIntStubsPtr->tclpListVolumes)(interp);
-}
-
-/* Slot 80 */
-Tcl_Channel
-TclpOpenFileChannel(interp, fileName, modeString, permissions)
- Tcl_Interp * interp;
- char * fileName;
- char * modeString;
- int permissions;
-{
- return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions);
-}
-
-/* Slot 81 */
-char *
-TclpRealloc(ptr, size)
- char * ptr;
- unsigned int size;
-{
- return (tclIntStubsPtr->tclpRealloc)(ptr, size);
-}
-
-/* Slot 82 */
-int
-TclpRemoveDirectory(path, recursive, errorPtr)
- CONST char * path;
- int recursive;
- Tcl_DString * errorPtr;
-{
- return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr);
-}
-
-/* Slot 83 */
-int
-TclpRenameFile(source, dest)
- CONST char * source;
- CONST char * dest;
-{
- return (tclIntStubsPtr->tclpRenameFile)(source, dest);
-}
-
-/* Slot 84 is reserved */
-/* Slot 85 is reserved */
-/* Slot 86 is reserved */
-/* Slot 87 is reserved */
-/* Slot 88 */
-char *
-TclPrecTraceProc(clientData, interp, name1, name2, flags)
- ClientData clientData;
- Tcl_Interp * interp;
- char * name1;
- char * name2;
- int flags;
-{
- return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags);
-}
-
-/* Slot 89 */
-int
-TclPreventAliasLoop(interp, cmdInterp, cmd)
- Tcl_Interp * interp;
- Tcl_Interp * cmdInterp;
- Tcl_Command cmd;
-{
- return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd);
-}
-
-/* Slot 90 is reserved */
-/* Slot 91 */
-void
-TclProcCleanupProc(procPtr)
- Proc * procPtr;
-{
- (tclIntStubsPtr->tclProcCleanupProc)(procPtr);
-}
-
-/* Slot 92 */
-int
-TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
- Tcl_Interp * interp;
- Proc * procPtr;
- Tcl_Obj * bodyPtr;
- Namespace * nsPtr;
- CONST char * description;
- CONST char * procName;
-{
- return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName);
-}
-
-/* Slot 93 */
-void
-TclProcDeleteProc(clientData)
- ClientData clientData;
-{
- (tclIntStubsPtr->tclProcDeleteProc)(clientData);
-}
-
-/* Slot 94 */
-int
-TclProcInterpProc(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp * interp;
- int argc;
- char ** argv;
-{
- return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv);
-}
-
-/* Slot 95 */
-int
-TclpStat(path, buf)
- CONST char * path;
- struct stat * buf;
-{
- return (tclIntStubsPtr->tclpStat)(path, buf);
-}
-
-/* Slot 96 */
-int
-TclRenameCommand(interp, oldName, newName)
- Tcl_Interp * interp;
- char * oldName;
- char * newName;
-{
- return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName);
-}
-
-/* Slot 97 */
-void
-TclResetShadowedCmdRefs(interp, newCmdPtr)
- Tcl_Interp * interp;
- Command * newCmdPtr;
-{
- (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr);
-}
-
-/* Slot 98 */
-int
-TclServiceIdle()
-{
- return (tclIntStubsPtr->tclServiceIdle)();
-}
-
-/* Slot 99 */
-Tcl_Obj *
-TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg)
- Tcl_Interp * interp;
- int localIndex;
- Tcl_Obj * elemPtr;
- Tcl_Obj * objPtr;
- int leaveErrorMsg;
-{
- return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg);
-}
-
-/* Slot 100 */
-Tcl_Obj *
-TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
- Tcl_Interp * interp;
- int localIndex;
- Tcl_Obj * objPtr;
- int leaveErrorMsg;
-{
- return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg);
-}
-
-/* Slot 101 is reserved */
-/* Slot 102 */
-void
-TclSetupEnv(interp)
- Tcl_Interp * interp;
-{
- (tclIntStubsPtr->tclSetupEnv)(interp);
-}
-
-/* Slot 103 */
-int
-TclSockGetPort(interp, string, proto, portPtr)
- Tcl_Interp * interp;
- char * string;
- char * proto;
- int * portPtr;
-{
- return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr);
-}
-
-/* Slot 104 */
-int
-TclSockMinimumBuffers(sock, size)
- int sock;
- int size;
-{
- return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size);
-}
-
-/* Slot 105 */
-int
-TclStat(path, buf)
- CONST char * path;
- TclStat_ * buf;
-{
- return (tclIntStubsPtr->tclStat)(path, buf);
-}
-
-/* Slot 106 */
-int
-TclStatDeleteProc(proc)
- TclStatProc_ * proc;
-{
- return (tclIntStubsPtr->tclStatDeleteProc)(proc);
-}
-
-/* Slot 107 */
-int
-TclStatInsertProc(proc)
- TclStatProc_ * proc;
-{
- return (tclIntStubsPtr->tclStatInsertProc)(proc);
-}
-
-/* Slot 108 */
-void
-TclTeardownNamespace(nsPtr)
- Namespace * nsPtr;
-{
- (tclIntStubsPtr->tclTeardownNamespace)(nsPtr);
-}
-
-/* Slot 109 */
-int
-TclUpdateReturnInfo(iPtr)
- Interp * iPtr;
-{
- return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr);
-}
-
-/* Slot 110 is reserved */
-/* Slot 111 */
-void
-Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
- Tcl_Interp * interp;
- char * name;
- Tcl_ResolveCmdProc * cmdProc;
- Tcl_ResolveVarProc * varProc;
- Tcl_ResolveCompiledVarProc * compiledVarProc;
-{
- (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc);
-}
-
-/* Slot 112 */
-int
-Tcl_AppendExportList(interp, nsPtr, objPtr)
- Tcl_Interp * interp;
- Tcl_Namespace * nsPtr;
- Tcl_Obj * objPtr;
-{
- return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr);
-}
-
-/* Slot 113 */
-Tcl_Namespace *
-Tcl_CreateNamespace(interp, name, clientData, deleteProc)
- Tcl_Interp * interp;
- char * name;
- ClientData clientData;
- Tcl_NamespaceDeleteProc * deleteProc;
-{
- return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc);
-}
-
-/* Slot 114 */
-void
-Tcl_DeleteNamespace(nsPtr)
- Tcl_Namespace * nsPtr;
-{
- (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr);
-}
-
-/* Slot 115 */
-int
-Tcl_Export(interp, nsPtr, pattern, resetListFirst)
- Tcl_Interp * interp;
- Tcl_Namespace * nsPtr;
- char * pattern;
- int resetListFirst;
-{
- return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst);
-}
-
-/* Slot 116 */
-Tcl_Command
-Tcl_FindCommand(interp, name, contextNsPtr, flags)
- Tcl_Interp * interp;
- char * name;
- Tcl_Namespace * contextNsPtr;
- int flags;
-{
- return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags);
-}
-
-/* Slot 117 */
-Tcl_Namespace *
-Tcl_FindNamespace(interp, name, contextNsPtr, flags)
- Tcl_Interp * interp;
- char * name;
- Tcl_Namespace * contextNsPtr;
- int flags;
-{
- return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags);
-}
-
-/* Slot 118 */
-int
-Tcl_GetInterpResolvers(interp, name, resInfo)
- Tcl_Interp * interp;
- char * name;
- Tcl_ResolverInfo * resInfo;
-{
- return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo);
-}
-
-/* Slot 119 */
-int
-Tcl_GetNamespaceResolvers(namespacePtr, resInfo)
- Tcl_Namespace * namespacePtr;
- Tcl_ResolverInfo * resInfo;
-{
- return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo);
-}
-
-/* Slot 120 */
-Tcl_Var
-Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
- Tcl_Interp * interp;
- char * name;
- Tcl_Namespace * contextNsPtr;
- int flags;
-{
- return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags);
-}
-
-/* Slot 121 */
-int
-Tcl_ForgetImport(interp, nsPtr, pattern)
- Tcl_Interp * interp;
- Tcl_Namespace * nsPtr;
- char * pattern;
-{
- return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern);
-}
-
-/* Slot 122 */
-Tcl_Command
-Tcl_GetCommandFromObj(interp, objPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
-{
- return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr);
-}
-
-/* Slot 123 */
-void
-Tcl_GetCommandFullName(interp, command, objPtr)
- Tcl_Interp * interp;
- Tcl_Command command;
- Tcl_Obj * objPtr;
-{
- (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr);
-}
-
-/* Slot 124 */
-Tcl_Namespace *
-Tcl_GetCurrentNamespace(interp)
- Tcl_Interp * interp;
-{
- return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp);
-}
-
-/* Slot 125 */
-Tcl_Namespace *
-Tcl_GetGlobalNamespace(interp)
- Tcl_Interp * interp;
-{
- return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp);
-}
-
-/* Slot 126 */
-void
-Tcl_GetVariableFullName(interp, variable, objPtr)
- Tcl_Interp * interp;
- Tcl_Var variable;
- Tcl_Obj * objPtr;
-{
- (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr);
-}
-
-/* Slot 127 */
-int
-Tcl_Import(interp, nsPtr, pattern, allowOverwrite)
- Tcl_Interp * interp;
- Tcl_Namespace * nsPtr;
- char * pattern;
- int allowOverwrite;
-{
- return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite);
-}
-
-/* Slot 128 */
-void
-Tcl_PopCallFrame(interp)
- Tcl_Interp* interp;
-{
- (tclIntStubsPtr->tcl_PopCallFrame)(interp);
-}
-
-/* Slot 129 */
-int
-Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
- Tcl_Interp* interp;
- Tcl_CallFrame * framePtr;
- Tcl_Namespace * nsPtr;
- int isProcCallFrame;
-{
- return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame);
-}
-
-/* Slot 130 */
-int
-Tcl_RemoveInterpResolvers(interp, name)
- Tcl_Interp * interp;
- char * name;
-{
- return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name);
-}
-
-/* Slot 131 */
-void
-Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
- Tcl_Namespace * namespacePtr;
- Tcl_ResolveCmdProc * cmdProc;
- Tcl_ResolveVarProc * varProc;
- Tcl_ResolveCompiledVarProc * compiledVarProc;
-{
- (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc);
-}
-
-/* Slot 132 */
-int
-TclpHasSockets(interp)
- Tcl_Interp * interp;
-{
- return (tclIntStubsPtr->tclpHasSockets)(interp);
-}
-
-/* Slot 133 */
-struct tm *
-TclpGetDate(time, useGMT)
- TclpTime_t time;
- int useGMT;
-{
- return (tclIntStubsPtr->tclpGetDate)(time, useGMT);
-}
-
-/* Slot 134 */
-size_t
-TclpStrftime(s, maxsize, format, t)
- char * s;
- size_t maxsize;
- const char * format;
- const struct tm * t;
-{
- return (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t);
-}
-
-/* Slot 135 */
-int
-TclpCheckStackSpace()
-{
- return (tclIntStubsPtr->tclpCheckStackSpace)();
-}
-
-/* Slot 136 is reserved */
-/* Slot 137 */
-int
-TclpChdir(dirName)
- CONST char * dirName;
-{
- return (tclIntStubsPtr->tclpChdir)(dirName);
-}
-
-/* Slot 138 */
-char *
-TclGetEnv(name, valuePtr)
- CONST char * name;
- Tcl_DString * valuePtr;
-{
- return (tclIntStubsPtr->tclGetEnv)(name, valuePtr);
-}
-
-/* Slot 139 */
-int
-TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
- Tcl_Interp * interp;
- char * fileName;
- char * sym1;
- char * sym2;
- Tcl_PackageInitProc ** proc1Ptr;
- Tcl_PackageInitProc ** proc2Ptr;
- ClientData * clientDataPtr;
-{
- return (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr);
-}
-
-/* Slot 140 */
-int
-TclLooksLikeInt(bytes, length)
- char * bytes;
- int length;
-{
- return (tclIntStubsPtr->tclLooksLikeInt)(bytes, length);
-}
-
-
-/* !END!: Do not edit above this line. */
+/* + * tclIntStubs.c -- + * + * This file contains the wrapper functions for the platform independent + * unsupported Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tclIntStubs.c,v 1.3.2.4 1999/03/14 18:56:10 stanton Exp $ + */ + +#include "tclInt.h" + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tclInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported stub functions: + */ + +/* Slot 0 */ +int +TclAccess(path, mode) + CONST char * path; + int mode; +{ + return (tclIntStubsPtr->tclAccess)(path, mode); +} + +/* Slot 1 */ +int +TclAccessDeleteProc(proc) + TclAccessProc_ * proc; +{ + return (tclIntStubsPtr->tclAccessDeleteProc)(proc); +} + +/* Slot 2 */ +int +TclAccessInsertProc(proc) + TclAccessProc_ * proc; +{ + return (tclIntStubsPtr->tclAccessInsertProc)(proc); +} + +/* Slot 3 */ +void +TclAllocateFreeObjects() +{ + (tclIntStubsPtr->tclAllocateFreeObjects)(); +} + +/* Slot 4 is reserved */ +/* Slot 5 */ +int +TclCleanupChildren(interp, numPids, pidPtr, errorChan) + Tcl_Interp * interp; + int numPids; + Tcl_Pid * pidPtr; + Tcl_Channel errorChan; +{ + return (tclIntStubsPtr->tclCleanupChildren)(interp, numPids, pidPtr, errorChan); +} + +/* Slot 6 */ +void +TclCleanupCommand(cmdPtr) + Command * cmdPtr; +{ + (tclIntStubsPtr->tclCleanupCommand)(cmdPtr); +} + +/* Slot 7 */ +int +TclCopyAndCollapse(count, src, dst) + int count; + CONST char * src; + char * dst; +{ + return (tclIntStubsPtr->tclCopyAndCollapse)(count, src, dst); +} + +/* Slot 8 */ +int +TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr) + Tcl_Interp * interp; + Tcl_Channel inChan; + Tcl_Channel outChan; + int toRead; + Tcl_Obj * cmdPtr; +{ + return (tclIntStubsPtr->tclCopyChannel)(interp, inChan, outChan, toRead, cmdPtr); +} + +/* Slot 9 */ +int +TclCreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr) + Tcl_Interp * interp; + int argc; + char ** argv; + Tcl_Pid ** pidArrayPtr; + TclFile * inPipePtr; + TclFile * outPipePtr; + TclFile * errFilePtr; +{ + return (tclIntStubsPtr->tclCreatePipeline)(interp, argc, argv, pidArrayPtr, inPipePtr, outPipePtr, errFilePtr); +} + +/* Slot 10 */ +int +TclCreateProc(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr) + Tcl_Interp * interp; + Namespace * nsPtr; + char * procName; + Tcl_Obj * argsPtr; + Tcl_Obj * bodyPtr; + Proc ** procPtrPtr; +{ + return (tclIntStubsPtr->tclCreateProc)(interp, nsPtr, procName, argsPtr, bodyPtr, procPtrPtr); +} + +/* Slot 11 */ +void +TclDeleteCompiledLocalVars(iPtr, framePtr) + Interp * iPtr; + CallFrame * framePtr; +{ + (tclIntStubsPtr->tclDeleteCompiledLocalVars)(iPtr, framePtr); +} + +/* Slot 12 */ +void +TclDeleteVars(iPtr, tablePtr) + Interp * iPtr; + Tcl_HashTable * tablePtr; +{ + (tclIntStubsPtr->tclDeleteVars)(iPtr, tablePtr); +} + +/* Slot 13 */ +int +TclDoGlob(interp, separators, headPtr, tail) + Tcl_Interp * interp; + char * separators; + Tcl_DString * headPtr; + char * tail; +{ + return (tclIntStubsPtr->tclDoGlob)(interp, separators, headPtr, tail); +} + +/* Slot 14 */ +void +TclDumpMemoryInfo(outFile) + FILE * outFile; +{ + (tclIntStubsPtr->tclDumpMemoryInfo)(outFile); +} + +/* Slot 15 is reserved */ +/* Slot 16 */ +void +TclExprFloatError(interp, value) + Tcl_Interp * interp; + double value; +{ + (tclIntStubsPtr->tclExprFloatError)(interp, value); +} + +/* Slot 17 */ +int +TclFileAttrsCmd(interp, objc, objv) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclIntStubsPtr->tclFileAttrsCmd)(interp, objc, objv); +} + +/* Slot 18 */ +int +TclFileCopyCmd(interp, argc, argv) + Tcl_Interp * interp; + int argc; + char ** argv; +{ + return (tclIntStubsPtr->tclFileCopyCmd)(interp, argc, argv); +} + +/* Slot 19 */ +int +TclFileDeleteCmd(interp, argc, argv) + Tcl_Interp * interp; + int argc; + char ** argv; +{ + return (tclIntStubsPtr->tclFileDeleteCmd)(interp, argc, argv); +} + +/* Slot 20 */ +int +TclFileMakeDirsCmd(interp, argc, argv) + Tcl_Interp * interp; + int argc; + char ** argv; +{ + return (tclIntStubsPtr->tclFileMakeDirsCmd)(interp, argc, argv); +} + +/* Slot 21 */ +int +TclFileRenameCmd(interp, argc, argv) + Tcl_Interp * interp; + int argc; + char ** argv; +{ + return (tclIntStubsPtr->tclFileRenameCmd)(interp, argc, argv); +} + +/* Slot 22 */ +int +TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr) + Tcl_Interp * interp; + CONST char * list; + int listLength; + CONST char ** elementPtr; + CONST char ** nextPtr; + int * sizePtr; + int * bracePtr; +{ + return (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr); +} + +/* Slot 23 */ +Proc * +TclFindProc(iPtr, procName) + Interp * iPtr; + char * procName; +{ + return (tclIntStubsPtr->tclFindProc)(iPtr, procName); +} + +/* Slot 24 */ +int +TclFormatInt(buffer, n) + char * buffer; + long n; +{ + return (tclIntStubsPtr->tclFormatInt)(buffer, n); +} + +/* Slot 25 */ +void +TclFreePackageInfo(iPtr) + Interp * iPtr; +{ + (tclIntStubsPtr->tclFreePackageInfo)(iPtr); +} + +/* Slot 26 is reserved */ +/* Slot 27 */ +int +TclGetDate(p, now, zone, timePtr) + char * p; + unsigned long now; + long zone; + unsigned long * timePtr; +{ + return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr); +} + +/* Slot 28 */ +Tcl_Channel +TclpGetDefaultStdChannel(type) + int type; +{ + return (tclIntStubsPtr->tclpGetDefaultStdChannel)(type); +} + +/* Slot 29 */ +Tcl_Obj * +TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg) + Tcl_Interp * interp; + int localIndex; + Tcl_Obj * elemPtr; + int leaveErrorMsg; +{ + return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg); +} + +/* Slot 30 is reserved */ +/* Slot 31 */ +char * +TclGetExtension(name) + char * name; +{ + return (tclIntStubsPtr->tclGetExtension)(name); +} + +/* Slot 32 */ +int +TclGetFrame(interp, string, framePtrPtr) + Tcl_Interp * interp; + char * string; + CallFrame ** framePtrPtr; +{ + return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr); +} + +/* Slot 33 */ +TclCmdProcType +TclGetInterpProc() +{ + return (tclIntStubsPtr->tclGetInterpProc)(); +} + +/* Slot 34 */ +int +TclGetIntForIndex(interp, objPtr, endValue, indexPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int endValue; + int * indexPtr; +{ + return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr); +} + +/* Slot 35 */ +Tcl_Obj * +TclGetIndexedScalar(interp, localIndex, leaveErrorMsg) + Tcl_Interp * interp; + int localIndex; + int leaveErrorMsg; +{ + return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg); +} + +/* Slot 36 */ +int +TclGetLong(interp, string, longPtr) + Tcl_Interp * interp; + char * string; + long * longPtr; +{ + return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr); +} + +/* Slot 37 */ +int +TclGetLoadedPackages(interp, targetName) + Tcl_Interp * interp; + char * targetName; +{ + return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName); +} + +/* Slot 38 */ +int +TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr) + Tcl_Interp * interp; + char * qualName; + Namespace * cxtNsPtr; + int flags; + Namespace ** nsPtrPtr; + Namespace ** altNsPtrPtr; + Namespace ** actualCxtPtrPtr; + char ** simpleNamePtr; +{ + return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr); +} + +/* Slot 39 */ +TclObjCmdProcType +TclGetObjInterpProc() +{ + return (tclIntStubsPtr->tclGetObjInterpProc)(); +} + +/* Slot 40 */ +int +TclGetOpenMode(interp, string, seekFlagPtr) + Tcl_Interp * interp; + char * string; + int * seekFlagPtr; +{ + return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr); +} + +/* Slot 41 */ +Tcl_Command +TclGetOriginalCommand(command) + Tcl_Command command; +{ + return (tclIntStubsPtr->tclGetOriginalCommand)(command); +} + +/* Slot 42 */ +char * +TclpGetUserHome(name, bufferPtr) + CONST char * name; + Tcl_DString * bufferPtr; +{ + return (tclIntStubsPtr->tclpGetUserHome)(name, bufferPtr); +} + +/* Slot 43 */ +int +TclGlobalInvoke(interp, argc, argv, flags) + Tcl_Interp * interp; + int argc; + char ** argv; + int flags; +{ + return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags); +} + +/* Slot 44 */ +int +TclGuessPackageName(fileName, bufPtr) + char * fileName; + Tcl_DString * bufPtr; +{ + return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr); +} + +/* Slot 45 */ +int +TclHideUnsafeCommands(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclHideUnsafeCommands)(interp); +} + +/* Slot 46 */ +int +TclInExit() +{ + return (tclIntStubsPtr->tclInExit)(); +} + +/* Slot 47 */ +Tcl_Obj * +TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount) + Tcl_Interp * interp; + int localIndex; + Tcl_Obj * elemPtr; + long incrAmount; +{ + return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount); +} + +/* Slot 48 */ +Tcl_Obj * +TclIncrIndexedScalar(interp, localIndex, incrAmount) + Tcl_Interp * interp; + int localIndex; + long incrAmount; +{ + return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount); +} + +/* Slot 49 */ +Tcl_Obj * +TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed) + Tcl_Interp * interp; + Tcl_Obj * part1Ptr; + Tcl_Obj * part2Ptr; + long incrAmount; + int part1NotParsed; +{ + return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed); +} + +/* Slot 50 */ +void +TclInitCompiledLocals(interp, framePtr, nsPtr) + Tcl_Interp * interp; + CallFrame * framePtr; + Namespace * nsPtr; +{ + (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr); +} + +/* Slot 51 */ +int +TclInterpInit(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclInterpInit)(interp); +} + +/* Slot 52 */ +int +TclInvoke(interp, argc, argv, flags) + Tcl_Interp * interp; + int argc; + char ** argv; + int flags; +{ + return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags); +} + +/* Slot 53 */ +int +TclInvokeObjectCommand(clientData, interp, argc, argv) + ClientData clientData; + Tcl_Interp * interp; + int argc; + char ** argv; +{ + return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv); +} + +/* Slot 54 */ +int +TclInvokeStringCommand(clientData, interp, objc, objv) + ClientData clientData; + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv); +} + +/* Slot 55 */ +Proc * +TclIsProc(cmdPtr) + Command * cmdPtr; +{ + return (tclIntStubsPtr->tclIsProc)(cmdPtr); +} + +/* Slot 56 is reserved */ +/* Slot 57 is reserved */ +/* Slot 58 */ +Var * +TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; + char * msg; + int createPart1; + int createPart2; + Var ** arrayPtrPtr; +{ + return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr); +} + +/* Slot 59 */ +int +TclpMatchFiles(interp, separators, dirPtr, pattern, tail) + Tcl_Interp * interp; + char * separators; + Tcl_DString * dirPtr; + char * pattern; + char * tail; +{ + return (tclIntStubsPtr->tclpMatchFiles)(interp, separators, dirPtr, pattern, tail); +} + +/* Slot 60 */ +int +TclNeedSpace(start, end) + char * start; + char * end; +{ + return (tclIntStubsPtr->tclNeedSpace)(start, end); +} + +/* Slot 61 */ +Tcl_Obj * +TclNewProcBodyObj(procPtr) + Proc * procPtr; +{ + return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr); +} + +/* Slot 62 */ +int +TclObjCommandComplete(cmdPtr) + Tcl_Obj * cmdPtr; +{ + return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr); +} + +/* Slot 63 */ +int +TclObjInterpProc(clientData, interp, objc, objv) + ClientData clientData; + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv); +} + +/* Slot 64 */ +int +TclObjInvoke(interp, objc, objv, flags) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; + int flags; +{ + return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags); +} + +/* Slot 65 */ +int +TclObjInvokeGlobal(interp, objc, objv, flags) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; + int flags; +{ + return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags); +} + +/* Slot 66 */ +int +TclOpenFileChannelDeleteProc(proc) + TclOpenFileChannelProc_ * proc; +{ + return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc); +} + +/* Slot 67 */ +int +TclOpenFileChannelInsertProc(proc) + TclOpenFileChannelProc_ * proc; +{ + return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc); +} + +/* Slot 68 */ +int +TclpAccess(path, mode) + CONST char * path; + int mode; +{ + return (tclIntStubsPtr->tclpAccess)(path, mode); +} + +/* Slot 69 */ +char * +TclpAlloc(size) + unsigned int size; +{ + return (tclIntStubsPtr->tclpAlloc)(size); +} + +/* Slot 70 */ +int +TclpCopyFile(source, dest) + CONST char * source; + CONST char * dest; +{ + return (tclIntStubsPtr->tclpCopyFile)(source, dest); +} + +/* Slot 71 */ +int +TclpCopyDirectory(source, dest, errorPtr) + CONST char * source; + CONST char * dest; + Tcl_DString * errorPtr; +{ + return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr); +} + +/* Slot 72 */ +int +TclpCreateDirectory(path) + CONST char * path; +{ + return (tclIntStubsPtr->tclpCreateDirectory)(path); +} + +/* Slot 73 */ +int +TclpDeleteFile(path) + CONST char * path; +{ + return (tclIntStubsPtr->tclpDeleteFile)(path); +} + +/* Slot 74 */ +void +TclpFree(ptr) + char * ptr; +{ + (tclIntStubsPtr->tclpFree)(ptr); +} + +/* Slot 75 */ +unsigned long +TclpGetClicks() +{ + return (tclIntStubsPtr->tclpGetClicks)(); +} + +/* Slot 76 */ +unsigned long +TclpGetSeconds() +{ + return (tclIntStubsPtr->tclpGetSeconds)(); +} + +/* Slot 77 */ +void +TclpGetTime(time) + Tcl_Time * time; +{ + (tclIntStubsPtr->tclpGetTime)(time); +} + +/* Slot 78 */ +int +TclpGetTimeZone(time) + unsigned long time; +{ + return (tclIntStubsPtr->tclpGetTimeZone)(time); +} + +/* Slot 79 */ +int +TclpListVolumes(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclpListVolumes)(interp); +} + +/* Slot 80 */ +Tcl_Channel +TclpOpenFileChannel(interp, fileName, modeString, permissions) + Tcl_Interp * interp; + char * fileName; + char * modeString; + int permissions; +{ + return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions); +} + +/* Slot 81 */ +char * +TclpRealloc(ptr, size) + char * ptr; + unsigned int size; +{ + return (tclIntStubsPtr->tclpRealloc)(ptr, size); +} + +/* Slot 82 */ +int +TclpRemoveDirectory(path, recursive, errorPtr) + CONST char * path; + int recursive; + Tcl_DString * errorPtr; +{ + return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr); +} + +/* Slot 83 */ +int +TclpRenameFile(source, dest) + CONST char * source; + CONST char * dest; +{ + return (tclIntStubsPtr->tclpRenameFile)(source, dest); +} + +/* Slot 84 is reserved */ +/* Slot 85 is reserved */ +/* Slot 86 is reserved */ +/* Slot 87 is reserved */ +/* Slot 88 */ +char * +TclPrecTraceProc(clientData, interp, name1, name2, flags) + ClientData clientData; + Tcl_Interp * interp; + char * name1; + char * name2; + int flags; +{ + return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags); +} + +/* Slot 89 */ +int +TclPreventAliasLoop(interp, cmdInterp, cmd) + Tcl_Interp * interp; + Tcl_Interp * cmdInterp; + Tcl_Command cmd; +{ + return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd); +} + +/* Slot 90 is reserved */ +/* Slot 91 */ +void +TclProcCleanupProc(procPtr) + Proc * procPtr; +{ + (tclIntStubsPtr->tclProcCleanupProc)(procPtr); +} + +/* Slot 92 */ +int +TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName) + Tcl_Interp * interp; + Proc * procPtr; + Tcl_Obj * bodyPtr; + Namespace * nsPtr; + CONST char * description; + CONST char * procName; +{ + return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName); +} + +/* Slot 93 */ +void +TclProcDeleteProc(clientData) + ClientData clientData; +{ + (tclIntStubsPtr->tclProcDeleteProc)(clientData); +} + +/* Slot 94 */ +int +TclProcInterpProc(clientData, interp, argc, argv) + ClientData clientData; + Tcl_Interp * interp; + int argc; + char ** argv; +{ + return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv); +} + +/* Slot 95 */ +int +TclpStat(path, buf) + CONST char * path; + struct stat * buf; +{ + return (tclIntStubsPtr->tclpStat)(path, buf); +} + +/* Slot 96 */ +int +TclRenameCommand(interp, oldName, newName) + Tcl_Interp * interp; + char * oldName; + char * newName; +{ + return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName); +} + +/* Slot 97 */ +void +TclResetShadowedCmdRefs(interp, newCmdPtr) + Tcl_Interp * interp; + Command * newCmdPtr; +{ + (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr); +} + +/* Slot 98 */ +int +TclServiceIdle() +{ + return (tclIntStubsPtr->tclServiceIdle)(); +} + +/* Slot 99 */ +Tcl_Obj * +TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg) + Tcl_Interp * interp; + int localIndex; + Tcl_Obj * elemPtr; + Tcl_Obj * objPtr; + int leaveErrorMsg; +{ + return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg); +} + +/* Slot 100 */ +Tcl_Obj * +TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg) + Tcl_Interp * interp; + int localIndex; + Tcl_Obj * objPtr; + int leaveErrorMsg; +{ + return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg); +} + +/* Slot 101 is reserved */ +/* Slot 102 */ +void +TclSetupEnv(interp) + Tcl_Interp * interp; +{ + (tclIntStubsPtr->tclSetupEnv)(interp); +} + +/* Slot 103 */ +int +TclSockGetPort(interp, string, proto, portPtr) + Tcl_Interp * interp; + char * string; + char * proto; + int * portPtr; +{ + return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr); +} + +/* Slot 104 */ +int +TclSockMinimumBuffers(sock, size) + int sock; + int size; +{ + return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size); +} + +/* Slot 105 */ +int +TclStat(path, buf) + CONST char * path; + TclStat_ * buf; +{ + return (tclIntStubsPtr->tclStat)(path, buf); +} + +/* Slot 106 */ +int +TclStatDeleteProc(proc) + TclStatProc_ * proc; +{ + return (tclIntStubsPtr->tclStatDeleteProc)(proc); +} + +/* Slot 107 */ +int +TclStatInsertProc(proc) + TclStatProc_ * proc; +{ + return (tclIntStubsPtr->tclStatInsertProc)(proc); +} + +/* Slot 108 */ +void +TclTeardownNamespace(nsPtr) + Namespace * nsPtr; +{ + (tclIntStubsPtr->tclTeardownNamespace)(nsPtr); +} + +/* Slot 109 */ +int +TclUpdateReturnInfo(iPtr) + Interp * iPtr; +{ + return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr); +} + +/* Slot 110 is reserved */ +/* Slot 111 */ +void +Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc) + Tcl_Interp * interp; + char * name; + Tcl_ResolveCmdProc * cmdProc; + Tcl_ResolveVarProc * varProc; + Tcl_ResolveCompiledVarProc * compiledVarProc; +{ + (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc); +} + +/* Slot 112 */ +int +Tcl_AppendExportList(interp, nsPtr, objPtr) + Tcl_Interp * interp; + Tcl_Namespace * nsPtr; + Tcl_Obj * objPtr; +{ + return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr); +} + +/* Slot 113 */ +Tcl_Namespace * +Tcl_CreateNamespace(interp, name, clientData, deleteProc) + Tcl_Interp * interp; + char * name; + ClientData clientData; + Tcl_NamespaceDeleteProc * deleteProc; +{ + return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc); +} + +/* Slot 114 */ +void +Tcl_DeleteNamespace(nsPtr) + Tcl_Namespace * nsPtr; +{ + (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr); +} + +/* Slot 115 */ +int +Tcl_Export(interp, nsPtr, pattern, resetListFirst) + Tcl_Interp * interp; + Tcl_Namespace * nsPtr; + char * pattern; + int resetListFirst; +{ + return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst); +} + +/* Slot 116 */ +Tcl_Command +Tcl_FindCommand(interp, name, contextNsPtr, flags) + Tcl_Interp * interp; + char * name; + Tcl_Namespace * contextNsPtr; + int flags; +{ + return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags); +} + +/* Slot 117 */ +Tcl_Namespace * +Tcl_FindNamespace(interp, name, contextNsPtr, flags) + Tcl_Interp * interp; + char * name; + Tcl_Namespace * contextNsPtr; + int flags; +{ + return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags); +} + +/* Slot 118 */ +int +Tcl_GetInterpResolvers(interp, name, resInfo) + Tcl_Interp * interp; + char * name; + Tcl_ResolverInfo * resInfo; +{ + return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo); +} + +/* Slot 119 */ +int +Tcl_GetNamespaceResolvers(namespacePtr, resInfo) + Tcl_Namespace * namespacePtr; + Tcl_ResolverInfo * resInfo; +{ + return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo); +} + +/* Slot 120 */ +Tcl_Var +Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags) + Tcl_Interp * interp; + char * name; + Tcl_Namespace * contextNsPtr; + int flags; +{ + return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags); +} + +/* Slot 121 */ +int +Tcl_ForgetImport(interp, nsPtr, pattern) + Tcl_Interp * interp; + Tcl_Namespace * nsPtr; + char * pattern; +{ + return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern); +} + +/* Slot 122 */ +Tcl_Command +Tcl_GetCommandFromObj(interp, objPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; +{ + return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr); +} + +/* Slot 123 */ +void +Tcl_GetCommandFullName(interp, command, objPtr) + Tcl_Interp * interp; + Tcl_Command command; + Tcl_Obj * objPtr; +{ + (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr); +} + +/* Slot 124 */ +Tcl_Namespace * +Tcl_GetCurrentNamespace(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp); +} + +/* Slot 125 */ +Tcl_Namespace * +Tcl_GetGlobalNamespace(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp); +} + +/* Slot 126 */ +void +Tcl_GetVariableFullName(interp, variable, objPtr) + Tcl_Interp * interp; + Tcl_Var variable; + Tcl_Obj * objPtr; +{ + (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr); +} + +/* Slot 127 */ +int +Tcl_Import(interp, nsPtr, pattern, allowOverwrite) + Tcl_Interp * interp; + Tcl_Namespace * nsPtr; + char * pattern; + int allowOverwrite; +{ + return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite); +} + +/* Slot 128 */ +void +Tcl_PopCallFrame(interp) + Tcl_Interp* interp; +{ + (tclIntStubsPtr->tcl_PopCallFrame)(interp); +} + +/* Slot 129 */ +int +Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame) + Tcl_Interp* interp; + Tcl_CallFrame * framePtr; + Tcl_Namespace * nsPtr; + int isProcCallFrame; +{ + return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame); +} + +/* Slot 130 */ +int +Tcl_RemoveInterpResolvers(interp, name) + Tcl_Interp * interp; + char * name; +{ + return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name); +} + +/* Slot 131 */ +void +Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc) + Tcl_Namespace * namespacePtr; + Tcl_ResolveCmdProc * cmdProc; + Tcl_ResolveVarProc * varProc; + Tcl_ResolveCompiledVarProc * compiledVarProc; +{ + (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc); +} + +/* Slot 132 */ +int +TclpHasSockets(interp) + Tcl_Interp * interp; +{ + return (tclIntStubsPtr->tclpHasSockets)(interp); +} + +/* Slot 133 */ +struct tm * +TclpGetDate(time, useGMT) + TclpTime_t time; + int useGMT; +{ + return (tclIntStubsPtr->tclpGetDate)(time, useGMT); +} + +/* Slot 134 */ +size_t +TclpStrftime(s, maxsize, format, t) + char * s; + size_t maxsize; + CONST char * format; + CONST struct tm * t; +{ + return (tclIntStubsPtr->tclpStrftime)(s, maxsize, format, t); +} + +/* Slot 135 */ +int +TclpCheckStackSpace() +{ + return (tclIntStubsPtr->tclpCheckStackSpace)(); +} + +/* Slot 136 is reserved */ +/* Slot 137 */ +int +TclpChdir(dirName) + CONST char * dirName; +{ + return (tclIntStubsPtr->tclpChdir)(dirName); +} + +/* Slot 138 */ +char * +TclGetEnv(name, valuePtr) + CONST char * name; + Tcl_DString * valuePtr; +{ + return (tclIntStubsPtr->tclGetEnv)(name, valuePtr); +} + +/* Slot 139 */ +int +TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) + Tcl_Interp * interp; + char * fileName; + char * sym1; + char * sym2; + Tcl_PackageInitProc ** proc1Ptr; + Tcl_PackageInitProc ** proc2Ptr; + ClientData * clientDataPtr; +{ + return (tclIntStubsPtr->tclpLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr); +} + +/* Slot 140 */ +int +TclLooksLikeInt(bytes, length) + char * bytes; + int length; +{ + return (tclIntStubsPtr->tclLooksLikeInt)(bytes, length); +} + + +/* !END!: Do not edit above this line. */ + diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index c6d1192..b4921b0 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -1,107 +1,124 @@ -
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported function declarations:
- */
-
-#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;
- struct TclPlatStubHooks *hooks;
-
-#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;
-
-#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
-
-/*
- * Inline function declarations:
- */
-
-#ifdef MAC_TCL
-#ifndef Tcl_MacSetEventProc
-#define Tcl_MacSetEventProc(procPtr) \
- (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr) /* 0 */
-#endif
-#ifndef Tcl_MacConvertTextResource
-#define Tcl_MacConvertTextResource(resource) \
- (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource) /* 1 */
-#endif
-#ifndef Tcl_MacEvalResource
-#define Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) \
- (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName) /* 2 */
-#endif
-#ifndef Tcl_MacFindResource
-#define Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) \
- (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) /* 3 */
-#endif
-#ifndef Tcl_GetOSTypeFromObj
-#define Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) \
- (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr) /* 4 */
-#endif
-#ifndef Tcl_SetOSTypeObj
-#define Tcl_SetOSTypeObj(objPtr, osType) \
- (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType) /* 5 */
-#endif
-#ifndef Tcl_NewOSTypeObj
-#define Tcl_NewOSTypeObj(osType) \
- (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType) /* 6 */
-#endif
-#ifndef strncasecmp
-#define strncasecmp(s1, s2, n) \
- (tclPlatStubsPtr->strncasecmp)(s1, s2, n) /* 7 */
-#endif
-#ifndef strcasecmp
-#define strcasecmp(s1, s2) \
- (tclPlatStubsPtr->strcasecmp)(s1, s2) /* 8 */
-#endif
-#endif /* MAC_TCL */
-
-#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
-
-/* !END!: Do not edit above this line. */
+/* + * tclPlatDecls.h -- + * + * Declarations of platform specific Tcl APIs. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tclPlatDecls.h,v 1.3.2.3 1999/03/14 18:56:10 stanton Exp $ + */ + +#ifndef _TCLPLATDECLS +#define _TCLPLATDECLS + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported function declarations: + */ + +#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; + struct TclPlatStubHooks *hooks; + +#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; + +#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) + +/* + * Inline function declarations: + */ + +#ifdef MAC_TCL +#ifndef Tcl_MacSetEventProc +#define Tcl_MacSetEventProc(procPtr) \ + (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr) /* 0 */ +#endif +#ifndef Tcl_MacConvertTextResource +#define Tcl_MacConvertTextResource(resource) \ + (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource) /* 1 */ +#endif +#ifndef Tcl_MacEvalResource +#define Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) \ + (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName) /* 2 */ +#endif +#ifndef Tcl_MacFindResource +#define Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) \ + (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) /* 3 */ +#endif +#ifndef Tcl_GetOSTypeFromObj +#define Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) \ + (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr) /* 4 */ +#endif +#ifndef Tcl_SetOSTypeObj +#define Tcl_SetOSTypeObj(objPtr, osType) \ + (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType) /* 5 */ +#endif +#ifndef Tcl_NewOSTypeObj +#define Tcl_NewOSTypeObj(osType) \ + (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType) /* 6 */ +#endif +#ifndef strncasecmp +#define strncasecmp(s1, s2, n) \ + (tclPlatStubsPtr->strncasecmp)(s1, s2, n) /* 7 */ +#endif +#ifndef strcasecmp +#define strcasecmp(s1, s2) \ + (tclPlatStubsPtr->strcasecmp)(s1, s2) /* 8 */ +#endif +#endif /* MAC_TCL */ + +#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ + +/* !END!: Do not edit above this line. */ + +#endif /* _TCLPLATDECLS */ + + diff --git a/generic/tclPlatStubs.c b/generic/tclPlatStubs.c index 15f1b73..5da9aa8 100644 --- a/generic/tclPlatStubs.c +++ b/generic/tclPlatStubs.c @@ -1,116 +1,116 @@ -/*
- * tclPlatStubs.c --
- *
- * This file contains the wrapper functions for the platform independent
- * unsupported Tcl API.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- * All rights reserved.
- *
- * RCS: @(#) $Id: tclPlatStubs.c,v 1.3.2.2 1999/03/12 23:29:18 surles Exp $
- */
-
-#include "tcl.h"
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tclInt.decls script.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported stub functions:
- */
-
-#ifdef MAC_TCL
-/* Slot 0 */
-void
-Tcl_MacSetEventProc(procPtr)
- Tcl_MacConvertEventPtr procPtr;
-{
- (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr);
-}
-
-/* Slot 1 */
-char *
-Tcl_MacConvertTextResource(resource)
- Handle resource;
-{
- return (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource);
-}
-
-/* Slot 2 */
-int
-Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName)
- Tcl_Interp * interp;
- char * resourceName;
- int resourceNumber;
- char * fileName;
-{
- return (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName);
-}
-
-/* Slot 3 */
-Handle
-Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt)
- Tcl_Interp * interp;
- long resourceType;
- char * resourceName;
- int resourceNumber;
- char * resFileRef;
- int * releaseIt;
-{
- return (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt);
-}
-
-/* Slot 4 */
-int
-Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- OSType * osTypePtr;
-{
- return (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr);
-}
-
-/* Slot 5 */
-void
-Tcl_SetOSTypeObj(objPtr, osType)
- Tcl_Obj * objPtr;
- OSType osType;
-{
- (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType);
-}
-
-/* Slot 6 */
-Tcl_Obj *
-Tcl_NewOSTypeObj(osType)
- OSType osType;
-{
- return (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType);
-}
-
-/* Slot 7 */
-int
-strncasecmp(s1, s2, n)
- CONST char * s1;
- CONST char * s2;
- size_t n;
-{
- return (tclPlatStubsPtr->strncasecmp)(s1, s2, n);
-}
-
-/* Slot 8 */
-int
-strcasecmp(s1, s2)
- CONST char * s1;
- CONST char * s2;
-{
- return (tclPlatStubsPtr->strcasecmp)(s1, s2);
-}
-
-#endif /* MAC_TCL */
-
-/* !END!: Do not edit above this line. */
+/* + * tclPlatStubs.c -- + * + * This file contains the wrapper functions for the platform independent + * unsupported Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * All rights reserved. + * + * RCS: @(#) $Id: tclPlatStubs.c,v 1.3.2.3 1999/03/14 18:56:10 stanton Exp $ + */ + +#include "tcl.h" + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tclInt.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported stub functions: + */ + +#ifdef MAC_TCL +/* Slot 0 */ +void +Tcl_MacSetEventProc(procPtr) + Tcl_MacConvertEventPtr procPtr; +{ + (tclPlatStubsPtr->tcl_MacSetEventProc)(procPtr); +} + +/* Slot 1 */ +char * +Tcl_MacConvertTextResource(resource) + Handle resource; +{ + return (tclPlatStubsPtr->tcl_MacConvertTextResource)(resource); +} + +/* Slot 2 */ +int +Tcl_MacEvalResource(interp, resourceName, resourceNumber, fileName) + Tcl_Interp * interp; + char * resourceName; + int resourceNumber; + char * fileName; +{ + return (tclPlatStubsPtr->tcl_MacEvalResource)(interp, resourceName, resourceNumber, fileName); +} + +/* Slot 3 */ +Handle +Tcl_MacFindResource(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt) + Tcl_Interp * interp; + long resourceType; + char * resourceName; + int resourceNumber; + char * resFileRef; + int * releaseIt; +{ + return (tclPlatStubsPtr->tcl_MacFindResource)(interp, resourceType, resourceName, resourceNumber, resFileRef, releaseIt); +} + +/* Slot 4 */ +int +Tcl_GetOSTypeFromObj(interp, objPtr, osTypePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + OSType * osTypePtr; +{ + return (tclPlatStubsPtr->tcl_GetOSTypeFromObj)(interp, objPtr, osTypePtr); +} + +/* Slot 5 */ +void +Tcl_SetOSTypeObj(objPtr, osType) + Tcl_Obj * objPtr; + OSType osType; +{ + (tclPlatStubsPtr->tcl_SetOSTypeObj)(objPtr, osType); +} + +/* Slot 6 */ +Tcl_Obj * +Tcl_NewOSTypeObj(osType) + OSType osType; +{ + return (tclPlatStubsPtr->tcl_NewOSTypeObj)(osType); +} + +/* Slot 7 */ +int +strncasecmp(s1, s2, n) + CONST char * s1; + CONST char * s2; + size_t n; +{ + return (tclPlatStubsPtr->strncasecmp)(s1, s2, n); +} + +/* Slot 8 */ +int +strcasecmp(s1, s2) + CONST char * s1; + CONST char * s2; +{ + return (tclPlatStubsPtr->strcasecmp)(s1, s2); +} + +#endif /* MAC_TCL */ + +/* !END!: Do not edit above this line. */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index c25b054..353911e 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -1,668 +1,668 @@ -/*
- * tclStubInit.c --
- *
- * This file contains the initializers for the Tcl stub vectors.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclStubInit.c,v 1.3.2.5 1999/03/12 23:29:18 surles 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.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-static TclStubHooks tclStubHooks;
-
-TclStubs tclStubs = {
- TCL_STUB_MAGIC,
- &tclStubHooks,
- Tcl_PkgProvideEx, /* 0 */
- Tcl_PkgRequireEx, /* 1 */
- panic, /* 2 */
- Tcl_Alloc, /* 3 */
- Tcl_Free, /* 4 */
- Tcl_Realloc, /* 5 */
- Tcl_DbCkalloc, /* 6 */
- Tcl_DbCkfree, /* 7 */
- Tcl_DbCkrealloc, /* 8 */
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
- Tcl_CreateFileHandler, /* 9 */
-#endif /* UNIX */
-#ifdef __WIN32__
- NULL, /* 9 */
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
- NULL, /* 9 */
-#endif /* MAC_TCL */
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
- Tcl_DeleteFileHandler, /* 10 */
-#endif /* UNIX */
-#ifdef __WIN32__
- NULL, /* 10 */
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
- NULL, /* 10 */
-#endif /* MAC_TCL */
- Tcl_SetTimer, /* 11 */
- Tcl_Sleep, /* 12 */
- Tcl_WaitForEvent, /* 13 */
- Tcl_AppendAllObjTypes, /* 14 */
- Tcl_AppendStringsToObj, /* 15 */
- Tcl_AppendToObj, /* 16 */
- Tcl_ConcatObj, /* 17 */
- Tcl_ConvertToType, /* 18 */
- Tcl_DbDecrRefCount, /* 19 */
- Tcl_DbIncrRefCount, /* 20 */
- Tcl_DbIsShared, /* 21 */
- Tcl_DbNewBooleanObj, /* 22 */
- Tcl_DbNewByteArrayObj, /* 23 */
- Tcl_DbNewDoubleObj, /* 24 */
- Tcl_DbNewListObj, /* 25 */
- Tcl_DbNewLongObj, /* 26 */
- Tcl_DbNewObj, /* 27 */
- Tcl_DbNewStringObj, /* 28 */
- Tcl_DuplicateObj, /* 29 */
- TclFreeObj, /* 30 */
- Tcl_GetBoolean, /* 31 */
- Tcl_GetBooleanFromObj, /* 32 */
- Tcl_GetByteArrayFromObj, /* 33 */
- Tcl_GetDouble, /* 34 */
- Tcl_GetDoubleFromObj, /* 35 */
- Tcl_GetIndexFromObj, /* 36 */
- Tcl_GetInt, /* 37 */
- Tcl_GetIntFromObj, /* 38 */
- Tcl_GetLongFromObj, /* 39 */
- Tcl_GetObjType, /* 40 */
- Tcl_GetStringFromObj, /* 41 */
- Tcl_InvalidateStringRep, /* 42 */
- Tcl_ListObjAppendList, /* 43 */
- Tcl_ListObjAppendElement, /* 44 */
- Tcl_ListObjGetElements, /* 45 */
- Tcl_ListObjIndex, /* 46 */
- Tcl_ListObjLength, /* 47 */
- Tcl_ListObjReplace, /* 48 */
- Tcl_NewBooleanObj, /* 49 */
- Tcl_NewByteArrayObj, /* 50 */
- Tcl_NewDoubleObj, /* 51 */
- Tcl_NewIntObj, /* 52 */
- Tcl_NewListObj, /* 53 */
- Tcl_NewLongObj, /* 54 */
- Tcl_NewObj, /* 55 */
- Tcl_NewStringObj, /* 56 */
- Tcl_SetBooleanObj, /* 57 */
- Tcl_SetByteArrayLength, /* 58 */
- Tcl_SetByteArrayObj, /* 59 */
- Tcl_SetDoubleObj, /* 60 */
- Tcl_SetIntObj, /* 61 */
- Tcl_SetListObj, /* 62 */
- Tcl_SetLongObj, /* 63 */
- Tcl_SetObjLength, /* 64 */
- Tcl_SetStringObj, /* 65 */
- Tcl_AddErrorInfo, /* 66 */
- Tcl_AddObjErrorInfo, /* 67 */
- Tcl_AllowExceptions, /* 68 */
- Tcl_AppendElement, /* 69 */
- Tcl_AppendResult, /* 70 */
- Tcl_AsyncCreate, /* 71 */
- Tcl_AsyncDelete, /* 72 */
- Tcl_AsyncInvoke, /* 73 */
- Tcl_AsyncMark, /* 74 */
- Tcl_AsyncReady, /* 75 */
- Tcl_BackgroundError, /* 76 */
- Tcl_Backslash, /* 77 */
- Tcl_BadChannelOption, /* 78 */
- Tcl_CallWhenDeleted, /* 79 */
- Tcl_CancelIdleCall, /* 80 */
- Tcl_Close, /* 81 */
- Tcl_CommandComplete, /* 82 */
- Tcl_Concat, /* 83 */
- Tcl_ConvertElement, /* 84 */
- Tcl_ConvertCountedElement, /* 85 */
- Tcl_CreateAlias, /* 86 */
- Tcl_CreateAliasObj, /* 87 */
- Tcl_CreateChannel, /* 88 */
- Tcl_CreateChannelHandler, /* 89 */
- Tcl_CreateCloseHandler, /* 90 */
- Tcl_CreateCommand, /* 91 */
- Tcl_CreateEventSource, /* 92 */
- Tcl_CreateExitHandler, /* 93 */
- Tcl_CreateInterp, /* 94 */
- Tcl_CreateMathFunc, /* 95 */
- Tcl_CreateObjCommand, /* 96 */
- Tcl_CreateSlave, /* 97 */
- Tcl_CreateTimerHandler, /* 98 */
- Tcl_CreateTrace, /* 99 */
- Tcl_DeleteAssocData, /* 100 */
- Tcl_DeleteChannelHandler, /* 101 */
- Tcl_DeleteCloseHandler, /* 102 */
- Tcl_DeleteCommand, /* 103 */
- Tcl_DeleteCommandFromToken, /* 104 */
- Tcl_DeleteEvents, /* 105 */
- Tcl_DeleteEventSource, /* 106 */
- Tcl_DeleteExitHandler, /* 107 */
- Tcl_DeleteHashEntry, /* 108 */
- Tcl_DeleteHashTable, /* 109 */
- Tcl_DeleteInterp, /* 110 */
- Tcl_DetachPids, /* 111 */
- Tcl_DeleteTimerHandler, /* 112 */
- Tcl_DeleteTrace, /* 113 */
- Tcl_DontCallWhenDeleted, /* 114 */
- Tcl_DoOneEvent, /* 115 */
- Tcl_DoWhenIdle, /* 116 */
- Tcl_DStringAppend, /* 117 */
- Tcl_DStringAppendElement, /* 118 */
- Tcl_DStringEndSublist, /* 119 */
- Tcl_DStringFree, /* 120 */
- Tcl_DStringGetResult, /* 121 */
- Tcl_DStringInit, /* 122 */
- Tcl_DStringResult, /* 123 */
- Tcl_DStringSetLength, /* 124 */
- Tcl_DStringStartSublist, /* 125 */
- Tcl_Eof, /* 126 */
- Tcl_ErrnoId, /* 127 */
- Tcl_ErrnoMsg, /* 128 */
- Tcl_Eval, /* 129 */
- Tcl_EvalFile, /* 130 */
- Tcl_EvalObj, /* 131 */
- Tcl_EventuallyFree, /* 132 */
- Tcl_Exit, /* 133 */
- Tcl_ExposeCommand, /* 134 */
- Tcl_ExprBoolean, /* 135 */
- Tcl_ExprBooleanObj, /* 136 */
- Tcl_ExprDouble, /* 137 */
- Tcl_ExprDoubleObj, /* 138 */
- Tcl_ExprLong, /* 139 */
- Tcl_ExprLongObj, /* 140 */
- Tcl_ExprObj, /* 141 */
- Tcl_ExprString, /* 142 */
- Tcl_Finalize, /* 143 */
- Tcl_FindExecutable, /* 144 */
- Tcl_FirstHashEntry, /* 145 */
- Tcl_Flush, /* 146 */
- Tcl_FreeResult, /* 147 */
- Tcl_GetAlias, /* 148 */
- Tcl_GetAliasObj, /* 149 */
- Tcl_GetAssocData, /* 150 */
- Tcl_GetChannel, /* 151 */
- Tcl_GetChannelBufferSize, /* 152 */
- Tcl_GetChannelHandle, /* 153 */
- Tcl_GetChannelInstanceData, /* 154 */
- Tcl_GetChannelMode, /* 155 */
- Tcl_GetChannelName, /* 156 */
- Tcl_GetChannelOption, /* 157 */
- Tcl_GetChannelType, /* 158 */
- Tcl_GetCommandInfo, /* 159 */
- Tcl_GetCommandName, /* 160 */
- Tcl_GetErrno, /* 161 */
- Tcl_GetHostName, /* 162 */
- Tcl_GetInterpPath, /* 163 */
- Tcl_GetMaster, /* 164 */
- Tcl_GetNameOfExecutable, /* 165 */
- Tcl_GetObjResult, /* 166 */
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
- Tcl_GetOpenFile, /* 167 */
-#endif /* UNIX */
-#ifdef __WIN32__
- NULL, /* 167 */
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
- NULL, /* 167 */
-#endif /* MAC_TCL */
- Tcl_GetPathType, /* 168 */
- Tcl_Gets, /* 169 */
- Tcl_GetsObj, /* 170 */
- Tcl_GetServiceMode, /* 171 */
- Tcl_GetSlave, /* 172 */
- Tcl_GetStdChannel, /* 173 */
- Tcl_GetStringResult, /* 174 */
- Tcl_GetVar, /* 175 */
- Tcl_GetVar2, /* 176 */
- Tcl_GlobalEval, /* 177 */
- Tcl_GlobalEvalObj, /* 178 */
- Tcl_HideCommand, /* 179 */
- Tcl_Init, /* 180 */
- Tcl_InitHashTable, /* 181 */
- Tcl_InputBlocked, /* 182 */
- Tcl_InputBuffered, /* 183 */
- Tcl_InterpDeleted, /* 184 */
- Tcl_IsSafe, /* 185 */
- Tcl_JoinPath, /* 186 */
- Tcl_LinkVar, /* 187 */
- NULL, /* 188 */
- Tcl_MakeFileChannel, /* 189 */
- Tcl_MakeSafe, /* 190 */
- Tcl_MakeTcpClientChannel, /* 191 */
- Tcl_Merge, /* 192 */
- Tcl_NextHashEntry, /* 193 */
- Tcl_NotifyChannel, /* 194 */
- Tcl_ObjGetVar2, /* 195 */
- Tcl_ObjSetVar2, /* 196 */
- Tcl_OpenCommandChannel, /* 197 */
- Tcl_OpenFileChannel, /* 198 */
- Tcl_OpenTcpClient, /* 199 */
- Tcl_OpenTcpServer, /* 200 */
- Tcl_Preserve, /* 201 */
- Tcl_PrintDouble, /* 202 */
- Tcl_PutEnv, /* 203 */
- Tcl_PosixError, /* 204 */
- Tcl_QueueEvent, /* 205 */
- Tcl_Read, /* 206 */
- Tcl_ReapDetachedProcs, /* 207 */
- Tcl_RecordAndEval, /* 208 */
- Tcl_RecordAndEvalObj, /* 209 */
- Tcl_RegisterChannel, /* 210 */
- Tcl_RegisterObjType, /* 211 */
- Tcl_RegExpCompile, /* 212 */
- Tcl_RegExpExec, /* 213 */
- Tcl_RegExpMatch, /* 214 */
- Tcl_RegExpRange, /* 215 */
- Tcl_Release, /* 216 */
- Tcl_ResetResult, /* 217 */
- Tcl_ScanElement, /* 218 */
- Tcl_ScanCountedElement, /* 219 */
- Tcl_Seek, /* 220 */
- Tcl_ServiceAll, /* 221 */
- Tcl_ServiceEvent, /* 222 */
- Tcl_SetAssocData, /* 223 */
- Tcl_SetChannelBufferSize, /* 224 */
- Tcl_SetChannelOption, /* 225 */
- Tcl_SetCommandInfo, /* 226 */
- Tcl_SetErrno, /* 227 */
- Tcl_SetErrorCode, /* 228 */
- Tcl_SetMaxBlockTime, /* 229 */
- Tcl_SetPanicProc, /* 230 */
- Tcl_SetRecursionLimit, /* 231 */
- Tcl_SetResult, /* 232 */
- Tcl_SetServiceMode, /* 233 */
- Tcl_SetObjErrorCode, /* 234 */
- Tcl_SetObjResult, /* 235 */
- Tcl_SetStdChannel, /* 236 */
- Tcl_SetVar, /* 237 */
- Tcl_SetVar2, /* 238 */
- Tcl_SignalId, /* 239 */
- Tcl_SignalMsg, /* 240 */
- Tcl_SourceRCFile, /* 241 */
- Tcl_SplitList, /* 242 */
- Tcl_SplitPath, /* 243 */
- Tcl_StaticPackage, /* 244 */
- Tcl_StringMatch, /* 245 */
- Tcl_Tell, /* 246 */
- Tcl_TraceVar, /* 247 */
- Tcl_TraceVar2, /* 248 */
- Tcl_TranslateFileName, /* 249 */
- Tcl_Ungets, /* 250 */
- Tcl_UnlinkVar, /* 251 */
- Tcl_UnregisterChannel, /* 252 */
- Tcl_UnsetVar, /* 253 */
- Tcl_UnsetVar2, /* 254 */
- Tcl_UntraceVar, /* 255 */
- Tcl_UntraceVar2, /* 256 */
- Tcl_UpdateLinkedVar, /* 257 */
- Tcl_UpVar, /* 258 */
- Tcl_UpVar2, /* 259 */
- Tcl_VarEval, /* 260 */
- Tcl_VarTraceInfo, /* 261 */
- Tcl_VarTraceInfo2, /* 262 */
- Tcl_Write, /* 263 */
- Tcl_WrongNumArgs, /* 264 */
- Tcl_DumpActiveMemory, /* 265 */
- Tcl_ValidateAllMemory, /* 266 */
- Tcl_AppendResultVA, /* 267 */
- Tcl_AppendStringsToObjVA, /* 268 */
- Tcl_HashStats, /* 269 */
- Tcl_ParseVar, /* 270 */
- Tcl_PkgPresent, /* 271 */
- Tcl_PkgPresentEx, /* 272 */
- Tcl_PkgProvide, /* 273 */
- Tcl_PkgRequire, /* 274 */
- Tcl_SetErrorCodeVA, /* 275 */
- Tcl_VarEvalVA, /* 276 */
- Tcl_WaitPid, /* 277 */
- panicVA, /* 278 */
- Tcl_GetVersion, /* 279 */
- NULL, /* 280 */
- NULL, /* 281 */
- NULL, /* 282 */
- NULL, /* 283 */
- NULL, /* 284 */
- NULL, /* 285 */
- Tcl_AppendObjToObj, /* 286 */
- Tcl_CreateEncoding, /* 287 */
- Tcl_CreateThreadExitHandler, /* 288 */
- Tcl_DeleteThreadExitHandler, /* 289 */
- Tcl_DiscardResult, /* 290 */
- Tcl_EvalEx, /* 291 */
- Tcl_EvalObjv, /* 292 */
- Tcl_EvalObjEx, /* 293 */
- Tcl_ExitThread, /* 294 */
- Tcl_ExternalToUtf, /* 295 */
- Tcl_ExternalToUtfDString, /* 296 */
- Tcl_FinalizeThread, /* 297 */
- Tcl_FinalizeNotifier, /* 298 */
- Tcl_FreeEncoding, /* 299 */
- Tcl_GetCurrentThread, /* 300 */
- Tcl_GetEncoding, /* 301 */
- Tcl_GetEncodingName, /* 302 */
- Tcl_GetEncodingNames, /* 303 */
- Tcl_GetIndexFromObjStruct, /* 304 */
- Tcl_GetThreadData, /* 305 */
- Tcl_GetVar2Ex, /* 306 */
- Tcl_InitNotifier, /* 307 */
- Tcl_MutexLock, /* 308 */
- Tcl_MutexUnlock, /* 309 */
- Tcl_ConditionNotify, /* 310 */
- Tcl_ConditionWait, /* 311 */
- Tcl_NumUtfChars, /* 312 */
- Tcl_ReadChars, /* 313 */
- Tcl_RestoreResult, /* 314 */
- Tcl_SaveResult, /* 315 */
- Tcl_SetSystemEncoding, /* 316 */
- Tcl_SetVar2Ex, /* 317 */
- Tcl_ThreadAlert, /* 318 */
- Tcl_ThreadQueueEvent, /* 319 */
- Tcl_UniCharAtIndex, /* 320 */
- Tcl_UniCharToLower, /* 321 */
- Tcl_UniCharToTitle, /* 322 */
- Tcl_UniCharToUpper, /* 323 */
- Tcl_UniCharToUtf, /* 324 */
- Tcl_UtfAtIndex, /* 325 */
- Tcl_UtfCharComplete, /* 326 */
- Tcl_UtfBackslash, /* 327 */
- Tcl_UtfFindFirst, /* 328 */
- Tcl_UtfFindLast, /* 329 */
- Tcl_UtfNext, /* 330 */
- Tcl_UtfPrev, /* 331 */
- Tcl_UtfToExternal, /* 332 */
- Tcl_UtfToExternalDString, /* 333 */
- Tcl_UtfToLower, /* 334 */
- Tcl_UtfToTitle, /* 335 */
- Tcl_UtfToUniChar, /* 336 */
- Tcl_UtfToUpper, /* 337 */
- Tcl_WriteChars, /* 338 */
- Tcl_WriteObj, /* 339 */
- Tcl_GetString, /* 340 */
- Tcl_GetDefaultEncodingDir, /* 341 */
- Tcl_SetDefaultEncodingDir, /* 342 */
-};
-
-TclStubs *tclStubsPtr = &tclStubs;
-
-TclIntStubs tclIntStubs = {
- TCL_STUB_MAGIC,
- NULL,
- TclAccess, /* 0 */
- TclAccessDeleteProc, /* 1 */
- TclAccessInsertProc, /* 2 */
- TclAllocateFreeObjects, /* 3 */
- NULL, /* 4 */
- TclCleanupChildren, /* 5 */
- TclCleanupCommand, /* 6 */
- TclCopyAndCollapse, /* 7 */
- TclCopyChannel, /* 8 */
- TclCreatePipeline, /* 9 */
- TclCreateProc, /* 10 */
- TclDeleteCompiledLocalVars, /* 11 */
- TclDeleteVars, /* 12 */
- TclDoGlob, /* 13 */
- TclDumpMemoryInfo, /* 14 */
- NULL, /* 15 */
- TclExprFloatError, /* 16 */
- TclFileAttrsCmd, /* 17 */
- TclFileCopyCmd, /* 18 */
- TclFileDeleteCmd, /* 19 */
- TclFileMakeDirsCmd, /* 20 */
- TclFileRenameCmd, /* 21 */
- TclFindElement, /* 22 */
- TclFindProc, /* 23 */
- TclFormatInt, /* 24 */
- TclFreePackageInfo, /* 25 */
- NULL, /* 26 */
- TclGetDate, /* 27 */
- TclpGetDefaultStdChannel, /* 28 */
- TclGetElementOfIndexedArray, /* 29 */
- NULL, /* 30 */
- TclGetExtension, /* 31 */
- TclGetFrame, /* 32 */
- TclGetInterpProc, /* 33 */
- TclGetIntForIndex, /* 34 */
- TclGetIndexedScalar, /* 35 */
- TclGetLong, /* 36 */
- TclGetLoadedPackages, /* 37 */
- TclGetNamespaceForQualName, /* 38 */
- TclGetObjInterpProc, /* 39 */
- TclGetOpenMode, /* 40 */
- TclGetOriginalCommand, /* 41 */
- TclpGetUserHome, /* 42 */
- TclGlobalInvoke, /* 43 */
- TclGuessPackageName, /* 44 */
- TclHideUnsafeCommands, /* 45 */
- TclInExit, /* 46 */
- TclIncrElementOfIndexedArray, /* 47 */
- TclIncrIndexedScalar, /* 48 */
- TclIncrVar2, /* 49 */
- TclInitCompiledLocals, /* 50 */
- TclInterpInit, /* 51 */
- TclInvoke, /* 52 */
- TclInvokeObjectCommand, /* 53 */
- TclInvokeStringCommand, /* 54 */
- TclIsProc, /* 55 */
- NULL, /* 56 */
- NULL, /* 57 */
- TclLookupVar, /* 58 */
- TclpMatchFiles, /* 59 */
- TclNeedSpace, /* 60 */
- TclNewProcBodyObj, /* 61 */
- TclObjCommandComplete, /* 62 */
- TclObjInterpProc, /* 63 */
- TclObjInvoke, /* 64 */
- TclObjInvokeGlobal, /* 65 */
- TclOpenFileChannelDeleteProc, /* 66 */
- TclOpenFileChannelInsertProc, /* 67 */
- TclpAccess, /* 68 */
- TclpAlloc, /* 69 */
- TclpCopyFile, /* 70 */
- TclpCopyDirectory, /* 71 */
- TclpCreateDirectory, /* 72 */
- TclpDeleteFile, /* 73 */
- TclpFree, /* 74 */
- TclpGetClicks, /* 75 */
- TclpGetSeconds, /* 76 */
- TclpGetTime, /* 77 */
- TclpGetTimeZone, /* 78 */
- TclpListVolumes, /* 79 */
- TclpOpenFileChannel, /* 80 */
- TclpRealloc, /* 81 */
- TclpRemoveDirectory, /* 82 */
- TclpRenameFile, /* 83 */
- NULL, /* 84 */
- NULL, /* 85 */
- NULL, /* 86 */
- NULL, /* 87 */
- TclPrecTraceProc, /* 88 */
- TclPreventAliasLoop, /* 89 */
- NULL, /* 90 */
- TclProcCleanupProc, /* 91 */
- TclProcCompileProc, /* 92 */
- TclProcDeleteProc, /* 93 */
- TclProcInterpProc, /* 94 */
- TclpStat, /* 95 */
- TclRenameCommand, /* 96 */
- TclResetShadowedCmdRefs, /* 97 */
- TclServiceIdle, /* 98 */
- TclSetElementOfIndexedArray, /* 99 */
- TclSetIndexedScalar, /* 100 */
- NULL, /* 101 */
- TclSetupEnv, /* 102 */
- TclSockGetPort, /* 103 */
- TclSockMinimumBuffers, /* 104 */
- TclStat, /* 105 */
- TclStatDeleteProc, /* 106 */
- TclStatInsertProc, /* 107 */
- TclTeardownNamespace, /* 108 */
- TclUpdateReturnInfo, /* 109 */
- NULL, /* 110 */
- Tcl_AddInterpResolvers, /* 111 */
- Tcl_AppendExportList, /* 112 */
- Tcl_CreateNamespace, /* 113 */
- Tcl_DeleteNamespace, /* 114 */
- Tcl_Export, /* 115 */
- Tcl_FindCommand, /* 116 */
- Tcl_FindNamespace, /* 117 */
- Tcl_GetInterpResolvers, /* 118 */
- Tcl_GetNamespaceResolvers, /* 119 */
- Tcl_FindNamespaceVar, /* 120 */
- Tcl_ForgetImport, /* 121 */
- Tcl_GetCommandFromObj, /* 122 */
- Tcl_GetCommandFullName, /* 123 */
- Tcl_GetCurrentNamespace, /* 124 */
- Tcl_GetGlobalNamespace, /* 125 */
- Tcl_GetVariableFullName, /* 126 */
- Tcl_Import, /* 127 */
- Tcl_PopCallFrame, /* 128 */
- Tcl_PushCallFrame, /* 129 */
- Tcl_RemoveInterpResolvers, /* 130 */
- Tcl_SetNamespaceResolvers, /* 131 */
- TclpHasSockets, /* 132 */
- TclpGetDate, /* 133 */
- TclpStrftime, /* 134 */
- TclpCheckStackSpace, /* 135 */
- NULL, /* 136 */
- TclpChdir, /* 137 */
- TclGetEnv, /* 138 */
- TclpLoadFile, /* 139 */
- TclLooksLikeInt, /* 140 */
-};
-
-TclIntStubs *tclIntStubsPtr = &tclIntStubs;
-
-TclIntPlatStubs tclIntPlatStubs = {
- TCL_STUB_MAGIC,
- NULL,
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
- TclGetAndDetachPids, /* 0 */
- TclpCloseFile, /* 1 */
- TclpCreateCommandChannel, /* 2 */
- TclpCreatePipe, /* 3 */
- TclpCreateProcess, /* 4 */
- NULL, /* 5 */
- TclpMakeFile, /* 6 */
- TclpOpenFile, /* 7 */
- TclUnixWaitForFile, /* 8 */
- TclpCreateTempFile, /* 9 */
-#endif /* UNIX */
-#ifdef __WIN32__
- TclWinConvertError, /* 0 */
- TclWinConvertWSAError, /* 1 */
- TclWinGetServByName, /* 2 */
- TclWinGetSockOpt, /* 3 */
- TclWinGetTclInstance, /* 4 */
- NULL, /* 5 */
- TclWinNToHS, /* 6 */
- TclWinSetSockOpt, /* 7 */
- TclpGetPid, /* 8 */
- TclWinGetPlatformId, /* 9 */
- TclWinSynchSpawn, /* 10 */
- TclGetAndDetachPids, /* 11 */
- TclpCloseFile, /* 12 */
- TclpCreateCommandChannel, /* 13 */
- TclpCreatePipe, /* 14 */
- TclpCreateProcess, /* 15 */
- NULL, /* 16 */
- NULL, /* 17 */
- TclpMakeFile, /* 18 */
- TclpOpenFile, /* 19 */
- TclWinAddProcess, /* 20 */
- TclpAsyncMark, /* 21 */
- TclpCreateTempFile, /* 22 */
- TclpGetTZName, /* 23 */
- TclWinNoBackslash, /* 24 */
- Tcl_WinUtfToTChar, /* 25 */
- Tcl_WinTCharToUtf, /* 26 */
-#endif /* __WIN32__ */
-#ifdef MAC_TCL
- TclpSysAlloc, /* 0 */
- TclpSysFree, /* 1 */
- TclpSysRealloc, /* 2 */
- TclpExit, /* 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 */
- NULL, /* 24 */
- TclMacChmod, /* 25 */
-#endif /* MAC_TCL */
-};
-
-TclIntPlatStubs *tclIntPlatStubsPtr = &tclIntPlatStubs;
-
-TclPlatStubs tclPlatStubs = {
- TCL_STUB_MAGIC,
- NULL,
-#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 */
-};
-
-TclPlatStubs *tclPlatStubsPtr = &tclPlatStubs;
-
-static TclStubHooks tclStubHooks = {
- &tclPlatStubs,
- &tclIntStubs,
- &tclIntPlatStubs
-};
-
-
-/* !END!: Do not edit above this line. */
+/* + * tclStubInit.c -- + * + * This file contains the initializers for the Tcl stub vectors. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tclStubInit.c,v 1.3.2.6 1999/03/14 18:56:11 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. + */ + +/* !BEGIN!: Do not edit below this line. */ + +static TclStubHooks tclStubHooks; + +TclStubs tclStubs = { + TCL_STUB_MAGIC, + &tclStubHooks, + Tcl_PkgProvideEx, /* 0 */ + Tcl_PkgRequireEx, /* 1 */ + Tcl_Panic, /* 2 */ + Tcl_Alloc, /* 3 */ + Tcl_Free, /* 4 */ + Tcl_Realloc, /* 5 */ + Tcl_DbCkalloc, /* 6 */ + Tcl_DbCkfree, /* 7 */ + Tcl_DbCkrealloc, /* 8 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + Tcl_CreateFileHandler, /* 9 */ +#endif /* UNIX */ +#ifdef __WIN32__ + NULL, /* 9 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + NULL, /* 9 */ +#endif /* MAC_TCL */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + Tcl_DeleteFileHandler, /* 10 */ +#endif /* UNIX */ +#ifdef __WIN32__ + NULL, /* 10 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + NULL, /* 10 */ +#endif /* MAC_TCL */ + Tcl_SetTimer, /* 11 */ + Tcl_Sleep, /* 12 */ + Tcl_WaitForEvent, /* 13 */ + Tcl_AppendAllObjTypes, /* 14 */ + Tcl_AppendStringsToObj, /* 15 */ + Tcl_AppendToObj, /* 16 */ + Tcl_ConcatObj, /* 17 */ + Tcl_ConvertToType, /* 18 */ + Tcl_DbDecrRefCount, /* 19 */ + Tcl_DbIncrRefCount, /* 20 */ + Tcl_DbIsShared, /* 21 */ + Tcl_DbNewBooleanObj, /* 22 */ + Tcl_DbNewByteArrayObj, /* 23 */ + Tcl_DbNewDoubleObj, /* 24 */ + Tcl_DbNewListObj, /* 25 */ + Tcl_DbNewLongObj, /* 26 */ + Tcl_DbNewObj, /* 27 */ + Tcl_DbNewStringObj, /* 28 */ + Tcl_DuplicateObj, /* 29 */ + TclFreeObj, /* 30 */ + Tcl_GetBoolean, /* 31 */ + Tcl_GetBooleanFromObj, /* 32 */ + Tcl_GetByteArrayFromObj, /* 33 */ + Tcl_GetDouble, /* 34 */ + Tcl_GetDoubleFromObj, /* 35 */ + Tcl_GetIndexFromObj, /* 36 */ + Tcl_GetInt, /* 37 */ + Tcl_GetIntFromObj, /* 38 */ + Tcl_GetLongFromObj, /* 39 */ + Tcl_GetObjType, /* 40 */ + Tcl_GetStringFromObj, /* 41 */ + Tcl_InvalidateStringRep, /* 42 */ + Tcl_ListObjAppendList, /* 43 */ + Tcl_ListObjAppendElement, /* 44 */ + Tcl_ListObjGetElements, /* 45 */ + Tcl_ListObjIndex, /* 46 */ + Tcl_ListObjLength, /* 47 */ + Tcl_ListObjReplace, /* 48 */ + Tcl_NewBooleanObj, /* 49 */ + Tcl_NewByteArrayObj, /* 50 */ + Tcl_NewDoubleObj, /* 51 */ + Tcl_NewIntObj, /* 52 */ + Tcl_NewListObj, /* 53 */ + Tcl_NewLongObj, /* 54 */ + Tcl_NewObj, /* 55 */ + Tcl_NewStringObj, /* 56 */ + Tcl_SetBooleanObj, /* 57 */ + Tcl_SetByteArrayLength, /* 58 */ + Tcl_SetByteArrayObj, /* 59 */ + Tcl_SetDoubleObj, /* 60 */ + Tcl_SetIntObj, /* 61 */ + Tcl_SetListObj, /* 62 */ + Tcl_SetLongObj, /* 63 */ + Tcl_SetObjLength, /* 64 */ + Tcl_SetStringObj, /* 65 */ + Tcl_AddErrorInfo, /* 66 */ + Tcl_AddObjErrorInfo, /* 67 */ + Tcl_AllowExceptions, /* 68 */ + Tcl_AppendElement, /* 69 */ + Tcl_AppendResult, /* 70 */ + Tcl_AsyncCreate, /* 71 */ + Tcl_AsyncDelete, /* 72 */ + Tcl_AsyncInvoke, /* 73 */ + Tcl_AsyncMark, /* 74 */ + Tcl_AsyncReady, /* 75 */ + Tcl_BackgroundError, /* 76 */ + Tcl_Backslash, /* 77 */ + Tcl_BadChannelOption, /* 78 */ + Tcl_CallWhenDeleted, /* 79 */ + Tcl_CancelIdleCall, /* 80 */ + Tcl_Close, /* 81 */ + Tcl_CommandComplete, /* 82 */ + Tcl_Concat, /* 83 */ + Tcl_ConvertElement, /* 84 */ + Tcl_ConvertCountedElement, /* 85 */ + Tcl_CreateAlias, /* 86 */ + Tcl_CreateAliasObj, /* 87 */ + Tcl_CreateChannel, /* 88 */ + Tcl_CreateChannelHandler, /* 89 */ + Tcl_CreateCloseHandler, /* 90 */ + Tcl_CreateCommand, /* 91 */ + Tcl_CreateEventSource, /* 92 */ + Tcl_CreateExitHandler, /* 93 */ + Tcl_CreateInterp, /* 94 */ + Tcl_CreateMathFunc, /* 95 */ + Tcl_CreateObjCommand, /* 96 */ + Tcl_CreateSlave, /* 97 */ + Tcl_CreateTimerHandler, /* 98 */ + Tcl_CreateTrace, /* 99 */ + Tcl_DeleteAssocData, /* 100 */ + Tcl_DeleteChannelHandler, /* 101 */ + Tcl_DeleteCloseHandler, /* 102 */ + Tcl_DeleteCommand, /* 103 */ + Tcl_DeleteCommandFromToken, /* 104 */ + Tcl_DeleteEvents, /* 105 */ + Tcl_DeleteEventSource, /* 106 */ + Tcl_DeleteExitHandler, /* 107 */ + Tcl_DeleteHashEntry, /* 108 */ + Tcl_DeleteHashTable, /* 109 */ + Tcl_DeleteInterp, /* 110 */ + Tcl_DetachPids, /* 111 */ + Tcl_DeleteTimerHandler, /* 112 */ + Tcl_DeleteTrace, /* 113 */ + Tcl_DontCallWhenDeleted, /* 114 */ + Tcl_DoOneEvent, /* 115 */ + Tcl_DoWhenIdle, /* 116 */ + Tcl_DStringAppend, /* 117 */ + Tcl_DStringAppendElement, /* 118 */ + Tcl_DStringEndSublist, /* 119 */ + Tcl_DStringFree, /* 120 */ + Tcl_DStringGetResult, /* 121 */ + Tcl_DStringInit, /* 122 */ + Tcl_DStringResult, /* 123 */ + Tcl_DStringSetLength, /* 124 */ + Tcl_DStringStartSublist, /* 125 */ + Tcl_Eof, /* 126 */ + Tcl_ErrnoId, /* 127 */ + Tcl_ErrnoMsg, /* 128 */ + Tcl_Eval, /* 129 */ + Tcl_EvalFile, /* 130 */ + Tcl_EvalObj, /* 131 */ + Tcl_EventuallyFree, /* 132 */ + Tcl_Exit, /* 133 */ + Tcl_ExposeCommand, /* 134 */ + Tcl_ExprBoolean, /* 135 */ + Tcl_ExprBooleanObj, /* 136 */ + Tcl_ExprDouble, /* 137 */ + Tcl_ExprDoubleObj, /* 138 */ + Tcl_ExprLong, /* 139 */ + Tcl_ExprLongObj, /* 140 */ + Tcl_ExprObj, /* 141 */ + Tcl_ExprString, /* 142 */ + Tcl_Finalize, /* 143 */ + Tcl_FindExecutable, /* 144 */ + Tcl_FirstHashEntry, /* 145 */ + Tcl_Flush, /* 146 */ + Tcl_FreeResult, /* 147 */ + Tcl_GetAlias, /* 148 */ + Tcl_GetAliasObj, /* 149 */ + Tcl_GetAssocData, /* 150 */ + Tcl_GetChannel, /* 151 */ + Tcl_GetChannelBufferSize, /* 152 */ + Tcl_GetChannelHandle, /* 153 */ + Tcl_GetChannelInstanceData, /* 154 */ + Tcl_GetChannelMode, /* 155 */ + Tcl_GetChannelName, /* 156 */ + Tcl_GetChannelOption, /* 157 */ + Tcl_GetChannelType, /* 158 */ + Tcl_GetCommandInfo, /* 159 */ + Tcl_GetCommandName, /* 160 */ + Tcl_GetErrno, /* 161 */ + Tcl_GetHostName, /* 162 */ + Tcl_GetInterpPath, /* 163 */ + Tcl_GetMaster, /* 164 */ + Tcl_GetNameOfExecutable, /* 165 */ + Tcl_GetObjResult, /* 166 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + Tcl_GetOpenFile, /* 167 */ +#endif /* UNIX */ +#ifdef __WIN32__ + NULL, /* 167 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + NULL, /* 167 */ +#endif /* MAC_TCL */ + Tcl_GetPathType, /* 168 */ + Tcl_Gets, /* 169 */ + Tcl_GetsObj, /* 170 */ + Tcl_GetServiceMode, /* 171 */ + Tcl_GetSlave, /* 172 */ + Tcl_GetStdChannel, /* 173 */ + Tcl_GetStringResult, /* 174 */ + Tcl_GetVar, /* 175 */ + Tcl_GetVar2, /* 176 */ + Tcl_GlobalEval, /* 177 */ + Tcl_GlobalEvalObj, /* 178 */ + Tcl_HideCommand, /* 179 */ + Tcl_Init, /* 180 */ + Tcl_InitHashTable, /* 181 */ + Tcl_InputBlocked, /* 182 */ + Tcl_InputBuffered, /* 183 */ + Tcl_InterpDeleted, /* 184 */ + Tcl_IsSafe, /* 185 */ + Tcl_JoinPath, /* 186 */ + Tcl_LinkVar, /* 187 */ + NULL, /* 188 */ + Tcl_MakeFileChannel, /* 189 */ + Tcl_MakeSafe, /* 190 */ + Tcl_MakeTcpClientChannel, /* 191 */ + Tcl_Merge, /* 192 */ + Tcl_NextHashEntry, /* 193 */ + Tcl_NotifyChannel, /* 194 */ + Tcl_ObjGetVar2, /* 195 */ + Tcl_ObjSetVar2, /* 196 */ + Tcl_OpenCommandChannel, /* 197 */ + Tcl_OpenFileChannel, /* 198 */ + Tcl_OpenTcpClient, /* 199 */ + Tcl_OpenTcpServer, /* 200 */ + Tcl_Preserve, /* 201 */ + Tcl_PrintDouble, /* 202 */ + Tcl_PutEnv, /* 203 */ + Tcl_PosixError, /* 204 */ + Tcl_QueueEvent, /* 205 */ + Tcl_Read, /* 206 */ + Tcl_ReapDetachedProcs, /* 207 */ + Tcl_RecordAndEval, /* 208 */ + Tcl_RecordAndEvalObj, /* 209 */ + Tcl_RegisterChannel, /* 210 */ + Tcl_RegisterObjType, /* 211 */ + Tcl_RegExpCompile, /* 212 */ + Tcl_RegExpExec, /* 213 */ + Tcl_RegExpMatch, /* 214 */ + Tcl_RegExpRange, /* 215 */ + Tcl_Release, /* 216 */ + Tcl_ResetResult, /* 217 */ + Tcl_ScanElement, /* 218 */ + Tcl_ScanCountedElement, /* 219 */ + Tcl_Seek, /* 220 */ + Tcl_ServiceAll, /* 221 */ + Tcl_ServiceEvent, /* 222 */ + Tcl_SetAssocData, /* 223 */ + Tcl_SetChannelBufferSize, /* 224 */ + Tcl_SetChannelOption, /* 225 */ + Tcl_SetCommandInfo, /* 226 */ + Tcl_SetErrno, /* 227 */ + Tcl_SetErrorCode, /* 228 */ + Tcl_SetMaxBlockTime, /* 229 */ + Tcl_SetPanicProc, /* 230 */ + Tcl_SetRecursionLimit, /* 231 */ + Tcl_SetResult, /* 232 */ + Tcl_SetServiceMode, /* 233 */ + Tcl_SetObjErrorCode, /* 234 */ + Tcl_SetObjResult, /* 235 */ + Tcl_SetStdChannel, /* 236 */ + Tcl_SetVar, /* 237 */ + Tcl_SetVar2, /* 238 */ + Tcl_SignalId, /* 239 */ + Tcl_SignalMsg, /* 240 */ + Tcl_SourceRCFile, /* 241 */ + Tcl_SplitList, /* 242 */ + Tcl_SplitPath, /* 243 */ + Tcl_StaticPackage, /* 244 */ + Tcl_StringMatch, /* 245 */ + Tcl_Tell, /* 246 */ + Tcl_TraceVar, /* 247 */ + Tcl_TraceVar2, /* 248 */ + Tcl_TranslateFileName, /* 249 */ + Tcl_Ungets, /* 250 */ + Tcl_UnlinkVar, /* 251 */ + Tcl_UnregisterChannel, /* 252 */ + Tcl_UnsetVar, /* 253 */ + Tcl_UnsetVar2, /* 254 */ + Tcl_UntraceVar, /* 255 */ + Tcl_UntraceVar2, /* 256 */ + Tcl_UpdateLinkedVar, /* 257 */ + Tcl_UpVar, /* 258 */ + Tcl_UpVar2, /* 259 */ + Tcl_VarEval, /* 260 */ + Tcl_VarTraceInfo, /* 261 */ + Tcl_VarTraceInfo2, /* 262 */ + Tcl_Write, /* 263 */ + Tcl_WrongNumArgs, /* 264 */ + Tcl_DumpActiveMemory, /* 265 */ + Tcl_ValidateAllMemory, /* 266 */ + Tcl_AppendResultVA, /* 267 */ + Tcl_AppendStringsToObjVA, /* 268 */ + Tcl_HashStats, /* 269 */ + Tcl_ParseVar, /* 270 */ + Tcl_PkgPresent, /* 271 */ + Tcl_PkgPresentEx, /* 272 */ + Tcl_PkgProvide, /* 273 */ + Tcl_PkgRequire, /* 274 */ + Tcl_SetErrorCodeVA, /* 275 */ + Tcl_VarEvalVA, /* 276 */ + Tcl_WaitPid, /* 277 */ + Tcl_PanicVA, /* 278 */ + Tcl_GetVersion, /* 279 */ + NULL, /* 280 */ + NULL, /* 281 */ + NULL, /* 282 */ + NULL, /* 283 */ + NULL, /* 284 */ + NULL, /* 285 */ + Tcl_AppendObjToObj, /* 286 */ + Tcl_CreateEncoding, /* 287 */ + Tcl_CreateThreadExitHandler, /* 288 */ + Tcl_DeleteThreadExitHandler, /* 289 */ + Tcl_DiscardResult, /* 290 */ + Tcl_EvalEx, /* 291 */ + Tcl_EvalObjv, /* 292 */ + Tcl_EvalObjEx, /* 293 */ + Tcl_ExitThread, /* 294 */ + Tcl_ExternalToUtf, /* 295 */ + Tcl_ExternalToUtfDString, /* 296 */ + Tcl_FinalizeThread, /* 297 */ + Tcl_FinalizeNotifier, /* 298 */ + Tcl_FreeEncoding, /* 299 */ + Tcl_GetCurrentThread, /* 300 */ + Tcl_GetEncoding, /* 301 */ + Tcl_GetEncodingName, /* 302 */ + Tcl_GetEncodingNames, /* 303 */ + Tcl_GetIndexFromObjStruct, /* 304 */ + Tcl_GetThreadData, /* 305 */ + Tcl_GetVar2Ex, /* 306 */ + Tcl_InitNotifier, /* 307 */ + Tcl_MutexLock, /* 308 */ + Tcl_MutexUnlock, /* 309 */ + Tcl_ConditionNotify, /* 310 */ + Tcl_ConditionWait, /* 311 */ + Tcl_NumUtfChars, /* 312 */ + Tcl_ReadChars, /* 313 */ + Tcl_RestoreResult, /* 314 */ + Tcl_SaveResult, /* 315 */ + Tcl_SetSystemEncoding, /* 316 */ + Tcl_SetVar2Ex, /* 317 */ + Tcl_ThreadAlert, /* 318 */ + Tcl_ThreadQueueEvent, /* 319 */ + Tcl_UniCharAtIndex, /* 320 */ + Tcl_UniCharToLower, /* 321 */ + Tcl_UniCharToTitle, /* 322 */ + Tcl_UniCharToUpper, /* 323 */ + Tcl_UniCharToUtf, /* 324 */ + Tcl_UtfAtIndex, /* 325 */ + Tcl_UtfCharComplete, /* 326 */ + Tcl_UtfBackslash, /* 327 */ + Tcl_UtfFindFirst, /* 328 */ + Tcl_UtfFindLast, /* 329 */ + Tcl_UtfNext, /* 330 */ + Tcl_UtfPrev, /* 331 */ + Tcl_UtfToExternal, /* 332 */ + Tcl_UtfToExternalDString, /* 333 */ + Tcl_UtfToLower, /* 334 */ + Tcl_UtfToTitle, /* 335 */ + Tcl_UtfToUniChar, /* 336 */ + Tcl_UtfToUpper, /* 337 */ + Tcl_WriteChars, /* 338 */ + Tcl_WriteObj, /* 339 */ + Tcl_GetString, /* 340 */ + Tcl_GetDefaultEncodingDir, /* 341 */ + Tcl_SetDefaultEncodingDir, /* 342 */ +}; + +TclStubs *tclStubsPtr = &tclStubs; + +TclIntStubs tclIntStubs = { + TCL_STUB_MAGIC, + NULL, + TclAccess, /* 0 */ + TclAccessDeleteProc, /* 1 */ + TclAccessInsertProc, /* 2 */ + TclAllocateFreeObjects, /* 3 */ + NULL, /* 4 */ + TclCleanupChildren, /* 5 */ + TclCleanupCommand, /* 6 */ + TclCopyAndCollapse, /* 7 */ + TclCopyChannel, /* 8 */ + TclCreatePipeline, /* 9 */ + TclCreateProc, /* 10 */ + TclDeleteCompiledLocalVars, /* 11 */ + TclDeleteVars, /* 12 */ + TclDoGlob, /* 13 */ + TclDumpMemoryInfo, /* 14 */ + NULL, /* 15 */ + TclExprFloatError, /* 16 */ + TclFileAttrsCmd, /* 17 */ + TclFileCopyCmd, /* 18 */ + TclFileDeleteCmd, /* 19 */ + TclFileMakeDirsCmd, /* 20 */ + TclFileRenameCmd, /* 21 */ + TclFindElement, /* 22 */ + TclFindProc, /* 23 */ + TclFormatInt, /* 24 */ + TclFreePackageInfo, /* 25 */ + NULL, /* 26 */ + TclGetDate, /* 27 */ + TclpGetDefaultStdChannel, /* 28 */ + TclGetElementOfIndexedArray, /* 29 */ + NULL, /* 30 */ + TclGetExtension, /* 31 */ + TclGetFrame, /* 32 */ + TclGetInterpProc, /* 33 */ + TclGetIntForIndex, /* 34 */ + TclGetIndexedScalar, /* 35 */ + TclGetLong, /* 36 */ + TclGetLoadedPackages, /* 37 */ + TclGetNamespaceForQualName, /* 38 */ + TclGetObjInterpProc, /* 39 */ + TclGetOpenMode, /* 40 */ + TclGetOriginalCommand, /* 41 */ + TclpGetUserHome, /* 42 */ + TclGlobalInvoke, /* 43 */ + TclGuessPackageName, /* 44 */ + TclHideUnsafeCommands, /* 45 */ + TclInExit, /* 46 */ + TclIncrElementOfIndexedArray, /* 47 */ + TclIncrIndexedScalar, /* 48 */ + TclIncrVar2, /* 49 */ + TclInitCompiledLocals, /* 50 */ + TclInterpInit, /* 51 */ + TclInvoke, /* 52 */ + TclInvokeObjectCommand, /* 53 */ + TclInvokeStringCommand, /* 54 */ + TclIsProc, /* 55 */ + NULL, /* 56 */ + NULL, /* 57 */ + TclLookupVar, /* 58 */ + TclpMatchFiles, /* 59 */ + TclNeedSpace, /* 60 */ + TclNewProcBodyObj, /* 61 */ + TclObjCommandComplete, /* 62 */ + TclObjInterpProc, /* 63 */ + TclObjInvoke, /* 64 */ + TclObjInvokeGlobal, /* 65 */ + TclOpenFileChannelDeleteProc, /* 66 */ + TclOpenFileChannelInsertProc, /* 67 */ + TclpAccess, /* 68 */ + TclpAlloc, /* 69 */ + TclpCopyFile, /* 70 */ + TclpCopyDirectory, /* 71 */ + TclpCreateDirectory, /* 72 */ + TclpDeleteFile, /* 73 */ + TclpFree, /* 74 */ + TclpGetClicks, /* 75 */ + TclpGetSeconds, /* 76 */ + TclpGetTime, /* 77 */ + TclpGetTimeZone, /* 78 */ + TclpListVolumes, /* 79 */ + TclpOpenFileChannel, /* 80 */ + TclpRealloc, /* 81 */ + TclpRemoveDirectory, /* 82 */ + TclpRenameFile, /* 83 */ + NULL, /* 84 */ + NULL, /* 85 */ + NULL, /* 86 */ + NULL, /* 87 */ + TclPrecTraceProc, /* 88 */ + TclPreventAliasLoop, /* 89 */ + NULL, /* 90 */ + TclProcCleanupProc, /* 91 */ + TclProcCompileProc, /* 92 */ + TclProcDeleteProc, /* 93 */ + TclProcInterpProc, /* 94 */ + TclpStat, /* 95 */ + TclRenameCommand, /* 96 */ + TclResetShadowedCmdRefs, /* 97 */ + TclServiceIdle, /* 98 */ + TclSetElementOfIndexedArray, /* 99 */ + TclSetIndexedScalar, /* 100 */ + NULL, /* 101 */ + TclSetupEnv, /* 102 */ + TclSockGetPort, /* 103 */ + TclSockMinimumBuffers, /* 104 */ + TclStat, /* 105 */ + TclStatDeleteProc, /* 106 */ + TclStatInsertProc, /* 107 */ + TclTeardownNamespace, /* 108 */ + TclUpdateReturnInfo, /* 109 */ + NULL, /* 110 */ + Tcl_AddInterpResolvers, /* 111 */ + Tcl_AppendExportList, /* 112 */ + Tcl_CreateNamespace, /* 113 */ + Tcl_DeleteNamespace, /* 114 */ + Tcl_Export, /* 115 */ + Tcl_FindCommand, /* 116 */ + Tcl_FindNamespace, /* 117 */ + Tcl_GetInterpResolvers, /* 118 */ + Tcl_GetNamespaceResolvers, /* 119 */ + Tcl_FindNamespaceVar, /* 120 */ + Tcl_ForgetImport, /* 121 */ + Tcl_GetCommandFromObj, /* 122 */ + Tcl_GetCommandFullName, /* 123 */ + Tcl_GetCurrentNamespace, /* 124 */ + Tcl_GetGlobalNamespace, /* 125 */ + Tcl_GetVariableFullName, /* 126 */ + Tcl_Import, /* 127 */ + Tcl_PopCallFrame, /* 128 */ + Tcl_PushCallFrame, /* 129 */ + Tcl_RemoveInterpResolvers, /* 130 */ + Tcl_SetNamespaceResolvers, /* 131 */ + TclpHasSockets, /* 132 */ + TclpGetDate, /* 133 */ + TclpStrftime, /* 134 */ + TclpCheckStackSpace, /* 135 */ + NULL, /* 136 */ + TclpChdir, /* 137 */ + TclGetEnv, /* 138 */ + TclpLoadFile, /* 139 */ + TclLooksLikeInt, /* 140 */ +}; + +TclIntStubs *tclIntStubsPtr = &tclIntStubs; + +TclIntPlatStubs tclIntPlatStubs = { + TCL_STUB_MAGIC, + NULL, +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + TclGetAndDetachPids, /* 0 */ + TclpCloseFile, /* 1 */ + TclpCreateCommandChannel, /* 2 */ + TclpCreatePipe, /* 3 */ + TclpCreateProcess, /* 4 */ + NULL, /* 5 */ + TclpMakeFile, /* 6 */ + TclpOpenFile, /* 7 */ + TclUnixWaitForFile, /* 8 */ + TclpCreateTempFile, /* 9 */ +#endif /* UNIX */ +#ifdef __WIN32__ + TclWinConvertError, /* 0 */ + TclWinConvertWSAError, /* 1 */ + TclWinGetServByName, /* 2 */ + TclWinGetSockOpt, /* 3 */ + TclWinGetTclInstance, /* 4 */ + NULL, /* 5 */ + TclWinNToHS, /* 6 */ + TclWinSetSockOpt, /* 7 */ + TclpGetPid, /* 8 */ + TclWinGetPlatformId, /* 9 */ + TclWinSynchSpawn, /* 10 */ + TclGetAndDetachPids, /* 11 */ + TclpCloseFile, /* 12 */ + TclpCreateCommandChannel, /* 13 */ + TclpCreatePipe, /* 14 */ + TclpCreateProcess, /* 15 */ + NULL, /* 16 */ + NULL, /* 17 */ + TclpMakeFile, /* 18 */ + TclpOpenFile, /* 19 */ + TclWinAddProcess, /* 20 */ + TclpAsyncMark, /* 21 */ + TclpCreateTempFile, /* 22 */ + TclpGetTZName, /* 23 */ + TclWinNoBackslash, /* 24 */ + Tcl_WinUtfToTChar, /* 25 */ + Tcl_WinTCharToUtf, /* 26 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL + TclpSysAlloc, /* 0 */ + TclpSysFree, /* 1 */ + TclpSysRealloc, /* 2 */ + TclpExit, /* 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 */ + NULL, /* 24 */ + TclMacChmod, /* 25 */ +#endif /* MAC_TCL */ +}; + +TclIntPlatStubs *tclIntPlatStubsPtr = &tclIntPlatStubs; + +TclPlatStubs tclPlatStubs = { + TCL_STUB_MAGIC, + NULL, +#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 */ +}; + +TclPlatStubs *tclPlatStubsPtr = &tclPlatStubs; + +static TclStubHooks tclStubHooks = { + &tclPlatStubs, + &tclIntStubs, + &tclIntPlatStubs +}; + + +/* !END!: Do not edit above this line. */ diff --git a/generic/tclStubs.c b/generic/tclStubs.c index b72220f..5df5073 100644 --- a/generic/tclStubs.c +++ b/generic/tclStubs.c @@ -1,3251 +1,3251 @@ -/*
- * tclStubs.c --
- *
- * This file contains the wrapper functions for the platform independent
- * public Tcl API.
- *
- * Copyright (c) 1998-1999 by Scriptics Corporation.
- *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
- *
- * RCS: @(#) $Id: tclStubs.c,v 1.3.2.5 1999/03/12 23:29:18 surles Exp $
- */
-
-#include "tcl.h"
-
-/*
- * Undefine function macros that will interfere with the defintions below.
- */
-
-#undef Tcl_Alloc
-#undef Tcl_Free
-#undef Tcl_Realloc
-#undef Tcl_NewBooleanObj
-#undef Tcl_NewByteArrayObj
-#undef Tcl_NewDoubleObj
-#undef Tcl_NewIntObj
-#undef Tcl_NewListObj
-#undef Tcl_NewLongObj
-#undef Tcl_NewObj
-#undef Tcl_NewStringObj
-#undef Tcl_InitMemory
-#undef Tcl_DumpActiveMemory
-#undef Tcl_ValidateAllMemory
-#undef Tcl_EvalObj
-#undef Tcl_GlobalEvalObj
-#undef Tcl_MutexLock
-#undef Tcl_MutexUnlock
-#undef Tcl_ConditionNotify
-#undef Tcl_ConditionWait
-
-/*
- * WARNING: This file is automatically generated by the tools/genStubs.tcl
- * script. Any modifications to the function declarations below should be made
- * in the generic/tcl.decls script.
- */
-
-/* !BEGIN!: Do not edit below this line. */
-
-/*
- * Exported stub functions:
- */
-
-/* Slot 0 */
-int
-Tcl_PkgProvideEx(interp, name, version, clientData)
- Tcl_Interp * interp;
- char * name;
- char * version;
- ClientData clientData;
-{
- return (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData);
-}
-
-/* Slot 1 */
-char *
-Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr)
- Tcl_Interp * interp;
- char * name;
- char * version;
- int exact;
- ClientData * clientDataPtr;
-{
- return (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr);
-}
-
-/* Slot 2 */
-void
-panic TCL_VARARGS_DEF(char *,format)
-{
- char * var;
- va_list argList;
-
- var = (char *) TCL_VARARGS_START(char *,format,argList);
-
- (tclStubsPtr->panicVA)(var, argList);
- va_end(argList);
-}
-
-/* Slot 3 */
-char *
-Tcl_Alloc(size)
- unsigned int size;
-{
- return (tclStubsPtr->tcl_Alloc)(size);
-}
-
-/* Slot 4 */
-void
-Tcl_Free(ptr)
- char * ptr;
-{
- (tclStubsPtr->tcl_Free)(ptr);
-}
-
-/* Slot 5 */
-char *
-Tcl_Realloc(ptr, size)
- char * ptr;
- unsigned int size;
-{
- return (tclStubsPtr->tcl_Realloc)(ptr, size);
-}
-
-/* Slot 6 */
-char *
-Tcl_DbCkalloc(size, file, line)
- unsigned int size;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbCkalloc)(size, file, line);
-}
-
-/* Slot 7 */
-int
-Tcl_DbCkfree(ptr, file, line)
- char * ptr;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbCkfree)(ptr, file, line);
-}
-
-/* Slot 8 */
-char *
-Tcl_DbCkrealloc(ptr, size, file, line)
- char * ptr;
- unsigned int size;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line);
-}
-
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
-/* Slot 9 */
-void
-Tcl_CreateFileHandler(fd, mask, proc, clientData)
- int fd;
- int mask;
- Tcl_FileProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData);
-}
-
-#endif /* UNIX */
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
-/* Slot 10 */
-void
-Tcl_DeleteFileHandler(fd)
- int fd;
-{
- (tclStubsPtr->tcl_DeleteFileHandler)(fd);
-}
-
-#endif /* UNIX */
-/* Slot 11 */
-void
-Tcl_SetTimer(timePtr)
- Tcl_Time * timePtr;
-{
- (tclStubsPtr->tcl_SetTimer)(timePtr);
-}
-
-/* Slot 12 */
-void
-Tcl_Sleep(ms)
- int ms;
-{
- (tclStubsPtr->tcl_Sleep)(ms);
-}
-
-/* Slot 13 */
-int
-Tcl_WaitForEvent(timePtr)
- Tcl_Time * timePtr;
-{
- return (tclStubsPtr->tcl_WaitForEvent)(timePtr);
-}
-
-/* Slot 14 */
-int
-Tcl_AppendAllObjTypes(interp, objPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr);
-}
-
-/* Slot 15 */
-void
-Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,objPtr)
-{
- Tcl_Obj * var;
- va_list argList;
-
- var = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList);
-
- (tclStubsPtr->tcl_AppendStringsToObjVA)(var, argList);
- va_end(argList);
-}
-
-/* Slot 16 */
-void
-Tcl_AppendToObj(objPtr, bytes, length)
- Tcl_Obj * objPtr;
- char * bytes;
- int length;
-{
- (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length);
-}
-
-/* Slot 17 */
-Tcl_Obj *
-Tcl_ConcatObj(objc, objv)
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclStubsPtr->tcl_ConcatObj)(objc, objv);
-}
-
-/* Slot 18 */
-int
-Tcl_ConvertToType(interp, objPtr, typePtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- Tcl_ObjType * typePtr;
-{
- return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr);
-}
-
-/* Slot 19 */
-void
-Tcl_DbDecrRefCount(objPtr, file, line)
- Tcl_Obj * objPtr;
- char * file;
- int line;
-{
- (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line);
-}
-
-/* Slot 20 */
-void
-Tcl_DbIncrRefCount(objPtr, file, line)
- Tcl_Obj * objPtr;
- char * file;
- int line;
-{
- (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line);
-}
-
-/* Slot 21 */
-int
-Tcl_DbIsShared(objPtr, file, line)
- Tcl_Obj * objPtr;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line);
-}
-
-/* Slot 22 */
-Tcl_Obj *
-Tcl_DbNewBooleanObj(boolValue, file, line)
- int boolValue;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line);
-}
-
-/* Slot 23 */
-Tcl_Obj *
-Tcl_DbNewByteArrayObj(bytes, length, file, line)
- unsigned char * bytes;
- int length;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line);
-}
-
-/* Slot 24 */
-Tcl_Obj *
-Tcl_DbNewDoubleObj(doubleValue, file, line)
- double doubleValue;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line);
-}
-
-/* Slot 25 */
-Tcl_Obj *
-Tcl_DbNewListObj(objc, objv, file, line)
- int objc;
- Tcl_Obj *CONST objv[];
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line);
-}
-
-/* Slot 26 */
-Tcl_Obj *
-Tcl_DbNewLongObj(longValue, file, line)
- long longValue;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line);
-}
-
-/* Slot 27 */
-Tcl_Obj *
-Tcl_DbNewObj(file, line)
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewObj)(file, line);
-}
-
-/* Slot 28 */
-Tcl_Obj *
-Tcl_DbNewStringObj(bytes, length, file, line)
- CONST char * bytes;
- int length;
- char * file;
- int line;
-{
- return (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line);
-}
-
-/* Slot 29 */
-Tcl_Obj *
-Tcl_DuplicateObj(objPtr)
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_DuplicateObj)(objPtr);
-}
-
-/* Slot 30 */
-void
-TclFreeObj(objPtr)
- Tcl_Obj * objPtr;
-{
- (tclStubsPtr->tclFreeObj)(objPtr);
-}
-
-/* Slot 31 */
-int
-Tcl_GetBoolean(interp, string, boolPtr)
- Tcl_Interp * interp;
- char * string;
- int * boolPtr;
-{
- return (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr);
-}
-
-/* Slot 32 */
-int
-Tcl_GetBooleanFromObj(interp, objPtr, boolPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- int * boolPtr;
-{
- return (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr);
-}
-
-/* Slot 33 */
-unsigned char *
-Tcl_GetByteArrayFromObj(objPtr, lengthPtr)
- Tcl_Obj * objPtr;
- int * lengthPtr;
-{
- return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr);
-}
-
-/* Slot 34 */
-int
-Tcl_GetDouble(interp, string, doublePtr)
- Tcl_Interp * interp;
- char * string;
- double * doublePtr;
-{
- return (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr);
-}
-
-/* Slot 35 */
-int
-Tcl_GetDoubleFromObj(interp, objPtr, doublePtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- double * doublePtr;
-{
- return (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr);
-}
-
-/* Slot 36 */
-int
-Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- char ** tablePtr;
- char * msg;
- int flags;
- int * indexPtr;
-{
- return (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr);
-}
-
-/* Slot 37 */
-int
-Tcl_GetInt(interp, string, intPtr)
- Tcl_Interp * interp;
- char * string;
- int * intPtr;
-{
- return (tclStubsPtr->tcl_GetInt)(interp, string, intPtr);
-}
-
-/* Slot 38 */
-int
-Tcl_GetIntFromObj(interp, objPtr, intPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- int * intPtr;
-{
- return (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr);
-}
-
-/* Slot 39 */
-int
-Tcl_GetLongFromObj(interp, objPtr, longPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- long * longPtr;
-{
- return (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr);
-}
-
-/* Slot 40 */
-Tcl_ObjType *
-Tcl_GetObjType(typeName)
- char * typeName;
-{
- return (tclStubsPtr->tcl_GetObjType)(typeName);
-}
-
-/* Slot 41 */
-char *
-Tcl_GetStringFromObj(objPtr, lengthPtr)
- Tcl_Obj * objPtr;
- int * lengthPtr;
-{
- return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr);
-}
-
-/* Slot 42 */
-void
-Tcl_InvalidateStringRep(objPtr)
- Tcl_Obj * objPtr;
-{
- (tclStubsPtr->tcl_InvalidateStringRep)(objPtr);
-}
-
-/* Slot 43 */
-int
-Tcl_ListObjAppendList(interp, listPtr, elemListPtr)
- Tcl_Interp * interp;
- Tcl_Obj * listPtr;
- Tcl_Obj * elemListPtr;
-{
- return (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr);
-}
-
-/* Slot 44 */
-int
-Tcl_ListObjAppendElement(interp, listPtr, objPtr)
- Tcl_Interp * interp;
- Tcl_Obj * listPtr;
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr);
-}
-
-/* Slot 45 */
-int
-Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr)
- Tcl_Interp * interp;
- Tcl_Obj * listPtr;
- int * objcPtr;
- Tcl_Obj *** objvPtr;
-{
- return (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr);
-}
-
-/* Slot 46 */
-int
-Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr)
- Tcl_Interp * interp;
- Tcl_Obj * listPtr;
- int index;
- Tcl_Obj ** objPtrPtr;
-{
- return (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr);
-}
-
-/* Slot 47 */
-int
-Tcl_ListObjLength(interp, listPtr, intPtr)
- Tcl_Interp * interp;
- Tcl_Obj * listPtr;
- int * intPtr;
-{
- return (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr);
-}
-
-/* Slot 48 */
-int
-Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv)
- Tcl_Interp * interp;
- Tcl_Obj * listPtr;
- int first;
- int count;
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv);
-}
-
-/* Slot 49 */
-Tcl_Obj *
-Tcl_NewBooleanObj(boolValue)
- int boolValue;
-{
- return (tclStubsPtr->tcl_NewBooleanObj)(boolValue);
-}
-
-/* Slot 50 */
-Tcl_Obj *
-Tcl_NewByteArrayObj(bytes, length)
- unsigned char * bytes;
- int length;
-{
- return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length);
-}
-
-/* Slot 51 */
-Tcl_Obj *
-Tcl_NewDoubleObj(doubleValue)
- double doubleValue;
-{
- return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue);
-}
-
-/* Slot 52 */
-Tcl_Obj *
-Tcl_NewIntObj(intValue)
- int intValue;
-{
- return (tclStubsPtr->tcl_NewIntObj)(intValue);
-}
-
-/* Slot 53 */
-Tcl_Obj *
-Tcl_NewListObj(objc, objv)
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclStubsPtr->tcl_NewListObj)(objc, objv);
-}
-
-/* Slot 54 */
-Tcl_Obj *
-Tcl_NewLongObj(longValue)
- long longValue;
-{
- return (tclStubsPtr->tcl_NewLongObj)(longValue);
-}
-
-/* Slot 55 */
-Tcl_Obj *
-Tcl_NewObj()
-{
- return (tclStubsPtr->tcl_NewObj)();
-}
-
-/* Slot 56 */
-Tcl_Obj *
-Tcl_NewStringObj(bytes, length)
- CONST char * bytes;
- int length;
-{
- return (tclStubsPtr->tcl_NewStringObj)(bytes, length);
-}
-
-/* Slot 57 */
-void
-Tcl_SetBooleanObj(objPtr, boolValue)
- Tcl_Obj * objPtr;
- int boolValue;
-{
- (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue);
-}
-
-/* Slot 58 */
-unsigned char *
-Tcl_SetByteArrayLength(objPtr, length)
- Tcl_Obj * objPtr;
- int length;
-{
- return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length);
-}
-
-/* Slot 59 */
-void
-Tcl_SetByteArrayObj(objPtr, bytes, length)
- Tcl_Obj * objPtr;
- unsigned char * bytes;
- int length;
-{
- (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length);
-}
-
-/* Slot 60 */
-void
-Tcl_SetDoubleObj(objPtr, doubleValue)
- Tcl_Obj * objPtr;
- double doubleValue;
-{
- (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue);
-}
-
-/* Slot 61 */
-void
-Tcl_SetIntObj(objPtr, intValue)
- Tcl_Obj * objPtr;
- int intValue;
-{
- (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue);
-}
-
-/* Slot 62 */
-void
-Tcl_SetListObj(objPtr, objc, objv)
- Tcl_Obj * objPtr;
- int objc;
- Tcl_Obj *CONST objv[];
-{
- (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv);
-}
-
-/* Slot 63 */
-void
-Tcl_SetLongObj(objPtr, longValue)
- Tcl_Obj * objPtr;
- long longValue;
-{
- (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue);
-}
-
-/* Slot 64 */
-void
-Tcl_SetObjLength(objPtr, length)
- Tcl_Obj * objPtr;
- int length;
-{
- (tclStubsPtr->tcl_SetObjLength)(objPtr, length);
-}
-
-/* Slot 65 */
-void
-Tcl_SetStringObj(objPtr, bytes, length)
- Tcl_Obj * objPtr;
- char * bytes;
- int length;
-{
- (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length);
-}
-
-/* Slot 66 */
-void
-Tcl_AddErrorInfo(interp, message)
- Tcl_Interp * interp;
- CONST char * message;
-{
- (tclStubsPtr->tcl_AddErrorInfo)(interp, message);
-}
-
-/* Slot 67 */
-void
-Tcl_AddObjErrorInfo(interp, message, length)
- Tcl_Interp * interp;
- CONST char * message;
- int length;
-{
- (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length);
-}
-
-/* Slot 68 */
-void
-Tcl_AllowExceptions(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_AllowExceptions)(interp);
-}
-
-/* Slot 69 */
-void
-Tcl_AppendElement(interp, string)
- Tcl_Interp * interp;
- CONST char * string;
-{
- (tclStubsPtr->tcl_AppendElement)(interp, string);
-}
-
-/* Slot 70 */
-void
-Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,interp)
-{
- Tcl_Interp * var;
- va_list argList;
-
- var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList);
-
- (tclStubsPtr->tcl_AppendResultVA)(var, argList);
- va_end(argList);
-}
-
-/* Slot 71 */
-Tcl_AsyncHandler
-Tcl_AsyncCreate(proc, clientData)
- Tcl_AsyncProc * proc;
- ClientData clientData;
-{
- return (tclStubsPtr->tcl_AsyncCreate)(proc, clientData);
-}
-
-/* Slot 72 */
-void
-Tcl_AsyncDelete(async)
- Tcl_AsyncHandler async;
-{
- (tclStubsPtr->tcl_AsyncDelete)(async);
-}
-
-/* Slot 73 */
-int
-Tcl_AsyncInvoke(interp, code)
- Tcl_Interp * interp;
- int code;
-{
- return (tclStubsPtr->tcl_AsyncInvoke)(interp, code);
-}
-
-/* Slot 74 */
-void
-Tcl_AsyncMark(async)
- Tcl_AsyncHandler async;
-{
- (tclStubsPtr->tcl_AsyncMark)(async);
-}
-
-/* Slot 75 */
-int
-Tcl_AsyncReady()
-{
- return (tclStubsPtr->tcl_AsyncReady)();
-}
-
-/* Slot 76 */
-void
-Tcl_BackgroundError(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_BackgroundError)(interp);
-}
-
-/* Slot 77 */
-char
-Tcl_Backslash(src, readPtr)
- CONST char * src;
- int * readPtr;
-{
- return (tclStubsPtr->tcl_Backslash)(src, readPtr);
-}
-
-/* Slot 78 */
-int
-Tcl_BadChannelOption(interp, optionName, optionList)
- Tcl_Interp * interp;
- char * optionName;
- char * optionList;
-{
- return (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList);
-}
-
-/* Slot 79 */
-void
-Tcl_CallWhenDeleted(interp, proc, clientData)
- Tcl_Interp * interp;
- Tcl_InterpDeleteProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData);
-}
-
-/* Slot 80 */
-void
-Tcl_CancelIdleCall(idleProc, clientData)
- Tcl_IdleProc * idleProc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData);
-}
-
-/* Slot 81 */
-int
-Tcl_Close(interp, chan)
- Tcl_Interp * interp;
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_Close)(interp, chan);
-}
-
-/* Slot 82 */
-int
-Tcl_CommandComplete(cmd)
- char * cmd;
-{
- return (tclStubsPtr->tcl_CommandComplete)(cmd);
-}
-
-/* Slot 83 */
-char *
-Tcl_Concat(argc, argv)
- int argc;
- char ** argv;
-{
- return (tclStubsPtr->tcl_Concat)(argc, argv);
-}
-
-/* Slot 84 */
-int
-Tcl_ConvertElement(src, dst, flags)
- CONST char * src;
- char * dst;
- int flags;
-{
- return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags);
-}
-
-/* Slot 85 */
-int
-Tcl_ConvertCountedElement(src, length, dst, flags)
- CONST char * src;
- int length;
- char * dst;
- int flags;
-{
- return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags);
-}
-
-/* Slot 86 */
-int
-Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv)
- Tcl_Interp * slave;
- char * slaveCmd;
- Tcl_Interp * target;
- char * targetCmd;
- int argc;
- char ** argv;
-{
- return (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv);
-}
-
-/* Slot 87 */
-int
-Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv)
- Tcl_Interp * slave;
- char * slaveCmd;
- Tcl_Interp * target;
- char * targetCmd;
- int objc;
- Tcl_Obj *CONST objv[];
-{
- return (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv);
-}
-
-/* Slot 88 */
-Tcl_Channel
-Tcl_CreateChannel(typePtr, chanName, instanceData, mask)
- Tcl_ChannelType * typePtr;
- char * chanName;
- ClientData instanceData;
- int mask;
-{
- return (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask);
-}
-
-/* Slot 89 */
-void
-Tcl_CreateChannelHandler(chan, mask, proc, clientData)
- Tcl_Channel chan;
- int mask;
- Tcl_ChannelProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData);
-}
-
-/* Slot 90 */
-void
-Tcl_CreateCloseHandler(chan, proc, clientData)
- Tcl_Channel chan;
- Tcl_CloseProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData);
-}
-
-/* Slot 91 */
-Tcl_Command
-Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
- Tcl_Interp * interp;
- char * cmdName;
- Tcl_CmdProc * proc;
- ClientData clientData;
- Tcl_CmdDeleteProc * deleteProc;
-{
- return (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc);
-}
-
-/* Slot 92 */
-void
-Tcl_CreateEventSource(setupProc, checkProc, clientData)
- Tcl_EventSetupProc * setupProc;
- Tcl_EventCheckProc * checkProc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData);
-}
-
-/* Slot 93 */
-void
-Tcl_CreateExitHandler(proc, clientData)
- Tcl_ExitProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData);
-}
-
-/* Slot 94 */
-Tcl_Interp *
-Tcl_CreateInterp()
-{
- return (tclStubsPtr->tcl_CreateInterp)();
-}
-
-/* Slot 95 */
-void
-Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData)
- Tcl_Interp * interp;
- char * name;
- int numArgs;
- Tcl_ValueType * argTypes;
- Tcl_MathProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData);
-}
-
-/* Slot 96 */
-Tcl_Command
-Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc)
- Tcl_Interp * interp;
- char * cmdName;
- Tcl_ObjCmdProc * proc;
- ClientData clientData;
- Tcl_CmdDeleteProc * deleteProc;
-{
- return (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc);
-}
-
-/* Slot 97 */
-Tcl_Interp *
-Tcl_CreateSlave(interp, slaveName, isSafe)
- Tcl_Interp * interp;
- char * slaveName;
- int isSafe;
-{
- return (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe);
-}
-
-/* Slot 98 */
-Tcl_TimerToken
-Tcl_CreateTimerHandler(milliseconds, proc, clientData)
- int milliseconds;
- Tcl_TimerProc * proc;
- ClientData clientData;
-{
- return (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData);
-}
-
-/* Slot 99 */
-Tcl_Trace
-Tcl_CreateTrace(interp, level, proc, clientData)
- Tcl_Interp * interp;
- int level;
- Tcl_CmdTraceProc * proc;
- ClientData clientData;
-{
- return (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData);
-}
-
-/* Slot 100 */
-void
-Tcl_DeleteAssocData(interp, name)
- Tcl_Interp * interp;
- char * name;
-{
- (tclStubsPtr->tcl_DeleteAssocData)(interp, name);
-}
-
-/* Slot 101 */
-void
-Tcl_DeleteChannelHandler(chan, proc, clientData)
- Tcl_Channel chan;
- Tcl_ChannelProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData);
-}
-
-/* Slot 102 */
-void
-Tcl_DeleteCloseHandler(chan, proc, clientData)
- Tcl_Channel chan;
- Tcl_CloseProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData);
-}
-
-/* Slot 103 */
-int
-Tcl_DeleteCommand(interp, cmdName)
- Tcl_Interp * interp;
- char * cmdName;
-{
- return (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName);
-}
-
-/* Slot 104 */
-int
-Tcl_DeleteCommandFromToken(interp, command)
- Tcl_Interp * interp;
- Tcl_Command command;
-{
- return (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command);
-}
-
-/* Slot 105 */
-void
-Tcl_DeleteEvents(proc, clientData)
- Tcl_EventDeleteProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DeleteEvents)(proc, clientData);
-}
-
-/* Slot 106 */
-void
-Tcl_DeleteEventSource(setupProc, checkProc, clientData)
- Tcl_EventSetupProc * setupProc;
- Tcl_EventCheckProc * checkProc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData);
-}
-
-/* Slot 107 */
-void
-Tcl_DeleteExitHandler(proc, clientData)
- Tcl_ExitProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData);
-}
-
-/* Slot 108 */
-void
-Tcl_DeleteHashEntry(entryPtr)
- Tcl_HashEntry * entryPtr;
-{
- (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr);
-}
-
-/* Slot 109 */
-void
-Tcl_DeleteHashTable(tablePtr)
- Tcl_HashTable * tablePtr;
-{
- (tclStubsPtr->tcl_DeleteHashTable)(tablePtr);
-}
-
-/* Slot 110 */
-void
-Tcl_DeleteInterp(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_DeleteInterp)(interp);
-}
-
-/* Slot 111 */
-void
-Tcl_DetachPids(numPids, pidPtr)
- int numPids;
- Tcl_Pid * pidPtr;
-{
- (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr);
-}
-
-/* Slot 112 */
-void
-Tcl_DeleteTimerHandler(token)
- Tcl_TimerToken token;
-{
- (tclStubsPtr->tcl_DeleteTimerHandler)(token);
-}
-
-/* Slot 113 */
-void
-Tcl_DeleteTrace(interp, trace)
- Tcl_Interp * interp;
- Tcl_Trace trace;
-{
- (tclStubsPtr->tcl_DeleteTrace)(interp, trace);
-}
-
-/* Slot 114 */
-void
-Tcl_DontCallWhenDeleted(interp, proc, clientData)
- Tcl_Interp * interp;
- Tcl_InterpDeleteProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData);
-}
-
-/* Slot 115 */
-int
-Tcl_DoOneEvent(flags)
- int flags;
-{
- return (tclStubsPtr->tcl_DoOneEvent)(flags);
-}
-
-/* Slot 116 */
-void
-Tcl_DoWhenIdle(proc, clientData)
- Tcl_IdleProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData);
-}
-
-/* Slot 117 */
-char *
-Tcl_DStringAppend(dsPtr, string, length)
- Tcl_DString * dsPtr;
- CONST char * string;
- int length;
-{
- return (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length);
-}
-
-/* Slot 118 */
-char *
-Tcl_DStringAppendElement(dsPtr, string)
- Tcl_DString * dsPtr;
- CONST char * string;
-{
- return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string);
-}
-
-/* Slot 119 */
-void
-Tcl_DStringEndSublist(dsPtr)
- Tcl_DString * dsPtr;
-{
- (tclStubsPtr->tcl_DStringEndSublist)(dsPtr);
-}
-
-/* Slot 120 */
-void
-Tcl_DStringFree(dsPtr)
- Tcl_DString * dsPtr;
-{
- (tclStubsPtr->tcl_DStringFree)(dsPtr);
-}
-
-/* Slot 121 */
-void
-Tcl_DStringGetResult(interp, dsPtr)
- Tcl_Interp * interp;
- Tcl_DString * dsPtr;
-{
- (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr);
-}
-
-/* Slot 122 */
-void
-Tcl_DStringInit(dsPtr)
- Tcl_DString * dsPtr;
-{
- (tclStubsPtr->tcl_DStringInit)(dsPtr);
-}
-
-/* Slot 123 */
-void
-Tcl_DStringResult(interp, dsPtr)
- Tcl_Interp * interp;
- Tcl_DString * dsPtr;
-{
- (tclStubsPtr->tcl_DStringResult)(interp, dsPtr);
-}
-
-/* Slot 124 */
-void
-Tcl_DStringSetLength(dsPtr, length)
- Tcl_DString * dsPtr;
- int length;
-{
- (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length);
-}
-
-/* Slot 125 */
-void
-Tcl_DStringStartSublist(dsPtr)
- Tcl_DString * dsPtr;
-{
- (tclStubsPtr->tcl_DStringStartSublist)(dsPtr);
-}
-
-/* Slot 126 */
-int
-Tcl_Eof(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_Eof)(chan);
-}
-
-/* Slot 127 */
-char *
-Tcl_ErrnoId()
-{
- return (tclStubsPtr->tcl_ErrnoId)();
-}
-
-/* Slot 128 */
-char *
-Tcl_ErrnoMsg(err)
- int err;
-{
- return (tclStubsPtr->tcl_ErrnoMsg)(err);
-}
-
-/* Slot 129 */
-int
-Tcl_Eval(interp, string)
- Tcl_Interp * interp;
- char * string;
-{
- return (tclStubsPtr->tcl_Eval)(interp, string);
-}
-
-/* Slot 130 */
-int
-Tcl_EvalFile(interp, fileName)
- Tcl_Interp * interp;
- char * fileName;
-{
- return (tclStubsPtr->tcl_EvalFile)(interp, fileName);
-}
-
-/* Slot 131 */
-int
-Tcl_EvalObj(interp, objPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_EvalObj)(interp, objPtr);
-}
-
-/* Slot 132 */
-void
-Tcl_EventuallyFree(clientData, freeProc)
- ClientData clientData;
- Tcl_FreeProc * freeProc;
-{
- (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc);
-}
-
-/* Slot 133 */
-void
-Tcl_Exit(status)
- int status;
-{
- (tclStubsPtr->tcl_Exit)(status);
-}
-
-/* Slot 134 */
-int
-Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName)
- Tcl_Interp * interp;
- char * hiddenCmdToken;
- char * cmdName;
-{
- return (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName);
-}
-
-/* Slot 135 */
-int
-Tcl_ExprBoolean(interp, string, ptr)
- Tcl_Interp * interp;
- char * string;
- int * ptr;
-{
- return (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr);
-}
-
-/* Slot 136 */
-int
-Tcl_ExprBooleanObj(interp, objPtr, ptr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- int * ptr;
-{
- return (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr);
-}
-
-/* Slot 137 */
-int
-Tcl_ExprDouble(interp, string, ptr)
- Tcl_Interp * interp;
- char * string;
- double * ptr;
-{
- return (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr);
-}
-
-/* Slot 138 */
-int
-Tcl_ExprDoubleObj(interp, objPtr, ptr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- double * ptr;
-{
- return (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr);
-}
-
-/* Slot 139 */
-int
-Tcl_ExprLong(interp, string, ptr)
- Tcl_Interp * interp;
- char * string;
- long * ptr;
-{
- return (tclStubsPtr->tcl_ExprLong)(interp, string, ptr);
-}
-
-/* Slot 140 */
-int
-Tcl_ExprLongObj(interp, objPtr, ptr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- long * ptr;
-{
- return (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr);
-}
-
-/* Slot 141 */
-int
-Tcl_ExprObj(interp, objPtr, resultPtrPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- Tcl_Obj ** resultPtrPtr;
-{
- return (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr);
-}
-
-/* Slot 142 */
-int
-Tcl_ExprString(interp, string)
- Tcl_Interp * interp;
- char * string;
-{
- return (tclStubsPtr->tcl_ExprString)(interp, string);
-}
-
-/* Slot 143 */
-void
-Tcl_Finalize()
-{
- (tclStubsPtr->tcl_Finalize)();
-}
-
-/* Slot 144 */
-void
-Tcl_FindExecutable(argv0)
- CONST char * argv0;
-{
- (tclStubsPtr->tcl_FindExecutable)(argv0);
-}
-
-/* Slot 145 */
-Tcl_HashEntry *
-Tcl_FirstHashEntry(tablePtr, searchPtr)
- Tcl_HashTable * tablePtr;
- Tcl_HashSearch * searchPtr;
-{
- return (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr);
-}
-
-/* Slot 146 */
-int
-Tcl_Flush(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_Flush)(chan);
-}
-
-/* Slot 147 */
-void
-Tcl_FreeResult(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_FreeResult)(interp);
-}
-
-/* Slot 148 */
-int
-Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr)
- Tcl_Interp * interp;
- char * slaveCmd;
- Tcl_Interp ** targetInterpPtr;
- char ** targetCmdPtr;
- int * argcPtr;
- char *** argvPtr;
-{
- return (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr);
-}
-
-/* Slot 149 */
-int
-Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv)
- Tcl_Interp * interp;
- char * slaveCmd;
- Tcl_Interp ** targetInterpPtr;
- char ** targetCmdPtr;
- int * objcPtr;
- Tcl_Obj *** objv;
-{
- return (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv);
-}
-
-/* Slot 150 */
-ClientData
-Tcl_GetAssocData(interp, name, procPtr)
- Tcl_Interp * interp;
- char * name;
- Tcl_InterpDeleteProc ** procPtr;
-{
- return (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr);
-}
-
-/* Slot 151 */
-Tcl_Channel
-Tcl_GetChannel(interp, chanName, modePtr)
- Tcl_Interp * interp;
- char * chanName;
- int * modePtr;
-{
- return (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr);
-}
-
-/* Slot 152 */
-int
-Tcl_GetChannelBufferSize(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_GetChannelBufferSize)(chan);
-}
-
-/* Slot 153 */
-int
-Tcl_GetChannelHandle(chan, direction, handlePtr)
- Tcl_Channel chan;
- int direction;
- ClientData * handlePtr;
-{
- return (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr);
-}
-
-/* Slot 154 */
-ClientData
-Tcl_GetChannelInstanceData(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_GetChannelInstanceData)(chan);
-}
-
-/* Slot 155 */
-int
-Tcl_GetChannelMode(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_GetChannelMode)(chan);
-}
-
-/* Slot 156 */
-char *
-Tcl_GetChannelName(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_GetChannelName)(chan);
-}
-
-/* Slot 157 */
-int
-Tcl_GetChannelOption(interp, chan, optionName, dsPtr)
- Tcl_Interp * interp;
- Tcl_Channel chan;
- char * optionName;
- Tcl_DString * dsPtr;
-{
- return (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr);
-}
-
-/* Slot 158 */
-Tcl_ChannelType *
-Tcl_GetChannelType(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_GetChannelType)(chan);
-}
-
-/* Slot 159 */
-int
-Tcl_GetCommandInfo(interp, cmdName, infoPtr)
- Tcl_Interp * interp;
- char * cmdName;
- Tcl_CmdInfo * infoPtr;
-{
- return (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr);
-}
-
-/* Slot 160 */
-char *
-Tcl_GetCommandName(interp, command)
- Tcl_Interp * interp;
- Tcl_Command command;
-{
- return (tclStubsPtr->tcl_GetCommandName)(interp, command);
-}
-
-/* Slot 161 */
-int
-Tcl_GetErrno()
-{
- return (tclStubsPtr->tcl_GetErrno)();
-}
-
-/* Slot 162 */
-char *
-Tcl_GetHostName()
-{
- return (tclStubsPtr->tcl_GetHostName)();
-}
-
-/* Slot 163 */
-int
-Tcl_GetInterpPath(askInterp, slaveInterp)
- Tcl_Interp * askInterp;
- Tcl_Interp * slaveInterp;
-{
- return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp);
-}
-
-/* Slot 164 */
-Tcl_Interp *
-Tcl_GetMaster(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_GetMaster)(interp);
-}
-
-/* Slot 165 */
-CONST char *
-Tcl_GetNameOfExecutable()
-{
- return (tclStubsPtr->tcl_GetNameOfExecutable)();
-}
-
-/* Slot 166 */
-Tcl_Obj *
-Tcl_GetObjResult(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_GetObjResult)(interp);
-}
-
-#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */
-/* Slot 167 */
-int
-Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr)
- Tcl_Interp * interp;
- char * string;
- int write;
- int checkUsage;
- ClientData * filePtr;
-{
- return (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr);
-}
-
-#endif /* UNIX */
-/* Slot 168 */
-Tcl_PathType
-Tcl_GetPathType(path)
- char * path;
-{
- return (tclStubsPtr->tcl_GetPathType)(path);
-}
-
-/* Slot 169 */
-int
-Tcl_Gets(chan, dsPtr)
- Tcl_Channel chan;
- Tcl_DString * dsPtr;
-{
- return (tclStubsPtr->tcl_Gets)(chan, dsPtr);
-}
-
-/* Slot 170 */
-int
-Tcl_GetsObj(chan, objPtr)
- Tcl_Channel chan;
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_GetsObj)(chan, objPtr);
-}
-
-/* Slot 171 */
-int
-Tcl_GetServiceMode()
-{
- return (tclStubsPtr->tcl_GetServiceMode)();
-}
-
-/* Slot 172 */
-Tcl_Interp *
-Tcl_GetSlave(interp, slaveName)
- Tcl_Interp * interp;
- char * slaveName;
-{
- return (tclStubsPtr->tcl_GetSlave)(interp, slaveName);
-}
-
-/* Slot 173 */
-Tcl_Channel
-Tcl_GetStdChannel(type)
- int type;
-{
- return (tclStubsPtr->tcl_GetStdChannel)(type);
-}
-
-/* Slot 174 */
-char *
-Tcl_GetStringResult(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_GetStringResult)(interp);
-}
-
-/* Slot 175 */
-char *
-Tcl_GetVar(interp, varName, flags)
- Tcl_Interp * interp;
- char * varName;
- int flags;
-{
- return (tclStubsPtr->tcl_GetVar)(interp, varName, flags);
-}
-
-/* Slot 176 */
-char *
-Tcl_GetVar2(interp, part1, part2, flags)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
-{
- return (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags);
-}
-
-/* Slot 177 */
-int
-Tcl_GlobalEval(interp, command)
- Tcl_Interp * interp;
- char * command;
-{
- return (tclStubsPtr->tcl_GlobalEval)(interp, command);
-}
-
-/* Slot 178 */
-int
-Tcl_GlobalEvalObj(interp, objPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr);
-}
-
-/* Slot 179 */
-int
-Tcl_HideCommand(interp, cmdName, hiddenCmdToken)
- Tcl_Interp * interp;
- char * cmdName;
- char * hiddenCmdToken;
-{
- return (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken);
-}
-
-/* Slot 180 */
-int
-Tcl_Init(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_Init)(interp);
-}
-
-/* Slot 181 */
-void
-Tcl_InitHashTable(tablePtr, keyType)
- Tcl_HashTable * tablePtr;
- int keyType;
-{
- (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType);
-}
-
-/* Slot 182 */
-int
-Tcl_InputBlocked(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_InputBlocked)(chan);
-}
-
-/* Slot 183 */
-int
-Tcl_InputBuffered(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_InputBuffered)(chan);
-}
-
-/* Slot 184 */
-int
-Tcl_InterpDeleted(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_InterpDeleted)(interp);
-}
-
-/* Slot 185 */
-int
-Tcl_IsSafe(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_IsSafe)(interp);
-}
-
-/* Slot 186 */
-char *
-Tcl_JoinPath(argc, argv, resultPtr)
- int argc;
- char ** argv;
- Tcl_DString * resultPtr;
-{
- return (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr);
-}
-
-/* Slot 187 */
-int
-Tcl_LinkVar(interp, varName, addr, type)
- Tcl_Interp * interp;
- char * varName;
- char * addr;
- int type;
-{
- return (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type);
-}
-
-/* Slot 188 is reserved */
-/* Slot 189 */
-Tcl_Channel
-Tcl_MakeFileChannel(handle, mode)
- ClientData handle;
- int mode;
-{
- return (tclStubsPtr->tcl_MakeFileChannel)(handle, mode);
-}
-
-/* Slot 190 */
-int
-Tcl_MakeSafe(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_MakeSafe)(interp);
-}
-
-/* Slot 191 */
-Tcl_Channel
-Tcl_MakeTcpClientChannel(tcpSocket)
- ClientData tcpSocket;
-{
- return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket);
-}
-
-/* Slot 192 */
-char *
-Tcl_Merge(argc, argv)
- int argc;
- char ** argv;
-{
- return (tclStubsPtr->tcl_Merge)(argc, argv);
-}
-
-/* Slot 193 */
-Tcl_HashEntry *
-Tcl_NextHashEntry(searchPtr)
- Tcl_HashSearch * searchPtr;
-{
- return (tclStubsPtr->tcl_NextHashEntry)(searchPtr);
-}
-
-/* Slot 194 */
-void
-Tcl_NotifyChannel(channel, mask)
- Tcl_Channel channel;
- int mask;
-{
- (tclStubsPtr->tcl_NotifyChannel)(channel, mask);
-}
-
-/* Slot 195 */
-Tcl_Obj *
-Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags)
- Tcl_Interp * interp;
- Tcl_Obj * part1Ptr;
- Tcl_Obj * part2Ptr;
- int flags;
-{
- return (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags);
-}
-
-/* Slot 196 */
-Tcl_Obj *
-Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags)
- Tcl_Interp * interp;
- Tcl_Obj * part1Ptr;
- Tcl_Obj * part2Ptr;
- Tcl_Obj * newValuePtr;
- int flags;
-{
- return (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags);
-}
-
-/* Slot 197 */
-Tcl_Channel
-Tcl_OpenCommandChannel(interp, argc, argv, flags)
- Tcl_Interp * interp;
- int argc;
- char ** argv;
- int flags;
-{
- return (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags);
-}
-
-/* Slot 198 */
-Tcl_Channel
-Tcl_OpenFileChannel(interp, fileName, modeString, permissions)
- Tcl_Interp * interp;
- char * fileName;
- char * modeString;
- int permissions;
-{
- return (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions);
-}
-
-/* Slot 199 */
-Tcl_Channel
-Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async)
- Tcl_Interp * interp;
- int port;
- char * address;
- char * myaddr;
- int myport;
- int async;
-{
- return (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async);
-}
-
-/* Slot 200 */
-Tcl_Channel
-Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData)
- Tcl_Interp * interp;
- int port;
- char * host;
- Tcl_TcpAcceptProc * acceptProc;
- ClientData callbackData;
-{
- return (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData);
-}
-
-/* Slot 201 */
-void
-Tcl_Preserve(data)
- ClientData data;
-{
- (tclStubsPtr->tcl_Preserve)(data);
-}
-
-/* Slot 202 */
-void
-Tcl_PrintDouble(interp, value, dst)
- Tcl_Interp * interp;
- double value;
- char * dst;
-{
- (tclStubsPtr->tcl_PrintDouble)(interp, value, dst);
-}
-
-/* Slot 203 */
-int
-Tcl_PutEnv(string)
- CONST char * string;
-{
- return (tclStubsPtr->tcl_PutEnv)(string);
-}
-
-/* Slot 204 */
-char *
-Tcl_PosixError(interp)
- Tcl_Interp * interp;
-{
- return (tclStubsPtr->tcl_PosixError)(interp);
-}
-
-/* Slot 205 */
-void
-Tcl_QueueEvent(evPtr, position)
- Tcl_Event * evPtr;
- Tcl_QueuePosition position;
-{
- (tclStubsPtr->tcl_QueueEvent)(evPtr, position);
-}
-
-/* Slot 206 */
-int
-Tcl_Read(chan, bufPtr, toRead)
- Tcl_Channel chan;
- char * bufPtr;
- int toRead;
-{
- return (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead);
-}
-
-/* Slot 207 */
-void
-Tcl_ReapDetachedProcs()
-{
- (tclStubsPtr->tcl_ReapDetachedProcs)();
-}
-
-/* Slot 208 */
-int
-Tcl_RecordAndEval(interp, cmd, flags)
- Tcl_Interp * interp;
- char * cmd;
- int flags;
-{
- return (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags);
-}
-
-/* Slot 209 */
-int
-Tcl_RecordAndEvalObj(interp, cmdPtr, flags)
- Tcl_Interp * interp;
- Tcl_Obj * cmdPtr;
- int flags;
-{
- return (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags);
-}
-
-/* Slot 210 */
-void
-Tcl_RegisterChannel(interp, chan)
- Tcl_Interp * interp;
- Tcl_Channel chan;
-{
- (tclStubsPtr->tcl_RegisterChannel)(interp, chan);
-}
-
-/* Slot 211 */
-void
-Tcl_RegisterObjType(typePtr)
- Tcl_ObjType * typePtr;
-{
- (tclStubsPtr->tcl_RegisterObjType)(typePtr);
-}
-
-/* Slot 212 */
-Tcl_RegExp
-Tcl_RegExpCompile(interp, string)
- Tcl_Interp * interp;
- char * string;
-{
- return (tclStubsPtr->tcl_RegExpCompile)(interp, string);
-}
-
-/* Slot 213 */
-int
-Tcl_RegExpExec(interp, regexp, string, start)
- Tcl_Interp * interp;
- Tcl_RegExp regexp;
- CONST char * string;
- CONST char * start;
-{
- return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start);
-}
-
-/* Slot 214 */
-int
-Tcl_RegExpMatch(interp, string, pattern)
- Tcl_Interp * interp;
- char * string;
- char * pattern;
-{
- return (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern);
-}
-
-/* Slot 215 */
-void
-Tcl_RegExpRange(regexp, index, startPtr, endPtr)
- Tcl_RegExp regexp;
- int index;
- char ** startPtr;
- char ** endPtr;
-{
- (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr);
-}
-
-/* Slot 216 */
-void
-Tcl_Release(clientData)
- ClientData clientData;
-{
- (tclStubsPtr->tcl_Release)(clientData);
-}
-
-/* Slot 217 */
-void
-Tcl_ResetResult(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_ResetResult)(interp);
-}
-
-/* Slot 218 */
-int
-Tcl_ScanElement(string, flagPtr)
- CONST char * string;
- int * flagPtr;
-{
- return (tclStubsPtr->tcl_ScanElement)(string, flagPtr);
-}
-
-/* Slot 219 */
-int
-Tcl_ScanCountedElement(string, length, flagPtr)
- CONST char * string;
- int length;
- int * flagPtr;
-{
- return (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr);
-}
-
-/* Slot 220 */
-int
-Tcl_Seek(chan, offset, mode)
- Tcl_Channel chan;
- int offset;
- int mode;
-{
- return (tclStubsPtr->tcl_Seek)(chan, offset, mode);
-}
-
-/* Slot 221 */
-int
-Tcl_ServiceAll()
-{
- return (tclStubsPtr->tcl_ServiceAll)();
-}
-
-/* Slot 222 */
-int
-Tcl_ServiceEvent(flags)
- int flags;
-{
- return (tclStubsPtr->tcl_ServiceEvent)(flags);
-}
-
-/* Slot 223 */
-void
-Tcl_SetAssocData(interp, name, proc, clientData)
- Tcl_Interp * interp;
- char * name;
- Tcl_InterpDeleteProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData);
-}
-
-/* Slot 224 */
-void
-Tcl_SetChannelBufferSize(chan, sz)
- Tcl_Channel chan;
- int sz;
-{
- (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz);
-}
-
-/* Slot 225 */
-int
-Tcl_SetChannelOption(interp, chan, optionName, newValue)
- Tcl_Interp * interp;
- Tcl_Channel chan;
- char * optionName;
- char * newValue;
-{
- return (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue);
-}
-
-/* Slot 226 */
-int
-Tcl_SetCommandInfo(interp, cmdName, infoPtr)
- Tcl_Interp * interp;
- char * cmdName;
- Tcl_CmdInfo * infoPtr;
-{
- return (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr);
-}
-
-/* Slot 227 */
-void
-Tcl_SetErrno(err)
- int err;
-{
- (tclStubsPtr->tcl_SetErrno)(err);
-}
-
-/* Slot 228 */
-void
-Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp)
-{
- Tcl_Interp * var;
- va_list argList;
-
- var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList);
-
- (tclStubsPtr->tcl_SetErrorCodeVA)(var, argList);
- va_end(argList);
-}
-
-/* Slot 229 */
-void
-Tcl_SetMaxBlockTime(timePtr)
- Tcl_Time * timePtr;
-{
- (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr);
-}
-
-/* Slot 230 */
-void
-Tcl_SetPanicProc(panicProc)
- Tcl_PanicProc * panicProc;
-{
- (tclStubsPtr->tcl_SetPanicProc)(panicProc);
-}
-
-/* Slot 231 */
-int
-Tcl_SetRecursionLimit(interp, depth)
- Tcl_Interp * interp;
- int depth;
-{
- return (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth);
-}
-
-/* Slot 232 */
-void
-Tcl_SetResult(interp, string, freeProc)
- Tcl_Interp * interp;
- char * string;
- Tcl_FreeProc * freeProc;
-{
- (tclStubsPtr->tcl_SetResult)(interp, string, freeProc);
-}
-
-/* Slot 233 */
-int
-Tcl_SetServiceMode(mode)
- int mode;
-{
- return (tclStubsPtr->tcl_SetServiceMode)(mode);
-}
-
-/* Slot 234 */
-void
-Tcl_SetObjErrorCode(interp, errorObjPtr)
- Tcl_Interp * interp;
- Tcl_Obj * errorObjPtr;
-{
- (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr);
-}
-
-/* Slot 235 */
-void
-Tcl_SetObjResult(interp, resultObjPtr)
- Tcl_Interp * interp;
- Tcl_Obj * resultObjPtr;
-{
- (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr);
-}
-
-/* Slot 236 */
-void
-Tcl_SetStdChannel(channel, type)
- Tcl_Channel channel;
- int type;
-{
- (tclStubsPtr->tcl_SetStdChannel)(channel, type);
-}
-
-/* Slot 237 */
-char *
-Tcl_SetVar(interp, varName, newValue, flags)
- Tcl_Interp * interp;
- char * varName;
- char * newValue;
- int flags;
-{
- return (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags);
-}
-
-/* Slot 238 */
-char *
-Tcl_SetVar2(interp, part1, part2, newValue, flags)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- char * newValue;
- int flags;
-{
- return (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags);
-}
-
-/* Slot 239 */
-char *
-Tcl_SignalId(sig)
- int sig;
-{
- return (tclStubsPtr->tcl_SignalId)(sig);
-}
-
-/* Slot 240 */
-char *
-Tcl_SignalMsg(sig)
- int sig;
-{
- return (tclStubsPtr->tcl_SignalMsg)(sig);
-}
-
-/* Slot 241 */
-void
-Tcl_SourceRCFile(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_SourceRCFile)(interp);
-}
-
-/* Slot 242 */
-int
-Tcl_SplitList(interp, list, argcPtr, argvPtr)
- Tcl_Interp * interp;
- CONST char * list;
- int * argcPtr;
- char *** argvPtr;
-{
- return (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr);
-}
-
-/* Slot 243 */
-void
-Tcl_SplitPath(path, argcPtr, argvPtr)
- CONST char * path;
- int * argcPtr;
- char *** argvPtr;
-{
- (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr);
-}
-
-/* Slot 244 */
-void
-Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc)
- Tcl_Interp * interp;
- char * pkgName;
- Tcl_PackageInitProc * initProc;
- Tcl_PackageInitProc * safeInitProc;
-{
- (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc);
-}
-
-/* Slot 245 */
-int
-Tcl_StringMatch(string, pattern)
- CONST char * string;
- CONST char * pattern;
-{
- return (tclStubsPtr->tcl_StringMatch)(string, pattern);
-}
-
-/* Slot 246 */
-int
-Tcl_Tell(chan)
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_Tell)(chan);
-}
-
-/* Slot 247 */
-int
-Tcl_TraceVar(interp, varName, flags, proc, clientData)
- Tcl_Interp * interp;
- char * varName;
- int flags;
- Tcl_VarTraceProc * proc;
- ClientData clientData;
-{
- return (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData);
-}
-
-/* Slot 248 */
-int
-Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
- Tcl_VarTraceProc * proc;
- ClientData clientData;
-{
- return (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData);
-}
-
-/* Slot 249 */
-char *
-Tcl_TranslateFileName(interp, name, bufferPtr)
- Tcl_Interp * interp;
- char * name;
- Tcl_DString * bufferPtr;
-{
- return (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr);
-}
-
-/* Slot 250 */
-int
-Tcl_Ungets(chan, str, len, atHead)
- Tcl_Channel chan;
- char * str;
- int len;
- int atHead;
-{
- return (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead);
-}
-
-/* Slot 251 */
-void
-Tcl_UnlinkVar(interp, varName)
- Tcl_Interp * interp;
- char * varName;
-{
- (tclStubsPtr->tcl_UnlinkVar)(interp, varName);
-}
-
-/* Slot 252 */
-int
-Tcl_UnregisterChannel(interp, chan)
- Tcl_Interp * interp;
- Tcl_Channel chan;
-{
- return (tclStubsPtr->tcl_UnregisterChannel)(interp, chan);
-}
-
-/* Slot 253 */
-int
-Tcl_UnsetVar(interp, varName, flags)
- Tcl_Interp * interp;
- char * varName;
- int flags;
-{
- return (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags);
-}
-
-/* Slot 254 */
-int
-Tcl_UnsetVar2(interp, part1, part2, flags)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
-{
- return (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags);
-}
-
-/* Slot 255 */
-void
-Tcl_UntraceVar(interp, varName, flags, proc, clientData)
- Tcl_Interp * interp;
- char * varName;
- int flags;
- Tcl_VarTraceProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData);
-}
-
-/* Slot 256 */
-void
-Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
- Tcl_VarTraceProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData);
-}
-
-/* Slot 257 */
-void
-Tcl_UpdateLinkedVar(interp, varName)
- Tcl_Interp * interp;
- char * varName;
-{
- (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName);
-}
-
-/* Slot 258 */
-int
-Tcl_UpVar(interp, frameName, varName, localName, flags)
- Tcl_Interp * interp;
- char * frameName;
- char * varName;
- char * localName;
- int flags;
-{
- return (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags);
-}
-
-/* Slot 259 */
-int
-Tcl_UpVar2(interp, frameName, part1, part2, localName, flags)
- Tcl_Interp * interp;
- char * frameName;
- char * part1;
- char * part2;
- char * localName;
- int flags;
-{
- return (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags);
-}
-
-/* Slot 260 */
-int
-Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp)
-{
- Tcl_Interp * var;
- va_list argList;
- int resultValue;
-
- var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList);
-
- resultValue = (tclStubsPtr->tcl_VarEvalVA)(var, argList);
- va_end(argList);
-return resultValue;
-}
-
-/* Slot 261 */
-ClientData
-Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData)
- Tcl_Interp * interp;
- char * varName;
- int flags;
- Tcl_VarTraceProc * procPtr;
- ClientData prevClientData;
-{
- return (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData);
-}
-
-/* Slot 262 */
-ClientData
-Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
- Tcl_VarTraceProc * procPtr;
- ClientData prevClientData;
-{
- return (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData);
-}
-
-/* Slot 263 */
-int
-Tcl_Write(chan, s, slen)
- Tcl_Channel chan;
- char * s;
- int slen;
-{
- return (tclStubsPtr->tcl_Write)(chan, s, slen);
-}
-
-/* Slot 264 */
-void
-Tcl_WrongNumArgs(interp, objc, objv, message)
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
- char * message;
-{
- (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message);
-}
-
-/* Slot 265 */
-int
-Tcl_DumpActiveMemory(fileName)
- char * fileName;
-{
- return (tclStubsPtr->tcl_DumpActiveMemory)(fileName);
-}
-
-/* Slot 266 */
-void
-Tcl_ValidateAllMemory(file, line)
- char * file;
- int line;
-{
- (tclStubsPtr->tcl_ValidateAllMemory)(file, line);
-}
-
-/* Slot 267 */
-void
-Tcl_AppendResultVA(interp, argList)
- Tcl_Interp * interp;
- va_list argList;
-{
- (tclStubsPtr->tcl_AppendResultVA)(interp, argList);
-}
-
-/* Slot 268 */
-void
-Tcl_AppendStringsToObjVA(objPtr, argList)
- Tcl_Obj * objPtr;
- va_list argList;
-{
- (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList);
-}
-
-/* Slot 269 */
-char *
-Tcl_HashStats(tablePtr)
- Tcl_HashTable * tablePtr;
-{
- return (tclStubsPtr->tcl_HashStats)(tablePtr);
-}
-
-/* Slot 270 */
-char *
-Tcl_ParseVar(interp, string, termPtr)
- Tcl_Interp * interp;
- char * string;
- char ** termPtr;
-{
- return (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr);
-}
-
-/* Slot 271 */
-char *
-Tcl_PkgPresent(interp, name, version, exact)
- Tcl_Interp * interp;
- char * name;
- char * version;
- int exact;
-{
- return (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact);
-}
-
-/* Slot 272 */
-char *
-Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr)
- Tcl_Interp * interp;
- char * name;
- char * version;
- int exact;
- ClientData * clientDataPtr;
-{
- return (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr);
-}
-
-/* Slot 273 */
-int
-Tcl_PkgProvide(interp, name, version)
- Tcl_Interp * interp;
- char * name;
- char * version;
-{
- return (tclStubsPtr->tcl_PkgProvide)(interp, name, version);
-}
-
-/* Slot 274 */
-char *
-Tcl_PkgRequire(interp, name, version, exact)
- Tcl_Interp * interp;
- char * name;
- char * version;
- int exact;
-{
- return (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact);
-}
-
-/* Slot 275 */
-void
-Tcl_SetErrorCodeVA(interp, argList)
- Tcl_Interp * interp;
- va_list argList;
-{
- (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList);
-}
-
-/* Slot 276 */
-int
-Tcl_VarEvalVA(interp, argList)
- Tcl_Interp * interp;
- va_list argList;
-{
- return (tclStubsPtr->tcl_VarEvalVA)(interp, argList);
-}
-
-/* Slot 277 */
-Tcl_Pid
-Tcl_WaitPid(pid, statPtr, options)
- Tcl_Pid pid;
- int * statPtr;
- int options;
-{
- return (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options);
-}
-
-/* Slot 278 */
-void
-panicVA(format, argList)
- char * format;
- va_list argList;
-{
- (tclStubsPtr->panicVA)(format, argList);
-}
-
-/* Slot 279 */
-void
-Tcl_GetVersion(major, minor, patchLevel, type)
- int * major;
- int * minor;
- int * patchLevel;
- int * type;
-{
- (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type);
-}
-
-/* Slot 280 is reserved */
-/* Slot 281 is reserved */
-/* Slot 282 is reserved */
-/* Slot 283 is reserved */
-/* Slot 284 is reserved */
-/* Slot 285 is reserved */
-/* Slot 286 */
-void
-Tcl_AppendObjToObj(objPtr, appendObjPtr)
- Tcl_Obj * objPtr;
- Tcl_Obj * appendObjPtr;
-{
- (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr);
-}
-
-/* Slot 287 */
-Tcl_Encoding
-Tcl_CreateEncoding(typePtr)
- Tcl_EncodingType * typePtr;
-{
- return (tclStubsPtr->tcl_CreateEncoding)(typePtr);
-}
-
-/* Slot 288 */
-void
-Tcl_CreateThreadExitHandler(proc, clientData)
- Tcl_ExitProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData);
-}
-
-/* Slot 289 */
-void
-Tcl_DeleteThreadExitHandler(proc, clientData)
- Tcl_ExitProc * proc;
- ClientData clientData;
-{
- (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData);
-}
-
-/* Slot 290 */
-void
-Tcl_DiscardResult(statePtr)
- Tcl_SavedResult * statePtr;
-{
- (tclStubsPtr->tcl_DiscardResult)(statePtr);
-}
-
-/* Slot 291 */
-int
-Tcl_EvalEx(interp, script, numBytes, flags)
- Tcl_Interp * interp;
- char * script;
- int numBytes;
- int flags;
-{
- return (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags);
-}
-
-/* Slot 292 */
-int
-Tcl_EvalObjv(interp, objc, objv, flags)
- Tcl_Interp * interp;
- int objc;
- Tcl_Obj *CONST objv[];
- int flags;
-{
- return (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags);
-}
-
-/* Slot 293 */
-int
-Tcl_EvalObjEx(interp, objPtr, flags)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- int flags;
-{
- return (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags);
-}
-
-/* Slot 294 */
-void
-Tcl_ExitThread(status)
- int status;
-{
- (tclStubsPtr->tcl_ExitThread)(status);
-}
-
-/* Slot 295 */
-int
-Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr)
- Tcl_Interp * interp;
- Tcl_Encoding encoding;
- CONST char * src;
- int srcLen;
- int flags;
- Tcl_EncodingState * statePtr;
- char * dst;
- int dstLen;
- int * srcReadPtr;
- int * dstWrotePtr;
- int * dstCharsPtr;
-{
- return (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr);
-}
-
-/* Slot 296 */
-char *
-Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr)
- Tcl_Encoding encoding;
- CONST char * src;
- int srcLen;
- Tcl_DString * dsPtr;
-{
- return (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr);
-}
-
-/* Slot 297 */
-void
-Tcl_FinalizeThread()
-{
- (tclStubsPtr->tcl_FinalizeThread)();
-}
-
-/* Slot 298 */
-void
-Tcl_FinalizeNotifier(clientData)
- ClientData clientData;
-{
- (tclStubsPtr->tcl_FinalizeNotifier)(clientData);
-}
-
-/* Slot 299 */
-void
-Tcl_FreeEncoding(encoding)
- Tcl_Encoding encoding;
-{
- (tclStubsPtr->tcl_FreeEncoding)(encoding);
-}
-
-/* Slot 300 */
-Tcl_ThreadId
-Tcl_GetCurrentThread()
-{
- return (tclStubsPtr->tcl_GetCurrentThread)();
-}
-
-/* Slot 301 */
-Tcl_Encoding
-Tcl_GetEncoding(interp, name)
- Tcl_Interp * interp;
- CONST char * name;
-{
- return (tclStubsPtr->tcl_GetEncoding)(interp, name);
-}
-
-/* Slot 302 */
-char *
-Tcl_GetEncodingName(encoding)
- Tcl_Encoding encoding;
-{
- return (tclStubsPtr->tcl_GetEncodingName)(encoding);
-}
-
-/* Slot 303 */
-void
-Tcl_GetEncodingNames(interp)
- Tcl_Interp * interp;
-{
- (tclStubsPtr->tcl_GetEncodingNames)(interp);
-}
-
-/* Slot 304 */
-int
-Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr)
- Tcl_Interp * interp;
- Tcl_Obj * objPtr;
- char ** tablePtr;
- int offset;
- char * msg;
- int flags;
- int * indexPtr;
-{
- return (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr);
-}
-
-/* Slot 305 */
-VOID *
-Tcl_GetThreadData(keyPtr, size)
- Tcl_ThreadDataKey * keyPtr;
- int size;
-{
- return (tclStubsPtr->tcl_GetThreadData)(keyPtr, size);
-}
-
-/* Slot 306 */
-Tcl_Obj *
-Tcl_GetVar2Ex(interp, part1, part2, flags)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- int flags;
-{
- return (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags);
-}
-
-/* Slot 307 */
-ClientData
-Tcl_InitNotifier()
-{
- return (tclStubsPtr->tcl_InitNotifier)();
-}
-
-/* Slot 308 */
-void
-Tcl_MutexLock(mutexPtr)
- Tcl_Mutex * mutexPtr;
-{
- (tclStubsPtr->tcl_MutexLock)(mutexPtr);
-}
-
-/* Slot 309 */
-void
-Tcl_MutexUnlock(mutexPtr)
- Tcl_Mutex * mutexPtr;
-{
- (tclStubsPtr->tcl_MutexUnlock)(mutexPtr);
-}
-
-/* Slot 310 */
-void
-Tcl_ConditionNotify(condPtr)
- Tcl_Condition * condPtr;
-{
- (tclStubsPtr->tcl_ConditionNotify)(condPtr);
-}
-
-/* Slot 311 */
-void
-Tcl_ConditionWait(condPtr, mutexPtr, timePtr)
- Tcl_Condition * condPtr;
- Tcl_Mutex * mutexPtr;
- Tcl_Time * timePtr;
-{
- (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr);
-}
-
-/* Slot 312 */
-int
-Tcl_NumUtfChars(src, len)
- CONST char * src;
- int len;
-{
- return (tclStubsPtr->tcl_NumUtfChars)(src, len);
-}
-
-/* Slot 313 */
-int
-Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag)
- Tcl_Channel channel;
- Tcl_Obj * objPtr;
- int charsToRead;
- int appendFlag;
-{
- return (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag);
-}
-
-/* Slot 314 */
-void
-Tcl_RestoreResult(interp, statePtr)
- Tcl_Interp * interp;
- Tcl_SavedResult * statePtr;
-{
- (tclStubsPtr->tcl_RestoreResult)(interp, statePtr);
-}
-
-/* Slot 315 */
-void
-Tcl_SaveResult(interp, statePtr)
- Tcl_Interp * interp;
- Tcl_SavedResult * statePtr;
-{
- (tclStubsPtr->tcl_SaveResult)(interp, statePtr);
-}
-
-/* Slot 316 */
-int
-Tcl_SetSystemEncoding(interp, name)
- Tcl_Interp * interp;
- CONST char * name;
-{
- return (tclStubsPtr->tcl_SetSystemEncoding)(interp, name);
-}
-
-/* Slot 317 */
-Tcl_Obj *
-Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags)
- Tcl_Interp * interp;
- char * part1;
- char * part2;
- Tcl_Obj * newValuePtr;
- int flags;
-{
- return (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags);
-}
-
-/* Slot 318 */
-void
-Tcl_ThreadAlert(threadId)
- Tcl_ThreadId threadId;
-{
- (tclStubsPtr->tcl_ThreadAlert)(threadId);
-}
-
-/* Slot 319 */
-void
-Tcl_ThreadQueueEvent(threadId, evPtr, position)
- Tcl_ThreadId threadId;
- Tcl_Event* evPtr;
- Tcl_QueuePosition position;
-{
- (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position);
-}
-
-/* Slot 320 */
-Tcl_UniChar
-Tcl_UniCharAtIndex(src, index)
- CONST char * src;
- int index;
-{
- return (tclStubsPtr->tcl_UniCharAtIndex)(src, index);
-}
-
-/* Slot 321 */
-Tcl_UniChar
-Tcl_UniCharToLower(ch)
- int ch;
-{
- return (tclStubsPtr->tcl_UniCharToLower)(ch);
-}
-
-/* Slot 322 */
-Tcl_UniChar
-Tcl_UniCharToTitle(ch)
- int ch;
-{
- return (tclStubsPtr->tcl_UniCharToTitle)(ch);
-}
-
-/* Slot 323 */
-Tcl_UniChar
-Tcl_UniCharToUpper(ch)
- int ch;
-{
- return (tclStubsPtr->tcl_UniCharToUpper)(ch);
-}
-
-/* Slot 324 */
-int
-Tcl_UniCharToUtf(ch, buf)
- int ch;
- char * buf;
-{
- return (tclStubsPtr->tcl_UniCharToUtf)(ch, buf);
-}
-
-/* Slot 325 */
-char *
-Tcl_UtfAtIndex(src, index)
- CONST char * src;
- int index;
-{
- return (tclStubsPtr->tcl_UtfAtIndex)(src, index);
-}
-
-/* Slot 326 */
-int
-Tcl_UtfCharComplete(src, len)
- CONST char * src;
- int len;
-{
- return (tclStubsPtr->tcl_UtfCharComplete)(src, len);
-}
-
-/* Slot 327 */
-int
-Tcl_UtfBackslash(src, readPtr, dst)
- CONST char * src;
- int * readPtr;
- char * dst;
-{
- return (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst);
-}
-
-/* Slot 328 */
-char *
-Tcl_UtfFindFirst(src, ch)
- CONST char * src;
- int ch;
-{
- return (tclStubsPtr->tcl_UtfFindFirst)(src, ch);
-}
-
-/* Slot 329 */
-char *
-Tcl_UtfFindLast(src, ch)
- CONST char * src;
- int ch;
-{
- return (tclStubsPtr->tcl_UtfFindLast)(src, ch);
-}
-
-/* Slot 330 */
-char *
-Tcl_UtfNext(src)
- CONST char * src;
-{
- return (tclStubsPtr->tcl_UtfNext)(src);
-}
-
-/* Slot 331 */
-char *
-Tcl_UtfPrev(src, start)
- CONST char * src;
- CONST char * start;
-{
- return (tclStubsPtr->tcl_UtfPrev)(src, start);
-}
-
-/* Slot 332 */
-int
-Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr)
- Tcl_Interp * interp;
- Tcl_Encoding encoding;
- CONST char * src;
- int srcLen;
- int flags;
- Tcl_EncodingState * statePtr;
- char * dst;
- int dstLen;
- int * srcReadPtr;
- int * dstWrotePtr;
- int * dstCharsPtr;
-{
- return (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr);
-}
-
-/* Slot 333 */
-char *
-Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr)
- Tcl_Encoding encoding;
- CONST char * src;
- int srcLen;
- Tcl_DString * dsPtr;
-{
- return (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr);
-}
-
-/* Slot 334 */
-int
-Tcl_UtfToLower(src)
- char * src;
-{
- return (tclStubsPtr->tcl_UtfToLower)(src);
-}
-
-/* Slot 335 */
-int
-Tcl_UtfToTitle(src)
- char * src;
-{
- return (tclStubsPtr->tcl_UtfToTitle)(src);
-}
-
-/* Slot 336 */
-int
-Tcl_UtfToUniChar(src, chPtr)
- CONST char * src;
- Tcl_UniChar * chPtr;
-{
- return (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr);
-}
-
-/* Slot 337 */
-int
-Tcl_UtfToUpper(src)
- char * src;
-{
- return (tclStubsPtr->tcl_UtfToUpper)(src);
-}
-
-/* Slot 338 */
-int
-Tcl_WriteChars(chan, src, srcLen)
- Tcl_Channel chan;
- CONST char * src;
- int srcLen;
-{
- return (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen);
-}
-
-/* Slot 339 */
-int
-Tcl_WriteObj(chan, objPtr)
- Tcl_Channel chan;
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_WriteObj)(chan, objPtr);
-}
-
-/* Slot 340 */
-char *
-Tcl_GetString(objPtr)
- Tcl_Obj * objPtr;
-{
- return (tclStubsPtr->tcl_GetString)(objPtr);
-}
-
-/* Slot 341 */
-char *
-Tcl_GetDefaultEncodingDir()
-{
- return (tclStubsPtr->tcl_GetDefaultEncodingDir)();
-}
-
-/* Slot 342 */
-void
-Tcl_SetDefaultEncodingDir(path)
- char * path;
-{
- (tclStubsPtr->tcl_SetDefaultEncodingDir)(path);
-}
-
-
-/* !END!: Do not edit above this line. */
+/* + * tclStubs.c -- + * + * This file contains the wrapper functions for the platform independent + * public Tcl API. + * + * Copyright (c) 1998-1999 by Scriptics Corporation. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * RCS: @(#) $Id: tclStubs.c,v 1.3.2.6 1999/03/14 18:56:11 stanton Exp $ + */ + +#include "tcl.h" + +/* + * Undefine function macros that will interfere with the defintions below. + */ + +#undef Tcl_Alloc +#undef Tcl_Free +#undef Tcl_Realloc +#undef Tcl_NewBooleanObj +#undef Tcl_NewByteArrayObj +#undef Tcl_NewDoubleObj +#undef Tcl_NewIntObj +#undef Tcl_NewListObj +#undef Tcl_NewLongObj +#undef Tcl_NewObj +#undef Tcl_NewStringObj +#undef Tcl_InitMemory +#undef Tcl_DumpActiveMemory +#undef Tcl_ValidateAllMemory +#undef Tcl_EvalObj +#undef Tcl_GlobalEvalObj +#undef Tcl_MutexLock +#undef Tcl_MutexUnlock +#undef Tcl_ConditionNotify +#undef Tcl_ConditionWait + +/* + * WARNING: This file is automatically generated by the tools/genStubs.tcl + * script. Any modifications to the function declarations below should be made + * in the generic/tcl.decls script. + */ + +/* !BEGIN!: Do not edit below this line. */ + +/* + * Exported stub functions: + */ + +/* Slot 0 */ +int +Tcl_PkgProvideEx(interp, name, version, clientData) + Tcl_Interp * interp; + char * name; + char * version; + ClientData clientData; +{ + return (tclStubsPtr->tcl_PkgProvideEx)(interp, name, version, clientData); +} + +/* Slot 1 */ +char * +Tcl_PkgRequireEx(interp, name, version, exact, clientDataPtr) + Tcl_Interp * interp; + char * name; + char * version; + int exact; + ClientData * clientDataPtr; +{ + return (tclStubsPtr->tcl_PkgRequireEx)(interp, name, version, exact, clientDataPtr); +} + +/* Slot 2 */ +void +Tcl_Panic TCL_VARARGS_DEF(char *,format) +{ + char * var; + va_list argList; + + var = (char *) TCL_VARARGS_START(char *,format,argList); + + (tclStubsPtr->tcl_PanicVA)(var, argList); + va_end(argList); +} + +/* Slot 3 */ +char * +Tcl_Alloc(size) + unsigned int size; +{ + return (tclStubsPtr->tcl_Alloc)(size); +} + +/* Slot 4 */ +void +Tcl_Free(ptr) + char * ptr; +{ + (tclStubsPtr->tcl_Free)(ptr); +} + +/* Slot 5 */ +char * +Tcl_Realloc(ptr, size) + char * ptr; + unsigned int size; +{ + return (tclStubsPtr->tcl_Realloc)(ptr, size); +} + +/* Slot 6 */ +char * +Tcl_DbCkalloc(size, file, line) + unsigned int size; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkalloc)(size, file, line); +} + +/* Slot 7 */ +int +Tcl_DbCkfree(ptr, file, line) + char * ptr; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkfree)(ptr, file, line); +} + +/* Slot 8 */ +char * +Tcl_DbCkrealloc(ptr, size, file, line) + char * ptr; + unsigned int size; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbCkrealloc)(ptr, size, file, line); +} + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 9 */ +void +Tcl_CreateFileHandler(fd, mask, proc, clientData) + int fd; + int mask; + Tcl_FileProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateFileHandler)(fd, mask, proc, clientData); +} + +#endif /* UNIX */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 10 */ +void +Tcl_DeleteFileHandler(fd) + int fd; +{ + (tclStubsPtr->tcl_DeleteFileHandler)(fd); +} + +#endif /* UNIX */ +/* Slot 11 */ +void +Tcl_SetTimer(timePtr) + Tcl_Time * timePtr; +{ + (tclStubsPtr->tcl_SetTimer)(timePtr); +} + +/* Slot 12 */ +void +Tcl_Sleep(ms) + int ms; +{ + (tclStubsPtr->tcl_Sleep)(ms); +} + +/* Slot 13 */ +int +Tcl_WaitForEvent(timePtr) + Tcl_Time * timePtr; +{ + return (tclStubsPtr->tcl_WaitForEvent)(timePtr); +} + +/* Slot 14 */ +int +Tcl_AppendAllObjTypes(interp, objPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_AppendAllObjTypes)(interp, objPtr); +} + +/* Slot 15 */ +void +Tcl_AppendStringsToObj TCL_VARARGS_DEF(Tcl_Obj *,objPtr) +{ + Tcl_Obj * var; + va_list argList; + + var = (Tcl_Obj *) TCL_VARARGS_START(Tcl_Obj *,objPtr,argList); + + (tclStubsPtr->tcl_AppendStringsToObjVA)(var, argList); + va_end(argList); +} + +/* Slot 16 */ +void +Tcl_AppendToObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + char * bytes; + int length; +{ + (tclStubsPtr->tcl_AppendToObj)(objPtr, bytes, length); +} + +/* Slot 17 */ +Tcl_Obj * +Tcl_ConcatObj(objc, objv) + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_ConcatObj)(objc, objv); +} + +/* Slot 18 */ +int +Tcl_ConvertToType(interp, objPtr, typePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + Tcl_ObjType * typePtr; +{ + return (tclStubsPtr->tcl_ConvertToType)(interp, objPtr, typePtr); +} + +/* Slot 19 */ +void +Tcl_DbDecrRefCount(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + (tclStubsPtr->tcl_DbDecrRefCount)(objPtr, file, line); +} + +/* Slot 20 */ +void +Tcl_DbIncrRefCount(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + (tclStubsPtr->tcl_DbIncrRefCount)(objPtr, file, line); +} + +/* Slot 21 */ +int +Tcl_DbIsShared(objPtr, file, line) + Tcl_Obj * objPtr; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbIsShared)(objPtr, file, line); +} + +/* Slot 22 */ +Tcl_Obj * +Tcl_DbNewBooleanObj(boolValue, file, line) + int boolValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewBooleanObj)(boolValue, file, line); +} + +/* Slot 23 */ +Tcl_Obj * +Tcl_DbNewByteArrayObj(bytes, length, file, line) + unsigned char * bytes; + int length; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewByteArrayObj)(bytes, length, file, line); +} + +/* Slot 24 */ +Tcl_Obj * +Tcl_DbNewDoubleObj(doubleValue, file, line) + double doubleValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewDoubleObj)(doubleValue, file, line); +} + +/* Slot 25 */ +Tcl_Obj * +Tcl_DbNewListObj(objc, objv, file, line) + int objc; + Tcl_Obj *CONST objv[]; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewListObj)(objc, objv, file, line); +} + +/* Slot 26 */ +Tcl_Obj * +Tcl_DbNewLongObj(longValue, file, line) + long longValue; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewLongObj)(longValue, file, line); +} + +/* Slot 27 */ +Tcl_Obj * +Tcl_DbNewObj(file, line) + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewObj)(file, line); +} + +/* Slot 28 */ +Tcl_Obj * +Tcl_DbNewStringObj(bytes, length, file, line) + CONST char * bytes; + int length; + char * file; + int line; +{ + return (tclStubsPtr->tcl_DbNewStringObj)(bytes, length, file, line); +} + +/* Slot 29 */ +Tcl_Obj * +Tcl_DuplicateObj(objPtr) + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_DuplicateObj)(objPtr); +} + +/* Slot 30 */ +void +TclFreeObj(objPtr) + Tcl_Obj * objPtr; +{ + (tclStubsPtr->tclFreeObj)(objPtr); +} + +/* Slot 31 */ +int +Tcl_GetBoolean(interp, string, boolPtr) + Tcl_Interp * interp; + char * string; + int * boolPtr; +{ + return (tclStubsPtr->tcl_GetBoolean)(interp, string, boolPtr); +} + +/* Slot 32 */ +int +Tcl_GetBooleanFromObj(interp, objPtr, boolPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * boolPtr; +{ + return (tclStubsPtr->tcl_GetBooleanFromObj)(interp, objPtr, boolPtr); +} + +/* Slot 33 */ +unsigned char * +Tcl_GetByteArrayFromObj(objPtr, lengthPtr) + Tcl_Obj * objPtr; + int * lengthPtr; +{ + return (tclStubsPtr->tcl_GetByteArrayFromObj)(objPtr, lengthPtr); +} + +/* Slot 34 */ +int +Tcl_GetDouble(interp, string, doublePtr) + Tcl_Interp * interp; + char * string; + double * doublePtr; +{ + return (tclStubsPtr->tcl_GetDouble)(interp, string, doublePtr); +} + +/* Slot 35 */ +int +Tcl_GetDoubleFromObj(interp, objPtr, doublePtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + double * doublePtr; +{ + return (tclStubsPtr->tcl_GetDoubleFromObj)(interp, objPtr, doublePtr); +} + +/* Slot 36 */ +int +Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + char ** tablePtr; + char * msg; + int flags; + int * indexPtr; +{ + return (tclStubsPtr->tcl_GetIndexFromObj)(interp, objPtr, tablePtr, msg, flags, indexPtr); +} + +/* Slot 37 */ +int +Tcl_GetInt(interp, string, intPtr) + Tcl_Interp * interp; + char * string; + int * intPtr; +{ + return (tclStubsPtr->tcl_GetInt)(interp, string, intPtr); +} + +/* Slot 38 */ +int +Tcl_GetIntFromObj(interp, objPtr, intPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * intPtr; +{ + return (tclStubsPtr->tcl_GetIntFromObj)(interp, objPtr, intPtr); +} + +/* Slot 39 */ +int +Tcl_GetLongFromObj(interp, objPtr, longPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + long * longPtr; +{ + return (tclStubsPtr->tcl_GetLongFromObj)(interp, objPtr, longPtr); +} + +/* Slot 40 */ +Tcl_ObjType * +Tcl_GetObjType(typeName) + char * typeName; +{ + return (tclStubsPtr->tcl_GetObjType)(typeName); +} + +/* Slot 41 */ +char * +Tcl_GetStringFromObj(objPtr, lengthPtr) + Tcl_Obj * objPtr; + int * lengthPtr; +{ + return (tclStubsPtr->tcl_GetStringFromObj)(objPtr, lengthPtr); +} + +/* Slot 42 */ +void +Tcl_InvalidateStringRep(objPtr) + Tcl_Obj * objPtr; +{ + (tclStubsPtr->tcl_InvalidateStringRep)(objPtr); +} + +/* Slot 43 */ +int +Tcl_ListObjAppendList(interp, listPtr, elemListPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + Tcl_Obj * elemListPtr; +{ + return (tclStubsPtr->tcl_ListObjAppendList)(interp, listPtr, elemListPtr); +} + +/* Slot 44 */ +int +Tcl_ListObjAppendElement(interp, listPtr, objPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_ListObjAppendElement)(interp, listPtr, objPtr); +} + +/* Slot 45 */ +int +Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int * objcPtr; + Tcl_Obj *** objvPtr; +{ + return (tclStubsPtr->tcl_ListObjGetElements)(interp, listPtr, objcPtr, objvPtr); +} + +/* Slot 46 */ +int +Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int index; + Tcl_Obj ** objPtrPtr; +{ + return (tclStubsPtr->tcl_ListObjIndex)(interp, listPtr, index, objPtrPtr); +} + +/* Slot 47 */ +int +Tcl_ListObjLength(interp, listPtr, intPtr) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int * intPtr; +{ + return (tclStubsPtr->tcl_ListObjLength)(interp, listPtr, intPtr); +} + +/* Slot 48 */ +int +Tcl_ListObjReplace(interp, listPtr, first, count, objc, objv) + Tcl_Interp * interp; + Tcl_Obj * listPtr; + int first; + int count; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_ListObjReplace)(interp, listPtr, first, count, objc, objv); +} + +/* Slot 49 */ +Tcl_Obj * +Tcl_NewBooleanObj(boolValue) + int boolValue; +{ + return (tclStubsPtr->tcl_NewBooleanObj)(boolValue); +} + +/* Slot 50 */ +Tcl_Obj * +Tcl_NewByteArrayObj(bytes, length) + unsigned char * bytes; + int length; +{ + return (tclStubsPtr->tcl_NewByteArrayObj)(bytes, length); +} + +/* Slot 51 */ +Tcl_Obj * +Tcl_NewDoubleObj(doubleValue) + double doubleValue; +{ + return (tclStubsPtr->tcl_NewDoubleObj)(doubleValue); +} + +/* Slot 52 */ +Tcl_Obj * +Tcl_NewIntObj(intValue) + int intValue; +{ + return (tclStubsPtr->tcl_NewIntObj)(intValue); +} + +/* Slot 53 */ +Tcl_Obj * +Tcl_NewListObj(objc, objv) + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_NewListObj)(objc, objv); +} + +/* Slot 54 */ +Tcl_Obj * +Tcl_NewLongObj(longValue) + long longValue; +{ + return (tclStubsPtr->tcl_NewLongObj)(longValue); +} + +/* Slot 55 */ +Tcl_Obj * +Tcl_NewObj() +{ + return (tclStubsPtr->tcl_NewObj)(); +} + +/* Slot 56 */ +Tcl_Obj * +Tcl_NewStringObj(bytes, length) + CONST char * bytes; + int length; +{ + return (tclStubsPtr->tcl_NewStringObj)(bytes, length); +} + +/* Slot 57 */ +void +Tcl_SetBooleanObj(objPtr, boolValue) + Tcl_Obj * objPtr; + int boolValue; +{ + (tclStubsPtr->tcl_SetBooleanObj)(objPtr, boolValue); +} + +/* Slot 58 */ +unsigned char * +Tcl_SetByteArrayLength(objPtr, length) + Tcl_Obj * objPtr; + int length; +{ + return (tclStubsPtr->tcl_SetByteArrayLength)(objPtr, length); +} + +/* Slot 59 */ +void +Tcl_SetByteArrayObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + unsigned char * bytes; + int length; +{ + (tclStubsPtr->tcl_SetByteArrayObj)(objPtr, bytes, length); +} + +/* Slot 60 */ +void +Tcl_SetDoubleObj(objPtr, doubleValue) + Tcl_Obj * objPtr; + double doubleValue; +{ + (tclStubsPtr->tcl_SetDoubleObj)(objPtr, doubleValue); +} + +/* Slot 61 */ +void +Tcl_SetIntObj(objPtr, intValue) + Tcl_Obj * objPtr; + int intValue; +{ + (tclStubsPtr->tcl_SetIntObj)(objPtr, intValue); +} + +/* Slot 62 */ +void +Tcl_SetListObj(objPtr, objc, objv) + Tcl_Obj * objPtr; + int objc; + Tcl_Obj *CONST objv[]; +{ + (tclStubsPtr->tcl_SetListObj)(objPtr, objc, objv); +} + +/* Slot 63 */ +void +Tcl_SetLongObj(objPtr, longValue) + Tcl_Obj * objPtr; + long longValue; +{ + (tclStubsPtr->tcl_SetLongObj)(objPtr, longValue); +} + +/* Slot 64 */ +void +Tcl_SetObjLength(objPtr, length) + Tcl_Obj * objPtr; + int length; +{ + (tclStubsPtr->tcl_SetObjLength)(objPtr, length); +} + +/* Slot 65 */ +void +Tcl_SetStringObj(objPtr, bytes, length) + Tcl_Obj * objPtr; + char * bytes; + int length; +{ + (tclStubsPtr->tcl_SetStringObj)(objPtr, bytes, length); +} + +/* Slot 66 */ +void +Tcl_AddErrorInfo(interp, message) + Tcl_Interp * interp; + CONST char * message; +{ + (tclStubsPtr->tcl_AddErrorInfo)(interp, message); +} + +/* Slot 67 */ +void +Tcl_AddObjErrorInfo(interp, message, length) + Tcl_Interp * interp; + CONST char * message; + int length; +{ + (tclStubsPtr->tcl_AddObjErrorInfo)(interp, message, length); +} + +/* Slot 68 */ +void +Tcl_AllowExceptions(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_AllowExceptions)(interp); +} + +/* Slot 69 */ +void +Tcl_AppendElement(interp, string) + Tcl_Interp * interp; + CONST char * string; +{ + (tclStubsPtr->tcl_AppendElement)(interp, string); +} + +/* Slot 70 */ +void +Tcl_AppendResult TCL_VARARGS_DEF(Tcl_Interp *,interp) +{ + Tcl_Interp * var; + va_list argList; + + var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); + + (tclStubsPtr->tcl_AppendResultVA)(var, argList); + va_end(argList); +} + +/* Slot 71 */ +Tcl_AsyncHandler +Tcl_AsyncCreate(proc, clientData) + Tcl_AsyncProc * proc; + ClientData clientData; +{ + return (tclStubsPtr->tcl_AsyncCreate)(proc, clientData); +} + +/* Slot 72 */ +void +Tcl_AsyncDelete(async) + Tcl_AsyncHandler async; +{ + (tclStubsPtr->tcl_AsyncDelete)(async); +} + +/* Slot 73 */ +int +Tcl_AsyncInvoke(interp, code) + Tcl_Interp * interp; + int code; +{ + return (tclStubsPtr->tcl_AsyncInvoke)(interp, code); +} + +/* Slot 74 */ +void +Tcl_AsyncMark(async) + Tcl_AsyncHandler async; +{ + (tclStubsPtr->tcl_AsyncMark)(async); +} + +/* Slot 75 */ +int +Tcl_AsyncReady() +{ + return (tclStubsPtr->tcl_AsyncReady)(); +} + +/* Slot 76 */ +void +Tcl_BackgroundError(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_BackgroundError)(interp); +} + +/* Slot 77 */ +char +Tcl_Backslash(src, readPtr) + CONST char * src; + int * readPtr; +{ + return (tclStubsPtr->tcl_Backslash)(src, readPtr); +} + +/* Slot 78 */ +int +Tcl_BadChannelOption(interp, optionName, optionList) + Tcl_Interp * interp; + char * optionName; + char * optionList; +{ + return (tclStubsPtr->tcl_BadChannelOption)(interp, optionName, optionList); +} + +/* Slot 79 */ +void +Tcl_CallWhenDeleted(interp, proc, clientData) + Tcl_Interp * interp; + Tcl_InterpDeleteProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CallWhenDeleted)(interp, proc, clientData); +} + +/* Slot 80 */ +void +Tcl_CancelIdleCall(idleProc, clientData) + Tcl_IdleProc * idleProc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CancelIdleCall)(idleProc, clientData); +} + +/* Slot 81 */ +int +Tcl_Close(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_Close)(interp, chan); +} + +/* Slot 82 */ +int +Tcl_CommandComplete(cmd) + char * cmd; +{ + return (tclStubsPtr->tcl_CommandComplete)(cmd); +} + +/* Slot 83 */ +char * +Tcl_Concat(argc, argv) + int argc; + char ** argv; +{ + return (tclStubsPtr->tcl_Concat)(argc, argv); +} + +/* Slot 84 */ +int +Tcl_ConvertElement(src, dst, flags) + CONST char * src; + char * dst; + int flags; +{ + return (tclStubsPtr->tcl_ConvertElement)(src, dst, flags); +} + +/* Slot 85 */ +int +Tcl_ConvertCountedElement(src, length, dst, flags) + CONST char * src; + int length; + char * dst; + int flags; +{ + return (tclStubsPtr->tcl_ConvertCountedElement)(src, length, dst, flags); +} + +/* Slot 86 */ +int +Tcl_CreateAlias(slave, slaveCmd, target, targetCmd, argc, argv) + Tcl_Interp * slave; + char * slaveCmd; + Tcl_Interp * target; + char * targetCmd; + int argc; + char ** argv; +{ + return (tclStubsPtr->tcl_CreateAlias)(slave, slaveCmd, target, targetCmd, argc, argv); +} + +/* Slot 87 */ +int +Tcl_CreateAliasObj(slave, slaveCmd, target, targetCmd, objc, objv) + Tcl_Interp * slave; + char * slaveCmd; + Tcl_Interp * target; + char * targetCmd; + int objc; + Tcl_Obj *CONST objv[]; +{ + return (tclStubsPtr->tcl_CreateAliasObj)(slave, slaveCmd, target, targetCmd, objc, objv); +} + +/* Slot 88 */ +Tcl_Channel +Tcl_CreateChannel(typePtr, chanName, instanceData, mask) + Tcl_ChannelType * typePtr; + char * chanName; + ClientData instanceData; + int mask; +{ + return (tclStubsPtr->tcl_CreateChannel)(typePtr, chanName, instanceData, mask); +} + +/* Slot 89 */ +void +Tcl_CreateChannelHandler(chan, mask, proc, clientData) + Tcl_Channel chan; + int mask; + Tcl_ChannelProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateChannelHandler)(chan, mask, proc, clientData); +} + +/* Slot 90 */ +void +Tcl_CreateCloseHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_CloseProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateCloseHandler)(chan, proc, clientData); +} + +/* Slot 91 */ +Tcl_Command +Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc) + Tcl_Interp * interp; + char * cmdName; + Tcl_CmdProc * proc; + ClientData clientData; + Tcl_CmdDeleteProc * deleteProc; +{ + return (tclStubsPtr->tcl_CreateCommand)(interp, cmdName, proc, clientData, deleteProc); +} + +/* Slot 92 */ +void +Tcl_CreateEventSource(setupProc, checkProc, clientData) + Tcl_EventSetupProc * setupProc; + Tcl_EventCheckProc * checkProc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateEventSource)(setupProc, checkProc, clientData); +} + +/* Slot 93 */ +void +Tcl_CreateExitHandler(proc, clientData) + Tcl_ExitProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateExitHandler)(proc, clientData); +} + +/* Slot 94 */ +Tcl_Interp * +Tcl_CreateInterp() +{ + return (tclStubsPtr->tcl_CreateInterp)(); +} + +/* Slot 95 */ +void +Tcl_CreateMathFunc(interp, name, numArgs, argTypes, proc, clientData) + Tcl_Interp * interp; + char * name; + int numArgs; + Tcl_ValueType * argTypes; + Tcl_MathProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateMathFunc)(interp, name, numArgs, argTypes, proc, clientData); +} + +/* Slot 96 */ +Tcl_Command +Tcl_CreateObjCommand(interp, cmdName, proc, clientData, deleteProc) + Tcl_Interp * interp; + char * cmdName; + Tcl_ObjCmdProc * proc; + ClientData clientData; + Tcl_CmdDeleteProc * deleteProc; +{ + return (tclStubsPtr->tcl_CreateObjCommand)(interp, cmdName, proc, clientData, deleteProc); +} + +/* Slot 97 */ +Tcl_Interp * +Tcl_CreateSlave(interp, slaveName, isSafe) + Tcl_Interp * interp; + char * slaveName; + int isSafe; +{ + return (tclStubsPtr->tcl_CreateSlave)(interp, slaveName, isSafe); +} + +/* Slot 98 */ +Tcl_TimerToken +Tcl_CreateTimerHandler(milliseconds, proc, clientData) + int milliseconds; + Tcl_TimerProc * proc; + ClientData clientData; +{ + return (tclStubsPtr->tcl_CreateTimerHandler)(milliseconds, proc, clientData); +} + +/* Slot 99 */ +Tcl_Trace +Tcl_CreateTrace(interp, level, proc, clientData) + Tcl_Interp * interp; + int level; + Tcl_CmdTraceProc * proc; + ClientData clientData; +{ + return (tclStubsPtr->tcl_CreateTrace)(interp, level, proc, clientData); +} + +/* Slot 100 */ +void +Tcl_DeleteAssocData(interp, name) + Tcl_Interp * interp; + char * name; +{ + (tclStubsPtr->tcl_DeleteAssocData)(interp, name); +} + +/* Slot 101 */ +void +Tcl_DeleteChannelHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_ChannelProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DeleteChannelHandler)(chan, proc, clientData); +} + +/* Slot 102 */ +void +Tcl_DeleteCloseHandler(chan, proc, clientData) + Tcl_Channel chan; + Tcl_CloseProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DeleteCloseHandler)(chan, proc, clientData); +} + +/* Slot 103 */ +int +Tcl_DeleteCommand(interp, cmdName) + Tcl_Interp * interp; + char * cmdName; +{ + return (tclStubsPtr->tcl_DeleteCommand)(interp, cmdName); +} + +/* Slot 104 */ +int +Tcl_DeleteCommandFromToken(interp, command) + Tcl_Interp * interp; + Tcl_Command command; +{ + return (tclStubsPtr->tcl_DeleteCommandFromToken)(interp, command); +} + +/* Slot 105 */ +void +Tcl_DeleteEvents(proc, clientData) + Tcl_EventDeleteProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DeleteEvents)(proc, clientData); +} + +/* Slot 106 */ +void +Tcl_DeleteEventSource(setupProc, checkProc, clientData) + Tcl_EventSetupProc * setupProc; + Tcl_EventCheckProc * checkProc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DeleteEventSource)(setupProc, checkProc, clientData); +} + +/* Slot 107 */ +void +Tcl_DeleteExitHandler(proc, clientData) + Tcl_ExitProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DeleteExitHandler)(proc, clientData); +} + +/* Slot 108 */ +void +Tcl_DeleteHashEntry(entryPtr) + Tcl_HashEntry * entryPtr; +{ + (tclStubsPtr->tcl_DeleteHashEntry)(entryPtr); +} + +/* Slot 109 */ +void +Tcl_DeleteHashTable(tablePtr) + Tcl_HashTable * tablePtr; +{ + (tclStubsPtr->tcl_DeleteHashTable)(tablePtr); +} + +/* Slot 110 */ +void +Tcl_DeleteInterp(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_DeleteInterp)(interp); +} + +/* Slot 111 */ +void +Tcl_DetachPids(numPids, pidPtr) + int numPids; + Tcl_Pid * pidPtr; +{ + (tclStubsPtr->tcl_DetachPids)(numPids, pidPtr); +} + +/* Slot 112 */ +void +Tcl_DeleteTimerHandler(token) + Tcl_TimerToken token; +{ + (tclStubsPtr->tcl_DeleteTimerHandler)(token); +} + +/* Slot 113 */ +void +Tcl_DeleteTrace(interp, trace) + Tcl_Interp * interp; + Tcl_Trace trace; +{ + (tclStubsPtr->tcl_DeleteTrace)(interp, trace); +} + +/* Slot 114 */ +void +Tcl_DontCallWhenDeleted(interp, proc, clientData) + Tcl_Interp * interp; + Tcl_InterpDeleteProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DontCallWhenDeleted)(interp, proc, clientData); +} + +/* Slot 115 */ +int +Tcl_DoOneEvent(flags) + int flags; +{ + return (tclStubsPtr->tcl_DoOneEvent)(flags); +} + +/* Slot 116 */ +void +Tcl_DoWhenIdle(proc, clientData) + Tcl_IdleProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DoWhenIdle)(proc, clientData); +} + +/* Slot 117 */ +char * +Tcl_DStringAppend(dsPtr, string, length) + Tcl_DString * dsPtr; + CONST char * string; + int length; +{ + return (tclStubsPtr->tcl_DStringAppend)(dsPtr, string, length); +} + +/* Slot 118 */ +char * +Tcl_DStringAppendElement(dsPtr, string) + Tcl_DString * dsPtr; + CONST char * string; +{ + return (tclStubsPtr->tcl_DStringAppendElement)(dsPtr, string); +} + +/* Slot 119 */ +void +Tcl_DStringEndSublist(dsPtr) + Tcl_DString * dsPtr; +{ + (tclStubsPtr->tcl_DStringEndSublist)(dsPtr); +} + +/* Slot 120 */ +void +Tcl_DStringFree(dsPtr) + Tcl_DString * dsPtr; +{ + (tclStubsPtr->tcl_DStringFree)(dsPtr); +} + +/* Slot 121 */ +void +Tcl_DStringGetResult(interp, dsPtr) + Tcl_Interp * interp; + Tcl_DString * dsPtr; +{ + (tclStubsPtr->tcl_DStringGetResult)(interp, dsPtr); +} + +/* Slot 122 */ +void +Tcl_DStringInit(dsPtr) + Tcl_DString * dsPtr; +{ + (tclStubsPtr->tcl_DStringInit)(dsPtr); +} + +/* Slot 123 */ +void +Tcl_DStringResult(interp, dsPtr) + Tcl_Interp * interp; + Tcl_DString * dsPtr; +{ + (tclStubsPtr->tcl_DStringResult)(interp, dsPtr); +} + +/* Slot 124 */ +void +Tcl_DStringSetLength(dsPtr, length) + Tcl_DString * dsPtr; + int length; +{ + (tclStubsPtr->tcl_DStringSetLength)(dsPtr, length); +} + +/* Slot 125 */ +void +Tcl_DStringStartSublist(dsPtr) + Tcl_DString * dsPtr; +{ + (tclStubsPtr->tcl_DStringStartSublist)(dsPtr); +} + +/* Slot 126 */ +int +Tcl_Eof(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_Eof)(chan); +} + +/* Slot 127 */ +char * +Tcl_ErrnoId() +{ + return (tclStubsPtr->tcl_ErrnoId)(); +} + +/* Slot 128 */ +char * +Tcl_ErrnoMsg(err) + int err; +{ + return (tclStubsPtr->tcl_ErrnoMsg)(err); +} + +/* Slot 129 */ +int +Tcl_Eval(interp, string) + Tcl_Interp * interp; + char * string; +{ + return (tclStubsPtr->tcl_Eval)(interp, string); +} + +/* Slot 130 */ +int +Tcl_EvalFile(interp, fileName) + Tcl_Interp * interp; + char * fileName; +{ + return (tclStubsPtr->tcl_EvalFile)(interp, fileName); +} + +/* Slot 131 */ +int +Tcl_EvalObj(interp, objPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_EvalObj)(interp, objPtr); +} + +/* Slot 132 */ +void +Tcl_EventuallyFree(clientData, freeProc) + ClientData clientData; + Tcl_FreeProc * freeProc; +{ + (tclStubsPtr->tcl_EventuallyFree)(clientData, freeProc); +} + +/* Slot 133 */ +void +Tcl_Exit(status) + int status; +{ + (tclStubsPtr->tcl_Exit)(status); +} + +/* Slot 134 */ +int +Tcl_ExposeCommand(interp, hiddenCmdToken, cmdName) + Tcl_Interp * interp; + char * hiddenCmdToken; + char * cmdName; +{ + return (tclStubsPtr->tcl_ExposeCommand)(interp, hiddenCmdToken, cmdName); +} + +/* Slot 135 */ +int +Tcl_ExprBoolean(interp, string, ptr) + Tcl_Interp * interp; + char * string; + int * ptr; +{ + return (tclStubsPtr->tcl_ExprBoolean)(interp, string, ptr); +} + +/* Slot 136 */ +int +Tcl_ExprBooleanObj(interp, objPtr, ptr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int * ptr; +{ + return (tclStubsPtr->tcl_ExprBooleanObj)(interp, objPtr, ptr); +} + +/* Slot 137 */ +int +Tcl_ExprDouble(interp, string, ptr) + Tcl_Interp * interp; + char * string; + double * ptr; +{ + return (tclStubsPtr->tcl_ExprDouble)(interp, string, ptr); +} + +/* Slot 138 */ +int +Tcl_ExprDoubleObj(interp, objPtr, ptr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + double * ptr; +{ + return (tclStubsPtr->tcl_ExprDoubleObj)(interp, objPtr, ptr); +} + +/* Slot 139 */ +int +Tcl_ExprLong(interp, string, ptr) + Tcl_Interp * interp; + char * string; + long * ptr; +{ + return (tclStubsPtr->tcl_ExprLong)(interp, string, ptr); +} + +/* Slot 140 */ +int +Tcl_ExprLongObj(interp, objPtr, ptr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + long * ptr; +{ + return (tclStubsPtr->tcl_ExprLongObj)(interp, objPtr, ptr); +} + +/* Slot 141 */ +int +Tcl_ExprObj(interp, objPtr, resultPtrPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + Tcl_Obj ** resultPtrPtr; +{ + return (tclStubsPtr->tcl_ExprObj)(interp, objPtr, resultPtrPtr); +} + +/* Slot 142 */ +int +Tcl_ExprString(interp, string) + Tcl_Interp * interp; + char * string; +{ + return (tclStubsPtr->tcl_ExprString)(interp, string); +} + +/* Slot 143 */ +void +Tcl_Finalize() +{ + (tclStubsPtr->tcl_Finalize)(); +} + +/* Slot 144 */ +void +Tcl_FindExecutable(argv0) + CONST char * argv0; +{ + (tclStubsPtr->tcl_FindExecutable)(argv0); +} + +/* Slot 145 */ +Tcl_HashEntry * +Tcl_FirstHashEntry(tablePtr, searchPtr) + Tcl_HashTable * tablePtr; + Tcl_HashSearch * searchPtr; +{ + return (tclStubsPtr->tcl_FirstHashEntry)(tablePtr, searchPtr); +} + +/* Slot 146 */ +int +Tcl_Flush(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_Flush)(chan); +} + +/* Slot 147 */ +void +Tcl_FreeResult(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_FreeResult)(interp); +} + +/* Slot 148 */ +int +Tcl_GetAlias(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr) + Tcl_Interp * interp; + char * slaveCmd; + Tcl_Interp ** targetInterpPtr; + char ** targetCmdPtr; + int * argcPtr; + char *** argvPtr; +{ + return (tclStubsPtr->tcl_GetAlias)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, argcPtr, argvPtr); +} + +/* Slot 149 */ +int +Tcl_GetAliasObj(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv) + Tcl_Interp * interp; + char * slaveCmd; + Tcl_Interp ** targetInterpPtr; + char ** targetCmdPtr; + int * objcPtr; + Tcl_Obj *** objv; +{ + return (tclStubsPtr->tcl_GetAliasObj)(interp, slaveCmd, targetInterpPtr, targetCmdPtr, objcPtr, objv); +} + +/* Slot 150 */ +ClientData +Tcl_GetAssocData(interp, name, procPtr) + Tcl_Interp * interp; + char * name; + Tcl_InterpDeleteProc ** procPtr; +{ + return (tclStubsPtr->tcl_GetAssocData)(interp, name, procPtr); +} + +/* Slot 151 */ +Tcl_Channel +Tcl_GetChannel(interp, chanName, modePtr) + Tcl_Interp * interp; + char * chanName; + int * modePtr; +{ + return (tclStubsPtr->tcl_GetChannel)(interp, chanName, modePtr); +} + +/* Slot 152 */ +int +Tcl_GetChannelBufferSize(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_GetChannelBufferSize)(chan); +} + +/* Slot 153 */ +int +Tcl_GetChannelHandle(chan, direction, handlePtr) + Tcl_Channel chan; + int direction; + ClientData * handlePtr; +{ + return (tclStubsPtr->tcl_GetChannelHandle)(chan, direction, handlePtr); +} + +/* Slot 154 */ +ClientData +Tcl_GetChannelInstanceData(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_GetChannelInstanceData)(chan); +} + +/* Slot 155 */ +int +Tcl_GetChannelMode(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_GetChannelMode)(chan); +} + +/* Slot 156 */ +char * +Tcl_GetChannelName(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_GetChannelName)(chan); +} + +/* Slot 157 */ +int +Tcl_GetChannelOption(interp, chan, optionName, dsPtr) + Tcl_Interp * interp; + Tcl_Channel chan; + char * optionName; + Tcl_DString * dsPtr; +{ + return (tclStubsPtr->tcl_GetChannelOption)(interp, chan, optionName, dsPtr); +} + +/* Slot 158 */ +Tcl_ChannelType * +Tcl_GetChannelType(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_GetChannelType)(chan); +} + +/* Slot 159 */ +int +Tcl_GetCommandInfo(interp, cmdName, infoPtr) + Tcl_Interp * interp; + char * cmdName; + Tcl_CmdInfo * infoPtr; +{ + return (tclStubsPtr->tcl_GetCommandInfo)(interp, cmdName, infoPtr); +} + +/* Slot 160 */ +char * +Tcl_GetCommandName(interp, command) + Tcl_Interp * interp; + Tcl_Command command; +{ + return (tclStubsPtr->tcl_GetCommandName)(interp, command); +} + +/* Slot 161 */ +int +Tcl_GetErrno() +{ + return (tclStubsPtr->tcl_GetErrno)(); +} + +/* Slot 162 */ +char * +Tcl_GetHostName() +{ + return (tclStubsPtr->tcl_GetHostName)(); +} + +/* Slot 163 */ +int +Tcl_GetInterpPath(askInterp, slaveInterp) + Tcl_Interp * askInterp; + Tcl_Interp * slaveInterp; +{ + return (tclStubsPtr->tcl_GetInterpPath)(askInterp, slaveInterp); +} + +/* Slot 164 */ +Tcl_Interp * +Tcl_GetMaster(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_GetMaster)(interp); +} + +/* Slot 165 */ +CONST char * +Tcl_GetNameOfExecutable() +{ + return (tclStubsPtr->tcl_GetNameOfExecutable)(); +} + +/* Slot 166 */ +Tcl_Obj * +Tcl_GetObjResult(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_GetObjResult)(interp); +} + +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +/* Slot 167 */ +int +Tcl_GetOpenFile(interp, string, write, checkUsage, filePtr) + Tcl_Interp * interp; + char * string; + int write; + int checkUsage; + ClientData * filePtr; +{ + return (tclStubsPtr->tcl_GetOpenFile)(interp, string, write, checkUsage, filePtr); +} + +#endif /* UNIX */ +/* Slot 168 */ +Tcl_PathType +Tcl_GetPathType(path) + char * path; +{ + return (tclStubsPtr->tcl_GetPathType)(path); +} + +/* Slot 169 */ +int +Tcl_Gets(chan, dsPtr) + Tcl_Channel chan; + Tcl_DString * dsPtr; +{ + return (tclStubsPtr->tcl_Gets)(chan, dsPtr); +} + +/* Slot 170 */ +int +Tcl_GetsObj(chan, objPtr) + Tcl_Channel chan; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_GetsObj)(chan, objPtr); +} + +/* Slot 171 */ +int +Tcl_GetServiceMode() +{ + return (tclStubsPtr->tcl_GetServiceMode)(); +} + +/* Slot 172 */ +Tcl_Interp * +Tcl_GetSlave(interp, slaveName) + Tcl_Interp * interp; + char * slaveName; +{ + return (tclStubsPtr->tcl_GetSlave)(interp, slaveName); +} + +/* Slot 173 */ +Tcl_Channel +Tcl_GetStdChannel(type) + int type; +{ + return (tclStubsPtr->tcl_GetStdChannel)(type); +} + +/* Slot 174 */ +char * +Tcl_GetStringResult(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_GetStringResult)(interp); +} + +/* Slot 175 */ +char * +Tcl_GetVar(interp, varName, flags) + Tcl_Interp * interp; + char * varName; + int flags; +{ + return (tclStubsPtr->tcl_GetVar)(interp, varName, flags); +} + +/* Slot 176 */ +char * +Tcl_GetVar2(interp, part1, part2, flags) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; +{ + return (tclStubsPtr->tcl_GetVar2)(interp, part1, part2, flags); +} + +/* Slot 177 */ +int +Tcl_GlobalEval(interp, command) + Tcl_Interp * interp; + char * command; +{ + return (tclStubsPtr->tcl_GlobalEval)(interp, command); +} + +/* Slot 178 */ +int +Tcl_GlobalEvalObj(interp, objPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_GlobalEvalObj)(interp, objPtr); +} + +/* Slot 179 */ +int +Tcl_HideCommand(interp, cmdName, hiddenCmdToken) + Tcl_Interp * interp; + char * cmdName; + char * hiddenCmdToken; +{ + return (tclStubsPtr->tcl_HideCommand)(interp, cmdName, hiddenCmdToken); +} + +/* Slot 180 */ +int +Tcl_Init(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_Init)(interp); +} + +/* Slot 181 */ +void +Tcl_InitHashTable(tablePtr, keyType) + Tcl_HashTable * tablePtr; + int keyType; +{ + (tclStubsPtr->tcl_InitHashTable)(tablePtr, keyType); +} + +/* Slot 182 */ +int +Tcl_InputBlocked(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_InputBlocked)(chan); +} + +/* Slot 183 */ +int +Tcl_InputBuffered(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_InputBuffered)(chan); +} + +/* Slot 184 */ +int +Tcl_InterpDeleted(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_InterpDeleted)(interp); +} + +/* Slot 185 */ +int +Tcl_IsSafe(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_IsSafe)(interp); +} + +/* Slot 186 */ +char * +Tcl_JoinPath(argc, argv, resultPtr) + int argc; + char ** argv; + Tcl_DString * resultPtr; +{ + return (tclStubsPtr->tcl_JoinPath)(argc, argv, resultPtr); +} + +/* Slot 187 */ +int +Tcl_LinkVar(interp, varName, addr, type) + Tcl_Interp * interp; + char * varName; + char * addr; + int type; +{ + return (tclStubsPtr->tcl_LinkVar)(interp, varName, addr, type); +} + +/* Slot 188 is reserved */ +/* Slot 189 */ +Tcl_Channel +Tcl_MakeFileChannel(handle, mode) + ClientData handle; + int mode; +{ + return (tclStubsPtr->tcl_MakeFileChannel)(handle, mode); +} + +/* Slot 190 */ +int +Tcl_MakeSafe(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_MakeSafe)(interp); +} + +/* Slot 191 */ +Tcl_Channel +Tcl_MakeTcpClientChannel(tcpSocket) + ClientData tcpSocket; +{ + return (tclStubsPtr->tcl_MakeTcpClientChannel)(tcpSocket); +} + +/* Slot 192 */ +char * +Tcl_Merge(argc, argv) + int argc; + char ** argv; +{ + return (tclStubsPtr->tcl_Merge)(argc, argv); +} + +/* Slot 193 */ +Tcl_HashEntry * +Tcl_NextHashEntry(searchPtr) + Tcl_HashSearch * searchPtr; +{ + return (tclStubsPtr->tcl_NextHashEntry)(searchPtr); +} + +/* Slot 194 */ +void +Tcl_NotifyChannel(channel, mask) + Tcl_Channel channel; + int mask; +{ + (tclStubsPtr->tcl_NotifyChannel)(channel, mask); +} + +/* Slot 195 */ +Tcl_Obj * +Tcl_ObjGetVar2(interp, part1Ptr, part2Ptr, flags) + Tcl_Interp * interp; + Tcl_Obj * part1Ptr; + Tcl_Obj * part2Ptr; + int flags; +{ + return (tclStubsPtr->tcl_ObjGetVar2)(interp, part1Ptr, part2Ptr, flags); +} + +/* Slot 196 */ +Tcl_Obj * +Tcl_ObjSetVar2(interp, part1Ptr, part2Ptr, newValuePtr, flags) + Tcl_Interp * interp; + Tcl_Obj * part1Ptr; + Tcl_Obj * part2Ptr; + Tcl_Obj * newValuePtr; + int flags; +{ + return (tclStubsPtr->tcl_ObjSetVar2)(interp, part1Ptr, part2Ptr, newValuePtr, flags); +} + +/* Slot 197 */ +Tcl_Channel +Tcl_OpenCommandChannel(interp, argc, argv, flags) + Tcl_Interp * interp; + int argc; + char ** argv; + int flags; +{ + return (tclStubsPtr->tcl_OpenCommandChannel)(interp, argc, argv, flags); +} + +/* Slot 198 */ +Tcl_Channel +Tcl_OpenFileChannel(interp, fileName, modeString, permissions) + Tcl_Interp * interp; + char * fileName; + char * modeString; + int permissions; +{ + return (tclStubsPtr->tcl_OpenFileChannel)(interp, fileName, modeString, permissions); +} + +/* Slot 199 */ +Tcl_Channel +Tcl_OpenTcpClient(interp, port, address, myaddr, myport, async) + Tcl_Interp * interp; + int port; + char * address; + char * myaddr; + int myport; + int async; +{ + return (tclStubsPtr->tcl_OpenTcpClient)(interp, port, address, myaddr, myport, async); +} + +/* Slot 200 */ +Tcl_Channel +Tcl_OpenTcpServer(interp, port, host, acceptProc, callbackData) + Tcl_Interp * interp; + int port; + char * host; + Tcl_TcpAcceptProc * acceptProc; + ClientData callbackData; +{ + return (tclStubsPtr->tcl_OpenTcpServer)(interp, port, host, acceptProc, callbackData); +} + +/* Slot 201 */ +void +Tcl_Preserve(data) + ClientData data; +{ + (tclStubsPtr->tcl_Preserve)(data); +} + +/* Slot 202 */ +void +Tcl_PrintDouble(interp, value, dst) + Tcl_Interp * interp; + double value; + char * dst; +{ + (tclStubsPtr->tcl_PrintDouble)(interp, value, dst); +} + +/* Slot 203 */ +int +Tcl_PutEnv(string) + CONST char * string; +{ + return (tclStubsPtr->tcl_PutEnv)(string); +} + +/* Slot 204 */ +char * +Tcl_PosixError(interp) + Tcl_Interp * interp; +{ + return (tclStubsPtr->tcl_PosixError)(interp); +} + +/* Slot 205 */ +void +Tcl_QueueEvent(evPtr, position) + Tcl_Event * evPtr; + Tcl_QueuePosition position; +{ + (tclStubsPtr->tcl_QueueEvent)(evPtr, position); +} + +/* Slot 206 */ +int +Tcl_Read(chan, bufPtr, toRead) + Tcl_Channel chan; + char * bufPtr; + int toRead; +{ + return (tclStubsPtr->tcl_Read)(chan, bufPtr, toRead); +} + +/* Slot 207 */ +void +Tcl_ReapDetachedProcs() +{ + (tclStubsPtr->tcl_ReapDetachedProcs)(); +} + +/* Slot 208 */ +int +Tcl_RecordAndEval(interp, cmd, flags) + Tcl_Interp * interp; + char * cmd; + int flags; +{ + return (tclStubsPtr->tcl_RecordAndEval)(interp, cmd, flags); +} + +/* Slot 209 */ +int +Tcl_RecordAndEvalObj(interp, cmdPtr, flags) + Tcl_Interp * interp; + Tcl_Obj * cmdPtr; + int flags; +{ + return (tclStubsPtr->tcl_RecordAndEvalObj)(interp, cmdPtr, flags); +} + +/* Slot 210 */ +void +Tcl_RegisterChannel(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + (tclStubsPtr->tcl_RegisterChannel)(interp, chan); +} + +/* Slot 211 */ +void +Tcl_RegisterObjType(typePtr) + Tcl_ObjType * typePtr; +{ + (tclStubsPtr->tcl_RegisterObjType)(typePtr); +} + +/* Slot 212 */ +Tcl_RegExp +Tcl_RegExpCompile(interp, string) + Tcl_Interp * interp; + char * string; +{ + return (tclStubsPtr->tcl_RegExpCompile)(interp, string); +} + +/* Slot 213 */ +int +Tcl_RegExpExec(interp, regexp, string, start) + Tcl_Interp * interp; + Tcl_RegExp regexp; + CONST char * string; + CONST char * start; +{ + return (tclStubsPtr->tcl_RegExpExec)(interp, regexp, string, start); +} + +/* Slot 214 */ +int +Tcl_RegExpMatch(interp, string, pattern) + Tcl_Interp * interp; + char * string; + char * pattern; +{ + return (tclStubsPtr->tcl_RegExpMatch)(interp, string, pattern); +} + +/* Slot 215 */ +void +Tcl_RegExpRange(regexp, index, startPtr, endPtr) + Tcl_RegExp regexp; + int index; + char ** startPtr; + char ** endPtr; +{ + (tclStubsPtr->tcl_RegExpRange)(regexp, index, startPtr, endPtr); +} + +/* Slot 216 */ +void +Tcl_Release(clientData) + ClientData clientData; +{ + (tclStubsPtr->tcl_Release)(clientData); +} + +/* Slot 217 */ +void +Tcl_ResetResult(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_ResetResult)(interp); +} + +/* Slot 218 */ +int +Tcl_ScanElement(string, flagPtr) + CONST char * string; + int * flagPtr; +{ + return (tclStubsPtr->tcl_ScanElement)(string, flagPtr); +} + +/* Slot 219 */ +int +Tcl_ScanCountedElement(string, length, flagPtr) + CONST char * string; + int length; + int * flagPtr; +{ + return (tclStubsPtr->tcl_ScanCountedElement)(string, length, flagPtr); +} + +/* Slot 220 */ +int +Tcl_Seek(chan, offset, mode) + Tcl_Channel chan; + int offset; + int mode; +{ + return (tclStubsPtr->tcl_Seek)(chan, offset, mode); +} + +/* Slot 221 */ +int +Tcl_ServiceAll() +{ + return (tclStubsPtr->tcl_ServiceAll)(); +} + +/* Slot 222 */ +int +Tcl_ServiceEvent(flags) + int flags; +{ + return (tclStubsPtr->tcl_ServiceEvent)(flags); +} + +/* Slot 223 */ +void +Tcl_SetAssocData(interp, name, proc, clientData) + Tcl_Interp * interp; + char * name; + Tcl_InterpDeleteProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_SetAssocData)(interp, name, proc, clientData); +} + +/* Slot 224 */ +void +Tcl_SetChannelBufferSize(chan, sz) + Tcl_Channel chan; + int sz; +{ + (tclStubsPtr->tcl_SetChannelBufferSize)(chan, sz); +} + +/* Slot 225 */ +int +Tcl_SetChannelOption(interp, chan, optionName, newValue) + Tcl_Interp * interp; + Tcl_Channel chan; + char * optionName; + char * newValue; +{ + return (tclStubsPtr->tcl_SetChannelOption)(interp, chan, optionName, newValue); +} + +/* Slot 226 */ +int +Tcl_SetCommandInfo(interp, cmdName, infoPtr) + Tcl_Interp * interp; + char * cmdName; + Tcl_CmdInfo * infoPtr; +{ + return (tclStubsPtr->tcl_SetCommandInfo)(interp, cmdName, infoPtr); +} + +/* Slot 227 */ +void +Tcl_SetErrno(err) + int err; +{ + (tclStubsPtr->tcl_SetErrno)(err); +} + +/* Slot 228 */ +void +Tcl_SetErrorCode TCL_VARARGS_DEF(Tcl_Interp *,interp) +{ + Tcl_Interp * var; + va_list argList; + + var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); + + (tclStubsPtr->tcl_SetErrorCodeVA)(var, argList); + va_end(argList); +} + +/* Slot 229 */ +void +Tcl_SetMaxBlockTime(timePtr) + Tcl_Time * timePtr; +{ + (tclStubsPtr->tcl_SetMaxBlockTime)(timePtr); +} + +/* Slot 230 */ +void +Tcl_SetPanicProc(panicProc) + Tcl_PanicProc * panicProc; +{ + (tclStubsPtr->tcl_SetPanicProc)(panicProc); +} + +/* Slot 231 */ +int +Tcl_SetRecursionLimit(interp, depth) + Tcl_Interp * interp; + int depth; +{ + return (tclStubsPtr->tcl_SetRecursionLimit)(interp, depth); +} + +/* Slot 232 */ +void +Tcl_SetResult(interp, string, freeProc) + Tcl_Interp * interp; + char * string; + Tcl_FreeProc * freeProc; +{ + (tclStubsPtr->tcl_SetResult)(interp, string, freeProc); +} + +/* Slot 233 */ +int +Tcl_SetServiceMode(mode) + int mode; +{ + return (tclStubsPtr->tcl_SetServiceMode)(mode); +} + +/* Slot 234 */ +void +Tcl_SetObjErrorCode(interp, errorObjPtr) + Tcl_Interp * interp; + Tcl_Obj * errorObjPtr; +{ + (tclStubsPtr->tcl_SetObjErrorCode)(interp, errorObjPtr); +} + +/* Slot 235 */ +void +Tcl_SetObjResult(interp, resultObjPtr) + Tcl_Interp * interp; + Tcl_Obj * resultObjPtr; +{ + (tclStubsPtr->tcl_SetObjResult)(interp, resultObjPtr); +} + +/* Slot 236 */ +void +Tcl_SetStdChannel(channel, type) + Tcl_Channel channel; + int type; +{ + (tclStubsPtr->tcl_SetStdChannel)(channel, type); +} + +/* Slot 237 */ +char * +Tcl_SetVar(interp, varName, newValue, flags) + Tcl_Interp * interp; + char * varName; + char * newValue; + int flags; +{ + return (tclStubsPtr->tcl_SetVar)(interp, varName, newValue, flags); +} + +/* Slot 238 */ +char * +Tcl_SetVar2(interp, part1, part2, newValue, flags) + Tcl_Interp * interp; + char * part1; + char * part2; + char * newValue; + int flags; +{ + return (tclStubsPtr->tcl_SetVar2)(interp, part1, part2, newValue, flags); +} + +/* Slot 239 */ +char * +Tcl_SignalId(sig) + int sig; +{ + return (tclStubsPtr->tcl_SignalId)(sig); +} + +/* Slot 240 */ +char * +Tcl_SignalMsg(sig) + int sig; +{ + return (tclStubsPtr->tcl_SignalMsg)(sig); +} + +/* Slot 241 */ +void +Tcl_SourceRCFile(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_SourceRCFile)(interp); +} + +/* Slot 242 */ +int +Tcl_SplitList(interp, list, argcPtr, argvPtr) + Tcl_Interp * interp; + CONST char * list; + int * argcPtr; + char *** argvPtr; +{ + return (tclStubsPtr->tcl_SplitList)(interp, list, argcPtr, argvPtr); +} + +/* Slot 243 */ +void +Tcl_SplitPath(path, argcPtr, argvPtr) + CONST char * path; + int * argcPtr; + char *** argvPtr; +{ + (tclStubsPtr->tcl_SplitPath)(path, argcPtr, argvPtr); +} + +/* Slot 244 */ +void +Tcl_StaticPackage(interp, pkgName, initProc, safeInitProc) + Tcl_Interp * interp; + char * pkgName; + Tcl_PackageInitProc * initProc; + Tcl_PackageInitProc * safeInitProc; +{ + (tclStubsPtr->tcl_StaticPackage)(interp, pkgName, initProc, safeInitProc); +} + +/* Slot 245 */ +int +Tcl_StringMatch(string, pattern) + CONST char * string; + CONST char * pattern; +{ + return (tclStubsPtr->tcl_StringMatch)(string, pattern); +} + +/* Slot 246 */ +int +Tcl_Tell(chan) + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_Tell)(chan); +} + +/* Slot 247 */ +int +Tcl_TraceVar(interp, varName, flags, proc, clientData) + Tcl_Interp * interp; + char * varName; + int flags; + Tcl_VarTraceProc * proc; + ClientData clientData; +{ + return (tclStubsPtr->tcl_TraceVar)(interp, varName, flags, proc, clientData); +} + +/* Slot 248 */ +int +Tcl_TraceVar2(interp, part1, part2, flags, proc, clientData) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; + Tcl_VarTraceProc * proc; + ClientData clientData; +{ + return (tclStubsPtr->tcl_TraceVar2)(interp, part1, part2, flags, proc, clientData); +} + +/* Slot 249 */ +char * +Tcl_TranslateFileName(interp, name, bufferPtr) + Tcl_Interp * interp; + char * name; + Tcl_DString * bufferPtr; +{ + return (tclStubsPtr->tcl_TranslateFileName)(interp, name, bufferPtr); +} + +/* Slot 250 */ +int +Tcl_Ungets(chan, str, len, atHead) + Tcl_Channel chan; + char * str; + int len; + int atHead; +{ + return (tclStubsPtr->tcl_Ungets)(chan, str, len, atHead); +} + +/* Slot 251 */ +void +Tcl_UnlinkVar(interp, varName) + Tcl_Interp * interp; + char * varName; +{ + (tclStubsPtr->tcl_UnlinkVar)(interp, varName); +} + +/* Slot 252 */ +int +Tcl_UnregisterChannel(interp, chan) + Tcl_Interp * interp; + Tcl_Channel chan; +{ + return (tclStubsPtr->tcl_UnregisterChannel)(interp, chan); +} + +/* Slot 253 */ +int +Tcl_UnsetVar(interp, varName, flags) + Tcl_Interp * interp; + char * varName; + int flags; +{ + return (tclStubsPtr->tcl_UnsetVar)(interp, varName, flags); +} + +/* Slot 254 */ +int +Tcl_UnsetVar2(interp, part1, part2, flags) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; +{ + return (tclStubsPtr->tcl_UnsetVar2)(interp, part1, part2, flags); +} + +/* Slot 255 */ +void +Tcl_UntraceVar(interp, varName, flags, proc, clientData) + Tcl_Interp * interp; + char * varName; + int flags; + Tcl_VarTraceProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_UntraceVar)(interp, varName, flags, proc, clientData); +} + +/* Slot 256 */ +void +Tcl_UntraceVar2(interp, part1, part2, flags, proc, clientData) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; + Tcl_VarTraceProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_UntraceVar2)(interp, part1, part2, flags, proc, clientData); +} + +/* Slot 257 */ +void +Tcl_UpdateLinkedVar(interp, varName) + Tcl_Interp * interp; + char * varName; +{ + (tclStubsPtr->tcl_UpdateLinkedVar)(interp, varName); +} + +/* Slot 258 */ +int +Tcl_UpVar(interp, frameName, varName, localName, flags) + Tcl_Interp * interp; + char * frameName; + char * varName; + char * localName; + int flags; +{ + return (tclStubsPtr->tcl_UpVar)(interp, frameName, varName, localName, flags); +} + +/* Slot 259 */ +int +Tcl_UpVar2(interp, frameName, part1, part2, localName, flags) + Tcl_Interp * interp; + char * frameName; + char * part1; + char * part2; + char * localName; + int flags; +{ + return (tclStubsPtr->tcl_UpVar2)(interp, frameName, part1, part2, localName, flags); +} + +/* Slot 260 */ +int +Tcl_VarEval TCL_VARARGS_DEF(Tcl_Interp *,interp) +{ + Tcl_Interp * var; + va_list argList; + int resultValue; + + var = (Tcl_Interp *) TCL_VARARGS_START(Tcl_Interp *,interp,argList); + + resultValue = (tclStubsPtr->tcl_VarEvalVA)(var, argList); + va_end(argList); +return resultValue; +} + +/* Slot 261 */ +ClientData +Tcl_VarTraceInfo(interp, varName, flags, procPtr, prevClientData) + Tcl_Interp * interp; + char * varName; + int flags; + Tcl_VarTraceProc * procPtr; + ClientData prevClientData; +{ + return (tclStubsPtr->tcl_VarTraceInfo)(interp, varName, flags, procPtr, prevClientData); +} + +/* Slot 262 */ +ClientData +Tcl_VarTraceInfo2(interp, part1, part2, flags, procPtr, prevClientData) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; + Tcl_VarTraceProc * procPtr; + ClientData prevClientData; +{ + return (tclStubsPtr->tcl_VarTraceInfo2)(interp, part1, part2, flags, procPtr, prevClientData); +} + +/* Slot 263 */ +int +Tcl_Write(chan, s, slen) + Tcl_Channel chan; + char * s; + int slen; +{ + return (tclStubsPtr->tcl_Write)(chan, s, slen); +} + +/* Slot 264 */ +void +Tcl_WrongNumArgs(interp, objc, objv, message) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; + char * message; +{ + (tclStubsPtr->tcl_WrongNumArgs)(interp, objc, objv, message); +} + +/* Slot 265 */ +int +Tcl_DumpActiveMemory(fileName) + char * fileName; +{ + return (tclStubsPtr->tcl_DumpActiveMemory)(fileName); +} + +/* Slot 266 */ +void +Tcl_ValidateAllMemory(file, line) + char * file; + int line; +{ + (tclStubsPtr->tcl_ValidateAllMemory)(file, line); +} + +/* Slot 267 */ +void +Tcl_AppendResultVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + (tclStubsPtr->tcl_AppendResultVA)(interp, argList); +} + +/* Slot 268 */ +void +Tcl_AppendStringsToObjVA(objPtr, argList) + Tcl_Obj * objPtr; + va_list argList; +{ + (tclStubsPtr->tcl_AppendStringsToObjVA)(objPtr, argList); +} + +/* Slot 269 */ +char * +Tcl_HashStats(tablePtr) + Tcl_HashTable * tablePtr; +{ + return (tclStubsPtr->tcl_HashStats)(tablePtr); +} + +/* Slot 270 */ +char * +Tcl_ParseVar(interp, string, termPtr) + Tcl_Interp * interp; + char * string; + char ** termPtr; +{ + return (tclStubsPtr->tcl_ParseVar)(interp, string, termPtr); +} + +/* Slot 271 */ +char * +Tcl_PkgPresent(interp, name, version, exact) + Tcl_Interp * interp; + char * name; + char * version; + int exact; +{ + return (tclStubsPtr->tcl_PkgPresent)(interp, name, version, exact); +} + +/* Slot 272 */ +char * +Tcl_PkgPresentEx(interp, name, version, exact, clientDataPtr) + Tcl_Interp * interp; + char * name; + char * version; + int exact; + ClientData * clientDataPtr; +{ + return (tclStubsPtr->tcl_PkgPresentEx)(interp, name, version, exact, clientDataPtr); +} + +/* Slot 273 */ +int +Tcl_PkgProvide(interp, name, version) + Tcl_Interp * interp; + char * name; + char * version; +{ + return (tclStubsPtr->tcl_PkgProvide)(interp, name, version); +} + +/* Slot 274 */ +char * +Tcl_PkgRequire(interp, name, version, exact) + Tcl_Interp * interp; + char * name; + char * version; + int exact; +{ + return (tclStubsPtr->tcl_PkgRequire)(interp, name, version, exact); +} + +/* Slot 275 */ +void +Tcl_SetErrorCodeVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + (tclStubsPtr->tcl_SetErrorCodeVA)(interp, argList); +} + +/* Slot 276 */ +int +Tcl_VarEvalVA(interp, argList) + Tcl_Interp * interp; + va_list argList; +{ + return (tclStubsPtr->tcl_VarEvalVA)(interp, argList); +} + +/* Slot 277 */ +Tcl_Pid +Tcl_WaitPid(pid, statPtr, options) + Tcl_Pid pid; + int * statPtr; + int options; +{ + return (tclStubsPtr->tcl_WaitPid)(pid, statPtr, options); +} + +/* Slot 278 */ +void +Tcl_PanicVA(format, argList) + char * format; + va_list argList; +{ + (tclStubsPtr->tcl_PanicVA)(format, argList); +} + +/* Slot 279 */ +void +Tcl_GetVersion(major, minor, patchLevel, type) + int * major; + int * minor; + int * patchLevel; + int * type; +{ + (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type); +} + +/* Slot 280 is reserved */ +/* Slot 281 is reserved */ +/* Slot 282 is reserved */ +/* Slot 283 is reserved */ +/* Slot 284 is reserved */ +/* Slot 285 is reserved */ +/* Slot 286 */ +void +Tcl_AppendObjToObj(objPtr, appendObjPtr) + Tcl_Obj * objPtr; + Tcl_Obj * appendObjPtr; +{ + (tclStubsPtr->tcl_AppendObjToObj)(objPtr, appendObjPtr); +} + +/* Slot 287 */ +Tcl_Encoding +Tcl_CreateEncoding(typePtr) + Tcl_EncodingType * typePtr; +{ + return (tclStubsPtr->tcl_CreateEncoding)(typePtr); +} + +/* Slot 288 */ +void +Tcl_CreateThreadExitHandler(proc, clientData) + Tcl_ExitProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_CreateThreadExitHandler)(proc, clientData); +} + +/* Slot 289 */ +void +Tcl_DeleteThreadExitHandler(proc, clientData) + Tcl_ExitProc * proc; + ClientData clientData; +{ + (tclStubsPtr->tcl_DeleteThreadExitHandler)(proc, clientData); +} + +/* Slot 290 */ +void +Tcl_DiscardResult(statePtr) + Tcl_SavedResult * statePtr; +{ + (tclStubsPtr->tcl_DiscardResult)(statePtr); +} + +/* Slot 291 */ +int +Tcl_EvalEx(interp, script, numBytes, flags) + Tcl_Interp * interp; + char * script; + int numBytes; + int flags; +{ + return (tclStubsPtr->tcl_EvalEx)(interp, script, numBytes, flags); +} + +/* Slot 292 */ +int +Tcl_EvalObjv(interp, objc, objv, flags) + Tcl_Interp * interp; + int objc; + Tcl_Obj *CONST objv[]; + int flags; +{ + return (tclStubsPtr->tcl_EvalObjv)(interp, objc, objv, flags); +} + +/* Slot 293 */ +int +Tcl_EvalObjEx(interp, objPtr, flags) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + int flags; +{ + return (tclStubsPtr->tcl_EvalObjEx)(interp, objPtr, flags); +} + +/* Slot 294 */ +void +Tcl_ExitThread(status) + int status; +{ + (tclStubsPtr->tcl_ExitThread)(status); +} + +/* Slot 295 */ +int +Tcl_ExternalToUtf(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) + Tcl_Interp * interp; + Tcl_Encoding encoding; + CONST char * src; + int srcLen; + int flags; + Tcl_EncodingState * statePtr; + char * dst; + int dstLen; + int * srcReadPtr; + int * dstWrotePtr; + int * dstCharsPtr; +{ + return (tclStubsPtr->tcl_ExternalToUtf)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr); +} + +/* Slot 296 */ +char * +Tcl_ExternalToUtfDString(encoding, src, srcLen, dsPtr) + Tcl_Encoding encoding; + CONST char * src; + int srcLen; + Tcl_DString * dsPtr; +{ + return (tclStubsPtr->tcl_ExternalToUtfDString)(encoding, src, srcLen, dsPtr); +} + +/* Slot 297 */ +void +Tcl_FinalizeThread() +{ + (tclStubsPtr->tcl_FinalizeThread)(); +} + +/* Slot 298 */ +void +Tcl_FinalizeNotifier(clientData) + ClientData clientData; +{ + (tclStubsPtr->tcl_FinalizeNotifier)(clientData); +} + +/* Slot 299 */ +void +Tcl_FreeEncoding(encoding) + Tcl_Encoding encoding; +{ + (tclStubsPtr->tcl_FreeEncoding)(encoding); +} + +/* Slot 300 */ +Tcl_ThreadId +Tcl_GetCurrentThread() +{ + return (tclStubsPtr->tcl_GetCurrentThread)(); +} + +/* Slot 301 */ +Tcl_Encoding +Tcl_GetEncoding(interp, name) + Tcl_Interp * interp; + CONST char * name; +{ + return (tclStubsPtr->tcl_GetEncoding)(interp, name); +} + +/* Slot 302 */ +char * +Tcl_GetEncodingName(encoding) + Tcl_Encoding encoding; +{ + return (tclStubsPtr->tcl_GetEncodingName)(encoding); +} + +/* Slot 303 */ +void +Tcl_GetEncodingNames(interp) + Tcl_Interp * interp; +{ + (tclStubsPtr->tcl_GetEncodingNames)(interp); +} + +/* Slot 304 */ +int +Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, offset, msg, flags, indexPtr) + Tcl_Interp * interp; + Tcl_Obj * objPtr; + char ** tablePtr; + int offset; + char * msg; + int flags; + int * indexPtr; +{ + return (tclStubsPtr->tcl_GetIndexFromObjStruct)(interp, objPtr, tablePtr, offset, msg, flags, indexPtr); +} + +/* Slot 305 */ +VOID * +Tcl_GetThreadData(keyPtr, size) + Tcl_ThreadDataKey * keyPtr; + int size; +{ + return (tclStubsPtr->tcl_GetThreadData)(keyPtr, size); +} + +/* Slot 306 */ +Tcl_Obj * +Tcl_GetVar2Ex(interp, part1, part2, flags) + Tcl_Interp * interp; + char * part1; + char * part2; + int flags; +{ + return (tclStubsPtr->tcl_GetVar2Ex)(interp, part1, part2, flags); +} + +/* Slot 307 */ +ClientData +Tcl_InitNotifier() +{ + return (tclStubsPtr->tcl_InitNotifier)(); +} + +/* Slot 308 */ +void +Tcl_MutexLock(mutexPtr) + Tcl_Mutex * mutexPtr; +{ + (tclStubsPtr->tcl_MutexLock)(mutexPtr); +} + +/* Slot 309 */ +void +Tcl_MutexUnlock(mutexPtr) + Tcl_Mutex * mutexPtr; +{ + (tclStubsPtr->tcl_MutexUnlock)(mutexPtr); +} + +/* Slot 310 */ +void +Tcl_ConditionNotify(condPtr) + Tcl_Condition * condPtr; +{ + (tclStubsPtr->tcl_ConditionNotify)(condPtr); +} + +/* Slot 311 */ +void +Tcl_ConditionWait(condPtr, mutexPtr, timePtr) + Tcl_Condition * condPtr; + Tcl_Mutex * mutexPtr; + Tcl_Time * timePtr; +{ + (tclStubsPtr->tcl_ConditionWait)(condPtr, mutexPtr, timePtr); +} + +/* Slot 312 */ +int +Tcl_NumUtfChars(src, len) + CONST char * src; + int len; +{ + return (tclStubsPtr->tcl_NumUtfChars)(src, len); +} + +/* Slot 313 */ +int +Tcl_ReadChars(channel, objPtr, charsToRead, appendFlag) + Tcl_Channel channel; + Tcl_Obj * objPtr; + int charsToRead; + int appendFlag; +{ + return (tclStubsPtr->tcl_ReadChars)(channel, objPtr, charsToRead, appendFlag); +} + +/* Slot 314 */ +void +Tcl_RestoreResult(interp, statePtr) + Tcl_Interp * interp; + Tcl_SavedResult * statePtr; +{ + (tclStubsPtr->tcl_RestoreResult)(interp, statePtr); +} + +/* Slot 315 */ +void +Tcl_SaveResult(interp, statePtr) + Tcl_Interp * interp; + Tcl_SavedResult * statePtr; +{ + (tclStubsPtr->tcl_SaveResult)(interp, statePtr); +} + +/* Slot 316 */ +int +Tcl_SetSystemEncoding(interp, name) + Tcl_Interp * interp; + CONST char * name; +{ + return (tclStubsPtr->tcl_SetSystemEncoding)(interp, name); +} + +/* Slot 317 */ +Tcl_Obj * +Tcl_SetVar2Ex(interp, part1, part2, newValuePtr, flags) + Tcl_Interp * interp; + char * part1; + char * part2; + Tcl_Obj * newValuePtr; + int flags; +{ + return (tclStubsPtr->tcl_SetVar2Ex)(interp, part1, part2, newValuePtr, flags); +} + +/* Slot 318 */ +void +Tcl_ThreadAlert(threadId) + Tcl_ThreadId threadId; +{ + (tclStubsPtr->tcl_ThreadAlert)(threadId); +} + +/* Slot 319 */ +void +Tcl_ThreadQueueEvent(threadId, evPtr, position) + Tcl_ThreadId threadId; + Tcl_Event* evPtr; + Tcl_QueuePosition position; +{ + (tclStubsPtr->tcl_ThreadQueueEvent)(threadId, evPtr, position); +} + +/* Slot 320 */ +Tcl_UniChar +Tcl_UniCharAtIndex(src, index) + CONST char * src; + int index; +{ + return (tclStubsPtr->tcl_UniCharAtIndex)(src, index); +} + +/* Slot 321 */ +Tcl_UniChar +Tcl_UniCharToLower(ch) + int ch; +{ + return (tclStubsPtr->tcl_UniCharToLower)(ch); +} + +/* Slot 322 */ +Tcl_UniChar +Tcl_UniCharToTitle(ch) + int ch; +{ + return (tclStubsPtr->tcl_UniCharToTitle)(ch); +} + +/* Slot 323 */ +Tcl_UniChar +Tcl_UniCharToUpper(ch) + int ch; +{ + return (tclStubsPtr->tcl_UniCharToUpper)(ch); +} + +/* Slot 324 */ +int +Tcl_UniCharToUtf(ch, buf) + int ch; + char * buf; +{ + return (tclStubsPtr->tcl_UniCharToUtf)(ch, buf); +} + +/* Slot 325 */ +char * +Tcl_UtfAtIndex(src, index) + CONST char * src; + int index; +{ + return (tclStubsPtr->tcl_UtfAtIndex)(src, index); +} + +/* Slot 326 */ +int +Tcl_UtfCharComplete(src, len) + CONST char * src; + int len; +{ + return (tclStubsPtr->tcl_UtfCharComplete)(src, len); +} + +/* Slot 327 */ +int +Tcl_UtfBackslash(src, readPtr, dst) + CONST char * src; + int * readPtr; + char * dst; +{ + return (tclStubsPtr->tcl_UtfBackslash)(src, readPtr, dst); +} + +/* Slot 328 */ +char * +Tcl_UtfFindFirst(src, ch) + CONST char * src; + int ch; +{ + return (tclStubsPtr->tcl_UtfFindFirst)(src, ch); +} + +/* Slot 329 */ +char * +Tcl_UtfFindLast(src, ch) + CONST char * src; + int ch; +{ + return (tclStubsPtr->tcl_UtfFindLast)(src, ch); +} + +/* Slot 330 */ +char * +Tcl_UtfNext(src) + CONST char * src; +{ + return (tclStubsPtr->tcl_UtfNext)(src); +} + +/* Slot 331 */ +char * +Tcl_UtfPrev(src, start) + CONST char * src; + CONST char * start; +{ + return (tclStubsPtr->tcl_UtfPrev)(src, start); +} + +/* Slot 332 */ +int +Tcl_UtfToExternal(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr) + Tcl_Interp * interp; + Tcl_Encoding encoding; + CONST char * src; + int srcLen; + int flags; + Tcl_EncodingState * statePtr; + char * dst; + int dstLen; + int * srcReadPtr; + int * dstWrotePtr; + int * dstCharsPtr; +{ + return (tclStubsPtr->tcl_UtfToExternal)(interp, encoding, src, srcLen, flags, statePtr, dst, dstLen, srcReadPtr, dstWrotePtr, dstCharsPtr); +} + +/* Slot 333 */ +char * +Tcl_UtfToExternalDString(encoding, src, srcLen, dsPtr) + Tcl_Encoding encoding; + CONST char * src; + int srcLen; + Tcl_DString * dsPtr; +{ + return (tclStubsPtr->tcl_UtfToExternalDString)(encoding, src, srcLen, dsPtr); +} + +/* Slot 334 */ +int +Tcl_UtfToLower(src) + char * src; +{ + return (tclStubsPtr->tcl_UtfToLower)(src); +} + +/* Slot 335 */ +int +Tcl_UtfToTitle(src) + char * src; +{ + return (tclStubsPtr->tcl_UtfToTitle)(src); +} + +/* Slot 336 */ +int +Tcl_UtfToUniChar(src, chPtr) + CONST char * src; + Tcl_UniChar * chPtr; +{ + return (tclStubsPtr->tcl_UtfToUniChar)(src, chPtr); +} + +/* Slot 337 */ +int +Tcl_UtfToUpper(src) + char * src; +{ + return (tclStubsPtr->tcl_UtfToUpper)(src); +} + +/* Slot 338 */ +int +Tcl_WriteChars(chan, src, srcLen) + Tcl_Channel chan; + CONST char * src; + int srcLen; +{ + return (tclStubsPtr->tcl_WriteChars)(chan, src, srcLen); +} + +/* Slot 339 */ +int +Tcl_WriteObj(chan, objPtr) + Tcl_Channel chan; + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_WriteObj)(chan, objPtr); +} + +/* Slot 340 */ +char * +Tcl_GetString(objPtr) + Tcl_Obj * objPtr; +{ + return (tclStubsPtr->tcl_GetString)(objPtr); +} + +/* Slot 341 */ +char * +Tcl_GetDefaultEncodingDir() +{ + return (tclStubsPtr->tcl_GetDefaultEncodingDir)(); +} + +/* Slot 342 */ +void +Tcl_SetDefaultEncodingDir(path) + char * path; +{ + (tclStubsPtr->tcl_SetDefaultEncodingDir)(path); +} + + +/* !END!: Do not edit above this line. */ |