opal-native 0.0.1

data/.gitignore

@@ -0,0 +1 @@
+/build

data/Rakefile

@@ -0,0 +1,14 @@
+require 'bundler/setup'
+require 'opal'
+
+desc 'Build specified dependencies into .'
+task :dependencies do
+	Opal::DependencyBuilder.new(stdlib: 'native', out: 'build').build
+end
+
+desc 'Build latest opal-native to current dir'
+task :build do
+	Opal::Builder.new('lib', join: 'build/opal-native.js').build
+end
+
+task :default => :build

data/lib/opal/native.rb

@@ -0,0 +1,234 @@
+#--
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                    Version 2, December 2004
+#
+#            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module Native
+  class Object
+    include Native
+
+    def [](name)
+      `#@native[name]`
+    end
+
+    def []=(name, value)
+      `#@native[name] = value`
+    end
+
+    def nil?
+      `#@native === null || #@native === undefined`
+    end
+
+    def method_missing(name, *args)
+      return super unless Opal.function? `#@native[name]`
+
+      __native_send__ name, *args
+    end
+  end
+
+  def self.included (klass)
+    class << klass
+      def from_native (object)
+        instance = allocate
+        instance.instance_variable_set :@native, object
+
+        instance
+      end
+    end
+  end
+
+  def initialize(native)
+    @native = native
+  end
+
+  def to_native
+    @native
+  end
+
+  def native_send(name, *args)
+    return method_missing(name, *args) unless Opal.function? `#@native[name]`
+
+    `#@native[name].apply(#@native, args)`
+  end
+
+  alias_method :__native_send__, :native_send
+end
+
+class Module
+  %x{
+    function define_attr_bridge(klass, target, name, getter, setter) {
+      if (getter) {
+        define_method(klass, mid_to_jsid(name), function() {
+          var real_target = target;
+
+          if (target.$f & T_STRING) {
+            real_target = target[0] == '@' ? this[target.substr(1)] : this[mid_to_jsid(target)].apply(this, null);
+          }
+
+          var result = real_target[name];
+
+          return result == null ? nil : result;
+        });
+      }
+
+      if (setter) {
+        define_method(klass, mid_to_jsid(name + '='), function (block, val) {
+          var real_target = target;
+
+          if (target.$f & T_STRING) {
+            real_target = target[0] == '@' ? this[target.substr(1)] : this[mid_to_jsid(target)].apply(this, null);
+          }
+
+          return real_target[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);
+      }
+
+      return nil;
+    }
+  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);
+      }
+
+      return nil;
+    }
+  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], false, true);
+      }
+
+      return nil;
+    }
+  end
+
+  def attr_bridge(target, name, setter = false)
+    `define_attr_bridge(this, target, name, true, setter)`
+
+    self
+  end
+
+  %x{
+    function define_method_bridge(klass, target, id, name) {
+      define_method(klass, id, function() {
+        var real_target = target;
+
+        if (target.$f & T_STRING) {
+          real_target = target[0] == '@' ? this[target.substr(1)] : this[mid_to_jsid(target)].apply(this, null);
+        }
+
+        return real_target.apply(this, $slice.call(arguments, 1));
+      });
+    }
+  }
+
+  def define_method_bridge(object, name, ali = nil)
+    %x{
+      define_method_bridge(this, object, mid_to_jsid(#{ali || name}), name);
+      this.$methods.push(name);
+
+      return nil;
+    }
+  end
+end
+
+class Array
+  def to_native
+    map { |obj| Opal.object?(obj) ? obj.to_native : obj }
+  end
+end
+
+class Boolean
+  def to_native
+    `this == true`
+  end
+end
+
+class Hash
+  def to_native
+    %x{
+      var map    = this.map,
+          result = {};
+
+      for (var assoc in map) {
+        var key   = map[assoc][0],
+            value = map[assoc][1];
+
+        result[key] = #{Opal.native?(`value`)} ? value : #{`value`.to_native};
+      }
+
+      return result;
+    }
+  end
+end
+
+module Kernel
+  def Object(object)
+    Opal.native?(object) ? Native::Object.new(object) : object
+  end
+end
+
+class MatchData
+  alias to_native to_a
+end
+
+class NilClass
+  def to_native
+    `var result; return result;`
+  end
+end
+
+class Numeric
+  def to_native
+    `this.valueOf()`
+  end
+end
+
+class Object
+  def to_native
+    raise TypeError, 'no specialized #to_native has been implemented'
+  end
+end
+
+class Proc
+  def to_native
+    %x{
+      return function() {
+        var args = Array.slice.call(arguments);
+            args.unshift(null); // block
+
+        return this.apply(this.$S, args);
+      };
+    }
+  end
+end
+
+class Regexp
+  def to_native
+    self
+  end
+end
+
+class String
+  def to_native
+    `this.valueOf()`
+  end
+end

data/opal-native.gemspec

@@ -0,0 +1,16 @@
+Gem::Specification.new {|s|
+	s.name         = 'opal-native'
+	s.version      = '0.0.1'
+	s.author       = 'meh.'
+	s.email        = 'meh@paranoici.org'
+	s.homepage     = 'http://github.com/opal/opal-native'
+	s.platform     = Gem::Platform::RUBY
+	s.summary      = 'Easy support for native objects in Opal'
+
+	s.files         = `git ls-files`.split("\n")
+	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_dependency 'opal'
+}

metadata

@@ -0,0 +1,59 @@
+--- !ruby/object:Gem::Specification
+name: opal-native
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- meh.
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-01-10 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: opal
+  requirement: &21726440 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *21726440
+description: 
+email: meh@paranoici.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Rakefile
+- lib/opal/native.rb
+- opal-native.gemspec
+homepage: http://github.com/opal/opal-native
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: Easy support for native objects in Opal
+test_files: []