なかだです。

  この間 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はできる。 中田 伸悦