rum 0.0.1-universal-darwin-10

data/lib/rum/mac/keyboard_hook.rb

@@ -0,0 +1,73 @@
+framework "ApplicationServices"
+framework "#{File.dirname(__FILE__)}/keyboard_hook/KeyboardHook.framework"
+framework 'Cocoa'
+
+module KeyboardHook
+  def self.start &block
+    @tap = EventTap.new
+    @tap.on_event &block
+    NSApplication.sharedApplication.run()
+  end
+
+  def self.stop
+    # Todo: cleanup, unregister hook
+    NSApplication.sharedApplication.terminate(nil)
+  end
+end
+
+class EventTap
+  def handleEvent(event)
+    event if @proc.call(event)
+  end
+
+  def on_event(&proc)
+    @proc = proc
+  end
+end
+
+class Event
+  def set_event_source(source)
+    CGEventSetSource(eventRef, source)
+  end
+
+  def set_keycode(code)
+    set_integer_value_field(KCGKeyboardEventKeycode, code)
+  end
+
+  def down?
+    down != 0
+  end
+
+  def keycode
+    get_integer_value_field(KCGKeyboardEventKeycode)
+  end
+  
+  def id
+    get_integer_value_field(KCGKeyboardEventKeycode)
+  end
+
+  def to_s
+    "#{down? ? 'Down' : 'Up'}: Id #{id}"
+  end
+
+  def set_integer_value_field(field, value)
+    CGEventSetIntegerValueField(eventRef, field, value)
+  end
+
+  def get_integer_value_field(field)
+    CGEventGetIntegerValueField(eventRef, field)
+  end
+
+  def get_user_data
+    CGEventGetIntegerValueField(eventRef, KCGEventSourceUnixProcessID)
+  end
+
+  def get_flags
+    CGEventGetFlags(eventRef)  
+  end
+
+  def set_flags(flags)
+    CGEventSetFlags(eventRef, flags)
+  end
+end
+

data/lib/rum/mac/keyboard_hook/KeyboardHook.framework/Versions/A/Resources/Info.plist

@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>CFBundleDevelopmentRegion</key>
+	<string>English</string>
+	<key>CFBundleExecutable</key>
+	<string>KeyboardHook</string>
+	<key>CFBundleIdentifier</key>
+	<string>com.yourcompany.KeyboardHook</string>
+	<key>CFBundleInfoDictionaryVersion</key>
+	<string>6.0</string>
+	<key>CFBundleName</key>
+	<string>KeyboardHook</string>
+	<key>CFBundlePackageType</key>
+	<string>FMWK</string>
+	<key>CFBundleSignature</key>
+	<string>????</string>
+	<key>CFBundleVersion</key>
+	<string>1.0</string>
+</dict>
+</plist>

data/lib/rum/mac/layouts.rb

@@ -0,0 +1,146 @@
+# encoding: utf-8
+
+module Rum
+  module Layouts
+    module_function
+    
+    def default_layout
+      us
+    end
+
+    # /System/Library/Frameworks/Carbon.framework/.../Events.h
+    def core
+      core = Layout.new
+      
+      [['return', "\n", 36],
+       ['tab', 48],
+       ['space', ' ', 49],
+       ['delete', 51],
+       ['escape', 53],
+       ['rightcommand', 54],
+       ['command', 55],
+       ['shift', 56],
+       ['capslock', 57],
+       ['option', 58],
+       ['control', 59],
+       ['rightshift', 60],
+       ['rightoption', 61],
+       ['rightcontrol', 62],
+       ['function', 63],
+       ['f17', 64],
+       ['volumeup', 72],
+       ['volumedown', 73],
+       ['mute', 74],
+       ['f18', 79],
+       ['f19', 80],
+       ['f20', 90],
+       ['f5', 96],
+       ['f6', 97],
+       ['f7', 98],
+       ['f3', 99],
+       ['f8', 100],
+       ['f9', 101],
+       ['f11', 103],
+       ['f13', 105],
+       ['f16', 106],
+       ['f14', 107],
+       ['f10', 109],
+       ['f12', 111],
+       ['f15', 113],
+       ['help', 114],
+       ['home', 115],
+       ['pageup', 116],
+       ['forward_delete', 117],
+       ['f4', 118],
+       ['end', 119],
+       ['f2', 120],
+       ['pagedown', 121],
+       ['f1', 122],
+       ['leftarrow', 123],
+       ['rightarrow', 124],
+       ['downarrow', 125],
+       ['uparrow', 126]].each { |key| core.add *key }
+      
+      core
+    end
+
+    def basic
+      basic = core
+
+      [['decimal', 65],
+       ['multiply', 67],
+       ['add', 69],
+       ['numlock', 71],
+       ['divide', 75],
+       ['numpadenter', 76],
+       ['subtract', 78],
+       ['numpad0', 82],
+       ['numpad1', 83],
+       ['numpad2', 84],
+       ['numpad3', 85],
+       ['numpad4', 86],
+       ['numpad5', 87],
+       ['numpad6', 88],
+       ['numpad7', 89],
+       ['numpad8', 91],
+       ['numpad9', 92],
+       ['apps', 110]].each { |key| basic.add *key }
+
+      basic.remap 'rightshift', 'shift'
+      basic.remap 'rightcontrol', 'control'
+      basic.remap 'rightoption', 'option'
+      basic.remap 'rightcommand', 'command'
+
+      basic.rename 'uparrow', 'up'
+      basic.rename 'rightarrow', 'right'
+      basic.rename 'downarrow', 'down'
+      basic.rename 'leftarrow', 'left'
+      basic.rename 'help', 'insert'
+      basic.alias  'insert', 'help'
+      basic.rename 'delete', 'backspace'
+      basic.rename 'forward_delete', 'delete'
+      basic.rename 'return', 'enter'
+      basic.alias  'enter', 'return'
+      basic.rename 'capslock', 'caps'
+
+      basic.alias  'f13', 'print'
+      basic.alias  'f14', 'scroll'
+      basic.alias  'f15', 'pause'
+
+      basic.alias 'command', 'cmd'
+      basic.alias 'function', 'fn'
+
+      %w{command control option shift function}.each do |key|
+        basic.core_modifier key
+      end
+
+      basic
+    end
+
+    def us
+      us = basic
+      %w{a s d f h g z x c v § b q w e r y t 1 2 3 4 6
+         5 = 9 7 - 8 0 ] o u [ i p _ l j _ k ; _ , / n m .}.each_with_index do |key, id|
+        us.add key, id unless key == '_'
+      end
+      
+      us.add "'", 39
+      us.add '\\', 42
+      us.add '`', 50
+
+      us
+    end
+
+    def german
+      german = basic
+      %w{a s d f h g z x c v ^ b q w e r y t 1 2 3 4 6
+         5 ´ 9 7 ß 8 0 + o u ü i p _ l j ä k ö # , - n m .}.each_with_index do |key, id|
+        german.add key, id unless key == '_'
+      end
+
+      german.add '<', 50
+
+      german
+    end
+  end
+end

data/lib/rum/mac/system.rb

@@ -0,0 +1,45 @@
+module Rum
+  module System
+    extend self
+
+    def applescript src
+      pointer = Pointer.new_with_type("@")
+      as = NSAppleScript.alloc.initWithSource(src)
+      as.executeAndReturnError(pointer)  
+    end
+    
+    def start *args
+      system 'open', *args
+    end
+
+    def escape_shell_word str
+      if str.empty? or %r{\A[0-9A-Za-z+,./:=@_-]+\z} =~ str
+        str
+      else
+        result = ''
+        str.scan(/('+)|[^']+/) {
+          if $1
+            result << %q{\'} * $1.length
+          else
+            result << "'#{$&}'"
+          end
+        }
+        result
+      end
+    end
+
+    def applescript_quote_string str
+      str.gsub!('\\', '\\\\\\\\')
+      str.gsub!('"', '\\"')
+      '"' << str << '"'
+    end
+
+    def spawn_in_terminal(*args)
+      close = args.delete :close_if_successful
+      command = args.map { |arg| escape_shell_word(arg) }.join(' ')
+      command << ';[ $? -eq 0 ] && exit' if close
+      command = applescript_quote_string(command)
+      applescript 'tell application "Terminal" to do script ' + command
+    end
+  end
+end

data/lib/rum/remote.rb

@@ -0,0 +1,48 @@
+require 'socket'
+
+module Rum
+  class Remote
+    def initialize(port=Remote.default_port)
+      @connection = Connection.new(TCPSocket.open('127.0.0.1', port))
+    end
+
+    def eval code
+      @connection.dispatch code
+      @connection.receive
+    end
+
+    def disconnect
+      @connection.close
+    end
+
+    def self.default_port
+      if (port = ENV['RUM_PORT'].to_i) and port.nonzero?
+        port
+      else
+        1994
+      end
+    end
+
+    module Connection
+      module Messaging
+        # Assumes message is not larger than 4,3 GB ((2**(4*8) - 1) bytes)
+        def dispatch(msg)
+          msg.encode! Encoding::UTF_8
+          msg.force_encoding Encoding::BINARY
+          write([msg.length].pack('N') + msg)
+        end
+        
+        def receive
+          if message_size = read(4) # sizeof (N)
+            message_size = message_size.unpack('N')[0]	
+            read(message_size).force_encoding(Encoding::UTF_8)
+          end
+        end
+      end
+      
+      def Connection.new(stream)
+        stream.extend Messaging
+      end
+    end
+  end
+end

data/lib/rum/server.rb

@@ -0,0 +1,92 @@
+require 'rum/remote'
+
+module Rum
+  module Server
+    module_function
+    
+    # This makes it easier for code to check if it runs inside the server thread.
+    def thread
+      @thread
+    end
+
+    def start
+      return if @thread
+      @thread = Thread.new do
+        @server = TCPServer.new('127.0.0.1', Remote.default_port)
+        puts "Server started."
+        begin
+          @connection = nil
+          loop do
+            @connection = Remote::Connection.new(@server.accept)
+            handle(@connection)
+            @connection.close
+          end
+        ensure # clean up when thread gets killed
+          close_connections
+        end
+      end
+    end
+
+    # Temporary hack.
+    # MacRuby crashes on the ensure clause above when
+    # the server thread is killed.
+    # This function allows for manually closing the connections.
+    def close_connections
+      [@server, @connection].compact.each { |e| e.close unless e.closed? }
+    end
+
+    def stop
+      if @thread
+        @thread.kill
+        # Kill can return before the thread has finished execution. A Ruby bug?
+        @thread.join
+        @thread = nil
+      end
+    end
+
+    EvalBinding = TOPLEVEL_BINDING
+
+    def handle(connection)
+      return nil unless message = connection.receive
+      result = begin
+                 eval(message, EvalBinding).inspect
+               rescue Exception => exception
+                 error_message(exception)
+               end
+      connection.dispatch(result)
+    rescue SystemCallError # connection errors
+    end
+
+    def error_message(exception)
+      # Hide the internals from the backtrace
+      backtrace = exception.backtrace.reject { |frame| frame =~ /^#{__FILE__}/ }
+      msg = ["Rum-Server: Evaluation Error."]
+      msg << "#{exception.class}: #{exception}"
+      msg += backtrace
+      msg.join "\n"
+    end
+
+    module IRBCompletion
+      Glue = 'binding = Rum::Server::EvalBinding
+              workspace = Struct.new(:binding).new(binding)
+              context = Struct.new(:workspace).new(workspace)
+              @CONF = { MAIN_CONTEXT: context }
+              
+              def IRB.conf
+                @CONF
+              end'
+
+      def self.setup
+        unless defined? IRB
+          # Since version 0.7, MacRuby ships with an incompatible IRB
+          # distribution called dietirb. Mac Rum includes a partial
+          # copy of the original IRB.
+          require Rum::Platform == :mac ? 'rum/mac/irb/completion' : 'irb/completion'
+          IRB.module_eval(Glue)
+        end
+      end
+    end
+
+    IRBCompletion.setup
+  end
+end

data/lib/rum/windows.rb

@@ -0,0 +1,23 @@
+require 'rum/windows/system'
+require 'rum/windows/keyboard_hook'
+require 'rum/windows/keyboard'
+require 'rum/windows/gui'
+require 'rum/windows/app'
+require 'rum/windows/layouts'
+
+module Rum
+  Platform = :windows
+  
+  def self.restart_platform_specific
+    Rum::Server.stop
+    System.spawn_in_terminal('ruby', $PROGRAM_NAME)
+    sleep 0.01 # This prevents a strange lag. Wow.
+    System.terminal_window.close
+  end
+
+  class HotkeyProcessor
+    def inhibit_modifier_action
+      System.send_keypress @layout['control']
+    end
+  end
+end