exerb/exerb-win32/exerb-win32.rb

#! /usr/bin/ruby -Ks

#==============================================================================#
# $Id: exerb-win32.rb,v 1.10 2003/02/12 07:01:50 yuya Exp $
#==============================================================================#

require 'vr/vruby'
require "vr/vrcontrol"
require 'vr/vrdialog'
require 'vr/contrib/vrwincomponent'
require 'vr/contrib/msgboxconst'
require 'exerb/exerb'
require 'win32'
require 'm17n'
require 'version'

#==============================================================================#

class MainForm < VRForm

  # including modules.
  include VRMenuUseable

  SELF_PATH = (defined?(Exerb) && Exerb.methods.include?("runtime?") ? Exerb.filepath : $0)
  BASE_DIR  = File.dirname(SELF_PATH.gsub(/\\/, '/'))

  def construct
    # initializeing properties.
    self.caption     = "Exerb for Windows"
    self.sizebox     = false
    self.maximizebox = false

    # centering the window.
    w, h = 450, 190
    self.move(@screen.w / 2 - w / 2, @screen.h / 2 - h / 2, w, h)

    # loading icon resouce. and setting window class icon.
    if defined?(Exerb) && Exerb.methods.include?("runtime?")
      Win32::SetClassLongA.call(self.hWnd, Win32::GCL_HICON, Exerb.loadicon(102))
    end

    # creating menu items.
    menu = newMenu.set(
      [
        [
          :menu_file._,
          [
            [:menu_file_exit._, "menu_file_exit"],
          ]
        ],
        [
          :menu_help._,
          [
            [:menu_help_about._, "menu_help_about"],
          ]
        ],
      ]
    )
    self.setMenu(menu)

    # creating controls.
    ctrls = []
    ctrls << self.addControl(VRStatic,   "lab_core",     :lab_corefile._,  10, 10,  90,  20)
    ctrls << self.addControl(VRCombobox, "cmb_core",     "",              100, 10, 180, 120)
    ctrls << self.addControl(VRStatic,   "lab_rbcfile",  :lab_rbcfile._,   10, 35,  90,  20)
    ctrls << self.addControl(VREdit,     "txt_rbcfile",  "",              100, 35, 310,  20)
    ctrls << self.addControl(VRButton,   "btn_rbcfile",  "...",           410, 35,  20,  20)
    ctrls << self.addControl(VRStatic,   "lab_exefile",  :lab_exefile._,   10, 60,  90,  20)
    ctrls << self.addControl(VREdit,     "txt_exefile",  "",              100, 60, 310,  20)
    ctrls << self.addControl(VRButton,   "btn_exefile",  "...",           410, 60,  20,  20)
    ctrls << self.addControl(VRStatic,   "lab_options",  :lab_option._,    10, 85,  90,  20)
    ctrls << self.addControl(VRCheckbox, "chk_compress", :lab_compress._, 100, 85, 180,  20)

    ctrls << self.addControl(VRStatic,   "lab_status", "",            10, 120, 260, 20, WStyle::SS_SUNKEN | WStyle::SS_CENTERIMAGE)
    ctrls << self.addControl(VRButton,   "btn_create", :btn_build._, 290, 120, 140, 20)

    ctrls << self.addControl(VRStatic,   "line1", "", 0,   0, 450, 0, WStyle::SS_ETCHEDHORZ)
    ctrls << self.addControl(VRStatic,   "line2", "", 0, 110, 450, 0, WStyle::SS_ETCHEDHORZ)

    # setting font to controls.
    font = @screen.factory.newfont("Terminal", 14)
    ctrls.each { |ctrl| ctrl.setFont(font) }
  end

  def self_created
    # finding core files. and add to the combobox.
    Dir.glob(File.join(BASE_DIR, "*.rbx")) { |filename|
      @cmb_core.addString(File.basename(filename))
    }
    @cmb_core.select(0)
  end

  def menu_file_exit_clicked
    self.close
  end

  def menu_help_about_clicked
    VRLocalScreen.openModalDialog(self, nil, AboutDialog)
  end

  def btn_rbcfile_clicked
    filename = SWin::CommonDialog.openFilename(self, [[:filter_rbc._, "*.rbc"],[:filter_all._, "*.*"]], WConst::OFN_HIDEREADONLY | WConst::OFN_FILEMUSTEXIST, nil, ".rbc")
    if filename
      @txt_rbcfile.text = filename
      @txt_exefile.text = filename.sub(/(\.rbc$|$)/, '.exe')
    end
  end

  def btn_exefile_clicked
    filename = SWin::CommonDialog.saveFilename(self, [[:filter_exe._, "*.exe"],[:filter_all._, "*.*"]], WConst::OFN_OVERWRITEPROMPT | WConst::OFN_PATHMUSTEXIST, nil, ".exe")
    if filename
      @txt_exefile.text = filename
    end
  end

  def btn_create_clicked
    @btn_create.enabled = false
    @lab_status.caption = :state_preparing._

    if @cmb_core.selectedIndex == -1 || @cmb_core.getTextOf(@cmb_core.selectedIndex).empty?
      msgbox_err(:msg_core_empty._)
      @cmb_core.focus
      return
    end

    corefile = @cmb_core.getTextOf(@cmb_core.selectedIndex)
    rbcfile  = @txt_rbcfile.text
    exefile  = @txt_exefile.text
    compress = @chk_compress.checked?

    if rbcfile.empty?
      msgbox_err(:msg_rbc_empty._)
      @txt_rbcfile.focus
      return
    end

    if exefile.empty?
      msgbox_err(:msg_exe_empty._)
      @txt_exefile.focus
      return
    end

    corepath = File.join(BASE_DIR, corefile)

    begin
      @lab_status.caption = :state_read_rbc._;   rbc     = Exerb::RecipeFile.new(rbcfile)
      @lab_status.caption = :state_read_arc._;   arc     = rbc.archive
      @lab_status.caption = :state_build_arc._;  arcbin  = Exerb::Binary::Archive.new(arc.pack, compress)
      @lab_status.caption = :state_read_core._;  corebin = Exerb::Binary::Core.new_from_file(corepath)
      @lab_status.caption = :state_build_exe._;  exebin  = Exerb::Binary::Executable.new(arcbin, corebin)
      @lab_status.caption = :state_verify_exe._; exebin.selfcheck

      if File.exist?(exefile)
        if msgbox(format(:msg_overwrite._, exefile), WConst::MB_ICONQUESTION | WConst::MB_YESNO) == 7
          return
        end
      end

      @lab_status.caption = :state_write_exe._
      File.open(exefile, 'wb') { |file|
        exebin.output(file)
      }

      msg = format(:msg_created._, exefile, corefile, rbcfile, exefile, File.size(exefile).to_s, (compress ? :str_enable._ : :str_disable._))
      msgbox_info(msg)
    rescue ScriptError, StandardError => e
      msgbox_err(format(:msg_failed._, exefile, e.class.name, e.message))
    end
  ensure
    @btn_create.enabled = true
    @lab_status.caption = ""
  end

  def msgbox(message, flag)
    messageBox(message, "Exerb", flag)
  end

  def msgbox_err(message)
    msgbox(message, WConst::MB_ICONERROR)
  end

  def msgbox_info(message)
    msgbox(message, WConst::MB_ICONINFORMATION)
  end

end

#==============================================================================#

class AboutDialog < VRModalDialog

  def construct
    self.caption = :title_about._

    w, h = 405, 125
    self.move(@screen.w / 2 - w / 2, @screen.h / 2 - h / 2, w, h)

    ctrls = []
    ctrls << self.addControl(VRStatic, "rect", "", 10, 10, 380, 80, WStyle::SS_SUNKEN)
    ctrls << self.addControl(VRStatic, "lab1", "Exerb for Windows", 20, 20, 365, 20)
    ctrls << self.addControl(VRStatic, "lab2", "Version #{Exerb32::VERSION}", 30, 40, 355, 20)
    ctrls << self.addControl(VRStatic, "lab3", Exerb32::COPYRIGHT, 30, 60, 355, 20)

    font = @screen.factory.newfont("Terminal", 14)
    ctrls.each { |ctrl| ctrl.setFont(font) }
  end

end

#==============================================================================#

VRLocalScreen.showForm(MainForm)
VRLocalScreen.messageloop

#==============================================================================#
#==============================================================================#