rum 0.0.1-x86-mingw32

data/lib/rum/windows/keyboard_hook.rb

@@ -0,0 +1,20 @@
+module KeyboardHook
+  class Event
+    attr_reader :id, :scancode
+    def initialize(id, scancode, down)
+      @id = id
+      @scancode = scancode
+      @down = down
+    end
+
+    def down?
+      @down
+    end
+
+    def to_s
+      "#{@down ? 'Down' : 'Up'}: VKCode #@id, Scancode #@scancode"
+    end
+  end
+end
+
+require_relative 'keyboard_hook.so'

data/lib/rum/windows/layouts.rb

@@ -0,0 +1,232 @@
+# encoding: utf-8
+
+module Rum
+  module Layouts
+    module_function
+
+    def default_layout
+      us
+    end
+    
+    def core
+      # http://msdn.microsoft.com/en-us/library/dd375731%28VS.85%29.aspx
+      core = Layout.new
+      # 0-9
+      10.times { |i| core.add i.to_s, 48+i }
+      # a-z
+      26.times { |i| core.add (97+i).chr, 65+i }
+      # f1-f24
+      1.upto(24) { |i| core.add "f#{i}", 111+i }
+
+      [['lbutton', 0x01],
+       ['rbutton', 0x02],
+       ['cancel', 0x03],
+       ['mbutton', 0x04],
+       ['back', 0x08],
+       ['tab', 0x09],
+       ['clear', 0x0C],
+       ['return', "\n", 0x0D],
+       ['shift', 0x10],
+       ['control', 0x11],
+       ['menu', 0x12],
+       ['pause', 0x13],
+       ['capital', 0x14],
+       ['hangul', 0x15],
+       ['junja', 0x17],
+       ['final', 0x18],
+       ['hanja', 0x19],
+       ['kanji', 0x19],
+       ['escape', 0x1B],
+       ['convert', 0x1C],
+       ['nonconvert', 0x1D],
+       ['accept', 0x1E],
+       ['modechange', 0x1F],
+       ['space', ' ', 0x20],
+       ['prior', 0x21],
+       ['next', 0x22],
+       ['end', 0x23],
+       ['home', 0x24],
+       ['left', 0x25],
+       ['up', 0x26],
+       ['right', 0x27],
+       ['down', 0x28],
+       ['select', 0x29],
+       ['print', 0x2A],
+       ['execute', 0x2B],
+       ['snapshot', 0x2C],
+       ['insert', 0x2D],
+       ['delete', 0x2E],
+       ['help', 0x2F],
+       ['lwin', 0x5B],
+       ['rwin', 0x5C],
+       ['apps', 0x5D],
+       ['numpad0', 0x60],
+       ['numpad1', 0x61],
+       ['numpad2', 0x62],
+       ['numpad3', 0x63],
+       ['numpad4', 0x64],
+       ['numpad5', 0x65],
+       ['numpad6', 0x66],
+       ['numpad7', 0x67],
+       ['numpad8', 0x68],
+       ['numpad9', 0x69],
+       ['multiply', 0x6A],
+       ['add', 0x6B],
+       ['separator', 0x6C],
+       ['subtract', 0x6D],
+       ['decimal', 0x6E],
+       ['divide', 0x6F],
+       ['numlock', 0x90],
+       ['scroll', 0x91],
+       ['lshift', 0xA0],
+       ['rshift', 0xA1],
+       ['lcontrol', 0xA2],
+       ['rcontrol', 0xA3],
+       ['lmenu', 0xA4],
+       ['rmenu', 0xA5],
+       ['processkey', 0xE5],
+       ['attn', 0xF6],
+       ['crsel', 0xF7],
+       ['exsel', 0xF8],
+       ['ereof', 0xF9],
+       ['play', 0xFA],
+       ['zoom', 0xFB],
+       ['noname', 0xFC],
+       ['pa1', 0xFD],
+       ['oem_clear', 0xFE],
+       ['browser_back', 0xA6],
+       ['browser_forward', 0xA7],
+       ['browser_refresh', 0xA8],
+       ['browser_stop', 0xA9],
+       ['browser_search', 0xAA],
+       ['browser_favorites', 0xAB],
+       ['browser_home', 0xAC],
+       ['volume_mute', 0xAD],
+       ['volume_down', 0xAE],
+       ['volume_up', 0xAF],
+       ['media_next_track', 0xB0],
+       ['media_prev_track', 0xB1],
+       ['media_stop', 0xB2],
+       ['media_play_pause', 0xB3],
+       ['launch_mail', 0xB4],
+       ['launch_media_select', 0xB5],
+       ['launch_app1', 0xB6],
+       ['launch_app2', 0xB7],
+       ['oem_plus', 0xBB],
+       [',', 'oem_comma', 0xBC],
+       ['-', 'oem_minus', 0xBD],
+       ['.', 'oem_period', 0xBE],
+       ['oem_1', 0xBA],
+       ['oem_2', 0xBF],
+       ['oem_3', 0xC0],
+       ['oem_4', 0xDB],
+       ['oem_5', 0xDC],
+       ['oem_6', 0xDD],
+       ['oem_7', 0xDE],
+       ['oem_8', 0xDF],
+       ['oem_102', 0xE2],
+       ['processkey', 0xE5],
+       ['packet', 0xE]].each { |key| core.add *key }
+
+      core
+    end
+
+    def basic
+      basic = core
+      
+      basic.remap 'lcontrol', 'rcontrol', 'control'
+      basic.remap 'rmenu', 'lmenu'
+      basic.remap 'lshift', 'rshift', 'shift'
+      basic.remap 'rwin', 'lwin'
+      
+      basic.alias 'control', 'ctrl'
+      basic.alias 'control', 'c'
+      basic.rename 'lmenu', 'alt'
+      basic.alias 'alt', 'a'
+      basic.alias 'shift', 's'
+      basic.rename 'lwin', 'win'
+      basic.rename 'back', 'backspace'
+      basic.rename 'return', 'enter'
+      basic.alias 'enter', 'return'
+      basic.rename 'capital', 'caps'
+      basic.rename 'prior', 'pageup'
+      basic.rename 'next', 'pagedown'
+      basic.rename 'snapshot', 'print'
+      
+      
+      %w{shift control alt win}.each { |key| basic.core_modifier key }
+
+      basic.action_modifier 'alt'
+      basic.action_modifier 'win'
+
+      basic.add :extended, 'alt-extended', basic['alt'].id
+      basic.add :extended, 'left-extended', basic['left'].id
+      basic.add :extended, 'right-extended', basic['right'].id
+
+      shift_translations = ('a'..'z').map { |key| [key.upcase, key] }
+      shift_translations.each do |from, to|
+        basic.translations[from] = "(shift #{to})"
+      end
+      basic
+    end
+
+    def us
+      us = basic
+      us.rename 'oem_plus', '='
+      us.rename 'oem_1', ';'
+      us.rename 'oem_2', '/'
+      us.rename 'oem_3', '`'
+      us.rename 'oem_4', '['
+      us.rename 'oem_5', '\\'
+      us.rename 'oem_6', ']'
+      us.rename 'oem_7', "'"
+      us.rename 'oem_102', '\\'
+
+      shift_translations = <<END.scan(/(\S) (\S)/)
+~ `   $ 4   * 8   + =    " '
+! 1   % 5   ( 9   } ]    < ,
+@ 2   ^ 6   ) 0   | \    > .
+# 3   & 7   _ -   : ;    ? /
+END
+      shift_translations.each do |from, to|
+        us.translations[from] = "(shift #{to})"
+      end
+      us
+    end
+
+    def german
+      german = basic
+      german.rename 'oem_plus', '+'
+      german.rename 'oem_1', 'ü'
+      german.rename 'oem_2', '#'
+      german.rename 'oem_3', 'ö'
+      german.rename 'oem_4', 'ß'
+      german.rename 'oem_5', '^'
+      german.rename 'oem_6', '´'
+      german.rename 'oem_7', 'ä'
+      german.rename 'oem_102', '<'
+      
+      shift_translations = <<END.scan(/(\S) (\S)/)
+° ^   $ 4   ( 8   ` ´    ; ,
+! 1   % 5   ) 9   * +    : .
+" 2   & 6   = 0   ' #    _ -
+§ 3   / 7   ? ß   > <
+END
+      shift_translations.each do |from, to|
+        german.translations[from] = "(shift #{to})"
+      end
+
+      altgr_translations = <<END.scan(/(\S) (\S)/)
+² 2   ] 9   € e
+³ 3   } 0   ~ +
+{ 7   \\ ß  | <
+[ 8   @ q   µ m
+END
+      altgr_translations.each do |from, to|
+        german.translations[from] = "(ctrl (alt-extended #{to}))"
+      end
+
+      german
+    end
+  end
+end

data/lib/rum/windows/system.rb

@@ -0,0 +1,310 @@
+require_relative 'system_foreign_functions'
+
+module Rum
+  module System
+    extend self
+    
+    def send_key_event key, down
+      extended, id = key.id.divmod 2**9
+      extended = (extended == 1)
+      keybd_event id, down, 0, extended
+    end
+
+    def send_keypress key
+      send_key_event key, true
+      send_key_event key, false
+    end
+
+    def active_window_handles
+      Enumerator.new(self, :enum_windows)
+    end
+
+    def active_windows
+      Enumerator.new do |yielder|
+        enum_windows { |handle| yielder.yield Window.new(handle) }
+      end
+    end
+
+    def active_window
+      Window.new get_foreground_window
+    end
+    
+    def terminal_window
+      Window.new get_console_window
+    end
+
+    def spawn_in_terminal(*args)
+      if args.delete :close_if_successful
+        close_window = '/c'
+        # if there's an error, ask for input to keep the shell window alive
+        args.concat %w(|| set /p name= Abort)
+      else
+        close_window = '/k'
+      end
+      if args.delete(:wait)
+        Rum.switch_worker_thread
+        wait = '/wait'
+      end
+      system('start', *wait, 'cmd', close_window, *args)
+    end
+
+    # returns a copy
+    def c_string obj
+      str = obj.to_s + "\0"
+      str.encode(Encoding::UTF_16LE) 
+    end
+
+    def message_box message, title=''
+      message_box_internal(c_string(message), c_string(title))
+    end
+
+    def input_box text, title, default_text
+      buffer_size = 2048
+      buffer = default_text.to_s.encode Encoding::UTF_16LE
+      buffer.force_encoding Encoding::BINARY
+      if buffer.length >= buffer_size
+        buffer << "\0\0"
+      else
+        buffer << "\0" * (buffer_size - buffer.length)
+      end
+
+      length = input_box_internal(c_string(text), c_string(title), buffer)
+      if length == 0
+        ''
+      else
+        result = buffer[0, length*2]
+        result.force_encoding(Encoding::UTF_16LE).encode(Encoding::UTF_8)
+      end
+    end
+
+    def get_selection
+      Clipboard.preserve { Clipboard.get_selection }
+    end
+
+    class Window
+      include System
+      
+      attr_reader :handle
+      
+      def initialize(handle)
+        @handle = handle
+      end
+
+      def == other
+        return false unless other.respond_to? :handle
+        @handle == other.handle
+      end
+      
+      def active?
+        self.handle == get_foreground_window
+      end
+
+      def close
+        post_message @handle, WM_SYSCOMMAND, SC_CLOSE, 0
+      end
+
+      def hide
+        show_window(@handle, SW_HIDE)
+      end
+
+      def zoomed?
+        is_zoomed(@handle) == 1 ? true : false
+      end
+
+      def toggle_maximized
+        zoomed? ? restore : maximize
+      end
+
+      def maximize
+        post_message @handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0
+      end
+      
+      def minimize
+        post_message @handle, WM_SYSCOMMAND, SC_MINIMIZE, 0
+      end
+
+      def restore
+        post_message @handle, WM_SYSCOMMAND, SC_RESTORE, 0
+      end
+
+      def file_dialog?
+        class_name == '#32770'
+      end
+
+      def office_file_dialog?
+        class_name =~ /^bosa_sdm/
+      end
+
+      def toggle_always_on_top
+        window_style = get_window_long(@handle, GWL_EXSTYLE)
+        return if window_style == 0
+        topmost_or_not = if (window_style & WS_EX_TOPMOST == WS_EX_TOPMOST)
+                           HWND_NOTOPMOST
+                         else
+                           HWND_TOPMOST
+                         end
+        set_window_pos(@handle, topmost_or_not, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE)
+      end
+
+      def move(x, y, width, height)
+        restore if zoomed?
+        move_window(@handle, x, y, width, height, 1)
+      end
+      
+      def title(max_length = 1024)
+        buffer = "\0" * (max_length * 2)
+        length = get_window_text_w(@handle, buffer, buffer.length)
+        result = (length == 0 ? '' : buffer[0..(length * 2 - 1)])
+        result.force_encoding(Encoding::UTF_16LE)
+        result.encode(Encoding::UTF_8, invalid: :replace)
+      end
+      
+      def class_name(max_length = 2048)
+        buffer = "\0" * max_length
+        length = get_class_name(@handle, buffer, buffer.length)
+        length == 0 ? '' : buffer[0..length - 1]
+      end
+      
+      def text(max_length = 2048)
+        buffer = '\0' * max_length
+        length = send_with_buffer @handle, WM_GETTEXT, buffer.length, buffer
+        length == 0 ? '' : buffer[0..length - 1]
+      end
+
+      def child(id)
+        result = case id
+                 when String
+                   by_title = find_window_ex @handle, 0, nil, id.gsub('_', '&')
+                   by_class = find_window_ex @handle, 0, id, nil
+                   by_title > 0 ? by_title : by_class
+                 when Fixnum
+                   get_dlg_item @handle, id
+                 else
+                   0
+                 end
+        
+        raise "Control '#{id}' not found" if result == 0
+        Window.new result
+      end
+
+      def kill_task
+        system("taskkill /F /IM #{exe_name}.exe")
+      end
+      
+      def report
+        "Title: #{title}\nClass: #{class_name}"
+      end
+
+      def self.[] arg, class_name=nil
+        if arg.is_a? Hash
+          WindowMatcher.new(arg[:title], arg[:class_name])
+        else
+          WindowMatcher.new(arg, class_name)
+        end
+      end
+    end
+
+    class WindowMatcher
+      include System
+      attr_reader :specs
+      
+      def initialize title=nil, class_name=nil
+        @specs = { title: title, class_name: class_name }
+        raise 'No specifications given.' unless @specs.values.any?
+        @specs.each do |spec, value|
+          if value.is_a? Regexp
+            @specs[spec] = Regexp.new(value.source, Regexp::IGNORECASE)
+          end
+        end
+      end
+
+      def comparison_method obj
+        if obj.is_a? Regexp then :=~ else :== end
+      end
+      
+      def matches? window
+        @specs.all? do |spec, value|
+          not value or value.send(comparison_method(value), window.send(spec))
+        end
+      end
+
+      def active?
+        matches? active_window
+      end
+
+      def to_matcher
+        self
+      end
+
+      def [] spec
+        @specs[spec]
+      end
+
+      def find
+        if @specs.values.any? { |spec| spec.is_a? Regexp }
+          active_windows.detect { |window| matches? window }
+        else
+          handle = find_window @specs[:class_name], @specs[:title]
+          Window.new(handle) unless handle == 0
+        end
+      end
+    end
+    
+    module Clipboard
+      extend self
+      
+      def get
+        Win32::Clipboard.get
+      end
+    
+      def set str
+        Win32::Clipboard.set str
+      end
+
+      def preserve
+        old_content = get
+        yield
+      ensure
+        set old_content
+      end
+
+      # def copy
+      #   watcher = install_watcher
+      #   Keyboard.type '(ctrl c)'
+      #   evaluate_watcher(watcher, 400) # Timeout: 400 msec
+      # end
+
+      def wait_for_change
+        watcher = install_watcher
+        begin
+          yield
+        ensure
+          result = evaluate_watcher(watcher, 400)
+        end
+        result
+      end
+
+      def copy
+        wait_for_change { Keyboard.type '(ctrl c)' }
+      end
+
+      def paste
+        Keyboard.type '(ctrl v)'
+      end
+      
+      def get_selection
+        Clipboard.get if Clipboard.copy
+      end
+
+      def append
+        clip = Clipboard.get
+        if (selection = get_selection)
+          clip << "\n" << selection
+        end
+      ensure
+        Clipboard.set clip
+      end
+    end
+  end
+end
+