aboutsummaryrefslogtreecommitdiff
path: root/jimsh.c
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2014-01-08 22:50:01 +1000
committerSteve Bennett <steveb@workware.net.au>2014-01-15 07:46:33 +1000
commit11bf2f9db7d735770e3b0eadbf781b3730d3f28e (patch)
tree4209e8560a9cfcf3c06b0ec6ffd1c30d0649ab59 /jimsh.c
parent065092b151ae7e9ceda52710d181e19673ed9e7f (diff)
downloadjimtcl-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.c15
1 files changed, 9 insertions, 6 deletions
diff --git a/jimsh.c b/jimsh.c
index 36d1a2d..9c11083 100644
--- a/jimsh.c
+++ b/jimsh.c
@@ -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) {