diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-11-20 21:17:38 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-11-20 21:17:38 (GMT) |
| commit | 506f565ba428b0401653d431867ed8f2c2fa3a1c (patch) | |
| tree | f258d8ab9f0c2e17c6287433a7b754ffbdb80170 /generic/tclCompile.h | |
| parent | 6a486a8037e4f19601182dd4ff17bf7ba9d7ce38 (diff) | |
| download | tcl-506f565ba428b0401653d431867ed8f2c2fa3a1c.zip tcl-506f565ba428b0401653d431867ed8f2c2fa3a1c.tar.gz tcl-506f565ba428b0401653d431867ed8f2c2fa3a1c.tar.bz2 | |
code reorganisation and factorisation.
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 5caa4e1..d26bdd9 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.20 2001/11/16 20:14:27 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.21 2001/11/20 21:17:39 msofer Exp $ */ #ifndef _TCLCOMPILATION @@ -718,6 +718,18 @@ typedef struct ForeachInfo { extern AuxDataType tclForeachInfoType; + +/* + *---------------------------------------------------------------- + * Procedures exported by tclBasic.c to be used within the engine. + *---------------------------------------------------------------- + */ + +EXTERN int TclEvalObjvInternal _ANSI_ARGS_((Tcl_Interp *interp, int objc, + Tcl_Obj *CONST objv[], char *command, int length, + int flags)); +EXTERN int TclInterpReady _ANSI_ARGS_((Tcl_Interp *interp)); + /* *---------------------------------------------------------------- * Procedures shared among Tcl bytecode compilation and execution @@ -754,9 +766,6 @@ EXTERN void TclEmitForwardJump _ANSI_ARGS_((CompileEnv *envPtr, EXTERN ExceptionRange * TclGetExceptionRangeForPc _ANSI_ARGS_(( unsigned char *pc, int catchOnly, ByteCode* codePtr)); -EXTERN int TclEvalObjvInternal _ANSI_ARGS_((Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[], char *command, int length, - int flags)); EXTERN int TclExecuteByteCode _ANSI_ARGS_((Tcl_Interp *interp, ByteCode *codePtr)); EXTERN void TclExpandJumpFixupArray _ANSI_ARGS_(( |