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 /make-bootstrap-jim | |
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 'make-bootstrap-jim')
-rwxr-xr-x | make-bootstrap-jim | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/make-bootstrap-jim b/make-bootstrap-jim index 38ce22e..6dd1a94 100755 --- a/make-bootstrap-jim +++ b/make-bootstrap-jim @@ -14,14 +14,13 @@ int Jim_${basename}Init(Jim_Interp *interp) if (Jim_PackageProvide(interp, "$basename", "1.0", JIM_ERRMSG)) return JIM_ERR; - return Jim_Eval_Named(interp, + return Jim_EvalSource(interp, \"$source\", 1, EOF # Note: Keep newlines so that line numbers match in error messages sed -e 's/^[ ]*#.*//' -e 's@\\@\\\\@g' -e 's@"@\\"@g' -e 's@^\(.*\)$@"\1\\n"@' $source -#sed -e 's@^\(.*\)$@"\1\\n"@' $source -echo ",\"$source\", 1);" +echo ");" echo "}" } |