opal-native 0.0.1.2 → 0.0.2

data/README.md

@@ -0,0 +1,18 @@
+Opal support for automagical native bridging
+============================================
+
+This gem gives to Opal a standard API to implement bridges to native objects and glue-less native
+access and usage with the 'Object()` helper function.
+
+```ruby
+o = Object(`$opal`)
+
+o.global.console            # this will access the global console object and return it
+o.global.console.log('wut') # this will call the log function on the console object
+
+o.to_hash # this will return the object's properties as a Hash
+          # you can also treat the object as an Enumerable
+
+# keep in mind that when using the `.` syntax if the property is a function, it will be called
+# if you want the value of the function you have to use `#[]` or `#[]=`.
+```

data/Rakefile

@@ -1,4 +1,3 @@
-require 'bundler/setup'
 require 'opal'
 
 desc 'Build specified dependencies to build dir'
@@ -7,8 +6,13 @@ task :dependencies do
 end
 
 desc 'Build latest opal-native to build dir'
-task :build do
-	Opal::Builder.new('lib', join: 'build/opal-native.js').build
+task :build => :dependencies do
+	Opal::Builder.new(files: 'lib', out: 'build/opal-native.js').build
+end
+
+desc 'Build latest opal-native ready for testing to build dir'
+task :test => :dependencies do
+	Opal::Builder.new(files: %w[lib spec], debug: true, out: 'build/opal-native.test.js').build
 end
 
 task :default => :build

data/lib/opal/native.rb

@@ -8,29 +8,113 @@
 #  0. You just DO WHAT THE FUCK YOU WANT TO.
 #++
 
-module Native
-	class Object
-		include Native
+class Module
+	%x{
+		function define_attr_bridge (klass, target, name, getter, setter) {
+			if (getter) {
+				$opal.defn(klass, $opal.mid_to_jsid(name), function() {
+					var real = target;
 
-		def [](name)
-			`#@native[name]`
-		end
+					if (#{Symbol == `target`}) {
+						real = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this);
+					}
 
-		def []=(name, value)
-			`#@native[name] = value`
-		end
+					var result = real[name];
 
-		def nil?
-			`#@native === null || #@native === undefined`
-		end
+					return result == null ? nil : result;
+				});
+			}
 
-		def method_missing (name, *args)
-			return super unless Opal.function? `#@native[name]`
+			if (setter) {
+				$opal.defn(klass, $opal.mid_to_jsid(name + '='), function (block, val) {
+					var real = target;
 
-			__native_send__ name, *args
-		end
+					if (#{Symbol === `target`}) {
+						real = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this);
+					}
+
+					return real[name] = val;
+				});
+			}
+		}
+	}
+
+	def attr_accessor_bridge (target, *attrs)
+		%x{
+			for (var i = 0, length = attrs.length; i < length; i++) {
+				define_attr_bridge(this, target, attrs[i], true, true);
+			}
+		}
+
+		self
 	end
 
+	def attr_reader_bridge (target, *attrs)
+		%x{
+			for (var i = 0, length = attrs.length; i < length; i++) {
+				define_attr_bridge(this, target, attrs[i], true, false);
+			}
+		}
+
+		self
+	end
+
+	def attr_writer_bridge (target, *attrs)
+		%x{
+			for (var i = 0, length = attrs.length; i < length; i++) {
+				define_attr_bridge(this, target, attrs[i], false, true);
+			}
+		}
+
+		self
+	end
+
+	def attr_bridge (target, name, setter = false)
+		`define_attr_bridge(this, target, name, true, setter)`
+
+		self
+	end
+
+	def define_method_bridge (object, name, ali = nil)
+		%x{
+			var self = this;
+
+			$opal.defn(self, $opal.mid_to_jsid(#{ali || name}), function () {
+				var real = object;
+
+				if (#{Symbol === object}) {
+					real = object[0] == '@' ? self[object.substr(1)] : self[$opal.mid_to_jsid(object)].apply(self);
+				}
+
+				return real[name].apply(real, arguments);
+			});
+		}
+
+		nil
+	end
+end
+
+module Kernel
+	def define_singleton_method_bridge (object, name, ali = nil)
+		%x{
+			var self = this;
+
+			$opal.defs(this, $opal.mid_to_jsid(#{ali || name}), function () {
+				var real = object;
+
+				if (#{Symbol === object}) {
+					real = object[0] == '@' ? self[object.substr(1)] : self[$opal.mid_to_jsid(object)].apply(self);
+				}
+
+				return real[name].apply(real, arguments);
+			});
+		}
+
+		nil
+	end
+end
+
+module Native
 	def self.included (klass)
 		class << klass
 			def from_native (object)
@@ -56,94 +140,115 @@ module Native
 		`#@native[name].apply(#@native, args)`
 	end
 
-	alias_method :__native_send__, :native_send
+	alias __native_send__ native_send
 end
 
-class Module
-	%x{
-		function define_attr_bridge(klass, target, name, getter, setter) {
-			if (getter) {
-				$opal.defn(klass, $opal.mid_to_jsid(name), function() {
-					var real_target = target;
+class Native::Object
+	include Native
+	include Enumerable
 
-					if (target.$f & T_STRING) {
-						real_target = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this, null);
-					}
+	def initialize (*)
+		super
 
-					var result = real_target[name];
+		update!
+	end
 
-					return result == null ? nil : result;
-				});
+	def update! (name = nil)
+		unless name
+			%x{
+				for (var name in #@native) {
+					#{update!(`name`)}
+				}
 			}
 
-			if (setter) {
-				$opal.defn(klass, $opal.mid_to_jsid(name + '='), function (block, val) {
-					var real_target = target;
+			return
+		end
 
-					if (target.$f & T_STRING) {
-						real_target = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this, null);
-					}
+		if Opal.function? `#@native[name]`
+			define_singleton_method_bridge @native, name
 
-					return real_target[name] = val;
-				});
-			}
-		}
-	}
+			if respond_to? "#{name}="
+				singleton_class.undef_method "#{name}="
+			end
+		else
+			define_singleton_method name do
+				self[name]
+			end
+
+			define_singleton_method "#{name}=" do |value|
+				self[name] = value
+			end
+		end
+	end
+
+	def each
+		return enum_for :each unless block_given?
 
-	def attr_accessor_bridge(target, *attrs)
 		%x{
-			for (var i = 0, length = attrs.length; i < length; i++) {
-				define_attr_bridge(this, target, attrs[i], true, true);
+			for (var name in #@native) {
+				#{yield Kernel.Object(`name`), Kernel.Object(`#@native[name]`)}
 			}
 		}
 
 		self
 	end
 
-	def attr_reader_bridge(target, *attrs)
+	def each_key
+		return enum_for :each_key unless block_given?
+
 		%x{
-			for (var i = 0, length = attrs.length; i < length; i++) {
-				define_attr_bridge(this, target, attrs[i], true, false);
+			for (var name in #@native) {
+				#{yield Kernel.Object(`name`)}
 			}
 		}
 
 		self
 	end
 
-	def attr_reader_bridge(target, *attrs)
+	def each_value
+		return enum_for :each_value unless block_given?
+
 		%x{
-			for (var i = 0, length = attrs.length; i < length; i++) {
-				define_attr_bridge(this, target, attrs[i], false, true);
+			for (var name in #@native) {
+				#{yield Kernel.Object(`#@native[name]`)}
 			}
 		}
+	end
 
-		self
+	def [] (name)
+		Kernel.Object(`#@native[name] || nil`)
 	end
 
-	def attr_bridge(target, name, setter = false)
-		`define_attr_bridge(this, target, name, true, setter)`
+	def []= (name, value)
+		value = value.to_native unless Opal.native?(value)
 
-		self
+		`#@native[name] = #{value}`
+
+		update!(name)
+
+		value
 	end
 
-	%x{
-		function define_method_bridge(klass, target, id, name) {
-			define_method(klass, id, function() {
-				var real_target = target;
+	def nil?
+		`#@native === null || #@native === undefined`
+	end
 
-				if (target.$f & T_STRING) {
-					real_target = target[0] == '@' ? this[target.substr(1)] : this[$opal.mid_to_jsid(target)].apply(this, null);
-				}
+	def inspect
+		"#<Native: #{`#@native.toString()`}>"
+	end
 
-				return real_target.apply(this, $slice.call(arguments, 1));
-			});
-		}
-	}
+	def to_s
+		`#@native.toString()`
+	end
 
-	def define_method_bridge(object, name, ali = nil)
-		`define_method_bridge(this, object, $opal.mid_to_jsid(#{ali || name}), name)`
+	def to_hash
+		Hash[to_a]
+	end
+end
 
-		self
+module Kernel
+	def Object (object)
+		Opal.native?(object) ? Native::Object.new(object) : object
 	end
 end
 
@@ -188,8 +293,8 @@ class MatchData
 end
 
 class NilClass
-	def to_native
-		`var result; return result;`
+	def to_native (result = undefined)
+		result
 	end
 end
 
@@ -202,16 +307,18 @@ end
 class Proc
 	def to_native
 		%x{
-			return function () {
-				return this.apply(this.$S, arguments);
-			};
+			var self = this;
+
+			return (function () {
+				return self.apply(self.$S, arguments);
+			});
 		}
 	end
 end
 
 class Regexp
 	def to_native
-		self
+		`this.valueOf()`
 	end
 end
 
@@ -220,9 +327,3 @@ class String
 		`this.valueOf()`
 	end
 end
-
-module Kernel
-	def Object(object)
-		Opal.native?(object) ? Native::Object.new(object) : object
-	end
-end

data/opal-native.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new {|s|
 	s.name         = 'opal-native'
-	s.version      = '0.0.1.2'
+	s.version      = '0.0.2'
 	s.author       = 'meh.'
 	s.email        = 'meh@paranoici.org'
 	s.homepage     = 'http://github.com/opal/opal-native'
@@ -11,4 +11,6 @@ Gem::Specification.new {|s|
 	s.executables   = `git ls-files -- bin/*`.split("\n").map { |f| File.basename(f) }
 	s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
 	s.require_paths = ['lib']
+
+	s.add_development_dependency 'opal-spec'
 }

data/spec/native_spec.rb

@@ -0,0 +1,11 @@
+require File.expand_path('../spec_helper', __FILE__)
+
+class Test
+	include Native
+end
+
+describe Native do
+	it 'creates a working object' do
+		Test.new(42).to_native.should == 42
+	end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,6 @@
+require 'opal/spec/autorun'
+require 'native'
+
+if $0 == __FILE__
+	Dir['spec/**/*.rb'].each { |spec| require spec }
+end

data/spec/spec_runner.html

@@ -0,0 +1,15 @@
+<!DOCTYPE html>
+<html>
+<head>
+	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+
+	<title>Spec_runner</title>
+
+	<script src="../build/opal.debug.js" type="text/javascript" charset="utf-8"></script>
+	<script src="../build/opal-spec.debug.js" type="text/javascript" charset="utf-8"></script>
+	<script src="../build/opal-native.test.debug.js" type="text/javascript" charset="utf-8"></script>
+</head>
+
+<body onload="opal.main('/spec/spec_helper.rb')">
+</body>
+</html>

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: opal-native
 version: !ruby/object:Gem::Version
-  version: 0.0.1.2
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,8 +9,19 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-01-12 00:00:00.000000000 Z
-dependencies: []
+date: 2012-01-18 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: opal-spec
+  requirement: &15880980 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *15880980
 description: 
 email: meh@paranoici.org
 executables: []
@@ -18,9 +29,13 @@ extensions: []
 extra_rdoc_files: []
 files:
 - .gitignore
+- README.md
 - Rakefile
 - lib/opal/native.rb
 - opal-native.gemspec
+- spec/native_spec.rb
+- spec/spec_helper.rb
+- spec/spec_runner.html
 homepage: http://github.com/opal/opal-native
 licenses: []
 post_install_message: 
@@ -45,4 +60,7 @@ rubygems_version: 1.8.10
 signing_key: 
 specification_version: 3
 summary: Easy support for native objects in Opal
-test_files: []
+test_files:
+- spec/native_spec.rb
+- spec/spec_helper.rb
+- spec/spec_runner.html