[ruby-list:33709] Re: rb2exe WinGUI 版について

たむらです。

> KANEKO Naoshi <[e-mail]> wrote:
> 
> > スクリプトの .exe 化とは方向性が異なりますが、
> > やることは単純で
> > 
> >   C:\>alias irb ruby C:\tool\ruby16ms\sample\irb.rb
> > 
> > とすると irb.rb スクリプトを起動する irb.exe を作成します。
> > このとき、irb.exe はコンソールアプリです。
> > しかし、ターゲットが GUI なプログラムの場合には
> > 自動的に GUI なスタブモジュールを選択しますので、
> > 
> >   C:\>alias foo rubyw.exe C:\tool\foo.rb
> > 
> > とすると foo.exe は GUI なアプリケーションとして作成され、
> > エクスプローラからダブルクリックしてもコンソールは
> > 表示されません。
 :snip
> 
> ありがとうございます。ソースも公開されてるのですね。
> 参考にさせてもらいますです。

ソースの ExeType.pas を見て、「そういえば、昔 ActivePerl の 
ExeType.bat を ruby に移植したなぁ 」と思い出して、ちょっと書き換
えてみました。これで、自動判定してスタブを付けれる、と。
しかし、考えてみたら.exe 化するのは Ruby のスクリプトで、 CUI/GUI 
の選択は自動で出来るはずがない (泣
そして、そのことにコード書き終わるまで気付かなかったという…
くやしいので、ここに貼っておきます。


[exetype.rb]
# '--*-Ruby-*--

# from WINNT.H
IMAGE_SUBSYSTEM_NATIVE      = 1
IMAGE_SUBSYSTEM_WINDOWS_GUI = 2
IMAGE_SUBSYSTEM_WINDOWS_CUI = 3
IMAGE_SUBSYSTEM_POSIX_CUI   = 7
IMAGE_SUBSYSTEM_WINDOWSCE   = 9

class UnknownSubsystem < StandardError; end
  
# Check PE file format
# original code from exetype.bat on activeperl 5.6.0/620
# (.COM file is not PE format)
#
def exetype file
  exe = File.open(file,'r+')
  exe.binmode

  begin
    magic, offset = exe.read(64).unpack('Sx58L')
    unless magic == 0x5a4d # "MZ"
      raise UnknownSubsystem, 'Not an MSDOS executable file'
    end

    exe.seek(offset, 0)
    signature, fsize, magic = exe.read(4 + 20 + 2).unpack('Lx16Sx2S')
    unless signature == 0x4550 # "PE\0\0"
      raise UnknownSubsystem, "PE header not found"
    end
    unless((fsize == 224 && magic == 0x10b)||(fsize == 240 && magic == 0x20b))
      #       IMAGE_NT_OPTIONAL_HDR32_MAGIC       # IMAGE_NT_OPTIONAL_HDR64_MAGIC
      raise UnknownSubsystem, "Optional header is neither in NT32 nor in NT64 format"
    end

    exe.seek(offset + 4 + 20 + 68, 0)
    return exe.read(2).unpack('S')[0]
  ensure
    exe.close
  end
end

# test for debug
if __FILE__ == $0
  f = ARGV.shift
  begin
    case exetype(f)
    when IMAGE_SUBSYSTEM_WINDOWS_GUI
      printf "%s is WINDOWS Program\n", f
    when IMAGE_SUBSYSTEM_WINDOWS_CUI
      printf "%s is CONSOLE Program\n", f
    else
      printf "%s is not NormalWIN32 Program\n", f
    end
  rescue UnknownSubsystem
    printf "%s is not execute file [%s]\n", f, $!
  end
end

__END__

ex.
% ruby exetype.rb ruby.exe
ruby.exe is CONSOLE Program
% ruby exetype.rb rubyw.exe
rubyw.exe is WINDOWS Program
% ruby exetype.rb irb.bat
irb.bat is not execute file [Not an MSDOS executable file]

日記はじめました。 http://slashdot.jp/journal.pl?op=display&uid=4115
たむら mailto:[e-mail]