opal-cj 0.7.0.beta1

data/stdlib/date.rb

@@ -0,0 +1,170 @@
+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]), parseInt(match[2]) - 1, parseInt(match[3]))`
+    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;
+      return (a.getFullYear() === b.getFullYear() && a.getMonth() === b.getMonth() && a.getDate() === b.getDate());
+    }
+  end
+
+  alias eql? ==
+
+  def clone
+    Date.wrap(`new Date(#@date.getTime())`)
+  end
+
+  def day
+    `#@date.getDate()`
+  end
+
+  def month
+    `#@date.getMonth() + 1`
+  end
+
+  def next
+    res = self.clone
+    `res.date.setDate(#@date.getDate() + 1)`
+    res
+  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
+    res = self.clone
+    `res.date.setDate(#@date.getDate() - 1)`
+    res
+  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 strftime(format = '')
+    `#@date.$strftime(#{format})`
+  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 wday
+    `#@date.getDay()`
+  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

data/stdlib/dir.rb

@@ -0,0 +1 @@
+warn "Dir is already part of corelib now, you don't need to require it anymore."

data/stdlib/encoding.rb

@@ -0,0 +1,166 @@
+require 'corelib/string'
+
+class Encoding
+  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|
+      const_set name.sub('-', '_'), encoding
+    }
+  end
+
+  def self.find(name)
+    return name if self === name
+
+    constants.each {|const|
+      encoding = const_get(const)
+
+      if encoding.name == name || encoding.names.include?(name)
+        return encoding
+      end
+    }
+
+    raise ArgumentError, "unknown encoding name - #{name}"
+  end
+
+  class << self
+    attr_accessor :default_external
+  end
+
+  attr_reader :name, :names
+
+  def initialize(name, names, ascii, dummy)
+    @name  = name
+    @names = names
+    @ascii = ascii
+    @dummy = dummy
+  end
+
+  def ascii_compatible?
+    @ascii
+  end
+
+  def dummy?
+    @dummy
+  end
+
+  def to_s
+    @name
+  end
+
+  def inspect
+    "#<Encoding:#{@name}#{" (dummy)" if @dummy}>"
+  end
+
+  # methods to implement per encoding
+  def each_byte(*)
+    raise NotImplementedError
+  end
+
+  def getbyte(*)
+    raise NotImplementedError
+  end
+
+  def bytesize(*)
+    raise NotImplementedError
+  end
+end
+
+Encoding.register "UTF-8", aliases: ["CP65001"], ascii: true do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        var code = string.charCodeAt(i);
+
+        if (code <= 0x7f) {
+          #{yield `code`};
+        }
+        else {
+          var encoded = encodeURIComponent(string.charAt(i)).substr(1).split('%');
+
+          for (var j = 0, encoded_length = encoded.length; j < encoded_length; j++) {
+            #{yield `parseInt(encoded[j], 16)`};
+          }
+        }
+      }
+    }
+  end
+
+  def bytesize
+    bytes.length
+  end
+end
+
+Encoding.register "UTF-16LE" do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        var code = string.charCodeAt(i);
+
+        #{yield `code & 0xff`};
+        #{yield `code >> 8`};
+      }
+    }
+  end
+
+  def bytesize
+    bytes.length
+  end
+end
+
+Encoding.register "ASCII-8BIT", aliases: ["BINARY"], ascii: true do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        #{yield `string.charCodeAt(i) & 0xff`};
+      }
+    }
+  end
+
+  def bytesize
+    bytes.length
+  end
+end
+
+class String
+  `def.encoding = #{Encoding::UTF_16LE}`
+
+  def bytes
+    each_byte.to_a
+  end
+
+  def bytesize
+    @encoding.bytesize(self)
+  end
+
+  def each_byte(&block)
+    return enum_for :each_byte unless block_given?
+
+    @encoding.each_byte(self, &block)
+
+    self
+  end
+
+  def encoding
+    @encoding
+  end
+
+  def force_encoding(encoding)
+    encoding = Encoding.find(encoding)
+
+    return self if encoding == @encoding
+
+    %x{
+      var result = new String(self);
+      result.encoding = encoding;
+
+      return result;
+    }
+  end
+
+  def getbyte(idx)
+    @encoding.getbyte(self, idx)
+  end
+end

data/stdlib/enumerator.rb

@@ -0,0 +1 @@
+# stub

data/stdlib/erb.rb

@@ -0,0 +1,16 @@
+require 'template'
+
+class ERB
+  module Util
+    `var escapes = { '&': '&amp;', '<': '&lt;', '>': '&gt;', '"': '&quot;', "'": '&#39;'};`
+    `var escape_regexp = /[&<>"']/g;`
+
+    def html_escape(str)
+      `return ("" + str).replace(escape_regexp, function (m) { return escapes[m] });`
+    end
+
+    alias h html_escape
+    module_function :h
+    module_function :html_escape
+  end
+end

data/stdlib/file.rb

@@ -0,0 +1 @@
+warn "File is already part of corelib now, you don't need to require it anymore."

data/stdlib/forwardable.rb

@@ -0,0 +1,71 @@
+module Forwardable
+  def instance_delegate(hash)
+    hash.each {|methods, accessor|
+      methods = [methods] unless methods.respond_to? :each
+
+      methods.each {|method|
+        def_instance_delegator(accessor, method)
+      }
+    }
+  end
+
+  def def_instance_delegators(accessor, *methods)
+    methods.each {|method|
+      next if %w[__send__ __id__].include?(method)
+
+      def_instance_delegator(accessor, method)
+    }
+  end
+
+  def def_instance_delegator(accessor, method, ali = method)
+    if accessor.to_s.start_with? ?@
+      define_method ali do |*args, &block|
+        instance_variable_get(accessor).__send__(method, *args, &block)
+      end
+    else
+      define_method ali do |*args, &block|
+        __send__(accessor).__send__(method, *args, &block)
+      end
+    end
+  end
+
+  alias delegate instance_delegate
+  alias def_delegators def_instance_delegators
+  alias def_delegator def_instance_delegator
+end
+
+module SingleForwardable
+  def single_delegate(hash)
+    hash.each {|methods, accessor|
+      methods = [methods] unless methods.respond_to? :each
+
+      methods.each {|method|
+        def_single_delegator(accessor, method)
+      }
+    }
+  end
+
+  def def_single_delegators(accessor, *methods)
+    methods.each {|method|
+      next if %w[__send__ __id__].include? method
+
+      def_single_delegator(accessor, method)
+    }
+  end
+
+  def def_single_delegator(accessor, method, ali = method)
+    if accessor.to_s.start_with? ?@
+      define_singleton_method ali do |*args, &block|
+        instance_variable_get(accessor).__send__(method, *args, &block)
+      end
+    else
+      define_singleton_method ali do |*args, &block|
+        __send__(accessor).__send__(method, *args, &block)
+      end
+    end
+  end
+
+  alias delegate single_delegate
+  alias def_delegators def_single_delegators
+  alias def_delegator def_single_delegator
+end