opal-browser 0.1.0.beta1

data/opal/browser/compatibility/dom/document/window.rb

@@ -0,0 +1,15 @@
+module Browser; module DOM; class Document < Element
+
+unless C.has? `document`, :defaultView
+  if C.has? `document`, :parentWindow
+    def window
+      `#@native.parentWindow`
+    end
+  else
+    def window
+      raise NotImplementedError, 'window from document is unsupported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/dom/element/css.rb

@@ -0,0 +1,15 @@
+module Browser; module DOM; class Element
+
+unless C.respond_to?(:Element, :querySelectorAll)
+  if C.sizzle?
+    def css(path)
+      NodeSet.new(document, `Sizzle(#{path}, #@native)`)
+    end
+  else
+    def css(*)
+      raise NotImplementedError, 'fetching by selector unsupported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/dom/element/matches.rb

@@ -0,0 +1,31 @@
+module Browser; module DOM; class Element
+
+unless C.respond_to?(:Element, :matches)
+  if C.respond_to?(:Element, :oMatchesSelector)
+    def matches?(selector)
+      `#@native.oMatchesSelector(#{selector})`
+    end
+  elsif C.respond_to?(:Element, :msMatchesSelector)
+    def matches?(selector)
+      `#@native.msMatchesSelector(#{selector})`
+    end
+  elsif C.respond_to?(:Element, :mozMatchesSelector)
+    def matches?(selector)
+      `#@native.mozMatchesSelector(#{selector})`
+    end
+  elsif C.respond_to?(:Element, :webkitMatchesSelector)
+    def matches?(selector)
+      `#@native.webkitMatchesSelector(#{selector})`
+    end
+  elsif C.sizzle?
+    def matches?(selector)
+      `Sizzle.matchesSelector(#@native, #{selector})`
+    end
+  else
+    def matches?(*)
+      raise NotImplementedError, 'matches by selector unsupported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/dom/element/offset.rb

@@ -0,0 +1,20 @@
+module Browser; module DOM; class Element
+
+class Offset
+  unless C.has? `document.body`, :getBoundingClientRect
+    def position
+      doc  = document
+      root = doc.root.to_n
+      win  = doc.window.to_n
+
+      %x{
+        var y = (#{win}.pageYOffset || #{root}.scrollTop) - (#{root}.clientTop || 0),
+            x = (#{win}.pageXOffset || #{root}.scrollLeft) - (#{root}.clientLeft || 0);
+      }
+
+      Browser::Position.new(`x`, `y`)
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/dom/element/scroll.rb

@@ -0,0 +1,25 @@
+module Browser; module DOM; class Element
+
+unless C.has? `document.body`, :scrollLeft
+  if C.has? `document.body`, :pageXOffset
+    def scroll(to = nil)
+      if to
+        if x = to[:x]
+          `#@native.pageXOffset = #{x}`
+        end
+
+        if y = to[:y]
+          `#@native.pageYOffset = #{y}`
+        end
+      else
+        Position.new(`#@native.pageXOffset`, `#@native.pageYOffset`)
+      end
+    end
+  else
+    def scroll(*)
+      raise NotImplementedError, 'scroll on element not supported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/dom/element/style.rb

@@ -0,0 +1,15 @@
+module Browser; module DOM; class Element
+
+unless C.has? :getComputedStyle
+  if C.has?(`document.documentElement`, :currentStyle)
+    def style!
+      CSS::Declaration.new(`#@native.currentStyle`)
+    end
+  else
+    def style!
+      raise NotImplementedError, 'computed style unsupported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/dom/mutation_observer.rb

@@ -0,0 +1,47 @@
+module Browser; module DOM
+
+unless defined?(`window.MutationObserver`)
+  class MutationObserver
+    class Record
+      attr_reader :type, :target, :old, :attribute
+
+      def initialize(*)
+
+      end
+
+      def attributes?; type == :attributes; end
+      def tree?;       type == :tree;       end
+      def cdata?;      type == :cdata;      end
+    end
+
+    def initialize(&block)
+      @block    = block
+      @observed = []
+    end
+
+    def observe(target, options = nil)
+      unless options
+        options = {
+          children:   true,
+          tree:       true,
+          attributes: :old,
+          cdata:      :old
+        }
+      end
+
+      self
+    end
+
+    def take
+      result, @records = @records, []
+
+      result
+    end
+
+    def disconnect
+
+    end
+  end
+end
+
+end; end

data/opal/browser/compatibility/http/request.rb

@@ -0,0 +1,15 @@
+module Browser; module HTTP; class Request
+
+unless C.has? :XMLHttpRequest
+  if C.has? :ActiveXObject
+    def transport
+      `new ActiveXObject("MSXML2.XMLHTTP.3.0")`
+    end
+  else
+    def transport
+      raise NotImplementedError, 'XMLHttpRequest is unsupported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/immediate.rb

@@ -0,0 +1,107 @@
+module Browser
+
+module Compatibility
+  def self.immediate?(prefix = nil)
+    if prefix
+      has?("#{prefix}SetImmediate")
+    else
+      has?(:setImmediate)
+    end
+  end
+
+  def self.post_message?
+    return false unless has?(:postMessage) && !has?(:importScripts)
+
+    %x{
+      var ok  = true,
+          old = window.onmessage;
+
+      window.onmessage = function() { ok = false; };
+      window.postMessage("", "*")
+      window.onmessage = old;
+
+      return ok;
+    }
+  end
+
+  def self.ready_state_change?
+    `"onreadystatechange" in window.document.createElement("script")`
+  end
+end
+
+class Immediate
+  if C.immediate?
+    def dispatch
+      @id = `window.setImmediate(function() {
+        #{@function.call(@arguments, &@block)};
+      })`
+    end
+
+    def prevent
+      `window.clearImmediate(#@id)`
+    end
+  elsif C.immediate? :ms
+    def dispatch
+      @id = `window.msSetImmediate(function() {
+        #{@function.call(@arguments, &@block)};
+      })`
+    end
+
+    def prevent
+      `window.msClearImmediate(#@id)`
+    end
+  elsif C.post_message?
+    @@tasks  = {}
+    @@prefix = "opal.browser.immediate.#{rand(1_000_000)}."
+
+    $window.on :message do |e|
+      if String === e.data && e.data.start_with?(@@prefix)
+        if task = @@tasks.delete(e.data[@@prefix.length .. -1])
+          task[0].call(*task[1], &task[2])
+        end
+      end
+    end
+
+    def dispatch
+      @id          = rand(1_000_000).to_s
+      @@tasks[@id] = [@function, @arguments, @block]
+
+      $window.send! "#{@@prefix}#{@id}"
+    end
+
+    def prevent
+      @@tasks.delete(@id)
+    end
+  elsif C.ready_state_change?
+    def dispatch
+      %x{
+        var script = document.createElement("script");
+
+        script.onreadystatechange = function() {
+          if (!#{aborted?}) {
+            #{@function.call(@arguments, &@block)};
+          }
+
+          script.onreadystatechange = null;
+          script.parentNode.removeChild(script);
+        };
+
+        document.documentElement.appendChild(script);
+      }
+    end
+
+    def prevent; end
+  else
+    def dispatch
+      @id = `window.setTimeout(function() {
+        #{@function.call(*@arguments, &@block)};
+      }, 0)`
+    end
+
+    def prevent
+      `window.clearTimeout(#@id)`
+    end
+  end
+end
+
+end

data/opal/browser/compatibility/window/scroll.rb

@@ -0,0 +1,27 @@
+module Browser; class Window; class Scroll
+
+unless C.has? `document.documentElement`, :scrollLeft
+  if C.has? :pageXOffset
+    def position
+      Position.new(x, y)
+    end
+
+    def x
+      `#@native.pageXOffset`
+    end
+
+    def y
+      `#@native.pageYOffset`
+    end
+  else
+    def x
+      raise NotImplementedError, 'window scroll unsupported'
+    end
+
+    def y
+      raise NotImplementedError, 'window scroll unsupported'
+    end
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/window/size.rb

@@ -0,0 +1,13 @@
+module Browser; class Window; class Size
+
+unless C.has? :outerHeight
+  def width
+    raise NotImplementedError, 'window outer size not supported'
+  end
+
+  def height
+    raise NotImplementedError, 'window outer size not supported'
+  end
+end
+
+end; end; end

data/opal/browser/compatibility/window/view.rb

@@ -0,0 +1,13 @@
+module Browser; class Window; class View
+
+unless C.has? :innerHeight
+  def width
+    `#@native.document.documentElement.clientWidth`
+  end
+
+  def height
+    `#@native.document.documentElement.clientHeight`
+  end
+end
+
+end; end; end

data/opal/browser/console.rb

@@ -0,0 +1,137 @@
+module Browser
+
+# This class wraps a `window.console`.
+class Console
+  include Native
+
+  # Clear the console.
+  #
+  # @return [self]
+  def clear
+    `#@native.clear()`
+
+    self
+  end
+
+  # Print a stacktrace from the call site.
+  #
+  # @return [self]
+  def trace
+    `#@native.trace()`
+
+    self
+  end
+
+  # Log the passed objects based on an optional initial format.
+  #
+  # @return [self]
+  def log(*args)
+    `#@native.log.apply(#@native, args)`
+
+    self
+  end
+
+  # Log the passed objects based on an optional initial format as informational
+  # log.
+  #
+  # @return [self]
+  def info(*args)
+    `#@native.info.apply(#@native, args)`
+
+    self
+  end
+
+  # Log the passed objects based on an optional initial format as warning.
+  #
+  # @return [self]
+  def warn(*args)
+    `#@native.warn.apply(#@native, args)`
+
+    self
+  end
+
+  # Log the passed objects based on an optional initial format as error.
+  #
+  # @return [self]
+  def error(*args)
+    `#@native.error.apply(#@native, args)`
+
+    self
+  end
+
+  # Time the given block with the given label.
+  #
+  # @return [self]
+  def time(label, &block)
+    raise ArgumentError, "no block given" unless block
+
+    `#@native.time(label)`
+
+    begin
+      if block.arity == 0
+        instance_exec(&block)
+      else
+        block.call(self)
+      end
+    ensure
+      `#@native.timeEnd()`
+    end
+
+    self
+  end
+
+  # Group the given block.
+  #
+  # @return [self]
+  def group(*args, &block)
+    raise ArgumentError, "no block given" unless block
+
+    `#@native.group.apply(#@native, args)`
+
+    begin
+      if block.arity == 0
+        instance_exec(&block)
+      else
+        block.call(self)
+      end
+    ensure
+      `#@native.groupEnd()`
+    end
+
+    self
+  end
+
+  # Group the given block but collapse it.
+  #
+  # @return [self]
+  def group!(*args, &block)
+    return unless block_given?
+
+    `#@native.groupCollapsed.apply(#@native, args)`
+
+    begin
+      if block.arity == 0
+        instance_exec(&block)
+      else
+        block.call(self)
+      end
+    ensure
+      `#@native.groupEnd()`
+    end
+
+    self
+  end
+end
+
+class Window
+  # Get the {Console} for this window.
+  #
+  # @return [Console]
+  def console
+    Console.new(`#@native.console`)
+  end
+end
+
+$console = $window.console
+
+end