![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tcl.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / worm / scsi|
Return to tcl.h CVS log | Up to [Research Unix] / researchv10no / cmd / worm / scsi |
1.1 root 1: /*
2: * tcl.h --
3: *
4: * This header file describes the externally-visible facilities
5: * of the Tcl interpreter.
6: *
7: * Copyright 1987 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: /sprite/src/lib/tcl/RCS/tcl.h,v 1.35 90/04/18 16:05:56 ouster Exp $ SPRITE (Berkeley)
17: */
18:
19: #ifndef _TCL
20: #define _TCL
21:
22: /*
23: * Data structures defined opaquely in this module. The definitions
24: * below just provide dummy types. A few fields are made visible in
25: * Tcl_Interp structures, namely those for returning string values.
26: * Note: any change to the Tcl_Interp definition below must be mirrored
27: * in the "real" definition in tclInt.h.
28: */
29:
30: typedef struct Tcl_Interp{
31: char *result; /* Points to result string returned by last
32: * command. */
33: int dynamic; /* Non-zero means result is dynamically-
34: * allocated and must be freed by Tcl_Eval
35: * before executing the next command. */
36: int errorLine; /* When TCL_ERROR is returned, this gives
37: * the line number within the command where
38: * the error occurred (1 means first line). */
39: } Tcl_Interp;
40:
41: typedef int *Tcl_Trace;
42: typedef int *Tcl_CmdBuf;
43:
44: /*
45: * When a TCL command returns, the string pointer interp->result points to
46: * a string containing return information from the command. In addition,
47: * the command procedure returns an integer value, which is one of the
48: * following:
49: *
50: * TCL_OK Command completed normally; interp->result contains
51: * the command's result.
52: * TCL_ERROR The command couldn't be completed successfully;
53: * interp->result describes what went wrong.
54: * TCL_RETURN The command requests that the current procedure
55: * return; interp->result contains the procedure's
56: * return value.
57: * TCL_BREAK The command requests that the innermost loop
58: * be exited; interp->result is meaningless.
59: * TCL_CONTINUE Go on to the next iteration of the current loop;
60: * interp->result is meaninless.
61: */
62:
63: #define TCL_OK 0
64: #define TCL_ERROR 1
65: #define TCL_RETURN 2
66: #define TCL_BREAK 3
67: #define TCL_CONTINUE 4
68:
69: #define TCL_RESULT_SIZE 199
70:
71: /*
72: * Flag values passed to Tcl_Eval (see the man page for details; also
73: * see tclInt.h for additional flags that are only used internally by
74: * Tcl):
75: */
76:
77: #define TCL_BRACKET_TERM 1
78:
79: /*
80: * Flag value passed to Tcl_RecordAndEval to request no evaluation
81: * (record only).
82: */
83:
84: #define TCL_NO_EVAL -1
85:
86: /*
87: * Flag values passed to Tcl_Return (see the man page for details):
88: */
89:
90: #define TCL_STATIC 0
91: #define TCL_DYNAMIC 1
92: #define TCL_VOLATILE 2
93:
94: #ifndef _CLIENTDATA
95: typedef int *ClientData;
96: #define _CLIENTDATA
97: #endif
98:
99: /*
100: * Exported Tcl procedures:
101: */
102:
103: typedef int (*Tcl_Cmdfn)(ClientData, Tcl_Interp *, int, char **);
104: typedef void (*Tcl_Tracefn)(ClientData, Tcl_Interp *, int, char *, Tcl_Cmdfn, ClientData, int, char **);
105: extern char * Tcl_AssembleCmd(Tcl_CmdBuf, char *);
106: extern void Tcl_AddErrorInfo(Tcl_Interp *, char *);
107: extern char Tcl_Backslash(char *, int *);
108: extern char * Tcl_Concat(int, char **);
109: extern Tcl_CmdBuf Tcl_CreateCmdBuf(void);
110: extern void Tcl_CreateCommand(Tcl_Interp *, char *, Tcl_Cmdfn, ClientData, void (*)(ClientData));
111: extern Tcl_Interp * Tcl_CreateInterp(void);
112: extern Tcl_Trace Tcl_CreateTrace(Tcl_Interp *, int, Tcl_Tracefn, ClientData);
113: extern void Tcl_DeleteCmdBuf(Tcl_CmdBuf);
114: extern void Tcl_DeleteCommand(Tcl_Interp *, char *);
115: extern void Tcl_DeleteInterp(Tcl_Interp *);
116: extern void Tcl_DeleteTrace(Tcl_Interp *, Tcl_Trace);
117: extern int Tcl_Eval(Tcl_Interp *, char *, int, char **);
118: extern int Tcl_Expr(Tcl_Interp *, char *, int *);
119: extern char * Tcl_GetVar(Tcl_Interp *, char *, int);
120: extern char * Tcl_Merge(int, char **);
121: extern char * Tcl_ParseVar(Tcl_Interp *, char *, char **);
122: extern int Tcl_RecordAndEval(Tcl_Interp *, char *, int);
123: extern void Tcl_Return(Tcl_Interp *, char *, int);
124: extern void Tcl_SetVar(Tcl_Interp *, char *, char *, int);
125: extern int Tcl_SplitList(Tcl_Interp *, char *, int *, char ***);
126: extern int Tcl_StringMatch(char *, char *);
127: extern char * Tcl_TildeSubst(Tcl_Interp *, char *);
128: extern void Tcl_WatchInterp(Tcl_Interp *, void (*)(void), ClientData);
129:
130: /*
131: * Built-in Tcl command procedures:
132: */
133:
134: extern int Tcl_BreakCmd(ClientData , Tcl_Interp *, int , char **);
135: extern int Tcl_CaseCmd(ClientData , Tcl_Interp *, int , char **);
136: extern int Tcl_CatchCmd(ClientData , Tcl_Interp *, int , char **);
137: extern int Tcl_ConcatCmd(ClientData , Tcl_Interp *, int , char **);
138: extern int Tcl_ContinueCmd(ClientData , Tcl_Interp *, int , char **);
139: extern int Tcl_ErrorCmd(ClientData , Tcl_Interp *, int , char **);
140: extern int Tcl_EvalCmd(ClientData , Tcl_Interp *, int , char **);
141: extern int Tcl_ExecCmd(ClientData , Tcl_Interp *, int , char **);
142: extern int Tcl_ExprCmd(ClientData , Tcl_Interp *, int , char **);
143: extern int Tcl_FileCmd(ClientData , Tcl_Interp *, int , char **);
144: extern int Tcl_ForCmd(ClientData , Tcl_Interp *, int , char **);
145: extern int Tcl_ForeachCmd(ClientData , Tcl_Interp *, int , char **);
146: extern int Tcl_FormatCmd(ClientData , Tcl_Interp *, int , char **);
147: extern int Tcl_GlobCmd(ClientData , Tcl_Interp *, int , char **);
148: extern int Tcl_GlobalCmd(ClientData , Tcl_Interp *, int , char **);
149: extern int Tcl_HistoryCmd(ClientData , Tcl_Interp *, int , char **);
150: extern int Tcl_IfCmd(ClientData , Tcl_Interp *, int , char **);
151: extern int Tcl_InfoCmd(ClientData , Tcl_Interp *, int , char **);
152: extern int Tcl_IndexCmd(ClientData , Tcl_Interp *, int , char **);
153: extern int Tcl_LengthCmd(ClientData , Tcl_Interp *, int , char **);
154: extern int Tcl_ListCmd(ClientData , Tcl_Interp *, int , char **);
155: extern int Tcl_PrintCmd(ClientData , Tcl_Interp *, int , char **);
156: extern int Tcl_ProcCmd(ClientData , Tcl_Interp *, int , char **);
157: extern int Tcl_RangeCmd(ClientData , Tcl_Interp *, int , char **);
158: extern int Tcl_RenameCmd(ClientData , Tcl_Interp *, int , char **);
159: extern int Tcl_ReturnCmd(ClientData , Tcl_Interp *, int , char **);
160: extern int Tcl_ScanCmd(ClientData , Tcl_Interp *, int , char **);
161: extern int Tcl_SetCmd(ClientData , Tcl_Interp *, int , char **);
162: extern int Tcl_SourceCmd(ClientData , Tcl_Interp *, int , char **);
163: extern int Tcl_StringCmd(ClientData , Tcl_Interp *, int , char **);
164: extern int Tcl_TimeCmd(ClientData , Tcl_Interp *, int , char **);
165: extern int Tcl_UplevelCmd(ClientData , Tcl_Interp *, int , char **);
166:
167: /*
168: * Miscellaneous declarations (to allow Tcl to be used stand-alone,
169: * without the rest of Sprite).
170: */
171:
172: #ifndef NULL
173: #define NULL 0
174: #endif
175:
176: #endif _TCL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.