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

なかだです。

At Tue, 20 Mar 2001 12:51:55 +0900,
Kazuhiro NISHIYAMA <[e-mail]> wrote:
> require 'win32api'のエラーメッセージがわかりにくいと
> いうような内容の話をみました。
> 
> Windowsで大文字小文字の違いでエントリポイントが
> みつからないのが原因のLoadErrorの場合はLFNを調べて
> エラーメッセージに入れるようにした方がいいのでは
> ないかと思いました。

  "指定されたプロシージャが見つかりません。" というのは正しくそ
の通りのメッセージだと思いますが、GetProcAddress() が失敗したと
きにはファイル名だけじゃなくエントリポイントも出した方がいいの
かも。というか、なぜ printf()?

  それと、Win32API.c には Init_Win32API() と Init_win32api() の
両方のエントリポイントがあるのに、片方しか export されてないと
いうのが問題じゃないかという気もします。

  でも create_makefile に複数 target を渡す方法が今のところない
から、なにか追加しないと無理ないですが、そもそもいちいち指定し
てやらないと外部からアクセスできないというのは Windows 以外ある
んでしょうか。


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/20 04:34:08
@@ -1235,11 +1235,9 @@ dln_load(file)
     if ((handle =
 	LoadLibraryExA(winfile, NULL, LOAD_WITH_ALTERED_SEARCH_PATH)) == NULL) {
-        printf("LoadLibraryExA: %s\n", winfile);
-	goto failed;
+	rb_loaderror("%s - %s", dln_strerror(), file);
     }
 
     if ((init_fct = (void(*)())GetProcAddress(handle, buf)) == NULL) {
-        printf("GetProcAddress %s\n", buf);
-	goto failed;
+	rb_loaderror("%s - %s\n%s", dln_strerror(), buf, file);
     }
     /* Call the init code */
@@ -1249,5 +1247,5 @@ dln_load(file)
 #ifdef USE_DLN_A_OUT
     if (load(file) == -1) {
-	goto failed;
+	rb_loaderror("%s - %s", dln_strerror(), file);
     }
     return;
@@ -1273,9 +1271,9 @@ dln_load(file)
 	/* Load file */
 	if ((handle = (void*)dlopen(file, RTLD_LAZY|RTLD_GLOBAL)) == NULL) {
-	    goto failed;
+	    rb_loaderror("%s - %s", dln_strerror(), file);
 	}
 
 	if ((init_fct = (void(*)())dlsym(handle, buf)) == NULL) {
-	    goto failed;
+	    rb_loaderror("%s - %s\n%s", dln_strerror(), buf, file);
 	}
 	/* Call the init code */
@@ -1498,8 +1496,4 @@ dln_load(file)
 
 #endif /* USE_DLN_A_OUT */
-#endif
-#if !defined(_AIX) && !defined(NeXT)
-  failed:
-    rb_loaderror("%s - %s", dln_strerror(), file);
 #endif
 }


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