# Copyright (C) 2010-2011, 2013 Rocky Bernstein <rockyb@rubyforge.net>
# Mock setup for commands.
require 'rubygems'; require 'require_relative'

require_relative '../processor'

# require_relative '../app/core'
require_relative '../app/default'
require_relative '../app/frame'
require_relative '../interface/user'  # user interface (includes I/O)

module MockDebugger
  class MockDebugger
    attr_accessor :trace_filter # Procs/Methods we ignore.

    attr_accessor :frame        # Actually a "Rubinius::Location object
    attr_accessor :core         # access to Debugger::Core instance
    attr_accessor :intf         # The way the outside world interfaces with us.
    attr_reader   :initial_dir  # String. Current directory when program
                                # started. Used in restart program.
    attr_accessor :restart_argv # How to restart us, empty or nil.
                                # Note restart[0] is typically $0.
    attr_reader   :settings     # Hash[:symbol] of things you can configure
    attr_accessor :processor

    # FIXME: move more stuff of here and into Trepan::CmdProcessor
    # These below should go into Trepan::CmdProcessor.
    attr_reader :cmd_argstr, :cmd_name, :vm_locations, :current_frame,
                :debugee_thread, :completion_proc

    def initialize(settings={:start_frame=>1})
      @before_cmdloop_hooks = []
      @settings             = Trepan::DEFAULT_SETTINGS.merge(settings)
      @intf                 = [Trepan::UserInterface.new(nil, nil,
                                                         :history_save=>false)]
      @vm_locations         = Rubinius::VM.backtrace(settings[:start_frame], true)
      @current_frame        = Trepan::Frame.new(self, 0, @vm_locations[0])
      @debugee_thread       = Thread.current
      @frames               = []
      @restart_argv         = Rubinius::OS_STARTUP_DIR

      ## @core                 = Trepan::Core.new(self)
      @trace_filter         = []

      @completion_proc = Proc.new{|str| str}

      # Don't allow user commands in mocks.
      ## @core.processor.settings[:user_cmd_dir] = nil

    end

    def frame(num)
      @frames[num] ||= Trepan::Frame.new(self, num, @vm_locations[num])
    end
  end

  # Common Mock debugger setup
  def setup(name=nil, show_constants=true)
    unless name
      loc = Rubinius::VM.backtrace(1, true)[0]
      name = File.basename(loc.file, '.rb')
    end

    if ARGV.size > 0 && ARGV[0] == 'debug'
      require_relative '../lib/trepanning'
      dbgr = Trepan.new
      dbgr.debugger
    else
      dbgr = MockDebugger.new(:start_frame=>2)
    end

    cmdproc = Trepan::CmdProcessor.new(dbgr)
    cmdproc.frame = dbgr.frame(0)
    dbgr.processor = cmdproc

    cmdproc.load_cmds_initialize
    cmds = cmdproc.commands
    cmd  = cmds[name]
    cmd.proc.frame_setup
    cmd.proc.event = 'debugger-call'
    show_special_class_constants(cmd) if show_constants

    def cmd.confirm(prompt, default)
      true
    end
    def cmd.msg_nocr(message, opts={})
      print message
    end
    def cmd.section(message, opts={})
      puts "Section: #{message}"
    end

    return dbgr, cmd
  end
  module_function :setup

  def sub_setup(sub_class, run=true)
    sub_name = sub_class.const_get('PREFIX')
    dbgr, cmd = setup(sub_name[0], false)
    sub_cmd = sub_class.new(cmd)
    sub_cmd.summary_help(sub_cmd.name)
    puts
    sub_cmd.run([cmd.name]) if run
    return sub_cmd
  end
  module_function :sub_setup

  def subsub_setup(sub_class, subsub_class, run=true)
    subsub_name = subsub_class.const_get('PREFIX')
    dbgr, cmd = setup(subsub_name[0], false)
    sub_cmd = sub_class.new(dbgr.processor, cmd)
    subsub_cmd = subsub_class.new(cmd.proc, sub_cmd, subsub_name.join(''))
    subsub_cmd.run([subsub_cmd.name]) if run
    return subsub_cmd
  end
  module_function :subsub_setup

  def show_special_class_constants(cmd)
    puts 'ALIASES: %s' % [cmd.proc.get_class_aliases(cmd.class).inspect]
    %w(CATEGORY MIN_ARGS MAX_ARGS
       NAME NEED_STACK SHORT_HELP).each do |name|
      puts '%s: %s' % [name, cmd.class.const_get(name).inspect]
    end
    puts '-' * 30
    puts cmd.class.const_get('HELP')
    puts '=' * 30
  end
  module_function :show_special_class_constants

end

if __FILE__ == $0
  dbgr = MockDebugger::MockDebugger.new
  p dbgr.settings
  puts '=' * 10
  # p dbgr.core.processor.settings
end