diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-08 22:50:01 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-15 07:46:33 +1000 |
commit | 11bf2f9db7d735770e3b0eadbf781b3730d3f28e (patch) | |
tree | 4209e8560a9cfcf3c06b0ec6ffd1c30d0649ab59 /jimsh.c | |
parent | 065092b151ae7e9ceda52710d181e19673ed9e7f (diff) | |
download | jimtcl-11bf2f9db7d735770e3b0eadbf781b3730d3f28e.zip jimtcl-11bf2f9db7d735770e3b0eadbf781b3730d3f28e.tar.gz jimtcl-11bf2f9db7d735770e3b0eadbf781b3730d3f28e.tar.bz2 |
jimsh: minor code cleanups
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jimsh.c')
-rw-r--r-- | jimsh.c | 15 |
1 files changed, 9 insertions, 6 deletions
@@ -59,6 +59,12 @@ static void JimSetArgv(Jim_Interp *interp, int argc, char *const argv[]) Jim_SetVariableStr(interp, "argc", Jim_NewIntObj(interp, argc)); } +static void JimPrintErrorMessage(Jim_Interp *interp) +{ + Jim_MakeErrorMessage(interp); + fprintf(stderr, "%s\n", Jim_String(Jim_GetResult(interp))); +} + int main(int argc, char *const argv[]) { int retcode; @@ -75,8 +81,7 @@ int main(int argc, char *const argv[]) /* Register static extensions */ if (Jim_InitStaticExtensions(interp) != JIM_OK) { - Jim_MakeErrorMessage(interp); - fprintf(stderr, "%s\n", Jim_String(Jim_GetResult(interp))); + JimPrintErrorMessage(interp); } Jim_SetVariableStrWithStr(interp, "jim_argv0", argv[0]); @@ -85,8 +90,7 @@ int main(int argc, char *const argv[]) if (argc == 1) { if (retcode == JIM_ERR) { - Jim_MakeErrorMessage(interp); - fprintf(stderr, "%s\n", Jim_String(Jim_GetResult(interp))); + JimPrintErrorMessage(interp); } if (retcode != JIM_EXIT) { JimSetArgv(interp, 0, NULL); @@ -107,8 +111,7 @@ int main(int argc, char *const argv[]) retcode = Jim_EvalFile(interp, argv[1]); } if (retcode == JIM_ERR) { - Jim_MakeErrorMessage(interp); - fprintf(stderr, "%s\n", Jim_String(Jim_GetResult(interp))); + JimPrintErrorMessage(interp); } } if (retcode == JIM_EXIT) { |