diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-07-28 14:39:30 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-07-29 10:12:54 +1000 |
commit | 1669335e1c8aa6a2374cc3796c6d9d471becae82 (patch) | |
tree | 9572925835521ba39948c24fbbb24fba66b1a72e /jim.h | |
parent | 3a8ccfdd13dff59e55287f7dfb9679ac59add9f9 (diff) | |
download | jimtcl-1669335e1c8aa6a2374cc3796c6d9d471becae82.zip jimtcl-1669335e1c8aa6a2374cc3796c6d9d471becae82.tar.gz jimtcl-1669335e1c8aa6a2374cc3796c6d9d471becae82.tar.bz2 |
Add Jim_EvalSource() to replace Jim_Eval_Named()
Since the line number should correspond to the first
line of the script, it is easier to use with __LINE__
if the filename and line number are before the script.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.h')
-rw-r--r-- | jim.h | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -636,8 +636,11 @@ JIM_EXPORT void Jim_SetEnviron(char **env); /* evaluation */ JIM_EXPORT int Jim_Eval(Jim_Interp *interp, const char *script); /* in C code, you can do this and get better error messages */ -/* Jim_Eval_Named( interp, "some tcl commands", __FILE__, __LINE__ ); */ -JIM_EXPORT int Jim_Eval_Named(Jim_Interp *interp, const char *script,const char *filename, int lineno); +/* Jim_EvalSource( interp, __FILE__, __LINE__ , "some tcl commands"); */ +JIM_EXPORT int Jim_EvalSource(Jim_Interp *interp, const char *filename, int lineno, const char *script); +/* Backwards compatibility */ +#define Jim_Eval_Named(I, S, F, L) Jim_EvalSource((I), (F), (L), (S)) + JIM_EXPORT int Jim_EvalGlobal(Jim_Interp *interp, const char *script); JIM_EXPORT int Jim_EvalFile(Jim_Interp *interp, const char *filename); JIM_EXPORT int Jim_EvalFileGlobal(Jim_Interp *interp, const char *filename); |