scout-gear 5.1.1 → 5.2.0

data/scout_commands/workflow/task_old

@@ -0,0 +1,706 @@
+#!/usr/bin/env ruby
+
+require 'scout'
+
+def report_options(options)
+  if options.nil? or options.empty?
+    puts "No options"
+  else
+    options.each do |key, value|
+      puts [Log.color(:cyan, key), Misc.fingerprint(value)] * ": "
+    end
+  end
+end
+
+def usage(workflow = nil, task = nil, exception=nil, abridge = false)
+  puts SOPT.doc
+  puts
+  if workflow.nil?
+    puts "No workflow specified. Use `scout workflow list` to list available workflows."
+    exit! -1 
+  end
+
+  if task.nil?
+    workflow.load_tasks if workflow.respond_to? :load_tasks
+    workflow.doc nil, abridge
+    puts
+    puts "E.g. scout workflow task #{workflow.to_s} #{workflow.tasks.keys.first.to_s} -h"
+  else
+    puts Log.color :magenta, workflow.to_s
+    puts Log.color :magenta, "=" * workflow.to_s.length
+    if workflow.documentation[:title] and not workflow.documentation[:title].empty?
+      puts
+      puts Misc.format_paragraph workflow.documentation[:title] 
+    end
+    if workflow.documentation[:description] and not workflow.documentation[:description].empty?
+      puts
+      puts Misc.format_paragraph workflow.documentation[:description] 
+    end
+    puts
+    workflow.doc(task, abridge)
+  end
+
+  print_error(exception.message, exception.backtrace) if exception
+
+  true
+end
+
+def get_value_stream(value)
+  if value == "-"
+    io = Misc.open_pipe do |sin|
+      while not STDIN.eof? 
+        sin.write STDIN.read(2048)
+      end
+      sin.close
+    end
+  else
+    io = Open.open(value)
+  end
+  class << io
+    attr_accessor :filename
+  end
+  io.filename = value
+  io
+end
+
+def fix_options(workflow, task, job_options)
+  input_types = IndiferentHash.setup workflow.rec_input_types(task.name)
+  input_options = IndiferentHash.setup workflow.rec_input_options(task.name)
+
+  job_options_cleaned = {}
+
+  job_options.each do |name, value|
+    type = input_types[name]
+    type = type.to_sym if type
+
+    if Step === value
+        job_options_cleaned[name] = value
+        next
+    end
+
+    if Path === value && Step === value.resource
+        job_options_cleaned[name] = value
+        next
+    end
+
+    value = case type
+            when nil
+                value
+            when :boolean
+              TrueClass === value or %w(true TRUE T yes).include? value
+            when :float
+              value.to_f
+            when :path
+              Path.setup(value)
+            when :integer
+              value.to_i
+            when :text
+              if input_options[name] and input_options[name][:stream] and String === value
+                get_value_stream(value)
+              else
+                case
+                when value == '-'
+                  STDIN.read
+                when (String === value and File.exist?(value) and not File.directory?(value))
+                  Open.read(value)
+                else
+                  value
+                end
+              end
+            when :array
+              if input_options[name] && input_options[name][:stream] && String === value && Misc.is_filename?(value) && !! input_options[name][:nofile]
+                get_value_stream(value)
+              elsif input_options[name] and input_options[name][:stream] and value == "-"
+                STDIN
+              else
+                if Array === value || IO === value
+                  value
+                else
+                  array_separator = $array_separator
+                  str = case
+                        when value == '-'
+                          array_separator ||= "\n"
+                          STDIN.read
+                        when (String === value and File.exist?(value) and not (input_options[name] && input_options[name][:nofile]))
+                          array_separator ||= "\n"
+                          Open.read(value)
+                        else
+                          value
+                        end
+
+                  if array_separator
+                    str.split(/#{array_separator}/)
+                  else
+                    str.split(/[,|\s]/)
+                  end
+                end
+              end
+            when :tsv
+              if input_options[name] and input_options[name][:stream] and String === value
+                TSV::Parser.new(value == '-' ? STDIN : Open.open(value), :filename => value )
+              else
+                case value
+                when TSV
+                  value
+                when '-'
+                  TSV.open(STDIN, :unnamed => true, :sep => $field_separator, :sep2 => ($array_separator || "|"))
+                when (Misc.is_filename?(value) and String)
+                  TSV.open(value, :unnamed => true, :sep => $field_separator, :sep2 => ($array_separator || "|"))
+                when IO
+                  TSV.open(value, :unnamed => true, :sep => $field_separator, :sep2 => ($array_separator || "|"))
+                else
+                  TSV.open(StringIO.new(value), :unnamed => true, :sep => $field_separator, :sep2 => ($array_separator || "|"))
+                end
+              end
+            when :directory
+              Path.setup(File.expand_path(value))
+            else
+              value
+            end
+
+    job_options_cleaned[name] = value
+  end
+
+  job_options_cleaned
+end
+
+options = SOPT.setup <<EOF
+Enact workflow tasks
+
+$ scout workflow task <workflow> [<task>] [<options>]
+
+Examine workflows and enact tasks from them. If no `task` is specified, a list
+of available tasks is shown. If a `task` is given it will be enacted with the
+parameters specified in `options`. Use *-h* option to display the description
+of a task, including the parameters it accepts; and some examples, if
+available. Examples can be enacted using `scout workflow example <workflow>
+[<task>] [<example>]`.
+
+When a task is enacted a job is instantiated. This job is identified by the
+`jobname` (which is *#{Task::DEFAULT_NAME}* unless specified otherwise) and the values of the
+parameters; these two things determine the filename under which the job result
+will be saved. If the taks is enacted using the same `jobname` and parameters
+it will result in the same job, pointing to the same result file.
+
+The first time a job is executed it will save the result. The saved result will
+be returned directly if the same task is re-enacted. Once the job is done you
+can redo it using the `clean` parameter, this cleans the last step of the task.
+The `recursive_clean` cleans all the job dependency steps recursively.
+
+-h--help Show this help
+-ha--abridge Abridge help
+-wd--workdir* Change the working directory of the workflow
+-wda--workdir_all* Change the working directory of ALL workflow
+-as--array_separator* Change the character that separates elements of Arrays, ',', '|', or '\\n' by default
+-fs--field_separator* Change the character that separates fields of TSV files '\\t' by default
+-jn--jobname* Job name to use. The name '#{Task::DEFAULT_NAME}' is used by default
+-pn--printname Print the name of the job and exit without starting it
+-pf--printpath Print the path of the job result
+-cl--clean Clean the last step of the job so that it gets recomputed
+-ct--clean_task* Clean a particular dependency task
+-rcl--recursive_clean Clean the last step and its dependencies to recompute the job completely
+-uaj--update_all_jobs Consider all dependencies when checking for updates, even when they have no info files
+--fork Run job asyncronously and monitor progress. It monitors detached processes as well
+--orchestrate* Run the job through the orchestrator
+--detach Run job asyncronously and detach process
+--exec Run job with no persistence
+-O--output* Save job result into file
+-jf--job_file* Output one of the job produced files
+-ljf--list_job_files List all the files produced in that step
+--load_inputs* Load inputs from a directory
+--info Show the job info
+-prov--provenance Report the jobs provenance
+-W--workflows* Load a list of workflows
+-R--requires* Require a list of files
+-pro--produce* Prepare dependencies
+-proc--produce_cpus* Number of dependencies prepared in parallel
+-rwt--remote_workflow_tasks* Load a yaml file describing remote workflow tasks
+-od--override_deps* Override deps using 'Workflow#task=<path>' array_separated
+-PERF--procpath_performance* Measure performance using procpath
+-r--relay* Relay job to SSH server
+-sr--slurm_relay* Relay job to SSH SLURM server
+-rdep--relay_dependencies* Relay dependencies instead of main job
+-pdr--produce_dependencies_for_relay Prepare dependencies previous to relay jobs
+EOF
+
+workflow = ARGV.shift
+usage and exit! -1 if workflow.nil?
+
+task     = ARGV.shift
+
+# Set log, fork, clean, recursive_clean and help
+help = !!options.delete(:help)
+do_fork = !!options.delete(:fork)
+detach = !!options.delete(:detach)
+do_exec = !!options.delete(:exec)
+clean_task = options.delete(:clean_task)
+clean = !!options.delete(:clean) || clean_task
+override_deps = options.delete(:override_deps)
+recursive_clean = !!options.delete(:recursive_clean)
+out = options.include?(:output) ? File.open(options[:output], 'wb') : STDOUT
+
+$array_separator = options.delete(:array_separator)
+$field_separator = options.delete(:field_separator) || "\t"
+
+# Get workflow
+
+if Scout.etc.remote_workflows.exists?
+  remote_workflows = Scout.etc.remote_workflows.yaml
+else
+  remote_workflows = {}
+end
+
+#Workflow.workdir = Path.setup(File.expand_path(options.delete(:workdir_all))) if options[:workdir_all]
+Workflow.workdir.search_paths.merge!({:workdir => File.expand_path(options.delete(:workdir_all)), :default => :workdir }) if options[:workdir_all]
+
+workflow = Workflow.require_workflow workflow
+
+if clean_task
+  ENV["RBBT_UPDATE"] = 'true'
+end
+
+if options[:update_all_jobs]
+  ENV["RBBT_UPDATE_ALL_JOBS"] = 'true'
+  ENV["RBBT_UPDATE"] = 'true'
+end
+
+if options[:workflows]
+  require 'scout/workflow'
+  workflows = options[:workflows].split(',')
+  workflows.each do |workflow|
+    workflow.strip!
+    Workflow.require_workflow workflow
+  end
+end
+
+if options[:requires]
+  requires = options[:requires].split(',')
+  requires.each do |req|
+    req.strip!
+    require req
+  end
+end
+
+if options[:remote_workflow_tasks]
+  Workflow.load_remote_tasks(options[:remote_workflow_tasks])
+end
+
+# Set task
+namespace = nil, nil
+
+case 
+when task.nil?
+  usage workflow, nil, nil, options[:abridge] and exit 0
+else
+  task_name = task.to_sym
+  begin
+    task = workflow.tasks[task_name]
+    raise Workflow::TaskNotFoundException.new workflow, task_name if task.nil?
+  rescue Workflow::TaskNotFoundException
+    usage workflow, nil, nil, options[:abridge]
+
+    puts
+    puts Log.color :magenta, "## Error"
+    puts
+    puts $!.message
+    puts
+
+    exit -1
+  end
+end
+
+usage workflow, task, nil, options[:abridge] and exit 0 if help
+
+name = options.delete(:jobname) 
+
+# get job args
+job_options = workflow.get_SOPT(task)
+
+if options[:load_inputs]
+  task_info = workflow.task_info(task_name)
+  job_options = Workflow.load_inputs(options[:load_inputs], task_info[:inputs], task_info[:input_types]).merge(job_options)
+end
+
+job_options = fix_options(workflow, task, job_options)
+saved_job_options = job_options
+
+workflow.workdir = Path.setup(File.expand_path(options.delete(:workdir))) if options[:workdir]
+
+if override_deps
+  override_deps.split($array_separator || ",").each do |part|
+    t_, value = part.split("=")
+    job_options.merge!( t_ => value)
+  end
+end
+
+#- get job
+
+job = workflow.job(task.name, name, job_options)
+$job = job
+
+# clean job
+if clean 
+  job.clean 
+  sleep 1
+end
+
+if clean_task
+  clean_task.split(",").each do |clean_task|
+    if clean_task.include? "#"
+      clean_workflow, clean_task = clean_task.split("#")
+    end
+
+    job.rec_dependencies.each do |dep|
+      next unless dep.task_name.to_s == clean_task.to_s
+      next unless clean_workflow.nil? || clean_workflow == dep.workflow.to_s
+      dep.clean 
+      dep.set_info :status, :cleaned
+    end
+
+    job.clean if job.task_name.to_s == clean_task.to_s
+  end
+end
+
+if recursive_clean 
+  job.recursive_clean 
+end
+
+require 'pp'
+
+# run
+begin
+  if options[:info]
+    pp job.info
+    exit 0
+  end
+
+  if options.delete(:printname)
+    puts job.name
+    exit 0
+  end
+
+  if do_exec or (job.respond_to?(:is_exec) and job.is_exec)
+    res = job.exec(:stream)
+
+    result_type = job.result_type
+
+    res = JSON.parse(res.read) if (defined?(RemoteStep) and RemoteStep === job) && %w(array float integer boolean).include?(result_type.to_s)
+
+    case
+    when res.respond_to?(:gets)
+      begin
+        Misc.consume_stream(res, false, out)
+      rescue EOFError, IOError
+      end
+      res.join if res.respond_to? :join
+    when Array === res
+      out.puts res * "\n"
+    when TSV === res
+      out.puts res
+    when Hash === res
+      out.puts res.to_yaml
+    when IO === res
+      while block = res.read(2048)
+        out.write block
+      end
+    else
+      out.puts res
+    end
+    exit 0
+  end
+
+  if options.delete(:provenance)
+    if options.delete(:printpath)
+      puts job.path
+    else
+      puts Step.prov_report(job)
+    end
+    exit 0
+  end
+
+  def match_dependencies(queries, dependencies)
+    queries = queries.collect{|q| q.include?("#") ? q.split("#") : q }
+
+    matched = []
+    queries.each do |q|
+      matched += dependencies.select do |dep|
+        if Array === q
+          q.first == dep.workflow.to_s && q.last == dep.task_name.to_s
+        else
+          q.to_s == dep.task_name.to_s
+        end
+      end
+    end
+
+    matched
+  end
+
+  def replace_relayed_jobs(jobs_to_relay, server, produce_dependencies_for_relay = false, run_type = :run)
+    jobs_to_relay.each do |job|
+      ComputeDependency.setup(job, :bootstrap)
+      next if job.done?
+      Log.low "Relaying #{Misc.fingerprint job} to #{server}"
+      jmeta = class << job; self; end
+
+      job.instance_variable_set(:@job, job)
+      job.instance_variable_set(:@host, server)
+      job.instance_variable_set(:@produce_dependencies, produce_dependencies_for_relay)
+
+      jmeta.define_method :run do |*args|
+        if done?
+          load
+        else
+          RemoteWorkflow::SSH.relay_job_list([@job], @host, :run_type => run_type, :migrate => true, :produce_dependencies => @produce_dependencies)
+          Step.migrate(@job, 'user', :source => @host)
+          load
+        end
+      end
+      #job.dependencies = []
+
+      #([job] + job.rec_dependencies).each do |j|
+      #  next if job.done?
+      #  jmeta = class << j; self; end
+
+      #  j.instance_variable_set(:@job, job)
+      #  j.instance_variable_set(:@host, server)
+      #  j.instance_variable_set(:@produce_dependencies, produce_dependencies_for_relay)
+
+      #  jmeta.define_method :run do |*args|
+      #    if done?
+      #      load
+      #    else
+      #      RemoteWorkflow::SSH.relay_job_list([@job], @host, :run_type => run_type, :migrate => true, :produce_dependencies => @produce_dependencies)
+      #      Step.migrate(@job, 'user', :source => @host)
+      #      load
+      #    end
+      #  end
+      #end
+    end
+  end
+
+
+  if server = options.delete(:relay)
+    require 'scout/workflow/remote_workflow'
+    relay_dependencies = options.delete(:relay_dependencies).split(",")
+    produce_dependencies_for_relay = options.delete(:produce_dependencies_for_relay)
+
+    jobs_to_relay = relay_dependencies ?  match_dependencies(relay_dependencies, job.rec_dependencies) : [job]
+    jobs_to_relay.reject!{|d| d.done? }
+
+    replace_relayed_jobs(jobs_to_relay, server, produce_dependencies_for_relay, :run)
+  end
+
+  if server = options.delete(:slurm_relay)
+    require 'scout/workflow/remote_workflow'
+    relay_dependencies = options.delete(:relay_dependencies).split(",")
+    produce_dependencies_for_relay = options.delete(:produce_dependencies_for_relay)
+    jobs_to_relay = relay_dependencies ?  match_dependencies(relay_dependencies, job.rec_dependencies) : [job]
+    jobs_to_relay.reject!{|d| d.done? }
+
+    replace_relayed_jobs(jobs_to_relay, server, produce_dependencies_for_relay, :orchestrate)
+  end
+
+
+  if options[:procpath_performance]
+    require 'scout/util/procpath'
+    current_pid = job.info[:pid]
+    job.fork
+    job.soft_grace
+    sleep 2 if job.info[:pid] == current_pid
+    if job.info[:pid] != current_pid
+      pid = job.info[:pid]
+      begin
+        ProcPath.monitor(pid, options[:procpath_performance])
+      rescue Errno::ECHILD
+        Log.warn "Procpath didn't find process #{pid} to monitor. Maybe it finished already"
+      rescue
+        Log.warn "Procpath failed: #{$!.message}"
+      end
+    end
+  end
+
+  if tasks = options.delete(:produce)
+    tasks = tasks.split(",")
+    produce_cpus = (options[:produce_cpus] || 1)
+    puts Step.produce_dependencies(job, tasks,  produce_cpus)
+    exit 0
+  end
+
+
+  if do_fork
+    ENV["RBBT_NO_PROGRESS"] = "true"
+    if detach
+      job.fork
+      Process.detach job.pid if job.pid
+      puts Log.color(:magenta, "Issued: ") + Log.color(:magenta, job.pid ? job.pid.to_s : 'no pid') + ' -- ' + job.path
+      exit 0
+    end
+
+    job.fork
+  elsif options[:orchestrate]
+    require 'scout/workflow/util/orchestrator'
+    rules = case options[:orchestrate]
+            when 'none', 'open', 'default'
+              nil
+            else
+              YAML.parse(Open.read(options[:orchestrate]))
+            end
+    if rules
+      Workflow::Orchestrator.process rules, job
+    else
+      Workflow::Orchestrator.process job
+    end unless job.done?
+  else
+    job.run(:stream)
+    res = job
+  end
+
+  if options.delete(:printpath)
+    job.join if job.running?
+    raise job.messages.last if (job.error? || job.aborted?) && job.messages
+    if Open.remote? job.path
+      puts job.url + Log.color(:blue, "?_format=raw")
+    else
+      puts job.path
+    end
+    exit 0
+  end
+
+  if do_fork
+    puts
+    space = 1
+    Log.tty_size ||= 100
+
+    while not job.done?
+      message = (job.messages and job.messages.any?) ? job.messages.last.strip : "no message"
+      status = job.status || "no status"
+      if job.info and job.info.include? :issued
+        issued = job.info[:issued]
+        issued = Time.parse(issued) unless Time === issued
+        time = Time.now - issued
+      end
+
+      space.times do
+        Log.clear_line 
+      end
+
+      puts "#{Log.color :blue, job.path}"
+      str = "Waiting on #{Log.color :blue, job.info[:pid] || job.pid} (#{time ? time.to_i : '?'} sec. ago) " << [Log.color(:cyan, status.to_s),message.strip].compact*" "
+      puts Misc.format_paragraph str, Log.tty_size
+
+      space = 2 + Log.uncolor(str).length / Log.tty_size
+      sleep 2
+    end
+    raise job.messages.last if job.error?
+
+    if job.info and job.info.include? :issued
+      issued = job.info[:issued]
+      issued = Time.parse(issued) unless Time === issued
+      time = Time.now - issued
+    end
+
+    space.times do
+      Log.clear_line 
+    end
+
+    if Open.remote?(job.path)
+      out.puts job.path + Log.color(:blue, "?_format=raw")
+    else
+      out.puts job.path
+    end
+
+    exit 0
+  end
+rescue ParameterException
+  SOPT.delete_inputs(workflow.rec_inputs(task.name))
+  usage(workflow, task, $!)
+  puts Log.color :magenta, "Options:"
+  puts
+  report_options saved_job_options
+  puts
+  exit! -1
+end
+
+if options.delete(:list_job_files)
+  out.puts job.files * "\n"
+  exit 0
+end
+
+if job_file = options.delete(:job_file)
+  job.join
+  file = job.file(job_file)
+  out.puts Path === file ? file.read : file
+  exit 0
+end
+
+case res
+#when (defined?(WorkflowRemoteClient) and WorkflowRemoteClient::RemoteStep)
+when (defined?(RemoteStep) and RemoteStep)
+  res = job.result
+  if res.respond_to? :gets
+    begin
+      Misc.consume_stream(res, false, out)
+    rescue EOFError, IOError
+    end
+    res.join if res.respond_to? :join
+  elsif res.nil?
+    job.join
+    raise job.get_exception if job.error? || job.aborted?
+    puts Open.read(job.path, :nocache => true, :nofail => true)
+  else
+    if Array === res
+      out.puts res * "\n"
+    else
+      out.puts res.to_s
+    end
+  end
+when Step
+  if res.streaming?
+    io = TSV.get_stream res
+    Misc.consume_stream(io, false, out)
+    io.join if io.respond_to? :join
+  elsif IO === res.result
+    begin
+      io = res.get_stream
+      Misc.consume_stream(io, false, out)
+      io.join if io.respond_to? :join
+    rescue Aborted, Interrupt
+      Log.error "Process interrupted. Aborting step"
+      res.abort
+      begin
+        io.abort if io.respond_to? :abort
+        io.join  if io.respond_to? :join
+      ensure
+        exit! -1
+      end
+    rescue Exception
+      Log.exception $!
+      res.abort
+      begin
+        io.abort if io.respond_to? :abort
+        io.join  if io.respond_to? :join
+      ensure
+        exit! -1
+      end
+    end
+  elsif detach
+    exit! 0
+  else
+    res.join if res.running?
+    if %w(float integer string boolean).include?(res.result_type.to_s)
+      out.puts res.load
+    else
+      Open.open(res.path, :mode => 'rb') do |io|
+        Misc.consume_stream(io, false, out)
+      end if Open.exist?(res.path) || Open.remote?(res.path) || Open.ssh?(res.path)
+    end if res.done?
+  end
+else
+  if Array === res
+    out.puts res * "\n"
+  else
+    out.puts res.to_s
+  end
+end
+
+exit 0