| /*
| * 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