[ruby-dev:18362] Re: $0 handling on DOSISH

なかだです。

At Mon, 23 Sep 2002 21:59:15 +0900,
IWATSUKI Hiroyuki wrote:
> > # そういえばhuman68kを忘れてたような…。LOAD_RELATIVEにしちゃっ
> > # ていいのかな。
> 
> はい。DJGPPと同じ対処をしていただければと思います。CharNextも
> DJGPPと同じ物です。

たぶんOS/2 EMXもmblen()を使ったほうがいいような気がするので
(CharNextがある?)まとめるとこんなとこでしょうか。


Index: ruby.c
===================================================================
RCS file: /cvs/ruby/src/ruby/ruby.c,v
retrieving revision 1.67
diff -u -2 -p -r1.67 ruby.c
--- ruby.c	22 Sep 2002 12:52:18 -0000	1.67
+++ ruby.c	23 Sep 2002 22:51:39 -0000
@@ -204,6 +204,20 @@ ruby_incpush(path)
 }
 
-#if defined _WIN32 || defined __CYGWIN__ || defined __DJGPP__ || defined __EMX__
+#if defined DOSISH || defined __CYGWIN__
 #define LOAD_RELATIVE 1
+static void
+replace_slash(p)
+    char *p;
+{
+    while (*p) {
+	if (*p == '\\')
+	    *p = '/';
+#ifdef CharNext		/* defined as CharNext[AW] on Windows. */
+	p = CharNext(p);
+#else
+	p += mblen(p, MB_CUR_MAX);
+#endif
+    }
+}
 #endif
 
@@ -225,17 +239,12 @@ ruby_init_loadpath()
     extern char *__dos_argv0;
     strncpy(libpath, __dos_argv0, FILENAME_MAX);
-#define CharNext(p) ((p) + mblen(p, MB_CUR_MAX))
+#elif defined(__human68k__)
+    extern char **_argv;
+    strncpy(libpath, _argv[0], FILENAME_MAX);
 #elif defined(__EMX__)
     _execname(libpath, FILENAME_MAX);
 #endif
 
-#ifndef CharNext		/* defined as CharNext[AW] on Windows. */
-#define CharNext(p) ((p) + 1)
-#endif
-
-    for (p = libpath; *p; p = CharNext(p))
-	if (*p == '\\')
-	    *p = '/';
-
+    replace_slash(libpath);
     p = strrchr(libpath, '/');
     if (p) {
@@ -712,4 +721,7 @@ proc_options(argc, argv)
 	    argc--; argv++;
 	}
+#ifdef DOSISH
+	replace_slash(script);
+#endif
     }
 


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦