module Byebug::InfoFunctions

def info_args(*args)
  locals = @state.context.frame_locals
  args = @state.context.frame_args
  return if args == [[:rest]]
  args.map do |_, name|
    s = "#{name} = #{locals[name].inspect}"
    s[Setting[:width] - 3..-1] = '...' if s.size > Setting[:width]
    puts s
  end
end

def info_breakpoint(brkpt)
  expr = brkpt.expr.nil? ? '' : " if #{brkpt.expr}"
  y_n = brkpt.enabled? ? 'y' : 'n'
  interp = format('%-3d %-3s at %s:%s%s',
                  brkpt.id, y_n, brkpt.source, brkpt.pos, expr)
  puts interp
  hits = brkpt.hit_count
  return unless hits > 0
  s = (hits > 1) ? 's' : ''
  puts "\tbreakpoint already hit #{hits} time#{s}"
end

def info_breakpoints(*args)
  return puts('No breakpoints.') if Byebug.breakpoints.empty?
  brkpts = Byebug.breakpoints.sort_by { |b| b.id }
  unless args.empty?
    indices = args.map { |a| a.to_i }
    brkpts = brkpts.select { |b| indices.member?(b.id) }
    return errmsg('No breakpoints found among list given') if brkpts.empty?
  end
  puts 'Num Enb What'
  brkpts.each { |b| info_breakpoint(b) }
end

def info_catch(*_args)
  return puts('No frame selected.') unless @state.context
  if Byebug.catchpoints && !Byebug.catchpoints.empty?
    Byebug.catchpoints.each do |exception, _hits|
      puts("#{exception}: #{exception.is_a?(Class)}")
    end
  else
    puts 'No exceptions set to be caught.'
  end
end

def info_display(*_args)
  return puts('There are no auto-display expressions now.') unless
    @state.display.find { |d| d[0] }
  puts 'Auto-display expressions now in effect:'
  puts 'Num Enb Expression'
  n = 1
  @state.display.each do |d|
    puts(format('%3d: %s  %s', n, d[0] ? 'y' : 'n', d[1]))
    n += 1
  end
end

def info_file_breakpoints(file)
  breakpoints = LineCache.trace_line_numbers(file)
  return unless breakpoints
  puts "\tbreakpoint line numbers:"
  puts columnize(breakpoints.to_a.sort, Setting[:width])
end

def info_file_lines(file)
  lines = File.foreach(file)
  puts "\t#{lines.count} lines" if lines
end

def info_file_mtime(file)
  stat = File.stat(file)
  puts "\t#{stat.mtime}" if stat
end

def info_file_path(file)
  s = "File #{file}"
  path = File.expand_path(file)
  s = "#{s} - #{path}" if path && path != file
  puts s
end

def info_file_sha1(file)
  puts "\t#{Digest::SHA1.hexdigest(file)}"
end

def info_files(*_args)
  files = SCRIPT_LINES__.keys
  files.uniq.sort.each do |file|
    info_file_path(file)
    info_file_mtime(file)
  end
end

def info_line(*_args)
  puts "Line #{@state.line} of \"#{@state.file}\""
end

def info_program(*_args)
  if @state.context.dead?
    puts 'The program crashed.'
    excpt = Byebug.last_exception
    return puts("Exception: #{excpt.inspect}") if excpt
  end
  puts 'Program stopped. '
  info_stop_reason @state.context.stop_reason
end

def info_stop_reason(stop_reason)
  case stop_reason
  when :step
    puts "It stopped after stepping, next'ing or initial start."
  when :breakpoint
    puts 'It stopped at a breakpoint.'
  when :catchpoint
    puts 'It stopped at a catchpoint.'
  else
    puts "Unknown reason: #{@state.context.stop_reason}"
  end
end

def info_variables(*_args)
  locals = @state.context.frame_locals
  locals[:self] = @state.context.frame_self(@state.frame_pos)
  print_hash(locals)
  obj = bb_eval('self')
  var_list(obj.instance_variables, obj.instance_eval { binding })
  var_class_self
end

def print_hash(vars)
  vars.keys.sort.each do |name|
    begin
      s = "#{name} = #{vars[name].inspect}"
    rescue
      begin
        s = "#{name} = #{vars[name]}"
        rescue
          s = "#{name} = *Error in evaluation*"
      end
    end
    s[Setting[:width] - 3..-1] = '...' if s.size > Setting[:width]
    puts s
  end
end