superchris-rubyjs 0.8.2

data/src/rwt/ported-from/Widget.java

@@ -0,0 +1,221 @@
+/*
+ * Copyright 2007 Google Inc.
+ * 
+ * Licensed under the Apache License, Version 2.0 (the "License"); you may not
+ * use this file except in compliance with the License. You may obtain a copy of
+ * the License at
+ * 
+ * http://www.apache.org/licenses/LICENSE-2.0
+ * 
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
+ * WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
+ * License for the specific language governing permissions and limitations under
+ * the License.
+ */
+package com.google.gwt.user.client.ui;
+
+import com.google.gwt.core.client.GWT;
+import com.google.gwt.user.client.DOM;
+import com.google.gwt.user.client.Event;
+import com.google.gwt.user.client.EventListener;
+import com.google.gwt.user.client.Element;
+
+/**
+ * The base class for the majority of user-interface objects. Widget adds
+ * support for receiving events from the browser and being added directly to
+ * {@link com.google.gwt.user.client.ui.Panel panels}.
+ */
+public class Widget extends UIObject implements EventListener {
+
+  private boolean attached;
+  private Object layoutData;
+  private Widget parent;
+
+  /**
+   * Gets this widget's parent panel.
+   * 
+   * @return the widget's parent panel
+   */
+  public Widget getParent() {
+    return parent;
+  }
+
+  /**
+   * Determines whether this widget is currently attached to the browser's
+   * document (i.e., there is an unbroken chain of widgets between this widget
+   * and the underlying browser document).
+   * 
+   * @return <code>true</code> if the widget is attached
+   */
+  public boolean isAttached() {
+    return attached;
+  }
+
+  public void onBrowserEvent(Event event) {
+  }
+
+  /**
+   * Removes this widget from its parent widget. If it has no parent, this
+   * method does nothing.
+   * 
+   * @throws IllegalStateException if this widget's parent does not support
+   *           removal (e.g. {@link Composite})
+   */
+  public void removeFromParent() {
+    if (parent instanceof HasWidgets) {
+      ((HasWidgets) parent).remove(this);
+    } else if (parent != null) {
+      throw new IllegalStateException(
+          "This widget's parent does not implement HasWidgets");
+    }
+  }
+
+  /**
+   * This method is called when a widget is attached to the browser's document.
+   * To receive notification after a Widget has been added from the
+   * document, override the {@link #onLoad} method.
+   * 
+   * <p>
+   * Subclasses that override this method must call
+   * <code>super.onAttach()</code> to ensure that the Widget has been
+   * attached to the underlying Element.
+   * </p>
+   * 
+   * @throws IllegalStateException if this widget is already attached
+   */
+  protected void onAttach() {
+    if (attached) {
+      throw new IllegalStateException(
+          "Should only call onAttach when the widget is detached from the browser's document");
+    }
+
+    attached = true;
+
+    // Set the main element's event listener. This should only be set
+    // while the widget is attached, because it creates a circular
+    // reference between JavaScript and the DOM.
+    DOM.setEventListener(getElement(), this);
+
+    // Now that the widget is attached, call onLoad().
+    onLoad();
+  }
+
+  /**
+   * This method is called when a widget is detached from the browser's
+   * document. To receive notification before a Widget is removed from the
+   * document, override the {@link #onUnload} method.
+   * 
+   * <p>
+   * Subclasses that override this method must call
+   * <code>super.onDetach()</code> to ensure that the Widget has been
+   * detached from the underlying Element.  Failure to do so will result
+   * in application memeroy leaks due to circular references between DOM
+   * Elements and JavaScript objects.
+   * </p>
+   * 
+   * @throws IllegalStateException if this widget is already detached
+   */
+  protected void onDetach() {
+    if (!attached) {
+      throw new IllegalStateException(
+          "Should only call onDetach when the widget is attached to the browser's document");
+    }
+    
+    // Give the user a chance to clean up, but don't trust the code to not throw
+    try {
+      onUnload();
+    } finally {
+      attached = false;
+  
+      // Clear out the element's event listener (breaking the circular
+      // reference between it and the widget).
+      DOM.setEventListener(getElement(), null);
+    }
+  }
+
+  /**
+   * This method is called immediately after a widget becomes attached to the
+   * browser's document.
+   */
+  protected void onLoad() {
+  }
+  
+  /**
+   * This method is called immediately before a widget will be detached from the
+   * browser's document.
+   */
+  protected void onUnload() {
+  }
+
+  /**
+   * Sets this object's browser element. Widget subclasses must call this method
+   * before attempting to call any other methods.
+   * 
+   * If a browser element has already been attached, then it is replaced with
+   * the new element. The old event listeners are removed from the old browser
+   * element, and the event listeners are set up on the new browser element.
+   * 
+   * @param elem the object's new element
+   */
+  protected void setElement(Element elem) {
+    if (attached) {
+      // Remove old event listener to avoid leaking. onDetach will not do this
+      // for us, because it is only called when the widget itself is detached from
+      // the document.
+      DOM.setEventListener(getElement(), null);
+    }
+
+    super.setElement(elem);
+    if (attached) {
+      // Hook the event listener back up on the new element. onAttach will not
+      // do this for us, because it is only called when the widget itself is
+      // attached to the document.
+      DOM.setEventListener(elem, this);
+    }
+  }
+
+  /**
+   * Gets the panel-defined layout data associated with this widget.
+   * 
+   * @return the widget's layout data
+   * @see #setLayoutData
+   */
+  Object getLayoutData() {
+    return layoutData;
+  }
+
+  /**
+   * Sets the panel-defined layout data associated with this widget. Only the
+   * panel that currently contains a widget should ever set this value. It
+   * serves as a place to store layout bookkeeping data associated with a
+   * widget.
+   * 
+   * @param layoutData the widget's layout data
+   */
+  void setLayoutData(Object layoutData) {
+    this.layoutData = layoutData;
+  }
+
+  /**
+   * Sets this widget's parent. This method should only be called by
+   * {@link Panel} and {@link Composite}.
+   * 
+   * @param parent the widget's new parent
+   */
+  void setParent(Widget parent) {
+    Widget oldParent = this.parent;
+    this.parent = parent;
+    if (parent == null) {
+      if (oldParent != null && oldParent.isAttached()) {
+        onDetach();
+        assert !isAttached() :
+            "Failure of " + GWT.getTypeName(this) + " to call super.onDetach()";
+      }
+    } else if (parent.isAttached()) {
+      onAttach();
+        assert isAttached() :
+            "Failure of " + GWT.getTypeName(this) + " to call super.onAttach()";
+    }
+  }
+}

data/test/benchmark/bm_vm1_block.rb

@@ -0,0 +1,15 @@
+class BmVm1Block < Bench
+  def m
+    yield
+  end
+
+  def run(n)
+    i=0
+    while i<n # while loop 1
+      i+=1
+      m{
+      }
+    end
+    return i
+  end
+end

data/test/benchmark/bm_vm1_const.rb

@@ -0,0 +1,13 @@
+class BmVm1Const < Bench
+  Const = 1
+
+  def run(n)
+    i = 0
+    while i<n # while loop 1
+      i+= 1
+      j = Const
+      k = Const
+    end
+    return i
+  end
+end

data/test/benchmark/bm_vm1_ensure.rb

@@ -0,0 +1,15 @@
+class BmVm1Ensure < Bench
+  def run(n)
+    i=0
+    while i<n # benchmark loop 1
+      i+=1
+      begin
+        begin
+        ensure
+        end
+      ensure
+      end
+    end
+    return i
+  end
+end

data/test/benchmark/common.rb

@@ -0,0 +1,5 @@
+class Bench
+  def self.main(*args)
+    puts new.run(*args)
+  end
+end

data/test/benchmark/params.yaml

@@ -0,0 +1,7 @@
+BmVm1Block:  [0, 300000]
+BmVm1Const:  [0, 300000]
+BmVm1Ensure: [0, 300000]
+BmCallConv1: [0, 1000000]
+BmCallConv2: [0, 1000000]
+BmVarAcc1:   [0, 10000000]
+BmVarAcc2:   [0, 10000000]

data/test/common.Browser.rb

@@ -0,0 +1,13 @@
+module Kernel
+=begin
+  def puts(obj="")
+    obj = obj.to_s.gsub("&", "&amp;").gsub("<", "&lt;").gsub(">", "&gt;") + "<br/>"
+    `document.getElementById('out').innerHTML += #<obj>`
+  end
+=end
+
+  def puts(obj="")
+    obj = obj.to_s
+    `STDOUT_puts(#<obj>)`
+  end
+end

data/test/common.rb

@@ -0,0 +1,8 @@
+if $RUBYJS
+module Kernel
+  def puts(obj="")
+    obj = obj.to_s
+    `println(#<obj>)`
+  end
+end
+end

data/test/gen_browser_test_suite.rb

@@ -0,0 +1,129 @@
+require 'tempfile'
+require 'test/gen_test_suite'
+
+if ARGV.empty?
+  tests = Dir['test/test_*.rb']
+else
+  tests = Dir["test/test_{" + ARGV.join(',') + "}.rb"] 
+end
+
+rubycode = Tempfile.new('rubyjs')
+script = gen_test_suite(tests)
+rubycode.write(script)
+rubycode.close(false)
+
+#
+# Generate Javascript code
+#
+
+RED = '#ff8888' 
+GREEN = '#aaffaa'
+
+expected = `ruby -I./test < #{rubycode.path}`.chomp.  # remove last newline
+  gsub("&", "&amp;").
+  gsub("<", "&lt;").
+  gsub(">", "&gt;").split("\n")
+
+jscode = `./bin/rubyjs -I./test --opt PrettyPrint -P Browser -m TestSuite #{rubycode.path}`
+jscode << <<END_JS
+var STDOUT_LINE_NO = 0;
+var FAILURES = 0; 
+var TOTAL = #{expected.size};
+
+function STDOUT_puts(str)
+{
+  var out = document.getElementById('out_' + STDOUT_LINE_NO);
+  var expected = document.getElementById('exp_' + STDOUT_LINE_NO);
+
+  out.innerHTML = str.replace(/[&]/g, "&amp;").replace(/[<]/g, "&lt;").replace(/[>]/g, "&gt;");
+
+  if (out.innerHTML === expected.innerHTML)
+  {
+    document.getElementById('line_' + STDOUT_LINE_NO).style.background = '#{GREEN}';
+  }
+  else
+  {
+    FAILURES += 1;
+  }
+
+  STDOUT_LINE_NO += 1;
+
+  document.getElementById('status').innerHTML = 
+  "<b>" + STDOUT_LINE_NO + "</b> / " + TOTAL + " (" + FAILURES + " failures)";
+}
+
+function start()
+{
+  main();
+}
+END_JS
+
+File.open('test/browser.test.js', 'w+') {|f| f << jscode}
+
+html_script = script.gsub("&", "&amp;").
+  gsub("<", "&lt;").
+  gsub(">", "&gt;").gsub("\n", "<br/>")
+
+File.open('test/browser.test.html', 'w+') do |f|
+f.puts %{<html><head><script language="javascript" src="browser.test.js"></script>
+<style>
+  #expected { background: #ccc; }
+</style>
+<body onload="start();">
+  <h1>RubyJS Test Suite Runner</h1>
+
+  <a href="#source">View Ruby source code</a>&nbsp;|&nbsp;
+  <a href="browser.test.js">View Javascript source code</a><br/>
+
+  <p>
+  Test status (tests run / total # of tests): <div id="status"></div>
+  </p>
+
+  <table cellspacing="5" cellpadding="5">
+  <thead>
+    <tr>
+      <td width="50%"><b>Output</b></td>
+      <td width="50%"><b>Expected</b></td>
+    </tr>
+  </thead>
+  <tbody>
+}
+
+expected.each_with_index do |line, i|
+  f.puts %{
+  <tr id="line_#{i}" style="background: #{RED}">
+    <td>
+      <pre id="out_#{i}"></pre>
+    </td>
+    <td>
+      <pre id="exp_#{i}">#{line}</pre>
+    </td>
+  </tr>
+  }
+end
+
+f.puts %{
+<tr><td colspan="2" style="background: grey">&nbsp;</td></tr>
+}
+
+# Add some "overflow" rows, in case the RubyJS test output
+# is longer as expected.
+10.times do |i|
+  f.puts %{
+  <tr id="line_#{i+expected.size}">
+    <td>
+      <pre id="out_#{i+expected.size}"></pre>
+    </td>
+    <td>
+      <pre id="exp_#{i+expected.size}"></pre>
+    </td>
+  </tr>
+  }
+end
+
+f.puts %{
+  </tbody>
+  </table>
+  <pre id="source">#{html_script}</pre>
+</body></html>}
+end

data/test/gen_test_suite.rb

@@ -0,0 +1,41 @@
+def gen_test_suite(tests)
+  script = ""
+  body = ""
+
+  script << "require 'common'\n\n"
+  tests.each_with_index do |file, i|
+    basename = File.basename(file)[0..-4]
+    klassname = basename.gsub(/(^|_)./) {|m| m[-1,1].upcase}
+    humanname = basename.gsub('_', ' ').capitalize
+
+    script << "#\n"
+    script << "# file: #{file}\n"
+    script << "#\n\n"
+    script << "module T_#{klassname}\n"
+    script << File.read(file)
+    script << "end\n"
+    script << "\n\n"
+    body << %{
+      puts '~~~~~~~~~~~~~~~~~~~~'
+      puts '#{humanname}'
+      puts '~~~~~~~~~~~~~~~~~~~~'
+      T_#{klassname}::#{klassname}.main
+    }
+  end
+
+  script << %{
+    class TestSuite
+      def self.main
+        begin
+          #{body}
+        rescue Exception => a
+          p "unhandled exception"
+          p a
+        end
+      end
+    end
+    TestSuite.main unless $RUBYJS
+  }
+
+  return script
+end