X-Git-Url: https://git.arvados.org/arvados.git/blobdiff_plain/74f663c4d31f8b09a945c256b8f40c4ebfdaea67..1881da329b33f722e35bef267c616a784163e482:/apps/workbench/app/controllers/pipeline_instances_controller.rb

diff --git a/apps/workbench/app/controllers/pipeline_instances_controller.rb b/apps/workbench/app/controllers/pipeline_instances_controller.rb
index 6e7bc980b7..221ed87ad7 100644
--- a/apps/workbench/app/controllers/pipeline_instances_controller.rb
+++ b/apps/workbench/app/controllers/pipeline_instances_controller.rb
@@ -1,12 +1,9 @@
 class PipelineInstancesController < ApplicationController
+  skip_before_filter :find_object_by_uuid, only: :compare
+  before_filter :find_objects_by_uuid, only: :compare
+  include PipelineInstancesHelper
 
-  def show
-    pipelines = [@object]
-
-    if params[:compare]
-      PipelineInstance.where(uuid: params[:compare]).each do |p| pipelines << p end
-    end
-
+  def graph(pipelines)
     count = {}    
     provenance = {}
     pips = {}
@@ -16,7 +13,13 @@ class PipelineInstancesController < ApplicationController
       collections = []
 
       p.components.each do |k, v|
-        j = v[:job]
+        j = v[:job] || next
+
+        # The graph is interested in whether the component is
+        # indicated as persistent, more than whether the job
+        # satisfying it (which could have been reused, or someone
+        # else's) is.
+        j[:output_is_persistent] = v[:output_is_persistent]
 
         uuid = j[:uuid].intern
         provenance[uuid] = j
@@ -34,7 +37,7 @@ class PipelineInstancesController < ApplicationController
         pips[uuid] |= n
       end
 
-      Collection.where(uuid: collections).each do |c|
+      Collection.where(uuid: collections.compact).each do |c|
         uuid = c.uuid.intern
         provenance[uuid] = c
         pips[uuid] = 0 unless pips[uuid] != nil
@@ -44,13 +47,124 @@ class PipelineInstancesController < ApplicationController
       n = n << 1
     end
 
-    puts pips
+    return provenance, pips
+  end
+
+  def show
+    @pipelines = [@object]
+
+    if params[:compare]
+      PipelineInstance.where(uuid: params[:compare]).each do |p|
+        @pipelines << p
+      end
+    end
+
+    provenance, pips = graph(@pipelines)
+
+    @prov_svg = ProvenanceHelper::create_provenance_graph provenance, "provenance_svg", {
+      :request => request,
+      :all_script_parameters => true, 
+      :combine_jobs => :script_and_version,
+      :script_version_nodes => true,
+      :pips => pips }
+    super
+  end
+
+  def compare
+    @breadcrumb_page_name = 'compare'
+
+    @rows = []          # each is {name: S, components: [...]}
+
+    # Build a table: x=pipeline y=component
+    @objects.each_with_index do |pi, pi_index|
+      pipeline_jobs(pi).each do |component|
+        # Find a cell with the same name as this component but no
+        # entry for this pipeline
+        target_row = nil
+        @rows.each_with_index do |row, row_index|
+          if row[:name] == component[:name] and !row[:components][pi_index]
+            target_row = row
+          end
+        end
+        if !target_row
+          target_row = {name: component[:name], components: []}
+          @rows << target_row
+        end
+        target_row[:components][pi_index] = component
+      end
+    end
+
+    @rows.each do |row|
+      # Build a "normal" pseudo-component for this row by picking the
+      # most common value for each attribute. If all values are
+      # equally common, there is no "normal".
+      normal = {}              # attr => most common value
+      highscore = {}           # attr => how common "normal" is
+      score = {}               # attr => { value => how common }
+      row[:components].each do |pj|
+        next if pj.nil?
+        pj.each do |k,v|
+          vstr = for_comparison v
+          score[k] ||= {}
+          score[k][vstr] = (score[k][vstr] || 0) + 1
+          highscore[k] ||= 0
+          if score[k][vstr] == highscore[k]
+            # tie for first place = no "normal"
+            normal.delete k
+          elsif score[k][vstr] == highscore[k] + 1
+            # more pipelines have v than anything else
+            highscore[k] = score[k][vstr]
+            normal[k] = vstr
+          end
+        end
+      end
+
+      # Add a hash in component[:is_normal]: { attr => is_the_value_normal? }
+      row[:components].each do |pj|
+        next if pj.nil?
+        pj[:is_normal] = {}
+        pj.each do |k,v|
+          pj[:is_normal][k] = (normal.has_key?(k) && normal[k] == for_comparison(v))
+        end
+      end
+    end
+
+    provenance, pips = graph(@objects)
 
-    @prov_svg = ProvenanceHelper::create_provenance_graph provenance, {
+    @pipelines = @objects
+
+    @prov_svg = ProvenanceHelper::create_provenance_graph provenance, "provenance_svg", {
+      :request => request,
       :all_script_parameters => true, 
       :combine_jobs => :script_and_version,
       :script_version_nodes => true,
       :pips => pips }
   end
 
+  def show_pane_list
+    %w(Components Graph Attributes Metadata JSON API)
+  end
+
+  def compare_pane_list 
+    %w(Compare Graph)
+  end 
+
+  def index
+    @objects ||= model_class.limit(20).all
+    super
+  end
+
+  protected
+  def for_comparison v
+    if v.is_a? Hash or v.is_a? Array
+      v.to_json
+    else
+      v.to_s
+    end
+  end
+
+  def find_objects_by_uuid
+    @objects = model_class.where(uuid: params[:uuids])
+  end
+
 end