summaryrefslogtreecommitdiffstats
path: root/generic/tclIntDecls.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r--generic/tclIntDecls.h832
1 files changed, 398 insertions, 434 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index b680ae0..442d500 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.h
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIntDecls.h,v 1.94 2006/11/12 23:23:20 dkf Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.95 2006/11/15 14:58:27 dgp Exp $
*/
#ifndef _TCLINTDECLS
@@ -48,97 +48,94 @@
#ifndef TclAllocateFreeObjects_TCL_DECLARED
#define TclAllocateFreeObjects_TCL_DECLARED
/* 3 */
-EXTERN void TclAllocateFreeObjects _ANSI_ARGS_((void));
+EXTERN void TclAllocateFreeObjects (void);
#endif
/* Slot 4 is reserved */
#if !defined(__WIN32__) /* UNIX */
#ifndef TclCleanupChildren_TCL_DECLARED
#define TclCleanupChildren_TCL_DECLARED
/* 5 */
-EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
- int numPids, Tcl_Pid * pidPtr,
- Tcl_Channel errorChan));
+EXTERN int TclCleanupChildren (Tcl_Interp * interp, int numPids,
+ Tcl_Pid * pidPtr, Tcl_Channel errorChan);
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef TclCleanupChildren_TCL_DECLARED
#define TclCleanupChildren_TCL_DECLARED
/* 5 */
-EXTERN int TclCleanupChildren _ANSI_ARGS_((Tcl_Interp * interp,
- int numPids, Tcl_Pid * pidPtr,
- Tcl_Channel errorChan));
+EXTERN int TclCleanupChildren (Tcl_Interp * interp, int numPids,
+ Tcl_Pid * pidPtr, Tcl_Channel errorChan);
#endif
#endif /* __WIN32__ */
#ifndef TclCleanupCommand_TCL_DECLARED
#define TclCleanupCommand_TCL_DECLARED
/* 6 */
-EXTERN void TclCleanupCommand _ANSI_ARGS_((Command * cmdPtr));
+EXTERN void TclCleanupCommand (Command * cmdPtr);
#endif
#ifndef TclCopyAndCollapse_TCL_DECLARED
#define TclCopyAndCollapse_TCL_DECLARED
/* 7 */
-EXTERN int TclCopyAndCollapse _ANSI_ARGS_((int count,
- CONST char * src, char * dst));
+EXTERN int TclCopyAndCollapse (int count, CONST char * src,
+ char * dst);
#endif
#ifndef TclCopyChannel_TCL_DECLARED
#define TclCopyChannel_TCL_DECLARED
/* 8 */
-EXTERN int TclCopyChannel _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclCopyChannel (Tcl_Interp * interp,
Tcl_Channel inChan, Tcl_Channel outChan,
- int toRead, Tcl_Obj * cmdPtr));
+ int toRead, Tcl_Obj * cmdPtr);
#endif
#if !defined(__WIN32__) /* UNIX */
#ifndef TclCreatePipeline_TCL_DECLARED
#define TclCreatePipeline_TCL_DECLARED
/* 9 */
-EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, CONST char ** argv,
- Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
- TclFile * outPipePtr, TclFile * errFilePtr));
+EXTERN int TclCreatePipeline (Tcl_Interp * interp, int argc,
+ CONST char ** argv, Tcl_Pid ** pidArrayPtr,
+ TclFile * inPipePtr, TclFile * outPipePtr,
+ TclFile * errFilePtr);
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef TclCreatePipeline_TCL_DECLARED
#define TclCreatePipeline_TCL_DECLARED
/* 9 */
-EXTERN int TclCreatePipeline _ANSI_ARGS_((Tcl_Interp * interp,
- int argc, CONST char ** argv,
- Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr,
- TclFile * outPipePtr, TclFile * errFilePtr));
+EXTERN int TclCreatePipeline (Tcl_Interp * interp, int argc,
+ CONST char ** argv, Tcl_Pid ** pidArrayPtr,
+ TclFile * inPipePtr, TclFile * outPipePtr,
+ TclFile * errFilePtr);
#endif
#endif /* __WIN32__ */
#ifndef TclCreateProc_TCL_DECLARED
#define TclCreateProc_TCL_DECLARED
/* 10 */
-EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclCreateProc (Tcl_Interp * interp,
Namespace * nsPtr, CONST char * procName,
Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr,
- Proc ** procPtrPtr));
+ Proc ** procPtrPtr);
#endif
#ifndef TclDeleteCompiledLocalVars_TCL_DECLARED
#define TclDeleteCompiledLocalVars_TCL_DECLARED
/* 11 */
-EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_((
- Interp * iPtr, CallFrame * framePtr));
+EXTERN void TclDeleteCompiledLocalVars (Interp * iPtr,
+ CallFrame * framePtr);
#endif
#ifndef TclDeleteVars_TCL_DECLARED
#define TclDeleteVars_TCL_DECLARED
/* 12 */
-EXTERN void TclDeleteVars _ANSI_ARGS_((Interp * iPtr,
- Tcl_HashTable * tablePtr));
+EXTERN void TclDeleteVars (Interp * iPtr,
+ Tcl_HashTable * tablePtr);
#endif
/* Slot 13 is reserved */
#ifndef TclDumpMemoryInfo_TCL_DECLARED
#define TclDumpMemoryInfo_TCL_DECLARED
/* 14 */
-EXTERN void TclDumpMemoryInfo _ANSI_ARGS_((FILE * outFile));
+EXTERN void TclDumpMemoryInfo (FILE * outFile);
#endif
/* Slot 15 is reserved */
#ifndef TclExprFloatError_TCL_DECLARED
#define TclExprFloatError_TCL_DECLARED
/* 16 */
-EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
- double value));
+EXTERN void TclExprFloatError (Tcl_Interp * interp, double value);
#endif
/* Slot 17 is reserved */
/* Slot 18 is reserved */
@@ -148,116 +145,112 @@ EXTERN void TclExprFloatError _ANSI_ARGS_((Tcl_Interp * interp,
#ifndef TclFindElement_TCL_DECLARED
#define TclFindElement_TCL_DECLARED
/* 22 */
-EXTERN int TclFindElement _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclFindElement (Tcl_Interp * interp,
CONST char * listStr, int listLength,
CONST char ** elementPtr,
CONST char ** nextPtr, int * sizePtr,
- int * bracePtr));
+ int * bracePtr);
#endif
#ifndef TclFindProc_TCL_DECLARED
#define TclFindProc_TCL_DECLARED
/* 23 */
-EXTERN Proc * TclFindProc _ANSI_ARGS_((Interp * iPtr,
- CONST char * procName));
+EXTERN Proc * TclFindProc (Interp * iPtr, CONST char * procName);
#endif
/* Slot 24 is reserved */
#ifndef TclFreePackageInfo_TCL_DECLARED
#define TclFreePackageInfo_TCL_DECLARED
/* 25 */
-EXTERN void TclFreePackageInfo _ANSI_ARGS_((Interp * iPtr));
+EXTERN void TclFreePackageInfo (Interp * iPtr);
#endif
/* Slot 26 is reserved */
/* Slot 27 is reserved */
#ifndef TclpGetDefaultStdChannel_TCL_DECLARED
#define TclpGetDefaultStdChannel_TCL_DECLARED
/* 28 */
-EXTERN Tcl_Channel TclpGetDefaultStdChannel _ANSI_ARGS_((int type));
+EXTERN Tcl_Channel TclpGetDefaultStdChannel (int type);
#endif
/* Slot 29 is reserved */
/* Slot 30 is reserved */
#ifndef TclGetExtension_TCL_DECLARED
#define TclGetExtension_TCL_DECLARED
/* 31 */
-EXTERN CONST char * TclGetExtension _ANSI_ARGS_((CONST char * name));
+EXTERN CONST char * TclGetExtension (CONST char * name);
#endif
#ifndef TclGetFrame_TCL_DECLARED
#define TclGetFrame_TCL_DECLARED
/* 32 */
-EXTERN int TclGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, CallFrame ** framePtrPtr));
+EXTERN int TclGetFrame (Tcl_Interp * interp, CONST char * str,
+ CallFrame ** framePtrPtr);
#endif
/* Slot 33 is reserved */
#ifndef TclGetIntForIndex_TCL_DECLARED
#define TclGetIntForIndex_TCL_DECLARED
/* 34 */
-EXTERN int TclGetIntForIndex _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclGetIntForIndex (Tcl_Interp * interp,
Tcl_Obj * objPtr, int endValue,
- int * indexPtr));
+ int * indexPtr);
#endif
/* Slot 35 is reserved */
#ifndef TclGetLong_TCL_DECLARED
#define TclGetLong_TCL_DECLARED
/* 36 */
-EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, long * longPtr));
+EXTERN int TclGetLong (Tcl_Interp * interp, CONST char * str,
+ long * longPtr);
#endif
#ifndef TclGetLoadedPackages_TCL_DECLARED
#define TclGetLoadedPackages_TCL_DECLARED
/* 37 */
-EXTERN int TclGetLoadedPackages _ANSI_ARGS_((
- Tcl_Interp * interp, char * targetName));
+EXTERN int TclGetLoadedPackages (Tcl_Interp * interp,
+ char * targetName);
#endif
#ifndef TclGetNamespaceForQualName_TCL_DECLARED
#define TclGetNamespaceForQualName_TCL_DECLARED
/* 38 */
-EXTERN int TclGetNamespaceForQualName _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * qualName,
- Namespace * cxtNsPtr, int flags,
- Namespace ** nsPtrPtr,
+EXTERN int TclGetNamespaceForQualName (Tcl_Interp * interp,
+ CONST char * qualName, Namespace * cxtNsPtr,
+ int flags, Namespace ** nsPtrPtr,
Namespace ** altNsPtrPtr,
Namespace ** actualCxtPtrPtr,
- CONST char ** simpleNamePtr));
+ CONST char ** simpleNamePtr);
#endif
#ifndef TclGetObjInterpProc_TCL_DECLARED
#define TclGetObjInterpProc_TCL_DECLARED
/* 39 */
-EXTERN TclObjCmdProcType TclGetObjInterpProc _ANSI_ARGS_((void));
+EXTERN TclObjCmdProcType TclGetObjInterpProc (void);
#endif
#ifndef TclGetOpenMode_TCL_DECLARED
#define TclGetOpenMode_TCL_DECLARED
/* 40 */
-EXTERN int TclGetOpenMode _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * str, int * seekFlagPtr));
+EXTERN int TclGetOpenMode (Tcl_Interp * interp,
+ CONST char * str, int * seekFlagPtr);
#endif
#ifndef TclGetOriginalCommand_TCL_DECLARED
#define TclGetOriginalCommand_TCL_DECLARED
/* 41 */
-EXTERN Tcl_Command TclGetOriginalCommand _ANSI_ARGS_((
- Tcl_Command command));
+EXTERN Tcl_Command TclGetOriginalCommand (Tcl_Command command);
#endif
#ifndef TclpGetUserHome_TCL_DECLARED
#define TclpGetUserHome_TCL_DECLARED
/* 42 */
-EXTERN char * TclpGetUserHome _ANSI_ARGS_((CONST char * name,
- Tcl_DString * bufferPtr));
+EXTERN char * TclpGetUserHome (CONST char * name,
+ Tcl_DString * bufferPtr);
#endif
/* Slot 43 is reserved */
#ifndef TclGuessPackageName_TCL_DECLARED
#define TclGuessPackageName_TCL_DECLARED
/* 44 */
-EXTERN int TclGuessPackageName _ANSI_ARGS_((
- CONST char * fileName, Tcl_DString * bufPtr));
+EXTERN int TclGuessPackageName (CONST char * fileName,
+ Tcl_DString * bufPtr);
#endif
#ifndef TclHideUnsafeCommands_TCL_DECLARED
#define TclHideUnsafeCommands_TCL_DECLARED
/* 45 */
-EXTERN int TclHideUnsafeCommands _ANSI_ARGS_((
- Tcl_Interp * interp));
+EXTERN int TclHideUnsafeCommands (Tcl_Interp * interp);
#endif
#ifndef TclInExit_TCL_DECLARED
#define TclInExit_TCL_DECLARED
/* 46 */
-EXTERN int TclInExit _ANSI_ARGS_((void));
+EXTERN int TclInExit (void);
#endif
/* Slot 47 is reserved */
/* Slot 48 is reserved */
@@ -265,74 +258,72 @@ EXTERN int TclInExit _ANSI_ARGS_((void));
#ifndef TclInitCompiledLocals_TCL_DECLARED
#define TclInitCompiledLocals_TCL_DECLARED
/* 50 */
-EXTERN void TclInitCompiledLocals _ANSI_ARGS_((
- Tcl_Interp * interp, CallFrame * framePtr,
- Namespace * nsPtr));
+EXTERN void TclInitCompiledLocals (Tcl_Interp * interp,
+ CallFrame * framePtr, Namespace * nsPtr);
#endif
#ifndef TclInterpInit_TCL_DECLARED
#define TclInterpInit_TCL_DECLARED
/* 51 */
-EXTERN int TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
+EXTERN int TclInterpInit (Tcl_Interp * interp);
#endif
/* Slot 52 is reserved */
#ifndef TclInvokeObjectCommand_TCL_DECLARED
#define TclInvokeObjectCommand_TCL_DECLARED
/* 53 */
-EXTERN int TclInvokeObjectCommand _ANSI_ARGS_((
- ClientData clientData, Tcl_Interp * interp,
- int argc, CONST84 char ** argv));
+EXTERN int TclInvokeObjectCommand (ClientData clientData,
+ Tcl_Interp * interp, int argc,
+ CONST84 char ** argv);
#endif
#ifndef TclInvokeStringCommand_TCL_DECLARED
#define TclInvokeStringCommand_TCL_DECLARED
/* 54 */
-EXTERN int TclInvokeStringCommand _ANSI_ARGS_((
- ClientData clientData, Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[]));
+EXTERN int TclInvokeStringCommand (ClientData clientData,
+ Tcl_Interp * interp, int objc,
+ Tcl_Obj *CONST objv[]);
#endif
#ifndef TclIsProc_TCL_DECLARED
#define TclIsProc_TCL_DECLARED
/* 55 */
-EXTERN Proc * TclIsProc _ANSI_ARGS_((Command * cmdPtr));
+EXTERN Proc * TclIsProc (Command * cmdPtr);
#endif
/* Slot 56 is reserved */
/* Slot 57 is reserved */
#ifndef TclLookupVar_TCL_DECLARED
#define TclLookupVar_TCL_DECLARED
/* 58 */
-EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN Var * TclLookupVar (Tcl_Interp * interp,
CONST char * part1, CONST char * part2,
int flags, CONST char * msg, int createPart1,
- int createPart2, Var ** arrayPtrPtr));
+ int createPart2, Var ** arrayPtrPtr);
#endif
/* Slot 59 is reserved */
#ifndef TclNeedSpace_TCL_DECLARED
#define TclNeedSpace_TCL_DECLARED
/* 60 */
-EXTERN int TclNeedSpace _ANSI_ARGS_((CONST char * start,
- CONST char * end));
+EXTERN int TclNeedSpace (CONST char * start, CONST char * end);
#endif
#ifndef TclNewProcBodyObj_TCL_DECLARED
#define TclNewProcBodyObj_TCL_DECLARED
/* 61 */
-EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr));
+EXTERN Tcl_Obj * TclNewProcBodyObj (Proc * procPtr);
#endif
#ifndef TclObjCommandComplete_TCL_DECLARED
#define TclObjCommandComplete_TCL_DECLARED
/* 62 */
-EXTERN int TclObjCommandComplete _ANSI_ARGS_((Tcl_Obj * cmdPtr));
+EXTERN int TclObjCommandComplete (Tcl_Obj * cmdPtr);
#endif
#ifndef TclObjInterpProc_TCL_DECLARED
#define TclObjInterpProc_TCL_DECLARED
/* 63 */
-EXTERN int TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
+EXTERN int TclObjInterpProc (ClientData clientData,
Tcl_Interp * interp, int objc,
- Tcl_Obj *CONST objv[]));
+ Tcl_Obj *CONST objv[]);
#endif
#ifndef TclObjInvoke_TCL_DECLARED
#define TclObjInvoke_TCL_DECLARED
/* 64 */
-EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
- int objc, Tcl_Obj *CONST objv[], int flags));
+EXTERN int TclObjInvoke (Tcl_Interp * interp, int objc,
+ Tcl_Obj *CONST objv[], int flags);
#endif
/* Slot 65 is reserved */
/* Slot 66 is reserved */
@@ -341,7 +332,7 @@ EXTERN int TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp,
#ifndef TclpAlloc_TCL_DECLARED
#define TclpAlloc_TCL_DECLARED
/* 69 */
-EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
+EXTERN char * TclpAlloc (unsigned int size);
#endif
/* Slot 70 is reserved */
/* Slot 71 is reserved */
@@ -350,35 +341,34 @@ EXTERN char * TclpAlloc _ANSI_ARGS_((unsigned int size));
#ifndef TclpFree_TCL_DECLARED
#define TclpFree_TCL_DECLARED
/* 74 */
-EXTERN void TclpFree _ANSI_ARGS_((char * ptr));
+EXTERN void TclpFree (char * ptr);
#endif
#ifndef TclpGetClicks_TCL_DECLARED
#define TclpGetClicks_TCL_DECLARED
/* 75 */
-EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void));
+EXTERN unsigned long TclpGetClicks (void);
#endif
#ifndef TclpGetSeconds_TCL_DECLARED
#define TclpGetSeconds_TCL_DECLARED
/* 76 */
-EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void));
+EXTERN unsigned long TclpGetSeconds (void);
#endif
#ifndef TclpGetTime_TCL_DECLARED
#define TclpGetTime_TCL_DECLARED
/* 77 */
-EXTERN void TclpGetTime _ANSI_ARGS_((Tcl_Time * time));
+EXTERN void TclpGetTime (Tcl_Time * time);
#endif
#ifndef TclpGetTimeZone_TCL_DECLARED
#define TclpGetTimeZone_TCL_DECLARED
/* 78 */
-EXTERN int TclpGetTimeZone _ANSI_ARGS_((unsigned long time));
+EXTERN int TclpGetTimeZone (unsigned long time);
#endif
/* Slot 79 is reserved */
/* Slot 80 is reserved */
#ifndef TclpRealloc_TCL_DECLARED
#define TclpRealloc_TCL_DECLARED
/* 81 */
-EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
- unsigned int size));
+EXTERN char * TclpRealloc (char * ptr, unsigned int size);
#endif
/* Slot 82 is reserved */
/* Slot 83 is reserved */
@@ -389,86 +379,84 @@ EXTERN char * TclpRealloc _ANSI_ARGS_((char * ptr,
#ifndef TclPrecTraceProc_TCL_DECLARED
#define TclPrecTraceProc_TCL_DECLARED
/* 88 */
-EXTERN char * TclPrecTraceProc _ANSI_ARGS_((ClientData clientData,
+EXTERN char * TclPrecTraceProc (ClientData clientData,
Tcl_Interp * interp, CONST char * name1,
- CONST char * name2, int flags));
+ CONST char * name2, int flags);
#endif
#ifndef TclPreventAliasLoop_TCL_DECLARED
#define TclPreventAliasLoop_TCL_DECLARED
/* 89 */
-EXTERN int TclPreventAliasLoop _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Interp * cmdInterp, Tcl_Command cmd));
+EXTERN int TclPreventAliasLoop (Tcl_Interp * interp,
+ Tcl_Interp * cmdInterp, Tcl_Command cmd);
#endif
/* Slot 90 is reserved */
#ifndef TclProcCleanupProc_TCL_DECLARED
#define TclProcCleanupProc_TCL_DECLARED
/* 91 */
-EXTERN void TclProcCleanupProc _ANSI_ARGS_((Proc * procPtr));
+EXTERN void TclProcCleanupProc (Proc * procPtr);
#endif
#ifndef TclProcCompileProc_TCL_DECLARED
#define TclProcCompileProc_TCL_DECLARED
/* 92 */
-EXTERN int TclProcCompileProc _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclProcCompileProc (Tcl_Interp * interp,
Proc * procPtr, Tcl_Obj * bodyPtr,
Namespace * nsPtr, CONST char * description,
- CONST char * procName));
+ CONST char * procName);
#endif
#ifndef TclProcDeleteProc_TCL_DECLARED
#define TclProcDeleteProc_TCL_DECLARED
/* 93 */
-EXTERN void TclProcDeleteProc _ANSI_ARGS_((ClientData clientData));
+EXTERN void TclProcDeleteProc (ClientData clientData);
#endif
/* Slot 94 is reserved */
/* Slot 95 is reserved */
#ifndef TclRenameCommand_TCL_DECLARED
#define TclRenameCommand_TCL_DECLARED
/* 96 */
-EXTERN int TclRenameCommand _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * oldName, CONST char * newName));
+EXTERN int TclRenameCommand (Tcl_Interp * interp,
+ CONST char * oldName, CONST char * newName);
#endif
#ifndef TclResetShadowedCmdRefs_TCL_DECLARED
#define TclResetShadowedCmdRefs_TCL_DECLARED
/* 97 */
-EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_((
- Tcl_Interp * interp, Command * newCmdPtr));
+EXTERN void TclResetShadowedCmdRefs (Tcl_Interp * interp,
+ Command * newCmdPtr);
#endif
#ifndef TclServiceIdle_TCL_DECLARED
#define TclServiceIdle_TCL_DECLARED
/* 98 */
-EXTERN int TclServiceIdle _ANSI_ARGS_((void));
+EXTERN int TclServiceIdle (void);
#endif
/* Slot 99 is reserved */
/* Slot 100 is reserved */
#ifndef TclSetPreInitScript_TCL_DECLARED
#define TclSetPreInitScript_TCL_DECLARED
/* 101 */
-EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string));
+EXTERN char * TclSetPreInitScript (char * string);
#endif
#ifndef TclSetupEnv_TCL_DECLARED
#define TclSetupEnv_TCL_DECLARED
/* 102 */
-EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp));
+EXTERN void TclSetupEnv (Tcl_Interp * interp);
#endif
#ifndef TclSockGetPort_TCL_DECLARED
#define TclSockGetPort_TCL_DECLARED
/* 103 */
-EXTERN int TclSockGetPort _ANSI_ARGS_((Tcl_Interp * interp,
- char * str, char * proto, int * portPtr));
+EXTERN int TclSockGetPort (Tcl_Interp * interp, char * str,
+ char * proto, int * portPtr);
#endif
#if !defined(__WIN32__) /* UNIX */
#ifndef TclSockMinimumBuffers_TCL_DECLARED
#define TclSockMinimumBuffers_TCL_DECLARED
/* 104 */
-EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
- int size));
+EXTERN int TclSockMinimumBuffers (int sock, int size);
#endif
#endif /* UNIX */
#ifdef __WIN32__
#ifndef TclSockMinimumBuffers_TCL_DECLARED
#define TclSockMinimumBuffers_TCL_DECLARED
/* 104 */
-EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
- int size));
+EXTERN int TclSockMinimumBuffers (int sock, int size);
#endif
#endif /* __WIN32__ */
/* Slot 105 is reserved */
@@ -477,167 +465,160 @@ EXTERN int TclSockMinimumBuffers _ANSI_ARGS_((int sock,
#ifndef TclTeardownNamespace_TCL_DECLARED
#define TclTeardownNamespace_TCL_DECLARED
/* 108 */
-EXTERN void TclTeardownNamespace _ANSI_ARGS_((Namespace * nsPtr));
+EXTERN void TclTeardownNamespace (Namespace * nsPtr);
#endif
#ifndef TclUpdateReturnInfo_TCL_DECLARED
#define TclUpdateReturnInfo_TCL_DECLARED
/* 109 */
-EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp * iPtr));
+EXTERN int TclUpdateReturnInfo (Interp * iPtr);
#endif
/* Slot 110 is reserved */
#ifndef Tcl_AddInterpResolvers_TCL_DECLARED
#define Tcl_AddInterpResolvers_TCL_DECLARED
/* 111 */
-EXTERN void Tcl_AddInterpResolvers _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * name,
+EXTERN void Tcl_AddInterpResolvers (Tcl_Interp * interp,
+ CONST char * name,
Tcl_ResolveCmdProc * cmdProc,
Tcl_ResolveVarProc * varProc,
- Tcl_ResolveCompiledVarProc * compiledVarProc));
+ Tcl_ResolveCompiledVarProc * compiledVarProc);
#endif
#ifndef Tcl_AppendExportList_TCL_DECLARED
#define Tcl_AppendExportList_TCL_DECLARED
/* 112 */
-EXTERN int Tcl_AppendExportList _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Namespace * nsPtr,
- Tcl_Obj * objPtr));
+EXTERN int Tcl_AppendExportList (Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_CreateNamespace_TCL_DECLARED
#define Tcl_CreateNamespace_TCL_DECLARED
/* 113 */
-EXTERN Tcl_Namespace * Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN Tcl_Namespace * Tcl_CreateNamespace (Tcl_Interp * interp,
CONST char * name, ClientData clientData,
- Tcl_NamespaceDeleteProc * deleteProc));
+ Tcl_NamespaceDeleteProc * deleteProc);
#endif
#ifndef Tcl_DeleteNamespace_TCL_DECLARED
#define Tcl_DeleteNamespace_TCL_DECLARED
/* 114 */
-EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((
- Tcl_Namespace * nsPtr));
+EXTERN void Tcl_DeleteNamespace (Tcl_Namespace * nsPtr);
#endif
#ifndef Tcl_Export_TCL_DECLARED
#define Tcl_Export_TCL_DECLARED
/* 115 */
-EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int Tcl_Export (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, CONST char * pattern,
- int resetListFirst));
+ int resetListFirst);
#endif
#ifndef Tcl_FindCommand_TCL_DECLARED
#define Tcl_FindCommand_TCL_DECLARED
/* 116 */
-EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN Tcl_Command Tcl_FindCommand (Tcl_Interp * interp,
CONST char * name,
- Tcl_Namespace * contextNsPtr, int flags));
+ Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_FindNamespace_TCL_DECLARED
#define Tcl_FindNamespace_TCL_DECLARED
/* 117 */
-EXTERN Tcl_Namespace * Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN Tcl_Namespace * Tcl_FindNamespace (Tcl_Interp * interp,
CONST char * name,
- Tcl_Namespace * contextNsPtr, int flags));
+ Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_GetInterpResolvers_TCL_DECLARED
#define Tcl_GetInterpResolvers_TCL_DECLARED
/* 118 */
-EXTERN int Tcl_GetInterpResolvers _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * name,
- Tcl_ResolverInfo * resInfo));
+EXTERN int Tcl_GetInterpResolvers (Tcl_Interp * interp,
+ CONST char * name,
+ Tcl_ResolverInfo * resInfo);
#endif
#ifndef Tcl_GetNamespaceResolvers_TCL_DECLARED
#define Tcl_GetNamespaceResolvers_TCL_DECLARED
/* 119 */
-EXTERN int Tcl_GetNamespaceResolvers _ANSI_ARGS_((
+EXTERN int Tcl_GetNamespaceResolvers (
Tcl_Namespace * namespacePtr,
- Tcl_ResolverInfo * resInfo));
+ Tcl_ResolverInfo * resInfo);
#endif
#ifndef Tcl_FindNamespaceVar_TCL_DECLARED
#define Tcl_FindNamespaceVar_TCL_DECLARED
/* 120 */
-EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * name,
- Tcl_Namespace * contextNsPtr, int flags));
+EXTERN Tcl_Var Tcl_FindNamespaceVar (Tcl_Interp * interp,
+ CONST char * name,
+ Tcl_Namespace * contextNsPtr, int flags);
#endif
#ifndef Tcl_ForgetImport_TCL_DECLARED
#define Tcl_ForgetImport_TCL_DECLARED
/* 121 */
-EXTERN int Tcl_ForgetImport _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Namespace * nsPtr, CONST char * pattern));
+EXTERN int Tcl_ForgetImport (Tcl_Interp * interp,
+ Tcl_Namespace * nsPtr, CONST char * pattern);
#endif
#ifndef Tcl_GetCommandFromObj_TCL_DECLARED
#define Tcl_GetCommandFromObj_TCL_DECLARED
/* 122 */
-EXTERN Tcl_Command Tcl_GetCommandFromObj _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr));
+EXTERN Tcl_Command Tcl_GetCommandFromObj (Tcl_Interp * interp,
+ Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetCommandFullName_TCL_DECLARED
#define Tcl_GetCommandFullName_TCL_DECLARED
/* 123 */
-EXTERN void Tcl_GetCommandFullName _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Command command,
- Tcl_Obj * objPtr));
+EXTERN void Tcl_GetCommandFullName (Tcl_Interp * interp,
+ Tcl_Command command, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_GetCurrentNamespace_TCL_DECLARED
#define Tcl_GetCurrentNamespace_TCL_DECLARED
/* 124 */
-EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace _ANSI_ARGS_((
- Tcl_Interp * interp));
+EXTERN Tcl_Namespace * Tcl_GetCurrentNamespace (Tcl_Interp * interp);
#endif
#ifndef Tcl_GetGlobalNamespace_TCL_DECLARED
#define Tcl_GetGlobalNamespace_TCL_DECLARED
/* 125 */
-EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_((
- Tcl_Interp * interp));
+EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace (Tcl_Interp * interp);
#endif
#ifndef Tcl_GetVariableFullName_TCL_DECLARED
#define Tcl_GetVariableFullName_TCL_DECLARED
/* 126 */
-EXTERN void Tcl_GetVariableFullName _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Var variable,
- Tcl_Obj * objPtr));
+EXTERN void Tcl_GetVariableFullName (Tcl_Interp * interp,
+ Tcl_Var variable, Tcl_Obj * objPtr);
#endif
#ifndef Tcl_Import_TCL_DECLARED
#define Tcl_Import_TCL_DECLARED
/* 127 */
-EXTERN int Tcl_Import _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int Tcl_Import (Tcl_Interp * interp,
Tcl_Namespace * nsPtr, CONST char * pattern,
- int allowOverwrite));
+ int allowOverwrite);
#endif
#ifndef Tcl_PopCallFrame_TCL_DECLARED
#define Tcl_PopCallFrame_TCL_DECLARED
/* 128 */
-EXTERN void Tcl_PopCallFrame _ANSI_ARGS_((Tcl_Interp * interp));
+EXTERN void Tcl_PopCallFrame (Tcl_Interp * interp);
#endif
#ifndef Tcl_PushCallFrame_TCL_DECLARED
#define Tcl_PushCallFrame_TCL_DECLARED
/* 129 */
-EXTERN int Tcl_PushCallFrame _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int Tcl_PushCallFrame (Tcl_Interp * interp,
Tcl_CallFrame * framePtr,
- Tcl_Namespace * nsPtr, int isProcCallFrame));
+ Tcl_Namespace * nsPtr, int isProcCallFrame);
#endif
#ifndef Tcl_RemoveInterpResolvers_TCL_DECLARED
#define Tcl_RemoveInterpResolvers_TCL_DECLARED
/* 130 */
-EXTERN int Tcl_RemoveInterpResolvers _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * name));
+EXTERN int Tcl_RemoveInterpResolvers (Tcl_Interp * interp,
+ CONST char * name);
#endif
#ifndef Tcl_SetNamespaceResolvers_TCL_DECLARED
#define Tcl_SetNamespaceResolvers_TCL_DECLARED
/* 131 */
-EXTERN void Tcl_SetNamespaceResolvers _ANSI_ARGS_((
+EXTERN void Tcl_SetNamespaceResolvers (
Tcl_Namespace * namespacePtr,
Tcl_ResolveCmdProc * cmdProc,
Tcl_ResolveVarProc * varProc,
- Tcl_ResolveCompiledVarProc * compiledVarProc));
+ Tcl_ResolveCompiledVarProc * compiledVarProc);
#endif
#ifndef TclpHasSockets_TCL_DECLARED
#define TclpHasSockets_TCL_DECLARED
/* 132 */
-EXTERN int TclpHasSockets _ANSI_ARGS_((Tcl_Interp * interp));
+EXTERN int TclpHasSockets (Tcl_Interp * interp);
#endif
#ifndef TclpGetDate_TCL_DECLARED
#define TclpGetDate_TCL_DECLARED
/* 133 */
-EXTERN struct tm * TclpGetDate _ANSI_ARGS_((CONST time_t * time,
- int useGMT));
+EXTERN struct tm * TclpGetDate (CONST time_t * time, int useGMT);
#endif
/* Slot 134 is reserved */
/* Slot 135 is reserved */
@@ -646,238 +627,228 @@ EXTERN struct tm * TclpGetDate _ANSI_ARGS_((CONST time_t * time,
#ifndef TclGetEnv_TCL_DECLARED
#define TclGetEnv_TCL_DECLARED
/* 138 */
-EXTERN CONST84_RETURN char * TclGetEnv _ANSI_ARGS_((CONST char * name,
- Tcl_DString * valuePtr));
+EXTERN CONST84_RETURN char * TclGetEnv (CONST char * name,
+ Tcl_DString * valuePtr);
#endif
/* Slot 139 is reserved */
/* Slot 140 is reserved */
#ifndef TclpGetCwd_TCL_DECLARED
#define TclpGetCwd_TCL_DECLARED
/* 141 */
-EXTERN CONST84_RETURN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_DString * cwdPtr));
+EXTERN CONST84_RETURN char * TclpGetCwd (Tcl_Interp * interp,
+ Tcl_DString * cwdPtr);
#endif
#ifndef TclSetByteCodeFromAny_TCL_DECLARED
#define TclSetByteCodeFromAny_TCL_DECLARED
/* 142 */
-EXTERN int TclSetByteCodeFromAny _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * objPtr,
- CompileHookProc * hookProc,
- ClientData clientData));
+EXTERN int TclSetByteCodeFromAny (Tcl_Interp * interp,
+ Tcl_Obj * objPtr, CompileHookProc * hookProc,
+ ClientData clientData);
#endif
#ifndef TclAddLiteralObj_TCL_DECLARED
#define TclAddLiteralObj_TCL_DECLARED
/* 143 */
-EXTERN int TclAddLiteralObj _ANSI_ARGS_((
- struct CompileEnv * envPtr, Tcl_Obj * objPtr,
- LiteralEntry ** litPtrPtr));
+EXTERN int TclAddLiteralObj (struct CompileEnv * envPtr,
+ Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr);
#endif
#ifndef TclHideLiteral_TCL_DECLARED
#define TclHideLiteral_TCL_DECLARED
/* 144 */
-EXTERN void TclHideLiteral _ANSI_ARGS_((Tcl_Interp * interp,
- struct CompileEnv * envPtr, int index));
+EXTERN void TclHideLiteral (Tcl_Interp * interp,
+ struct CompileEnv * envPtr, int index);
#endif
#ifndef TclGetAuxDataType_TCL_DECLARED
#define TclGetAuxDataType_TCL_DECLARED
/* 145 */
-EXTERN struct AuxDataType * TclGetAuxDataType _ANSI_ARGS_((char * typeName));
+EXTERN struct AuxDataType * TclGetAuxDataType (char * typeName);
#endif
#ifndef TclHandleCreate_TCL_DECLARED
#define TclHandleCreate_TCL_DECLARED
/* 146 */
-EXTERN TclHandle TclHandleCreate _ANSI_ARGS_((VOID * ptr));
+EXTERN TclHandle TclHandleCreate (VOID * ptr);
#endif
#ifndef TclHandleFree_TCL_DECLARED
#define TclHandleFree_TCL_DECLARED
/* 147 */
-EXTERN void TclHandleFree _ANSI_ARGS_((TclHandle handle));
+EXTERN void TclHandleFree (TclHandle handle);
#endif
#ifndef TclHandlePreserve_TCL_DECLARED
#define TclHandlePreserve_TCL_DECLARED
/* 148 */
-EXTERN TclHandle TclHandlePreserve _ANSI_ARGS_((TclHandle handle));
+EXTERN TclHandle TclHandlePreserve (TclHandle handle);
#endif
#ifndef TclHandleRelease_TCL_DECLARED
#define TclHandleRelease_TCL_DECLARED
/* 149 */
-EXTERN void TclHandleRelease _ANSI_ARGS_((TclHandle handle));
+EXTERN void TclHandleRelease (TclHandle handle);
#endif
#ifndef TclRegAbout_TCL_DECLARED
#define TclRegAbout_TCL_DECLARED
/* 150 */
-EXTERN int TclRegAbout _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_RegExp re));
+EXTERN int TclRegAbout (Tcl_Interp * interp, Tcl_RegExp re);
#endif
#ifndef TclRegExpRangeUniChar_TCL_DECLARED
#define TclRegExpRangeUniChar_TCL_DECLARED
/* 151 */
-EXTERN void TclRegExpRangeUniChar _ANSI_ARGS_((Tcl_RegExp re,
- int index, int * startPtr, int * endPtr));
+EXTERN void TclRegExpRangeUniChar (Tcl_RegExp re, int index,
+ int * startPtr, int * endPtr);
#endif
#ifndef TclSetLibraryPath_TCL_DECLARED
#define TclSetLibraryPath_TCL_DECLARED
/* 152 */
-EXTERN void TclSetLibraryPath _ANSI_ARGS_((Tcl_Obj * pathPtr));
+EXTERN void TclSetLibraryPath (Tcl_Obj * pathPtr);
#endif
#ifndef TclGetLibraryPath_TCL_DECLARED
#define TclGetLibraryPath_TCL_DECLARED
/* 153 */
-EXTERN Tcl_Obj * TclGetLibraryPath _ANSI_ARGS_((void));
+EXTERN Tcl_Obj * TclGetLibraryPath (void);
#endif
/* Slot 154 is reserved */
/* Slot 155 is reserved */
#ifndef TclRegError_TCL_DECLARED
#define TclRegError_TCL_DECLARED
/* 156 */
-EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * msg, int status));
+EXTERN void TclRegError (Tcl_Interp * interp, CONST char * msg,
+ int status);
#endif
#ifndef TclVarTraceExists_TCL_DECLARED
#define TclVarTraceExists_TCL_DECLARED
/* 157 */
-EXTERN Var * TclVarTraceExists _ANSI_ARGS_((Tcl_Interp * interp,
- CONST char * varName));
+EXTERN Var * TclVarTraceExists (Tcl_Interp * interp,
+ CONST char * varName);
#endif
#ifndef TclSetStartupScriptFileName_TCL_DECLARED
#define TclSetStartupScriptFileName_TCL_DECLARED
/* 158 */
-EXTERN void TclSetStartupScriptFileName _ANSI_ARGS_((
- CONST char * filename));
+EXTERN void TclSetStartupScriptFileName (CONST char * filename);
#endif
#ifndef TclGetStartupScriptFileName_TCL_DECLARED
#define TclGetStartupScriptFileName_TCL_DECLARED
/* 159 */
-EXTERN CONST84_RETURN char * TclGetStartupScriptFileName _ANSI_ARGS_((void));
+EXTERN CONST84_RETURN char * TclGetStartupScriptFileName (void);
#endif
/* Slot 160 is reserved */
#ifndef TclChannelTransform_TCL_DECLARED
#define TclChannelTransform_TCL_DECLARED
/* 161 */
-EXTERN int TclChannelTransform _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Channel chan, Tcl_Obj * cmdObjPtr));
+EXTERN int TclChannelTransform (Tcl_Interp * interp,
+ Tcl_Channel chan, Tcl_Obj * cmdObjPtr);
#endif
#ifndef TclChannelEventScriptInvoker_TCL_DECLARED
#define TclChannelEventScriptInvoker_TCL_DECLARED
/* 162 */
-EXTERN void TclChannelEventScriptInvoker _ANSI_ARGS_((
- ClientData clientData, int flags));
+EXTERN void TclChannelEventScriptInvoker (ClientData clientData,
+ int flags);
#endif
#ifndef TclGetInstructionTable_TCL_DECLARED
#define TclGetInstructionTable_TCL_DECLARED
/* 163 */
-EXTERN void * TclGetInstructionTable _ANSI_ARGS_((void));
+EXTERN void * TclGetInstructionTable (void);
#endif
#ifndef TclExpandCodeArray_TCL_DECLARED
#define TclExpandCodeArray_TCL_DECLARED
/* 164 */
-EXTERN void TclExpandCodeArray _ANSI_ARGS_((void * envPtr));
+EXTERN void TclExpandCodeArray (void * envPtr);
#endif
#ifndef TclpSetInitialEncodings_TCL_DECLARED
#define TclpSetInitialEncodings_TCL_DECLARED
/* 165 */
-EXTERN void TclpSetInitialEncodings _ANSI_ARGS_((void));
+EXTERN void TclpSetInitialEncodings (void);
#endif
#ifndef TclListObjSetElement_TCL_DECLARED
#define TclListObjSetElement_TCL_DECLARED
/* 166 */
-EXTERN int TclListObjSetElement _ANSI_ARGS_((
- Tcl_Interp * interp, Tcl_Obj * listPtr,
- int index, Tcl_Obj * valuePtr));
+EXTERN int TclListObjSetElement (Tcl_Interp * interp,
+ Tcl_Obj * listPtr, int index,
+ Tcl_Obj * valuePtr);
#endif
#ifndef TclSetStartupScriptPath_TCL_DECLARED
#define TclSetStartupScriptPath_TCL_DECLARED
/* 167 */
-EXTERN void TclSetStartupScriptPath _ANSI_ARGS_((
- Tcl_Obj * pathPtr));
+EXTERN void TclSetStartupScriptPath (Tcl_Obj * pathPtr);
#endif
#ifndef TclGetStartupScriptPath_TCL_DECLARED
#define TclGetStartupScriptPath_TCL_DECLARED
/* 168 */
-EXTERN Tcl_Obj * TclGetStartupScriptPath _ANSI_ARGS_((void));
+EXTERN Tcl_Obj * TclGetStartupScriptPath (void);
#endif
#ifndef TclpUtfNcmp2_TCL_DECLARED
#define TclpUtfNcmp2_TCL_DECLARED
/* 169 */
-EXTERN int TclpUtfNcmp2 _ANSI_ARGS_((CONST char * s1,
- CONST char * s2, unsigned long n));
+EXTERN int TclpUtfNcmp2 (CONST char * s1, CONST char * s2,
+ unsigned long n);
#endif
#ifndef TclCheckInterpTraces_TCL_DECLARED
#define TclCheckInterpTraces_TCL_DECLARED
/* 170 */
-EXTERN int TclCheckInterpTraces _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * command,
- int numChars, Command * cmdPtr, int result,
- int traceFlags, int objc,
- Tcl_Obj *CONST objv[]));
+EXTERN int TclCheckInterpTraces (Tcl_Interp * interp,
+ CONST char * command, int numChars,
+ Command * cmdPtr, int result, int traceFlags,
+ int objc, Tcl_Obj *CONST objv[]);
#endif
#ifndef TclCheckExecutionTraces_TCL_DECLARED
#define TclCheckExecutionTraces_TCL_DECLARED
/* 171 */
-EXTERN int TclCheckExecutionTraces _ANSI_ARGS_((
- Tcl_Interp * interp, CONST char * command,
- int numChars, Command * cmdPtr, int result,
- int traceFlags, int objc,
- Tcl_Obj *CONST objv[]));
+EXTERN int TclCheckExecutionTraces (Tcl_Interp * interp,
+ CONST char * command, int numChars,
+ Command * cmdPtr, int result, int traceFlags,
+ int objc, Tcl_Obj *CONST objv[]);
#endif
#ifndef TclInThreadExit_TCL_DECLARED
#define TclInThreadExit_TCL_DECLARED
/* 172 */
-EXTERN int TclInThreadExit _ANSI_ARGS_((void));
+EXTERN int TclInThreadExit (void);
#endif
#ifndef TclUniCharMatch_TCL_DECLARED
#define TclUniCharMatch_TCL_DECLARED
/* 173 */
-EXTERN int TclUniCharMatch _ANSI_ARGS_((
- CONST Tcl_UniChar * string, int strLen,
- CONST Tcl_UniChar * pattern, int ptnLen,
- int nocase));
+EXTERN int TclUniCharMatch (CONST Tcl_UniChar * string,
+ int strLen, CONST Tcl_UniChar * pattern,
+ int ptnLen, int nocase);
#endif
/* Slot 174 is reserved */
#ifndef TclCallVarTraces_TCL_DECLARED
#define TclCallVarTraces_TCL_DECLARED
/* 175 */
-EXTERN int TclCallVarTraces _ANSI_ARGS_((Interp * iPtr,
- Var * arrayPtr, Var * varPtr,
- CONST char * part1, CONST char * part2,
- int flags, int leaveErrMsg));
+EXTERN int TclCallVarTraces (Interp * iPtr, Var * arrayPtr,
+ Var * varPtr, CONST char * part1,
+ CONST char * part2, int flags,
+ int leaveErrMsg);
#endif
#ifndef TclCleanupVar_TCL_DECLARED
#define TclCleanupVar_TCL_DECLARED
/* 176 */
-EXTERN void TclCleanupVar _ANSI_ARGS_((Var * varPtr,
- Var * arrayPtr));
+EXTERN void TclCleanupVar (Var * varPtr, Var * arrayPtr);
#endif
#ifndef TclVarErrMsg_TCL_DECLARED
#define TclVarErrMsg_TCL_DECLARED
/* 177 */
-EXTERN void TclVarErrMsg _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN void TclVarErrMsg (Tcl_Interp * interp,
CONST char * part1, CONST char * part2,
- CONST char * operation, CONST char * reason));
+ CONST char * operation, CONST char * reason);
#endif
#ifndef Tcl_SetStartupScript_TCL_DECLARED
#define Tcl_SetStartupScript_TCL_DECLARED
/* 178 */
-EXTERN void Tcl_SetStartupScript _ANSI_ARGS_((Tcl_Obj * pathPtr,
- CONST char* encodingName));
+EXTERN void Tcl_SetStartupScript (Tcl_Obj * pathPtr,
+ CONST char* encodingName);
#endif
#ifndef Tcl_GetStartupScript_TCL_DECLARED
#define Tcl_GetStartupScript_TCL_DECLARED
/* 179 */
-EXTERN Tcl_Obj * Tcl_GetStartupScript _ANSI_ARGS_((
- CONST char ** encodingNamePtr));
+EXTERN Tcl_Obj * Tcl_GetStartupScript (CONST char ** encodingNamePtr);
#endif
/* Slot 180 is reserved */
/* Slot 181 is reserved */
#ifndef TclpLocaltime_TCL_DECLARED
#define TclpLocaltime_TCL_DECLARED
/* 182 */
-EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((CONST time_t * clock));
+EXTERN struct tm * TclpLocaltime (CONST time_t * clock);
#endif
#ifndef TclpGmtime_TCL_DECLARED
#define TclpGmtime_TCL_DECLARED
/* 183 */
-EXTERN struct tm * TclpGmtime _ANSI_ARGS_((CONST time_t * clock));
+EXTERN struct tm * TclpGmtime (CONST time_t * clock);
#endif
/* Slot 184 is reserved */
/* Slot 185 is reserved */
@@ -895,70 +866,65 @@ EXTERN struct tm * TclpGmtime _ANSI_ARGS_((CONST time_t * clock));
#ifndef TclCompEvalObj_TCL_DECLARED
#define TclCompEvalObj_TCL_DECLARED
/* 197 */
-EXTERN int TclCompEvalObj _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr));
+EXTERN int TclCompEvalObj (Tcl_Interp * interp,
+ Tcl_Obj * objPtr);
#endif
#ifndef TclObjGetFrame_TCL_DECLARED
#define TclObjGetFrame_TCL_DECLARED
/* 198 */
-EXTERN int TclObjGetFrame _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * objPtr, CallFrame ** framePtrPtr));
+EXTERN int TclObjGetFrame (Tcl_Interp * interp,
+ Tcl_Obj * objPtr, CallFrame ** framePtrPtr);
#endif
/* Slot 199 is reserved */
#ifndef TclpObjRemoveDirectory_TCL_DECLARED
#define TclpObjRemoveDirectory_TCL_DECLARED
/* 200 */
-EXTERN int TclpObjRemoveDirectory _ANSI_ARGS_((
- Tcl_Obj * pathPtr, int recursive,
- Tcl_Obj ** errorPtr));
+EXTERN int TclpObjRemoveDirectory (Tcl_Obj * pathPtr,
+ int recursive, Tcl_Obj ** errorPtr);
#endif
#ifndef TclpObjCopyDirectory_TCL_DECLARED
#define TclpObjCopyDirectory_TCL_DECLARED
/* 201 */
-EXTERN int TclpObjCopyDirectory _ANSI_ARGS_((
- Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr,
- Tcl_Obj ** errorPtr));
+EXTERN int TclpObjCopyDirectory (Tcl_Obj * srcPathPtr,
+ Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr);
#endif
#ifndef TclpObjCreateDirectory_TCL_DECLARED
#define TclpObjCreateDirectory_TCL_DECLARED
/* 202 */
-EXTERN int TclpObjCreateDirectory _ANSI_ARGS_((
- Tcl_Obj * pathPtr));
+EXTERN int TclpObjCreateDirectory (Tcl_Obj * pathPtr);
#endif
#ifndef TclpObjDeleteFile_TCL_DECLARED
#define TclpObjDeleteFile_TCL_DECLARED
/* 203 */
-EXTERN int TclpObjDeleteFile _ANSI_ARGS_((Tcl_Obj * pathPtr));
+EXTERN int TclpObjDeleteFile (Tcl_Obj * pathPtr);
#endif
#ifndef TclpObjCopyFile_TCL_DECLARED
#define TclpObjCopyFile_TCL_DECLARED
/* 204 */
-EXTERN int TclpObjCopyFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr,
- Tcl_Obj * destPathPtr));
+EXTERN int TclpObjCopyFile (Tcl_Obj * srcPathPtr,
+ Tcl_Obj * destPathPtr);
#endif
#ifndef TclpObjRenameFile_TCL_DECLARED
#define TclpObjRenameFile_TCL_DECLARED
/* 205 */
-EXTERN int TclpObjRenameFile _ANSI_ARGS_((Tcl_Obj * srcPathPtr,
- Tcl_Obj * destPathPtr));
+EXTERN int TclpObjRenameFile (Tcl_Obj * srcPathPtr,
+ Tcl_Obj * destPathPtr);
#endif
#ifndef TclpObjStat_TCL_DECLARED
#define TclpObjStat_TCL_DECLARED
/* 206 */
-EXTERN int TclpObjStat _ANSI_ARGS_((Tcl_Obj * pathPtr,
- Tcl_StatBuf * buf));
+EXTERN int TclpObjStat (Tcl_Obj * pathPtr, Tcl_StatBuf * buf);
#endif
#ifndef TclpObjAccess_TCL_DECLARED
#define TclpObjAccess_TCL_DECLARED
/* 207 */
-EXTERN int TclpObjAccess _ANSI_ARGS_((Tcl_Obj * pathPtr,
- int mode));
+EXTERN int TclpObjAccess (Tcl_Obj * pathPtr, int mode);
#endif
#ifndef TclpOpenFileChannel_TCL_DECLARED
#define TclpOpenFileChannel_TCL_DECLARED
/* 208 */
-EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp,
- Tcl_Obj * pathPtr, int mode, int permissions));
+EXTERN Tcl_Channel TclpOpenFileChannel (Tcl_Interp * interp,
+ Tcl_Obj * pathPtr, int mode, int permissions);
#endif
/* Slot 209 is reserved */
/* Slot 210 is reserved */
@@ -966,42 +932,41 @@ EXTERN Tcl_Channel TclpOpenFileChannel _ANSI_ARGS_((Tcl_Interp * interp,
#ifndef TclpFindExecutable_TCL_DECLARED
#define TclpFindExecutable_TCL_DECLARED
/* 212 */
-EXTERN void TclpFindExecutable _ANSI_ARGS_((CONST char * argv0));
+EXTERN void TclpFindExecutable (CONST char * argv0);
#endif
#ifndef TclGetObjNameOfExecutable_TCL_DECLARED
#define TclGetObjNameOfExecutable_TCL_DECLARED
/* 213 */
-EXTERN Tcl_Obj * TclGetObjNameOfExecutable _ANSI_ARGS_((void));
+EXTERN Tcl_Obj * TclGetObjNameOfExecutable (void);
#endif
#ifndef TclSetObjNameOfExecutable_TCL_DECLARED
#define TclSetObjNameOfExecutable_TCL_DECLARED
/* 214 */
-EXTERN void TclSetObjNameOfExecutable _ANSI_ARGS_((
- Tcl_Obj * name, Tcl_Encoding encoding));
+EXTERN void TclSetObjNameOfExecutable (Tcl_Obj * name,
+ Tcl_Encoding encoding);
#endif
#ifndef TclStackAlloc_TCL_DECLARED
#define TclStackAlloc_TCL_DECLARED
/* 215 */
-EXTERN char * TclStackAlloc _ANSI_ARGS_((Tcl_Interp * interp,
- int numBytes));
+EXTERN char * TclStackAlloc (Tcl_Interp * interp, int numBytes);
#endif
#ifndef TclStackFree_TCL_DECLARED
#define TclStackFree_TCL_DECLARED
/* 216 */
-EXTERN void TclStackFree _ANSI_ARGS_((Tcl_Interp * interp));
+EXTERN void TclStackFree (Tcl_Interp * interp);
#endif
#ifndef TclPushStackFrame_TCL_DECLARED
#define TclPushStackFrame_TCL_DECLARED
/* 217 */
-EXTERN int TclPushStackFrame _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclPushStackFrame (Tcl_Interp * interp,
Tcl_CallFrame ** framePtrPtr,
Tcl_Namespace * namespacePtr,
- int isProcCallFrame));
+ int isProcCallFrame);
#endif
#ifndef TclPopStackFrame_TCL_DECLARED
#define TclPopStackFrame_TCL_DECLARED
/* 218 */
-EXTERN void TclPopStackFrame _ANSI_ARGS_((Tcl_Interp * interp));
+EXTERN void TclPopStackFrame (Tcl_Interp * interp);
#endif
/* Slot 219 is reserved */
/* Slot 220 is reserved */
@@ -1011,50 +976,49 @@ EXTERN void TclPopStackFrame _ANSI_ARGS_((Tcl_Interp * interp));
#ifndef TclGetPlatform_TCL_DECLARED
#define TclGetPlatform_TCL_DECLARED
/* 224 */
-EXTERN TclPlatformType * TclGetPlatform _ANSI_ARGS_((void));
+EXTERN TclPlatformType * TclGetPlatform (void);
#endif
#ifndef TclTraceDictPath_TCL_DECLARED
#define TclTraceDictPath_TCL_DECLARED
/* 225 */
-EXTERN Tcl_Obj * TclTraceDictPath _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN Tcl_Obj * TclTraceDictPath (Tcl_Interp * interp,
Tcl_Obj * rootPtr, int keyc,
- Tcl_Obj *CONST keyv[], int flags));
+ Tcl_Obj *CONST keyv[], int flags);
#endif
#ifndef TclObjBeingDeleted_TCL_DECLARED
#define TclObjBeingDeleted_TCL_DECLARED
/* 226 */
-EXTERN int TclObjBeingDeleted _ANSI_ARGS_((Tcl_Obj * objPtr));
+EXTERN int TclObjBeingDeleted (Tcl_Obj * objPtr);
#endif
#ifndef TclSetNsPath_TCL_DECLARED
#define TclSetNsPath_TCL_DECLARED
/* 227 */
-EXTERN void TclSetNsPath _ANSI_ARGS_((Namespace * nsPtr,
- int pathLength, Tcl_Namespace * pathAry[]));
+EXTERN void TclSetNsPath (Namespace * nsPtr, int pathLength,
+ Tcl_Namespace * pathAry[]);
#endif
#ifndef TclObjInterpProcCore_TCL_DECLARED
#define TclObjInterpProcCore_TCL_DECLARED
/* 228 */
-EXTERN int TclObjInterpProcCore _ANSI_ARGS_((
- register Tcl_Interp * interp,
+EXTERN int TclObjInterpProcCore (register Tcl_Interp * interp,
CallFrame * framePtr, Tcl_Obj * procNameObj,
int isLambda, int skip,
- ProcErrorProc errorProc));
+ ProcErrorProc errorProc);
#endif
#ifndef TclPtrMakeUpvar_TCL_DECLARED
#define TclPtrMakeUpvar_TCL_DECLARED
/* 229 */
-EXTERN int TclPtrMakeUpvar _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN int TclPtrMakeUpvar (Tcl_Interp * interp,
Var * otherP1Ptr, CONST char * myName,
- int myFlags, int index));
+ int myFlags, int index);
#endif
#ifndef TclObjLookupVar_TCL_DECLARED
#define TclObjLookupVar_TCL_DECLARED
/* 230 */
-EXTERN Var * TclObjLookupVar _ANSI_ARGS_((Tcl_Interp * interp,
+EXTERN Var * TclObjLookupVar (Tcl_Interp * interp,
Tcl_Obj * part1Ptr, CONST char * part2,
int flags, CONST char * msg,
CONST int createPart1, CONST int createPart2,
- Var ** arrayPtrPtr));
+ Var ** arrayPtrPtr);
#endif
typedef struct TclIntStubs {
@@ -1064,202 +1028,202 @@ typedef struct TclIntStubs {
void *reserved0;
void *reserved1;
void *reserved2;
- void (*tclAllocateFreeObjects) _ANSI_ARGS_((void)); /* 3 */
+ void (*tclAllocateFreeObjects) (void); /* 3 */
void *reserved4;
#if !defined(__WIN32__) /* UNIX */
- int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
+ int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
#endif /* UNIX */
#ifdef __WIN32__
- int (*tclCleanupChildren) _ANSI_ARGS_((Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan)); /* 5 */
+ int (*tclCleanupChildren) (Tcl_Interp * interp, int numPids, Tcl_Pid * pidPtr, Tcl_Channel errorChan); /* 5 */
#endif /* __WIN32__ */
- 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 */
+ void (*tclCleanupCommand) (Command * cmdPtr); /* 6 */
+ int (*tclCopyAndCollapse) (int count, CONST char * src, char * dst); /* 7 */
+ int (*tclCopyChannel) (Tcl_Interp * interp, Tcl_Channel inChan, Tcl_Channel outChan, int toRead, Tcl_Obj * cmdPtr); /* 8 */
#if !defined(__WIN32__) /* UNIX */
- int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
+ int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
#endif /* UNIX */
#ifdef __WIN32__
- int (*tclCreatePipeline) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr)); /* 9 */
+ int (*tclCreatePipeline) (Tcl_Interp * interp, int argc, CONST char ** argv, Tcl_Pid ** pidArrayPtr, TclFile * inPipePtr, TclFile * outPipePtr, TclFile * errFilePtr); /* 9 */
#endif /* __WIN32__ */
- int (*tclCreateProc) _ANSI_ARGS_((Tcl_Interp * interp, Namespace * nsPtr, CONST 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 (*tclCreateProc) (Tcl_Interp * interp, Namespace * nsPtr, CONST char * procName, Tcl_Obj * argsPtr, Tcl_Obj * bodyPtr, Proc ** procPtrPtr); /* 10 */
+ void (*tclDeleteCompiledLocalVars) (Interp * iPtr, CallFrame * framePtr); /* 11 */
+ void (*tclDeleteVars) (Interp * iPtr, Tcl_HashTable * tablePtr); /* 12 */
void *reserved13;
- void (*tclDumpMemoryInfo) _ANSI_ARGS_((FILE * outFile)); /* 14 */
+ void (*tclDumpMemoryInfo) (FILE * outFile); /* 14 */
void *reserved15;
- void (*tclExprFloatError) _ANSI_ARGS_((Tcl_Interp * interp, double value)); /* 16 */
+ void (*tclExprFloatError) (Tcl_Interp * interp, double value); /* 16 */
void *reserved17;
void *reserved18;
void *reserved19;
void *reserved20;
void *reserved21;
- int (*tclFindElement) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr)); /* 22 */
- Proc * (*tclFindProc) _ANSI_ARGS_((Interp * iPtr, CONST char * procName)); /* 23 */
+ int (*tclFindElement) (Tcl_Interp * interp, CONST char * listStr, int listLength, CONST char ** elementPtr, CONST char ** nextPtr, int * sizePtr, int * bracePtr); /* 22 */
+ Proc * (*tclFindProc) (Interp * iPtr, CONST char * procName); /* 23 */
void *reserved24;
- void (*tclFreePackageInfo) _ANSI_ARGS_((Interp * iPtr)); /* 25 */
+ void (*tclFreePackageInfo) (Interp * iPtr); /* 25 */
void *reserved26;
void *reserved27;
- Tcl_Channel (*tclpGetDefaultStdChannel) _ANSI_ARGS_((int type)); /* 28 */
+ Tcl_Channel (*tclpGetDefaultStdChannel) (int type); /* 28 */
void *reserved29;
void *reserved30;
- CONST char * (*tclGetExtension) _ANSI_ARGS_((CONST char * name)); /* 31 */
- int (*tclGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr)); /* 32 */
+ CONST char * (*tclGetExtension) (CONST char * name); /* 31 */
+ int (*tclGetFrame) (Tcl_Interp * interp, CONST char * str, CallFrame ** framePtrPtr); /* 32 */
void *reserved33;
- int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */
+ int (*tclGetIntForIndex) (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); /* 34 */
void *reserved35;
- int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */
- int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */
- int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */
- TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */
- int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */
- Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
- char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
+ int (*tclGetLong) (Tcl_Interp * interp, CONST char * str, long * longPtr); /* 36 */
+ int (*tclGetLoadedPackages) (Tcl_Interp * interp, char * targetName); /* 37 */
+ int (*tclGetNamespaceForQualName) (Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr); /* 38 */
+ TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */
+ int (*tclGetOpenMode) (Tcl_Interp * interp, CONST char * str, int * seekFlagPtr); /* 40 */
+ Tcl_Command (*tclGetOriginalCommand) (Tcl_Command command); /* 41 */
+ char * (*tclpGetUserHome) (CONST char * name, Tcl_DString * bufferPtr); /* 42 */
void *reserved43;
- int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */
- int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
- int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
+ int (*tclGuessPackageName) (CONST char * fileName, Tcl_DString * bufPtr); /* 44 */
+ int (*tclHideUnsafeCommands) (Tcl_Interp * interp); /* 45 */
+ int (*tclInExit) (void); /* 46 */
void *reserved47;
void *reserved48;
void *reserved49;
- void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
- int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
+ void (*tclInitCompiledLocals) (Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr); /* 50 */
+ int (*tclInterpInit) (Tcl_Interp * interp); /* 51 */
void *reserved52;
- int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */
- int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
- Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
+ int (*tclInvokeObjectCommand) (ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv); /* 53 */
+ int (*tclInvokeStringCommand) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 54 */
+ Proc * (*tclIsProc) (Command * cmdPtr); /* 55 */
void *reserved56;
void *reserved57;
- Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */
+ Var * (*tclLookupVar) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, int flags, CONST char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr); /* 58 */
void *reserved59;
- int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST 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 (*tclNeedSpace) (CONST char * start, CONST char * end); /* 60 */
+ Tcl_Obj * (*tclNewProcBodyObj) (Proc * procPtr); /* 61 */
+ int (*tclObjCommandComplete) (Tcl_Obj * cmdPtr); /* 62 */
+ int (*tclObjInterpProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[]); /* 63 */
+ int (*tclObjInvoke) (Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags); /* 64 */
void *reserved65;
void *reserved66;
void *reserved67;
void *reserved68;
- char * (*tclpAlloc) _ANSI_ARGS_((unsigned int size)); /* 69 */
+ char * (*tclpAlloc) (unsigned int size); /* 69 */
void *reserved70;
void *reserved71;
void *reserved72;
void *reserved73;
- 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 */
+ void (*tclpFree) (char * ptr); /* 74 */
+ unsigned long (*tclpGetClicks) (void); /* 75 */
+ unsigned long (*tclpGetSeconds) (void); /* 76 */
+ void (*tclpGetTime) (Tcl_Time * time); /* 77 */
+ int (*tclpGetTimeZone) (unsigned long time); /* 78 */
void *reserved79;
void *reserved80;
- char * (*tclpRealloc) _ANSI_ARGS_((char * ptr, unsigned int size)); /* 81 */
+ char * (*tclpRealloc) (char * ptr, unsigned int size); /* 81 */
void *reserved82;
void *reserved83;
void *reserved84;
void *reserved85;
void *reserved86;
void *reserved87;
- char * (*tclPrecTraceProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags)); /* 88 */
- int (*tclPreventAliasLoop) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Interp * cmdInterp, Tcl_Command cmd)); /* 89 */
+ char * (*tclPrecTraceProc) (ClientData clientData, Tcl_Interp * interp, CONST char * name1, CONST char * name2, int flags); /* 88 */
+ int (*tclPreventAliasLoop) (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 */
+ void (*tclProcCleanupProc) (Proc * procPtr); /* 91 */
+ int (*tclProcCompileProc) (Tcl_Interp * interp, Proc * procPtr, Tcl_Obj * bodyPtr, Namespace * nsPtr, CONST char * description, CONST char * procName); /* 92 */
+ void (*tclProcDeleteProc) (ClientData clientData); /* 93 */
void *reserved94;
void *reserved95;
- int (*tclRenameCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * oldName, CONST char * newName)); /* 96 */
- void (*tclResetShadowedCmdRefs) _ANSI_ARGS_((Tcl_Interp * interp, Command * newCmdPtr)); /* 97 */
- int (*tclServiceIdle) _ANSI_ARGS_((void)); /* 98 */
+ int (*tclRenameCommand) (Tcl_Interp * interp, CONST char * oldName, CONST char * newName); /* 96 */
+ void (*tclResetShadowedCmdRefs) (Tcl_Interp * interp, Command * newCmdPtr); /* 97 */
+ int (*tclServiceIdle) (void); /* 98 */
void *reserved99;
void *reserved100;
- char * (*tclSetPreInitScript) _ANSI_ARGS_((char * string)); /* 101 */
- void (*tclSetupEnv) _ANSI_ARGS_((Tcl_Interp * interp)); /* 102 */
- int (*tclSockGetPort) _ANSI_ARGS_((Tcl_Interp * interp, char * str, char * proto, int * portPtr)); /* 103 */
+ char * (*tclSetPreInitScript) (char * string); /* 101 */
+ void (*tclSetupEnv) (Tcl_Interp * interp); /* 102 */
+ int (*tclSockGetPort) (Tcl_Interp * interp, char * str, char * proto, int * portPtr); /* 103 */
#if !defined(__WIN32__) /* UNIX */
- int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
+ int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
#endif /* UNIX */
#ifdef __WIN32__
- int (*tclSockMinimumBuffers) _ANSI_ARGS_((int sock, int size)); /* 104 */
+ int (*tclSockMinimumBuffers) (int sock, int size); /* 104 */
#endif /* __WIN32__ */
void *reserved105;
void *reserved106;
void *reserved107;
- void (*tclTeardownNamespace) _ANSI_ARGS_((Namespace * nsPtr)); /* 108 */
- int (*tclUpdateReturnInfo) _ANSI_ARGS_((Interp * iPtr)); /* 109 */
+ void (*tclTeardownNamespace) (Namespace * nsPtr); /* 108 */
+ int (*tclUpdateReturnInfo) (Interp * iPtr); /* 109 */
void *reserved110;
- void (*tcl_AddInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST 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, CONST 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, CONST char * pattern, int resetListFirst)); /* 115 */
- Tcl_Command (*tcl_FindCommand) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 116 */
- Tcl_Namespace * (*tcl_FindNamespace) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 117 */
- int (*tcl_GetInterpResolvers) _ANSI_ARGS_((Tcl_Interp * interp, CONST 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, CONST char * name, Tcl_Namespace * contextNsPtr, int flags)); /* 120 */
- int (*tcl_ForgetImport) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST 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, CONST 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, CONST 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_((CONST time_t * time, int useGMT)); /* 133 */
+ void (*tcl_AddInterpResolvers) (Tcl_Interp * interp, CONST char * name, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); /* 111 */
+ int (*tcl_AppendExportList) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, Tcl_Obj * objPtr); /* 112 */
+ Tcl_Namespace * (*tcl_CreateNamespace) (Tcl_Interp * interp, CONST char * name, ClientData clientData, Tcl_NamespaceDeleteProc * deleteProc); /* 113 */
+ void (*tcl_DeleteNamespace) (Tcl_Namespace * nsPtr); /* 114 */
+ int (*tcl_Export) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int resetListFirst); /* 115 */
+ Tcl_Command (*tcl_FindCommand) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 116 */
+ Tcl_Namespace * (*tcl_FindNamespace) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 117 */
+ int (*tcl_GetInterpResolvers) (Tcl_Interp * interp, CONST char * name, Tcl_ResolverInfo * resInfo); /* 118 */
+ int (*tcl_GetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolverInfo * resInfo); /* 119 */
+ Tcl_Var (*tcl_FindNamespaceVar) (Tcl_Interp * interp, CONST char * name, Tcl_Namespace * contextNsPtr, int flags); /* 120 */
+ int (*tcl_ForgetImport) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern); /* 121 */
+ Tcl_Command (*tcl_GetCommandFromObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 122 */
+ void (*tcl_GetCommandFullName) (Tcl_Interp * interp, Tcl_Command command, Tcl_Obj * objPtr); /* 123 */
+ Tcl_Namespace * (*tcl_GetCurrentNamespace) (Tcl_Interp * interp); /* 124 */
+ Tcl_Namespace * (*tcl_GetGlobalNamespace) (Tcl_Interp * interp); /* 125 */
+ void (*tcl_GetVariableFullName) (Tcl_Interp * interp, Tcl_Var variable, Tcl_Obj * objPtr); /* 126 */
+ int (*tcl_Import) (Tcl_Interp * interp, Tcl_Namespace * nsPtr, CONST char * pattern, int allowOverwrite); /* 127 */
+ void (*tcl_PopCallFrame) (Tcl_Interp * interp); /* 128 */
+ int (*tcl_PushCallFrame) (Tcl_Interp * interp, Tcl_CallFrame * framePtr, Tcl_Namespace * nsPtr, int isProcCallFrame); /* 129 */
+ int (*tcl_RemoveInterpResolvers) (Tcl_Interp * interp, CONST char * name); /* 130 */
+ void (*tcl_SetNamespaceResolvers) (Tcl_Namespace * namespacePtr, Tcl_ResolveCmdProc * cmdProc, Tcl_ResolveVarProc * varProc, Tcl_ResolveCompiledVarProc * compiledVarProc); /* 131 */
+ int (*tclpHasSockets) (Tcl_Interp * interp); /* 132 */
+ struct tm * (*tclpGetDate) (CONST time_t * time, int useGMT); /* 133 */
void *reserved134;
void *reserved135;
void *reserved136;
void *reserved137;
- CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
+ CONST84_RETURN char * (*tclGetEnv) (CONST char * name, Tcl_DString * valuePtr); /* 138 */
void *reserved139;
void *reserved140;
- CONST84_RETURN char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */
- int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */
- int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */
- void (*tclHideLiteral) _ANSI_ARGS_((Tcl_Interp * interp, struct CompileEnv * envPtr, int index)); /* 144 */
- struct AuxDataType * (*tclGetAuxDataType) _ANSI_ARGS_((char * typeName)); /* 145 */
- TclHandle (*tclHandleCreate) _ANSI_ARGS_((VOID * ptr)); /* 146 */
- void (*tclHandleFree) _ANSI_ARGS_((TclHandle handle)); /* 147 */
- TclHandle (*tclHandlePreserve) _ANSI_ARGS_((TclHandle handle)); /* 148 */
- void (*tclHandleRelease) _ANSI_ARGS_((TclHandle handle)); /* 149 */
- int (*tclRegAbout) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_RegExp re)); /* 150 */
- void (*tclRegExpRangeUniChar) _ANSI_ARGS_((Tcl_RegExp re, int index, int * startPtr, int * endPtr)); /* 151 */
- void (*tclSetLibraryPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 152 */
- Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */
+ CONST84_RETURN char * (*tclpGetCwd) (Tcl_Interp * interp, Tcl_DString * cwdPtr); /* 141 */
+ int (*tclSetByteCodeFromAny) (Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData); /* 142 */
+ int (*tclAddLiteralObj) (struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr); /* 143 */
+ void (*tclHideLiteral) (Tcl_Interp * interp, struct CompileEnv * envPtr, int index); /* 144 */
+ struct AuxDataType * (*tclGetAuxDataType) (char * typeName); /* 145 */
+ TclHandle (*tclHandleCreate) (VOID * ptr); /* 146 */
+ void (*tclHandleFree) (TclHandle handle); /* 147 */
+ TclHandle (*tclHandlePreserve) (TclHandle handle); /* 148 */
+ void (*tclHandleRelease) (TclHandle handle); /* 149 */
+ int (*tclRegAbout) (Tcl_Interp * interp, Tcl_RegExp re); /* 150 */
+ void (*tclRegExpRangeUniChar) (Tcl_RegExp re, int index, int * startPtr, int * endPtr); /* 151 */
+ void (*tclSetLibraryPath) (Tcl_Obj * pathPtr); /* 152 */
+ Tcl_Obj * (*tclGetLibraryPath) (void); /* 153 */
void *reserved154;
void *reserved155;
- void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * msg, int status)); /* 156 */
- Var * (*tclVarTraceExists) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * varName)); /* 157 */
- void (*tclSetStartupScriptFileName) _ANSI_ARGS_((CONST char * filename)); /* 158 */
- CONST84_RETURN char * (*tclGetStartupScriptFileName) _ANSI_ARGS_((void)); /* 159 */
+ void (*tclRegError) (Tcl_Interp * interp, CONST char * msg, int status); /* 156 */
+ Var * (*tclVarTraceExists) (Tcl_Interp * interp, CONST char * varName); /* 157 */
+ void (*tclSetStartupScriptFileName) (CONST char * filename); /* 158 */
+ CONST84_RETURN char * (*tclGetStartupScriptFileName) (void); /* 159 */
void *reserved160;
- int (*tclChannelTransform) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr)); /* 161 */
- void (*tclChannelEventScriptInvoker) _ANSI_ARGS_((ClientData clientData, int flags)); /* 162 */
- void * (*tclGetInstructionTable) _ANSI_ARGS_((void)); /* 163 */
- void (*tclExpandCodeArray) _ANSI_ARGS_((void * envPtr)); /* 164 */
- void (*tclpSetInitialEncodings) _ANSI_ARGS_((void)); /* 165 */
- int (*tclListObjSetElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr)); /* 166 */
- void (*tclSetStartupScriptPath) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 167 */
- Tcl_Obj * (*tclGetStartupScriptPath) _ANSI_ARGS_((void)); /* 168 */
- int (*tclpUtfNcmp2) _ANSI_ARGS_((CONST char * s1, CONST char * s2, unsigned long n)); /* 169 */
- int (*tclCheckInterpTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 170 */
- int (*tclCheckExecutionTraces) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[])); /* 171 */
- int (*tclInThreadExit) _ANSI_ARGS_((void)); /* 172 */
- int (*tclUniCharMatch) _ANSI_ARGS_((CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase)); /* 173 */
+ int (*tclChannelTransform) (Tcl_Interp * interp, Tcl_Channel chan, Tcl_Obj * cmdObjPtr); /* 161 */
+ void (*tclChannelEventScriptInvoker) (ClientData clientData, int flags); /* 162 */
+ void * (*tclGetInstructionTable) (void); /* 163 */
+ void (*tclExpandCodeArray) (void * envPtr); /* 164 */
+ void (*tclpSetInitialEncodings) (void); /* 165 */
+ int (*tclListObjSetElement) (Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj * valuePtr); /* 166 */
+ void (*tclSetStartupScriptPath) (Tcl_Obj * pathPtr); /* 167 */
+ Tcl_Obj * (*tclGetStartupScriptPath) (void); /* 168 */
+ int (*tclpUtfNcmp2) (CONST char * s1, CONST char * s2, unsigned long n); /* 169 */
+ int (*tclCheckInterpTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 170 */
+ int (*tclCheckExecutionTraces) (Tcl_Interp * interp, CONST char * command, int numChars, Command * cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *CONST objv[]); /* 171 */
+ int (*tclInThreadExit) (void); /* 172 */
+ int (*tclUniCharMatch) (CONST Tcl_UniChar * string, int strLen, CONST Tcl_UniChar * pattern, int ptnLen, int nocase); /* 173 */
void *reserved174;
- int (*tclCallVarTraces) _ANSI_ARGS_((Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg)); /* 175 */
- void (*tclCleanupVar) _ANSI_ARGS_((Var * varPtr, Var * arrayPtr)); /* 176 */
- void (*tclVarErrMsg) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason)); /* 177 */
- void (*tcl_SetStartupScript) _ANSI_ARGS_((Tcl_Obj * pathPtr, CONST char* encodingName)); /* 178 */
- Tcl_Obj * (*tcl_GetStartupScript) _ANSI_ARGS_((CONST char ** encodingNamePtr)); /* 179 */
+ int (*tclCallVarTraces) (Interp * iPtr, Var * arrayPtr, Var * varPtr, CONST char * part1, CONST char * part2, int flags, int leaveErrMsg); /* 175 */
+ void (*tclCleanupVar) (Var * varPtr, Var * arrayPtr); /* 176 */
+ void (*tclVarErrMsg) (Tcl_Interp * interp, CONST char * part1, CONST char * part2, CONST char * operation, CONST char * reason); /* 177 */
+ void (*tcl_SetStartupScript) (Tcl_Obj * pathPtr, CONST char* encodingName); /* 178 */
+ Tcl_Obj * (*tcl_GetStartupScript) (CONST char ** encodingNamePtr); /* 179 */
void *reserved180;
void *reserved181;
- struct tm * (*tclpLocaltime) _ANSI_ARGS_((CONST time_t * clock)); /* 182 */
- struct tm * (*tclpGmtime) _ANSI_ARGS_((CONST time_t * clock)); /* 183 */
+ struct tm * (*tclpLocaltime) (CONST time_t * clock); /* 182 */
+ struct tm * (*tclpGmtime) (CONST time_t * clock); /* 183 */
void *reserved184;
void *reserved185;
void *reserved186;
@@ -1273,40 +1237,40 @@ typedef struct TclIntStubs {
void *reserved194;
void *reserved195;
void *reserved196;
- int (*tclCompEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 197 */
- int (*tclObjGetFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CallFrame ** framePtrPtr)); /* 198 */
+ int (*tclCompEvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr); /* 197 */
+ int (*tclObjGetFrame) (Tcl_Interp * interp, Tcl_Obj * objPtr, CallFrame ** framePtrPtr); /* 198 */
void *reserved199;
- int (*tclpObjRemoveDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr)); /* 200 */
- int (*tclpObjCopyDirectory) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr)); /* 201 */
- int (*tclpObjCreateDirectory) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 202 */
- int (*tclpObjDeleteFile) _ANSI_ARGS_((Tcl_Obj * pathPtr)); /* 203 */
- int (*tclpObjCopyFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr)); /* 204 */
- int (*tclpObjRenameFile) _ANSI_ARGS_((Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr)); /* 205 */
- int (*tclpObjStat) _ANSI_ARGS_((Tcl_Obj * pathPtr, Tcl_StatBuf * buf)); /* 206 */
- int (*tclpObjAccess) _ANSI_ARGS_((Tcl_Obj * pathPtr, int mode)); /* 207 */
- Tcl_Channel (*tclpOpenFileChannel) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions)); /* 208 */
+ int (*tclpObjRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); /* 200 */
+ int (*tclpObjCopyDirectory) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr, Tcl_Obj ** errorPtr); /* 201 */
+ int (*tclpObjCreateDirectory) (Tcl_Obj * pathPtr); /* 202 */
+ int (*tclpObjDeleteFile) (Tcl_Obj * pathPtr); /* 203 */
+ int (*tclpObjCopyFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 204 */
+ int (*tclpObjRenameFile) (Tcl_Obj * srcPathPtr, Tcl_Obj * destPathPtr); /* 205 */
+ int (*tclpObjStat) (Tcl_Obj * pathPtr, Tcl_StatBuf * buf); /* 206 */
+ int (*tclpObjAccess) (Tcl_Obj * pathPtr, int mode); /* 207 */
+ Tcl_Channel (*tclpOpenFileChannel) (Tcl_Interp * interp, Tcl_Obj * pathPtr, int mode, int permissions); /* 208 */
void *reserved209;
void *reserved210;
void *reserved211;
- void (*tclpFindExecutable) _ANSI_ARGS_((CONST char * argv0)); /* 212 */
- Tcl_Obj * (*tclGetObjNameOfExecutable) _ANSI_ARGS_((void)); /* 213 */
- void (*tclSetObjNameOfExecutable) _ANSI_ARGS_((Tcl_Obj * name, Tcl_Encoding encoding)); /* 214 */
- char * (*tclStackAlloc) _ANSI_ARGS_((Tcl_Interp * interp, int numBytes)); /* 215 */
- void (*tclStackFree) _ANSI_ARGS_((Tcl_Interp * interp)); /* 216 */
- int (*tclPushStackFrame) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_CallFrame ** framePtrPtr, Tcl_Namespace * namespacePtr, int isProcCallFrame)); /* 217 */
- void (*tclPopStackFrame) _ANSI_ARGS_((Tcl_Interp * interp)); /* 218 */
+ void (*tclpFindExecutable) (CONST char * argv0); /* 212 */
+ Tcl_Obj * (*tclGetObjNameOfExecutable) (void); /* 213 */
+ void (*tclSetObjNameOfExecutable) (Tcl_Obj * name, Tcl_Encoding encoding); /* 214 */
+ char * (*tclStackAlloc) (Tcl_Interp * interp, int numBytes); /* 215 */
+ void (*tclStackFree) (Tcl_Interp * interp); /* 216 */
+ int (*tclPushStackFrame) (Tcl_Interp * interp, Tcl_CallFrame ** framePtrPtr, Tcl_Namespace * namespacePtr, int isProcCallFrame); /* 217 */
+ void (*tclPopStackFrame) (Tcl_Interp * interp); /* 218 */
void *reserved219;
void *reserved220;
void *reserved221;
void *reserved222;
void *reserved223;
- TclPlatformType * (*tclGetPlatform) _ANSI_ARGS_((void)); /* 224 */
- Tcl_Obj * (*tclTraceDictPath) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags)); /* 225 */
- int (*tclObjBeingDeleted) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 226 */
- void (*tclSetNsPath) _ANSI_ARGS_((Namespace * nsPtr, int pathLength, Tcl_Namespace * pathAry[])); /* 227 */
- int (*tclObjInterpProcCore) _ANSI_ARGS_((register Tcl_Interp * interp, CallFrame * framePtr, Tcl_Obj * procNameObj, int isLambda, int skip, ProcErrorProc errorProc)); /* 228 */
- int (*tclPtrMakeUpvar) _ANSI_ARGS_((Tcl_Interp * interp, Var * otherP1Ptr, CONST char * myName, int myFlags, int index)); /* 229 */
- Var * (*tclObjLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, CONST char * part2, int flags, CONST char * msg, CONST int createPart1, CONST int createPart2, Var ** arrayPtrPtr)); /* 230 */
+ TclPlatformType * (*tclGetPlatform) (void); /* 224 */
+ Tcl_Obj * (*tclTraceDictPath) (Tcl_Interp * interp, Tcl_Obj * rootPtr, int keyc, Tcl_Obj *CONST keyv[], int flags); /* 225 */
+ int (*tclObjBeingDeleted) (Tcl_Obj * objPtr); /* 226 */
+ void (*tclSetNsPath) (Namespace * nsPtr, int pathLength, Tcl_Namespace * pathAry[]); /* 227 */
+ int (*tclObjInterpProcCore) (register Tcl_Interp * interp, CallFrame * framePtr, Tcl_Obj * procNameObj, int isLambda, int skip, ProcErrorProc errorProc); /* 228 */
+ int (*tclPtrMakeUpvar) (Tcl_Interp * interp, Var * otherP1Ptr, CONST char * myName, int myFlags, int index); /* 229 */
+ Var * (*tclObjLookupVar) (Tcl_Interp * interp, Tcl_Obj * part1Ptr, CONST char * part2, int flags, CONST char * msg, CONST int createPart1, CONST int createPart2, Var ** arrayPtrPtr); /* 230 */
} TclIntStubs;
#ifdef __cplusplus