rbbt-util 5.44.1 → 6.0.3

data/lib/rbbt/util/log.rb

@@ -1,532 +1,486 @@
-require 'term/ansicolor'
-require 'rbbt/util/color'
-require 'rbbt/util/log/progress'
-
-class MockMutex
-  def synchronize
-    yield
-  end
-end
-
-module Log
-  extend Term::ANSIColor
-
-
-  #ToDo: I'm not sure if using a Mutex here really gives troubles in CPU concurrency
-  LOG_MUTEX = MockMutex.new
-  #LOG_MUTEX = Mutex.new
-
-  SEVERITY_NAMES ||= begin
-                     names = %w(DEBUG LOW MEDIUM HIGH INFO WARN ERROR NONE ) 
-                     names.each_with_index do |name,i|
-                       eval "#{ name } = #{ i }" 
-                     end
-                     names
-                   end
-
-  def self.terminal_width
-    80
-  end
-  
-  def self.compact
-    true
-  end
-
-
-  def self.last_caller(stack)
-    line = nil
-    pos ||= 0
-    while line.nil? or line =~ /util\/log\.rb/ and stack.any? 
-      line = stack.shift 
-    end
-    line ||= caller.first
-    line.gsub('`', "'")
-  end
-
-
-  def self.trap_std(msg = "STDOUT", msge = "STDERR", severity = 0, severity_err = nil)
-    sout, sin = Misc.pipe
-    soute, sine = Misc.pipe
-    backup_stderr = STDERR.dup
-    backup_stdout = STDOUT.dup
-    old_logfile = Log.logfile
-    Log.logfile(backup_stderr)
-
-    severity_err ||= severity
-    th_log = Thread.new do
-      while line = sout.gets
-        Log.logn "#{msg}: " + line, severity
-      end
-    end
-
-    th_loge = Thread.new do
-      while line = soute.gets
-        Log.logn "#{msge}: " + line, severity_err
-      end
-    end
-
-    begin
-      STDOUT.reopen(sin)
-      STDERR.reopen(sine)
-      yield
-    ensure
-      STDERR.reopen backup_stderr
-      STDOUT.reopen backup_stdout
-      sin.close
-      sine.close
-      th_log.join
-      th_loge.join
-      backup_stdout.close
-      backup_stderr.close
-      Log.logfile = old_logfile
-    end
-  end
-
-  def self.trap_stderr(msg = "STDERR", severity = 0)
-    sout, sin = Misc.pipe
-    backup_stderr = STDERR.dup
-    old_logfile = Log.logfile
-    Log.logfile(backup_stderr)
-
-    th_log = Thread.new do
-      while line = sout.gets
-        Log.logn "#{msg}: " + line, severity
-      end
-    end
-
-    begin
-      STDERR.reopen(sin)
-      yield
-      sin.close
-    ensure
-      STDERR.reopen backup_stderr
-      th_log.join
-      backup_stderr.close
-      Log.logfile = old_logfile
-    end
-  end
-
-
-  def self._ignore_stderr
-    begin
-      File.open('/dev/null', 'w') do |f|
-        backup_stderr = STDERR.dup
-        STDERR.reopen(f)
-        begin
-          yield
-        ensure
-          STDERR.reopen backup_stderr
-          backup_stderr.close
-        end
-      end
-    rescue Errno::ENOENT
-      yield
-    end
-  end
-
-
-  def self.ignore_stderr(&block)
-    LOG_MUTEX.synchronize do
-      _ignore_stderr &block
-    end
-  end
-
-  def self._ignore_stdout
-    begin
-      File.open('/dev/null', 'w') do |f|
-        backup_stdout = STDOUT.dup
-        STDOUT.reopen(f)
-        begin
-          yield
-        ensure
-          STDOUT.reopen backup_stdout
-          backup_stdout.close
-        end
-      end
-    rescue Errno::ENOENT
-      yield
-    end
-  end
-
-
-  def self.ignore_stdout(&block)
-    LOG_MUTEX.synchronize do
-      _ignore_stdout &block
-    end
-  end
-
-  def self.get_level(level)
-    case level
-    when Numeric
-      level.to_i
-    when String
-      begin
-        Log.const_get(level.upcase)
-      rescue
-        Log.exception $!
-      end
-    when Symbol
-      get_level(level.to_s)
-    end || 0
-  end
-
-  class << self
-    attr_accessor :logfile, :severity, :nocolor, :tty_size
-  end
-
-  self.nocolor = ENV["RBBT_NOCOLOR"] == 'true'
-
-  self.ignore_stderr do
-    self.tty_size = begin
-                      require "highline/system_extensions.rb"
-                      HighLine::SystemExtensions.terminal_size.first 
-                    rescue Exception
-                      nil
-                    end
-  end
-
-  def self.with_severity(level)
-    orig = Log.severity
-    begin
-      Log.severity = level
-      yield
-    ensure
-      Log.severity = orig
-    end
-  end
-
-  def self.logfile(file=nil)
-    if file.nil?
-      @logfile ||= nil
-    else
-      case file
-      when String
-        @logfile = File.open(file, :mode => 'a')
-      when IO, File
-        @logfile = file
-      else
-        raise "Unkown logfile format: #{file.inspect}"
-      end
-    end
-  end
-
-  WHITE, DARK, GREEN, YELLOW, RED = Color::SOLARIZED.values_at :base0, :base00, :green, :yellow, :magenta
-
-  SEVERITY_COLOR = [reset, cyan, green, magenta, blue, yellow, red] #.collect{|e| "\033[#{e}"}
-  HIGHLIGHT = "\033[1m"
-
-  def self.uncolor(str)
-    "" << Term::ANSIColor.uncolor(str)
-  end
-
-  def self.reset_color
-    reset
-  end
-
-  def self.color(severity, str = nil, reset = false)
-    return str.dup || "" if nocolor 
-    color = reset ? Term::ANSIColor.reset : ""
-    color << SEVERITY_COLOR[severity] if Integer === severity
-    color << Term::ANSIColor.send(severity) if Symbol === severity and Term::ANSIColor.respond_to? severity 
-    if str.nil?
-      color
-    else
-      color + str.to_s + self.color(0)
-    end
-  end
-
-  def self.up_lines(num = 1)
-    nocolor ? "" : "\033[#{num+1}F\033[2K"
-  end
-
-  def self.down_lines(num = 1)
-    nocolor ? "" : "\033[#{num+1}E"
-  end
-
-  def self.return_line
-    nocolor ? "" : "\033[1A"
-  end
-
-  def self.clear_line(out = STDOUT)
-    out.puts Log.return_line << " " * (Log.tty_size || 80) << Log.return_line unless nocolor
-  end
-
-  def self.highlight(str = nil)
-    if str.nil?
-      return "" if nocolor
-      HIGHLIGHT
-    else
-      return str if nocolor
-      HIGHLIGHT + str + color(0)
-    end
-  end
-
-  LAST = "log"
-  def self.logn(message = nil, severity = MEDIUM, &block)
-    return if severity < self.severity 
-    message ||= block.call if block_given?
-    return if message.nil?
-
-    time = Time.now.strftime("%m/%d/%y-%H:%M:%S.%L")
-
-    sev_str = severity.to_s
-
-    prefix = time << color(severity) << "["  << sev_str << "]" << color(0)
-    message = "" << highlight << message << color(0) if severity >= INFO
-    str = prefix << " " << message.to_s
-
-    LOG_MUTEX.synchronize do
-      if logfile.nil?
-        STDERR.write str
-      else
-        logfile.write str 
-      end
-      Log::LAST.replace "log"
-      nil
-    end
-  end
-
-  def self.log(message = nil, severity = MEDIUM, &block)
-    return if severity < self.severity 
-    message ||= block.call if block_given?
-    return if message.nil?
-    message = message + "\n" unless message[-1] == "\n"
-    self.logn message, severity, &block
-  end
-
-  def self.log_obj_inspect(obj, level, file = $stdout)
-    stack = caller
-
-    line = Log.last_caller stack
-
-    level = Log.get_level level
-    name = Log::SEVERITY_NAMES[level] + ": "
-    Log.log Log.color(level, name, true) << line, level
-    Log.log "", level
-    Log.log Log.color(level, "=> ", true) << obj.inspect, level
-    Log.log "", level
-  end
-
-  def self.log_obj_fingerprint(obj, level, file = $stdout)
-    stack = caller
-
-    line = Log.last_caller stack
-
-    level = Log.get_level level
-    name = Log::SEVERITY_NAMES[level] + ": "
-    Log.log Log.color(level, name, true) << line, level
-    Log.log "", level
-    Log.log Log.color(level, "=> ", true) << Misc.fingerprint(obj), level
-    Log.log "", level
-  end
-
-  def self.debug(message = nil, &block)
-    log(message, DEBUG, &block)
-  end
-
-  def self.low(message = nil, &block)
-    log(message, LOW, &block)
-  end
-
-  def self.medium(message = nil, &block)
-    log(message, MEDIUM, &block)
-  end
-
-  def self.high(message = nil, &block)
-    log(message, HIGH, &block)
-  end
-
-  def self.info(message = nil, &block)
-    log(message, INFO, &block)
-  end
-
-  def self.warn(message = nil, &block)
-    log(message, WARN, &block)
-  end
-
-  def self.error(message = nil, &block)
-    log(message, ERROR, &block)
-  end
-
-  def self.exception(e)
-    stack = caller
-    if ENV["RBBT_ORIGINAL_STACK"] == 'true'
-      error([e.class.to_s, e.message].compact * ": " )
-      error("BACKTRACE [#{Process.pid}]: " << Log.last_caller(stack) << "\n" + color_stack(e.backtrace)*"\n")
-    else
-      error("BACKTRACE [#{Process.pid}]: " << Log.last_caller(stack) << "\n" + color_stack(e.backtrace.reverse)*"\n")
-      error([e.class.to_s, e.message].compact * ": " )
-    end
-  end
-
-  def self.deprecated(m)
-    stack = caller
-    warn("DEPRECATED: " << Log.last_caller(stack))
-    warn("* " << (m || "").to_s)
-  end
-
-  def self.color_stack(stack)
-    stack.collect do |line|
-      line = line.sub('`',"'")
-      color = :green if line =~ /workflow/
-      color = :blue if line =~ /rbbt-/
-      Log.color color, line
-    end unless stack.nil?
-  end
-
-  def self.tsv(tsv, example = false)
-    STDERR.puts Log.color :magenta, "TSV log: " << Log.last_caller(caller).gsub('`',"'")
-    STDERR.puts Log.color(:blue, "=> "<< Misc.fingerprint(tsv), true) 
-    STDERR.puts Log.color(:cyan, "=> " << tsv.summary)
-    if example && ! tsv.empty?
-      key = case example
-            when TrueClass, :first, "first"
-              tsv.keys.first
-            when :random, "random"
-              tsv.keys.shuffle.first
-            else
-              example
-            end
-
-      values = tsv[key]
-      values = [values] if tsv.type == :flat || tsv.type == :single
-      if values.nil?
-        STDERR.puts Log.color(:blue, "Key (#{tsv.key_field}) not present: ") + key
-      else
-        STDERR.puts Log.color(:blue, "Key (#{tsv.key_field}): ") + key
-        tsv.fields.zip(values).each do |field,value|
-          STDERR.puts Log.color(:magenta, field + ": ") + (Array === value ? value * ", " : value.to_s)
-        end
-      end
-    end
-    LOG_MUTEX.synchronize do
-      Log::LAST.replace "log"
-    end
-    nil
-  end
-
-  def self.stack(stack)
-    LOG_MUTEX.synchronize do
-      if ENV["RBBT_ORIGINAL_STACK"] == 'true'
-        STDERR.puts Log.color :magenta, "Stack trace [#{Process.pid}]: " << Log.last_caller(caller)
-      color_stack(stack).each do |line|
-        STDERR.puts line
-      end
-      else
-        STDERR.puts Log.color :magenta, "Stack trace [#{Process.pid}]: " << Log.last_caller(caller)
-        color_stack(stack.reverse).each do |line|
-          STDERR.puts line
-        end
-      end
-    end
-  end
-
-  def self.count_stack
-    if ! $count_stacks
-      Log.debug "Counting stacks at: " << caller.first
-      return 
-    end
-    $stack_counts ||= {}
-    head = $count_stacks_head
-    stack = caller[1..head+1]
-    stack.reverse.each do |line,i|
-      $stack_counts[line] ||= 0
-      $stack_counts[line] += 1
-    end
-  end
-
-  def self.with_stack_counts(head = 10, total = 100)
-    $count_stacks_head = head
-    $count_stacks = true
-    $stack_counts = {}
-    res = yield
-    $count_stacks = false
-    Log.debug "STACK_COUNTS:\n" + $stack_counts.sort_by{|line,c| c}.reverse.collect{|line,c| [c, line] * " - "}[0..total] * "\n"
-    $stack_counts = {}
-    res
-  end
-
-  case ENV['RBBT_LOG'] 
-  when 'DEBUG' 
-    self.severity = DEBUG
-  when 'LOW' 
-    self.severity = LOW
-  when 'MEDIUM' 
-    self.severity = MEDIUM
-  when 'HIGH' 
-    self.severity = HIGH
-  when nil
-    self.severity = INFO
-  else
-    self.severity = ENV['RBBT_LOG'].to_i
-  end
-end
-
-def ppp(message)
-  stack = caller
-  puts "#{Log.color :cyan, "PRINT:"} " << stack.first
-  puts ""
-  if message.length > 200 or message.include? "\n"
-    puts Log.color(:cyan, "=>|") << "\n" << message.to_s
-  else
-    puts Log.color(:cyan, "=> ") << message.to_s
-  end
-  puts ""
-end
-
-def fff(object)
-  stack = caller
-  Log.debug{"#{Log.color :cyan, "FINGERPRINT:"} " << stack.first}
-  Log.debug{""}
-  Log.debug{require 'rbbt/util/misc'; "=> " << Misc.fingerprint(object) }
-  Log.debug{""}
-end
-
-def ddd(obj, file = $stdout)
-  Log.log_obj_inspect(obj, :debug, file)
-end
-
-def lll(obj, file = $stdout)
-  Log.log_obj_inspect(obj, :low, file)
-end
-
-def mmm(obj, file = $stdout)
-  Log.log_obj_inspect(obj, :medium, file)
-end
-
-def iii(obj=nil, file = $stdout)
-  Log.log_obj_inspect(obj, :info, file)
-end
-
-def wwww(obj=nil, file = $stdout)
-  Log.log_obj_inspect(obj, :warn, file)
-end
-
-def eee(obj=nil, file = $stdout)
-  Log.log_obj_inspect(obj, :error, file)
-end
-
-def ddf(obj=nil, file = $stdout)
-  Log.log_obj_fingerprint(obj, :debug, file)
-end
-
-def llf(obj=nil, file = $stdout)
-  Log.log_obj_fingerprint(obj, :low, file)
-end
-
-def mmf(obj=nil, file = $stdout)
-  Log.log_obj_fingerprint(obj, :medium, file)
-end
-
-def iif(obj=nil, file = $stdout)
-  Log.log_obj_fingerprint(obj, :info, file)
-end
-
-def wwwf(obj=nil, file = $stdout)
-  Log.log_obj_fingerprint(obj, :warn, file)
-end
-
-def eef(obj=nil, file = $stdout)
-  Log.log_obj_fingerprint(obj, :error, file)
-end
-
+require 'rbbt/refactor'
+Rbbt.require_instead 'scout/log'
+require_relative 'log/refactor'
+
+
+
+#require 'term/ansicolor'
+#require 'rbbt/util/color'
+#require 'rbbt/util/log/progress'
+#
+#class MockMutex
+#  def synchronize
+#    yield
+#  end
+#end
+#
+#module Log
+#  extend Term::ANSIColor
+#
+#
+#  #ToDo: I'm not sure if using a Mutex here really gives troubles in CPU concurrency
+#  LOG_MUTEX = MockMutex.new
+#  #LOG_MUTEX = Mutex.new
+#
+#  SEVERITY_NAMES ||= begin
+#                     names = %w(DEBUG LOW MEDIUM HIGH INFO WARN ERROR NONE ) 
+#                     names.each_with_index do |name,i|
+#                       eval "#{ name } = #{ i }" 
+#                     end
+#                     names
+#                   end
+#
+#  def self.terminal_width
+#    80
+#  end
+#  
+#  def self.compact
+#    true
+#  end
+#
+#
+#  def self.last_caller(stack)
+#    line = nil
+#    pos ||= 0
+#    while line.nil? or line =~ /util\/log\.rb/ and stack.any? 
+#      line = stack.shift 
+#    end
+#    line ||= caller.first
+#    line.gsub('`', "'")
+#  end
+#
+#
+#  def self.trap_std(msg = "STDOUT", msge = "STDERR", severity = 0, severity_err = nil)
+#    sout, sin = Misc.pipe
+#    soute, sine = Misc.pipe
+#    backup_stderr = STDERR.dup
+#    backup_stdout = STDOUT.dup
+#    old_logfile = Log.logfile
+#    Log.logfile(backup_stderr)
+#
+#    severity_err ||= severity
+#    th_log = Thread.new do
+#      while line = sout.gets
+#        Log.logn "#{msg}: " + line, severity
+#      end
+#    end
+#
+#    th_loge = Thread.new do
+#      while line = soute.gets
+#        Log.logn "#{msge}: " + line, severity_err
+#      end
+#    end
+#
+#    begin
+#      STDOUT.reopen(sin)
+#      STDERR.reopen(sine)
+#      yield
+#    ensure
+#      STDERR.reopen backup_stderr
+#      STDOUT.reopen backup_stdout
+#      sin.close
+#      sine.close
+#      th_log.join
+#      th_loge.join
+#      backup_stdout.close
+#      backup_stderr.close
+#      Log.logfile = old_logfile
+#    end
+#  end
+#
+#  def self.trap_stderr(msg = "STDERR", severity = 0)
+#    sout, sin = Misc.pipe
+#    backup_stderr = STDERR.dup
+#    old_logfile = Log.logfile
+#    Log.logfile(backup_stderr)
+#
+#    th_log = Thread.new do
+#      while line = sout.gets
+#        Log.logn "#{msg}: " + line, severity
+#      end
+#    end
+#
+#    begin
+#      STDERR.reopen(sin)
+#      yield
+#      sin.close
+#    ensure
+#      STDERR.reopen backup_stderr
+#      th_log.join
+#      backup_stderr.close
+#      Log.logfile = old_logfile
+#    end
+#  end
+#
+#
+#  def self.get_level(level)
+#    case level
+#    when Numeric
+#      level.to_i
+#    when String
+#      begin
+#        Log.const_get(level.upcase)
+#      rescue
+#        Log.exception $!
+#      end
+#    when Symbol
+#      get_level(level.to_s)
+#    end || 0
+#  end
+#
+#  class << self
+#    attr_accessor :logfile, :severity, :nocolor, :tty_size
+#  end
+#
+#  self.nocolor = ENV["RBBT_NOCOLOR"] == 'true'
+#
+#  self.ignore_stderr do
+#    self.tty_size = begin
+#                      require "highline/system_extensions.rb"
+#                      HighLine::SystemExtensions.terminal_size.first 
+#                    rescue Exception
+#                      nil
+#                    end
+#  end
+#
+#  def self.with_severity(level)
+#    orig = Log.severity
+#    begin
+#      Log.severity = level
+#      yield
+#    ensure
+#      Log.severity = orig
+#    end
+#  end
+#
+#  def self.logfile(file=nil)
+#    if file.nil?
+#      @logfile ||= nil
+#    else
+#      case file
+#      when String
+#        @logfile = File.open(file, :mode => 'a')
+#      when IO, File
+#        @logfile = file
+#      else
+#        raise "Unkown logfile format: #{file.inspect}"
+#      end
+#    end
+#  end
+#
+#  WHITE, DARK, GREEN, YELLOW, RED = Color::SOLARIZED.values_at :base0, :base00, :green, :yellow, :magenta
+#
+#  SEVERITY_COLOR = [reset, cyan, green, magenta, blue, yellow, red] #.collect{|e| "\033[#{e}"}
+#  HIGHLIGHT = "\033[1m"
+#
+#  def self.uncolor(str)
+#    "" << Term::ANSIColor.uncolor(str)
+#  end
+#
+#  def self.reset_color
+#    reset
+#  end
+#
+#  def self.color(severity, str = nil, reset = false)
+#    return str.dup || "" if nocolor 
+#    color = reset ? Term::ANSIColor.reset : ""
+#    color << SEVERITY_COLOR[severity] if Integer === severity
+#    color << Term::ANSIColor.send(severity) if Symbol === severity and Term::ANSIColor.respond_to? severity 
+#    if str.nil?
+#      color
+#    else
+#      color + str.to_s + self.color(0)
+#    end
+#  end
+#
+#  def self.up_lines(num = 1)
+#    nocolor ? "" : "\033[#{num+1}F\033[2K"
+#  end
+#
+#  def self.down_lines(num = 1)
+#    nocolor ? "" : "\033[#{num+1}E"
+#  end
+#
+#  def self.return_line
+#    nocolor ? "" : "\033[1A"
+#  end
+#
+#  def self.clear_line(out = STDOUT)
+#    out.puts Log.return_line << " " * (Log.tty_size || 80) << Log.return_line unless nocolor
+#  end
+#
+#  def self.highlight(str = nil)
+#    if str.nil?
+#      return "" if nocolor
+#      HIGHLIGHT
+#    else
+#      return str if nocolor
+#      HIGHLIGHT + str + color(0)
+#    end
+#  end
+#
+#  LAST = "log"
+#  def self.logn(message = nil, severity = MEDIUM, &block)
+#    return if severity < self.severity 
+#    message ||= block.call if block_given?
+#    return if message.nil?
+#
+#    time = Time.now.strftime("%m/%d/%y-%H:%M:%S.%L")
+#
+#    sev_str = severity.to_s
+#
+#    prefix = time << color(severity) << "["  << sev_str << "]" << color(0)
+#    message = "" << highlight << message << color(0) if severity >= INFO
+#    str = prefix << " " << message.to_s
+#
+#    LOG_MUTEX.synchronize do
+#      if logfile.nil?
+#        STDERR.write str
+#      else
+#        logfile.write str 
+#      end
+#      Log::LAST.replace "log"
+#      nil
+#    end
+#  end
+#
+#  def self.log(message = nil, severity = MEDIUM, &block)
+#    return if severity < self.severity 
+#    message ||= block.call if block_given?
+#    return if message.nil?
+#    message = message + "\n" unless message[-1] == "\n"
+#    self.logn message, severity, &block
+#  end
+#
+#  def self.log_obj_inspect(obj, level, file = $stdout)
+#    stack = caller
+#
+#    line = Log.last_caller stack
+#
+#    level = Log.get_level level
+#    name = Log::SEVERITY_NAMES[level] + ": "
+#    Log.log Log.color(level, name, true) << line, level
+#    Log.log "", level
+#    Log.log Log.color(level, "=> ", true) << obj.inspect, level
+#    Log.log "", level
+#  end
+#
+#  def self.log_obj_fingerprint(obj, level, file = $stdout)
+#    stack = caller
+#
+#    line = Log.last_caller stack
+#
+#    level = Log.get_level level
+#    name = Log::SEVERITY_NAMES[level] + ": "
+#    Log.log Log.color(level, name, true) << line, level
+#    Log.log "", level
+#    Log.log Log.color(level, "=> ", true) << Misc.fingerprint(obj), level
+#    Log.log "", level
+#  end
+#
+#  def self.debug(message = nil, &block)
+#    log(message, DEBUG, &block)
+#  end
+#
+#  def self.low(message = nil, &block)
+#    log(message, LOW, &block)
+#  end
+#
+#  def self.medium(message = nil, &block)
+#    log(message, MEDIUM, &block)
+#  end
+#
+#  def self.high(message = nil, &block)
+#    log(message, HIGH, &block)
+#  end
+#
+#  def self.info(message = nil, &block)
+#    log(message, INFO, &block)
+#  end
+#
+#  def self.warn(message = nil, &block)
+#    log(message, WARN, &block)
+#  end
+#
+#  def self.error(message = nil, &block)
+#    log(message, ERROR, &block)
+#  end
+#
+#  def self.exception(e)
+#    stack = caller
+#    if ENV["RBBT_ORIGINAL_STACK"] == 'true'
+#      error([e.class.to_s, e.message].compact * ": " )
+#      error("BACKTRACE [#{Process.pid}]: " << Log.last_caller(stack) << "\n" + color_stack(e.backtrace)*"\n")
+#    else
+#      error("BACKTRACE [#{Process.pid}]: " << Log.last_caller(stack) << "\n" + color_stack(e.backtrace.reverse)*"\n")
+#      error([e.class.to_s, e.message].compact * ": " )
+#    end
+#  end
+#
+#  def self.deprecated(m)
+#    stack = caller
+#    warn("DEPRECATED: " << Log.last_caller(stack))
+#    warn("* " << (m || "").to_s)
+#  end
+#
+#  def self.color_stack(stack)
+#    stack.collect do |line|
+#      line = line.sub('`',"'")
+#      color = :green if line =~ /workflow/
+#      color = :blue if line =~ /rbbt-/
+#      Log.color color, line
+#    end unless stack.nil?
+#  end
+#
+#  def self.tsv(tsv, example = false)
+#    STDERR.puts Log.color :magenta, "TSV log: " << Log.last_caller(caller).gsub('`',"'")
+#    STDERR.puts Log.color(:blue, "=> "<< Misc.fingerprint(tsv), true) 
+#    STDERR.puts Log.color(:cyan, "=> " << tsv.summary)
+#    if example && ! tsv.empty?
+#      key = case example
+#            when TrueClass, :first, "first"
+#              tsv.keys.first
+#            when :random, "random"
+#              tsv.keys.shuffle.first
+#            else
+#              example
+#            end
+#
+#      values = tsv[key]
+#      values = [values] if tsv.type == :flat || tsv.type == :single
+#      if values.nil?
+#        STDERR.puts Log.color(:blue, "Key (#{tsv.key_field}) not present: ") + key
+#      else
+#        STDERR.puts Log.color(:blue, "Key (#{tsv.key_field}): ") + key
+#        tsv.fields.zip(values).each do |field,value|
+#          STDERR.puts Log.color(:magenta, field + ": ") + (Array === value ? value * ", " : value.to_s)
+#        end
+#      end
+#    end
+#  end
+#
+#  def self.stack(stack)
+#    LOG_MUTEX.synchronize do
+#      if ENV["RBBT_ORIGINAL_STACK"] == 'true'
+#        STDERR.puts Log.color :magenta, "Stack trace [#{Process.pid}]: " << Log.last_caller(caller)
+#      color_stack(stack).each do |line|
+#        STDERR.puts line
+#      end
+#      else
+#        STDERR.puts Log.color :magenta, "Stack trace [#{Process.pid}]: " << Log.last_caller(caller)
+#        color_stack(stack.reverse).each do |line|
+#          STDERR.puts line
+#        end
+#      end
+#    end
+#  end
+#
+#  def self.count_stack
+#    if ! $count_stacks
+#      Log.debug "Counting stacks at: " << caller.first
+#      return 
+#    end
+#    $stack_counts ||= {}
+#    head = $count_stacks_head
+#    stack = caller[1..head+1]
+#    stack.reverse.each do |line,i|
+#      $stack_counts[line] ||= 0
+#      $stack_counts[line] += 1
+#    end
+#  end
+#
+#  def self.with_stack_counts(head = 10, total = 100)
+#    $count_stacks_head = head
+#    $count_stacks = true
+#    $stack_counts = {}
+#    res = yield
+#    $count_stacks = false
+#    Log.debug "STACK_COUNTS:\n" + $stack_counts.sort_by{|line,c| c}.reverse.collect{|line,c| [c, line] * " - "}[0..total] * "\n"
+#    $stack_counts = {}
+#    res
+#  end
+#
+#  case ENV['RBBT_LOG'] 
+#  when 'DEBUG' 
+#    self.severity = DEBUG
+#  when 'LOW' 
+#    self.severity = LOW
+#  when 'MEDIUM' 
+#    self.severity = MEDIUM
+#  when 'HIGH' 
+#    self.severity = HIGH
+#  when nil
+#    self.severity = INFO
+#  else
+#    self.severity = ENV['RBBT_LOG'].to_i
+#  end
+#end
+#
+#def ppp(message)
+#  stack = caller
+#  puts "#{Log.color :cyan, "PRINT:"} " << stack.first
+#  puts ""
+#  if message.length > 200 or message.include? "\n"
+#    puts Log.color(:cyan, "=>|") << "\n" << message.to_s
+#  else
+#    puts Log.color(:cyan, "=> ") << message.to_s
+#  end
+#  puts ""
+#end
+#
+#def fff(object)
+#  stack = caller
+#  Log.debug{"#{Log.color :cyan, "FINGERPRINT:"} " << stack.first}
+#  Log.debug{""}
+#  Log.debug{require 'rbbt/util/misc'; "=> " << Misc.fingerprint(object) }
+#  Log.debug{""}
+#end
+#
+#def ddd(obj, file = $stdout)
+#  Log.log_obj_inspect(obj, :debug, file)
+#end
+#
+#def lll(obj, file = $stdout)
+#  Log.log_obj_inspect(obj, :low, file)
+#end
+#
+#def mmm(obj, file = $stdout)
+#  Log.log_obj_inspect(obj, :medium, file)
+#end
+#
+#def iii(obj=nil, file = $stdout)
+#  Log.log_obj_inspect(obj, :info, file)
+#end
+#
+#def wwww(obj=nil, file = $stdout)
+#  Log.log_obj_inspect(obj, :warn, file)
+#end
+#
+#def eee(obj=nil, file = $stdout)
+#  Log.log_obj_inspect(obj, :error, file)
+#end
+#
+#def ddf(obj=nil, file = $stdout)
+#  Log.log_obj_fingerprint(obj, :debug, file)
+#end
+#
+#def llf(obj=nil, file = $stdout)
+#  Log.log_obj_fingerprint(obj, :low, file)
+#end
+#
+#def mmf(obj=nil, file = $stdout)
+#  Log.log_obj_fingerprint(obj, :medium, file)
+#end
+#
+#def iif(obj=nil, file = $stdout)
+#  Log.log_obj_fingerprint(obj, :info, file)
+#end
+#
+#def wwwf(obj=nil, file = $stdout)
+#  Log.log_obj_fingerprint(obj, :warn, file)
+#end
+#
+#def eef(obj=nil, file = $stdout)
+#  Log.log_obj_fingerprint(obj, :error, file)
+#end
+#