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

artonです。

一応、出来たみたいです。

下のは、Init_Win32APIしかExportされていないから、シンボルとしてのInit_win32api
は見つかったけどGetProcAddress()に失敗した場合（ruby-dev[12598]を当てて
ないので、当てれば変わるのかも）。
D:\home\arton\work>ruby -v -e 'require "win32api"'
ruby 1.6.3 (2001-03-19) [i586-mswin32]
-e:1:in `require': 127: 指定されたプロシージャが見つかりません。   - Init_win32a
pi (LoadError)
d:/ruby/lib/ruby/1.6/i586-mswin32/win32api.so
        from -e:1

で、テストにならないから、Win32OLEで実験。
こっちは、正しく修正されてます。
D:\home\arton\work>ruby -v -e 'require "Win32OLE"'
ruby 1.6.3 (2001-03-19) [i586-mswin32]
-e:1: warning: use `win32ole' to require, not but `Win32OLE'

#SEGVになったのは、ImageHelpが内部でロードしたモジュール内の「仮想アドレ
ス」ということで、多分、Baseを足してやればいいのかも知れませんが、固く
GetProcAddress()をやり直してみました。

*** dln.save.c	Sat Mar 24 03:44:14 2001
--- dln.c	Sat Mar 24 03:41:21 2001
*************** symbols_i(const char *name, ULONG addr, 
*** 1145,1149 ****
  
  static FARPROC
! search_insensitively(const char *path, const char *sym, char *name)
  {
      static HANDLE imagehlp;
--- 1145,1149 ----
  
  static FARPROC
! search_insensitively(const char *path, const char *sym, char *name, HMODULE handle)
  {
      static HANDLE imagehlp;
*************** search_insensitively(const char *path, c
*** 1192,1196 ****
      (*unloadmodule)(0, base);
  
!     return ent.addr;
  }
  #endif
--- 1192,1196 ----
      (*unloadmodule)(0, base);
  
!     return GetProcAddress(handle, name);
  }
  #endif
*************** dln_load(file)
*** 1321,1326 ****
  	/* 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;
  	}
--- 1321,1326 ----
  	/* try case insensitive search */
  	int len = strlen(buf) + 1/* including null terminator */;
! 	char *name = (len > sizeof(buf) / 2) ? alloca(sizeof(char) * len) : buf + len;
!  	if (!(init_fct = (void(*)())search_insensitively(winfile, buf, name, handle))) {
  	    goto failed2;
  	}

最後から2番目の!は、ALLOCA_Nが
.\..\dln.c(1317) : error C2143: 構文エラー : ')' が 'type' の前に必要で
す。
.\..\dln.c(1317) : error C2059: 構文エラー : ')'
というエラーになったのでallocaを生で使ってます。
-- 
arton <[e-mail]>