	| /*
	|  * tcl.h --
Abstract|  *
	|  * This header file describes the externally-visible facilities
	|  * of the Tcl interpreter.
	   *
	|  * Copyright (c) 1987-1994 The Regents of the University of California.
	|  * All rights reserved.
	|  *
	|  * Permission is hereby granted, without written agreement and without
	|  * license or royalty fees, to use, copy, modify, and distribute this
	|  * software and its documentation for any purpose, provided that the
	|  * above copyright notice and the following two paragraphs appear in
	|  * all copies of this software.
Copyright  *
	|  * IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
	|  * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
	|  * OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
	|  * CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	|  *
	|  * THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
	|  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
	|  * AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
	|  * ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
	|  * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
	   *
Revision|  * $Header: /user6/ouster/tcl/RCS/tcl.h,v 1.139 94/05/26 14:40:43 ouster Exp $
String	| SPRITE (Berkeley)
	   */

Multiple| #ifndef _TCL
Include	| #define _TCL
#ifdef

Version	| #define TCL_VERSION "7.4"
Defines	| #define TCL_MAJOR_VERSION 7
	| #define TCL_MINOR_VERSION 4

	  ...

	| /*
	|  * The structure returned by Tcl_GetCmdInfo and passed into
	|  * Tcl_SetCmdInfo:
	|  */
	|
Structure typedef struct Tcl_CmdInfo {
Decl.	|     Tcl_CmdProc *proc;             /* Procedure that implements command. */
	|     ClientData clientData;         /* ClientData passed to proc. */
	|     Tcl_CmdDeleteProc *deleteProc; /* Procedure to call when command
	|                                     * is deleted. */
	|     ClientData deleteData;         /* Value to pass to deleteProc (usually
	|                                     * the same as clientData). */
	| } Tcl_CmdInfo;

	  ...

Variable| EXTERN int tcl_AsyncReady;
Decl.

	  ...

Procedure EXTERN int Tcl_Eval _ANSI_ARGS_((Tcl_Interp *interp, char *cmd));
Prototype

	  ...

Multiple
Include	| #endif /* _TCL */
#ifdef
