opal 0.8.1 → 0.9.0.beta1

data/opal/corelib/method.rb

@@ -27,11 +27,16 @@ class Method
   end
 
   def to_proc
-    @method
+    %x{
+      var proc = function () { return self.$call.apply(self, $slice.call(arguments)); };
+      proc.$$unbound = #@method;
+      proc.$$is_lambda = true;
+      return proc;
+    }
   end
 
   def inspect
-    "#<Method: #{@obj.class}##@name}>"
+    "#<Method: #{@receiver.class}##@name>"
   end
 end
 
@@ -49,6 +54,10 @@ class UnboundMethod
   end
 
   def bind(object)
+    # TODO: re-enable when Module#< is fixed
+    # unless object.class <= @owner
+    #   raise TypeError, "can't bind singleton method to a different class"
+    # end
     Method.new(object, @method, @name)
   end
 

data/opal/corelib/module.rb

@@ -2,12 +2,12 @@ class Module
   def self.new(&block)
     %x{
       function AnonModule(){}
-      var klass      = Opal.boot(Opal.Module, AnonModule);
-      klass.$$name   = nil;
-      klass.$$class  = Opal.Module;
-      klass.$$dep    = []
-      klass.$$is_mod = true;
-      klass.$$proto  = {};
+      var klass         = Opal.boot(Opal.Module, AnonModule);
+      klass.$$name      = nil;
+      klass.$$class     = Opal.Module;
+      klass.$$dep       = []
+      klass.$$is_module = true;
+      klass.$$proto     = {};
 
       // inherit scope from parent
       Opal.create_scope(Opal.Module.$$scope, klass);
@@ -30,9 +30,14 @@ class Module
   end
 
   def <(other)
+    # class cannot be a descendant of itself
     %x{
       var working = self;
 
+      if (working === other) {
+        return false;
+      }
+
       while (working) {
         if (working === other) {
           return true;
@@ -45,25 +50,20 @@ class Module
     }
   end
 
-  def alias_method(newname, oldname)
-    %x{
-      var newjsid = '$' + newname,
-          body    = self.$$proto['$' + oldname];
+  def <=(other)
+    equal?(other) or self < other
+  end
 
-      if (self.$$is_singleton) {
-        self.$$proto[newjsid] = body;
-      }
-      else {
-        Opal.defn(self, newjsid, body);
-      }
+  def alias_method(newname, oldname)
+    `Opal.alias(self, newname, oldname)`
 
-      return self;
-    }
     self
   end
 
   def alias_native(mid, jsid = mid)
-    `self.$$proto['$' + mid] = self.$$proto[jsid]`
+    `Opal.alias_native(self, mid, jsid)`
+
+    self
   end
 
   def ancestors
@@ -73,9 +73,11 @@ class Module
 
       while (parent) {
         result.push(parent);
-        result = result.concat(parent.$$inc);
+        for (var i=0; i < parent.$$inc.length; i++) {
+          result = result.concat(parent.$$inc[i].$ancestors());
+        }
 
-        parent = parent.$$super;
+        parent = parent.$$is_class ? parent.$$super : null;
       }
 
       return result;
@@ -100,18 +102,24 @@ class Module
 
       for (var i = names.length - 1; i >= 0; i--) {
         var name = names[i],
-            id   = '$' + name;
+            id   = '$' + name,
+            ivar = Opal.ivar(name);
 
         // the closure here is needed because name will change at the next
         // cycle, I wish we could use let.
-        var body = (function(name) {
+        var body = (function(ivar) {
           return function() {
-            return this[name];
+            if (this[ivar] == null) {
+              return nil;
+            }
+            else {
+              return this[ivar];
+            }
           };
-        })(name);
+        })(ivar);
 
         // initialize the instance variable as nil
-        proto[name] = nil;
+        proto[ivar] = nil;
 
         if (self.$$is_singleton) {
           proto.constructor.prototype[id] = body;
@@ -131,18 +139,19 @@ class Module
 
       for (var i = names.length - 1; i >= 0; i--) {
         var name = names[i],
-            id   = '$' + name + '=';
+            id   = '$' + name + '=',
+            ivar = Opal.ivar(name);
 
         // the closure here is needed because name will change at the next
         // cycle, I wish we could use let.
-        var body = (function(name){
+        var body = (function(ivar){
           return function(value) {
-            return this[name] = value;
+            return this[ivar] = value;
           }
-        })(name);
+        })(ivar);
 
         // initialize the instance variable as nil
-        proto[name] = nil;
+        proto[ivar] = nil;
 
         if (self.$$is_singleton) {
           proto.constructor.prototype[id] = body;
@@ -189,7 +198,7 @@ class Module
   end
 
   def constants
-    `self.$$scope.constants`
+    `self.$$scope.constants.slice(0)`
   end
 
   # check for constant within current scope
@@ -221,10 +230,12 @@ class Module
   end
 
   def const_get(name, inherit = true)
-    if name['::'] && name != '::'
-      return name.split('::').inject(self){|o, c| o.const_get(c)}
+    if `name.indexOf('::') != -1 && name != '::'`
+      return name.split('::').inject(self) { |o, c| o.const_get(c) }
     end
-    raise NameError, "wrong constant name #{name}" unless name =~ /^[A-Z]\w*$/
+
+    raise NameError, "wrong constant name #{name}" unless `/^[A-Z]\w*$/.test(name)`
+
     %x{
       var scopes = [self.$$scope];
 
@@ -279,23 +290,26 @@ class Module
   end
 
   def define_method(name, method = undefined, &block)
-    if `method === undefined && !#{block_given?}`
+    if `method === undefined && block === nil`
       raise ArgumentError, "tried to create a Proc object without a block"
     end
 
     block ||= case method
-              when Proc
-                method
-              when Method
-                method.to_proc
-              when UnboundMethod
-                lambda do |*args|
-                  bound = method.bind(self)
-                  bound.call *args
-                end
-              else
-                raise TypeError, "wrong argument type #{block.class} (expected Proc/Method)"
-              end
+      when Proc
+        method
+
+      when Method
+        `#{method.to_proc}.$$unbound`
+
+      when UnboundMethod
+        lambda {|*args|
+          bound = method.bind(self)
+          bound.call(*args)
+        }
+
+      else
+        raise TypeError, "wrong argument type #{block.class} (expected Proc/Method)"
+    end
 
     %x{
       var id = '$' + name;
@@ -304,23 +318,26 @@ class Module
       block.$$s    = null;
       block.$$def  = block;
 
-      if (self.$$is_singleton) {
-        self.$$proto[id] = block;
-      }
-      else {
-        Opal.defn(self, id, block);
-      }
+      Opal.defn(self, id, block);
 
       return name;
     }
   end
 
-  def remove_method(name)
-    `Opal.undef(self, '$' + name)`
+  def remove_method(*names)
+    %x{
+      for (var i = 0, length = names.length; i < length; i++) {
+        Opal.rdef(self, "$" + names[i]);
+      }
+    }
 
     self
   end
 
+  def singleton_class?
+    `!!self.$$is_singleton`
+  end
+
   def include(*mods)
     %x{
       for (var i = mods.length - 1; i >= 0; i--) {
@@ -370,11 +387,11 @@ class Module
           proto   = self.$$proto;
 
       for (var prop in proto) {
-        if (!(prop.charAt(0) === '$')) {
+        if (prop.charAt(0) !== '$') {
           continue;
         }
 
-        if (!(typeof(proto[prop]) === "function")) {
+        if (typeof(proto[prop]) !== "function") {
           continue;
         }
 
@@ -382,7 +399,7 @@ class Module
           continue;
         }
 
-        if (!self.$$is_mod) {
+        if (!self.$$is_module) {
           if (self !== Opal.BasicObject && proto[prop] === Opal.BasicObject.$$proto[prop]) {
             continue;
           }
@@ -409,6 +426,15 @@ class Module
   def extended(mod)
   end
 
+  def method_added(*)
+  end
+
+  def method_removed(*)
+  end
+
+  def method_undefined(*)
+  end
+
   def module_eval(&block)
     raise ArgumentError, 'no block given' unless block
 
@@ -458,9 +484,11 @@ class Module
       }
       else {
         for (var i = 0, length = methods.length; i < length; i++) {
-          var meth = methods[i], func = self.$$proto['$' + meth];
+          var meth = methods[i],
+              id   = '$' + meth,
+              func = self.$$proto[id];
 
-          self.constructor.prototype['$' + meth] = func;
+          Opal.defs(self, id, func);
         }
       }
 
@@ -498,38 +526,6 @@ class Module
     }
   end
 
-  def public(*methods)
-    %x{
-      if (methods.length === 0) {
-        self.$$module_function = false;
-      }
-
-      return nil;
-    }
-  end
-
-  alias private public
-  alias protected public
-  alias nesting public
-
-  def private_class_method(name)
-    `self['$' + name] || nil`
-  end
-  alias public_class_method private_class_method
-
-  def private_method_defined?(obj)
-    false
-  end
-
-  def private_constant(*)
-  end
-
-  alias protected_method_defined? private_method_defined?
-
-  alias public_instance_methods instance_methods
-
-  alias public_method_defined? method_defined?
-
   def remove_class_variable(*)
   end
 
@@ -542,11 +538,15 @@ class Module
   end
 
   def to_s
-    `self.$$name` || "#<#{`self.$$is_mod ? 'Module' : 'Class'`}:0x#{__id__.to_s(16)}>"
+    `Opal.Module.$name.call(self)` || "#<#{`self.$$is_module ? 'Module' : 'Class'`}:0x#{__id__.to_s(16)}>"
   end
 
-  def undef_method(symbol)
-    `Opal.add_stub_for(self.$$proto, "$" + symbol)`
+  def undef_method(*names)
+    %x{
+      for (var i = 0, length = names.length; i < length; i++) {
+        Opal.udef(self, "$" + names[i]);
+      }
+    }
 
     self
   end

data/opal/corelib/{nil_class.rb → nil.rb}

@@ -1,4 +1,6 @@
 class NilClass
+  `def.$$meta = #{self}`
+
   def !
     true
   end
@@ -20,7 +22,11 @@ class NilClass
   end
 
   def dup
-    raise TypeError
+    raise TypeError, "can't dup #{self.class}"
+  end
+
+  def clone
+    raise TypeError, "can't clone #{self.class}"
   end
 
   def inspect
@@ -52,6 +58,19 @@ class NilClass
   def to_s
     ''
   end
+
+  def to_c
+    Complex.new(0, 0)
+  end
+
+  def rationalize(*args)
+    raise ArgumentError if args.length > 1
+    Rational(0, 1)
+  end
+
+  def to_r
+    Rational(0, 1)
+  end
 end
 
 NIL = nil

data/opal/corelib/number.rb

@@ -0,0 +1,751 @@
+require 'corelib/numeric'
+
+class Number < Numeric
+  Opal.bridge(self, `Number`)
+
+  `Number.prototype.$$is_number = true`
+
+  def coerce(other)
+    %x{
+      if (other === nil) {
+        #{raise TypeError, "can't convert #{other.class} into Float"};
+      }
+      else if (other.$$is_string) {
+        return [#{Float(other)}, self];
+      }
+      else if (#{other.respond_to?(:to_f)}) {
+        return [#{Opal.coerce_to!(other, Float, :to_f)}, self];
+      }
+      else if (other.$$is_number) {
+        return [other, self];
+      }
+      else {
+        #{raise TypeError, "can't convert #{other.class} into Float"};
+      }
+    }
+  end
+
+  def __id__
+    `(self * 2) + 1`
+  end
+
+  alias object_id __id__
+
+  def +(other)
+    %x{
+      if (other.$$is_number) {
+        return self + other;
+      }
+      else {
+        return #{__coerced__ :+, other};
+      }
+    }
+  end
+
+  def -(other)
+    %x{
+      if (other.$$is_number) {
+        return self - other;
+      }
+      else {
+        return #{__coerced__ :-, other};
+      }
+    }
+  end
+
+  def *(other)
+    %x{
+      if (other.$$is_number) {
+        return self * other;
+      }
+      else {
+        return #{__coerced__ :*, other};
+      }
+    }
+  end
+
+  def /(other)
+    %x{
+      if (other.$$is_number) {
+        return self / other;
+      }
+      else {
+        return #{__coerced__ :/, other};
+      }
+    }
+  end
+
+  alias fdiv /
+
+  def %(other)
+    %x{
+      if (other.$$is_number) {
+        if (other == -Infinity) {
+          return other;
+        }
+        else if (other == 0) {
+          #{raise ZeroDivisionError, "divided by 0"};
+        }
+        else if (other < 0 || self < 0) {
+          return (self % other + other) % other;
+        }
+        else {
+          return self % other;
+        }
+      }
+      else {
+        return #{__coerced__ :%, other};
+      }
+    }
+  end
+
+  def &(other)
+    %x{
+      if (other.$$is_number) {
+        return self & other;
+      }
+      else {
+        return #{__coerced__ :&, other};
+      }
+    }
+  end
+
+  def |(other)
+    %x{
+      if (other.$$is_number) {
+        return self | other;
+      }
+      else {
+        return #{__coerced__ :|, other};
+      }
+    }
+  end
+
+  def ^(other)
+    %x{
+      if (other.$$is_number) {
+        return self ^ other;
+      }
+      else {
+        return #{__coerced__ :^, other};
+      }
+    }
+  end
+
+  def <(other)
+    %x{
+      if (other.$$is_number) {
+        return self < other;
+      }
+      else {
+        return #{__coerced__ :<, other};
+      }
+    }
+  end
+
+  def <=(other)
+    %x{
+      if (other.$$is_number) {
+        return self <= other;
+      }
+      else {
+        return #{__coerced__ :<=, other};
+      }
+    }
+  end
+
+  def >(other)
+    %x{
+      if (other.$$is_number) {
+        return self > other;
+      }
+      else {
+        return #{__coerced__ :>, other};
+      }
+    }
+  end
+
+  def >=(other)
+    %x{
+      if (other.$$is_number) {
+        return self >= other;
+      }
+      else {
+        return #{__coerced__ :>=, other};
+      }
+    }
+  end
+
+  def <=>(other)
+    %x{
+      if (other.$$is_number) {
+        if (isNaN(self) || isNaN(other)) {
+          return nil;
+        }
+
+        return self > other ? 1 : (self < other ? -1 : 0);
+      }
+      else {
+        return #{__coerced__ :<=>, other};
+      }
+    }
+  rescue ArgumentError
+    nil
+  end
+
+  def <<(count)
+    count = Opal.coerce_to! count, Integer, :to_int
+
+    `#{count} > 0 ? self << #{count} : self >> -#{count}`
+  end
+
+  def >>(count)
+    count = Opal.coerce_to! count, Integer, :to_int
+
+    `#{count} > 0 ? self >> #{count} : self << -#{count}`
+  end
+
+  def [](bit)
+    bit = Opal.coerce_to! bit, Integer, :to_int
+
+    %x{
+      if (#{bit} < #{Integer::MIN} || #{bit} > #{Integer::MAX}) {
+        return 0;
+      }
+
+      if (self < 0) {
+        return (((~self) + 1) >> #{bit}) % 2;
+      }
+      else {
+        return (self >> #{bit}) % 2;
+      }
+    }
+  end
+
+  def +@
+    `+self`
+  end
+
+  def -@
+    `-self`
+  end
+
+  def ~
+    `~self`
+  end
+
+  def **(other)
+    if Integer === other
+      if !(Integer === self) || other > 0
+        `Math.pow(self, other)`
+      else
+        Rational.new(self, 1) ** other
+      end
+    elsif self < 0 && (Float === other || Rational === other)
+      Complex.new(self, 0) ** other.to_f
+    elsif `other.$$is_number != null`
+      `Math.pow(self, other)`
+    else
+      __coerced__ :**, other
+    end
+  end
+
+  def ==(other)
+    %x{
+      if (other.$$is_number) {
+        return self == Number(other);
+      }
+      else if (#{other.respond_to? :==}) {
+        return #{other == self};
+      }
+      else {
+        return false;
+      }
+    }
+  end
+
+  def abs
+    `Math.abs(self)`
+  end
+
+  def abs2
+    `Math.abs(self * self)`
+  end
+
+  def angle
+    return self if nan?
+
+    %x{
+      if (self == 0) {
+        if (1 / self > 0) {
+          return 0;
+        }
+        else {
+          return Math.PI;
+        }
+      }
+      else if (self < 0) {
+        return Math.PI;
+      }
+      else {
+        return 0;
+      }
+    }
+  end
+
+  alias arg angle
+  alias phase angle
+
+  def bit_length
+    unless Integer === self
+      raise NoMethodError, "undefined method `bit_length` for #{self}:Float"
+    end
+
+    %x{
+      if (self === 0 || self === -1) {
+        return 0;
+      }
+
+      var result = 0,
+          value  = self < 0 ? ~self : self;
+
+      while (value != 0) {
+        result   += 1;
+        value  >>>= 1;
+      }
+
+      return result;
+    }
+  end
+
+  def ceil
+    `Math.ceil(self)`
+  end
+
+  def chr(encoding = undefined)
+    `String.fromCharCode(self)`
+  end
+
+  def denominator
+    if nan? || infinite?
+      1
+    else
+      super
+    end
+  end
+
+  def downto(stop, &block)
+    return enum_for(:downto, stop){
+      raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed" unless Numeric === stop
+      stop > self ? 0 : self - stop + 1
+    } unless block_given?
+
+    %x{
+      if (!stop.$$is_number) {
+        #{raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed"}
+      }
+      for (var i = self; i >= stop; i--) {
+        if (block(i) === $breaker) {
+          return $breaker.$v;
+        }
+      }
+    }
+
+    self
+  end
+
+  alias eql? ==
+
+  def equal?(other)
+    self == other || `isNaN(self) && isNaN(other)`
+  end
+
+  def even?
+    `self % 2 === 0`
+  end
+
+  def floor
+    `Math.floor(self)`
+  end
+
+  def gcd(other)
+    unless Integer === other
+      raise TypeError, 'not an integer'
+    end
+
+    %x{
+      var min = Math.abs(self),
+          max = Math.abs(other);
+
+      while (min > 0) {
+        var tmp = min;
+
+        min = max % min;
+        max = tmp;
+      }
+
+      return max;
+    }
+  end
+
+  def gcdlcm(other)
+    [gcd, lcm]
+  end
+
+  def hash
+    `'Numeric:'+self.toString()`
+  end
+
+  def integer?
+    `self % 1 === 0`
+  end
+
+  def is_a?(klass)
+    return true if klass == Fixnum && Integer === self
+    return true if klass == Integer && Integer === self
+    return true if klass == Float && Float === self
+
+    super
+  end
+
+  alias kind_of? is_a?
+
+  def instance_of?(klass)
+    return true if klass == Fixnum && Integer === self
+    return true if klass == Integer && Integer === self
+    return true if klass == Float && Float === self
+
+    super
+  end
+
+  def lcm(other)
+    unless Integer === other
+      raise TypeError, 'not an integer'
+    end
+
+    %x{
+      if (self == 0 || other == 0) {
+        return 0;
+      }
+      else {
+        return Math.abs(self * other / #{gcd(other)});
+      }
+    }
+  end
+
+  alias magnitude abs
+
+  alias modulo %
+
+  def next
+    `self + 1`
+  end
+
+  def nonzero?
+    `self == 0 ? nil : self`
+  end
+
+  def numerator
+    if nan? || infinite?
+      self
+    else
+      super
+    end
+  end
+
+  def odd?
+    `self % 2 !== 0`
+  end
+
+  def ord
+    self
+  end
+
+  def pred
+    `self - 1`
+  end
+
+  def quo(other)
+    if Integer === self
+      super
+    else
+      self / other
+    end
+  end
+
+  def rationalize(eps = undefined)
+    %x{
+      if (arguments.length > 1) {
+        #{raise ArgumentError, "wrong number of arguments (#{`arguments.length`} for 0..1)"};
+      }
+    }
+
+    if Integer === self
+      Rational.new(self, 1)
+    elsif infinite?
+      raise FloatDomainError, "Infinity"
+    elsif nan?
+      raise FloatDomainError, "NaN"
+    elsif `eps == null`
+      f, n  = Math.frexp self
+      f     = Math.ldexp(f, Float::MANT_DIG).to_i
+      n    -= Float::MANT_DIG
+
+      Rational.new(2 * f, 1 << (1 - n)).rationalize(Rational.new(1, 1 << (1 - n)))
+    else
+      to_r.rationalize(eps)
+    end
+  end
+
+  def round(ndigits = undefined)
+    if Integer === self
+      if `ndigits == null`
+        return self
+      end
+
+      if Float === ndigits && ndigits.infinite?
+        raise RangeError, "Infinity"
+      end
+
+      ndigits = Opal.coerce_to!(ndigits, Integer, :to_int)
+
+      if ndigits < Integer::MIN
+        raise RangeError, "out of bounds"
+      end
+
+      if `ndigits >= 0`
+        return self
+      end
+
+      ndigits = -ndigits;
+
+      %x{
+        if (0.415241 * ndigits - 0.125 > #{size}) {
+          return 0;
+        }
+
+        var f = Math.pow(10, ndigits),
+            x = Math.floor((Math.abs(x) + f / 2) / f) * f;
+
+        return self < 0 ? -x : x;
+      }
+    else
+      if nan? && `ndigits == null`
+        raise FloatDomainError, "NaN"
+      end
+
+      ndigits = Opal.coerce_to!(`ndigits || 0`, Integer, :to_int)
+
+      if ndigits <= 0
+        if nan?
+          raise RangeError, "NaN"
+        elsif infinite?
+          raise FloatDomainError, "Infinity"
+        end
+      elsif ndigits == 0
+        return `Math.round(self)`
+      elsif nan? || infinite?
+        return self
+      end
+
+      _, exp = Math.frexp(self)
+
+      if ndigits >= (Float::DIG + 2) - (exp > 0 ? exp / 4 : exp / 3 - 1)
+        return self
+      end
+
+      if ndigits < -(exp > 0 ? exp / 3 + 1 : exp / 4)
+        return 0
+      end
+
+      `Math.round(self * Math.pow(10, ndigits)) / Math.pow(10, ndigits)`
+    end
+  end
+
+  def step(limit, step = 1, &block)
+    return enum_for :step, limit, step unless block
+
+    raise ArgumentError, 'step cannot be 0' if `step == 0`
+
+    %x{
+      var value = self;
+
+      if (limit === Infinity || limit === -Infinity) {
+        block(value);
+        return self;
+      }
+
+      if (step > 0) {
+        while (value <= limit) {
+          block(value);
+          value += step;
+        }
+      }
+      else {
+        while (value >= limit) {
+          block(value);
+          value += step;
+        }
+      }
+    }
+
+    self
+  end
+
+  alias succ next
+
+  def times(&block)
+    return enum_for :times unless block
+
+    %x{
+      for (var i = 0; i < self; i++) {
+        if (block(i) === $breaker) {
+          return $breaker.$v;
+        }
+      }
+    }
+
+    self
+  end
+
+  def to_f
+    self
+  end
+
+  def to_i
+    `parseInt(self, 10)`
+  end
+
+  alias to_int to_i
+
+  def to_r
+    if Integer === self
+      Rational.new(self, 1)
+    else
+      f, e  = Math.frexp(self)
+      f     = Math.ldexp(f, Float::MANT_DIG).to_i
+      e    -= Float::MANT_DIG
+
+      (f * (Float::RADIX ** e)).to_r
+    end
+  end
+
+  def to_s(base = 10)
+    if base < 2 || base > 36
+      raise ArgumentError, 'base must be between 2 and 36'
+    end
+
+    `self.toString(base)`
+  end
+
+  alias truncate to_i
+
+  alias inspect to_s
+
+  def divmod(other)
+    if nan? || other.nan?
+      raise FloatDomainError, "NaN"
+    elsif infinite?
+      raise FloatDomainError, "Infinity"
+    else
+      super
+    end
+  end
+
+  def upto(stop, &block)
+    return enum_for(:upto, stop){
+      raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed" unless Numeric === stop
+      stop < self ? 0 : stop - self + 1
+    } unless block_given?
+
+    %x{
+      if (!stop.$$is_number) {
+        #{raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed"}
+      }
+      for (var i = self; i <= stop; i++) {
+        if (block(i) === $breaker) {
+          return $breaker.$v;
+        }
+      }
+    }
+
+    self
+  end
+
+  def zero?
+    `self == 0`
+  end
+
+  # Since bitwise operations are 32 bit, declare it to be so.
+  def size
+    4
+  end
+
+  def nan?
+    `isNaN(self)`
+  end
+
+  def finite?
+    `self != Infinity && self != -Infinity && !isNaN(self)`
+  end
+
+  def infinite?
+    %x{
+      if (self == Infinity) {
+        return +1;
+      }
+      else if (self == -Infinity) {
+        return -1;
+      }
+      else {
+        return nil;
+      }
+    }
+  end
+
+  def positive?
+    `self == Infinity || 1 / self > 0`
+  end
+
+  def negative?
+    `self == -Infinity || 1 / self < 0`
+  end
+end
+
+Fixnum = Number
+
+class Integer < Numeric
+  def self.===(other)
+    %x{
+      if (!other.$$is_number) {
+        return false;
+      }
+
+      return (other % 1) === 0;
+    }
+  end
+
+  MAX = `Math.pow(2, 30) - 1`
+  MIN = `-Math.pow(2, 30)`
+end
+
+class Float < Numeric
+  def self.===(other)
+    `!!other.$$is_number`
+  end
+
+  INFINITY = `Infinity`
+  MAX      = `Number.MAX_VALUE`
+  MIN      = `Number.MIN_VALUE`
+  NAN      = `NaN`
+
+  DIG      = 15
+  MANT_DIG = 53
+  RADIX    = 2
+
+  if defined?(`Number.EPSILON`)
+    EPSILON = `Number.EPSILON`
+  else
+    EPSILON = `2.2204460492503130808472633361816E-16`
+  end
+end