Determine platform_tcl() settings with configure

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 3 insertions, 0 deletions

diff --git a/jim.c b/jim.c
index b338d55..8bd556a 100644
--- a/jim.c
+++ b/jim.c
@@ -4668,6 +4668,9 @@ Jim_Interp *Jim_CreateInterp(void)
     Jim_SetVariableStrWithStr(i, JIM_LIBPATH, ". /lib/jim");
     Jim_SetVariableStrWithStr(i, JIM_INTERACTIVE, "0");
 
+    Jim_SetVariableStrWithStr(i, "tcl_platform(os)", TCL_PLATFORM_OS);
+    Jim_SetVariableStrWithStr(i, "tcl_platform(platform)", TCL_PLATFORM_PLATFORM);
+
     return i;
 }