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

なかだです。

At Thu, 31 Jan 2002 02:19:43 +0900,
HIDAKA Takahiro <[e-mail]> wrote:
> > たむらが手を加えて、 WindowsGUI なスタートアップを利用するものを作
> > ったのですが、埋め込みのプログラムの名前に困ってます。
> > コンソールな埋め込みと、 GUI な埋め込みは同じプログラムでは無理な
> > ので(# これが出来たら一番良いのだけど) 名前を二つ作らなければなら
> > ないのですが、何か良いアイデアはないでしょうか ?
> 
> 　ぼくは手元で勝手に直していたことがあるのですが、そのときは、
> rb2exe.exe を、runruby.stub + セパレータ + runrubyw.stub + rb2exe.rb という
> 構成にして、セパレータで分割してどちらを stub に使うかをコマンドライン
> オプション-wで選択できるようにしてました。

私も以前おんなじ名前で似たようなことをしてました。ただ、バイナ
リを使うんじゃなくて、mime encodeして埋め込んでましたが。

参考までに。optparseを使ってるのはご愛敬。


#!./miniruby
# -*- ruby -*-

BINARY = {}
defmode = nil
while arg = ARGV.shift
  /^--?(\w[-\w]*)=(.*)/ =~ arg or break
  mode, file = $1, $2
  defmode ||= mode
  open(file, 'rb') {|f| BINARY[mode] = [mode.gsub(/\W+/, '_'), [f.read].pack("m")]}
end
unless defmode and ARGV.empty?
  STDERR.puts "usage: #{$0} -MODE=STUB... [output]"
  exit 1
end
$>.reopen(arg, 'wb') if arg

print "#!/usr/bin/ruby\n\n"

if BINARY.size > 1
  puts 'BINARY = {}'
  BINARY.each do |mode, (mname, bin)|
    puts "\nBINARY[:#{mname}], = <<'EOS'.unpack('m')", bin, 'EOS'
  end
else
  BINARY.each do |mode, (mname, bin)|
    puts "\nBINARY, = <<'EOS'.unpack('m')", bin, 'EOS'
  end
end
print "\nrequire 'optparse'\n\n"

puts "mode = :#{defmode}" if BINARY.size > 1
print <<'EOF'
output = outdir = nil
strip = verbose = done = false
ARGV.options do |q|
  q.banner = "usage: #{q.program_name = File.basename($0, '.*')} [options] file...\n"
  q.on('-x', '--[no-]strip', 'strip till #! ruby line') {|strip|}
  q.on('--[no-]verbose', 'run verbosely') {|verbose|}
  q.on('-o', '--output=FILE/DIR', 'output to FILE or in DIR', String) {|o|
    if File.directory?(o)
      outdir = o
    else
      output = o
    end
  }
EOF
if BINARY.size > 1
  puts "  q.on"
  puts "  q.on('application mode:')"
  puts "  q.on('--mode=MODE', [:#{BINARY.values.collect{|m|m[0]}.join(', :')}], 'application mode') {|mode|}"
  puts "  q.on('--#{defmode}', 'make #{defmode} application(default)') {mode = :#{BINARY[defmode][0]}}"
  (BINARY.keys - [defmode]).sort.each do |mode|
    puts "  q.on('--#{mode}', 'make #{mode} application') {mode = :#{BINARY[mode][0]}}"
  end
end
print <<'EOF'
  q.order! do |script|
    output ||= File.join(outdir || File.dirname(script), File.basename(script, '.rb') + '.exe')
    print "creating #{output} from #{script}..." if verbose
    script = open(script) {|f| f.read}
    if strip
      script.sub!(/\A.*^(\#! *\S*ruby)/m, '\1')
    else
      /\A\#! *\S*ruby/ =~ script
    end or script = "#! ruby\n" + script
    open(output, 'wb') do |f|
      f.print BINARY[mode], "\n", script
      f.chmod(f.stat.mode | 0111)
    end
    puts "done" if verbose
    output = nil
    done = true
  end
end
done or puts ARGV.options
EOF


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