white_gold 0.0.1

data/lib/white_gold/library/theme/light.rb

@@ -0,0 +1,111 @@
+text_color! 0
+text_color_disabled! 111
+background_color! 208
+background_color_hover! 200
+background_color_disabled! 180
+selected_text_color! 0
+selected_text_color_hover! 0
+selected_background_color! 157, 185, 240
+selected_background_color_hover! 147, 175, 230
+border_color! 200
+borders! 1
+scrollbar_width! 13
+arrow_background_color! 220
+arrow_background_color_hover! 220
+arrow_background_color_disabled! 240
+arrow_color! 80
+arrow_color_hover! 40
+arrow_color_disabled! 60
+
+button! do
+  background_color_down! 180
+end
+
+child_window! do
+  background_color! 240
+  title_bar_color! 220
+  distance_to_side! 3
+  padding_between_buttons! 3
+  show_text_on_title_buttons! true
+  title_bar_height! 24
+end
+
+editbox! do
+  background_color! 220
+  background_color_hover! 220
+  background_color_disabled! 180
+  border_color_focused! 127, 155, 240
+  default_text_color! 100
+  caret_width! 1
+  caret_color! 0
+  selected_text_background_color! 157, 185, 240
+end
+
+text_area! do
+  background_color! 220
+  default_text_color! 100
+  caret_width! 2
+  caret_color! 150, 150, 240
+  selected_text_background_color! 157, 185, 240
+end
+
+chat_box! do
+  background_color! 240
+end
+
+combobox! do
+  background_color! 220
+  default_text_color! 80
+  arrow_background_color_hover! 200
+end
+
+listbox! do
+  background_color! 240
+  background_color_hover! 220
+end
+
+list_view! do
+  background_color! 240
+  header_background_color! 220
+end
+
+menu! do
+  selected_background_color! 180
+  text_color_disabled! 80
+  separator_color! 142
+  separator_side_padding! 2
+end
+
+progress_bar! do
+  borders! 1
+end
+
+radio_button! do
+  borders! 1
+  border_color_focused! 127, 155, 240
+  background_color_disabled! 180
+  text_distance_ratio! 0.3
+end
+
+scrollbar! do
+  track_color! 220
+  thumb_color! 200
+  thumb_color_hover! 190
+  arrow_background_color! 200
+  arrow_background_color_hover! 190
+end
+
+slider! do
+  track_color! 220
+  thumb_color! 200
+  thumb_color_hover! 190
+  borders! 0
+  thumb_within_track! true
+end
+
+tabs! do
+  background_color_hover! 200
+  background_color_disabled! 190, 190, 180
+  text_color_disabled! 80
+  distance_to_side! 8
+end

data/lib/white_gold/master.rb

@@ -0,0 +1,170 @@
+require_relative 'convention/boolean'
+require_relative 'path/kernel.path'
+require_relative 'path/numeric.path'
+require_relative 'path/object.path'
+require_relative 'path/string.path'
+require_relative 'tgui-abi'
+require_relative 'convention/page'
+
+class WhiteGold
+  include Tgui
+
+  def [](method_name)
+    method(method_name)
+  end
+
+  def fps=(fps)
+    @frame_delay = 1.0 / fps
+  end
+
+  def init init_page = :main_page, fps: nil, theme: nil
+    @window = Window.new
+    @gui = Gui.new window
+    @preserved_pages = {}
+    Theme.default = theme if theme
+    self.fps = fps if fps
+    @frame_delay = 0.015 if !@frame_delay
+    @jobs = []
+    @next_page_id = init_page
+    load_page init_page
+  end
+
+  def run init_page = :main_page, fps: nil, theme: nil, init: true
+    self.init init_page, fps: fps, theme: theme if init
+
+    next_frame_time = Time.now
+    while @gui.self_active?
+      @gui.self_poll_events
+      now = Time.now
+      if @current_page_id != @next_page_id
+        if @current_page_id
+          page = @preserved_pages[@current_page_id]
+          @gui.self_remove page
+          page.disconnect
+          @preserved_pages.delete(@current_page_id)
+        end
+        load_page @next_page_id
+      end
+      @jobs.filter!(&:audit)
+      sleep next_frame_time - now if next_frame_time > now
+      @gui.self_draw
+      next_frame_time += @frame_delay
+    end
+  end
+
+  def load_page page_id
+    @current_page_id = page_id
+    case page_id
+    when Symbol
+      page = @preserved_pages[page_id] = Page.new self
+      @gui.self_add page, "main_container"
+      @current_page = page
+      ExternObject.callback_storage = page.widget_callbacks
+      ExternObject.global_callback_storage = page.global_callbacks
+      ExternObject.data_storage = page.custom_data
+      send(page_id)
+    when Class
+      page = @preserved_pages[page_id] = page_id.new self
+      @gui.self_add page, "main_container"
+      @current_page = page
+      ExternObject.callback_storage = page.widget_callbacks
+      ExternObject.global_callback_storage = page.global_callbacks
+      ExternObject.data_storage = page.custom_data
+      page.build
+    when Proc
+      page = @preserved_pages[page_id] = Page.new self
+      @gui.self_add page, "main_container"
+      @current_page = page
+      ExternObject.callback_storage = page.widget_callbacks
+      ExternObject.global_callback_storage = page.global_callbacks
+      ExternObject.data_storage = page.custom_data
+      instance_exec &page_id
+    end
+  end
+
+  attr_accessor :next_page_id
+  attr :gui, :window
+
+  def page
+    @current_page
+  end
+
+  def go next_page_id
+    @next_page_id = next_page_id
+  end
+
+  class Job
+    NO_RESULT = Object.new
+
+    def initialize delay:, repeat:, run: true, &b
+      @delay = delay
+      @repeat = repeat
+      @job = b
+      @result = NO_RESULT
+      self.run if run
+    end
+
+    def run
+      @thread = Thread.new do
+        sleep(@delay / 1000.0) if @delay
+        @result = @job.(self)
+      end
+    end
+
+    def on_done &b
+      @on_done = b
+      b.(@result) if @thread && !@thread.alive?
+    end
+
+    def audit
+      if @thread
+        if @thread.alive?
+          return true
+        else
+          @on_done.(@result) if @on_done
+          if @repeat
+            run
+            return true
+          else
+            return false
+          end
+        end
+      else 
+        return true
+      end
+    end
+
+    def finish result = NO_RESULT
+      @repeat = false
+      @result = result if result != NO_RESULT
+    end
+  end
+
+  def job delay: nil, repeat: false, &b
+    job = Job.new delay:, repeat:, &b
+    @jobs << job
+    job
+  end
+
+  def timer delay_ = nil, delay: nil, repeat: false, &b
+    job delay: delay || delay_, repeat: do
+    end.on_done &b
+  end
+
+  def respond_to? name
+    super || @current_page.respond_to?(name)
+  end
+
+  def method_missing name, *a, **na, &b
+    if @current_page.respond_to? name
+      @current_page.send(name, *a, **na, &b)
+    elsif @gui.respond_to? name
+      @gui.send(name, *a, **na, &b)
+    elsif @window.respond_to? name
+      @window.send(name, *a, **na, &b)
+    else
+      no_method_error = "method missing in Page/Gui/Window"
+      raise no_method_error
+    end
+  end
+end

data/lib/white_gold/path/kernel.path.rb

@@ -0,0 +1,3 @@
+module Kernel
+  VOID = Object.new
+end

data/lib/white_gold/path/numeric.path.rb

@@ -0,0 +1,9 @@
+class Numeric
+  def pc
+    "#{self}%"
+  end
+
+  def px
+    "#{self}"
+  end
+end

data/lib/white_gold/path/object.path.rb

@@ -0,0 +1,22 @@
+require_relative '../convention/proc_method_factory'
+
+class Object
+  def behalf client, &todo
+    client.instance_exec self, client, &todo
+  end
+
+  def proc &block
+    block_given? ? Kernel.proc(&block) : ProcMethodFactory.new(self)
+  end
+
+  class << self
+    def to_abi object
+      object
+    end
+
+    def to_api data
+      data
+    end
+  end
+
+end

data/lib/white_gold/path/string.path.rb

@@ -0,0 +1,5 @@
+class String
+  def pascalcase
+    split("_").map(&:capitalize).join
+  end
+end

data/lib/white_gold/tgui-abi.rb

@@ -0,0 +1,255 @@
+require 'fiddle/import'
+require_relative 'tgui-config'
+require_relative 'abi/extern_object'
+require_relative 'abi/enum'
+
+module Tgui
+  module Abi
+    extend Fiddle::Importer
+    
+    begin
+      Config::LIBS.each{ dlload _1 }
+    rescue LoadError
+      raise LoadError, 'Could not find shared library'
+    end
+
+    def self.call_arg_map! a
+      a.map! do
+        case _1
+        when ExternObject then _1.pointer
+        when true then 1
+        when false then 0
+        else _1
+        end
+      end
+    end
+
+    Vector2f = struct [
+      'float x',
+      'float y'
+    ]
+
+    Vector2u = struct [
+      'int x',
+      'int y'
+    ]
+
+    UIntRect = struct [
+      'int left',
+      'int top',
+      'int width',
+      'int height'
+    ]
+  end
+
+  Vector2f = Abi::Vector2f
+  Vector2u = Abi::Vector2u
+  UIntRect = Abi::UIntRect
+end
+
+class ExternObject
+   
+  abi_bit_enum "TextStyles", :regular, :bold, :italic, :underlined, :strike_through
+
+  abi_enum "CursorType", :arrow, :text, :hand, :size_left, :size_right,
+    :size_top, :size_bottom, :size_top_left, :size_bottom_right,
+    :size_bottom_left, :size_top_right, :size_horizontal, :size_vertical,
+    :crosshair, :help, :not_allowed
+
+end
+
+def each_file_ancestor base, dir, &b
+  base_dir = "#{base}/#{dir}"
+  Dir.each_child base_dir do |filename|
+    if File.directory? "#{base_dir}/#{filename}"
+      each_file_ancestor base, "#{dir}/#{filename}", &b
+    else
+      b.("#{dir}/#{filename}")
+    end
+  end
+end
+
+each_file_ancestor File.dirname(__FILE__), "dsl" do |dsl_file|
+  require_relative dsl_file
+end
+
+# ABI loader should be required after dsl directory files because of class hierarchy
+require_relative 'generated/tgui-abi-loader.gf'
+require_relative 'convention/container_widgets'
+
+class ExternObject
+  class << self
+    def finalizer pointer
+      Tgui::Util.free(pointer)
+    end
+  end
+
+  abi_packer Object do |o|
+    o = o.first if o.is_a? Array
+    o
+  end
+
+  abi_packer String do |o|
+    o = o.first if o.is_a? Array
+    o.to_s
+  end
+
+  abi_packer Integer do |o|
+    o = o.first if o.is_a? Array
+    o.to_i
+  end
+
+  abi_packer Float do |o|
+    o = o.first if o.is_a? Array
+    o.to_f
+  end
+
+  abi_packer Boolean do |o|
+    o = o.first if o.is_a? Array
+    o ? 1 : 0
+  end
+
+  abi_packer "SizeLayout" do |*arg|
+    case arg.size
+    when 1
+      a = arg.first
+      x = y = a
+    when 2
+      x, y = *arg
+    else raise "Unsupported argument #{arg}"
+    end
+    [abi_pack_single_size_layout(x), abi_pack_single_size_layout(y)]
+  end
+
+  abi_packer "SingleSizeLayout" do |o|
+    o = o.first if o.is_a? Array
+    case o
+    when String then o
+    when Numeric then Unit.nominate o
+    when :full then "100%"
+    when :half then "50%"
+    when :third then "parent.innersize  / 3"
+    when :quarter then "25%"
+    else raise "Invalid value `#{o}` given"
+    end
+  end
+
+  abi_packer "PositionLayout" do |*arg|
+    case arg.size
+    when 1
+      a = arg.first
+      x = y = a
+    when 2
+      x, y = *arg
+    else raise "Unsupported argument #{arg}"
+    end
+    [abi_pack_single_position_layout(x), abi_pack_single_position_layout(y)]
+  end
+
+  abi_packer "SinglePositionLayout" do |o|
+    o = o.first if o.is_a? Array
+    case o
+    when String then o
+    when Rational then "(parent.innersize - size) * #{o.numerator} / #{o.denominator}"
+    when Numeric then Unit.nominate o
+    when :center then "(parent.innersize - size) / 2"
+    when :begin then "0"
+    when :end then "parent.innersize - size / 2"
+    else raise "Invalid value `#{o}` given"
+    end
+  end
+
+  abi_packer Tgui::Abi::Vector2f do |o|
+    case o
+    when Array
+      raise "Invalid array size excepted: #{2}, given: #{o.size}" if o.size != 2
+      return o.map{ abi_pack_float _1 }
+    else
+      raise "Unable to make Vector2f from #{o}"
+    end
+  end
+
+  abi_packer Tgui::Abi::Vector2u do |o|
+    case o
+    when Array
+      raise "Invalid array size excepted: #{2}, given: #{o.size}" if o.size != 2
+      return o.map{ abi_pack_integer _1 }
+    else
+      raise "Unable to make Vector2u from #{o}"
+    end
+  end
+
+  abi_packer Tgui::Abi::UIntRect do |o|
+    case o
+    when Array
+      raise "Invalid array size excepted: #{4}, given: #{o.size}" if o.size != 4
+      return o.map{ abi_pack_integer _1 }
+    else
+      raise "Unable to make UIntRect from #{o}"
+    end
+  end
+
+  abi_packer Tgui::Color
+  abi_packer Tgui::Outline
+  abi_packer Tgui::Font
+  abi_packer Tgui::Texture
+
+  abi_unpacker String do |o|
+    a = []
+    (0..).each do |i|
+      i *= 4
+      ch = (o[i]) | (o[i + 1] << 8) | (o[i + 2] << 16) | (o[i + 3] << 24)
+      break if ch == 0
+      a << ch
+    end
+    raise "deleted string!" if a[0] == 572653601
+    a.pack("N*").encode("UTF-8", "UTF-32BE")
+  end
+
+  abi_unpacker Integer do |o|
+    o
+  end
+
+  abi_unpacker Float do |o|
+    o
+  end
+
+  abi_unpacker Boolean do |o|
+    o.odd?
+  end
+
+  abi_unpacker "SizeLayout" do |o|
+    [o.x, o.y]
+  end
+
+  abi_unpacker "PositionLayout" do |o|
+    [o.x, o.y]
+  end
+
+  abi_unpacker Tgui::Vector2f do |o|
+    v = Tgui::Vector2f.new o
+    r = [v.x, v.y]
+    Util.free(o)
+    r
+  end
+
+  abi_unpacker Tgui::Vector2u do |o|
+    v = Tgui::Vector2u.new o
+    r = [v.x, v.y]
+    Util.free(o)
+    r
+  end
+
+  abi_unpacker Tgui::UIntRect do |o|
+    v = Tgui::UIntRect.new o
+    r = [v.left, v.top, v.width, v.height]
+    Util.free(o)
+    r
+  end
+
+  abi_unpacker Tgui::Color
+  abi_unpacker Tgui::Outline
+  abi_unpacker Tgui::Font
+  abi_unpacker Tgui::Texture
+
+end

data/lib/white_gold/tgui-config.rb

@@ -0,0 +1,20 @@
+module Tgui
+  module Config
+    if RUBY_PLATFORM =~ /cygwin|mswin|mingw|bccwin|wince|emx/
+      LIBS = [
+        File.expand_path('../../ext/dll/openal32.dll', __dir__),
+        File.expand_path('../../ext/dll/sfml-system-2.dll', __dir__),
+        File.expand_path('../../ext/dll/sfml-window-2.dll', __dir__),
+        File.expand_path('../../ext/dll/sfml-graphics-2.dll', __dir__),
+        File.expand_path('../../ext/dll/tgui.dll', __dir__),
+      ].freeze
+    else
+      LIBS = [
+        File.expand_path('../../ext/so/libsfml-system.so', __dir__),
+        File.expand_path('../../ext/so/libsfml-window.so', __dir__),
+        File.expand_path('../../ext/so/libsfml-graphics.so', __dir__),
+        File.expand_path('../../ext/so/libtgui.so', __dir__),
+      ].freeze
+    end
+  end
+end

data/lib/white_gold.rb

@@ -0,0 +1,47 @@
+require_relative 'white_gold/master'
+include Tgui
+
+@wg = WhiteGold.new
+
+@wg.methods.difference(Object.instance_methods, [:respond_to?, :method_missing, :go, :[], :page]).each do |m|
+  define_method m do |*a, **na, &b|
+    @wg.send(m, *a, **na, &b)
+  end
+end
+
+class << self  
+
+  def respond_to? name
+    super || (name.end_with?("!") && @wg.respond_to?(name))
+  end
+
+  def method_missing name, *a, **na, &b
+    if name.end_with?("!")
+      @wg.send(name, *a, **na, &b)
+    else super
+    end
+  end
+
+  def go page
+    method(page).unbind.bind(@wg) if Symbol === page && !@wg.respond_to?(page)
+    @wg.go page
+  end
+  
+  def page
+    @wg.page
+  end
+
+  def def! name, &b
+    @wg.page.class.def! name, &b
+  end
+end
+
+@wg.init Page
+if $0 != 'irb'
+  at_exit do
+    go :main_page
+  rescue NameError
+  ensure
+    @wg.run init: false
+  end
+end