exerb 6.0.1

data/example/vr/winconst.rb

@@ -0,0 +1,158 @@
+###################################
+#
+# winconst.rb
+# Programmed by nyasu <nyasu@osk.3web.ne.jp>
+# Copyright 1999-2005  Nishikawa,Yasuhiro
+#
+# More information at http://vruby.sourceforge.net/index.html
+#
+###################################
+
+
+#######################################
+#   Win Constants and utils
+#
+module WMsg
+  WM_NULL           = 0x0000
+  WM_CREATE         = 0x0001
+  WM_DESTROY        = 0x0002
+  WM_MOVE           = 0x0003
+  WM_SIZE           = 0x0005
+  WM_ACTIVATE       = 0x0006
+  WM_SETFOCUS       = 0x0007
+  WM_KILLFOCUS      = 0x0008
+  WM_ENABLE         = 0x000A
+  WM_SETREDRAW      = 0x000B
+  WM_SETTEXT        = 0x000C
+  WM_GETTEXT        = 0x000D
+  WM_GETTEXTLENGTH  = 0x000E
+  WM_PAINT          = 0x000F
+  WM_CLOSE          = 0x0010
+  WM_QUERYENDSESSION= 0x0011
+  WM_QUIT           = 0x0012
+  WM_QUERYOPEN      = 0x0013
+  WM_ERASEBKGND     = 0x0014
+  WM_SYSCOLORCHANGE = 0x0015
+  WM_ENDSESSION     = 0x0016
+  WM_SHOWWINDOW     = 0x0018
+  WM_WININICHANGE   = 0x001A
+  WM_SETTINGCHANGE  = WM_WININICHANGE
+  WM_DEVMODECHANGE  = 0x001B
+  WM_ACTIVATEAPP    = 0x001C
+  WM_FONTCHANGE     = 0x001D
+  WM_TIMECHANGE     = 0x001E
+  WM_CANCELMODE     = 0x001F
+  WM_SETCURSOR      = 0x0020
+  WM_MOUSEACTIVATE  = 0x0021
+  WM_CHILDACTIVATE  = 0x0022
+  WM_QUEUESYNC      = 0x0023
+  WM_GETMINMAXINFO  = 0x0024
+  WM_NOTIFY         = 0x004E
+  WM_KEYDOWN        = 0x0100
+  WM_KEYUP          = 0x0101
+  WM_CHAR           = 0x0102
+  WM_COMMAND        = 0x0111
+#
+  WM_MOUSEFIRST     = 0x0200
+  WM_MOUSEMOVE      = 0x0200
+  WM_LBUTTONDOWN    = 0x0201
+  WM_LBUTTONUP      = 0x0202
+  WM_LBUTTONDBLCLK  = 0x0203
+  WM_RBUTTONDOWN    = 0x0204
+  WM_RBUTTONUP      = 0x0205
+  WM_RBUTTONDBLCLK  = 0x0206
+  WM_MBUTTONDOWN    = 0x0207
+  WM_MBUTTONUP      = 0x0208
+  WM_MBUTTONDBLCLK  = 0x0209
+  WM_MOUSEWHEEL     = 0x020A
+  WM_MOUSELAST      = 0x020A
+  WM_DROPFILES      = 0x0233
+#
+  WM_CUT            = 0x0300
+  WM_COPY           = 0x0301
+  WM_PASTE          = 0x0302
+  WM_CLEAR          = 0x0303
+  WM_UNDO           = 0x0304
+
+  WM_HOTKEY         = 0x0312
+  WM_USER           = 0x0400
+  WM_APP            = 0x8000
+end
+
+module WStyle
+  WS_OVERLAPPED     = 0
+  WS_TABSTOP        = 0x00010000
+  WS_GROUP          = 0x00020000
+  WS_THICKFRAME     = 0x00040000
+  WS_SYSMENU        = 0x00080000
+  WS_HSCROLL        = 0x00100000
+  WS_VSCROLL        = 0x00200000
+  WS_DLGFRAME       = 0x00400000
+  WS_BORDER         = 0x00800000
+  WS_CAPTION        = 0x00c00000
+  WS_MAXIMIZE       = 0x01000000
+  WS_CLIPCHILDREN   = 0x02000000
+  WS_CLIPSIBLINGS   = 0x04000000
+  WS_DISABLED       = 0x08000000
+  WS_VISIBLE        = 0x10000000
+  WS_MINIMIZE       = 0x20000000
+  WS_CHILD          = 0x40000000
+  WS_POPUP          = 0x80000000
+  WS_VISIBLECHILD   = 0x50000000  # for util
+
+   #followings are contributed by Yuya-san.
+  WS_ICONIC           = 0x20000000
+  WS_CHILDWINDOW      = 0x40000000
+  WS_MAXIMIZEBOX      = 0x10000
+  WS_MINIMIZEBOX      = 0x20000
+  WS_OVERLAPPEDWINDOW = 0xCF0000
+  WS_POPUPWINDOW      = 0x80880000
+  WS_SIZEBOX          = 0x40000
+  WS_TILED            = 0
+  WS_TILEDWINDOW      = 0xCF0000
+end
+
+module WExStyle
+  WS_EX_TOPMOST     = 0x00000008
+  WS_EX_TRANSPARENT = 0x00000020
+  WS_EX_MDICHILD    = 0x00000040
+  WS_EX_TOOLWINDOW  = 0x00000080
+  WS_EX_CLIENTEDGE  = 0x00000200
+  WS_EX_APPWINDOW   = 0x00040000
+end
+
+=begin
+== Global Functions
+These are utility functions instead of macros.
+=== Functions
+--- LOWORD(lParam)
+    Returns low-word of lParam
+--- HIWORD(lParam)
+    Returns hi-word of lParam
+--- MAKELPARAM(w1,w2)
+    Returns the DWORD from 2 words of w1,w2.
+--- SIGNEDWORD(word)
+    changes unsigned WORD into signed WORD.
+--- RGB(r,g,b)
+    returns color code from r,g,b.
+=end
+
+def LOWORD(lParam)
+  return (lParam & 0xffff)
+end
+def HIWORD(lParam)
+  return ( (lParam>>16) & 0xffff)
+end
+def MAKELPARAM(w1,w2)
+  return (w2<<16) | w1
+end
+
+def SIGNEDWORD(word)
+  if word>0x8000 then word-0x10000 else word end
+end
+
+
+def RGB(r,g,b)
+  return r+(g<<8)+(b<<16)
+end
+

data/example/vruby.rb

@@ -0,0 +1,38 @@
+
+#==============================================================================#
+# $Id: vruby.rb,v 1.1 2006/07/06 01:35:22 yuya Exp $
+#==============================================================================#
+
+require 'vr/vruby'
+require 'vr/vrcontrol'
+
+#==============================================================================#
+
+class MyForm < VRForm
+
+  def construct
+    self.caption = 'Example'
+    self.move(100, 100, 150, 160)
+    self.addControl(VRButton, 'cmd_exit',  'Exit',      20, 20, 100, 40)
+    self.addControl(VRButton, 'cmd_raise', 'Exception', 20, 70, 100, 40)
+  end
+
+  def cmd_exit_clicked
+    messageBox('exit', 'Example', 0)
+    exit
+  end
+
+  def cmd_raise_clicked
+    messageBox('raising an exception from now.', 'Example', 0)
+    raise('This is an exception.')
+  end
+
+end
+
+#==============================================================================#
+
+VRLocalScreen.showForm(MyForm)
+VRLocalScreen.messageloop
+
+#==============================================================================#
+#==============================================================================#

data/exerb.gemspec

@@ -0,0 +1,26 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'exerb/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "exerb"
+  spec.version       = Exerb::VERSION
+  spec.authors       = ["windwiny"]
+  spec.email         = ["windwiny.ubt@gmail.com"]
+
+  spec.extensions    = ['extconf.rb']
+  spec.summary       = %q{Packaged *.rb *.so *.dll into alone.exe file.}
+  spec.description   = %q{Exerb support for mingw/rubyinstaller. Packaged ruby source files and ruby extensions files into a single PE executable file.}
+  spec.homepage      = "https://github.com/windwiny/exerb-mingw"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.6"
+  spec.add_development_dependency "rake", "> 0.1"
+  spec.add_development_dependency "rake-compiler", "> 0.1"
+end

data/extconf.rb

@@ -0,0 +1,7 @@
+ARGV.unshift("generate")
+load Gem.bin_path('rake', 'rake')
+ARGV.shift if ARGV.first == "generate"
+
+## ------- fake extensions
+STDERR.puts("==== fake extensions ====")
+File.write('Makefile', "clean:\ndefault:\ninstall:\n")

data/lib/exerb/archive.rb

@@ -0,0 +1,143 @@
+
+#==============================================================================#
+# $Id: archive.rb,v 1.38 2007/02/26 10:59:31 yuya Exp $
+#==============================================================================#
+
+require 'exerb/name_table'
+require 'exerb/file_table'
+
+#==============================================================================#
+
+module Exerb
+end # Exerb
+
+#==============================================================================#
+
+class Exerb::Archive
+
+  def initialize(kcode = 'none')
+    @name_table   = Exerb::NameTable.new
+    @file_table   = Exerb::FileTable.new
+    @kcode        = kcode
+  end
+
+  attr_reader   :name_table, :file_table
+  attr_accessor :kcode
+
+  def add(name, data, flag = 0)
+    @file_table.add(@name_table.add(name), data, flag)
+  end
+
+  def add_from_file(name, path, flag = 0)
+    @file_table.add_from_file(@name_table.add(name), path, flag)
+  end
+
+  def add_ruby_script(name, data, flag = 0)
+    @file_table.add_ruby_script(@name_table.add(name), data, flag)
+  end
+
+  def add_ruby_script_from_file(name, path, flag = 0)
+    @file_table.add_ruby_script_from_file(@name_table.add(name), path, flag)
+  end
+
+  def add_extension_library(name, data, flag = 0)
+    @file_table.add_extension_library(@name_table.add(name), data, flag)
+  end
+
+  def add_extension_library_from_file(name, path, flag = 0)
+    @file_table.add_extension_library_from_file(@name_table.add(name), path, flag)
+  end
+
+  def add_dynamic_library(name, data, flag = 0)
+    @file_table.add_dynamic_library(@name_table.add(name), data, flag)
+  end
+
+  def add_dynamic_library_from_file(path, flag = 0)
+    @file_table.add_dynamic_library_from_file(@name_table.add(File.basename(path)), path, flag)
+  end
+
+  def add_resource_library(name, data, flag = 0)
+    @file_table.add_resource_library(@name_table.add(name), data, flag)
+  end
+
+  def add_resource_library_from_file(path, flag = 0)
+    @file_table.add_resource_library_from_file(@name_table.add(File.basename(path)), path, flag)
+  end
+
+  def add_data_binary(name, data, flag = 0)
+    @file_table.add_data_binary(@name_table.add(name), data, flag)
+  end
+
+  def add_data_binary_from_file(name, path, flag = 0)
+    @file_table.add_data_binary_from_file(@name_table.add(name), path, flag)
+  end
+
+  def add_compiled_script(name, data, flag = 0)
+    @file_table.add_compiled_script(@name_table.add(name), data, flag)
+  end
+
+  def add_compiled_script_from_file(name, path, flag = 0)
+    @file_table.add_compiled_script_from_file(@name_table.add(name), path, flag)
+  end
+
+  def pack
+    case @kcode.downcase.delete('-')
+    when 'n', 'none' then options = Exerb::Archive::Header::OPTIONS_KCODE_NONE
+    when 'e', 'euc'  then options = Exerb::Archive::Header::OPTIONS_KCODE_EUC
+    when 's', 'sjis' then options = Exerb::Archive::Header::OPTIONS_KCODE_SJIS
+    when 'u', 'utf8' then options = Exerb::Archive::Header::OPTIONS_KCODE_UTF8
+    else raise(ExerbError, "unkown kanji code [#{@kcode}]")
+    end
+
+    packed_name_table   = @name_table.pack
+    packed_file_table   = @file_table.pack
+
+    archive_header = Exerb::Archive::Header.new
+    archive_header.signature1             = Exerb::Archive::Header::SIGNATURE1
+    archive_header.signature2             = Exerb::Archive::Header::SIGNATURE2
+    archive_header.options                = options
+    archive_header.offset_of_name_table   = Exerb::Utility.alignment16(archive_header.pack).size
+    archive_header.offset_of_file_table   = archive_header.offset_of_name_table + packed_name_table.size
+
+    return Exerb::Utility.alignment16(archive_header.pack) + packed_name_table + packed_file_table
+  end
+
+  def write_to(io)
+    io.write(self.pack)
+  end
+
+  def write_to_file(filepath)
+    File.open(filepath, 'wb') { |file| self.write_to(file) }
+  end
+
+end # Exerb::Archive
+
+#==============================================================================#
+
+class Exerb::Archive::Header
+
+  SIGNATURE1         = 0x52455845
+  SIGNATURE2         = 0x04000042
+  OPTIONS_KCODE_NONE = 0
+  OPTIONS_KCODE_EUC  = 1
+  OPTIONS_KCODE_SJIS = 2
+  OPTIONS_KCODE_UTF8 = 3
+
+  def initialize
+    @signature1           = 0
+    @signature2           = 0
+    @options              = 0
+    @offset_of_name_table = 0
+    @offset_of_file_table = 0
+  end
+
+  attr_accessor :signature1, :signature2, :options, :offset_of_name_table, :offset_of_file_table
+
+  def pack
+    return [@signature1, @signature2, @options, @offset_of_name_table, @offset_of_file_table].pack('LLLLL')
+  end
+
+end # Exerb::Archive::Header
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/config.rb

@@ -0,0 +1,51 @@
+
+#==============================================================================#
+# $Id: config.rb,v 1.23 2008/06/13 23:54:45 arton Exp $
+#==============================================================================#
+
+require 'rbconfig'
+
+#==============================================================================#
+
+module Exerb
+  ver = RUBY_VERSION.gsub('.','')
+
+  # Search directories of a core.
+  # If running exerb on exerb, Add self path to the search directories of a core.
+  CORE_PATH = [
+    (File.dirname(ExerbRuntime.filepath) if defined?(ExerbRuntime)),
+    ENV['EXERBCORE'],
+    File.expand_path('../../../data/exerb', __FILE__),
+    File.join(RbConfig::CONFIG['datadir'], 'exerb')
+  ].compact
+
+  # Name definitions of a core.
+  CORE_NAME = {
+    'cui'    => "ruby#{ver}c.exc",
+    'cuid'   => "ruby#{ver}cd.exc",
+    'cuirt'  => "ruby#{ver}crt.exc",
+    'cuirtd' => "ruby#{ver}crtd.exc",
+    'gui'    => "ruby#{ver}g.exc",
+    'guid'   => "ruby#{ver}gd.exc",
+    'guirt'  => "ruby#{ver}grt.exc",
+    'guirtd' => "ruby#{ver}grtd.exc",
+  }
+
+  # Descriptions of a core.
+  CORE_DESC = {
+    # FIXME: Add descriptions
+    # "ruby#{ver}c.exc" => '...',
+  }
+
+end # Exerb
+
+#==============================================================================#
+
+# Load a configuration file of Exerb Core Collection if found that.
+configcc = File.join(File.dirname(__FILE__), 'configcc.rb')
+if File.exist?(configcc)
+  require(configcc)
+end
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/error.rb

@@ -0,0 +1,15 @@
+
+#==============================================================================#
+# $Id: error.rb,v 1.2 2005/04/17 15:17:26 yuya Exp $
+#==============================================================================#
+
+module Exerb
+end # Exerb
+
+#==============================================================================#
+
+class Exerb::ExerbError < StandardError
+end # Exerb::ExerbError
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/executable.rb

@@ -0,0 +1,68 @@
+
+#==============================================================================#
+# $Id: executable.rb,v 1.21 2005/05/03 13:47:01 yuya Exp $
+#==============================================================================#
+
+require 'exerb/utility'
+require 'exerb/archive'
+require 'exerb/error'
+require 'exerb/resource'
+require 'exerb/win32/pe_file'
+
+#==============================================================================#
+
+module Exerb
+end # Exerb
+
+#==============================================================================#
+
+class Exerb::Executable
+
+  def initialize(core)
+    @core = core
+    @rsrc = Exerb::Resource.new_from_pe_binary(@core)
+  end
+
+  attr_reader   :core
+  attr_accessor :rsrc
+
+  def self.read(input)
+    return self.new(Exerb::Utility.read(input))
+  end
+
+  def pack
+    pe  = Exerb::Win32::PeFile.new_from_binary(@core)
+    fh  = pe.nt_headers.file_header
+    oh  = pe.nt_headers.optional_header
+    rsh = pe.sections.last
+    raise(Exerb::ExerbError, "the last section must be resource section") unless rsh.name == '.rsrc'
+
+    packed_rsrc  = @rsrc.pack(rsh.virtual_address)
+    aligned_rsrc = Exerb::Utility.alignment(packed_rsrc, oh.file_alignment)
+    old_resource_size = Exerb::Utility.align_value(rsh.virtual_size, oh.section_alignment)
+    new_resource_size = Exerb::Utility.align_value(packed_rsrc.size, oh.section_alignment)
+
+    @core[rsh.pointer_to_raw_data, rsh.size_of_raw_data] = aligned_rsrc
+
+    fh.time_date_stamp                 = Time.now.to_i
+    oh.size_of_initialized_data        = oh.size_of_initialized_data - rsh.size_of_raw_data + aligned_rsrc.size
+    oh.size_of_image                   = oh.size_of_image            - old_resource_size + new_resource_size
+    oh.resource_directory_virtual_size = packed_rsrc.size
+    rsh.virtual_size                   = packed_rsrc.size
+    rsh.size_of_raw_data               = aligned_rsrc.size
+
+    fh.update(@core)
+    oh.update(@core)
+    rsh.update(@core)
+
+    return Exerb::Utility.alignment16(@core)
+  end
+
+  def write(output)
+    Exerb::Utility.write(output, self.pack, 0755)
+  end
+
+end # Exerb::Executable
+
+#==============================================================================#
+#==============================================================================#