opal 0.3.15 → 0.3.16

data/{runtime/corelib → core}/string.rb

@@ -106,7 +106,27 @@ class String
   end
 
   def inspect
-    `string_inspect(this)`
+    %x{
+      var escapable = /[\\\\\\"\\x00-\\x1f\\x7f-\\x9f\\u00ad\\u0600-\\u0604\\u070f\\u17b4\\u17b5\\u200c-\\u200f\\u2028-\\u202f\\u2060-\\u206f\\ufeff\\ufff0-\\uffff]/g,
+          meta      = {
+            '\\b': '\\\\b',
+            '\\t': '\\\\t',
+            '\\n': '\\\\n',
+            '\\f': '\\\\f',
+            '\\r': '\\\\r',
+            '"' : '\\\\"',
+            '\\\\': '\\\\\\\\'
+          };
+
+      escapable.lastIndex = 0;
+
+      return escapable.test(this) ? '"' + this.replace(escapable, function(a) {
+        var c = meta[a];
+
+        return typeof c === 'string' ? c :
+          '\\\\u' + ('0000' + a.charCodeAt(0).toString(16)).slice(-4);
+      }) + '"' : '"' + this + '"';
+  }
   end
 
   def intern
@@ -141,7 +161,7 @@ class String
     %x{
       if (block !== nil) {
         return this.replace(pattern, function(str) {
-          return $yield.call($context, null, str);
+          return $yield.call($context, str);
         });
       }
       else {
@@ -150,7 +170,7 @@ class String
     }
   end
 
-  alias_method :succ, :next
+  alias succ next
 
   def to_f
     `parseFloat(this)`
@@ -160,14 +180,10 @@ class String
     `parseInt(this, base)`
   end
 
-  def to_native
-    `this.valueOf()`
-  end
-
   def to_proc
     %x{
       var self = this;
-      return function(iter, arg) { return arg['m$' + self](); };
+      return function(iter, arg) { return arg['$' + self](); };
     }
   end
 
@@ -175,7 +191,7 @@ class String
     `this.toString()`
   end
 
-  alias_method :to_sym, :intern
+  alias to_sym intern
 
   def upcase
     `this.toUpperCase()`

data/core/time.rb

@@ -0,0 +1,111 @@
+class Time
+  include Comparable
+
+  def self.at(seconds, frac = 0)
+    result = allocate
+    `result.time = new Date(seconds * 1000 + frac)`
+    result
+  end
+
+  def self.now
+    result = allocate
+    `result.time = new Date()`
+    result
+  end
+
+  def initialize
+    `this.time = new Date()`
+  end
+
+  def +(other)
+    %x{
+      var res = #{Time.allocate};
+      res.time = new Date(#{to_f + other.to_f});
+      return res;
+    }
+  end
+
+  def -(other)
+    %x{
+      var res = #{Time.allocate};
+      res.time = new Date(#{to_f - other.to_f});
+      return res;
+    }
+  end
+
+  def <=>(other)
+    to_f <=> other.to_f
+  end
+
+  def day
+    `this.time.getDate()`
+  end
+
+  def eql?(other)
+    other.is_a?(Time) && (self <=> other).zero?
+  end
+
+  def friday?
+    `this.time.getDay() === 5`
+  end
+
+  def hour
+    `this.time.getHours()`
+  end
+
+  alias mday day
+
+  def min
+    `this.time.getMinutes()`
+  end
+
+  def mon
+    `this.time.getMonth() + 1`
+  end
+
+  def monday?
+    `this.time.getDay() === 1`
+  end
+
+  alias month mon
+
+  def saturday?
+    `this.time.getDay() === 6`
+  end
+
+  def sec
+    `this.time.getSeconds()`
+  end
+
+  def sunday?
+    `this.time.getDay() === 0`
+  end
+
+  def thursday?
+    `this.time.getDay() === 4`
+  end
+
+  def to_f
+    `this.time.getTime() / 1000`
+  end
+
+  def to_i
+    `parseInt(this.time.getTime() / 1000)`
+  end
+
+  def tuesday?
+    `this.time.getDay() === 2`
+  end
+
+  def wday
+    `this.time.getDay()`
+  end
+
+  def wednesday?
+    `this.time.getDay() === 3`
+  end
+
+  def year
+    `this.time.getFullYear()`
+  end
+end

data/core_spec/core/enumerable/first_spec.rb

@@ -0,0 +1,3 @@
+require File.expand_path('../../../spec_helper', __FILE__)
+require File.expand_path('../fixtures/classes', __FILE__)
+require File.expand_path('../shared/take', __FILE__)

data/core_spec/core/enumerable/shared/take.rb

@@ -0,0 +1,31 @@
+describe :enumerable_take, :shared => true do
+  before :each do
+    @values = [4,3,2,1,0,-1]
+    @enum = EnumerableSpecs::Numerous.new(*@values)
+  end
+
+  it "returns the first count elements if given a count" do
+    @enum.first(2).should == [4, 3]
+    @enum.first(4).should == [4, 3, 2, 1]
+  end
+
+  it "returns an empty array when passed count on an empty array" do
+    empty = EnumerableSpecs::Empty.new
+    empty.first(0).should == []
+    empty.first(1).should == []
+    empty.first(2).should == []
+  end
+
+  it "returns an empty array when passed count == 0" do
+    @enum.first(0).should == []
+  end
+
+  it "returns an array containing the first element when passed count == 1" do
+    @enum.first(1).should == [4]
+  end
+
+  it "returns the entire array when count > length" do
+    @enum.first(100).should == @values
+    @enum.first(8).should == @values
+  end
+end