module Cutter
  class Inspection
    class << self
      def quiet!
        @quiet = true
      end

      def loud!
        @quiet = nil
      end

      def quiet?
        @quiet
      end
    end
  end
end

class Object
  
  # #inspect! may be called inside any method as 'inspect! {}' or more rigorous: 'inspect!(binding)'
  # Binding is a Ruby class: http://www.ruby-doc.org/core/classes/Binding.html
  
  def inspect! *options, &block
    return true if Cutter::Inspection.quiet?

    # Getting binding
    _binding = options.first if options.first.class == Binding
    raise ArgumentError, "Try inspect(binding) or inspect! {}", caller if (!block_given? && !_binding)
    _binding ||= block.binding
    
    max = true if options.include? :max
    options << :instance << :max << :self << :caller if max
    options.uniq!
 
    iv = true if options.include? :instance

    # Want caller methods chain to be traced? - pass option :caller to #inspect!
    _caller = true if options.include? :caller
   
    self_inspection = eval('self.inspect', _binding) if options.include? :self

    # Basic info
    method_name = eval('__method__', _binding)
    class_name = eval('self.class', _binding)
    
    puts "\n%s `%s' %s" % ['method:'.to_colorized_string(:method), method_name.to_colorized_string(:method_name), ('(maximal tracing)' if max)]
    puts "  %s %s" % ['called from class:'.to_colorized_string(:called_from), class_name.to_colorized_string(:class_name)]

    # Local Variables
    lvb = eval('local_variables',_binding)
    puts "  %s %s" % ['local_variables:'.to_colorized_string(:lv), ("[]" if lvb.empty?)]

    lvb.map do |lv|
      local_variable = eval(lv.to_s, _binding)
      local_variable = (max ? local_variable.inspect : local_variable.to_real_string)

      puts "    %s: %s" % [lv.to_colorized_string(:lv_names), local_variable.to_colorized_string(:lv_values)] 
    end if lvb

    # Instance Variables
    begin
      ivb = eval('instance_variables',_binding)
      
      puts "  %s %s" % ["instance_variables:".to_colorized_string(:iv), ("[]" if ivb.empty?)]
      
      ivb.map do |iv|
        instance_variable = eval(iv.to_s, _binding)
        instance_variable = (max ? instance_variable.inspect : instance_variable.to_real_string)
       
        puts "    %s: %s" % [iv.to_colorized_string(:iv_names), instance_variable.to_colorized_string(:iv_values)] 
      end if ivb
    end if iv

    # Self inspection 
    begin
      puts "  self inspection:".to_colorized_string(:self_inspection)
      puts "  %s" % self_inspection.to_colorized_string(:self_inspection_trace)
    end if self_inspection

    # Caller methods chain
    begin
      puts "  caller methods: ".to_colorized_string(:caller_methods)
      caller.each do |meth|
        puts "  %s" % meth.to_colorized_string(:caller_method)
      end
    end if _caller
   
    puts "\n"
    
    # Yield mysterious things if they exist in block.
    yield if block_given?
  end

  alias :iii :inspect!

  protected

  # "Real string". It is now used to print Symbols with colons
  def to_real_string
    return ":#{self.to_s}" if self.class == Symbol
    to_s
  end

  def to_colorized_string obj
    colors = Cutter::ColoredOutputs.colors_config
    color = colors[obj] || :default
    color != :default ? to_s.send(color) : to_s
  end
end

class Object
  def rrr object = nil
    raise object.inspect
  end

  def ppp object = nil 
    puts object.inspect
  end

  def lll object = nil
    Rails.logger.info object.inspect
  end if defined? Rails
end

# def caller_method_name(level = 1)
#   caller[level][/`([^']*)'/,1].to_sym
# end