class Byebug::Command

def commands
  @commands ||= []
end

def confirm(msg)
  @state.confirm(msg) == 'y'
end

def debug_eval(str, b = get_binding)
  begin
    val = eval(str, b)
  rescue StandardError, ScriptError => e
    if Command.settings[:stack_trace_on_error]
      at = eval("caller(1)", b)
      print "%s:%s\n", at.shift, e.to_s.sub(/\(eval\):1:(in `.*?':)?/, '')
      for i in at
        print "\tfrom %s\n", i
      end
    else
      print "#{e.class} Exception: #{e.message}\n"
    end
    throw :debug_error
  end
end

def debug_silent_eval(str)
  begin
    eval(str, get_binding)
  rescue StandardError, ScriptError
    nil
  end
end

def find(subcmds, param)
  param.downcase!
  for try_subcmd in subcmds do
    if (param.size >= try_subcmd.min) and
        (try_subcmd.name[0..param.size-1] == param)
      return try_subcmd
    end
  end
  return nil
end

def get_binding
  @state.context.frame_binding(@state.frame_pos)
end

def get_context(thnum)
  Byebug.contexts.find{|c| c.thnum == thnum}
end

def inherited(klass)
  DEF_OPTIONS.each do |o, v|
    klass.options[o] = v if klass.options[o].nil?
  end
  commands << klass
end

def initialize(state)
  @state = state
end

def load_commands
  Dir[File.join(Byebug.const_get(:BYEBUG_DIR), 'commands', '*')].each {
    |file| require file if file =~ /\.rb$/ }
  Byebug.constants.grep(/Functions$/).map {
    |name| Byebug.const_get(name) }.each { |mod| include mod }
end

def match(input)
  @match = regexp.match(input)
end

def method_missing(meth, *args, &block)
  if meth.to_s =~ /^(.+?)=$/
    @options[$1.intern] = args.first
  else
    if @options.has_key?(meth)
      @options[meth]
    else
      super
    end
  end
end

def options
  @options ||= {}
end

def print_subcmds(subcmds)
  cmd_name = self.class.name[/Byebug::(.*)Command/, 1].downcase
  errmsg "\"#{cmd_name}\" must be followed by the name of a subcommand.\n"
  print "List of \"#{cmd_name}\" subcommands:\n"
  for subcmd in subcmds do
    print "#{cmd_name} #{subcmd.name} -- #{subcmd.short_help}\n"
  end
end

def register_setting_get(name, &block)
  settings_map[name] ||= {}
  settings_map[name][:getter] = block
end

def register_setting_set(name, &block)
  settings_map[name] ||= {}
  settings_map[name][:setter] = block
end

def register_setting_var(name, default)
  var_name = "@@#{name}"
  class_variable_set(var_name, default)
  register_setting_get(name) { class_variable_get(var_name) }
  register_setting_set(name) { |value| class_variable_set(var_name, value) }
end

def settings
  unless defined? @settings and @settings
    @settings = Object.new
    map = settings_map
    c = class << @settings; self end
    if c.respond_to?(:funcall)
      c.funcall(:define_method, :[]) do |name|
        raise "No such setting #{name}" unless map.has_key?(name)
        map[name][:getter].call
      end
    else
      c.send(:define_method, :[]) do |name|
        raise "No such setting #{name}" unless map.has_key?(name)
        map[name][:getter].call
      end
    end
    c = class << @settings; self end
    if c.respond_to?(:funcall)
      c.funcall(:define_method, :[]=) do |name, value|
        raise "No such setting #{name}" unless map.has_key?(name)
        map[name][:setter].call(value)
      end
    else
      c.send(:define_method, :[]=) do |name, value|
        raise "No such setting #{name}" unless map.has_key?(name)
        map[name][:setter].call(value)
      end
    end
  end
  @settings
end

def settings_map
  @@settings_map ||= {}
end