bench9000 0.1

data/benchmarks/psd.rb/psd-renderer-mask-apply.rb

@@ -0,0 +1,137 @@
+# Copyright (c) 2014 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+require "mock-logger"
+
+require "psd/renderer/mask"
+
+if ENV.include? 'BENCH_9000_NATIVE'
+  require "oily_png/oily_png"
+  require "psd_native/psd_native"
+else
+  require "chunky_png/color"
+  require "psd/color"
+  require "psd/util"
+end
+
+SIZE = 2_000
+PIXEL = 0x11223344
+
+class MockLayer
+  def initialize(image)
+    @image = image
+  end
+
+  def top
+    0
+  end
+
+  def left
+    0
+  end
+
+  def width
+    SIZE
+  end
+
+  def height
+    SIZE
+  end
+
+  def name
+    "name"
+  end
+
+  def mask
+    self
+  end
+
+  attr_reader :image
+end
+
+class MockCanvas
+  def initialize
+    @sum = 0
+    @pixels = [PIXEL] * SIZE * SIZE
+  end
+
+  def top
+    0
+  end
+
+  def left
+    0
+  end
+
+  def width
+    SIZE
+  end
+
+  def height
+    SIZE
+  end
+
+  def pixels
+    @pixels
+  end
+
+  def [](x, y)
+    @pixels[y * SIZE + x]
+  end
+
+  def []=(x, y, pixel)
+    @pixels[y * SIZE + x] = pixel
+  end
+
+  def include_xy?(x, y)
+    true
+  end
+
+  def sum
+    @sum
+  end
+
+  def canvas
+    self
+  end
+end
+
+class MockMask < PSD::Renderer::Mask
+  if ENV.include? 'BENCH_9000_NATIVE'
+    include PSDNative::Renderer::Mask
+  end
+
+  public :apply!
+
+  def initialize
+    @layer = MockLayer.new(self)
+    @canvas = MockCanvas.new
+    @mask_data = [0x12] * SIZE * SIZE
+    @doc_width = SIZE
+    @doc_height = SIZE
+  end
+
+  attr_reader :node
+  attr_reader :canvas
+  attr_reader :mask
+end
+
+def harness_input
+  MockMask.new
+end
+
+def harness_sample(input)
+  input.apply!
+  input
+end
+
+def harness_verify(output)
+  output.canvas.pixels.inject(:+) == 1149815824000000
+end
+
+require 'bench9000/harness'

data/benchmarks/psd.rb/psd-util-clamp.rb

@@ -0,0 +1,42 @@
+# Copyright (c) 2014 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+require "mock-logger"
+
+if ENV.include? 'BENCH_9000_NATIVE'
+  require "oily_png/oily_png"
+  require "psd_native/psd_native"
+else
+  require "psd/util"
+end
+
+module MockUtil
+  if ENV.include? 'BENCH_9000_NATIVE'
+    extend PSDNative::Util
+  else
+    extend PSD::Util
+  end
+end
+
+def micro_harness_input
+  14
+end
+
+def micro_harness_iterations
+  50_000_000
+end
+
+def micro_harness_sample(input)
+  MockUtil::clamp(input, 10, 20)
+end
+
+def micro_harness_expected
+  14
+end
+
+require 'bench9000/micro-harness'

data/benchmarks/psd.rb/psd-util-pad2.rb

@@ -0,0 +1,42 @@
+# Copyright (c) 2014 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+require "mock-logger"
+
+if ENV.include? 'BENCH_9000_NATIVE'
+  require "oily_png/oily_png"
+  require "psd_native/psd_native"
+else
+  require "psd/util"
+end
+
+module MockUtil
+  if ENV.include? 'BENCH_9000_NATIVE'
+    extend PSDNative::Util
+  else
+    extend PSD::Util
+  end
+end
+
+def micro_harness_input
+  7
+end
+
+def micro_harness_iterations
+  50_000_000
+end
+
+def micro_harness_sample(input)
+  MockUtil::pad2(input)
+end
+
+def micro_harness_expected
+  8
+end
+
+require 'bench9000/micro-harness'

data/benchmarks/psd.rb/psd-util-pad4.rb

@@ -0,0 +1,42 @@
+# Copyright (c) 2014 Oracle and/or its affiliates. All rights reserved. This
+# code is released under a tri EPL/GPL/LGPL license. You can use it,
+# redistribute it and/or modify it under the terms of the:
+#
+# Eclipse Public License version 1.0
+# GNU General Public License version 2
+# GNU Lesser General Public License version 2.1
+
+require "mock-logger"
+
+if ENV.include? 'BENCH_9000_NATIVE'
+  require "oily_png/oily_png"
+  require "psd_native/psd_native"
+else
+  require "psd/util"
+end
+
+module MockUtil
+  if ENV.include? 'BENCH_9000_NATIVE'
+    extend PSDNative::Util
+  else
+    extend PSD::Util
+  end
+end
+
+def micro_harness_input
+  8
+end
+
+def micro_harness_iterations
+  50_000_000
+end
+
+def micro_harness_sample(input)
+  MockUtil::pad4(input)
+end
+
+def micro_harness_expected
+  11
+end
+
+require 'bench9000/micro-harness'

data/benchmarks/psd.rb/psd_native.patch

@@ -0,0 +1,99 @@
+diff --git a/ext/psd_native/mask.c b/ext/psd_native/mask.c
+index b3ed11f..9d4a926 100644
+--- a/ext/psd_native/mask.c
++++ b/ext/psd_native/mask.c
+@@ -38,7 +38,7 @@ VALUE psd_native_mask_apply_bang(VALUE self) {
+       if (doc_x < 0 || doc_x >= doc_width || doc_y < 0 || doc_y > doc_height) {
+         alpha = 0;
+       } else {
+-        alpha = mask_data[i];
++        alpha = FIX2INT(mask_data[i]);
+       }
+ 
+       color = (color & 0xffffff00) | (A(color) * alpha / 255);
+diff --git a/ext/psd_native/image_mode_cmyk.c b/ext/psd_native/image_mode_cmyk.c
+index b2b8bb6..eb1a8e9 100644
+--- a/ext/psd_native/image_mode_cmyk.c
++++ b/ext/psd_native/image_mode_cmyk.c
+@@ -17,7 +17,9 @@ VALUE psd_native_combine_cmyk_channel(VALUE self) {
+   uint32_t a = 255;
+   VALUE rgb;
+   
+-  int channel_ids[channel_count];
++  // TODO(mg): truffle c has problems with dynamic stack allocations
++  int * channel_ids = malloc(channel_count * sizeof(int));
++  // int channel_ids[channel_count];
+   for (i = 0; i < channel_count; i++) {
+     channel_ids[i] = FIX2INT(rb_hash_aref(channels_info[i], ID2SYM(rb_intern("id"))));
+   }
+@@ -57,5 +59,6 @@ VALUE psd_native_combine_cmyk_channel(VALUE self) {
+     rb_ary_push(rb_iv_get(self, "@pixel_data"), INT2FIX(BUILD_PIXEL(r, g, b, a)));
+   }
+ 
++  free(channel_ids); //TODO(mg)
+   return Qnil;
+ }
+
+diff --git a/ext/psd_native/image_mode_rgb.c b/ext/psd_native/image_mode_rgb.c
+index 9406bee..3265341 100644
+--- a/ext/psd_native/image_mode_rgb.c
++++ b/ext/psd_native/image_mode_rgb.c
+@@ -14,7 +14,8 @@ VALUE psd_native_combine_rgb_channel(VALUE self) {
+   int i, j;
+   uint32_t val, color;
+ 
+-  int channel_ids[channel_count];
++  // int channel_ids[channel_count];
++  int * channel_ids = malloc(sizeof(int) * channel_count); // TODO(mg): trufflec cannot dynamically allocate stack space
+   for (i = 0; i < channel_count; i++) {
+     channel_ids[i] = FIX2INT(rb_hash_aref(channels_info[i], ID2SYM(rb_intern("id"))));
+   }
+@@ -43,5 +44,6 @@ VALUE psd_native_combine_rgb_channel(VALUE self) {
+     rb_ary_push(pixel_data, INT2FIX(color));
+   }
+   
++  free(channel_ids); // TODO(mg)
+   return Qnil;
+ }
+
+diff --git a/ext/psd_native/psd_native_ext.c b/ext/psd_native/psd_native_ext.c
+index cd8a11d..9adc8b8 100644
+--- a/ext/psd_native/psd_native_ext.c
++++ b/ext/psd_native/psd_native_ext.c
+@@ -4,8 +4,9 @@ static VALUE psd_class;
+ static VALUE logger;
+ 
+ void Init_psd_native() {
+-  psd_class = rb_const_get(rb_cObject, rb_intern("PSD"));
+-  logger = rb_funcall(psd_class, rb_intern("logger"), 0);
++  // TODO(CS)
++  //psd_class = rb_const_get(rb_cObject, rb_intern("PSD"));
++  //logger = rb_funcall(psd_class, rb_intern("logger"), 0);
+ 
+   VALUE PSDNative = rb_define_module("PSDNative");
+   VALUE ImageMode = rb_define_module_under(PSDNative, "ImageMode");
+@@ -81,5 +83,6 @@ void Init_psd_native() {
+ }
+ 
+ void psd_logger(char* level, char* message) {
+-  rb_funcall(logger, rb_intern(level), 1, rb_str_new2(message));
++  // TODO(CS)
++  //rb_funcall(logger, rb_intern(level), 1, rb_str_new2(message));
+ }
+
+diff --git a/ext/psd_native/rle_decoding.c b/ext/psd_native/rle_decoding.c
+index fece79d..dfc08a7 100644
+--- a/ext/psd_native/rle_decoding.c
++++ b/ext/psd_native/rle_decoding.c
+@@ -1,7 +1,10 @@
+ #include "psd_native_ext.h"
+ 
+ VALUE psd_native_decode_rle_channel(VALUE self) {
+-  int bytes, len, val;
++  //int bytes, len, val;
++  // TODO(MG): val must not be an integer
++  VALUE val; 
++  int bytes, len;
+   int i, j, k, l;
+ 
+   int height = FIX2INT(rb_funcall(self, rb_intern("height"), 0));

data/benchmarks/psd.rb/version.txt

@@ -0,0 +1,2 @@
+psd.rb: e14d652ddc705e865d8b2b897d618b25d78bcc7c
+psd_native: bbea04db2f4f483bde73b6793e68eff73f3b9c3f

data/benchmarks/topaz/neural-net.rb

@@ -0,0 +1,208 @@
+# Copyright (c) Alex Gaynor and individual contributors.
+# All rights reserved.
+
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+
+#     1. Redistributions of source code must retain the above copyright notice,
+#        this list of conditions and the following disclaimer.
+
+#     2. Redistributions in binary form must reproduce the above copyright
+#        notice, this list of conditions and the following disclaimer in the
+#        documentation and/or other materials provided with the distribution.
+
+#     3. Neither the name of topaz nor the names of its contributors may be used
+#        to endorse or promote products derived from this software without
+#        specific prior written permission.
+
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+class DeterministicRandom
+  FIXNUM_MAX = 0x3fffffff
+  FIXNUM_MAX_AS_FLOAT = FIXNUM_MAX.to_f
+
+  def initialize
+    @seed = 49734321
+  end
+
+  def rand
+    @seed = ((@seed + 0x7ed55d16) + (@seed << 12))  & FIXNUM_MAX
+    @seed = ((@seed ^ 0xc761c23c) ^ (@seed >> 19))  & FIXNUM_MAX
+    @seed = ((@seed + 0x165667b1) + (@seed << 5))   & FIXNUM_MAX
+    @seed = ((@seed + 0xd3a2646c) ^ (@seed << 9))   & FIXNUM_MAX
+    @seed = ((@seed + 0xfd7046c5) + (@seed << 3))   & FIXNUM_MAX
+    @seed = ((@seed ^ 0xb55a4f09) ^ (@seed >> 16))  & FIXNUM_MAX
+    @seed / FIXNUM_MAX_AS_FLOAT
+  end
+end
+
+class Synapse
+  attr_accessor :weight, :prev_weight
+  attr_accessor :source_neuron, :dest_neuron
+
+  def initialize(source_neuron, dest_neuron, prng)
+    self.source_neuron = source_neuron
+    self.dest_neuron = dest_neuron
+    self.prev_weight = self.weight = prng.rand * 2 - 1
+  end
+end
+
+class Neuron
+
+  LEARNING_RATE = 1.0
+  MOMENTUM = 0.3
+
+  attr_accessor :synapses_in, :synapses_out
+  attr_accessor :threshold, :prev_threshold, :error
+  attr_accessor :output
+
+  def initialize(prng)
+    self.prev_threshold = self.threshold = prng.rand * 2 - 1
+    self.synapses_in = []
+    self.synapses_out = []
+  end
+
+  def calculate_output
+    activation = synapses_in.inject(0.0) do |sum, synapse|
+      sum + synapse.weight * synapse.source_neuron.output
+    end
+    activation -= threshold
+
+    self.output = 1.0 / (1.0 + Math.exp(-activation))
+  end
+
+  def derivative
+    output * (1 - output)
+  end
+
+  def output_train(rate, target)
+    self.error = (target - output) * derivative
+    update_weights(rate)
+  end
+
+  def hidden_train(rate)
+    self.error = synapses_out.inject(0.0) do |sum, synapse|
+      sum + synapse.prev_weight * synapse.dest_neuron.error
+    end * derivative
+    update_weights(rate)
+  end
+
+  def update_weights(rate)
+    synapses_in.each do |synapse|
+      temp_weight = synapse.weight
+      synapse.weight += (rate * LEARNING_RATE * error * synapse.source_neuron.output) + (MOMENTUM * ( synapse.weight - synapse.prev_weight))
+      synapse.prev_weight = temp_weight
+    end
+    temp_threshold = threshold
+    self.threshold += (rate * LEARNING_RATE * error * -1) + (MOMENTUM * (threshold - prev_threshold))
+    self.prev_threshold = temp_threshold
+  end
+end
+
+class NeuralNetwork
+  attr_accessor :prng
+
+  def initialize(inputs, hidden, outputs)
+    self.prng = DeterministicRandom.new
+
+    @input_layer = (1..inputs).map do
+        Neuron.new(prng)
+    end
+    @hidden_layer = (1..hidden).map do
+        Neuron.new(prng)
+    end
+    @output_layer = (1..outputs).map do
+        Neuron.new(prng)
+    end
+
+    @input_layer.product(@hidden_layer).each do |source, dest|
+      synapse = Synapse.new(source, dest, prng)
+      source.synapses_out << synapse
+      dest.synapses_in << synapse
+    end
+    @hidden_layer.product(@output_layer).each do |source, dest|
+      synapse = Synapse.new(source, dest, prng)
+      source.synapses_out << synapse
+      dest.synapses_in << synapse
+    end
+  end
+
+  def train(inputs, targets)
+    feed_forward(inputs)
+
+    @output_layer.zip(targets).each do |neuron, target|
+      neuron.output_train(0.3, target)
+    end
+    @hidden_layer.each do |neuron|
+        neuron.hidden_train(0.3)
+    end
+  end
+
+  def feed_forward(inputs)
+    @input_layer.zip(inputs).each do |neuron, input|
+      neuron.output = input
+    end
+    @hidden_layer.each do|neuron|
+        neuron.calculate_output
+    end
+    @output_layer.each do |neuron|
+        neuron.calculate_output
+    end
+  end
+
+  def current_outputs
+    @output_layer.map do |neuron|
+        neuron.output
+    end
+  end
+
+end
+
+def run(n)
+  xor = NeuralNetwork.new(2, 10, 1)
+
+  n.times do
+    xor.train([0, 0], [0])
+    xor.train([1, 0], [1])
+    xor.train([0, 1], [1])
+    xor.train([1, 1], [0])
+  end
+
+  checksum = 0
+
+  n.times do
+    xor.feed_forward([0, 0])
+    checksum += xor.current_outputs[0]
+    xor.feed_forward([0, 1])
+    checksum += xor.current_outputs[0]
+    xor.feed_forward([1, 0])
+    checksum += xor.current_outputs[0]
+    xor.feed_forward([1, 1])
+    checksum += xor.current_outputs[0]
+  end
+
+  checksum
+end
+
+def harness_input
+  10000
+end
+
+def harness_sample(input)
+  run(input)
+end
+
+def harness_verify(output)
+  output - 20018.21456752439 < 0.00001
+end
+
+require 'bench9000/harness'