opal 0.10.0.beta3 → 0.10.0.beta4

data/lib/opal/sprockets/processor.rb

@@ -120,14 +120,14 @@ module Opal
 
     # @deprecated
     def self.stubbed_files
-      warn "Deprecated: use `::Opal::Config.stubbed_files` instead"
+      warn "Deprecated: `::Opal::Processor.stubbed_files' is deprecated, use `::Opal::Config.stubbed_files' instead"
       puts caller(5)
       ::Opal::Config.stubbed_files
     end
 
     # @deprecated
     def self.stub_file(name)
-      warn "Deprecated: use `::Opal::Config.stubbed_files << #{name.inspect}.to_s` instead"
+      warn "Deprecated: `::Opal::Processor.stub_file' is deprecated, use `::Opal::Config.stubbed_files << #{name.inspect}.to_s' instead"
       puts caller(5)
       ::Opal::Config.stubbed_files << name.to_s
     end

data/lib/opal/version.rb

@@ -1,5 +1,5 @@
 module Opal
   # WHEN RELEASING:
   # Remember to update RUBY_ENGINE_VERSION in opal/corelib/constants.rb too!
-  VERSION = '0.10.0.beta3'
+  VERSION = '0.10.0.beta4'
 end

data/opal/corelib/array.rb

@@ -795,6 +795,19 @@ class Array < `Array`
     }
   end
 
+  def dup
+    %x{
+      if (
+        self.$$class === Opal.Array &&
+        self.$allocate.$$pristine &&
+        self.$copy_instance_variables.$$pristine &&
+        self.$initialize_dup.$$pristine
+      ) return self.slice(0);
+    }
+
+    super
+  end
+
   def each(&block)
     return enum_for(:each){self.size} unless block_given?
 
@@ -2231,4 +2244,7 @@ class Array < `Array`
   def instance_variables
     super.reject { |ivar| `/^@\d+$/.test(#{ivar})` || ivar == '@length' }
   end
+
+  Opal.pristine self, :allocate, :copy_instance_variables, :initialize_dup
 end
+

data/opal/corelib/basic_object.rb

@@ -54,7 +54,7 @@ class BasicObject
       default_eval_options = { file: (file || '(eval)'), eval: true }
       compiling_options = __OPAL_COMPILER_CONFIG__.merge(default_eval_options)
       compiled = Opal.compile string, compiling_options
-      block = Kernel.lambda do
+      block = Kernel.proc do
         %x{
           return (function(self) {
             return eval(compiled);

data/opal/corelib/class.rb

@@ -47,4 +47,19 @@ class Class
   def superclass
     `self.$$super || nil`
   end
+
+  def to_s
+    %x{
+      var singleton_of = self.$$singleton_of;
+
+      if (singleton_of && (singleton_of.$$is_class || singleton_of.$$is_module)) {
+        return #{"#<Class:#{`singleton_of`.name}>"};
+      }
+      else if (singleton_of) {
+        // a singleton class created from an object
+        return #{"#<Class:#<#{`singleton_of.$$class`.name}:0x#{`singleton_of.$$id`.to_s(16)}>>"};
+      }
+      return #{super()};
+    }
+  end
 end

data/opal/corelib/constants.rb

@@ -1,7 +1,7 @@
 RUBY_PLATFORM       = 'opal'
 RUBY_ENGINE         = 'opal'
 RUBY_VERSION        = '2.2.3'
-RUBY_ENGINE_VERSION = '0.10.0.beta3'
+RUBY_ENGINE_VERSION = '0.10.0.beta4'
 RUBY_RELEASE_DATE   = '2015-12-20'
 RUBY_PATCHLEVEL     = 0
 RUBY_REVISION       = 0

data/opal/corelib/enumerable.rb

@@ -1,13 +1,10 @@
 module Enumerable
   def all?(&block)
-    result = true
-
     if block_given?
 
       each do |*value|
         unless yield(*value)
-          result = false
-          break
+          return false
         end
       end
 
@@ -15,25 +12,21 @@ module Enumerable
 
       each do |*value|
         unless Opal.destructure(value)
-          result = false
-          break
+          return false
         end
       end
 
     end
 
-    result
+    true
   end
 
   def any?(&block)
-    result = false
-
     if block_given?
 
       each do |*value|
         if yield(*value)
-          result = true
-          break
+          return true
         end
       end
 
@@ -41,14 +34,13 @@ module Enumerable
 
       each do |*value|
         if Opal.destructure(value)
-          result = true
-          break
+          return true
         end
       end
 
     end
 
-    result
+    false
   end
 
   def chunk(state = undefined, &original_block)
@@ -204,28 +196,25 @@ module Enumerable
 
   def detect(ifnone = undefined, &block)
     return enum_for :detect, ifnone unless block_given?
-    result = `undefined`
 
     each do |*args|
       value = Opal.destructure(args)
       if yield(value)
-        result = value
-        break
+        return value
       end
     end
 
     %x{
-      if (result === undefined && ifnone !== undefined) {
+      if (ifnone !== undefined) {
         if (typeof(ifnone) === 'function') {
-          result = ifnone();
-        }
-        else {
-          result = ifnone;
+          return ifnone();
+        } else {
+          return ifnone;
         }
       }
-
-      return result === undefined ? nil : result;
     }
+
+    nil
   end
 
   def drop(number)
@@ -470,14 +459,12 @@ module Enumerable
   def find_index(object = undefined, &block)
     return enum_for :find_index if `object === undefined && block === nil`
 
-    result = nil
     index = 0
 
     if `object != null`
       each do |*value|
         if Opal.destructure(value) == object
-          result = index
-          break
+          return index
         end
 
         `index += 1`
@@ -485,23 +472,20 @@ module Enumerable
     else
       each do |*value|
         if yield(*value)
-          result = index
-          break
+          return index
         end
 
         `index += 1`
       end
     end
 
-    result
+    nil
   end
 
   def first(number = undefined)
     if `number === undefined`
-      result = nil
       each do |value|
-        result = value
-        break
+        return value
       end
     else
       result = []
@@ -521,12 +505,12 @@ module Enumerable
         `result.push(#{Opal.destructure(args)})`
 
         if `number <= ++current`
-          break
+          return result
         end
       end
-    end
 
-    result
+      result
+    end
   end
 
   alias flat_map collect_concat
@@ -590,15 +574,13 @@ module Enumerable
   end
 
   def include?(obj)
-    result = false
     each do |*args|
       if Opal.destructure(args) == obj
-        result = true
-        break
+        return true
       end
     end
 
-    result
+    false
   end
 
   def inject(object = undefined, sym = undefined, &block)
@@ -848,14 +830,11 @@ module Enumerable
   end
 
   def none?(&block)
-    result = true
-
     if block_given?
 
       each do |*value|
         if yield(*value)
-          result = false
-          break
+          return false
         end
       end
 
@@ -863,29 +842,25 @@ module Enumerable
 
       each do |*value|
         if Opal.destructure(value)
-          result = false
-          break
+          return false
         end
       end
 
     end
 
-    result
+    true
   end
 
   def one?(&block)
-    result = false
+    count = 0
 
     if block_given?
 
       each do |*value|
         if yield(*value)
-          if result
-            result = false
-            break
-          end
+          count += 1
 
-          result = true
+          return false if count > 1
         end
       end
 
@@ -893,18 +868,15 @@ module Enumerable
 
       each do |*value|
         if Opal.destructure(value)
-          if result
-            result = false
-            break
-          end
+          count += 1
 
-          result = true
+          return false if count > 1
         end
       end
 
     end
 
-    result
+    count == 1
   end
 
   def partition(&block)
@@ -1066,13 +1038,11 @@ module Enumerable
       value = Opal.destructure(args)
 
       unless yield(value)
-        break
+        return result
       end
 
       `result.push(value)`
     end
-
-    result
   end
 
   alias to_a entries

data/opal/corelib/file.rb

@@ -2,6 +2,8 @@ class File < IO
   Separator = SEPARATOR = '/'
   ALT_SEPARATOR = nil
   PATH_SEPARATOR = ':'
+  # Assuming case insenstive filesystem
+  FNM_SYSCASE = 0
 
   class << self
     def expand_path(path, basedir = nil)

data/opal/corelib/helpers.rb

@@ -72,7 +72,10 @@ module Opal
         return args;
       }
       else {
-        return $slice.call(args);
+        var args_ary = new Array(args.length);
+        for(var i = 0, l = args_ary.length; i < l; i++) { args_ary[i] = args[i]; }
+
+        return args_ary;
       }
     }
   end
@@ -123,4 +126,41 @@ module Opal
 
     const_name
   end
+
+  # @private
+  # Mark some methods as pristine in order to apply optimizations when they
+  # are still in their original form. This could probably be moved to
+  # the `Opal.def()` JS API, but for now it will stay manual.
+  #
+  # @example
+  #
+  #   Opal.pristine Array, :allocate, :copy_instance_variables, :initialize_dup
+  #
+  #   class Array
+  #     def dup
+  #       %x{
+  #         if (
+  #           self.$allocate.$$pristine &&
+  #           self.$copy_instance_variables.$$pristine &&
+  #           self.$initialize_dup.$$pristine
+  #         ) return self.slice(0);
+  #       }
+  #
+  #       super
+  #     end
+  #   end
+  #
+  # @param owner_class [Class] the class owning the methods
+  # @param method_names [Array<Symbol>] the list of methods names to mark
+  # @return [nil]
+  def self.pristine owner_class, *method_names
+    %x{
+      var method_name;
+      for (var i = method_names.length - 1; i >= 0; i--) {
+        method_name = method_names[i];
+        owner_class.$$proto['$'+method_name].$$pristine = true
+      }
+    }
+    nil
+  end
 end

data/opal/corelib/module.rb

@@ -389,32 +389,32 @@ class Module
 
     self
   end
-  
+
   def included_modules
     %x{
       var results;
-      
+
       var module_chain = function(klass) {
         var included = [];
-        
+
         for (var i = 0; i != klass.$$inc.length; i++) {
           var mod_or_class = klass.$$inc[i];
           included.push(mod_or_class);
           included = included.concat(module_chain(mod_or_class));
         }
-        
+
         return included;
       };
-              
+
       results = module_chain(self);
-      
+
       // need superclass's modules
       if (self.$$is_class) {
           for (var cls = self; cls; cls = cls.$$super) {
             results = results.concat(module_chain(cls));
           }
       }
-      
+
       return results;
     }
   end
@@ -486,7 +486,7 @@ class Module
 
   def included(mod)
   end
-  
+
   def extended(mod)
   end
 
@@ -499,8 +499,24 @@ class Module
   def method_undefined(*)
   end
 
-  def module_eval(&block)
-    raise ArgumentError, 'no block given' unless block
+  def module_eval(*args, &block)
+    if block.nil? && `!!Opal.compile`
+      Kernel.raise ArgumentError, "wrong number of arguments (0 for 1..3)" unless (1..3).cover? args.size
+
+      string, file, _lineno = *args
+      default_eval_options = { file: (file || '(eval)'), eval: true }
+      compiling_options = __OPAL_COMPILER_CONFIG__.merge(default_eval_options)
+      compiled = Opal.compile string, compiling_options
+      block = Kernel.proc do
+        %x{
+          return (function(self) {
+            return eval(compiled);
+          })(self)
+        }
+      end
+    elsif args.size > 0
+      Kernel.raise ArgumentError, "wrong number of arguments (#{args.size} for 0)"
+    end
 
     %x{
       var old = block.$$s,