opal 1.3.2 → 1.4.0.alpha1

data/opal/corelib/basic_object.rb

@@ -1,4 +1,6 @@
-class BasicObject
+# use_strict: true
+
+class ::BasicObject
   def initialize(*)
   end
 
@@ -17,7 +19,7 @@ class BasicObject
       if (self.$$id != null) {
         return self.$$id;
       }
-      Opal.defineProperty(self, '$$id', Opal.uid());
+      Opal.prop(self, '$$id', Opal.uid());
       return self.$$id;
     }
   end
@@ -63,12 +65,11 @@ class BasicObject
       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)
-        }
+        %x{new Function("Opal,self", "return " + compiled)(Opal, self)}
       end
+    elsif block.nil? && args.length >= 1 && args.first[0] == '@'
+      # get instance variable
+      return instance_variable_get(args.first)
     elsif args.any?
       ::Kernel.raise ::ArgumentError, "wrong number of arguments (#{args.size} for 0)"
     end
@@ -139,15 +140,14 @@ class BasicObject
   end
 
   def method_missing(symbol, *args, &block)
-    message = if `self.$inspect && !self.$inspect.$$stub`
-                "undefined method `#{symbol}' for #{inspect}:#{`self.$$class`}"
-              else
-                "undefined method `#{symbol}' for #{`self.$$class`}"
-              end
-
-    ::Kernel.raise ::NoMethodError.new(message, symbol)
+    inspect_result = ::Opal.inspect(self)
+    ::Kernel.raise ::NoMethodError.new(
+      "undefined method `#{symbol}' for #{inspect_result}", symbol, args
+    ), nil, ::Kernel.caller(1)
   end
 
+  ::Opal.pristine(self, :method_missing)
+
   def respond_to_missing?(method_name, include_all = false)
     false
   end

data/opal/corelib/binding.rb

@@ -1,4 +1,4 @@
-class Binding
+class ::Binding
   # @private
   def initialize(jseval, scope_variables, receiver, source_location)
     @jseval, @scope_variables, @receiver, @source_location = \
@@ -9,14 +9,14 @@ class Binding
     if @jseval
       @jseval.call(*args)
     else
-      raise 'Evaluation on a Proc#binding is not supported'
+      ::Kernel.raise 'Evaluation on a Proc#binding is not supported'
     end
   end
 
   def local_variable_get(symbol)
     js_eval(symbol)
-  rescue Exception
-    raise NameError, "local variable `#{symbol}' is not defined for #{inspect}"
+  rescue ::Exception
+    ::Kernel.raise ::NameError, "local variable `#{symbol}' is not defined for #{inspect}"
   end
 
   def local_variable_set(symbol, value)
@@ -34,15 +34,15 @@ class Binding
   def eval(str, file = nil, line = nil)
     return receiver if str == 'self'
 
-    Kernel.eval(str, self, file, line)
+    ::Kernel.eval(str, self, file, line)
   end
 
   attr_reader :receiver, :source_location
 end
 
-module Kernel
+module ::Kernel
   def binding
-    raise "Opal doesn't support dynamic calls to binding"
+    ::Kernel.raise "Opal doesn't support dynamic calls to binding"
   end
 end
 

data/opal/corelib/boolean.rb

@@ -1,5 +1,7 @@
-class Boolean < `Boolean`
-  `Opal.defineProperty(self.$$prototype, '$$is_boolean', true)`
+# use_strict: true
+
+class ::Boolean < `Boolean`
+  `Opal.prop(self.$$prototype, '$$is_boolean', true)`
 
   %x{
     var properties = ['$$class', '$$meta'];
@@ -29,7 +31,7 @@ class Boolean < `Boolean`
 
   class << self
     def allocate
-      raise TypeError, "allocator undefined for #{name}"
+      ::Kernel.raise ::TypeError, "allocator undefined for #{name}"
     end
 
     undef :new
@@ -39,8 +41,6 @@ class Boolean < `Boolean`
     `self.valueOf() ? 2 : 0`
   end
 
-  alias object_id __id__
-
   def !
     `self != true`
   end
@@ -61,9 +61,6 @@ class Boolean < `Boolean`
     `(self == true) === other.valueOf()`
   end
 
-  alias equal? ==
-  alias eql? ==
-
   def singleton_class
     `self.$$meta`
   end
@@ -72,8 +69,6 @@ class Boolean < `Boolean`
     `(self == true) ? 'true' : 'false'`
   end
 
-  alias inspect to_s
-
   def dup
     self
   end
@@ -104,10 +99,12 @@ class Boolean < `Boolean`
     `var body = self.$$class.$$prototype['$' + #{method}]`
     `typeof body !== 'undefined' && !body.$$stub`
   end
-end
 
-class TrueClass < Boolean; end
-class FalseClass < Boolean; end
+  alias eql? ==
+  alias equal? ==
+  alias inspect to_s
+  alias object_id __id__
+end
 
-TRUE  = true
-FALSE = false
+class ::TrueClass < ::Boolean; end
+class ::FalseClass < ::Boolean; end

data/opal/corelib/class.rb

@@ -1,6 +1,6 @@
 require 'corelib/module'
 
-class Class
+class ::Class
   def self.new(superclass = Object, &block)
     %x{
       if (!superclass.$$is_class) {
@@ -22,6 +22,10 @@ class Class
     }
   end
 
+  def descendants
+    subclasses + subclasses.map(&:descendants).flatten
+  end
+
   def inherited(cls)
   end
 
@@ -41,6 +45,24 @@ class Class
     }
   end
 
+  def subclasses
+    %x{
+      if (typeof WeakRef !== 'undefined') {
+        var i, subclass, out = [];
+        for (i = 0; i < self.$$subclasses.length; i++) {
+          subclass = self.$$subclasses[i].deref();
+          if (subclass !== undefined) {
+            out.push(subclass);
+          }
+        }
+        return out;
+      }
+      else {
+        return self.$$subclasses;
+      }
+    }
+  end
+
   def superclass
     `self.$$super || nil`
   end

data/opal/corelib/comparable.rb

@@ -1,6 +1,6 @@
-# helpers: falsy
+# helpers: truthy
 
-module Comparable
+module ::Comparable
   %x{
     function normalize(what) {
       if (Opal.is_a(what, Opal.Integer)) { return what; }
@@ -14,18 +14,18 @@ module Comparable
       var class_name;
       #{
         case `rhs`
-        when nil, true, false, Integer, Float
+        when nil, true, false, ::Integer, ::Float
           `class_name = rhs.$inspect()`
         else
           `class_name = rhs.$$class`
         end
       }
-      #{raise ArgumentError, "comparison of #{`lhs`.class} with #{`class_name`} failed"}
+      #{::Kernel.raise ::ArgumentError, "comparison of #{`lhs`.class} with #{`class_name`} failed"}
     }
 
     function cmp_or_fail(lhs, rhs) {
       var cmp = #{`lhs` <=> `rhs`};
-      if ($falsy(cmp)) fail_comparison(lhs, rhs);
+      if (!$truthy(cmp)) fail_comparison(lhs, rhs);
       return normalize(cmp);
     }
   }
@@ -81,7 +81,7 @@ module Comparable
         // provide a single Range argument instead of 2 Comparables.
 
         if (!Opal.is_a(min, Opal.Range)) {
-          #{raise TypeError, "wrong argument type #{min.class} (expected Range)"}
+          #{::Kernel.raise ::TypeError, "wrong argument type #{min.class} (expected Range)"}
         }
 
         excl = min.excl;
@@ -89,12 +89,12 @@ module Comparable
         min = min.begin;
 
         if (max !== nil && excl) {
-          #{raise ArgumentError, 'cannot clamp with an exclusive range'}
+          #{::Kernel.raise ::ArgumentError, 'cannot clamp with an exclusive range'}
         }
       }
 
       if (min !== nil && max !== nil && cmp_or_fail(min, max) > 0) {
-        #{raise ArgumentError, 'min argument must be smaller than max argument'}
+        #{::Kernel.raise ::ArgumentError, 'min argument must be smaller than max argument'}
       }
 
       if (min !== nil) {

data/opal/corelib/complex/base.rb

@@ -1,4 +1,4 @@
-module Kernel
+module ::Kernel
   def Complex(real, imag = nil)
     if imag
       Complex.new(real, imag)
@@ -8,7 +8,7 @@ module Kernel
   end
 end
 
-class String
+class ::String
   def to_c
     Complex.from_string(self)
   end

data/opal/corelib/complex.rb

@@ -1,25 +1,21 @@
 require 'corelib/numeric'
 require 'corelib/complex/base'
 
-class Complex < Numeric
+class ::Complex < ::Numeric
   def self.rect(real, imag = 0)
-    unless Numeric === real && real.real? && Numeric === imag && imag.real?
-      raise TypeError, 'not a real'
+    unless ::Numeric === real && real.real? && ::Numeric === imag && imag.real?
+      ::Kernel.raise ::TypeError, 'not a real'
     end
 
     new(real, imag)
   end
 
-  class << self
-    alias rectangular rect
-  end
-
   def self.polar(r, theta = 0)
-    unless Numeric === r && r.real? && Numeric === theta && theta.real?
-      raise TypeError, 'not a real'
+    unless ::Numeric === r && r.real? && ::Numeric === theta && theta.real?
+      ::Kernel.raise ::TypeError, 'not a real'
     end
 
-    new(r * Math.cos(theta), r * Math.sin(theta))
+    new(r * ::Math.cos(theta), r * ::Math.sin(theta))
   end
 
   attr_reader :real, :imag
@@ -30,19 +26,19 @@ class Complex < Numeric
   end
 
   def coerce(other)
-    if Complex === other
+    if ::Complex === other
       [other, self]
-    elsif Numeric === other && other.real?
-      [Complex.new(other, 0), self]
+    elsif ::Numeric === other && other.real?
+      [::Complex.new(other, 0), self]
     else
-      raise TypeError, "#{other.class} can't be coerced into Complex"
+      ::Kernel.raise ::TypeError, "#{other.class} can't be coerced into Complex"
     end
   end
 
   def ==(other)
-    if Complex === other
+    if ::Complex === other
       @real == other.real && @imag == other.imag
-    elsif Numeric === other && other.real?
+    elsif ::Numeric === other && other.real?
       @real == other && @imag == 0
     else
       other == self
@@ -50,51 +46,51 @@ class Complex < Numeric
   end
 
   def -@
-    Complex(-@real, -@imag)
+    ::Kernel.Complex(-@real, -@imag)
   end
 
   def +(other)
-    if Complex === other
-      Complex(@real + other.real, @imag + other.imag)
-    elsif Numeric === other && other.real?
-      Complex(@real + other, @imag)
+    if ::Complex === other
+      ::Kernel.Complex(@real + other.real, @imag + other.imag)
+    elsif ::Numeric === other && other.real?
+      ::Kernel.Complex(@real + other, @imag)
     else
       __coerced__ :+, other
     end
   end
 
   def -(other)
-    if Complex === other
-      Complex(@real - other.real, @imag - other.imag)
-    elsif Numeric === other && other.real?
-      Complex(@real - other, @imag)
+    if ::Complex === other
+      ::Kernel.Complex(@real - other.real, @imag - other.imag)
+    elsif ::Numeric === other && other.real?
+      ::Kernel.Complex(@real - other, @imag)
     else
       __coerced__ :-, other
     end
   end
 
   def *(other)
-    if Complex === other
-      Complex(@real * other.real - @imag * other.imag,
+    if ::Complex === other
+      ::Kernel.Complex(@real * other.real - @imag * other.imag,
         @real * other.imag + @imag * other.real,
       )
-    elsif Numeric === other && other.real?
-      Complex(@real * other, @imag * other)
+    elsif ::Numeric === other && other.real?
+      ::Kernel.Complex(@real * other, @imag * other)
     else
       __coerced__ :*, other
     end
   end
 
   def /(other)
-    if Complex === other
-      if (Number === @real && @real.nan?) || (Number === @imag && @imag.nan?) ||
-         (Number === other.real && other.real.nan?) || (Number === other.imag && other.imag.nan?)
-        Complex.new(Float::NAN, Float::NAN)
+    if ::Complex === other
+      if (::Number === @real && @real.nan?) || (::Number === @imag && @imag.nan?) ||
+         (::Number === other.real && other.real.nan?) || (::Number === other.imag && other.imag.nan?)
+        ::Complex.new(::Float::NAN, ::Float::NAN)
       else
         self * other.conj / other.abs2
       end
-    elsif Numeric === other && other.real?
-      Complex(@real.quo(other), @imag.quo(other))
+    elsif ::Numeric === other && other.real?
+      ::Kernel.Complex(@real.quo(other), @imag.quo(other))
     else
       __coerced__ :/, other
     end
@@ -102,18 +98,18 @@ class Complex < Numeric
 
   def **(other)
     if other == 0
-      return Complex.new(1, 0)
+      return ::Complex.new(1, 0)
     end
 
-    if Complex === other
+    if ::Complex === other
       r, theta = polar
       ore      = other.real
       oim      = other.imag
-      nr       = Math.exp(ore * Math.log(r) - oim * theta)
-      ntheta   = theta * ore + oim * Math.log(r)
+      nr       = ::Math.exp(ore * ::Math.log(r) - oim * theta)
+      ntheta   = theta * ore + oim * ::Math.log(r)
 
-      Complex.polar(nr, ntheta)
-    elsif Integer === other
+      ::Complex.polar(nr, ntheta)
+    elsif ::Integer === other
       if other > 0
         x = self
         z = x
@@ -122,7 +118,7 @@ class Complex < Numeric
         while n != 0
           div, mod = n.divmod(2)
           while mod == 0
-            x = Complex(x.real * x.real - x.imag * x.imag, 2 * x.real * x.imag)
+            x = ::Kernel.Complex(x.real * x.real - x.imag * x.imag, 2 * x.real * x.imag)
             n = div
             div, mod = n.divmod(2)
           end
@@ -133,19 +129,19 @@ class Complex < Numeric
 
         z
       else
-        (Rational.new(1, 1) / self)**-other
+        (::Rational.new(1, 1) / self)**-other
       end
-    elsif Float === other || Rational === other
+    elsif ::Float === other || ::Rational === other
       r, theta = polar
 
-      Complex.polar(r**other, theta * other)
+      ::Complex.polar(r**other, theta * other)
     else
       __coerced__ :**, other
     end
   end
 
   def abs
-    Math.hypot(@real, @imag)
+    ::Math.hypot(@real, @imag)
   end
 
   def abs2
@@ -153,30 +149,24 @@ class Complex < Numeric
   end
 
   def angle
-    Math.atan2(@imag, @real)
+    ::Math.atan2(@imag, @real)
   end
 
-  alias arg angle
-
   def conj
-    Complex(@real, -@imag)
+    ::Kernel.Complex(@real, -@imag)
   end
 
-  alias conjugate conj
-
   def denominator
     @real.denominator.lcm(@imag.denominator)
   end
 
-  alias divide /
-
   def eql?(other)
     Complex === other && @real.class == @imag.class && self == other
   end
 
   def fdiv(other)
-    unless Numeric === other
-      raise TypeError, "#{other.class} can't be coerced into Complex"
+    unless ::Numeric === other
+      ::Kernel.raise ::TypeError, "#{other.class} can't be coerced into Complex"
     end
 
     self / other
@@ -190,8 +180,6 @@ class Complex < Numeric
     "Complex:#{@real}:#{@imag}"
   end
 
-  alias imaginary imag
-
   def infinite?
     @real.infinite? || @imag.infinite?
   end
@@ -200,37 +188,27 @@ class Complex < Numeric
     "(#{self})"
   end
 
-  alias magnitude abs
-
-  undef negative?
-
   def numerator
     d = denominator
 
-    Complex(@real.numerator * (d / @real.denominator),
+    ::Kernel.Complex(@real.numerator * (d / @real.denominator),
       @imag.numerator * (d / @imag.denominator),
     )
   end
 
-  alias phase arg
-
   def polar
     [abs, arg]
   end
 
-  undef positive?
-
-  alias quo /
-
   def rationalize(eps = undefined)
     %x{
       if (arguments.length > 1) {
-        #{raise ArgumentError, "wrong number of arguments (#{`arguments.length`} for 0..1)"};
+        #{::Kernel.raise ::ArgumentError, "wrong number of arguments (#{`arguments.length`} for 0..1)"};
       }
     }
 
     if @imag != 0
-      raise RangeError, "can't' convert #{self} into Rational"
+      ::Kernel.raise ::RangeError, "can't convert #{self} into Rational"
     end
 
     real.rationalize(eps)
@@ -244,13 +222,9 @@ class Complex < Numeric
     [@real, @imag]
   end
 
-  alias rectangular rect
-
-  undef step
-
   def to_f
     unless @imag == 0
-      raise RangeError, "can't convert #{self} into Float"
+      ::Kernel.raise ::RangeError, "can't convert #{self} into Float"
     end
 
     @real.to_f
@@ -258,7 +232,7 @@ class Complex < Numeric
 
   def to_i
     unless @imag == 0
-      raise RangeError, "can't convert #{self} into Integer"
+      ::Kernel.raise ::RangeError, "can't convert #{self} into Integer"
     end
 
     @real.to_i
@@ -266,7 +240,7 @@ class Complex < Numeric
 
   def to_r
     unless @imag == 0
-      raise RangeError, "can't convert #{self} into Rational"
+      ::Kernel.raise ::RangeError, "can't convert #{self} into Rational"
     end
 
     @real.to_r
@@ -276,7 +250,7 @@ class Complex < Numeric
     result = @real.inspect
 
     result +=
-      if (Number === @imag && @imag.nan?) || @imag.positive? || @imag.zero?
+      if (::Number === @imag && @imag.nan?) || @imag.positive? || @imag.zero?
         '+'
       else
         '-'
@@ -284,7 +258,7 @@ class Complex < Numeric
 
     result += @imag.abs.inspect
 
-    if Number === @imag && (@imag.nan? || @imag.infinite?)
+    if ::Number === @imag && (@imag.nan? || @imag.infinite?)
       result += '*'
     end
 
@@ -321,7 +295,7 @@ class Complex < Numeric
 
             if (isFloat()) {
               var denominator = parseFloat(cutFloat());
-              return #{Rational(`numerator`, `denominator`)};
+              return #{::Kernel.Rational(`numerator`, `denominator`)};
             } else {
               // reverting '/'
               str = '/' + str;
@@ -341,33 +315,50 @@ class Complex < Numeric
       if (!real) {
         if (str[0] === 'i') {
           // i => Complex(0, 1)
-          return #{Complex(0, 1)};
+          return #{::Kernel.Complex(0, 1)};
         }
         if (str[0] === '-' && str[1] === 'i') {
           // -i => Complex(0, -1)
-          return #{Complex(0, -1)};
+          return #{::Kernel.Complex(0, -1)};
         }
         if (str[0] === '+' && str[1] === 'i') {
           // +i => Complex(0, 1)
-          return #{Complex(0, 1)};
+          return #{::Kernel.Complex(0, 1)};
         }
         // anything => Complex(0, 0)
-        return #{Complex(0, 0)};
+        return #{::Kernel.Complex(0, 0)};
       }
 
       imag = cutNumber();
       if (!imag) {
         if (str[0] === 'i') {
           // 3i => Complex(0, 3)
-          return #{Complex(0, `real`)};
+          return #{::Kernel.Complex(0, `real`)};
         } else {
           // 3 => Complex(3, 0)
-          return #{Complex(`real`, 0)};
+          return #{::Kernel.Complex(`real`, 0)};
         }
       } else {
         // 3+2i => Complex(3, 2)
-        return #{Complex(`real`, `imag`)};
+        return #{::Kernel.Complex(`real`, `imag`)};
       }
     }
   end
+
+  class << self
+    alias rectangular rect
+  end
+
+  alias arg angle
+  alias conjugate conj
+  alias divide /
+  alias imaginary imag
+  alias magnitude abs
+  alias phase arg
+  alias quo /
+  alias rectangular rect
+
+  undef negative?
+  undef positive?
+  undef step
 end

data/opal/corelib/constants.rb

@@ -1,9 +1,9 @@
-RUBY_PLATFORM       = 'opal'
-RUBY_ENGINE         = 'opal'
-RUBY_VERSION        = '3.0.2'
-RUBY_ENGINE_VERSION = '1.3.2'
-RUBY_RELEASE_DATE   = '2021-11-10'
-RUBY_PATCHLEVEL     = 0
-RUBY_REVISION       = '0'
-RUBY_COPYRIGHT      = 'opal - Copyright (C) 2013-2021 Adam Beynon and the Opal contributors'
-RUBY_DESCRIPTION    = "opal #{RUBY_ENGINE_VERSION} (#{RUBY_RELEASE_DATE} revision #{RUBY_REVISION})"
+::RUBY_PLATFORM       = 'opal'
+::RUBY_ENGINE         = 'opal'
+::RUBY_VERSION        = '3.1.0'
+::RUBY_ENGINE_VERSION = '1.4.0.alpha1'
+::RUBY_RELEASE_DATE   = '2021-12-21'
+::RUBY_PATCHLEVEL     = 0
+::RUBY_REVISION       = '0'
+::RUBY_COPYRIGHT      = 'opal - Copyright (C) 2013-2021 Adam Beynon and the Opal contributors'
+::RUBY_DESCRIPTION    = "opal #{::RUBY_ENGINE_VERSION} (#{::RUBY_RELEASE_DATE} revision #{::RUBY_REVISION})"