[ruby-dev:10718] [PATCH] Win32API.c

なかだです。

  この間 Win32API を使ったら、うっかり3番目に nil を渡してしまって 
[BUG] とかいわれてしまったので、パッチです。

# ついでに nil くらい許してよっていう個人的願望が入ってたりしますが。
## ていうか、そっちの方が大きいし。


diff -pruPX ./.excludes current/ext/Win32API/Win32API.c devel/ext/Win32API/Win32API.c
--- current/ext/Win32API/Win32API.c	Sun May 14 01:12:19 2000
+++ devel/ext/Win32API/Win32API.c	Thu Aug 24 19:42:10 2000
@@ -70,36 +70,44 @@ Win32API_initialize(self, dllname, proc,
     rb_iv_set(self, "__proc__", UINT2NUM((unsigned long)hproc));
 
     a_import = rb_ary_new();
-    ptr = RARRAY(import)->ptr;
-    for (i = 0, len = RARRAY(import)->len; i < len; i++) {
-	int c = *(char *)RSTRING(ptr[i])->ptr;
-	switch (c) {
-	case 'N': case 'n': case 'L': case 'l':
-	    rb_ary_push(a_import, INT2FIX(_T_NUMBER));
-	    break;
-	case 'P': case 'p':
-	    rb_ary_push(a_import, INT2FIX(_T_POINTER));
-	    break;
-	case 'I': case 'i':
-	    rb_ary_push(a_import, INT2FIX(_T_INTEGER));
-	    break;
+    if (!NIL_P(import)) {
+	Check_Type(import, T_ARRAY);
+	ptr = RARRAY(import)->ptr;
+	for (i = 0, len = RARRAY(import)->len; i < len; i++) {
+	    Check_Type(ptr[i], T_STRING);
+	    switch (*(char *)RSTRING(ptr[i])->ptr) {
+	      case 'N': case 'n': case 'L': case 'l':
+		rb_ary_push(a_import, INT2FIX(_T_NUMBER));
+		break;
+	      case 'P': case 'p':
+		rb_ary_push(a_import, INT2FIX(_T_POINTER));
+		break;
+	      case 'I': case 'i':
+		rb_ary_push(a_import, INT2FIX(_T_INTEGER));
+		break;
+	    }
 	}
     }
     rb_iv_set(self, "__import__", a_import);
 
-    switch (*RSTRING(export)->ptr) {
-    case 'V': case 'v':
+    if (NIL_P(export)) {
 	ex = _T_VOID;
-	break;
-    case 'N': case 'n': case 'L': case 'l':
-	ex = _T_NUMBER;
-	break;
-    case 'P': case 'p':
-	ex = _T_POINTER;
-	break;
-    case 'I': case 'i':
-	ex = _T_INTEGER;
-	break;
+    } else {
+	Check_Type(export, T_STRING);
+	switch (*RSTRING(export)->ptr) {
+	  case 'V': case 'v':
+	    ex = _T_VOID;
+	    break;
+	  case 'N': case 'n': case 'L': case 'l':
+	    ex = _T_NUMBER;
+	    break;
+	  case 'P': case 'p':
+	    ex = _T_POINTER;
+	    break;
+	  case 'I': case 'i':
+	    ex = _T_INTEGER;
+	    break;
+	}
     }
     rb_iv_set(self, "__export__", INT2FIX(ex));
 


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