git.zerfleddert.de Git - micropolis/blame_incremental - src/tcl/tcl.h

/*
 * tcl.h --
 *
 *	This header file describes the externally-visible facilities
 *	of the Tcl interpreter.
 *
 * Copyright 1987-1991 Regents of the University of California
 * Permission to use, copy, modify, and distribute this
 * software and its documentation for any purpose and without
 * fee is hereby granted, provided that the above copyright
 * notice appear in all copies.  The University of California
 * makes no representations about the suitability of this
 * software for any purpose.  It is provided "as is" without
 * express or implied warranty.
 *
 * $Header: /user6/ouster/tcl/RCS/tcl.h,v 1.84 92/08/07 08:21:34 ouster Exp $ SPRITE (Berkeley)
 */

#ifndef _TCL
#define _TCL

#define TCL_VERSION "6.4"

/*
 * Definitions that allow this header file to be used either with or
 * without ANSI C features like function prototypes.
 */

#undef _ANSI_ARGS_
#undef const
#if ((defined(__STDC__) || defined(SABER)) && !defined(NO_PROTOTYPE)) || defined(__cplusplus)
#   define _ANSI_ARGS_(x)	x
#   define CONST const
#   ifdef __cplusplus
#       define VARARGS (...)
#   else
#       define VARARGS ()
#   endif
#else
#   define _ANSI_ARGS_(x)	()
#   define CONST
#endif

#ifdef __cplusplus
#   define EXTERN extern "C"
#else
#   define EXTERN extern
#endif

/*
 * Miscellaneous declarations (to allow Tcl to be used stand-alone,
 * without the rest of Sprite).
 */

#ifndef NULL
#define NULL 0
#endif

#ifndef _CLIENTDATA
typedef int *ClientData;
#define _CLIENTDATA
#endif

/*
 * Data structures defined opaquely in this module.  The definitions
 * below just provide dummy types.  A few fields are made visible in
 * Tcl_Interp structures, namely those for returning string values.
 * Note:  any change to the Tcl_Interp definition below must be mirrored
 * in the "real" definition in tclInt.h.
 */

typedef struct Tcl_Interp{
    char *result;		/* Points to result string returned by last
				 * command. */
    void (*freeProc) _ANSI_ARGS_((char *blockPtr));
				/* Zero means result is statically allocated.
				 * If non-zero, gives address of procedure
				 * to invoke to free the result.  Must be
				 * freed by Tcl_Eval before executing next
				 * command. */
    int errorLine;		/* When TCL_ERROR is returned, this gives
				 * the line number within the command where
				 * the error occurred (1 means first line). */
} Tcl_Interp;

typedef int *Tcl_Trace;
typedef int *Tcl_CmdBuf;

/*
 * When a TCL command returns, the string pointer interp->result points to
 * a string containing return information from the command.  In addition,
 * the command procedure returns an integer value, which is one of the
 * following:
 *
 * TCL_OK		Command completed normally;  interp->result contains
 *			the command's result.
 * TCL_ERROR		The command couldn't be completed successfully;
 *			interp->result describes what went wrong.
 * TCL_RETURN		The command requests that the current procedure
 *			return;  interp->result contains the procedure's
 *			return value.
 * TCL_BREAK		The command requests that the innermost loop
 *			be exited;  interp->result is meaningless.
 * TCL_CONTINUE		Go on to the next iteration of the current loop;
 *			interp->result is meaninless.
 */

#define TCL_OK		0
#define TCL_ERROR	1
#define TCL_RETURN	2
#define TCL_BREAK	3
#define TCL_CONTINUE	4

#define TCL_RESULT_SIZE 199

/*
 * Procedure types defined by Tcl:
 */

typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData));
typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData,
	Tcl_Interp *interp, int argc, char *argv[]));
typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
	Tcl_Interp *interp, int level, char *command, Tcl_CmdProc *proc,
	ClientData cmdClientData, int argc, char *argv[]));
typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
	Tcl_Interp *interp, char *name1, char *name2, int flags));

/*
 * Flag values passed to Tcl_Eval (see the man page for details;  also
 * see tclInt.h for additional flags that are only used internally by
 * Tcl):
 */

#define TCL_BRACKET_TERM	1

/*
 * Flag that may be passed to Tcl_ConvertElement to force it not to
 * output braces (careful!  if you change this flag be sure to change
 * the definitions at the front of tclUtil.c).
 */

#define TCL_DONT_USE_BRACES	1

/*
 * Flag value passed to Tcl_RecordAndEval to request no evaluation
 * (record only).
 */

#define TCL_NO_EVAL		-1

/*
 * Specil freeProc values that may be passed to Tcl_SetResult (see
 * the man page for details):
 */

#define TCL_VOLATILE	((Tcl_FreeProc *) -1)
#define TCL_STATIC	((Tcl_FreeProc *) 0)
#define TCL_DYNAMIC	((Tcl_FreeProc *) free)

/*
 * Flag values passed to variable-related procedures.
 */

#define TCL_GLOBAL_ONLY		1
#define TCL_APPEND_VALUE	2
#define TCL_LIST_ELEMENT	4
#define TCL_NO_SPACE		8
#define TCL_TRACE_READS		0x10
#define TCL_TRACE_WRITES	0x20
#define TCL_TRACE_UNSETS	0x40
#define TCL_TRACE_DESTROYED	0x80
#define TCL_INTERP_DESTROYED	0x100
#define TCL_LEAVE_ERR_MSG	0x200

/*
 * Additional flag passed back to variable watchers.  This flag must
 * not overlap any of the TCL_TRACE_* flags defined above or the
 * TRACE_* flags defined in tclInt.h.
 */

#define TCL_VARIABLE_UNDEFINED	8

/*
 * The following declarations either map ckalloc and ckfree to
 * malloc and free, or they map them to procedures with all sorts
 * of debugging hooks defined in tclCkalloc.c.
 */

#ifdef TCL_MEM_DEBUG

EXTERN char *		Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,
			    char *file, int line));
EXTERN int		Tcl_DbCkfree _ANSI_ARGS_((char *ptr,
			    char *file, int line));
#  define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
#  define ckfree(x)  Tcl_DbCkfree(x, __FILE__, __LINE__)

#else

#  define ckalloc(x) malloc(x)
#  define ckfree(x)  free(x)

#endif /* TCL_MEM_DEBUG */

/*
 * Macro to free up result of interpreter.
 */

#define Tcl_FreeResult(interp)					\
    if ((interp)->freeProc != 0) {				\
	if ((interp)->freeProc == (Tcl_FreeProc *) free) {	\
	    ckfree((interp)->result);				\
	} else {						\
	    (*(interp)->freeProc)((interp)->result);		\
	}							\
	(interp)->freeProc = 0;					\
    }

/*
 * Exported Tcl procedures:
 */

EXTERN void		Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, int noSep));
EXTERN void		Tcl_AppendResult _ANSI_ARGS_((Tcl_Interp *interp, ...));
EXTERN char *		Tcl_AssembleCmd _ANSI_ARGS_((Tcl_CmdBuf buffer,
			    char *string));
EXTERN void		Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp *interp,
			    char *message));
EXTERN char		Tcl_Backslash _ANSI_ARGS_((char *src,
			    int *readPtr));
EXTERN char *		Tcl_Concat _ANSI_ARGS_((int argc, char **argv));
EXTERN int		Tcl_ConvertElement _ANSI_ARGS_((char *src,
			    char *dst, int flags));
EXTERN Tcl_CmdBuf	Tcl_CreateCmdBuf _ANSI_ARGS_((void));
EXTERN void		Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp *interp,
			    char *cmdName, Tcl_CmdProc *proc,
			    ClientData clientData,
			    Tcl_CmdDeleteProc *deleteProc));
EXTERN Tcl_Interp *	Tcl_CreateInterp _ANSI_ARGS_((void));
EXTERN int		Tcl_CreatePipeline _ANSI_ARGS_((Tcl_Interp *interp,
			    int argc, char **argv, int **pidArrayPtr,
			    int *inPipePtr, int *outPipePtr,
			    int *errFilePtr));
EXTERN Tcl_Trace	Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp *interp,
			    int level, Tcl_CmdTraceProc *proc,
			    ClientData clientData));
EXTERN void		Tcl_DeleteCmdBuf _ANSI_ARGS_((Tcl_CmdBuf buffer));
EXTERN int		Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp *interp,
			    char *cmdName));
EXTERN void		Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN void		Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp *interp,
			    Tcl_Trace trace));
EXTERN void		Tcl_DetachPids _ANSI_ARGS_((int numPids, int *pidPtr));
EXTERN int		Tcl_DumpActiveMemory _ANSI_ARGS_((char *fileName));
EXTERN char *		Tcl_ErrnoId _ANSI_ARGS_((void));
EXTERN int		Tcl_Eval _ANSI_ARGS_((Tcl_Interp *interp, char *cmd,
			    int flags, char **termPtr));
EXTERN int		Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp *interp,
			    char *fileName));
EXTERN int		Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, int *ptr));
EXTERN int		Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, double *ptr));
EXTERN int		Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, long *ptr));
EXTERN int		Tcl_ExprString _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string));
EXTERN int		Tcl_Fork _ANSI_ARGS_((void));
EXTERN int		Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, int *boolPtr));
EXTERN int		Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, double *doublePtr));
EXTERN int		Tcl_GetInt _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, int *intPtr));
EXTERN char *		Tcl_GetVar _ANSI_ARGS_((Tcl_Interp *interp,
			    char *varName, int flags));
EXTERN char *		Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name1, char *name2, int flags));
EXTERN int		Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
			    char *command));
EXTERN void		Tcl_InitHistory _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN void		Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN char *		Tcl_Merge _ANSI_ARGS_((int argc, char **argv));
EXTERN char *		Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, char **termPtr));
EXTERN int		Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp,
			    char *cmd, int flags));
EXTERN void		Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp));
#define Tcl_Return Tcl_SetResult
EXTERN int		Tcl_ScanElement _ANSI_ARGS_((char *string,
			    int *flagPtr));
EXTERN void		Tcl_SetErrorCode _ANSI_ARGS_((Tcl_Interp *interp, ...));
EXTERN void		Tcl_SetResult _ANSI_ARGS_((Tcl_Interp *interp,
			    char *string, Tcl_FreeProc *freeProc));
EXTERN char *		Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp,
			    char *varName, char *newValue, int flags));
EXTERN char *		Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name1, char *name2, char *newValue,
			    int flags));
EXTERN char *		Tcl_SignalId _ANSI_ARGS_((int sig));
EXTERN char *		Tcl_SignalMsg _ANSI_ARGS_((int sig));
EXTERN int		Tcl_SplitList _ANSI_ARGS_((Tcl_Interp *interp,
			    char *list, int *argcPtr, char ***argvPtr));
EXTERN int		Tcl_StringMatch _ANSI_ARGS_((char *string,
			    char *pattern));
EXTERN char *		Tcl_TildeSubst _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name));
EXTERN int		Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp *interp,
			    char *varName, int flags, Tcl_VarTraceProc *proc,
			    ClientData clientData));
EXTERN int		Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name1, char *name2, int flags,
			    Tcl_VarTraceProc *proc, ClientData clientData));
EXTERN char *		Tcl_UnixError _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN int		Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp *interp,
			    char *varName, int flags));
EXTERN int		Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name1, char *name2, int flags));
EXTERN void		Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp *interp,
			    char *varName, int flags, Tcl_VarTraceProc *proc,
			    ClientData clientData));
EXTERN void		Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name1, char *name2, int flags,
			    Tcl_VarTraceProc *proc, ClientData clientData));
EXTERN int		Tcl_VarEval _ANSI_ARGS_((Tcl_Interp *interp, ...));
EXTERN ClientData	Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp *interp,
			    char *varName, int flags,
			    Tcl_VarTraceProc *procPtr,
			    ClientData prevClientData));
EXTERN ClientData	Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp *interp,
			    char *name1, char *name2, int flags,
			    Tcl_VarTraceProc *procPtr,
			    ClientData prevClientData));
EXTERN int		Tcl_WaitPids _ANSI_ARGS_((int numPids, int *pidPtr,
			    int *statusPtr));

#endif /* _TCL */
Commit	Line	Data
	1	/*
	2	* tcl.h --
	3	*
	4	* This header file describes the externally-visible facilities
	5	* of the Tcl interpreter.
	6	*
	7	* Copyright 1987-1991 Regents of the University of California
	8	* Permission to use, copy, modify, and distribute this
	9	* software and its documentation for any purpose and without
	10	* fee is hereby granted, provided that the above copyright
	11	* notice appear in all copies. The University of California
	12	* makes no representations about the suitability of this
	13	* software for any purpose. It is provided "as is" without
	14	* express or implied warranty.
	15	*
	16	* $Header: /user6/ouster/tcl/RCS/tcl.h,v 1.84 92/08/07 08:21:34 ouster Exp $ SPRITE (Berkeley)
	17	*/
	18
	19	#ifndef _TCL
	20	#define _TCL
	21
	22	#define TCL_VERSION "6.4"
	23
	24	/*
	25	* Definitions that allow this header file to be used either with or
	26	* without ANSI C features like function prototypes.
	27	*/
	28
	29	#undef _ANSI_ARGS_
	30	#undef const
	31	#if ((defined(__STDC__) \|\| defined(SABER)) && !defined(NO_PROTOTYPE)) \|\| defined(__cplusplus)
	32	# define _ANSI_ARGS_(x) x
	33	# define CONST const
	34	# ifdef __cplusplus
	35	# define VARARGS (...)
	36	# else
	37	# define VARARGS ()
	38	# endif
	39	#else
	40	# define _ANSI_ARGS_(x) ()
	41	# define CONST
	42	#endif
	43
	44	#ifdef __cplusplus
	45	# define EXTERN extern "C"
	46	#else
	47	# define EXTERN extern
	48	#endif
	49
	50	/*
	51	* Miscellaneous declarations (to allow Tcl to be used stand-alone,
	52	* without the rest of Sprite).
	53	*/
	54
	55	#ifndef NULL
	56	#define NULL 0
	57	#endif
	58
	59	#ifndef _CLIENTDATA
	60	typedef int *ClientData;
	61	#define _CLIENTDATA
	62	#endif
	63
	64	/*
	65	* Data structures defined opaquely in this module. The definitions
	66	* below just provide dummy types. A few fields are made visible in
	67	* Tcl_Interp structures, namely those for returning string values.
	68	* Note: any change to the Tcl_Interp definition below must be mirrored
	69	* in the "real" definition in tclInt.h.
	70	*/
	71
	72	typedef struct Tcl_Interp{
	73	char result; / Points to result string returned by last
	74	* command. */
	75	void (freeProc) _ANSI_ARGS_((char blockPtr));
	76	/* Zero means result is statically allocated.
	77	* If non-zero, gives address of procedure
	78	* to invoke to free the result. Must be
	79	* freed by Tcl_Eval before executing next
	80	* command. */
	81	int errorLine; /* When TCL_ERROR is returned, this gives
	82	* the line number within the command where
	83	* the error occurred (1 means first line). */
	84	} Tcl_Interp;
	85
	86	typedef int *Tcl_Trace;
	87	typedef int *Tcl_CmdBuf;
	88
	89	/*
	90	* When a TCL command returns, the string pointer interp->result points to
	91	* a string containing return information from the command. In addition,
	92	* the command procedure returns an integer value, which is one of the
	93	* following:
	94	*
	95	* TCL_OK Command completed normally; interp->result contains
	96	* the command's result.
	97	* TCL_ERROR The command couldn't be completed successfully;
	98	* interp->result describes what went wrong.
	99	* TCL_RETURN The command requests that the current procedure
	100	* return; interp->result contains the procedure's
	101	* return value.
	102	* TCL_BREAK The command requests that the innermost loop
	103	* be exited; interp->result is meaningless.
	104	* TCL_CONTINUE Go on to the next iteration of the current loop;
	105	* interp->result is meaninless.
	106	*/
	107
	108	#define TCL_OK 0
	109	#define TCL_ERROR 1
	110	#define TCL_RETURN 2
	111	#define TCL_BREAK 3
	112	#define TCL_CONTINUE 4
	113
	114	#define TCL_RESULT_SIZE 199
	115
	116	/*
	117	* Procedure types defined by Tcl:
	118	*/
	119
	120	typedef void (Tcl_CmdDeleteProc) _ANSI_ARGS_((ClientData clientData));
	121	typedef int (Tcl_CmdProc) _ANSI_ARGS_((ClientData clientData,
	122	Tcl_Interp interp, int argc, char argv[]));
	123	typedef void (Tcl_CmdTraceProc) _ANSI_ARGS_((ClientData clientData,
	124	Tcl_Interp interp, int level, char command, Tcl_CmdProc *proc,
	125	ClientData cmdClientData, int argc, char *argv[]));
	126	typedef void (Tcl_FreeProc) _ANSI_ARGS_((char *blockPtr));
	127	typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
	128	Tcl_Interp interp, char name1, char *name2, int flags));
	129
	130	/*
	131	* Flag values passed to Tcl_Eval (see the man page for details; also
	132	* see tclInt.h for additional flags that are only used internally by
	133	* Tcl):
	134	*/
	135
	136	#define TCL_BRACKET_TERM 1
	137
	138	/*
	139	* Flag that may be passed to Tcl_ConvertElement to force it not to
	140	* output braces (careful! if you change this flag be sure to change
	141	* the definitions at the front of tclUtil.c).
	142	*/
	143
	144	#define TCL_DONT_USE_BRACES 1
	145
	146	/*
	147	* Flag value passed to Tcl_RecordAndEval to request no evaluation
	148	* (record only).
	149	*/
	150
	151	#define TCL_NO_EVAL -1
	152
	153	/*
	154	* Specil freeProc values that may be passed to Tcl_SetResult (see
	155	* the man page for details):
	156	*/
	157
	158	#define TCL_VOLATILE ((Tcl_FreeProc *) -1)
	159	#define TCL_STATIC ((Tcl_FreeProc *) 0)
	160	#define TCL_DYNAMIC ((Tcl_FreeProc *) free)
	161
	162	/*
	163	* Flag values passed to variable-related procedures.
	164	*/
	165
	166	#define TCL_GLOBAL_ONLY 1
	167	#define TCL_APPEND_VALUE 2
	168	#define TCL_LIST_ELEMENT 4
	169	#define TCL_NO_SPACE 8
	170	#define TCL_TRACE_READS 0x10
	171	#define TCL_TRACE_WRITES 0x20
	172	#define TCL_TRACE_UNSETS 0x40
	173	#define TCL_TRACE_DESTROYED 0x80
	174	#define TCL_INTERP_DESTROYED 0x100
	175	#define TCL_LEAVE_ERR_MSG 0x200
	176
	177	/*
	178	* Additional flag passed back to variable watchers. This flag must
	179	* not overlap any of the TCL_TRACE_* flags defined above or the
	180	* TRACE_* flags defined in tclInt.h.
	181	*/
	182
	183	#define TCL_VARIABLE_UNDEFINED 8
	184
	185	/*
	186	* The following declarations either map ckalloc and ckfree to
	187	* malloc and free, or they map them to procedures with all sorts
	188	* of debugging hooks defined in tclCkalloc.c.
	189	*/
	190
	191	#ifdef TCL_MEM_DEBUG
	192
	193	EXTERN char * Tcl_DbCkalloc _ANSI_ARGS_((unsigned int size,
	194	char *file, int line));
	195	EXTERN int Tcl_DbCkfree _ANSI_ARGS_((char *ptr,
	196	char *file, int line));
	197	# define ckalloc(x) Tcl_DbCkalloc(x, __FILE__, __LINE__)
	198	# define ckfree(x) Tcl_DbCkfree(x, __FILE__, __LINE__)
	199
	200	#else
	201
	202	# define ckalloc(x) malloc(x)
	203	# define ckfree(x) free(x)
	204
	205	#endif /* TCL_MEM_DEBUG */
	206
	207	/*
	208	* Macro to free up result of interpreter.
	209	*/
	210
	211	#define Tcl_FreeResult(interp) \
	212	if ((interp)->freeProc != 0) { \
	213	if ((interp)->freeProc == (Tcl_FreeProc *) free) { \
	214	ckfree((interp)->result); \
	215	} else { \
	216	(*(interp)->freeProc)((interp)->result); \
	217	} \
	218	(interp)->freeProc = 0; \
	219	}
	220
	221	/*
	222	* Exported Tcl procedures:
	223	*/
	224
	225	EXTERN void Tcl_AppendElement _ANSI_ARGS_((Tcl_Interp *interp,
	226	char *string, int noSep));
	227	EXTERN void Tcl_AppendResult _ANSI_ARGS_((Tcl_Interp *interp, ...));
	228	EXTERN char * Tcl_AssembleCmd _ANSI_ARGS_((Tcl_CmdBuf buffer,
	229	char *string));
	230	EXTERN void Tcl_AddErrorInfo _ANSI_ARGS_((Tcl_Interp *interp,
	231	char *message));
	232	EXTERN char Tcl_Backslash _ANSI_ARGS_((char *src,
	233	int *readPtr));
	234	EXTERN char * Tcl_Concat _ANSI_ARGS_((int argc, char **argv));
	235	EXTERN int Tcl_ConvertElement _ANSI_ARGS_((char *src,
	236	char *dst, int flags));
	237	EXTERN Tcl_CmdBuf Tcl_CreateCmdBuf _ANSI_ARGS_((void));
	238	EXTERN void Tcl_CreateCommand _ANSI_ARGS_((Tcl_Interp *interp,
	239	char cmdName, Tcl_CmdProc proc,
	240	ClientData clientData,
	241	Tcl_CmdDeleteProc *deleteProc));
	242	EXTERN Tcl_Interp * Tcl_CreateInterp _ANSI_ARGS_((void));
	243	EXTERN int Tcl_CreatePipeline _ANSI_ARGS_((Tcl_Interp *interp,
	244	int argc, char argv, int pidArrayPtr,
	245	int inPipePtr, int outPipePtr,
	246	int *errFilePtr));
	247	EXTERN Tcl_Trace Tcl_CreateTrace _ANSI_ARGS_((Tcl_Interp *interp,
	248	int level, Tcl_CmdTraceProc *proc,
	249	ClientData clientData));
	250	EXTERN void Tcl_DeleteCmdBuf _ANSI_ARGS_((Tcl_CmdBuf buffer));
	251	EXTERN int Tcl_DeleteCommand _ANSI_ARGS_((Tcl_Interp *interp,
	252	char *cmdName));
	253	EXTERN void Tcl_DeleteInterp _ANSI_ARGS_((Tcl_Interp *interp));
	254	EXTERN void Tcl_DeleteTrace _ANSI_ARGS_((Tcl_Interp *interp,
	255	Tcl_Trace trace));
	256	EXTERN void Tcl_DetachPids _ANSI_ARGS_((int numPids, int *pidPtr));
	257	EXTERN int Tcl_DumpActiveMemory _ANSI_ARGS_((char *fileName));
	258	EXTERN char * Tcl_ErrnoId _ANSI_ARGS_((void));
	259	EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp interp, char cmd,
	260	int flags, char **termPtr));
	261	EXTERN int Tcl_EvalFile _ANSI_ARGS_((Tcl_Interp *interp,
	262	char *fileName));
	263	EXTERN int Tcl_ExprBoolean _ANSI_ARGS_((Tcl_Interp *interp,
	264	char string, int ptr));
	265	EXTERN int Tcl_ExprDouble _ANSI_ARGS_((Tcl_Interp *interp,
	266	char string, double ptr));
	267	EXTERN int Tcl_ExprLong _ANSI_ARGS_((Tcl_Interp *interp,
	268	char string, long ptr));
	269	EXTERN int Tcl_ExprString _ANSI_ARGS_((Tcl_Interp *interp,
	270	char *string));
	271	EXTERN int Tcl_Fork _ANSI_ARGS_((void));
	272	EXTERN int Tcl_GetBoolean _ANSI_ARGS_((Tcl_Interp *interp,
	273	char string, int boolPtr));
	274	EXTERN int Tcl_GetDouble _ANSI_ARGS_((Tcl_Interp *interp,
	275	char string, double doublePtr));
	276	EXTERN int Tcl_GetInt _ANSI_ARGS_((Tcl_Interp *interp,
	277	char string, int intPtr));
	278	EXTERN char * Tcl_GetVar _ANSI_ARGS_((Tcl_Interp *interp,
	279	char *varName, int flags));
	280	EXTERN char * Tcl_GetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
	281	char name1, char name2, int flags));
	282	EXTERN int Tcl_GlobalEval _ANSI_ARGS_((Tcl_Interp *interp,
	283	char *command));
	284	EXTERN void Tcl_InitHistory _ANSI_ARGS_((Tcl_Interp *interp));
	285	EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp));
	286	EXTERN char * Tcl_Merge _ANSI_ARGS_((int argc, char **argv));
	287	EXTERN char * Tcl_ParseVar _ANSI_ARGS_((Tcl_Interp *interp,
	288	char string, char *termPtr));
	289	EXTERN int Tcl_RecordAndEval _ANSI_ARGS_((Tcl_Interp *interp,
	290	char *cmd, int flags));
	291	EXTERN void Tcl_ResetResult _ANSI_ARGS_((Tcl_Interp *interp));
	292	#define Tcl_Return Tcl_SetResult
	293	EXTERN int Tcl_ScanElement _ANSI_ARGS_((char *string,
	294	int *flagPtr));
	295	EXTERN void Tcl_SetErrorCode _ANSI_ARGS_((Tcl_Interp *interp, ...));
	296	EXTERN void Tcl_SetResult _ANSI_ARGS_((Tcl_Interp *interp,
	297	char string, Tcl_FreeProc freeProc));
	298	EXTERN char * Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp,
	299	char varName, char newValue, int flags));
	300	EXTERN char * Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
	301	char name1, char name2, char *newValue,
	302	int flags));
	303	EXTERN char * Tcl_SignalId _ANSI_ARGS_((int sig));
	304	EXTERN char * Tcl_SignalMsg _ANSI_ARGS_((int sig));
	305	EXTERN int Tcl_SplitList _ANSI_ARGS_((Tcl_Interp *interp,
	306	char list, int argcPtr, char ***argvPtr));
	307	EXTERN int Tcl_StringMatch _ANSI_ARGS_((char *string,
	308	char *pattern));
	309	EXTERN char * Tcl_TildeSubst _ANSI_ARGS_((Tcl_Interp *interp,
	310	char *name));
	311	EXTERN int Tcl_TraceVar _ANSI_ARGS_((Tcl_Interp *interp,
	312	char varName, int flags, Tcl_VarTraceProc proc,
	313	ClientData clientData));
	314	EXTERN int Tcl_TraceVar2 _ANSI_ARGS_((Tcl_Interp *interp,
	315	char name1, char name2, int flags,
	316	Tcl_VarTraceProc *proc, ClientData clientData));
	317	EXTERN char * Tcl_UnixError _ANSI_ARGS_((Tcl_Interp *interp));
	318	EXTERN int Tcl_UnsetVar _ANSI_ARGS_((Tcl_Interp *interp,
	319	char *varName, int flags));
	320	EXTERN int Tcl_UnsetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
	321	char name1, char name2, int flags));
	322	EXTERN void Tcl_UntraceVar _ANSI_ARGS_((Tcl_Interp *interp,
	323	char varName, int flags, Tcl_VarTraceProc proc,
	324	ClientData clientData));
	325	EXTERN void Tcl_UntraceVar2 _ANSI_ARGS_((Tcl_Interp *interp,
	326	char name1, char name2, int flags,
	327	Tcl_VarTraceProc *proc, ClientData clientData));
	328	EXTERN int Tcl_VarEval _ANSI_ARGS_((Tcl_Interp *interp, ...));
	329	EXTERN ClientData Tcl_VarTraceInfo _ANSI_ARGS_((Tcl_Interp *interp,
	330	char *varName, int flags,
	331	Tcl_VarTraceProc *procPtr,
	332	ClientData prevClientData));
	333	EXTERN ClientData Tcl_VarTraceInfo2 _ANSI_ARGS_((Tcl_Interp *interp,
	334	char name1, char name2, int flags,
	335	Tcl_VarTraceProc *procPtr,
	336	ClientData prevClientData));
	337	EXTERN int Tcl_WaitPids _ANSI_ARGS_((int numPids, int *pidPtr,
	338	int *statusPtr));
	339
	340	#endif /* _TCL */