accessibility_core 0.1.2 → 0.3.1

data/ext/accessibility/extras/extras.h

@@ -0,0 +1 @@
+void Init_extras();

data/ext/accessibility/highlighter/extconf.rb

@@ -1,11 +1,12 @@
 require 'mkmf'
 
 $CFLAGS << ' -std=c99 -Wall -Werror -pedantic -ObjC'
-$LIBS   << ' -framework CoreFoundation -framework Cocoa'
+$LIBS   << ' -framework CoreFoundation -framework ApplicationServices -framework Cocoa'
 $LIBS   << ' -framework CoreGraphics' unless `sw_vers -productVersion`.to_f == 10.7
 
 if RUBY_ENGINE == 'macruby'
   $CFLAGS << ' -fobjc-gc'
+  $CFLAGS.sub! /-Werror/, ''
 else
   unless RbConfig::CONFIG["CC"].match /clang/
     clang = `which clang`.chomp
@@ -19,4 +20,10 @@ else
   $CFLAGS << ' -DNOT_MACRUBY'
 end
 
-create_makefile 'accessibility/highlighter'
+create_makefile 'accessibility/highlighter/highlighter'
+
+# modify the bugger so we can depend on bridge.h properly
+makefile = File.read 'Makefile'
+makefile.gsub! '$(DLLIB): $(OBJS) Makefile', '$(DLLIB): $(OBJS) Makefile ../bridge/bridge.o ../extras/extras.o'
+makefile.gsub! '$(Q) $(LDSHARED) -o $@', '$(Q) $(LDSHARED) -o $@ ../bridge/bridge.o ../extras/extras.o'
+File.open('Makefile', 'w') { |f| f.write makefile }

data/ext/accessibility/highlighter/highlighter.c

@@ -1,7 +1,297 @@
 #include "ruby.h"
+#import <Cocoa/Cocoa.h>
+#include "../bridge/bridge.h"
+#include "../extras/extras.h"
+
+
+#ifdef NOT_MACRUBY
+
+static VALUE rb_cHighlighter;
+static VALUE rb_cColor;
+
+static ID ivar_color;
+
+static VALUE color_key;
+static VALUE colour_key;
+static VALUE timeout_key;
+
+
+static
+VALUE
+wrap_window(NSWindow* window)
+{
+  return Data_Wrap_Struct(rb_cHighlighter, NULL, objc_finalizer, (void*)window);
+}
+
+static
+NSWindow*
+unwrap_window(VALUE window)
+{
+  NSWindow* nswindow;
+  Data_Get_Struct(window, NSWindow, nswindow);
+  return nswindow;
+}
+
+static
+VALUE
+wrap_color(NSColor* color)
+{
+  return Data_Wrap_Struct(rb_cColor, NULL, objc_finalizer, (void*)color);
+}
+
+static
+NSColor*
+unwrap_color(VALUE color)
+{
+  NSColor* nscolor;
+  Data_Get_Struct(color, NSColor, nscolor);
+  return nscolor;
+}
+
+
+static
+CGRect
+flip(CGRect rect)
+{
+  double screen_height = NSMaxY([[NSScreen mainScreen] frame]);
+  rect.origin.y        = screen_height - NSMaxY(rect);
+  return rect;
+}
+
+static
+VALUE
+rb_highlighter_new(int argc, VALUE* argv, VALUE self)
+{
+  if (!argc)
+    rb_raise(rb_eArgError, "wrong number of arguments (0 for 1+)");
+
+  CGRect bounds = unwrap_rect(coerce_to_rect(argv[0]));
+  bounds = flip(bounds); // we assume the rect is in the other co-ordinate system
+
+  NSWindow* window =
+    [[NSWindow alloc] initWithContentRect:bounds
+                                styleMask:NSBorderlessWindowMask
+		                  backing:NSBackingStoreBuffered
+                                    defer:true];
+
+  NSColor* color = [NSColor magentaColor];
+
+  if (argc > 1) {
+    VALUE rb_color = rb_hash_lookup(argv[1], color_key);
+    if (rb_color == Qnil)
+      rb_color = rb_hash_lookup(argv[1], colour_key);
+    if (rb_color != Qnil)
+      color = unwrap_color(rb_color);
+  }
+
+  [window setOpaque:false];
+  [window setAlphaValue:0.20];
+  [window setLevel:NSStatusWindowLevel];
+  [window setBackgroundColor:color];
+  [window setIgnoresMouseEvents:true];
+  [window setFrame:bounds display:false];
+  [window makeKeyAndOrderFront:NSApp];
+  [window setReleasedWhenClosed:false];
+
+  if (argc > 1) {
+    VALUE rb_timeout = rb_hash_lookup(argv[1], timeout_key);
+    if (rb_timeout != Qnil) {
+      dispatch_time_t timeout = dispatch_time(
+					      DISPATCH_TIME_NOW,
+					      NUM2LL(rb_timeout) * NSEC_PER_SEC
+					      );
+      dispatch_after(
+		     timeout,
+		     dispatch_get_global_queue(DISPATCH_QUEUE_PRIORITY_DEFAULT, 0),
+		     ^(void) { [window close]; }
+		     );
+    }
+  }
+
+  VALUE highlighter = wrap_window(window);
+  rb_ivar_set(highlighter, ivar_color, wrap_color(color));
+  return highlighter;
+}
+
+static
+VALUE
+rb_highlighter_stop(VALUE self)
+{
+  [unwrap_window(self) close];
+  return self;
+}
+
+static
+VALUE
+rb_highlighter_color(VALUE self)
+{
+  return wrap_color([unwrap_window(self) backgroundColor]);
+}
+
+static
+VALUE
+rb_highlighter_frame(VALUE self)
+{
+  return wrap_rect([unwrap_window(self) frame]);
+}
+
+static
+VALUE
+rb_highlighter_is_visible(VALUE self)
+{
+  return ([unwrap_window(self) isVisible] ? Qtrue : Qfalse);
+}
+
+
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_black(VALUE self)      { return wrap_color([NSColor blackColor]);     }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_blue(VALUE self)       { return wrap_color([NSColor blueColor]);      }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_brown(VALUE self)      { return wrap_color([NSColor brownColor]);     }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_clear(VALUE self)      { return wrap_color([NSColor clearColor]);     }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_cyan(VALUE self)       { return wrap_color([NSColor cyanColor]);      }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_dark_gray(VALUE self)  { return wrap_color([NSColor darkGrayColor]);  }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_gray(VALUE self)       { return wrap_color([NSColor grayColor]);      }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_green(VALUE self)      { return wrap_color([NSColor greenColor]);     }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_light_gray(VALUE self) { return wrap_color([NSColor lightGrayColor]); }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_magenta(VALUE self)    { return wrap_color([NSColor magentaColor]);   }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_orange(VALUE self)     { return wrap_color([NSColor orangeColor]);    }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_purple(VALUE self)     { return wrap_color([NSColor purpleColor]);    }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_red(VALUE self)        { return wrap_color([NSColor redColor]);       }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_white(VALUE self)      { return wrap_color([NSColor whiteColor]);     }
+/*
+ * @return [NSColor]
+ */
+static VALUE rb_color_yellow(VALUE self)     { return wrap_color([NSColor yellowColor]);    }
+
+/* static */
+/* VALUE */
+/* rb_color_rgb(VALUE self, VALUE red_val, VALUE other_vals) */
+/* { */
+/*   return Qnil; */
+/* } */
+
+/*
+ * @return [Boolean]
+ */
+static
+VALUE
+rb_color_equality(VALUE self, VALUE other)
+{
+  if (CLASS_OF(other) == rb_cColor)
+    if ([unwrap_color(self) isEqual:unwrap_color(other)])
+      return Qtrue;
+
+  return Qfalse;
+}
+
+#endif
+
 
 void
 Init_highlighter()
 {
-}
+  Init_bridge();
+  Init_extras();
+
+#ifdef NOT_MACRUBY
+
+  // force initialization or NSWindow won't work
+  [NSApplication sharedApplication];
+
+  // TODO: can we replace this bs with dispatch_once?
+  rb_mAccessibility = rb_define_module("Accessibility");
+  rb_cCGPoint       = rb_const_get(rb_cObject, rb_intern("CGPoint"));
+  rb_cCGSize        = rb_const_get(rb_cObject, rb_intern("CGSize"));
+  rb_cCGRect        = rb_const_get(rb_cObject, rb_intern("CGRect"));
+
+
+  rb_cHighlighter = rb_define_class_under(rb_mAccessibility, "Highlighter", rb_cObject);
+
+  rb_define_singleton_method(rb_cHighlighter, "new",  rb_highlighter_new,  -1);
+
+  rb_define_method(rb_cHighlighter, "stop",     rb_highlighter_stop,       0);
+  rb_define_method(rb_cHighlighter, "color",    rb_highlighter_color,      0);
+  rb_define_method(rb_cHighlighter, "frame",    rb_highlighter_frame,      0);
+  rb_define_method(rb_cHighlighter, "visible?", rb_highlighter_is_visible, 0);
 
+  rb_define_alias(rb_cHighlighter, "colour", "color");
+
+  ivar_color  = rb_intern("color");
+
+  color_key   = ID2SYM(rb_intern("color"));
+  colour_key  = ID2SYM(rb_intern("colour")); // fuck yeah, Canada
+  timeout_key = ID2SYM(rb_intern("timeout"));
+
+
+  /*
+   * Document-class: NSColor
+   *
+   * A subset of Cocoa's `NSColor` class.
+   *
+   * See [Apple's Developer Reference](https://developer.apple.com/library/mac/#documentation/Cocoa/Reference/ApplicationKit/Classes/NSColor_Class/Reference/Reference.html)
+   * for documentation on the methods available in this class.
+   */
+  rb_cColor = rb_define_class("NSColor", rb_cObject);
+
+  rb_define_singleton_method(rb_cColor, "blackColor",       rb_color_black,      0);
+  rb_define_singleton_method(rb_cColor, "blueColor",        rb_color_blue,       0);
+  rb_define_singleton_method(rb_cColor, "brownColor",       rb_color_brown,      0);
+  rb_define_singleton_method(rb_cColor, "clearColor",       rb_color_clear,      0);
+  rb_define_singleton_method(rb_cColor, "cyanColor",        rb_color_cyan,       0);
+  rb_define_singleton_method(rb_cColor, "darkGrayColor",    rb_color_dark_gray,  0);
+  rb_define_singleton_method(rb_cColor, "grayColor",        rb_color_gray,       0);
+  rb_define_singleton_method(rb_cColor, "greenColor",       rb_color_green,      0);
+  rb_define_singleton_method(rb_cColor, "lightGrayColor",   rb_color_light_gray, 0);
+  rb_define_singleton_method(rb_cColor, "magentaColor",     rb_color_magenta,    0);
+  rb_define_singleton_method(rb_cColor, "orangeColor",      rb_color_orange,     0);
+  rb_define_singleton_method(rb_cColor, "purpleColor",      rb_color_purple,     0);
+  rb_define_singleton_method(rb_cColor, "redColor",         rb_color_red,        0);
+  rb_define_singleton_method(rb_cColor, "whiteColor",       rb_color_white,      0);
+  rb_define_singleton_method(rb_cColor, "yellowColor",      rb_color_yellow,     0);
+  //rb_define_singleton_method(rb_cColor, "colorWithSRGBRed", rb_color_rgb,        2);
+
+  rb_define_method(rb_cColor, "==", rb_color_equality, 1);
+
+#endif
+}

data/{ext/accessibility/bridge/lib → lib}/accessibility/bridge.rb

@@ -1,6 +1,7 @@
-require 'accessibility/bridge/version'
+require 'accessibility/core/version'
 
-if RUBY_ENGINE == 'macruby'
+
+if defined? MACRUBY_REVISION
 
   ##
   # Whether or not we are running on MacRuby
@@ -30,4 +31,3 @@ else
   require 'accessibility/bridge/mri'
 
 end
-

data/{ext/accessibility/bridge/lib → lib}/accessibility/bridge/macruby.rb

@@ -183,3 +183,20 @@ class NSArray
     map do |obj| obj.to_ruby end
   end
 end
+
+##
+# `accessibility-core` extensions to `Object`
+class Object
+
+  ##
+  # Spin the run loop for the given number of seconds
+  #
+  # The script will effectively be paused while the run loop
+  # is "spinning".
+  #
+  # @param seconds [Number]
+  def spin seconds
+    CFRunLoopRunInMode(KCFRunLoopDefaultMode, seconds, false)
+  end
+
+end

data/{ext/accessibility/bridge/lib → lib}/accessibility/bridge/mri.rb

@@ -1,6 +1,7 @@
 ##
 # A structure that contains a point in a two-dimensional coordinate system
-CGPoint = Struct.new(:x, :y) do
+CGPoint = Struct.new(:x, :y)
+class CGPoint
 
   # @param x [Number]
   # @param y [Number]
@@ -10,11 +11,11 @@ CGPoint = Struct.new(:x, :y) do
 
   # @!attribute [rw] x
   #   The `x` co-ordinate of the screen point
-  #   @return [Number]
+  #   @return [Float]
 
   # @!attribute [rw] y
   #   The `y` co-ordinate of the screen point
-  #   @return [Number]
+  #   @return [Float]
 
   ##
   # Return a nice string representation of the point
@@ -31,7 +32,8 @@ end
 
 ##
 # A structure that contains the size of a rectangle in a 2D co-ordinate system
-CGSize = Struct.new(:width, :height) do
+CGSize = Struct.new(:width, :height)
+class CGSize
 
   # @param width [Number]
   # @param height [Number]
@@ -41,11 +43,11 @@ CGSize = Struct.new(:width, :height) do
 
   # @!attribute [rw] width
   #   The `width` of the box
-  #   @return [Number]
+  #   @return [Float]
 
   # @!attribute [rw] height
   #   The `heighth` of the box
-  #   @return [Number]
+  #   @return [Float]
 
   ##
   # Return a nice string representation of the size
@@ -62,7 +64,8 @@ end
 
 ##
 # Complete definition of a rectangle in a 2D coordinate system
-CGRect = Struct.new(:origin, :size) do
+CGRect = Struct.new(:origin, :size)
+class CGRect
 
   # @param origin [CGPoint,#to_point]
   # @param size [CGSize,#to_size]

data/lib/accessibility/core.rb

@@ -7,6 +7,6 @@ require 'accessibility/core/version'
 if on_macruby?
   require 'accessibility/core/macruby'
 else
-  require 'accessibility/core.bundle'
+  require 'accessibility/core/core.bundle'
 end
 

data/lib/accessibility/core/macruby.rb

@@ -159,7 +159,7 @@ module Accessibility::Element
     # The `:zomg` setting will be too fast in almost all cases, but
     # it is fun to watch.
     #
-    # @param [Number,Symbol]
+    # @param value [Number,Symbol]
     def self.key_rate= value
       @key_rate = case value
                   when :very_slow        then 0.9

data/lib/accessibility/core/version.rb

@@ -6,6 +6,6 @@ module Accessibility
   # Namespace for `accessibility_core` specific classes
   module Core
     # return [String]
-    VERSION = '0.1.2'
+    VERSION = '0.3.1'
   end
 end

data/lib/accessibility/extras.rb

@@ -0,0 +1,5 @@
+require 'accessibility/bridge'
+
+require 'accessibility/extras/common'
+framework 'Cocoa' if on_macruby?
+require 'accessibility/extras/extras.bundle'