[ruby-dev:1092] Re: [ruby-list:5634] Platform Identification (was Re: ruby 1.0-971204 released)

わたなべです.

Yukihiro Matsumoto <[e-mail]> writes:

:1.1だとconfig.rb(ごめん1.1b2からはrbconfig.rbって名前になり
:ます)を使えば取り出せます．

考えてみたら cygwin32 版も djgpp 版も入れるの忘れてました.
ごめんなさい.
mswin32 版は config.status を作るのが結構やっかいかもしれな
いなあ.

ところで [ruby-dev:1042] のような仕様はまずいですか?
patch もつけときます.
もうひとつ [ruby-dev:956] も入れてください.

あれ? いつの間に 971209 が出てるし. 木村さんの mail
[ruby-dev:1071] を注意して読んで今頃気づきました.
いつの間にと言えば ruby-dev も 1000 を越えてる.

-- 
わたなべひろふみ

--- ruby.c.orig	Tue Dec  9 17:20:14 1997
+++ ruby.c	Wed Dec 10 23:45:06 1997
@@ -12,2 +12,5 @@
 
+#ifdef _WIN32
+#include <windows.h>
+#endif
 #include "ruby.h"
@@ -581,2 +584,36 @@
 
+#if defined(_WIN32) || defined(DJGPP)
+static char *
+ruby_libpath()
+{
+    static char libpath[FILENAME_MAX+1];
+    char *p;
+#if defined(_WIN32)
+    GetModuleFileName(NULL, libpath, sizeof libpath);
+#elif defined(DJGPP)
+    extern char *__dos_argv0;
+    strcpy(libpath, __dos_argv0);
+#endif
+    p = strrchr(libpath, '\\');
+    if (p)
+	*p = 0;
+    if (!strcasecmp(p-4, "\\bin"))
+	p -= 4;
+    strcpy(p, "\\lib");
+#if defined(__CYGWIN32__)
+    p = (char *)malloc(strlen(libpath)+10);
+    if (!p)
+	return 0;
+    cygwin32_conv_to_posix_path(libpath, p);
+    strcpy(libpath, p);
+    free(p);
+#else
+    for (p = libpath; *p; p++)
+	if (*p == '\\')
+	    *p = '/';
+#endif
+    return libpath;
+}
+#endif
+
 void
@@ -593,2 +630,6 @@
     rb_define_readonly_variable("$-l", &do_line);
+
+#if defined(_WIN32) || defined(DJGPP)
+    addpath(ruby_libpath());
+#endif