opal 0.3.6 → 0.3.9

data/corelib/boolean.rb

@@ -0,0 +1,20 @@
+class Boolean
+
+  def to_s
+    # Yeah, this is another one for the wtf? collection. As the receiver
+    # is a true or false literal, it is coerced into a Boolean object,
+    # therefore it is always truthy. Therefore we comapre ourself with
+    # true to see if we are actually true or false. We could instead do
+    # `return self.valueOf() ? "true" : "false", but this way seems a
+    # little faster..
+    `return self == true ? "true" : "false";`
+  end
+
+  def ==(other)
+    `return self.valueOf() === other.valueOf();`
+  end
+end
+
+TRUE = true
+FALSE = false
+

data/corelib/class.rb

@@ -0,0 +1,58 @@
+class Class < Module
+
+  def self.new(sup = Object)
+    `var res = rb_define_class_id('AnonClass', sup);
+
+    if (sup.m$inherited) {
+      sup.m$inherited(res);
+    }
+
+    return res;`
+  end
+
+  def allocate
+    `return new self.$a();`
+  end
+
+  def new(*args)
+    obj = allocate
+
+    `if ($B.f == arguments.callee) {
+      $B.f = obj.$m.initialize;
+    }`
+
+    obj.initialize *args
+    obj
+  end
+
+  def inherited(cls)
+    nil
+  end
+
+  def superclass
+    `var sup = self.$s;
+
+    if (!sup) {
+      if (self == rb_cObject) return nil;
+      throw new Error('RuntimeError: uninitialized class');
+    }
+
+    return sup;`
+  end
+
+  def native_prototype(proto)
+    `rb_native_prototype(self, proto);`
+    self
+  end
+
+  # Make the given object an instance of this class. This takes
+  # an **existing** object and adds the correct class, method
+  # table and id to the receiver.
+  #
+  # @param [NativeJSObject] obj
+  # @return [instance]
+  def from_native(obj)
+    `return rb_obj_from_native(obj, self);`
+  end
+end
+

data/{lib → corelib}/core.rb

@@ -1,15 +1,5 @@
 class Module
 
-  def private(*args)
-    `$rb.private_methods(self, args);`
-    self
-  end
-
-  def public(*args)
-    `$rb.public_methods(self, args);`
-    self
-  end
-
   def include(*mods)
     `var i = mods.length - 1, mod;
     while (i >= 0) {
@@ -22,7 +12,7 @@ class Module
   end
 
   def append_features(mod)
-    `$rb.include_module(mod, self);`
+    `rb_include_module(mod, self);`
     self
   end
 
@@ -32,7 +22,6 @@ class Module
 end
 
 module Kernel
-  private
 
   # Try to load the library or file named `path`. An error is thrown if the
   # path cannot be resolved.
@@ -40,8 +29,7 @@ module Kernel
   # @param [String] path The path to load
   # @return [true, false]
   def require(path)
-    `$rb.require(path) ? Qtrue : Qfalse;`
-    true
+    `return rb_require(path);`
   end
 
   # Prints the message to `STDOUT`.
@@ -70,45 +58,9 @@ class Object
   include Kernel
 end
 
-class Symbol
-  def to_s
-    `return self.toString();`
-  end
-end
-
 class String
   def to_s
     `return self.toString();`
   end
 end
 
-require 'core/basic_object'
-require 'core/object'
-require 'core/module'
-require 'core/class'
-require 'core/kernel'
-require 'core/top_self'
-require 'core/nil_class'
-require 'core/true_class'
-require 'core/false_class'
-require 'core/enumerable'
-require 'core/array'
-require 'core/numeric'
-require 'core/hash'
-require 'core/error'
-require 'core/string'
-require 'core/symbol'
-require 'core/proc'
-require 'core/range'
-require 'core/regexp'
-require 'core/match_data'
-require 'core/file'
-require 'core/dir'
-
-`var platform = opal.platform;`
-RUBY_PLATFORM = `platform.platform`
-RUBY_ENGINE = `platform.engine`
-RUBY_VERSION = `platform.version`
-
-ARGV = `platform.argv`
-

data/corelib/dir.rb

@@ -0,0 +1,22 @@
+
+class Dir
+
+  # Returns a string that is the current working directory for this process.
+  #
+  # @return [String]
+  def self.getwd
+    `return Op.fs.cwd;`
+  end
+
+  # Returns a string that is the current working directory for this process.
+  #
+  # @return [String]
+  def self.pwd
+    `return Op.fs.cwd;`
+  end
+
+  def self.[](*a)
+    `return Op.fs.glob.apply(Op.fs, a);`
+  end
+end
+

data/corelib/error.rb

@@ -0,0 +1,19 @@
+class Exception
+
+  def initialize(message = '')
+    @message = message
+  end
+
+  def message
+    @message
+  end
+
+  def inspect
+    `return "#<" + self.$k.__classid__ + ": '" + #{message} + "'>";`
+  end
+
+  def to_s
+    message
+  end
+end
+

data/{lib/core → corelib}/file.rb

@@ -1,7 +1,5 @@
 
 class File
-  # Use either the browser fs namespace or overriden gem interface.
-  `var OPAL_FS = $rb.opal.fs;`
 
   # Converts the given `file_name` into its absolute path. The current working
   # directory is used as the reference unless the `dir_string` is given, in
@@ -12,9 +10,9 @@ class File
   # @return [String]
   def self.expand_path(file_name, dir_string = nil)
     if dir_string
-      `return OPAL_FS.expand_path(file_name, dir_string);`
+      `return Op.fs.expand_path(file_name, dir_string);`
     else
-      `return OPAL_FS.expand_path(file_name);`
+      `return Op.fs.expand_path(file_name);`
     end
   end
 
@@ -24,7 +22,7 @@ class File
   # @param [String] str
   # @return [String]
   def self.join(*str)
-    `return OPAL_FS.join.apply(OPAL_FS, str);`
+    `return Op.fs.join.apply(Op.fs, str);`
   end
 
   # Returns all the components of the given `file_name` except for the last
@@ -33,7 +31,7 @@ class File
   # @param [String] file_name
   # @return [String]
   def self.dirname(file_name)
-    `return OPAL_FS.dirname(file_name);`
+    `return Op.fs.dirname(file_name);`
   end
 
   # Returns the extension of the given filename.
@@ -41,7 +39,7 @@ class File
   # @param [String] file_name
   # @return [String]
   def self.extname(file_name)
-    `return OPAL_FS.extname(file_name);`
+    `return Op.fs.extname(file_name);`
   end
 
   # Returns the last path component of the given `file_name`. If a suffix is
@@ -52,11 +50,11 @@ class File
   # @param [String] suffix
   # @return [String]
   def self.basename(file_name, suffix)
-    `return OPAL_FS.basename(file_name, suffix);`
+    `return Op.fs.basename(file_name, suffix);`
   end
 
   def self.exist?(path)
-    `return OPAL_FS.exist_p(path) ? Qtrue : Qfalse;`
+    `return Op.fs.exist_p(path);`
   end
 end
 

data/{lib/core → corelib}/hash.rb

@@ -59,10 +59,10 @@ class Hash
   #
   # @return [Array]
   def values
-    `var result = [], length = self.$keys.length;
+    `var result = [], length = self.k.length;
 
     for (var i = 0; i < length; i++) {
-      result.push(self.$assocs[self.$keys[i].$hash()]);
+      result.push(self.a[self.k[i].$h()]);
     }
 
     return result;`
@@ -79,9 +79,9 @@ class Hash
   def inspect
     `var description = [], key, value;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      value = self.$assocs[key.$hash()];
+    for (var i = 0, ii = self.k.length; i < ii; i++) {
+      key = self.k[i];
+      value = self.a[key.$h()];
       description.push(#{`key`.inspect} + '=>' + #{`value`.inspect});
     }
 
@@ -94,9 +94,9 @@ class Hash
   def to_s
     `var description = [], key, value;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      value = self.$assocs[key.$hash()];
+    for (var i = 0, ii = self.k.length; i < ii; i++) {
+      key = self.k[i];
+      value = self.a[key.$h()];
       description.push(#{`key`.inspect} + #{`value`.inspect});
     }
 
@@ -114,20 +114,11 @@ class Hash
   #
   # @return [Hash] returns the receiver
   def each
-    `var keys = self.$keys, values = self.$assocs, length = keys.length, key;
+    `var keys = self.k, values = self.a, length = keys.length, key;
 
     for (var i = 0; i < length; i++) {
-      try {
-        key = keys[i];
-        #{yield `key`, `values[key.$hash()]`};
-      } catch (e) {
-        switch (e.$keyword) {
-          case 2:
-            return e['@exit_value'];
-          default:
-            throw e;
-        }
-      }
+      key = keys[i];
+      #{yield `key`, `values[key.$h()]`};
     }
 
     return self;`
@@ -147,12 +138,12 @@ class Hash
   # @param [Object] obj key to search for
   # @return [Array<Object, Object>, nil] result or nil
   def assoc(obj)
-    `var key, keys = self.$keys, length = keys.length;
+    `var key, keys = self.k, length = keys.length;
 
     for (var i = 0; i < length; i++) {
       key = keys[i];
       if (#{`key` == obj}.$r) {
-        return [key, self.$assocs[key.$hash()]];
+        return [key, self.a[key.$h()]];
       }
     }
 
@@ -177,23 +168,23 @@ class Hash
   # @param [Hash] other the hash to compare with
   # @return [true, false]
   def ==(other)
-    `if (self === other) return Qtrue;
-    if (!other.$keys || !other.$assocs) return Qfalse;
-    if (self.$keys.length != other.$keys.length) return Qfalse;
+    `if (self === other) return true;
+    if (!other.k || !other.a) return false;
+    if (self.k.length != other.k.length) return false;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      var key1 = self.$keys[i], assoc1 = key1.$hash();
+    for (var i = 0; i < self.k.length; i++) {
+      var key1 = self.k[i], assoc1 = key1.$h();
 
-      if (!other.$assocs.hasOwnProperty(assoc1))
-        return Qfalse;
+      if (!hasOwnProperty.call(other.a, assoc1))
+        return false;
 
-      var assoc2 = other.$assocs[assoc1];
+      var assoc2 = other.a[assoc1];
 
-      if (!#{`self.$assocs[assoc1]` == `assoc2`}.$r)
-        return Qfalse;
+      if (!#{`self.a[assoc1]` == `assoc2`}.$r)
+        return false;
     }
 
-    return Qtrue;`
+    return true;`
   end
 
   # Element reference - retrieves the `value` object corresponding to the `key`
@@ -210,12 +201,12 @@ class Hash
   # @param [Object] key the key to look for
   # @return [Object] result or default value
   def [](key)
-    `var assoc = key.$hash();
+    `var assoc = key.$h();
 
-    if (self.$assocs.hasOwnProperty(assoc))
-      return self.$assocs[assoc];
+    if (hasOwnProperty.call(self.a, assoc))
+      return self.a[assoc];
 
-    return self.$default;`
+    return self.d;`
   end
 
   # Element assignment - Associates the value given by 'value' with the key
@@ -234,12 +225,12 @@ class Hash
   # @param [Object] value the value for the key
   # @return [Object] returns the set value
   def []=(key, value)
-    `var assoc = key.$hash();
+    `var assoc = key.$h();
 
-    if (!self.$assocs.hasOwnProperty(assoc))
-      self.$keys.push(key);
+    if (!hasOwnProperty.call(self.a, assoc))
+      self.k.push(key);
 
-    return self.$assocs[assoc] = value;`
+    return self.a[assoc] = value;`
   end
 
   # Remove all key-value pairs from `self`.
@@ -252,15 +243,15 @@ class Hash
   #
   # @return [Hash]
   def clear
-    `self.$keys = [];
-    self.$assocs = {};
+    `self.k = [];
+    self.a = {};
 
     return self;`
   end
 
   # Returns the default value for the hash.
   def default
-    `return self.$default;`
+    `return self.d;`
   end
 
   # Sets the default value - the value returned when a key does not exist.
@@ -268,7 +259,7 @@ class Hash
   # @param [Object] obj the new default
   # @return [Object] returns the new default
   def default=(obj)
-    `return self.$default = obj;`
+    `return self.d = obj;`
   end
 
   # Deletes and returns a key-value pair from self whose key is equal to `key`.
@@ -287,16 +278,16 @@ class Hash
   # @param [Object] key the key to delete
   # #return [Object] returns value or default value
   def delete(key)
-    `var assoc = key.$hash();
+    `var assoc = key.$h();
 
-    if (self.$assocs.hasOwnProperty(assoc)) {
-      var ret = self.$assocs[assoc];
-      delete self.$assocs[assoc];
-      self.$keys.splice(self.$keys.indexOf(key), 1);
+    if (hasOwnProperty.call(self.a, assoc)) {
+      var ret = self.a[assoc];
+      delete self.a[assoc];
+      self.k.splice(self.$keys.indexOf(key), 1);
       return ret;
     }
 
-    return self.$default;`
+    return self.d;`
   end
 
   # Deletes every key-value pair from `self` for which the block evaluates to
@@ -312,23 +303,14 @@ class Hash
   def delete_if
     `var key, value;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      try {
-        key = self.$keys[i];
-        value = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i];
+      value = self.a[key.$h()];
 
-        if (#{yield `key`, `value`}.$r) {
-          delete self.$assocs[key.$hash()];
-          self.$keys.splice(i, 1);
-          i--;
-        }
-      } catch (e) {
-        switch (e.$keyword) {
-          case 2:
-            return e['@exit_value'];
-          default:
-            throw e;
-        }
+      if (#{yield `key`, `value`}.$r) {
+        delete self.a[key.$h()];
+        self.k.splice(i, 1);
+        i--;
       }
     }
 
@@ -347,20 +329,8 @@ class Hash
   #
   # @return [Hash] returns receiver
   def each_key
-    `var key;
-
-    for (var i = 0; i < self.$keys.length; i++) {
-      try {
-        key = self.$keys[i];
-        #{yield `key`};
-      } catch (e) {
-        switch (e.$keyword) {
-          case 2:
-            return e['@exit_value'];
-          default:
-            throw e;
-        }
-      }
+    `for (var i = 0, ii = self.k.length; i < ii; i++) {
+      #{yield `self.k[i]`};
     }
 
     return self;`
@@ -380,18 +350,8 @@ class Hash
   def each_value
     `var val;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      try {
-        val = self.$assocs[self.$keys[i].$hash()];
-        #{yield `val`};
-      } catch (e) {
-        switch (e.$keyword) {
-          case 2:
-            return e['@exit_value'];
-          default:
-            throw e;
-        }
-      }
+    for (var i = 0, ii = self.k.length; i < ii; i++) {
+      #{yield `self.a[self.k[i].$h()]`};
     }
 
     return self;`
@@ -406,7 +366,7 @@ class Hash
   #
   # @return [true, false]
   def empty?
-    `return self.$keys.length == 0 ? Qtrue : Qfalse;`
+    `return self.k.length == 0;`
   end
 
   # Returns a value from the hash for the given key. If the key can't be found,
@@ -426,7 +386,7 @@ class Hash
   # @param [Object] defaults the default value to return
   # @return [Object] value from hash
   def fetch(key, defaults = `undefined`)
-    `var value = self.$assocs[key.$hash()];
+    `var value = self.a[key.$h()];
 
     if (value != undefined)
       return value;
@@ -455,9 +415,9 @@ class Hash
   def flatten(level = 1)
     `var result = [], key, value;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      value = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i];
+      value = self.a[key.$h()];
       result.push(key);
 
       if (value instanceof Array) {
@@ -488,10 +448,10 @@ class Hash
   # @param [Object] key the key to check
   # @return [true, false]
   def has_key?(key)
-    `if (self.$assocs.hasOwnProperty(key.$hash()))
-      return Qtrue;
+    `if (hasOwnProperty.call(self.a, key.$h()))
+      return true;
 
-    return Qfalse;`
+    return false;`
   end
 
   # Returns `true` if the given `value` is present for some key in `self`.
@@ -509,15 +469,15 @@ class Hash
   def has_value?(value)
     `var key, value;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      val = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i];
+      val = self.a[key.$h()];
 
       if (#{`value` == `val`}.$r)
-        return Qtrue;
+        return true;
     }
 
-    return Qfalse;`
+    return false;`
   end
 
   # Replaces the contents of `self` with the contents of `other`.
@@ -531,13 +491,13 @@ class Hash
   # @param [Hash] other hash to replace with
   # @return [Hash] returns receiver
   def replace(other)
-    `self.$keys = []; self.$assocs = {};
+    `self.k = []; self.a = {};
 
-    for (var i = 0; i < other.$keys.length; i++) {
-      var key = other.$keys[i];
-      var val = other.$assocs[key.$hash()];
-      self.$keys.push(key);
-      self.$assocs[key.$hash()] = val;
+    for (var i = 0; i < other.k.length; i++) {
+      var key = other.k[i];
+      var val = other.a[key.$h()];
+      self.k.push(key);
+      self.a[key.$h()] = val;
     }
 
     return self;`
@@ -572,9 +532,9 @@ class Hash
   def key(value)
     `var key, val;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      val = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i];
+      val = self.a[key.$h()];
 
       if (#{`value` == `val`}.$r) {
         return key;
@@ -595,7 +555,7 @@ class Hash
   #
   # @return [Array]
   def keys
-    `return self.$keys.slice(0);`
+    `return self.k.slice(0);`
   end
 
   # Returns the number of key-value pairs in the hash.
@@ -608,7 +568,7 @@ class Hash
   #
   # @return [Numeric]
   def length
-    `return self.$keys.length;`
+    `return self.k.length;`
   end
 
   # Returns a new hash containing the contents of `other` and `self`. If no
@@ -631,21 +591,21 @@ class Hash
   def merge(other)
     `var result = $opal.H() , key, val;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i], val = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i], val = self.a[key.$h()];
 
-      result.$keys.push(key);
-      result.$assocs[key.$hash()] = val;
+      result.k.push(key);
+      result.a[key.$h()] = val;
     }
 
-    for (var i = 0; i < other.$keys.length; i++) {
-      key = other.$keys[i], val = other.$assocs[key.$hash()];
+    for (var i = 0; i < other.k.length; i++) {
+      key = other.k[i], val = other.a[key.$h()];
 
-      if (!result.$assocs.hasOwnProperty(key.$hash())) {
-        result.$keys.push(key);
+      if (!hasOwnProperty.call(result.a, key.$h())) {
+        result.k.push(key);
       }
 
-      result.$assocs[key.$hash()] = val;
+      result.a[key.$h()] = val;
     }
 
     return result;`
@@ -668,15 +628,15 @@ class Hash
   def merge!(other)
     `var key, val;
 
-    for (var i = 0; i < other.$keys.length; i++) {
-      key = other.$keys[i];
-      val = other.$assocs[key.$hash()];
+    for (var i = 0; i < other.k.length; i++) {
+      key = other.k[i];
+      val = other.a[key.$h()];
 
-      if (!self.$assocs.hasOwnProperty(key.$hash())) {
-        self.$keys.push(key);
+      if (!hasOwnProperty.call(self.a, key.$h())) {
+        self.k.push(key);
       }
 
-      self.$assocs[key.$hash()] = val;
+      self.a[key.$h()] = val;
     }
 
     return self;`
@@ -698,9 +658,9 @@ class Hash
   def rassoc(obj)
     `var key, val;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      val = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i];
+      val = self.a[key.$h()];
 
       if (#{`val` == obj}.$r)
         return [key, val];
@@ -726,16 +686,16 @@ class Hash
   def shift
     `var key, val;
 
-    if (self.$keys.length > 0) {
-      key = self.$keys[0];
-      val = self.$assocs[key.$hash()];
+    if (self.k.length > 0) {
+      key = self.k[0];
+      val = self.a[key.$h()];
 
-      self.$keys.shift();
-      delete self.$assocs[key.$hash()];
+      self.k.shift();
+      delete self.a[key.$h()];
       return [key, val];
     }
 
-    return self.$default;`
+    return self.d;`
   end
 
   # Convert self into a nested array of `[key, value]` arrays.
@@ -750,9 +710,9 @@ class Hash
   def to_a
     `var result = [], key, value;
 
-    for (var i = 0; i < self.$keys.length; i++) {
-      key = self.$keys[i];
-      value = self.$assocs[key.$hash()];
+    for (var i = 0; i < self.k.length; i++) {
+      key = self.k[i];
+      value = self.a[key.$h()];
       result.push([key, value]);
     }