opal-wedge 0.9.0.dev

data/stdlib/buffer.rb

@@ -0,0 +1,41 @@
+require 'native'
+require 'buffer/array'
+require 'buffer/view'
+
+class Buffer
+  include Native
+
+  def self.supported?
+    not $$[:ArrayBuffer].nil?
+  end
+
+  def self.name_for(bits, type)
+    "#{case type
+      when :unsigned then 'Uint'
+      when :signed   then 'Int'
+      when :float    then 'Float'
+    end}#{bits}"
+  end
+
+  def initialize(size, bits = 8)
+    if native?(size)
+      super(size)
+    else
+      super(`new ArrayBuffer(size * (bits / 8))`)
+    end
+  end
+
+  def length
+    `#@native.byteLength`
+  end
+
+  alias size length
+
+  def to_a(bits = 8, type = :unsigned)
+    Array.new(self, bits, type)
+  end
+
+  def view(offset = nil, length = nil)
+    View.new(self, offset, length)
+  end
+end

data/stdlib/buffer/array.rb

@@ -0,0 +1,66 @@
+class Buffer < Native
+
+class Array < Native
+  def self.for(bits, type)
+    $$["#{Buffer.name_for bits, type}Array"]
+  end
+
+  include Enumerable
+
+  attr_reader :buffer, :type
+
+  def initialize(buffer, bits = nil, type = nil)
+    if Native == buffer
+      super(buffer)
+    else
+      %x{
+        var klass = #{Array.for(bits, type)};
+
+        #{super(`new klass(#{buffer.to_n})`)}
+      }
+    end
+
+    @buffer = buffer
+    @type   = type
+  end
+
+  def bits
+    `#@native.BYTES_PER_ELEMENT * 8`
+  end
+
+  def [](index, offset = nil)
+    offset ? `#@native.subarray(index, offset)` : `#@native[index]`
+  end
+
+  def []=(index, value)
+    `#@native[index] = value`
+  end
+
+  def bytesize
+    `#@native.byteLength`
+  end
+
+  def each
+    return enum_for :each unless block_given?
+
+    %x{
+      for (var i = 0, length = #@native.length; i < length; i++) {
+        #{yield `#@native[i]`}
+      }
+    }
+
+    self
+  end
+
+  def length
+    `#@native.length`
+  end
+
+  def merge!(other, offset = undefined)
+    `#@native.set(#{other.to_n}, offset)`
+  end
+
+  alias size length
+end
+
+end

data/stdlib/buffer/view.rb

@@ -0,0 +1,70 @@
+class Buffer
+
+class View
+  include Native
+
+  def self.supported?
+    not $$[:DataView].nil?
+  end
+
+  attr_reader :buffer, :offset
+
+  def initialize(buffer, offset = nil, length = nil)
+    if native?(buffer)
+      super(buffer)
+    elsif offset && length
+      super(`new DataView(#{buffer.to_n}, #{offset.to_n}, #{length.to_n})`)
+    elsif offset
+      super(`new DataView(#{buffer.to_n}, #{offset.to_n})`)
+    else
+      super(`new DataView(#{buffer.to_n})`)
+    end
+
+    @buffer = buffer
+    @offset = offset
+  end
+
+  def length
+    `#@native.byteLength`
+  end
+
+  alias size length
+
+  def get(offset, bits = 8, type = :unsigned, little = false)
+    `#@native["get" + #{Buffer.name_for bits, type}](offset, little)`
+  end
+
+  alias [] get
+
+  def set(offset, value, bits = 8, type = :unsigned, little = false)
+    `#@native["set" + #{Buffer.name_for bits, type}](offset, value, little)`
+  end
+
+  alias []= set
+
+  def get_int8(offset, little = false); `#@native.getInt8(offset, little)`; end
+  def set_int8(offset, value, little = false); `#@native.setInt8(offset, value, little)`; end
+
+  def get_uint8(offset, little = false); `#@native.getUint8(offset, little)`; end
+  def set_uint8(offset, value, little = false); `#@native.setUint8(offset, value, little)`; end
+
+  def get_int16(offset, little = false); `#@native.getInt16(offset, little)`; end
+  def set_int16(offset, value, little = false); `#@native.setInt16(offset, value, little)`; end
+
+  def get_uint16(offset, little = false); `#@native.getUint16(offset, little)`; end
+  def set_uint16(offset, value, little = false); `#@native.setUint16(offset, value, little)`; end
+
+  def get_int32(offset, little = false); `#@native.getInt32(offset, little)`; end
+  def set_int32(offset, value, little = false); `#@native.setInt32(offset, value, little)`; end
+
+  def get_uint32(offset, little = false); `#@native.getUint32(offset, little)`; end
+  def set_uint32(offset, value, little = false); `#@native.setUint32(offset, value, little)`; end
+
+  def get_float32(offset, little = false); `#@native.getFloat32(offset, little)`; end
+  def set_float32(offset, value, little = false); `#@native.setFloat32(offset, value, little)`; end
+
+  def get_float64(offset, little = false); `#@native.getFloat64(offset, little)`; end
+  def set_float64(offset, value, little = false); `#@native.setFloat64(offset, value, little)`; end
+end
+
+end

data/stdlib/date.rb

@@ -0,0 +1,248 @@
+class Date
+  class << self
+    alias civil new
+
+    def wrap(native)
+      instance = allocate
+      `#{instance}.date = #{native}`
+      instance
+    end
+
+    def parse(string)
+      match = `/^(\d*)-(\d*)-(\d*)/.exec(string)`
+      wrap `new Date(parseInt(match[1], 10), parseInt(match[2], 10) - 1, parseInt(match[3], 10))`
+    end
+
+    def today
+      wrap `new Date()`
+    end
+  end
+
+  def initialize(year = undefined, month = undefined, day = undefined)
+    @date = `new Date(year, month - 1, day)`
+  end
+
+  def -(date)
+    %x{
+      if (date.$$is_number) {
+        var result = #{clone};
+        result.date.setDate(#@date.getDate() - date);
+        return result;
+      }
+      else if (date.date) {
+        return Math.round((#@date - #{date}.date) / (1000 * 60 * 60 * 24));
+      }
+      else {
+        #{raise TypeError};
+      }
+    }
+  end
+
+  def +(date)
+    %x{
+      if (date.$$is_number) {
+        var result = #{clone};
+        result.date.setDate(#@date.getDate() + date);
+        return result;
+      }
+      else {
+        #{raise TypeError};
+      }
+    }
+  end
+
+  def <(other)
+    %x{
+      var a = #@date, b = #{other}.date;
+      a.setHours(0, 0, 0, 0);
+      b.setHours(0, 0, 0, 0);
+      return a < b;
+    }
+  end
+
+  def <=(other)
+    %x{
+      var a = #@date, b = #{other}.date;
+      a.setHours(0, 0, 0, 0);
+      b.setHours(0, 0, 0, 0);
+      return a <= b;
+    }
+  end
+
+  def >(other)
+    %x{
+      var a = #@date, b = #{other}.date;
+      a.setHours(0, 0, 0, 0);
+      b.setHours(0, 0, 0, 0);
+      return a > b;
+    }
+  end
+
+  def >=(other)
+    %x{
+      var a = #@date, b = #{other}.date;
+      a.setHours(0, 0, 0, 0);
+      b.setHours(0, 0, 0, 0);
+      return a >= b;
+    }
+  end
+
+  def <=>(other)
+    %x{
+      var a = #@date, b = #{other}.date;
+      a.setHours(0, 0, 0, 0);
+      b.setHours(0, 0, 0, 0);
+
+      if (a < b) {
+        return -1;
+      }
+      else if (a > b) {
+        return 1;
+      }
+      else {
+        return 0;
+      }
+    }
+  end
+
+  def ==(other)
+    %x{
+      var a = #@date, b = other.date;
+      return (a.getFullYear() === b.getFullYear() && a.getMonth() === b.getMonth() && a.getDate() === b.getDate());
+    }
+  end
+
+  def >>(n)
+    %x{
+      if (!n.$$is_number) {
+        #{raise TypeError};
+      }
+
+      var result = #{clone}, date = result.date, cur = date.getDate();
+      date.setDate(1);
+      date.setMonth(date.getMonth() + n);
+      date.setDate(Math.min(cur, days_in_month(date.getFullYear(), date.getMonth())));
+      return result;
+    }
+  end
+
+  def <<(n)
+    %x{
+      if (!n.$$is_number) {
+        #{raise TypeError};
+      }
+
+      return #{self >> `-n`};
+    }
+  end
+
+  alias eql? ==
+
+  def clone
+    Date.wrap(`new Date(#@date.getTime())`)
+  end
+
+  def day
+    `#@date.getDate()`
+  end
+
+  def friday?
+    wday == 5
+  end
+
+  def monday?
+    wday == 1
+  end
+
+  def month
+    `#@date.getMonth() + 1`
+  end
+
+  def next
+    self + 1
+  end
+
+  def next_day(n=1)
+    self + n
+  end
+
+  def next_month
+    %x{
+      var result = #{clone}, date = result.date, cur = date.getDate();
+      date.setDate(1);
+      date.setMonth(date.getMonth() + 1);
+      date.setDate(Math.min(cur, days_in_month(date.getFullYear(), date.getMonth())));
+      return result;
+    }
+  end
+
+  def prev_day(n=1)
+    self - n
+  end
+
+  def prev_month
+    %x{
+      var result = #{clone}, date = result.date, cur = date.getDate();
+      date.setDate(1);
+      date.setMonth(date.getMonth() - 1);
+      date.setDate(Math.min(cur, days_in_month(date.getFullYear(), date.getMonth())));
+      return result;
+    }
+  end
+
+  def saturday?
+    wday == 6
+  end
+
+  def strftime(format = '')
+    %x{
+      if (format == '') {
+        return #{to_s};
+      }
+
+      return #@date.$strftime(#{format});
+    }
+  end
+
+  alias_method :succ, :next
+
+  def sunday?
+    wday == 0
+  end
+
+  def thursday?
+    wday == 4
+  end
+
+  def to_s
+    %x{
+      var d = #@date, year = d.getFullYear(), month = d.getMonth() + 1, day = d.getDate();
+      if (month < 10) { month = '0' + month; }
+      if (day < 10) { day = '0' + day; }
+      return year + '-' + month + '-' + day;
+    }
+  end
+
+  def tuesday?
+    wday == 2
+  end
+
+  def wday
+    `#@date.getDay()`
+  end
+
+  def wednesday?
+    wday == 3
+  end
+
+  def year
+    `#@date.getFullYear()`
+  end
+
+  %x{
+    function days_in_month(year, month) {
+      var leap = ((year % 4 === 0 && year % 100 !== 0) || year % 400 === 0);
+      return [31, (leap ? 29 : 28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31][month]
+    }
+  }
+end

data/stdlib/delegate.rb

@@ -0,0 +1,29 @@
+class Delegator < BasicObject
+  def initialize(obj)
+    __setobj__(obj)
+  end
+
+  def method_missing(m, *args, &block)
+    target = self.__getobj__
+
+    if target.respond_to?(m)
+      target.__send__(m, *args, &block)
+    else
+      super(m, *args, &block)
+    end
+  end
+end
+
+class SimpleDelegator < Delegator
+  def __getobj__
+    @delegate_sd_obj
+  end
+
+  def __setobj__(obj)
+    @delegate_sd_obj = obj
+  end
+end
+
+def DelegateClass(superklass)
+  SimpleDelegator
+end