opal 0.10.0 → 0.11.0

data/opal/corelib/string/encoding.rb

@@ -1,30 +1,26 @@
 require 'corelib/string'
 
 class Encoding
+  self.JS['$$register'] = `{}`
+
   def self.register(name, options = {}, &block)
     names    = [name] + (options[:aliases] || [])
     encoding = Class.new(self, &block).
       new(name, names, options[:ascii] || false, options[:dummy] || false)
 
-    names.each {|name|
+    register = self.JS['$$register']
+    names.each do |name|
       const_set name.sub('-', '_'), encoding
-    }
+      register.JS["$$#{name}"] = encoding
+    end
   end
 
   def self.find(name)
-    upcase = name.upcase
-
-    constants.each {|const|
-      encoding = const_get(const)
-
-      next unless Encoding === encoding
-
-      if encoding.name == upcase || encoding.names.include?(upcase)
-        return encoding
-      end
-    }
-
-    raise ArgumentError, "unknown encoding name - #{name}"
+    return default_external if name == :default_external
+    register = self.JS['$$register']
+    encoding = register.JS["$$#{name}"] || register.JS["$$#{name.upcase}"]
+    raise ArgumentError, "unknown encoding name - #{name}" unless encoding
+    encoding
   end
 
   class << self
@@ -93,8 +89,8 @@ Encoding.register "UTF-8", aliases: ["CP65001"], ascii: true do
     }
   end
 
-  def bytesize
-    bytes.length
+  def bytesize(string)
+    string.bytes.length
   end
 end
 
@@ -110,22 +106,58 @@ Encoding.register "UTF-16LE" do
     }
   end
 
-  def bytesize
-    bytes.length
+  def bytesize(string)
+    string.bytes.length
   end
 end
 
-Encoding.register "ASCII-8BIT", aliases: ["BINARY"], ascii: true do
+Encoding.register "UTF-16BE" do
   def each_byte(string, &block)
     %x{
       for (var i = 0, length = string.length; i < length; i++) {
-        #{yield `string.charCodeAt(i) & 0xff`};
+        var code = string.charCodeAt(i);
+
+        #{yield `code >> 8`};
+        #{yield `code & 0xff`};
       }
     }
   end
 
-  def bytesize
-    bytes.length
+  def bytesize(string)
+    string.bytes.length
+  end
+end
+
+Encoding.register "UTF-32LE" do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        var code = string.charCodeAt(i);
+
+        #{yield `code & 0xff`};
+        #{yield `code >> 8`};
+      }
+    }
+  end
+
+  def bytesize(string)
+    string.bytes.length
+  end
+end
+
+Encoding.register "ASCII-8BIT", aliases: ["BINARY", "US-ASCII", "ASCII"], ascii: true, dummy: true do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        var code = string.charCodeAt(i);
+        #{yield `code & 0xff`};
+        #{yield `code >> 8`};
+      }
+    }
+  end
+
+  def bytesize(string)
+    string.bytes.length
   end
 end
 
@@ -157,21 +189,25 @@ class String
   end
 
   def force_encoding(encoding)
-    encoding = Opal.coerce_to!(encoding, String, :to_str)
-    encoding = Encoding.find(encoding)
+    %x{
+      if (encoding === self.encoding) { return self; }
 
-    return self if encoding == @encoding
-    raise ArgumentError, "unknown encoding name - #{encoding}" if encoding.nil?
+      encoding = #{Opal.coerce_to!(encoding, String, :to_s)};
+      encoding = #{Encoding.find(encoding)};
 
-    %x{
-      var result = new String(self);
-      result.encoding = encoding;
+      if (encoding === self.encoding) { return self; }
 
-      return result;
+      self.encoding = encoding;
+      return self;
     }
   end
 
   def getbyte(idx)
     @encoding.getbyte(self, idx)
   end
+
+  # stub
+  def valid_encoding?
+    true
+  end
 end

data/opal/corelib/string/inheritance.rb

@@ -69,7 +69,7 @@ class String::Wrapper
   alias === ==
 
   def to_s
-    @literal
+    @literal.to_s
   end
 
   alias to_str to_s

data/opal/corelib/string.rb

@@ -131,7 +131,7 @@ class String < `String`
       var size = self.length, exclude;
 
       if (index.$$is_range) {
-        exclude = index.exclude;
+        exclude = index.excl;
         length  = #{Opal.coerce_to(`index.end`, Integer, :to_int)};
         index   = #{Opal.coerce_to(`index.begin`, Integer, :to_int)};
 
@@ -566,7 +566,7 @@ class String < `String`
 
   def inspect
     %x{
-      var escapable = /[\\\"\x00-\x1f\x7f-\x9f\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
+      var escapable = /[\\\"\x00-\x1f\u007F-\u009F\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
           meta = {
             '\u0007': '\\a',
             '\u001b': '\\e',
@@ -627,6 +627,10 @@ class String < `String`
     `self.replace(/^\s*/, '')`
   end
 
+  def ascii_only?
+    `self.match(/[ -~\n]*/)[0] === self`
+  end
+
   def match(pattern, pos = undefined, &block)
     if String === pattern || pattern.respond_to?(:to_str)
       pattern = Regexp.new(pattern.to_str)
@@ -957,7 +961,7 @@ class String < `String`
           string = self.toString(),
           index = 0,
           match,
-          i;
+          i, ii;
 
       if (pattern.$$is_regexp) {
         pattern = new RegExp(pattern.source, 'gm' + (pattern.ignoreCase ? 'i' : ''));
@@ -992,7 +996,7 @@ class String < `String`
 
       if (limit < 0) {
         if (match !== null && match[0] === '' && pattern.source.indexOf('(?=') === -1) {
-          for (i = 0; i < match.length; i++) {
+          for (i = 0, ii = match.length; i < ii; i++) {
             result.push('');
           }
         }
@@ -1218,13 +1222,17 @@ class String < `String`
   end
 
   def to_proc
-    # Give name to self in case this proc is passed to instance_eval
-    sym = self
+    sym = `self.valueOf()`
 
     proc do |*args, &block|
-      raise ArgumentError, "no receiver given" if args.empty?
-      obj = args.shift
-      obj.__send__(sym, *args, &block)
+      %x{
+        if (args.length === 0) {
+          #{raise ArgumentError, "no receiver given"}
+        }
+        var obj = args.shift();
+        if (obj == null) obj = nil;
+        return Opal.send(obj, sym, args, block);
+      }
     end
   end
 
@@ -1692,6 +1700,29 @@ class String < `String`
   def self._load(*args)
     self.new(*args)
   end
+
+  def unpack(pattern)
+    %x{
+      function stringToBytes(string) {
+        var i,
+            singleByte,
+            l = string.length,
+            result = [];
+
+        for (i = 0; i < l; i++) {
+          singleByte = string.charCodeAt(i);
+          result.push(singleByte);
+        }
+        return result;
+      }
+    }
+    case pattern
+    when "U*", "C*"
+      `stringToBytes(self);`
+    else
+      raise NotImplementedError
+    end
+  end
 end
 
 Symbol = String

data/opal/corelib/struct.rb

@@ -261,8 +261,23 @@ class Struct
     }
   end
 
-  def self._load(args)
-    attributes = args.values_at(*members)
-    self.new(*attributes)
+  def dig(key, *keys)
+    if `key.$$is_string && self.$$data.hasOwnProperty(key)`
+      item = `self.$$data[key] || nil`
+    else
+      item = nil
+    end
+
+    %x{
+      if (item === nil || keys.length === 0) {
+        return item;
+      }
+    }
+
+    unless item.respond_to?(:dig)
+      raise TypeError, "#{item.class} does not have #dig method"
+    end
+
+    item.dig(*keys)
   end
 end

data/opal/corelib/time.rb

@@ -279,7 +279,7 @@ class Time < `Date`
   end
 
   def ==(other)
-    `#{to_f} === #{other.to_f}`
+    Time === other && (`#{to_f} === #{other.to_f}`)
   end
 
   def asctime
@@ -391,7 +391,7 @@ class Time < `Date`
         result = string.match(/[A-Z]{3,4}/)[0];
       }
       else {
-        result = string.match(/\([^)]+\)/)[0].match(/[A-Z]/g).join('');
+        result = string.match(/\((.+)\)(?:\s|$)/)[1]
       }
 
       if (result == "GMT" && /(GMT\W*\d{4})/.test(string)) {
@@ -694,7 +694,7 @@ class Time < `Date`
     `#{wday} == 2`
   end
 
-  alias tv_sec sec
+  alias tv_sec to_i
 
   alias tv_usec usec
 

data/opal/corelib/variables.rb

@@ -1,5 +1,5 @@
 # regexp matches
-$& = $~ = $` = $' = nil
+%x{$gvars['&'] = $gvars['~'] = $gvars['`'] = $gvars["'"] = nil}
 
 # requires
 $LOADED_FEATURES = $" = `Opal.loaded_features`

data/opal/opal.rb

@@ -13,5 +13,6 @@ require 'corelib/main'
 require 'corelib/dir'
 require 'corelib/file'
 require 'corelib/process'
+require 'corelib/random'
 
 require 'corelib/unsupported'

data/opal.gemspec

@@ -1,38 +1,41 @@
-# coding: utf-8
 lib = File.expand_path('../lib', __FILE__)
 $LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
 require 'opal/version'
 
-Gem::Specification.new do |s|
-  s.name         = 'opal'
-  s.version      = Opal::VERSION
-  s.author       = 'Adam Beynon'
-  s.email        = 'adam.beynon@gmail.com'
-  s.homepage     = 'http://opalrb.org'
-  s.summary      = 'Ruby runtime and core library for JavaScript'
-  s.description  = 'Ruby runtime and core library for JavaScript.'
-  s.license      = 'MIT'
+Gem::Specification.new do |spec|
+  spec.name         = 'opal'
+  spec.version      = Opal::VERSION
+  spec.author       = ['Elia Schito', 'meh.', 'Adam Beynon']
+  spec.email        = ['elia@schito.me', 'meh@schizofreni.co']
 
-  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']
+  spec.summary      = %{Ruby runtime and core library for JavaScript}
+  spec.description  = %{Opal is a Ruby to JavaScript compiler. It is source-to-source, making it fast as a runtime. Opal includes a compiler (which can be run in any browser), a corelib and runtime implementation. The corelib/runtime is also very small.}
+  spec.homepage     = 'https://opalrb.com'
+  spec.license      = 'MIT'
 
-  s.required_ruby_version = '>= 1.9.3'
+  spec.files         = Dir.chdir(File.expand_path('..', __FILE__)) do
+    `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  end
+  spec.bindir        = 'exe'
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ['lib']
 
-  s.add_dependency 'sourcemap', '~> 0.1.0'
-  s.add_dependency 'sprockets', '~> 3.1'
-  s.add_dependency 'hike', '~> 1.2'
-  s.add_dependency 'tilt', '>= 1.4'
+  spec.required_ruby_version = '>= 2.0.0'
 
-  s.add_development_dependency 'mspec', '1.5.20'
-  s.add_development_dependency 'rake'
-  s.add_development_dependency 'racc'
-  s.add_development_dependency 'rspec', '~> 2.99'
-  s.add_development_dependency 'octokit', '~> 2.4.0'
-  s.add_development_dependency 'bundler', '~> 1.5'
-  s.add_development_dependency 'yard', '~> 0.8.7'
-  s.add_development_dependency 'rack-test'
-  s.add_development_dependency 'opal-minitest'
-  s.add_development_dependency 'coveralls'
+  spec.add_dependency 'sourcemap', '~> 0.1.0'
+  spec.add_dependency 'hike', '~> 1.2'
+  spec.add_dependency 'ast', '>= 2.3.0'
+  spec.add_dependency 'parser', '= 2.3.3.1'
+
+  spec.add_development_dependency 'mspec', '1.5.20'
+  spec.add_development_dependency 'rake', '~> 10.0'
+  spec.add_development_dependency 'racc'
+  spec.add_development_dependency 'rspec', '~> 3.6.0'
+  spec.add_development_dependency 'octokit', '~> 2.4.0'
+  spec.add_development_dependency 'bundler', '~> 1.5'
+  spec.add_development_dependency 'yard', '~> 0.8.7'
+  spec.add_development_dependency 'rack-test'
+  spec.add_development_dependency 'opal-minitest'
+  spec.add_development_dependency 'selenium-webdriver'
+  spec.add_development_dependency 'benchmark-ips'
 end

data/stdlib/base64.rb

@@ -76,7 +76,9 @@ module Base64
     `decode(string.replace(/\-/g, '+').replace(/_/g, '/'))`
   end
 
-  def self.urlsafe_encode64(string)
-    `encode(string).replace(/\+/g, '-').replace(/\//g, '_')`
+  def self.urlsafe_encode64(string, padding: true)
+    str = `encode(string).replace(/\+/g, '-').replace(/\//g, '_')`
+    str = str.delete("=") unless padding
+    str
   end
 end

data/stdlib/bigdecimal/bignumber.js.rb

@@ -1,6 +1,6 @@
 class BigDecimal
   %x{
-    var define = function (f) { Opal.casgn(self, 'BigNumber', f()); };
+    var define = function (f) { Opal.const_set(self, 'BigNumber', f()); };
     define.amd = true;
 
     /* jshint ignore:start */

data/stdlib/buffer/array.rb

@@ -1,6 +1,8 @@
-class Buffer < Native
+class Buffer
+
+class Array
+  include Native
 
-class Array < Native
   def self.for(bits, type)
     $$["#{Buffer.name_for bits, type}Array"]
   end

data/stdlib/date.rb

@@ -1,4 +1,6 @@
 class Date
+  include Comparable
+
   class Infinity < Numeric
     include Comparable
 
@@ -40,24 +42,26 @@ class Date
 
     def <=> (other)
       case other
-      when Infinity; return d <=> other.d
-      when Numeric; return d
-      else
-        begin
-          l, r = other.coerce(self)
-          return l <=> r
-        rescue NoMethodError
-        end
+        when Infinity;
+          return d <=> other.d
+        when Numeric;
+          return d
+        else
+          begin
+            l, r = other.coerce(self)
+            return l <=> r
+          rescue NoMethodError
+          end
       end
       nil
     end
 
     def coerce(other)
       case other
-      when Numeric
-        return -d, d
-      else
-        super
+        when Numeric
+          return -d, d
+        else
+          super
       end
     end
 
@@ -122,7 +126,7 @@ class Date
         // Converts month abbr (nov) to a month number
         function fromMonthAbbr(fn) {
           return function(match) {
-            var abbr = fn(match);
+            var abbr = fn(match).toLowerCase();
             return #{ABBR_MONTHNAMES}.indexOf(abbr) + 1;
           }
         }
@@ -419,29 +423,26 @@ class Date
         return #{self.jd <=> other}
       }
 
-      var a = #@date, b = #{other}.date;
-      a.setHours(0, 0, 0, 0);
-      b.setHours(0, 0, 0, 0);
+      if (#{Date === other}) {
+        var a = #@date, b = #{other}.date;
+        a.setHours(0, 0, 0, 0);
+        b.setHours(0, 0, 0, 0);
 
-      if (a < b) {
-        return -1;
-      }
-      else if (a > b) {
-        return 1;
-      }
-      else {
-        return 0;
+        if (a < b) {
+          return -1;
+        }
+        else if (a > b) {
+          return 1;
+        }
+        else {
+          return 0;
+        }
+      } else {
+        return nil;
       }
     }
   end
 
-  def ==(other)
-    %x{
-      var a = #@date, b = other.date;
-      return (a.getFullYear() === b.getFullYear() && a.getMonth() === b.getMonth() && a.getDate() === b.getDate());
-    }
-  end
-
   def >>(n)
     %x{
       if (!n.$$is_number) {
@@ -597,6 +598,38 @@ class Date
     wday == 2
   end
 
+  def step(limit, step = 1, &block)
+    steps_count = (limit - self).to_i
+
+    if (steps_count * step) < 0
+      steps = []
+    else
+      if steps_count < 0
+        steps = (0..-steps_count).step(step.abs).map { |i| -i } .reverse
+      else
+        steps = (0..steps_count).step(step.abs)
+      end
+    end
+
+    result = steps.map { |i| self + i }
+
+
+    if block_given?
+      result.each {|i| yield(i)}
+      self
+    else
+      result
+    end
+  end
+
+  def upto(max, &block)
+    step(max, 1, &block)
+  end
+
+  def downto(min, &block)
+    step(min, -1, &block)
+  end
+
   def wday
     `#@date.getDay()`
   end

data/stdlib/headless_chrome.rb

@@ -0,0 +1,11 @@
+%x{
+  Opal.exit = function(code) {
+    // You can't exit from the browser.
+    // The first call to Opal.exit should save an exit code.
+    // All next invocations must be ignored.
+
+    if (typeof(window.OPAL_EXIT_CODE) === "undefined") {
+      window.OPAL_EXIT_CODE = code;
+    }
+  }
+}

data/stdlib/json.rb

@@ -1,7 +1,20 @@
 module JSON
+  class JSONError < StandardError
+  end
+
+  class ParserError < JSONError
+  end
+
   %x{
-    var $parse  = JSON.parse,
-        $hasOwn = Opal.hasOwnProperty;
+    var $hasOwn = Opal.hasOwnProperty;
+
+    function $parse(source) {
+      try {
+        return JSON.parse(source);
+      } catch (e) {
+        #{raise JSON::ParserError, `e.message`};
+      }
+    };
 
     function to_opal(value, options) {
       var klass, arr, hash, i, ii, k;
@@ -41,8 +54,7 @@ module JSON
             }
 
             if (!options.parse && (klass = #{`hash`[JSON.create_id]}) != nil) {
-              klass = Opal.get(klass);
-              return #{`klass`.json_create(`hash`)};
+              return #{::Object.const_get(`klass`).json_create(`hash`)};
             }
             else {
               return hash;

data/stdlib/nashorn/file.rb

@@ -10,4 +10,19 @@ class File
         return data.join("\n");
       )
   end
+
+  def self.file? path
+    %x(
+      var Files = Java.type('java.nio.file.Files');
+      return Files.exists(path) && Files.isRegularFile(path);
+    )
+  end
+
+  def self.readable? path
+    %x(
+      var Files = Java.type('java.nio.file.Files');
+      return Files.exists(path) && Files.isReadable(path);
+    )
+  end
+
 end