rb_sdl2 0.1.0 → 0.2.0

data/lib/rb_sdl2/cursor/cursor_class.rb

@@ -1,24 +0,0 @@
-module RbSDL2
-  module Cursor
-    class CursorClass
-      def initialize(ptr)
-        @ptr = ptr
-      end
-
-      def current! = Cursor.current = self
-
-      def current? = Cursor.current?(self)
-
-      def hide = Cursor.hide
-
-      def show
-        current!
-        Cursor.show
-      end
-
-      def shown? = Cursor.shown? && current?
-
-      def to_ptr = @ptr
-    end
-  end
-end

data/lib/rb_sdl2/cursor/cursor_pointer.rb

@@ -1,12 +0,0 @@
-module RbSDL2
-  module Cursor
-    class CursorPointer < ::FFI::AutoPointer
-      class << self
-        # カーソルポインターはいつでも開放してよい。
-        # SDL はカレントカーソルが開放されたときはデフォルトカーソルをカレントカーソルに設定する。
-        # デフォルトカーソルは SDL_FreeCursorを呼び出しても開放されない。
-        def release(ptr) = ::SDL2.SDL_FreeCursor(ptr)
-      end
-    end
-  end
-end

data/lib/rb_sdl2/cursor/default_cursor.rb

@@ -1,18 +0,0 @@
-module RbSDL2
-  module Cursor
-    require_relative 'cursor_class'
-
-    class DefaultCursor < CursorClass
-      class << self
-        def new
-          ptr = ::SDL2.SDL_GetDefaultCursor
-          raise RbSDL2Error if ptr.null?
-          super(ptr)
-        end
-      end
-
-      require 'singleton'
-      include Singleton
-    end
-  end
-end

data/lib/rb_sdl2/cursor/system_cursor.rb

@@ -1,45 +0,0 @@
-module RbSDL2
-  module Cursor
-    require_relative 'cursor_class'
-
-    class SystemCursor < CursorClass
-      require_relative 'cursor_pointer'
-
-      @cursors = Array.new(::SDL2::SDL_NUM_SYSTEM_CURSORS)
-
-      class << self
-        private def new(id)
-          return @cursors[id] if @cursors[id]
-
-          ptr = CursorPointer.new(::SDL2.SDL_CreateSystemCursor(id))
-          raise RbSDL2Error if ptr.null?
-          @cursors[id] = super(ptr)
-        end
-
-        def arrow_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_ARROW)
-
-        def crosshair_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_CROSSHAIR)
-
-        def hand_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_HAND)
-
-        def i_beam_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_IBEAM)
-
-        def no_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_NO)
-
-        def size_all_cursor = new(SDL_SYSTEM_CURSOR_SIZEALL)
-
-        def size_ne_sw_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_SIZENESW)
-
-        def size_ns_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_SIZENS)
-
-        def size_nw_se_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_SIZENWSE)
-
-        def size_we_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_SIZEWE)
-
-        def wait_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_WAIT)
-
-        def wait_arrow_cursor = new(::SDL2::SDL_SYSTEM_CURSOR_WAITARROW)
-      end
-    end
-  end
-end

data/lib/rb_sdl2/event.rb

@@ -1,161 +0,0 @@
-module RbSDL2
-  class Event
-    class EventPointer < ::FFI::AutoPointer
-      class << self
-        def malloc
-          ptr = new(::SDL2.SDL_calloc(1, ::SDL2::SDL_Event.size))
-          raise NoMemoryError if ptr.null?
-          ptr
-        end
-
-        def release(ptr)
-          # メンバーのポインターを開放する。
-          Event.to_ptr(ptr).clear
-          ::SDL2.SDL_free(ptr)
-        end
-      end
-    end
-
-    require 'forwardable'
-    extend SingleForwardable
-
-    require_relative 'event/event_filter'
-    def_single_delegators "Event::EventFilter",
-                          *%i(add_watch_callback filter_callback_set filter_callback_defined?
-                          remove_watch_callback)
-
-    require_relative 'event/event_queue'
-    def_single_delegators "Event::EventQueue",
-                          *%i(clear count deq each empty? enq get length peep poll pump push push!
-                          quit? size reject! wait)
-
-    require_relative 'event/event_type'
-    def_single_delegators "Event::EventQueue", *%i(define_user_event disable enable ignore?)
-
-    class << self
-      def new(type: 0, **members)
-        ptr = EventPointer.malloc
-        num = Numeric === type ? type : EventType.to_num(type)
-        ptr.write_uint32(num)
-        obj = super(ptr)
-        if obj.typed?
-          members.each_pair { |sym, val| obj[sym] = val }
-        end
-        obj
-      end
-
-      def to_ptr(ptr)
-        obj = allocate
-        obj.__send__(:initialize, ptr)
-        obj
-      end
-    end
-
-    # UserEvent の data1, data2 メンバー、SysWMEvent の msg メンバーはポインターである。
-    # ポインターとしての読み書きの対応はしている。しかしポインターが指し示すメモリーの管理は行わない。
-    def initialize(ptr)
-      @ptr = ptr
-    end
-
-    def [](sym)
-      raise ArgumentError unless member?(sym)
-
-      case sym
-      when :data
-        member[:data].to_a
-      when :file
-        member[:file].then { |ptr| ptr.null? ? nil : ptr.read_string }
-      when :keysym
-        member[:keysym].then { |st| {scancode: st[:scancode], sym: st[:sym], mod: st[:mod]} }
-      when :text
-        member[:text].to_s
-      else
-        member[sym]
-      end
-    end
-
-    # DropEvent の file メンバーのポインターの管理は行われる。
-    # UserEvent の data1, data2 メンバーと SysWMEvent の msg メンバーはポインターである。
-    # これらのポインターの管理は行ない。アプリケーション側で実装を行うこと。
-    def []=(sym, val)
-      raise FrozenError if frozen?
-      raise ArgumentError unless member?(sym)
-
-      case sym
-      when :data
-        val.each.with_index { |v, i| member[:data][i] = v }
-      when :file
-        if drop_file? || drop_text?
-          _ptr = member[:file]
-
-          member[:file] = if val.nil?
-                            nil
-                          else
-                            c_str = "#{val}\x00"
-                            ptr = ::SDL2.SDL_malloc(c_str.size)
-                            raise NoMemoryError if ptr.null?
-                            ptr.write_bytes(c_str)
-                          end
-
-          ::SDL2.SDL_free(_ptr)
-        else
-          raise ArgumentError
-        end
-      when :keysym
-        val.each { |k, v| member[:keysym][k] = v }
-      when :msg
-        if val.nil? || val.respond_to?(:null?) && val.null? || val.respond_to?(:zero?) && val.zero?
-          raise ArgumentError
-        end
-        member[:msg] = val
-      when :type
-        raise ArgumentError
-      else
-        member[sym] = val
-      end
-    end
-
-    def clear
-      raise FrozenError if frozen?
-      if drop_file? || drop_text?
-        self[:file] = nil
-      end
-      member.clear
-      @st = nil
-      self
-    end
-
-    # deep copy を行う。
-    # これは @ptr が イベントキューの一部（SDL の管理領域）を指している場合があるためである。
-    def initialize_copy(obj)
-      super
-      @ptr = EventPointer.malloc.write_bytes(obj.to_ptr.read_bytes(::SDL2::SDL_Event.size))
-      if drop_file? || drop_text?
-        self[:file] = obj[:file]
-      end
-    end
-
-    def inspect
-      "#<#{self.class.name} ptr=#{@ptr.inspect} name=#{name.inspect} #{to_h}>"
-    end
-
-    protected def member = @st ||= ::SDL2::SDL_Event.new(@ptr)[EventType.to_type(type)]
-
-    def member?(name) = members.include?(name)
-
-    def members = member.members.grep_v(/\Apadding/)
-
-    def name = EventType.to_name(type)
-    alias to_s name
-
-    def to_h = members.map { |sym| [sym, self[sym]] }.to_h
-
-    def to_ptr = @ptr
-
-    def type = to_ptr.read_uint32
-
-    include EventType
-
-    def typed? = type != 0
-  end
-end

data/lib/rb_sdl2/keyboard/key_mod.rb

@@ -1,37 +0,0 @@
-module RbSDL2
-  module Keyboard
-    module KeyMod
-      def mod_key? = ::SDL2::KMOD_NONE != mod
-
-      def l_shift_key? = ::SDL2::KMOD_LSHIFT & mod != 0
-
-      def r_shift_key? = ::SDL2::KMOD_RSHIFT & mod != 0
-
-      def l_ctrl_key? = ::SDL2::KMOD_LCTRL & mod != 0
-
-      def r_ctrl_key? = ::SDL2::KMOD_RCTRL & mod != 0
-
-      def l_alt_key? = ::SDL2::KMOD_LALT & mod != 0
-
-      def r_alt_key? = ::SDL2::KMOD_RALT & mod != 0
-
-      def l_gui_key? = ::SDL2::KMOD_LGUI & mod != 0
-
-      def r_gui_key? = ::SDL2::KMOD_RGUI & mod != 0
-
-      def alt_key? = ::SDL2::KMOD_ALT & mod != 0
-
-      def caps_key? = ::SDL2::KMOD_CAPS & mod != 0
-
-      def ctrl_key? = ::SDL2::KMOD_CTRL & mod != 0
-
-      def gui_key? = ::SDL2::KMOD_GUI & mod != 0
-
-      def mode_key? = ::SDL2::KMOD_MODE & mod != 0
-
-      def num_key? = ::SDL2::KMOD_NUM & mod != 0
-
-      def shift_key? = ::SDL2::KMOD_SHIFT & mod != 0
-    end
-  end
-end

data/lib/rb_sdl2/keyboard/keyboard_state.rb

@@ -1,34 +0,0 @@
-module RbSDL2
-  class KeyboardState
-    require 'singleton'
-    include Singleton
-
-    def initialize
-      num_keys = ::FFI::MemoryPointer.new(:int)
-      # SDL_GetKeyboardState が戻すポインターは SDL がロードされた時点でメモリー確保している。
-      # 戻されたポインターは不変と考えてよい。
-      # SDL_GetKeyboardState は SDL_init より前に呼ぶことができる。
-      # SDL_GetKeyboardState は引数に NULL ポインターを与えた場合にエラーを戻す。
-      @ptr = ::SDL2.SDL_GetKeyboardState(num_keys)
-      raise RbSDL2Error if @ptr.null?
-      @size = num_keys.read_int
-    end
-
-    # nth のキーが押されている場合、nth を戻す。
-    # nth のキーが押されていない、nth が範囲外の場合は nil を戻す。
-    # 真偽値を戻すようにしなかったのは、このメソッドを応用したコードを書く際に index 情報を不要にするためである。
-    # 戻り値が nil | obj なのは Numeric#nonzero? を参考にした。（この戻り値は Ruby において真偽値と同等である）
-    def [](nth)
-      if 0 <= nth && nth < size && @ptr[nth].read_uint8 == ::SDL2::SDL_PRESSED
-        nth
-      end
-    end
-
-    def each = block_given? ? size.times { |i| yield(self[i]) } : to_enum
-
-    attr_reader :size
-    alias length size
-
-    def to_str = @ptr.read_bytes(size)
-  end
-end

data/lib/rb_sdl2/keyboard.rb

@@ -1,50 +0,0 @@
-module RbSDL2
-  module Keyboard
-    class << self
-      def keycode_to_name(keycode) = ::SDL2.SDL_GetKeyName(keycode).read_string
-
-      # 対応するコードが存在しない場合 0 を戻す。戻り値 は nonzero? メソッドをチェーンすることができる。
-      # これは KeyboardState#[] での利用を考慮して設計した。
-      def keycode_to_scancode(keycode) = ::SDL2.SDL_GetScancodeFromKey(keycode)
-
-      def name_to_keycode(name) = ::SDL2.SDL_GetKeyFromName(name)
-
-      def name_to_scancode(name) = ::SDL2.SDL_GetScancodeFromName(name)
-
-      def scancode_to_keycode(scancode) = ::SDL2.SDL_GetKeyFromScancode(scancode)
-
-      def scancode_to_name(scancode) = ::SDL2.SDL_GetScancodeName(scancode).read_string
-    end
-
-    require 'forwardable'
-    extend SingleForwardable
-    require_relative 'keyboard/keyboard_state'
-    def_single_delegators 'KeyboardState.instance', *%i([] each to_str)
-
-    class << self
-      # いずれかのキーが押されている場合に true を戻す。つまり *any key* が押されたということ。
-      def any_key? = each.any?
-
-      # 引数に与えたキー名のキーが押されている場合に対応するスキャンコードを戻す。
-      # 押されていない場合は nil を戻す。
-      # 不正な名前の場合でも例外を戻さない、その場合 0 または nil を戻す。
-      # キー名は SDL が定義したものである。
-      def key?(name) = self[name_to_scancode(name)]
-
-      # 現在押されているキーの名前を配列で戻す。
-      def names = scancodes.map { |num| scancode_to_name(num) }
-
-      # 現在押されているキーのスキャンコードを配列で戻す。
-      def scancodes = each.to_a.compact!
-
-      def mod = ::SDL2.SDL_GetModState
-
-      require_relative 'keyboard/key_mod'
-      include KeyMod
-
-      def mod=(state)
-        ::SDL2::SDL_SetModState(state)
-      end
-    end
-  end
-end

data/lib/rb_sdl2/mouse/window_mouse.rb

@@ -1,17 +0,0 @@
-module RbSDL2
-  module Mouse
-    require_relative 'mouse_class'
-
-    class WindowMouse < MouseClass
-      def position=(*x_y)
-        ptr = ::SDL2.SDL_GetMouseFocus
-        ::SDL2.SDL_WarpMouseInWindow(ptr, *x_y) unless ptr.null?
-      end
-
-      def update
-        self.button = ::SDL2.SDL_GetMouseState(x_ptr, y_ptr)
-        self
-      end
-    end
-  end
-end

data/lib/rb_sdl2/mouse.rb

@@ -1,74 +0,0 @@
-module RbSDL2
-  module Mouse
-    class << self
-      def capture=(bool)
-        err = ::SDL2.SDL_CaptureMouse(bool ? ::SDL2::SDL_TRUE : ::SDL2::SDL_FALSE)
-        raise RbSDL2Error if err < 0
-      end
-
-      def relative=(bool)
-        err = ::SDL2.SDL_SetRelativeMouseMode(bool ? ::SDL2::SDL_TRUE : ::SDL2::SDL_FALSE)
-        raise RbSDL2Error if err < 0
-      end
-
-      def relative? = ::SDL2.SDL_GetRelativeMouseMode == ::SDL2::SDL_TRUE
-    end
-
-    require 'forwardable'
-    extend SingleForwardable
-
-    class << self
-      require_relative 'mouse/global_mouse'
-
-      def global_mouse = GlobalMouse.instance
-    end
-
-    def_single_delegator "global_mouse.update", :position, :global_position
-    def_single_delegator "global_mouse.update", :position=, :global_position=
-    def_single_delegator "global_mouse.update", :x, :global_x
-    def_single_delegator "global_mouse.update", :y, :global_y
-
-    class << self
-      require_relative 'mouse/mouse_wheel'
-
-      def mouse_wheel = MouseWheel.instance
-    end
-
-    def_single_delegator "mouse_wheel.update", :position, :wheel_position
-    def_single_delegator "Mouse::MouseWheel", :wheel=
-    def_single_delegator "mouse_wheel.update", :x, :wheel_x
-    def_single_delegator "mouse_wheel.update", :y, :wheel_y
-
-    class << self
-      require_relative 'mouse/relative_mouse'
-
-      def relative_mouse = RelativeMouse.instance
-
-      def relative_position=(rx_ry)
-        rx, ry = rx_ry
-        px, py = position
-        self.position = [px + rx, py + ry]
-      end
-    end
-
-    def_single_delegator "relative_mouse.update", :position, :relative_position
-    def_single_delegator "relative_mouse.update", :x, :relative_x
-    def_single_delegator "relative_mouse.update", :y, :relative_y
-
-    class << self
-      require_relative 'mouse/window_mouse'
-
-      def window_mouse = WindowMouse.instance
-    end
-
-    def_single_delegator "window_mouse.update", :button
-
-    require_relative 'mouse/mouse_button'
-    extend MouseButton
-
-    def_single_delegator "window_mouse.update", :position
-    def_single_delegator "window_mouse.update", :position=
-    def_single_delegator "window_mouse.update", :x
-    def_single_delegator "window_mouse.update", :y
-  end
-end

data/lib/rb_sdl2/rw_ops/rw_operator.rb

@@ -1,102 +0,0 @@
-module RbSDL2
-  class RWOperator
-    # コールバック関数からの例外は全てコールバック中で拾いエラーを表す戻り値に変える。
-    # SDL がコールバック関数を呼び出すときに与える引数はチェックされていないことを前提とするべきである。
-    # SDL が期待するコールバック関数の戻り値は成功か失敗（エラー）かであり、
-    # read, write などの戻り値を考慮した動作を行わない。
-    # コールバック関数を実装する際には Ruby アプリケーションが困らない設計を行えばよい。
-
-    class CloseCallback < ::FFI::Function
-      def initialize(obj)
-        # int (* close) (struct SDL_RWops * context);
-        super(:int, [:pointer]) do |_context|
-          # close の際に _context ポインターを開放してはならない。
-          (obj.close; 0) rescue -1
-        end
-      end
-    end
-
-    class ReadCallback < ::FFI::Function
-      def initialize(obj)
-        # size_t (* read) (struct SDL_RWops * context, void *ptr, size_t size, size_t maxnum);
-        super(:size_t, [:pointer, :pointer, :size_t, :size_t]) do |_context, ptr, size, max_num|
-          return 0 if ptr.null?
-          max = size * max_num
-          str = obj.read(max)
-          len = str.size
-          # len > max は obj.read が壊れている。
-          return 0 if str.nil? || len > max
-          ptr.write_bytes(str, 0, len)
-          len / size
-        rescue
-          0
-        end
-      end
-    end
-
-    class SeekCallback < ::FFI::Function
-      def initialize(obj)
-        # Sint64 (* seek) (struct SDL_RWops * context, Sint64 offset, int whence);
-        super(:int64, [:pointer, :int64, :int]) do |_context, offset, whence|
-          obj.seek(offset, whence) rescue -1
-        end
-      end
-    end
-
-    class SizeCallback < ::FFI::Function
-      def initialize(obj)
-        # Sint64 (* size) (struct SDL_RWops * context);
-        super(:int64, [:pointer]) do |_context|
-          # 不明な時は -1。Ruby では size が不明確なオブジェクトは size メソッドがないだろう。
-          obj.size rescue -1
-        end
-      end
-    end
-
-    class WriteCallback < ::FFI::Function
-      def initialize(obj)
-        # size_t (* write) (struct SDL_RWops * context, const void *ptr, size_t size, size_t num);
-        super(:size_t, [:pointer, :pointer, :size_t, :size_t]) do |_context, ptr, size, max_num|
-          return 0 if ptr.null?
-          obj.write(ptr.read_bytes(size * max_num)) / size rescue 0
-        end
-      end
-    end
-
-    class RWopsPointer < ::FFI::AutoPointer
-      class << self
-        # SDL_AllocRW で確保したポインターのみ SDL_FreeRW で開放できる。
-        def release(ptr) = ::SDL2.SDL_FreeRW(ptr)
-      end
-    end
-
-    class << self
-      # obj は Ruby IO と同じようにふるまうことを期待している。
-      # obj に対して close, seek, size, read, write のメソッドを呼び出す。
-      # メソッドの呼び出し引数は Ruby IO と同様である。
-      # メソッドの戻り値は Ruby IO と同じ値を返せばよい。
-      # メソッド内での例外は SDL のエラーに変換され、Ruby 側には反映されない。
-      # obj がメソッド呼び出しに応答しない場合も安全である。その場合は SDL 側にエラーが通知される。
-      def new(io)
-        ptr = RWopsPointer.new(::SDL2.SDL_AllocRW)
-        raise RbSDL2Error if ptr.null?
-        super(ptr, io)
-      end
-    end
-
-    def initialize(ptr, obj)
-      st = ::SDL2::SDL_RWops.new(ptr)
-      st[:close] = @close = CloseCallback.new(obj)
-      st[:read]  = @read  = ReadCallback.new(obj)
-      st[:seek]  = @seek  = SeekCallback.new(obj)
-      st[:size]  = @size  = SizeCallback.new(obj)
-      st[:write] = @write = WriteCallback.new(obj)
-      @obj = obj
-      @ptr = ptr
-    end
-
-    def __getobj__ = @obj
-
-    def to_ptr = @ptr
-  end
-end