diff options
author | oharboe <oharboe> | 2009-08-16 11:26:28 +0000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:00:04 +1000 |
commit | 455b2d66de531b858e7deb340f5cae7a87d48d45 (patch) | |
tree | 028f271363a7bad08f87983a04506cbaeabae52b /jimsh.c | |
parent | e56152a9ef1cc23a90ba5b5a0b834bfd7a4628c7 (diff) | |
download | jimtcl-455b2d66de531b858e7deb340f5cae7a87d48d45.zip jimtcl-455b2d66de531b858e7deb340f5cae7a87d48d45.tar.gz jimtcl-455b2d66de531b858e7deb340f5cae7a87d48d45.tar.bz2 |
$argv0 should be the name of the script
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jimsh.c')
-rw-r--r-- | jimsh.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1,5 +1,6 @@ /* Jimsh - An interactive shell for Jim * Copyright 2005 Salvatore Sanfilippo <antirez@invece.org> + * Copyright 2009 Steve Bennett <steveb@workware.net.au> * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. @@ -149,7 +150,6 @@ int main(int argc, char *const argv[]) Jim_ListAppendElement(interp, listObj, obj); } - Jim_SetVariableStr(interp, "argv0", Jim_NewStringObj(interp, argv[0], -1)); Jim_SetVariableStr(interp, "argv", listObj); if (argc == 1) { @@ -157,6 +157,7 @@ int main(int argc, char *const argv[]) JimLoadJimRc(interp); retcode = Jim_InteractivePrompt(interp); } else { + Jim_SetVariableStr(interp, "argv0", Jim_NewStringObj(interp, argv[1], -1)); Jim_SetVariableStrWithStr(interp, "jim_interactive", "0"); if ((retcode = Jim_EvalFile(interp, argv[1])) == JIM_ERR) { Jim_PrintErrorMessage(interp); |