Do just enough to make Jim useable with msys/mingw

Convert some paths from backslashes to forward slashes
Handle splitting/joining paths which look like z:/abc/def
Identify the platform as mingw

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

1 files changed, 9 insertions, 0 deletions

diff --git a/jimsh.c b/jimsh.c
index 96d24c9..9ca1099 100644
--- a/jimsh.c
+++ b/jimsh.c
@@ -30,7 +30,12 @@
 static const char jimsh_init[] = \
 "proc _init {} {\n"
 "\trename _init {}\n"
+/* XXX This is a big ugly */
+#if defined(__MINGW32__)
+"\tlappend p {*}[split [env JIMLIB {}] {;}]\n"
+#else
 "\tlappend p {*}[split [env JIMLIB {}] :]\n"
+#endif
 "\tlappend p {*}$::auto_path\n"
 "\tlappend p [file dirname [info nameofexecutable]]\n"
 "\tset ::auto_path $p\n"
@@ -44,6 +49,10 @@ static const char jimsh_init[] = \
 "\t\t}\n"
 "\t}\n"
 "}\n"
+/* XXX This is a big ugly */
+#if defined(__MINGW32__)
+"set jim_argv0 [string map {\\\\ /} $jim_argv0]\n"
+#endif
 "_init\n";
 
 static void JimSetArgv(Jim_Interp *interp, int argc, char *const argv[])