[ruby-dev:3749] Error message in dln.c(Win32)

わたなべです.

Win32 で DLL のロードに失敗したときに Win32 API の 
FormatMessage を使ってるんだけど, 日本語版 Windows だと 
LANG_ENGLISH しても英語が出ないようです. どういうエラーメッ
セージになるか [ruby-talk:0021] でやっとわかりました.
で最後になぜか \r がついててわけのわからんメッセージになるん
ですね.

というわけで, ちょっとわかりやすくしてみました.

PATCH: dln.c better error message
--- dln.c.orig	Mon Nov 09 18:11:48 1998
+++ dln.c	Mon Dec 07 01:30:28 1998
@@ -1129,15 +1129,22 @@
 
 #ifdef _WIN32
     static char message[1024];
+    int error = GetLastError();
+    char *p = message;
+    p += sprintf(message, "%d: ", error);
     FormatMessage(
 	FORMAT_MESSAGE_FROM_SYSTEM,
 	NULL,
-	GetLastError(),
-	MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US),
-	message,
-	sizeof message,
+	error,
+	MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
+	p,
+	sizeof message - strlen(message),
 	NULL);
 
+    for (p = message; *p; p++) {
+	if (*p == '\n' || *p == '\r')
+	    *p = ' ';
+    }
     return message;
 #endif
 }
@@ -1213,7 +1220,7 @@
     /* Load file */
     if ((handle =
 	LoadLibraryExA(winfile, NULL, LOAD_WITH_ALTERED_SEARCH_PATH)) == NULL) {
-        printf("LoadLibraryExA\n");
+        printf("LoadLibraryExA: %s\n", winfile);
 	goto failed;
     }