opal 0.3.11 → 0.3.15

data/runtime/corelib/string.rb

@@ -0,0 +1,185 @@
+class String
+  def self.new(str = '')
+    str.to_s
+  end
+
+  def <(other)
+    `this < other`
+  end
+
+  def <=(other)
+    `this <= other`
+  end
+
+  def >(other)
+    `this > other`
+  end
+
+  def >=(other)
+    `this >= other`
+  end
+
+  def +(other)
+    `this + other`
+  end
+
+  def [](index, length)
+    `this.substr(index, length)`
+  end
+
+  def ==(other)
+    `this.valueOf() === other.valueOf()`
+  end
+
+  def =~(other)
+    %x{
+      if (typeof other === 'string') {
+        raise(RubyTypeError, 'string given');
+      }
+
+      return #{other =~ self};
+    }
+  end
+
+  def <=>(other)
+    %x{
+      if (typeof other !== 'string') {
+        return nil;
+      }
+
+      return this > other ? 1 : (this < other ? -1 : 0);
+    }
+  end
+
+  def capitalize
+    `this.charAt(0).toUpperCase() + this.substr(1).toLowerCase()`
+  end
+
+  def casecmp(other)
+    %x{
+      if (typeof other !== 'string') {
+        return other;
+      }
+
+      var a = this.toLowerCase(),
+          b = other.toLowerCase();
+
+      return a > b ? 1 : (a < b ? -1 : 0);
+    }
+  end
+
+  def downcase
+    `this.toLowerCase()`
+  end
+
+  def end_with?(suffix)
+    `this.lastIndexOf(suffix) === this.length - suffix.length`
+  end
+
+  def empty?
+    `this.length === 0`
+  end
+
+  def gsub(pattern, replace = undefined, &block)
+    %x{
+      var re = pattern.toString();
+          re = re.substr(1, re.lastIndexOf('/') - 1);
+          re = new RegExp(re, 'g');
+
+      return #{sub re, replace, &block};
+    }
+  end
+
+  def hash
+    `this.toString()`
+  end
+
+  def include?(other)
+    `this.indexOf(other) !== -1`
+  end
+
+  def index(substr)
+    %x{
+      var result = this.indexOf(substr);
+      return result === -1 ? nil : result
+    }
+  end
+
+  def inspect
+    `string_inspect(this)`
+  end
+
+  def intern
+    self
+  end
+
+  def length
+    `this.length`
+  end
+
+  def lstrip
+    `this.replace(/^\s*/, '')`
+  end
+
+  def next
+    `String.fromCharCode(this.charCodeAt(0))`
+  end
+
+  def reverse
+    `this.split('').reverse().join('')`
+  end
+
+  def split(split, limit = undefined)
+    `this.split(split, limit)`
+  end
+
+  def start_with?(prefix)
+    `this.indexOf(prefix) === 0`
+  end
+
+  def sub(pattern, replace = undefined, &block)
+    %x{
+      if (block !== nil) {
+        return this.replace(pattern, function(str) {
+          return $yield.call($context, null, str);
+        });
+      }
+      else {
+        return this.replace(pattern, replace);
+      }
+    }
+  end
+
+  alias_method :succ, :next
+
+  def to_f
+    `parseFloat(this)`
+  end
+
+  def to_i(base = 10)
+    `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](); };
+    }
+  end
+
+  def to_s
+    `this.toString()`
+  end
+
+  alias_method :to_sym, :intern
+
+  def upcase
+    `this.toUpperCase()`
+  end
+end
+
+Symbol = String

data/runtime/corelib/struct.rb

@@ -0,0 +1,97 @@
+class Struct
+  def self.new(name, *args)
+    return super unless self == Struct
+
+    if name.is_a?(String)
+      Struct.const_set(name, new(*args))
+    else
+      args.unshift name
+
+      Class.new(self) {
+        args.each { |name| define_struct_attribute name }
+      }
+    end
+  end
+
+  def self.define_struct_attribute(name)
+    members << name
+
+    define_method name do
+      instance_variable_get "@#{name}"
+    end
+
+    define_method "#{name}=" do |value|
+      instance_variable_set "@#{name}", value
+    end
+  end
+
+  def self.members
+    @members ||= []
+  end
+
+  include Enumerable
+
+  def initialize(*args)
+    members.each_with_index {|name, index|
+      instance_variable_set "@#{name}", args[index]
+    }
+  end
+
+  def members
+    self.class.members
+  end
+
+  def [](name)
+    if name.is_a?(Integer)
+      raise IndexError, "offset #{name} too large for struct(size:#{members.size})" if name >= members.size
+
+      name = members[name]
+    else
+      raise NameError, "no member '#{name}' in struct" unless members.include?(name.to_sym)
+    end
+
+    instance_variable_get "@#{name}"
+  end
+
+  def []=(name, value)
+    if name.is_a?(Integer)
+      raise IndexError, "offset #{name} too large for struct(size:#{members.size})" if name >= members.size
+
+      name = members[name]
+    else
+      raise NameError, "no member '#{name}' in struct" unless members.include?(name.to_sym)
+    end
+
+    instance_variable_set "@#{name}", value
+  end
+
+  def each
+    return enum_for :each unless block_given?
+
+    members.each { |name| yield self[name] }
+  end
+
+  def each_pair
+    return enum_for :each_pair unless block_given?
+
+    members.each { |name| yield name, self[name] }
+  end
+
+  def eql?(other)
+    hash == other.hash || other.each_with_index.all? {|object, index|
+      self[members[index]] == object
+    }
+  end
+
+  def length
+    members.length
+  end
+
+  alias size length
+
+  def to_a
+    members.map { |name| self[name] }
+  end
+
+  alias values to_a
+end

data/runtime/corelib/time.rb

@@ -0,0 +1,196 @@
+class Time
+  include Native
+  include Comparable
+
+  def self.at(seconds, frac = 0)
+    from_native(`new Date(seconds * 1000 + frac)`)
+  end
+
+  def self.now
+    from_native(`new Date()`)
+  end
+
+  def initialize(year = nil, month = nil, day = nil, hour = nil, min = nil, sec = nil, utc_offset = nil)
+    if year
+      super(`new Date(#{year.to_native}, #{month.to_native}, #{day.to_native}, #{hour.to_native}, #{min.to_native}, #{sec.to_native})`)
+    else
+      super(`new Date()`)
+    end
+  end
+
+  def +(other)
+    from_native(`new Date(#{to_f + other.to_f})`)
+  end
+
+  def -(other)
+    from_native(`new Date(#{to_f - other.to_f})`)
+  end
+
+  def <=>(other)
+    to_f <=> other.to_f
+  end
+
+  def asctime
+    raise NotImplementedError
+  end
+
+  alias ctime asctime
+
+  def day
+    `#@native.getDate()`
+  end
+
+  def dst?
+    raise NotImplementedError
+  end
+
+  def eql?(other)
+    other.is_a?(Time) && (self <=> other).zero?
+  end
+
+  def friday?
+    wday == 5
+  end
+
+  def getgm
+    raise NotImplementedError
+  end
+
+  def getlocal (*)
+    raise NotImplementedError
+  end
+
+  alias getutc getgm
+
+  def gmt?
+    raise NotImplementedError
+  end
+
+  def gmt_offset
+    raise NotImplementedError
+  end
+
+  def gmtime
+    raise NotImplementedError
+  end
+
+  alias gmtoff gmt_offset
+
+  def hour
+    `#@native.getHours()`
+  end
+
+  alias isdst dst?
+
+  def localtime (*)
+    raise NotImplementedError
+  end
+
+  alias mday day
+
+  def min
+    `#@native.getMinutes()`
+  end
+
+  def mon
+    `#@native.getMonth() + 1`
+  end
+
+  def monday?
+    wday == 1
+  end
+
+  alias month mon
+
+  def nsec
+    raise NotImplementedError
+  end
+
+  def round (*)
+    raise NotImplementedError
+  end
+
+  def saturday?
+    wday == 6
+  end
+
+  def sec
+    `#@native.getSeconds()`
+  end
+
+  def strftime (string)
+    raise NotImplementedError
+  end
+
+  def subsec
+    raise NotImplementedError
+  end
+
+  def sunday?
+    wday == 0
+  end
+
+  def thursday?
+    wday == 4
+  end
+
+  def to_a
+    raise NotImplementedError
+  end
+
+  def to_f
+    `#@native.getTime() / 1000`
+  end
+
+  def to_i
+    `parseInt(#@native.getTime() / 1000)`
+  end
+
+  def to_r
+    raise NotImplementedError
+  end
+
+  def to_s
+    raise NotImplementedError
+  end
+
+  def tuesday?
+    wday == 2
+  end
+
+  alias tv_nsec nsec
+
+  alias tv_sec to_i
+
+  def tv_usec
+    raise NotImplementedError
+  end
+
+  alias usec tv_usec
+
+  alias utc gmtime
+
+  alias utc? gmt?
+
+  alias utc_offset gmt_offset
+
+  def wday
+    `#@native.getDay()`
+  end
+
+  def wednesday?
+    wday == 3
+  end
+
+  def yday
+    raise NotImplementedError
+  end
+
+  def year
+    `#@native.getFullYear()`
+  end
+
+  def zone
+    raise NotImplementedError
+  end
+end