diff options
author | mistachkin <joe@mistachkin.com> | 2016-01-17 14:53:51 -0800 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-01-18 09:35:38 +1000 |
commit | 7acced1e51ec8ab4788f84157160534dab84fa10 (patch) | |
tree | 397cd6a9ac016d3caaef6dc5d273769b7c3589a9 /jim.c | |
parent | 745c42030221ddbca03120ed6e4a422be141fbdf (diff) | |
download | jimtcl-7acced1e51ec8ab4788f84157160534dab84fa10.zip jimtcl-7acced1e51ec8ab4788f84157160534dab84fa10.tar.gz jimtcl-7acced1e51ec8ab4788f84157160534dab84fa10.tar.bz2 |
Add the tcl_platform(engine) array element.
Diffstat (limited to 'jim.c')
-rw-r--r-- | jim.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5479,6 +5479,7 @@ Jim_Interp *Jim_CreateInterp(void) Jim_SetVariableStrWithStr(i, JIM_LIBPATH, TCL_LIBRARY); Jim_SetVariableStrWithStr(i, JIM_INTERACTIVE, "0"); + Jim_SetVariableStrWithStr(i, "tcl_platform(engine)", "Jim"); Jim_SetVariableStrWithStr(i, "tcl_platform(os)", TCL_PLATFORM_OS); Jim_SetVariableStrWithStr(i, "tcl_platform(platform)", TCL_PLATFORM_PLATFORM); Jim_SetVariableStrWithStr(i, "tcl_platform(pathSeparator)", TCL_PLATFORM_PATH_SEPARATOR); |