From e7e3cedcbde855a2f22ee9eb830b62c45b543836 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Tue, 12 Jul 2011 09:02:32 +1000 Subject: Add tcl_platform(pathSeparator) Tcl compatible. Also move jimsh initialisation script into initjimsh.tcl Signed-off-by: Steve Bennett --- jim.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'jim.c') diff --git a/jim.c b/jim.c index ccf120f..1e4b53d 100644 --- a/jim.c +++ b/jim.c @@ -85,6 +85,9 @@ #ifndef TCL_PLATFORM_PLATFORM #define TCL_PLATFORM_PLATFORM "unknown" #endif +#ifndef TCL_PLATFORM_PATH_SEPARATOR +#define TCL_PLATFORM_PATH_SEPARATOR ":" +#endif /*#define DEBUG_SHOW_SCRIPT*/ /*#define DEBUG_SHOW_SCRIPT_TOKENS*/ @@ -4991,6 +4994,7 @@ Jim_Interp *Jim_CreateInterp(void) 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); Jim_SetVariableStrWithStr(i, "tcl_platform(byteOrder)", JimIsBigEndian() ? "bigEndian" : "littleEndian"); Jim_SetVariableStrWithStr(i, "tcl_platform(threaded)", "0"); Jim_SetVariableStr(i, "tcl_platform(pointerSize)", Jim_NewIntObj(i, sizeof(void *))); -- cgit v1.1