exerb 6.0.1

data/lib/exerb/resource_library.rb

@@ -0,0 +1,120 @@
+
+#==============================================================================#
+# $Id: resource_library.rb,v 1.7 2005/04/30 15:16:04 yuya Exp $
+#==============================================================================#
+
+require 'exerb/utility'
+require "exerb/resource"
+
+#==============================================================================#
+
+module Exerb
+end # Exerb
+
+#==============================================================================#
+
+class Exerb::ResourceLibrary
+
+  def initialize(rsrc)
+    @rsrc = rsrc
+  end
+
+  attr_accessor :rsrc
+
+  def self.create
+    return self.new(Exerb::Resource.new)
+  end
+
+  def pack
+    rsrc = @rsrc.pack(0x00001000)
+    stab = Exerb::ResourceLibrary::Stab.new
+
+    size_of_rsrc_with_padding = Exerb::Utility.alignment4k(rsrc).size
+    size_of_stab_with_padding = Exerb::Utility.alignment4k(stab.pack).size
+
+    stab.time_date_stamp              = Time.now.to_i
+    stab.size_of_initialized_data     = size_of_rsrc_with_padding
+    stab.size_of_image                = size_of_stab_with_padding + size_of_rsrc_with_padding
+    stab.rsrc_section_virtual_address = size_of_stab_with_padding
+    stab.rsrc_section_virtual_size    = rsrc.size
+    stab.rsrc_section_raw_size        = size_of_rsrc_with_padding
+
+    return Exerb::Utility.alignment4k(stab.pack) + Exerb::Utility.alignment4k(rsrc)
+  end
+
+  def write(out)
+    case out
+    when IO     then out.write(self.pack)
+    when String then File.open(out, 'wb') { |file| self.write(file) }
+    else raise(ArgumentError, 'arg must be IO or String object')
+    end
+    return nil
+  end
+
+end # Exerb::ResourceLibrary
+
+#==============================================================================#
+
+class Exerb::ResourceLibrary::Stab
+
+  BASE_BINARY =
+    "\x4D\x5A\x90\x00\x03\x00\x00\x00\x04\x00\x00\x00\xFF\xFF\x00\x00" +
+    "\xB8\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xB0\x00\x00\x00" +
+    "\x0E\x1F\xBA\x0E\x00\xB4\x09\xCD\x21\xB8\x01\x4C\xCD\x21\x54\x68" +
+    "\x69\x73\x20\x70\x72\x6F\x67\x72\x61\x6D\x20\x63\x61\x6E\x6E\x6F" +
+    "\x74\x20\x62\x65\x20\x72\x75\x6E\x20\x69\x6E\x20\x44\x4F\x53\x20" +
+    "\x6D\x6F\x64\x65\x2E\x0D\x0D\x0A\x24\x00\x00\x00\x00\x00\x00\x00" +
+    "\xEB\x20\x35\xDB\xAF\x41\x5B\x88\xAF\x41\x5B\x88\xAF\x41\x5B\x88" +
+    "\x68\x47\x5D\x88\xAE\x41\x5B\x88\x52\x69\x63\x68\xAF\x41\x5B\x88" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x50\x45\x00\x00\x4C\x01\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\xE0\x00\x0F\x21\x0B\x01\x06\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00" +
+    "\x00\x10\x00\x00\x00\x00\x00\x10\x00\x10\x00\x00\x00\x10\x00\x00" +
+    "\x04\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00" +
+    "\x00\x00\x10\x00\x00\x10\x00\x00\x00\x00\x10\x00\x00\x10\x00\x00" +
+    "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x2E\x72\x73\x72\x63\x00\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00" +
+    "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x40"
+
+  def initialize
+    @time_date_stamp              = 0
+    @size_of_initialized_data     = 0
+    @size_of_image                = 0
+    @rsrc_section_virtual_address = 0
+    @rsrc_section_virtual_size    = 0
+    @rsrc_section_raw_size        = 0
+  end
+
+  attr_accessor :time_date_stamp, :size_of_initialized_data, :size_of_image, :rsrc_section_virtual_address, :rsrc_section_virtual_size, :rsrc_section_raw_size
+
+  def pack
+    binary = BASE_BINARY.dup
+
+    binary[0x00B8, 4] = [@time_date_stamp].pack('L')
+    binary[0x00D0, 4] = [@size_of_initialized_data].pack('L')
+    binary[0x0100, 4] = [@size_of_image].pack('L')
+    binary[0x0138, 4] = [@rsrc_section_virtual_address].pack('L')
+    binary[0x013C, 4] = [@rsrc_section_virtual_size].pack('L')
+    binary[0x01B0, 4] = [@rsrc_section_virtual_size].pack('L')
+    binary[0x01B4, 4] = [@rsrc_section_virtual_address].pack('L')
+    binary[0x01B8, 4] = [@rsrc_section_raw_size].pack('L')
+
+    return binary
+  end
+
+end # Exerb::ResourceLibrary::Stab
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/utility.rb

@@ -0,0 +1,95 @@
+
+#==============================================================================#
+# $Id: utility.rb,v 1.15 2005/05/03 13:47:01 yuya Exp $
+#==============================================================================#
+
+module Exerb
+end # Exerb
+
+#==============================================================================#
+
+module Exerb::Utility
+
+  def self.align_value(value, align)
+    if value % align == 0
+      return value
+    else
+      return value + (align - (value % align))
+    end
+  end
+
+  def self.alignment(bin, align)
+    if bin.size % align == 0
+      return bin
+    else
+      return bin + "\0" * (align - (bin.size % align))
+    end
+  end
+
+  def self.alignment16(bin)
+    return alignment(bin, 16)
+  end
+
+  def self.alignment4k(bin)
+    return alignment(bin, 1024 * 4)
+  end
+
+  def self.find_file_by_filename(filename, path)
+    return filename if File.expand_path(filename) == filename && File.exist?(filename)
+    return path.collect { |dir| File.join(dir, filename) }.find { |filepath| File.exist?(filepath) }
+  end
+
+  def self.find_file_by_name(name, table, path)
+    return nil unless table.has_key?(name)
+    return self.find_file_by_filename(table[name], path)
+  end
+
+  def self.find_core_by_filepath(filepath)
+    return (File.exist?(filepath) ? filepath : nil)
+  end
+
+  def self.find_core_by_filename(filename)
+    require 'exerb/config'
+    return self.find_file_by_filename(filename, Exerb::CORE_PATH)
+  end
+
+  def self.find_core_by_name(name, error = false)
+    require 'exerb/config'
+    path = self.find_file_by_name(name, Exerb::CORE_NAME, Exerb::CORE_PATH)
+    raise(Exerb::ExerbError, "unknown core name -- #{name}") if path.nil? && error
+    return path
+  end
+
+  def self.read(input)
+    case input
+    when IO
+      input.binmode
+      return input.read
+    when String
+      return File.open(input, "rb") { |file| self.read(file) }
+    else raise(ArgumentError, "input must be IO or String object")
+    end
+  end
+
+  def self.write(output, binary, mode = nil)
+    case output
+    when IO
+      output.binmode
+      output.write(binary)
+    when String
+      File.open(output, "wb") { |file| self.write(file, binary) }
+      File.chmod(mode, output) if mode
+    else raise(ArgumentError, "output must be IO or String object")
+    end
+    return nil
+  end
+
+end # Exerb::Utility
+
+#==============================================================================#
+
+if $0 == __FILE__
+end
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/utility2.rb

@@ -0,0 +1,122 @@
+
+#==============================================================================#
+# $Id: utility2.rb,v 1.2 2005/04/17 15:17:26 yuya Exp $
+#==============================================================================#
+
+module Exerb
+end # Exerb
+
+#==============================================================================#
+
+module Exerb::Utility2
+
+  def self.loaded_features(reject_list = [])
+    reject_list << File.expand_path(__FILE__)
+
+    __LOADED_FEATURES = $LOADED_FEATURES.clone  # Don't change $LOADED_FEATURES
+    if RUBY_VERSION >= "1.9.3"
+      ['enc/encdb.so', 'enc/utf_16le.so',
+        'enc/trans/transdb.so', 'enc/trans/utf_16_32.so',
+        'enc/trans/single_byte.so'].each do |enc|
+
+        unless __LOADED_FEATURES.find { |f| f.include?(enc) }
+          __LOADED_FEATURES << enc
+        end
+      end
+    end
+
+    features = __LOADED_FEATURES.collect { |filename|
+      case filename.downcase
+      when /\.rb$/o  then type = "script"
+      when /\.so$/o  then type = "extension-library"
+      when /\.dll$/o then type = "extension-library"
+      end
+      [type, filename]
+    }.collect { |type, filename|
+      if File.exist?(filename)
+        [type, require_name(filename), filename]
+      else
+        $LOAD_PATH.collect { |dirpath|
+          [type, filename, File.join(dirpath, filename)]
+        }.find { |type, filename, filepath|
+          File.exist?(filepath)
+        }
+      end
+    }.compact.reject { |type, filename, filepath|
+      type.nil?
+    }.reject { |type, filename, filepath|
+      reject_list.index(File.expand_path(filepath))
+    }
+
+    detected_libraries.each do |path|
+      dll = ["extension-library", File.basename(path).downcase, path]
+      features << dll
+    end
+
+    return features
+  end
+
+  def self.require_name(filename)
+    # FIXED BUG, if relative path in $LOAD_PATH. like '.', '..', ..
+    path = $LOAD_PATH.find { |path| File.dirname(filename) == File.expand_path(path) }
+    path = $LOAD_PATH.find { |path| filename.start_with?(File.expand_path(path)) } if !path
+    if path
+      # remove both the path and the platform from the filename
+      return filename.gsub("#{File.expand_path(path)}/", "").gsub("#{RUBY_PLATFORM}/", "")
+    end
+
+    filename
+  end
+
+  # Code copied and adapted from Ocra project
+  # http://ocra.rubyforge.org/
+  def self.loaded_libraries
+    require "Win32API"
+
+    enumprocessmodules = Win32API.new('psapi',    'EnumProcessModules', ['L','P','L','P'], 'L')
+    getmodulefilename  = Win32API.new('kernel32', 'GetModuleFileName',  ['L','P','L'], 'L')
+    getcurrentprocess  = Win32API.new('kernel32', 'GetCurrentProcess',  [], 'L')
+
+    bytes_needed = 4 * 32
+    module_handle_buffer = nil
+    process_handle = getcurrentprocess.call
+
+    loop do
+      module_handle_buffer = "\x00" * bytes_needed
+      bytes_needed_buffer = [0].pack("I")
+
+      r = enumprocessmodules.call(process_handle, module_handle_buffer,
+            module_handle_buffer.size, bytes_needed_buffer)
+
+      bytes_needed = bytes_needed_buffer.unpack("I")[0]
+      break if bytes_needed <= module_handle_buffer.size
+    end
+
+    handles = module_handle_buffer.unpack("I*")
+    handles.select { |handle| handle > 0 }.map do |handle|
+      str = "\x00" * 256
+      modulefilename_length = getmodulefilename.call(handle, str, str.size)
+      File.expand_path str[0, modulefilename_length]
+    end
+  end
+
+  def self.detected_libraries
+    require "rbconfig"
+
+    exec_prefix = RbConfig::CONFIG["exec_prefix"]
+    libruby_so  = RbConfig::CONFIG["LIBRUBY_SO"]
+    loaded      = loaded_libraries
+
+    detected = loaded.select { |path|
+      normalized = path.downcase
+      path.include?(exec_prefix) &&
+        File.extname(normalized) == ".dll" &&
+        File.basename(normalized) != libruby_so
+    }
+
+    return detected
+  end
+end # Exerb::Utility2
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/version.rb

@@ -0,0 +1,13 @@
+
+#==============================================================================#
+# $Id: version.rb,v 1.44 2010/12/26 00:03:43 arton Exp $
+#==============================================================================#
+
+module Exerb
+
+  VERSION = '6.0.1'
+
+end # Exerb
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/win32/const/resource.rb

@@ -0,0 +1,51 @@
+
+#==============================================================================#
+# $Id: resource.rb,v 1.4 2005/04/17 15:56:25 yuya Exp $
+#==============================================================================#
+
+module Exerb
+  module Win32
+  end # Win32
+end # Exerb
+
+#==============================================================================#
+
+module Exerb::Win32::Const
+
+  IMAGE_RESOURCE_NAME_IS_STRING    = 0x80000000
+  IMAGE_RESOURCE_DATA_IS_DIRECTORY = 0x80000000
+
+  RT_CURSOR       = 1
+  RT_BITMAP       = 2
+  RT_ICON         = 3
+  RT_MENU         = 4
+  RT_DIALOG       = 5
+  RT_STRING       = 6
+  RT_FONTDIR      = 7
+  RT_FONT         = 8
+  RT_ACCELERATOR  = 9
+  RT_RCDATA       = 10
+  RT_MESSAGETABLE = 11
+  RT_GROUP_CURSOR = 12
+  RT_GROUP_ICON   = 14
+  RT_NAMETABLE    = 15
+  RT_VERSION      = 16
+  RT_DLGINCLUDE   = 17
+  RT_PLUGPLAY     = 19
+  RT_VXD          = 20
+  RT_ANICURSOR    = 21
+  RT_ANIICON      = 22
+  RT_HTML         = 23
+
+  VS_FFI_SIGNATURE     = 0xFEEF04BD
+  VS_FFI_STRUCVERSION  = 0x00010000
+  VS_FFI_FILEFLAGSMASK = 0x0000003F
+  VOS_NT_WINDOWS32     = 0x00040004
+  VFT_APP              = 0x00000001
+  VFT_DLL              = 0x00000002
+  VFT2_UNKNOWN         = 0x00000000
+
+end # Exerb::Win32::Const
+
+#==============================================================================#
+#==============================================================================#

data/lib/exerb/win32/icon_file.rb

@@ -0,0 +1,78 @@
+
+#==============================================================================#
+# $Id: icon_file.rb,v 1.5 2010/06/26 03:13:36 arton Exp $
+#==============================================================================#
+
+require 'exerb/win32/struct/icon_header'
+require 'exerb/win32/struct/icon_dir_entry'
+
+#==============================================================================#
+
+module Exerb
+  module Win32
+  end # Win32
+end # Exerb
+
+#==============================================================================#
+
+class Exerb::Win32::IconFile
+
+  def initialize
+    @entries = []
+  end
+
+  attr_accessor :entries
+
+  def self.read(input)
+    case input
+    when IO     then return self.new.read(input)
+    when String then return File.open(input, 'rb') { |file| self.read(file) }
+    else raise(ArgumentError, "input must be IO or String object")
+    end
+  end
+
+  def read(io)
+    base = io.pos
+    icon_header = Exerb::Win32::Struct::IconHeader.read(io)
+
+    @entries = (1..icon_header.count).collect {
+      Exerb::Win32::Struct::IconDirEntry.read(io)
+    }.collect { |icon_dir_entry|
+      io.seek(base + icon_dir_entry.image_offset)
+      icon_image_header = Exerb::Win32::Struct::IconImageHeader.read(io)
+      io.seek(icon_image_header.position)
+
+      entry = Exerb::Win32::IconFile::Entry.new
+      entry.width     = icon_dir_entry.width
+      entry.height    = icon_dir_entry.height
+      entry.bit_count = icon_image_header.bit_count
+      entry.value     = io.read(icon_dir_entry.bytes_in_res)
+      if entry.width == 0
+        entry.bit_count = icon_dir_entry.bit_count
+        entry.width = entry.height = 256
+      end
+      entry
+    }
+
+    return self
+  end
+
+end # Exerb::Win32::IconFile
+
+#==============================================================================#
+
+class Exerb::Win32::IconFile::Entry
+
+  def initialize
+    @width     = nil
+    @height    = nil
+    @bit_count = nil
+    @value     = nil
+  end
+
+  attr_accessor :width, :height, :bit_count, :value
+
+end # Exerb::Win32::IconFile::Entry
+
+#==============================================================================#
+#==============================================================================#