class Reline::Config

# File reline/config.rb, line 54
def initialize
  @additional_key_bindings = {} # from inputrc
  @additional_key_bindings[:emacs] = {}
  @additional_key_bindings[:vi_insert] = {}
  @additional_key_bindings[:vi_command] = {}
  @oneshot_key_bindings = {}
  @skip_section = nil
  @if_stack = nil
  @editing_mode_label = :emacs
  @keymap_label = :emacs
  @keymap_prefix = []
  @key_actors = {}
  @key_actors[:emacs] = Reline::KeyActor::Emacs.new
  @key_actors[:vi_insert] = Reline::KeyActor::ViInsert.new
  @key_actors[:vi_command] = Reline::KeyActor::ViCommand.new
  @vi_cmd_mode_string = '(cmd)'
  @vi_ins_mode_string = '(ins)'
  @emacs_mode_string = '@'
  # https://tiswww.case.edu/php/chet/readline/readline.html#IDX25
  @history_size = -1 # unlimited
  @keyseq_timeout = 500
  @test_mode = false
  @autocompletion = false
  @convert_meta = true if seven_bit_encoding?(Reline::IOGate.encoding)
  @dialog_default_bg_color_sequence = nil
  @dialog_highlight_bg_color_sequence = nil
  @dialog_default_fg_color_sequence = nil
  @dialog_highlight_fg_color_sequence = nil
end

# File reline/config.rb, line 239
def add_default_key_binding(keystroke, target)
  @key_actors[@keymap_label].default_key_bindings[keystroke] = target
end

# File reline/config.rb, line 235
def add_default_key_binding_by_keymap(keymap, keystroke, target)
  @key_actors[keymap].default_key_bindings[keystroke] = target
end

# File reline/config.rb, line 227
def add_oneshot_key_binding(keystroke, target)
  @oneshot_key_bindings[keystroke] = target
end

# File reline/config.rb, line 417
def bind_key(key, func_name)
  if key =~ /\A"(.*)"\z/
    keyseq = parse_keyseq($1)
  else
    keyseq = nil
  end
  if func_name =~ /"(.*)"/
    func = parse_keyseq($1)
  else
    func = func_name.tr(?-, ?_).to_sym # It must be macro.
  end
  [keyseq, func]
end

# File reline/config.rb, line 326
def bind_variable(name, value)
  case name
  when 'history-size'
    begin
      @history_size = Integer(value)
    rescue ArgumentError
      @history_size = 500
    end
  when 'bell-style'
    @bell_style =
      case value
      when 'none', 'off'
        :none
      when 'audible', 'on'
        :audible
      when 'visible'
        :visible
      else
        :audible
      end
  when 'comment-begin'
    @comment_begin = value.dup
  when 'completion-query-items'
    @completion_query_items = value.to_i
  when 'isearch-terminators'
    @isearch_terminators = retrieve_string(value)
  when 'editing-mode'
    case value
    when 'emacs'
      @editing_mode_label = :emacs
      @keymap_label = :emacs
      @keymap_prefix = []
    when 'vi'
      @editing_mode_label = :vi_insert
      @keymap_label = :vi_insert
      @keymap_prefix = []
    end
  when 'keymap'
    case value
    when 'emacs', 'emacs-standard'
      @keymap_label = :emacs
      @keymap_prefix = []
    when 'emacs-ctlx'
      @keymap_label = :emacs
      @keymap_prefix = [?\C-x.ord]
    when 'emacs-meta'
      @keymap_label = :emacs
      @keymap_prefix = [?\e.ord]
    when 'vi', 'vi-move', 'vi-command'
      @keymap_label = :vi_command
      @keymap_prefix = []
    when 'vi-insert'
      @keymap_label = :vi_insert
      @keymap_prefix = []
    end
  when 'keyseq-timeout'
    @keyseq_timeout = value.to_i
  when 'show-mode-in-prompt'
    case value
    when 'off'
      @show_mode_in_prompt = false
    when 'on'
      @show_mode_in_prompt = true
    else
      @show_mode_in_prompt = false
    end
  when 'vi-cmd-mode-string'
    @vi_cmd_mode_string = retrieve_string(value)
  when 'vi-ins-mode-string'
    @vi_ins_mode_string = retrieve_string(value)
  when 'emacs-mode-string'
    @emacs_mode_string = retrieve_string(value)
  when 'dialog-default-bg-color'
    self.dialog_default_bg_color = value
  when 'dialog-default-fg-color'
    self.dialog_default_fg_color = value
  when 'dialog-highlight-bg-color'
    self.dialog_highlight_bg_color = value
  when 'dialog-highlight-fg-color'
    self.dialog_highlight_fg_color = value
  when *VARIABLE_NAMES then
    variable_name = :"@#{name.tr(?-, ?_)}"
    instance_variable_set(variable_name, value.nil? || value == '1' || value == 'on')
  end
end

# File reline/config.rb, line 123
def dialog_default_bg_color
  dialog_code_to_color(:bg, @dialog_default_bg_color_sequence)
end

# File reline/config.rb, line 107
def dialog_default_bg_color=(color)
  @dialog_default_bg_color_sequence = dialog_color_to_code(:bg, color)
end

# File reline/config.rb, line 127
def dialog_default_fg_color
  dialog_code_to_color(:fg, @dialog_default_fg_color_sequence)
end

# File reline/config.rb, line 111
def dialog_default_fg_color=(color)
  @dialog_default_fg_color_sequence = dialog_color_to_code(:fg, color)
end

# File reline/config.rb, line 131
def dialog_highlight_bg_color
  dialog_code_to_color(:bg, @dialog_highlight_bg_color_sequence)
end

# File reline/config.rb, line 115
def dialog_highlight_bg_color=(color)
  @dialog_highlight_bg_color_sequence = dialog_color_to_code(:bg, color)
end

# File reline/config.rb, line 135
def dialog_highlight_fg_color
  dialog_code_to_color(:fg, @dialog_highlight_fg_color_sequence)
end

# File reline/config.rb, line 119
def dialog_highlight_fg_color=(color)
  @dialog_highlight_fg_color_sequence = dialog_color_to_code(:fg, color)
end

# File reline/config.rb, line 95
def editing_mode
  @key_actors[@editing_mode_label]
end

# File reline/config.rb, line 99
def editing_mode=(val)
  @editing_mode_label = val
end

# File reline/config.rb, line 103
def editing_mode_is?(*val)
  (val.respond_to?(:any?) ? val : [val]).any?(@editing_mode_label)
end

# File reline/config.rb, line 296
def handle_directive(directive, file, no)
  directive, args = directive.split(' ')
  case directive
  when 'if'
    condition = false
    case args
    when 'mode'
    when 'term'
    when 'version'
    else # application name
      condition = true if args == 'Ruby'
      condition = true if args == 'Reline'
    end
    @if_stack << [file, no, @skip_section]
    @skip_section = !condition
  when 'else'
    if @if_stack.empty?
      raise InvalidInputrc, "#{file}:#{no}: unmatched else"
    end
    @skip_section = !@skip_section
  when 'endif'
    if @if_stack.empty?
      raise InvalidInputrc, "#{file}:#{no}: unmatched endif"
    end
    @skip_section = @if_stack.pop
  when 'include'
    read(args)
  end
end

# File reline/config.rb, line 170
def inputrc_path
  case ENV['INPUTRC']
  when nil, ''
  else
    return File.expand_path(ENV['INPUTRC'])
  end

  # In the XDG Specification, if ~/.config/readline/inputrc exists, then
  # ~/.inputrc should not be read, but for compatibility with GNU Readline,
  # if ~/.inputrc exists, then it is given priority.
  home_rc_path = File.expand_path('~/.inputrc')
  return home_rc_path if File.exist?(home_rc_path)

  case path = ENV['XDG_CONFIG_HOME']
  when nil, ''
  else
    path = File.join(path, 'readline/inputrc')
    return path if File.exist?(path) and path == File.expand_path(path)
  end

  path = File.expand_path('~/.config/readline/inputrc')
  return path if File.exist?(path)

  return home_rc_path
end

# File reline/config.rb, line 219
def key_bindings
  # The key bindings for each editing mode will be overwritten by the user-defined ones.
  kb = @key_actors[@editing_mode_label].default_key_bindings.dup
  kb.merge!(@additional_key_bindings[@editing_mode_label])
  kb.merge!(@oneshot_key_bindings)
  kb
end

# File reline/config.rb, line 431
def key_notation_to_code(notation)
  case notation
  when /\\(?:C|Control)-([A-Za-z_])/
    (1 + $1.downcase.ord - ?a.ord)
  when /\\(?:M|Meta)-([0-9A-Za-z_])/
    modified_key = $1
    case $1
    when /[0-9]/
      ?\M-0.bytes.first + (modified_key.ord - ?0.ord)
    when /[A-Z]/
      ?\M-A.bytes.first + (modified_key.ord - ?A.ord)
    when /[a-z]/
      ?\M-a.bytes.first + (modified_key.ord - ?a.ord)
    end
  when /\\(?:C|Control)-(?:M|Meta)-[A-Za-z_]/, /\\(?:M|Meta)-(?:C|Control)-[A-Za-z_]/
  # 129 M-^A
  when /\\(\d{1,3})/ then $1.to_i(8) # octal
  when /\\x(\h{1,2})/ then $1.to_i(16) # hexadecimal
  when "\\e" then ?\e.ord
  when "\\\\" then ?\\.ord
  when "\\\"" then ?".ord
  when "\\'" then ?'.ord
  when "\\a" then ?\a.ord
  when "\\b" then ?\b.ord
  when "\\d" then ?\d.ord
  when "\\f" then ?\f.ord
  when "\\n" then ?\n.ord
  when "\\r" then ?\r.ord
  when "\\t" then ?\t.ord
  when "\\v" then ?\v.ord
  else notation.ord
  end
end

# File reline/config.rb, line 166
def keymap
  @key_actors[@keymap_label]
end

# File reline/config.rb, line 465
def parse_keyseq(str)
  ret = []
  str.scan(KEYSEQ_PATTERN) do
    ret << key_notation_to_code($&)
  end
  ret
end

# File reline/config.rb, line 200
def read(file = nil)
  file ||= default_inputrc_path
  begin
    if file.respond_to?(:readlines)
      lines = file.readlines
    else
      lines = File.readlines(file)
    end
  rescue Errno::ENOENT
    return nil
  end

  read_lines(lines, file)
  self
rescue InvalidInputrc => e
  warn e.message
  nil
end

# File reline/config.rb, line 249
def read_lines(lines, file = nil)
  if not lines.empty? and lines.first.encoding != Reline.encoding_system_needs
    begin
      lines = lines.map do |l|
        l.encode(Reline.encoding_system_needs)
      rescue Encoding::UndefinedConversionError
        mes = "The inputrc encoded in #{lines.first.encoding.name} can't be converted to the locale #{Reline.encoding_system_needs.name}."
        raise Reline::ConfigEncodingConversionError.new(mes)
      end
    end
  end
  conditions = [@skip_section, @if_stack]
  @skip_section = nil
  @if_stack = []

  lines.each_with_index do |line, no|
    next if line.match(/\A\s*#/)

    no += 1

    line = line.chomp.lstrip
    if line.start_with?('$')
      handle_directive(line[1..-1], file, no)
      next
    end

    next if @skip_section

    case line
    when /^set +([^ ]+) +([^ ]+)/i
      var, value = $1.downcase, $2
      bind_variable(var, value)
      next
    when /\s*("#{KEYSEQ_PATTERN}+")\s*:\s*(.*)\s*$/o
      key, func_name = $1, $2
      keystroke, func = bind_key(key, func_name)
      next unless keystroke
      @additional_key_bindings[@keymap_label][@keymap_prefix + keystroke] = func
    end
  end
  unless @if_stack.empty?
    raise InvalidInputrc, "#{file}:#{@if_stack.last[1]}: unclosed if"
  end
ensure
  @skip_section, @if_stack = conditions
end

# File reline/config.rb, line 84
def reset
  if editing_mode_is?(:vi_command)
    @editing_mode_label = :vi_insert
  end
  @additional_key_bindings.keys.each do |key|
    @additional_key_bindings[key].clear
  end
  @oneshot_key_bindings.clear
  reset_default_key_bindings
end

# File reline/config.rb, line 243
def reset_default_key_bindings
  @key_actors.values.each do |ka|
    ka.reset_default_key_bindings
  end
end

# File reline/config.rb, line 231
def reset_oneshot_key_bindings
  @oneshot_key_bindings.clear
end

# File reline/config.rb, line 412
def retrieve_string(str)
  str = $1 if str =~ /\A"(.*)"\z/
  parse_keyseq(str).map { |c| c.chr(Reline.encoding_system_needs) }.join
end