uttk 0.3.1.2

data/lib/uttk/streams/Stream.rb

@@ -0,0 +1,76 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/streams/Stream.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Streams
+
+    class Stream
+
+      #
+      # Attributes
+      #
+
+      attr_accessor :name, :my, :ref
+
+
+      #
+      # Constructor
+      #
+
+      def initialize ( name, ref=nil )
+        @name, @my, @ref = name.to_s, TempPath.new(name), ref
+      end
+
+
+      #
+      # Methods
+      #
+
+      def compare_streams
+        return @cmp if defined? @cmp
+        @cmp = @ref.compare_stream(@my)
+        @status = @cmp ? :PASS : :FAILED
+        @cmp
+      end
+
+      def status
+        compare_streams
+        @status
+      end
+
+      def to_uttk_log ( log )
+        unless @name == 'input'
+          str = @my.to_s_for_uttk_log
+          unless str.nil? or (str.is_a? String and str.empty?)
+            log["my_#@name"] = str
+          end
+        end
+        unless @ref.nil?
+          str = @ref.to_s_for_uttk_log
+          unless str.nil? or (str.is_a? String and str.empty?)
+            log["ref_#@name"] = str
+          end
+        end
+      end
+
+      def clean
+        if @my.is_a? Pathname
+          @my.unlink if @my.exist? and @my.temp?
+        end
+        if @ref.is_a? Pathname
+          @ref.unlink if @ref.exist? and @ref.temp?
+        elsif @ref.is_a? File
+          ref = Pathname.new(@ref.path)
+          ref.unlink if ref.exist? and ref.temp?
+        end
+      end
+
+    end # class Stream
+
+  end # module Streams
+
+end # module Uttk

data/lib/uttk/weights.rb

@@ -0,0 +1,17 @@
+# Author::    Nicolas Despr�s  <nicolas.despres@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Uttk Team. All rights reserved.
+# License::   LGPL
+# $Id: /w/fey/uttk/trunk/lib/uttk/weights.rb 21966 2006-02-19T21:06:09.175871Z pouillar  $
+
+
+module Uttk
+
+  module Weights
+
+    Default = WFloat
+
+  end # module Weights
+
+end # module Uttk
+
+

data/lib/uttk/weights/WExpr.rb

@@ -0,0 +1,68 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/weights/WExpr.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Weights
+
+    class WExpr < Weight
+
+      attr_accessor :expr
+
+      def initialize ( aFloat, min=0, max=1, expr=nil )
+        super(aFloat, min, max)
+        @expr = expr || "#{to_f}[#@min, #@max]"
+      end
+
+      def + ( rhs )
+        x = super
+        x.expr = "(#{@expr} + #{rhs.to_s})[#{x.min}, #{x.max}]"
+        x
+      end
+
+      def * ( rhs )
+        x = super
+        x.expr = "(#{to_s} * #{rhs.to_s})[#{x.min}, #{x.max}]"
+        x
+      end
+
+
+      def normalize ( weight )
+        diff = @max - @min
+        if diff.zero?
+          if @max.zero? and weight.zero?
+            self.class.new(:PASS)
+          else
+            self.class.new(:FAIL)
+          end
+        else
+          self.class.new((self - @min) / diff, 0, 1,
+                      "((#{to_s} - #{min.to_s}) / (#{max.to_s} - #{min.to_s}))")
+        end
+      end
+
+
+      def get
+        @expr + " == #{to_f.to_s} == #{(to_f * 100).floor}%"
+      end
+
+      def to_s
+        @expr
+      end
+
+      def to_yaml ( opts={} )
+        if opts[:uttk]
+          to_f.to_yaml(opts)
+        else
+          super
+        end
+      end
+
+    end # class WExpr
+
+  end # module Weights
+
+end # module Uttk

data/lib/uttk/weights/WFloat.rb

@@ -0,0 +1,23 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/weights/WFloat.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Weights
+
+    class WFloat < Weight
+
+      def get
+        return to_f if nan?
+        (to_f * 100).floor.to_s + '%'
+      end
+
+    end # class WFloat
+
+  end # module Weights
+
+end # module Uttk
+

data/lib/uttk/weights/WMin.rb

@@ -0,0 +1,22 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/weights/WMin.rb 8778 2005-09-26T04:34:48.103938Z ertai  $
+
+
+module Uttk
+
+  module Weights
+
+    class WMin < WFloat
+
+      def normalize ( weight )
+        (to_f == @max) ? self.class.new(:PASS) : self.class.new(:FAIL)
+      end
+
+    end # class WMin
+
+  end # module Weights
+
+end # module Uttk
+

data/lib/uttk/weights/Weight.rb

@@ -0,0 +1,105 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Uttk team. All rights reserved.
+# License::   LGPL
+# $Id: /fey/uttk/trunk/lib/uttk/weights/Weight.rb 8800 2005-10-09T11:12:27.126567Z ertai  $
+
+
+require 'delegate'
+
+module Uttk
+
+  # FIXME: explain here how to write a new weight computation
+  module Weights
+
+    # FIXME: document me
+    class Weight
+
+      attr_reader :min, :max
+
+      def initialize ( aFloat, min=0, max=1 )
+        if BASE.has_key? aFloat
+          aFloat, min, max = BASE[aFloat]
+        end
+        aFloat = aFloat.to_f
+        @val = aFloat
+        @min, @max = min, max
+        unless @min <= aFloat or aFloat <= @max
+          raise ArgumentError, "#@min <= #{aFloat} <= #@max"
+        end
+      end
+
+      BASE =
+      {
+        :START => [0, 0, 0],
+        :PASS  => [1, 0, 1],
+        :FAIL  => [0, 0, 1]
+      }.freeze.each_value { |x| x.freeze }
+
+      def start?
+        [self, @max, @min].all? { |x| x.zero? }
+      end
+
+      def min?
+        to_f == @min
+      end
+
+      def max?
+        to_f == @max
+      end
+
+      def pass?
+        ! zero? and max?
+      end
+
+      def fail?
+        to_f != @max
+      end
+
+      def + ( rhs )
+        rhs = self.class.new(rhs) unless rhs.is_a? Weight
+        self.class.new(to_f + rhs.to_f, @min + rhs.min, @max + rhs.max)
+      end
+
+      def * ( rhs )
+        f = rhs.to_f
+        a, b, c = to_f * f, @min * f, @max * f
+        b, c = c, b if f < 0
+        self.class.new(a, b, c)
+      end
+
+      def normalize ( weight )
+        diff = @max - @min
+        if diff.zero?
+          if @max.zero? and weight.zero?
+            self.class.new(:PASS)
+          else
+            self.class.new(:FAIL)
+          end
+        else
+          self.class.new((self - @min) / diff, 0, 1)
+        end
+      end
+
+      attr_reader :val
+      alias :get :val
+
+      def long_get
+        "#{get}[#@min, #@max]"
+      end
+
+      def == ( rhs )
+        rhs.class <= Weight and
+        @min == rhs.min and
+        @val == rhs.val and
+        @max == rhs.max
+      end
+
+      def method_missing ( *a, &b )
+        @val.send(*a, &b)
+      end
+
+    end # class Weight
+
+  end # module Weights
+
+end # module Uttk

data/lib/www/javascripts/uttk.js

@@ -0,0 +1,185 @@
+/* Uttk JavaScript library */
+
+// Results of the moulette
+var uttk_root  = new Array();
+var uttk_hash  = new Array();
+var uttk_nodes = new Array();
+var uttk_leaves = new Array();
+var CLASS     = 0;
+var ID        = 1;
+var FATHER    = 2;
+var STATE     = 3;
+var CONTENTS1 = 4;
+var CONTENTS2 = 5;
+var CONTENTS3 = 6;
+
+
+// Main function
+function uttk_main ( )
+{
+  var src = uttk_display(uttk_root);
+  var dom = document.getElementById('uttk_contents');
+
+  if (dom == null)
+    alert("DOM id='uttk_contents' not found !");
+  else
+    dom.innerHTML = src;
+}
+
+
+// Add a leaf to "father"
+function uttk_add_leaf ( id, father_id, state, c1, c2, c3 )
+{
+  var father = uttk_hash[father_id];
+
+  if (father == null)
+    name += "(FATHER[" + father_id + "] == null)";
+  var leaf = new Array("leaf", id, father, state, c1, c2 || '', c3 || '');
+  if (father != null)
+    father[CONTENTS3].push(leaf);
+
+  uttk_hash[id] = leaf;
+  uttk_leaves.push(leaf);
+}
+
+
+// Add a node to "father"
+function uttk_add_node ( id, father_id, state, c1, c2 )
+{
+  var father = uttk_hash[father_id];
+  var node = new Array("node", id, father, state, c1, c2, new Array());
+
+  if (father == null)
+    uttk_root.push(node);
+  else
+    father[CONTENTS3].push(node);
+
+  uttk_hash[id] = node;
+  uttk_nodes.push(node);
+}
+
+
+// Collapse or expand data
+function uttk_toggle_state ( id )
+{
+  var obj = uttk_hash[id];
+
+  obj[STATE] = (obj[STATE] == 1)? 0 : 1;
+
+  // Redisplay
+  uttk_main();
+}
+
+
+// Generate html common part
+function uttk_node_or_leaf ( data )
+{
+  switch (data[STATE])
+  {
+    case 0:
+      break;
+    case 1:
+      return data[CONTENTS1] + 'open' + data[CONTENTS2];
+    case 2:
+      return data[CONTENTS1];
+    default:
+      alert('Unknown state: ' + data[STATE]);
+  }
+  return data[CONTENTS1] + data[CONTENTS2];
+}
+
+
+// Generate html for node
+function uttk_node ( node )
+{
+  if (node[STATE] == 0)
+    return "";
+  else
+    return uttk_display(node[CONTENTS3]);
+}
+
+
+// Generate html for leaf
+function uttk_leaf ( leaf )
+{
+  if (leaf[STATE] == 0)
+    return "";
+  else
+    return leaf[CONTENTS3];
+}
+
+
+// Display a hierachy
+function uttk_display(data)
+{
+  var i;
+  var source = "";
+
+  for (i = 0; i < data.length; ++i)
+  {
+    var element = data[i];
+
+    source += uttk_node_or_leaf(element)
+
+    switch (element[CLASS])
+    {
+      case "node":
+        source += uttk_node(element);
+        break;
+      case "leaf":
+        source += uttk_leaf(element);
+        break;
+      default:
+        alert('Unknown element type: ' + element[CLASS]);
+    }
+
+    source += '</div>'
+  }
+  return source;
+}
+
+
+function uttk_change_state_all ( kind, state )
+{
+  var i;
+
+  switch ( kind )
+  {
+    case null:
+      for (i = 0; i < uttk_nodes.length; ++i)
+        if (uttk_nodes[i][STATE] != 2)
+          uttk_nodes[i][STATE] = state;
+      for (i = 0; i < uttk_leaves.length; ++i)
+        if (uttk_leaves[i][STATE] != 2)
+          uttk_leaves[i][STATE] = state;
+      break;
+    case "node":
+      for (i = 0; i < uttk_nodes.length; ++i)
+        if (uttk_nodes[i][STATE] != 2)
+          uttk_nodes[i][STATE] = state;
+      break;
+    case "leaf":
+      for (i = 0; i < uttk_leaves.length; ++i)
+        if (uttk_leaves[i][STATE] != 2)
+          uttk_leaves[i][STATE] = state;
+      break;
+    default:
+      alert('Unknown element type: ' + element[CLASS]);
+  }
+
+  uttk_main();
+}
+
+
+// Expand all nodes or leaves
+function uttk_expand_all ( kind )
+{
+  uttk_change_state_all(kind, 1);
+}
+
+
+// Collapse all nodes or leaves
+function uttk_collapse_all ( kind )
+{
+  uttk_change_state_all(kind, 0);
+}