From 7acced1e51ec8ab4788f84157160534dab84fa10 Mon Sep 17 00:00:00 2001 From: mistachkin Date: Sun, 17 Jan 2016 14:53:51 -0800 Subject: Add the tcl_platform(engine) array element. --- jim.c | 1 + 1 file changed, 1 insertion(+) (limited to 'jim.c') diff --git a/jim.c b/jim.c index 0c6825f..5be02c5 100644 --- a/jim.c +++ b/jim.c @@ -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); -- cgit v1.1