Add Native::Array for array-like object wrapping

Author: meh

corelib/kernel.rb

@@ -64,19 +64,13 @@ def methods(all = true)
     }
   end
 
-  def Array(object, func = undefined, length = :length)
+  def Array(object, *args, &block)
     %x{
       if (object == null || object === nil) {
         return [];
       }
-      else if (#{native?(object)} && object[length] != null) {
-        var result = [];
-
-        for (var i = 0, length = object[length]; i < length; i++) {
-          result.push(func ? object[func](i) : object[i]);
-        }
-
-        return result;
+      else if (#{native?(object)}) {
+        return #{Native::Array.new(object, *args, &block).to_a};
       }
       else if (#{object.respond_to? :to_ary}) {
         return #{object.to_ary};

corelib/native.rb

@@ -43,6 +43,67 @@ def to_n
     end
   end
 
+  class Array
+    include Base
+    include Enumerable
+
+    def initialize(native, options = {}, &block)
+      super(native)
+
+      @get    = options[:get] || options[:access]
+      @set    = options[:set] || options[:access]
+      @length = options[:length] || :length
+      @block  = block
+
+      if `#@native[#@length] == null`
+        raise ArgumentError, "no length found on the array-like object"
+      end
+    end
+
+    def each(&block)
+      return enum_for :each unless block
+
+      index  = 0
+      length = self.length
+
+      while index < length
+        block.call(self[index])
+
+        index += 1
+      end
+
+      self
+    end
+
+    def [](index)
+      result = if @get
+        `#@native[#@get](#{index})`
+      else
+        `#@native[#{index}]`
+      end
+
+      unless index > length
+        if @block
+          @block.call(result)
+        else
+          Native(result)
+        end
+      end
+    end
+
+    def []=(index, value)
+      if @set
+        `#@native[#@set](#{index}, #{value})`
+      else
+        `#@native[#{index}] = #{value}`
+      end
+    end
+
+    def length
+      `#@native[#@length]`
+    end
+  end
+
   def self.try_convert(value)
     %x{
       if (#{native?(value)}) {