opal-browser 0.1.0.beta1 → 0.2.0.beta1

data/opal/browser/compatibility.rb

@@ -1,59 +0,0 @@
-BROWSER_ENGINE = `/MSIE|WebKit|Presto|Gecko/.exec(navigator.userAgent)[0]`.downcase rescue :unknown
-
-module Browser
-
-module Compatibility
-  def self.sizzle?
-    defined?(`window.Sizzle`)
-  end
-
-  # FIXME: v
-  # def self.respond_to?(parent = `window`, object, method)
-  # ^
-  def self.respond_to?(*args)
-    if args.length == 2
-      parent         = `window`
-      object, method = args
-    else
-      parent, object, method = args
-    end
-
-    %x{
-      if (!#{parent}) {
-        return false;
-      }
-
-      var klass = #{parent}[#{object}];
-
-      if (!klass) {
-        return false;
-      }
-
-      return typeof(klass.prototype[#{method}]) === "function";
-    }
-  end
-
-  # FIXME: v
-  # def self.has?(parent = `window`, name)
-  # ^
-  def self.has?(*args)
-    if args.length == 1
-      parent = `window`
-      name,  = args
-    else
-      parent, name = args
-    end
-
-    %x{
-      if (!#{parent}) {
-        return false;
-      }
-
-      return #{parent}[#{name}] != null;
-    }
-  end
-end
-
-C = Compatibility
-
-end

data/opal/browser/compatibility/animation_frame.rb

@@ -1,93 +0,0 @@
-module Browser
-
-class Compatibility
-  def self.request_animation?(prefix = nil)
-    if prefix
-      has?("#{prefix}RequestAnimationFrame")
-    else
-      has?(:requestAnimationFrame)
-    end
-  end
-
-  def self.cancel_animation?(prefix = nil)
-    if prefix
-      has?("#{prefix}CancelAnimationFrame")
-    else
-      has?(:cancelAnimationFrame)
-    end
-  end
-
-  def self.cancel_request_animation?(prefix = nil)
-    if prefix
-      has?("#{prefix}CancelRequestAnimationFrame")
-    else
-      has?(:cancelAnimationFrame)
-    end
-  end
-end
-
-class AnimationFrame
-  if C.request_animation?
-    def request(block)
-      `#@native.requestAnimationFrame(#{block.to_n})`
-    end
-  elsif C.request_animation? :webkit
-    def request(block)
-      `#@native.webkitRequestAnimationFrame(#{block.to_n})`
-    end
-  elsif C.request_animation? :moz
-    def request(block)
-      `#@native.mozRequestAnimationFrame(#{block.to_n})`
-    end
-  elsif C.request_animation? :o
-    def request(block)
-      `#@native.oRequestAnimationFrame(#{block.to_n})`
-    end
-  elsif C.request_animation? :ms
-    def request(block)
-      `#@native.msRequestAnimationFrame(#{block.to_n})`
-    end
-  end
-
-  if C.cancel_animation?
-    def cancel
-      `#@native.cancelAnimationFrame(#@id)`
-    end
-  else
-    if C.cancel_animation? :webkit
-      def cancel
-        `#@native.webkitCancelAnimationFrame(#@id)`
-      end
-    elsif C.cancel_request_animation? :webkit
-      def cancel
-        `#@native.webkitCancelRequestAnimationFrame(#@id)`
-      end
-    elsif C.cancel_animation? :moz
-      def cancel
-        `#@native.mozCancelAnimationFrame(#@id)`
-      end
-    elsif C.cancel_request_animation? :moz
-      def cancel
-        `#@native.mozCancelRequestAnimationFrame(#@id)`
-      end
-    elsif C.cancel_animation? :o
-      def cancel
-        `#@native.oCancelAnimationFrame(#@id)`
-      end
-    elsif C.cancel_request_animation? :o
-      def cancel
-        `#@native.oCancelRequestAnimationFrame(#@id)`
-      end
-    elsif C.cancel_animation? :ms
-      def cancel
-        `#@native.msCancelAnimationFrame(#@id)`
-      end
-    elsif C.cancel_request_animation? :ms
-      def cancel
-        `#@native.msCancelRequestAnimationFrame(#@id)`
-      end
-    end
-  end
-end
-
-end

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

@@ -1,15 +0,0 @@
-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

@@ -1,15 +0,0 @@
-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

@@ -1,31 +0,0 @@
-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

@@ -1,20 +0,0 @@
-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

@@ -1,25 +0,0 @@
-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

@@ -1,15 +0,0 @@
-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

@@ -1,47 +0,0 @@
-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

@@ -1,15 +0,0 @@
-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

@@ -1,107 +0,0 @@
-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