diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-07-12 09:02:32 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-07-13 11:30:29 +1000 |
commit | e7e3cedcbde855a2f22ee9eb830b62c45b543836 (patch) | |
tree | 82d43014a41de21a813a0f7df3accd5ef26b6721 /jim.c | |
parent | 539f52a07c94d769e51d046d71903e4a2505edd7 (diff) | |
download | jimtcl-e7e3cedcbde855a2f22ee9eb830b62c45b543836.zip jimtcl-e7e3cedcbde855a2f22ee9eb830b62c45b543836.tar.gz jimtcl-e7e3cedcbde855a2f22ee9eb830b62c45b543836.tar.bz2 |
Add tcl_platform(pathSeparator)
Tcl compatible.
Also move jimsh initialisation script into initjimsh.tcl
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim.c')
-rw-r--r-- | jim.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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 *))); |