- def describe_node(uuid)
- rsc = ArvadosBase::resource_class_for_uuid uuid
- "\"#{uuid}\" [label=\"#{rsc}\\n#{uuid}\",href=\"#{url_for rsc}/#{uuid}\"];"
- end
-
- def describe_script(job)
- #"""\"#{job.script_version}\" [label=\"#{job.script}: #{job.script_version}\"];
- # \"#{job.uuid}\" -> \"#{job.script_version}\" [label=\"script\"];"""
- "\"#{job.uuid}\" [label=\"#{job.script}\\n#{job.script_version}\"];"
- end
-
- def job_uuid(job)
- "#{job.script}\\n#{job.script_version}"
- end
-
- def collection_uuid(uuid)
- m = /([a-f0-9]{32}(\+[0-9]+)?)(\+.*)?/.match(uuid)
- if m
- m[1]
- else
- nil
- end
- end
-
- def script_param_edges(gr, job, prefix, sp)
- case sp
- when Hash
- sp.each do |k, v|
- if prefix.size > 0
- k = prefix + "::" + k.to_s
- end
- gr = script_param_edges(gr, job, k.to_s, v)
- end
- when Array
- sp.each do |k|
- gr = script_param_edges(gr, job, prefix, k)
- end
- else
- m = collection_uuid(sp)
- v = m if m
- gr += "\"#{job_uuid(job)}\" -> \"#{v}\" [label=\" #{prefix}\"];"
- gr = generate_edges(gr, v)
- end
- gr
- end
-
- def generate_edges(gr, uuid, edge_added = false)
- m = collection_uuid(uuid)
- if m
- # uuid is a collection
- uuid = m
- gr += describe_node(uuid)
-
- Job.where(output: uuid).each do |job|
- #gr += describe_node(job_uuid(job))
- gr += "\"#{uuid}\" -> \"#{job_uuid(job)}\" [label=\" output\"];"
- gr = generate_edges(gr, job.uuid)
- end
-
- Job.where(log: uuid).each do |job|
- #gr += describe_node(job_uuid(job))
- gr += "\"#{uuid}\" -> \"#{job_uuid(job)}\" [label=\" log\"];"
- gr = generate_edges(gr, job.uuid)
- end
-
- else
- # uuid is something else
- rsc = ArvadosBase::resource_class_for_uuid uuid
-
- if rsc == Job
- Job.where(uuid: uuid).each do |job|
- gr = script_param_edges(gr, job, "", job.script_parameters)
- #gr += describe_script(job)
- end
- else
- gr += describe_node(uuid)
- end
- end
-
- Link.where(head_uuid: uuid, link_class: "provenance").each do |link|
- gr += describe_node(link.tail_uuid)
- gr += "\"#{link.head_uuid}\" -> \"#{link.tail_uuid}\" [label=\" #{link.name}\", href=\"/links/#{link.uuid}\"];"
- gr = generate_edges(gr, link.tail_uuid)
- end
-
- gr
- end