opal 0.11.0.rc1 → 0.11.0

data/opal/corelib/runtime.js

@@ -110,7 +110,7 @@
   Opal.gvars = {};
 
   // Exit function, this should be replaced by platform specific implementation
-  // (See nodejs and phantom for examples)
+  // (See nodejs and chrome for examples)
   Opal.exit = function(status) { if (Opal.gvars.DEBUG) console.log('Exited with status '+status); };
 
   // keeps track of exceptions for $!
@@ -139,6 +139,18 @@
   }
 
 
+  // Truth
+  // -----
+
+  Opal.truthy = function(val) {
+    return (val !== nil && val != null && (!val.$$is_boolean || val == true));
+  };
+
+  Opal.falsy = function(val) {
+    return (val === nil || val == null || (val.$$is_boolean && val == false))
+  };
+
+
   // Constants
   // ---------
   //
@@ -229,10 +241,8 @@
       throw new Opal.TypeError(cref.toString() + " is not a class/module");
     }
 
-    if (cref.$$const_cache == null) {
+    if ((cache = cref.$$const_cache) == null) {
       cache = cref.$$const_cache = Object.create(null);
-    } else {
-      cache = cref.$$const_cache;
     }
     cached = cache[name];
 
@@ -255,10 +265,8 @@
   Opal.const_get_relative = function(nesting, name, skip_missing) {
     var cref = nesting[0], result, current_version = Opal.const_cache_version, cache, cached;
 
-    if (nesting.$$const_cache == null) {
+    if ((cache = nesting.$$const_cache) == null) {
       cache = nesting.$$const_cache = Object.create(null);
-    } else {
-      cache = nesting.$$const_cache;
     }
     cached = cache[name];
 
@@ -1651,6 +1659,7 @@
     obj.$$proto[jsid] = body;
     // for super dispatcher, etc.
     body.$$owner = obj;
+    if (body.displayName == null) body.displayName = jsid.substr(1);
 
     // is it a module?
     if (obj.$$is_module) {
@@ -2084,7 +2093,7 @@
     var range         = new Opal.Range.$$alloc();
         range.begin   = first;
         range.end     = last;
-        range.exclude = exc;
+        range.excl    = exc;
 
     return range;
   };
@@ -2144,6 +2153,7 @@
       path = Opal.current_dir.replace(/\/*$/, '/') + path;
     }
 
+    path = path.replace(/^\.\//, '');
     path = path.replace(/\.(rb|opal|js)$/, '');
     parts = path.split(SEPARATOR);
 
@@ -2251,7 +2261,13 @@
 
   // Forward .toString() to #to_s
   _Object.$$proto.toString = function() {
-    return this.$to_s();
+    var to_s = this.$to_s();
+    if (to_s.$$is_string && typeof(to_s) === 'object') {
+      // a string created using new String('string')
+      return to_s.valueOf();
+    } else {
+      return to_s;
+    }
   };
 
   // Make Kernel#require immediately available as it's needed to require all the

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)};
 

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
@@ -149,11 +145,13 @@ Encoding.register "UTF-32LE" do
   end
 end
 
-Encoding.register "ASCII-8BIT", aliases: ["BINARY"], ascii: true do
+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++) {
-        #{yield `string.charCodeAt(i) & 0xff`};
+        var code = string.charCodeAt(i);
+        #{yield `code & 0xff`};
+        #{yield `code >> 8`};
       }
     }
   end
@@ -192,21 +190,15 @@ class String
 
   def force_encoding(encoding)
     %x{
-      if (encoding === self.encoding) {
-        return self;
-      }
-    }
-    encoding = Opal.coerce_to!(encoding, String, :to_s)
-    encoding = Encoding.find(encoding)
+      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
 

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/struct.rb

@@ -280,9 +280,4 @@ class Struct
 
     item.dig(*keys)
   end
-
-  def self._load(args)
-    attributes = args.values_at(*members)
-    self.new(*attributes)
-  end
 end

data/opal/corelib/time.rb

@@ -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)) {

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

@@ -42,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
 
@@ -596,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/nodejs/file.rb

@@ -1,5 +1,12 @@
 %x{
-  var warnings = {};
+  var warnings = {}, errno_code, errno_codes = [
+    'EACCES',
+    'EISDIR',
+    'EMFILE',
+    'ENOENT',
+    'EPERM'
+  ];
+
   function handle_unsupported_feature(message) {
     switch (Opal.config.unsupported_features_severity) {
     case 'error':
@@ -23,16 +30,20 @@
     try {
       return action();
     } catch (error) {
-      if (error.code === 'EACCES' ||
-          error.code === 'EISDIR' ||
-          error.code === 'EMFILE' ||
-          error.code === 'ENOENT' ||
-          error.code === 'EPERM') {
-        throw Opal.IOError.$new(error.message)
+      if (errno_codes.indexOf(error.code) >= 0) {
+        var error_class = #{Errno.const_get(`error.code`)}
+        throw #{`error_class`.new(`error.message`)};
       }
       throw error;
     }
   }
+
+  for(var i = 0, ii = errno_codes.length; i < ii; i++) {
+    errno_code = errno_codes[i];
+    if (!#{Errno.const_defined?(`errno_code`)}) {
+      #{Errno.const_set(`errno_code`, Class.new(SystemCallError))}
+    }
+  }
 }
 
 class File < IO
@@ -82,12 +93,26 @@ class File < IO
 
   def self.directory? path
     return false unless exist? path
-    `return executeIOAction(function(){return !!__fs__.lstatSync(path).isDirectory()})`
+    result = `executeIOAction(function(){return !!__fs__.lstatSync(path).isDirectory()})`
+    unless result
+      realpath = realpath(path)
+      if realpath != path
+        result = `executeIOAction(function(){return !!__fs__.lstatSync(realpath).isDirectory()})`
+      end
+    end
+    result
   end
 
   def self.file? path
     return false unless exist? path
-    `return executeIOAction(function(){return !!__fs__.lstatSync(path).isFile()})`
+    result = `executeIOAction(function(){return !!__fs__.lstatSync(path).isFile()})`
+    unless result
+      realpath = realpath(path)
+      if realpath != path
+        result = `executeIOAction(function(){return !!__fs__.lstatSync(realpath).isFile()})`
+      end
+    end
+    result
   end
 
   def self.readable? path
@@ -106,8 +131,8 @@ class File < IO
     `return executeIOAction(function(){return __fs__.lstatSync(path).size})`
   end
 
-  def self.open path, flags
-    file = new(path, flags)
+  def self.open(path, mode = 'r')
+    file = new(path, mode)
     if block_given?
       begin
         yield(file)

data/stdlib/nodejs/io.rb

@@ -27,6 +27,14 @@ class IO
     @eof = false
     @lineno = 0
   end
+  
+  def self.write(path, data)
+    File.write(path, data)
+  end
+
+  def self.read(path)
+    File.read(path)
+  end
 
   def read
     if @eof

data/stdlib/nodejs/stacktrace.rb

@@ -33,7 +33,7 @@
   (function () {
 
   if (!Error.captureStackTrace) {
-  	return;
+    return;
   }
 
   var ObjectToString = Object.prototype.toString;
@@ -42,121 +42,137 @@
 
   // https://github.com/v8/v8/blob/cab94bbe3d532d85705950ed049a294050fcb4c9/src/messages.js#L1112-L1124 [converted to JS]
   function GetTypeName(receiver, requireConstructor) {
-  	var constructor = receiver.constructor;
-  	if (!constructor) {
-  		return requireConstructor ? null : ObjectToString.call(receiver);
-  	}
-  	var constructorName = constructor.name;
-  	if (!constructorName) {
-  		return requireConstructor ? null : ObjectToString.call(receiver);
-  	}
-  	return constructorName;
+    if (receiver == null) return null;
+    var constructor = receiver.constructor;
+    if (!constructor) {
+      return requireConstructor ? null : ObjectToString.call(receiver);
+    }
+    var constructorName = constructor.name;
+    if (!constructorName) {
+      return requireConstructor ? null : ObjectToString.call(receiver);
+    }
+    return constructorName;
   }
 
   // https://github.com/v8/v8/blob/cab94bbe3d532d85705950ed049a294050fcb4c9/src/messages.js#L917-L981 [converted & modified]
   function CallSiteToString() {
-  	var fileName;
-  	var fileLocation = "";
-  	if (this.isNative()) {
-  		fileLocation = "native";
-  	} else {
-  		fileName = this.getScriptNameOrSourceURL();
-  		if (!fileName && this.isEval()) {
-  			fileLocation = this.getEvalOrigin();
-  			fileLocation += ", "; // Expecting source position to follow.
-  		}
+    var fileName;
+    var fileLocation = "";
+    if (this.isNative()) {
+      fileLocation = "native";
+    } else {
+      fileName = this.getScriptNameOrSourceURL();
+      if (!fileName && this.isEval()) {
+        fileLocation = this.getEvalOrigin();
+        fileLocation += ", "; // Expecting source position to follow.
+      }
 
-  		if (fileName) {
-  			fileLocation += fileName;
-  		} else {
-  			// Source code does not originate from a file and is not native, but we
-  			// can still get the source position inside the source string, e.g. in
-  			// an eval string.
-  			fileLocation += "<anonymous>";
-  		}
-  		var lineNumber = this.getLineNumber();
-  		if (lineNumber !== null) {
-  			fileLocation += ":" + lineNumber;
-  			var columnNumber = this.getColumnNumber();
-  			if (columnNumber) {
-  				fileLocation += ":" + columnNumber;
-  			}
-  		}
-  	}
+      if (fileName) {
+        fileLocation += fileName;
+      } else {
+        // Source code does not originate from a file and is not native, but we
+        // can still get the source position inside the source string, e.g. in
+        // an eval string.
+        fileLocation += "<anonymous>";
+      }
+      var lineNumber = this.getLineNumber();
+      if (lineNumber !== null) {
+        fileLocation += ":" + lineNumber;
+        var columnNumber = this.getColumnNumber();
+        if (columnNumber) {
+          fileLocation += ":" + columnNumber;
+        }
+      }
+    }
 
-  	var line = "";
-  	var func = this.getFunction();
-  	var customName = func.displayName;
-  	if (NODE && customName) {
-  		customName = "\x1B[32m" + customName + "\x1B[39m";
-  	}
-  	var functionName = customName || this.getFunctionName();
-  	var addSuffix = true;
-  	var isConstructor = this.isConstructor();
-  	var isMethodCall = !(this.isToplevel() || isConstructor);
-  	if (isMethodCall) {
-  		var typeName = GetTypeName(this.receiver, true);
-  		var methodName = this.getMethodName();
-  		if (functionName) {
-  			if (!customName && typeName && functionName.indexOf(typeName) !== 0) {
-  				line += typeName + ".";
-  			}
-  			line += functionName;
-  			if (methodName && functionName.indexOf("." + methodName) !== functionName.length - methodName.length - 1) {
-  				line += " [as " + methodName + "]";
-  			}
-  		} else {
-  			line += typeName + "." + (methodName || "<anonymous>");
-  		}
-  	} else if (isConstructor) {
-  		line += "new " + (functionName || "<anonymous>");
-  	} else if (functionName) {
-  		line += functionName;
-  	} else {
-  		line += fileLocation;
-  		addSuffix = false;
-  	}
-  	if (addSuffix) {
-  		line += " (" + fileLocation + ")";
-  	}
-  	return line;
+    var line = "";
+    var func = this.getFunction();
+    var customName = func.displayName;
+    if (NODE && customName) {
+      if (customName && func.$$owner) {
+        var customNameOwner;
+        customNameOwner = (func.$$owner.displayName || func.$$owner.$$name);
+        customName = (func.$$owner.singleton_of ? '.' : '#') + customName;
+      }
+      customName = customNameOwner + customName;
+    }
+    var functionName = customName || this.getFunctionName();
+    var addSuffix = true;
+    var isConstructor = this.isConstructor();
+    var isMethodCall = !(this.isToplevel() || isConstructor);
+    if (isMethodCall) {
+      var typeName = GetTypeName(this.receiver, true);
+      var methodName = this.getMethodName();
+      if (functionName) {
+        if (!customName && typeName && functionName.indexOf(typeName) !== 0) {
+          line += typeName + ".";
+        }
+        line += functionName;
+        if (methodName && methodName !== functionName) {//} && functionName.indexOf("." + methodName) !== functionName.length - methodName.length - 1) {
+          line += " [as " + methodName + "]";
+        }
+      } else {
+        line += typeName + "." + (methodName || "<anonymous>");
+      }
+    } else if (isConstructor) {
+      line += "new " + (functionName || "<anonymous>");
+    } else if (functionName) {
+      if (func.$$s) {
+        if (func.$$s.displayName || func.$$s.$$name) {
+          line += 'block in ' + (func.$$s.displayName || func.$$s.$$name) + ' [as ' + functionName + ']';
+        } else if (func.$$s.$$class && func.$$s.$$class.$$name) {
+          line += 'block in #<' + func.$$s.$$class.$$name + ' $$id: ' + Opal.id(func.$$s) + '> [as ' + functionName + ']';
+        } else {
+          line += functionName;
+        }
+      } else {
+        line += functionName;
+      }
+    } else {
+      line += fileLocation;
+      addSuffix = false;
+    }
+    if (addSuffix) {
+      line += " (" + fileLocation + ")";
+    }
+    return line;
   }
 
   var ErrorToString = Error.prototype.toString;
 
   // https://github.com/v8/v8/blob/cab94bbe3d532d85705950ed049a294050fcb4c9/src/messages.js#L1042-L1052 [converted]
   function FormatErrorString(error) {
-  	try {
-  		return ErrorToString.call(error);
-  	} catch (e) {
-  		try {
-  			return "<error: " + e + ">";
-  		} catch (ee) {
-  			return "<error>";
-  		}
-  	}
+    try {
+      return ErrorToString.call(error);
+    } catch (e) {
+      try {
+        return "<error: " + e + ">";
+      } catch (ee) {
+        return "<error>";
+      }
+    }
   }
 
   // https://github.com/v8/v8/blob/cab94bbe3d532d85705950ed049a294050fcb4c9/src/messages.js#L1091-L1108 [logic duplicated]
   Error.prepareStackTrace = function (error, frames) {
-  	var lines = [];
-  	lines.push(FormatErrorString(error));
-  	for (var i = 0; i < frames.length; i++) {
-  		var frame = frames[i];
-  		var line;
-  		try {
-  			line = CallSiteToString.call(frame);
-  		} catch (e) {
-  			try {
-  				line = "<error: " + e + ">";
-  			} catch (ee) {
-  				// Any code that reaches this point is seriously nasty!
-  				line = "<error>";
-  			}
-  		}
-  		lines.push("    at " + line);
-  	}
-  	return lines.join("\n");
+    var lines = [];
+    lines.push(FormatErrorString(error));
+    for (var i = 0; i < frames.length; i++) {
+      var frame = frames[i];
+      var line;
+      try {
+        line = CallSiteToString.call(frame);
+      } catch (e) {
+        try {
+          line = "<error: " + e + ">";
+        } catch (ee) {
+          // Any code that reaches this point is seriously nasty!
+          line = "<error>";
+        }
+      }
+      lines.push("    at " + line);
+    }
+    return lines.join("\n");
   };
 
   })();