[ruby-dev:12642] Re: require 'win32api'

なかだです。

At Fri, 23 Mar 2001 07:56:04 +0900,
Nobuyoshi-Nakada wrote:
>   あ、やっぱり。うーん、そのImageHelpというのをダイナミックにロー
> ドして、という手はありますが、なんかそこまでする気力がなぁ。Win
> では文字ケースが違ってる可能性を警告するくらいしかないかな。

  つー感じでやってみました。かなり強引に。時間がなくてまだ試し
てませんが。

  ところで、MSDN online で検索すると SymEnumerateSymbols()って
Debug Help とか書いてあるんですが、これは古い仕様なんでしょうか。
VC 6.0 の方にも imagehlp.h というのはあっても Debug なんとかと
いうヘッダはないし。


Index: dln.c
===================================================================
RCS file: /cvs/ruby/src/ruby/dln.c,v
retrieving revision 1.20
diff -u -2 -p -r1.20 dln.c
--- dln.c	2001/03/13 05:45:08	1.20
+++ dln.c	2001/03/23 12:30:30
@@ -86,6 +86,12 @@ int eaccess();
 # if defined(__hp9000s300) ||  (defined(__NetBSD__) && !defined(__ELF__)) || defined(__BORLANDC__) || (defined(__FreeBSD__) && __FreeBSD__ < 3) || defined(__OpenBSD__) || defined(NeXT) || defined(__WATCOMC__) || defined(__APPLE__)
 #  define FUNCNAME_PATTERN "_Init_%s"
+#  define FUNCNAME_FEATURE(n) ((n) + 6)
+#  define FUNCNAME_MATCH(n1, n2) (strncmp((n1), (n2), 6) == 0 && \
+				  strcasecmp(FUNCNAME_FEATURE(n1), FUNCNAME_FEATURE(n2)) == 0)
 # else
 #  define FUNCNAME_PATTERN "Init_%s"
+#  define FUNCNAME_FEATURE(n) ((n) + 5)
+#  define FUNCNAME_MATCH(n1, n2) (strncmp((n1), (n2), 5) == 0 && \
+				  strcasecmp(FUNCNAME_FEATURE(n1), FUNCNAME_FEATURE(n2)) == 0)
 # endif
 #endif
@@ -1114,4 +1120,78 @@ dln_sym(name)
 #if defined _WIN32 && !defined __CYGWIN__
 #include <windows.h>
+
+typedef BOOL (__stdcall *initialize_t)(HANDLE, const char*, BOOL);
+typedef BOOL (__stdcall *loadmodule_t)(HANDLE, HANDLE, const char *, const char *, DWORD, DWORD);
+typedef BOOL (__stdcall *unloadmodule_t)(HANDLE, DWORD);
+typedef BOOL (__stdcall *enumsyms_t)(HANDLE, DWORD, BOOL (CALLBACK *)(const char*, ULONG, ULONG, void*), void*);
+
+struct search_entry {
+    const char* sym;
+    char *name;
+    FARPROC addr;
+};
+
+static BOOL CALLBACK
+symbols_i(const char *name, ULONG addr, ULONG size, void* arg)
+{
+    struct search_entry *const ent = arg;
+    if (FUNCNAME_MATCH(name, ent->sym)) {
+	ent->addr = (FARPROC)addr;
+	strcpy(ent->name, name);
+	return FALSE;
+    }
+    return TRUE;
+}
+
+static FARPROC
+search_insensitively(const char *path, const char *sym, char *name)
+{
+    static HANDLE imagehlp;
+    static loadmodule_t loadmodule;
+    static unloadmodule_t unloadmodule;
+    static enumsyms_t enumsyms;
+    DWORD base;
+    struct search_entry ent;
+
+    if (!imagehlp) {
+	initialize_t initialize;
+
+	if (!(imagehlp = LoadLibraryExA("imagehlp.dll", NULL, LOAD_WITH_ALTERED_SEARCH_PATH)) ||
+	    !(initialize = (initialize_t)GetProcAddress(imagehlp, "SymInitialize")) ||
+	    !(loadmodule = (loadmodule_t)GetProcAddress(imagehlp, "SymLoadModule")) ||
+	    !(unloadmodule = (unloadmodule_t)GetProcAddress(imagehlp, "SymUnloadModule")) ||
+	    !(enumsyms = (enumsyms_t)GetProcAddress(imagehlp, "SymEnumerateSymbols")))
+	{
+	    errno = GetLastError();
+	    rb_warning("can't load image help library - %s", strerror(errno));
+	    return NULL;
+	}
+
+	if (!(*initialize)(0, NULL, FALSE)) {
+	    errno = GetLastError();
+	    rb_warning("SymInitialize - %s", strerror(errno));
+	    return NULL;
+	}
+    }
+
+    if (!(base = (*loadmodule)(0, 0, path, 0, 0, 0))) {
+	errno = GetLastError();
+	rb_warning("SymLoadModule(%s) - %s", path, strerror(errno));
+	return NULL;
+    }
+
+    ent.addr = 0;
+    ent.sym = sym;
+    ent.name = name;
+    if (!(*enumsyms)(0, base, symbols_i, &ent)) {
+	errno = GetLastError();
+	rb_warning("SymEnumerateSymbols(%s:%s) - %s", path, sym, strerror(errno));
+	return NULL;
+    }
+
+    (*unloadmodule)(0, base);
+
+    return ent.addr;
+}
 #endif
 
@@ -1235,11 +1315,16 @@ dln_load(file)
     if ((handle =
 	LoadLibraryExA(winfile, NULL, LOAD_WITH_ALTERED_SEARCH_PATH)) == NULL) {
-        printf("LoadLibraryExA: %s\n", winfile);
 	goto failed;
     }
 
     if ((init_fct = (void(*)())GetProcAddress(handle, buf)) == NULL) {
-        printf("GetProcAddress %s\n", buf);
-	goto failed;
+	/* try case insensitive search */
+	int len = strlen(buf) + 1/* including null terminator */;
+	char *name = (len > sizeof(buf) / 2) ? ALLOCA_N(char, len) : buf + len;
+ 	if (!(init_fct = (void(*)())search_insensitively(winfile, buf, name))) {
+	    goto failed2;
+	}
+	rb_warning("use `%s' to require, not but `%s'",
+		   FUNCNAME_FEATURE(name), FUNCNAME_FEATURE(buf));
     }
     /* Call the init code */
@@ -1277,5 +1362,5 @@ dln_load(file)
 
 	if ((init_fct = (void(*)())dlsym(handle, buf)) == NULL) {
-	    goto failed;
+	    goto failed2;
 	}
 	/* Call the init code */
@@ -1502,4 +1587,6 @@ dln_load(file)
   failed:
     rb_loaderror("%s - %s", dln_strerror(), file);
+  failed2:
+    rb_loaderror("%s - %s\n%s", dln_strerror(), buf, file);
 #endif
 }


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