class Reline::Core

# File lib/reline.rb, line 77
def initialize
  self.output = STDOUT
  @dialog_proc_list = {}
  yield self
  @completion_quote_character = nil
  @bracketed_paste_finished = false
end

# File lib/reline.rb, line 167
def add_dialog_proc(name_sym, p, context = nil)
  raise ArgumentError unless p.respond_to?(:call) or p.nil?
  raise ArgumentError unless name_sym.instance_of?(Symbol)
  @dialog_proc_list[name_sym] = DialogProc.new(p, context)
end

# File lib/reline.rb, line 480
def ambiguous_width
  may_req_ambiguous_char_width unless defined? @ambiguous_width
  @ambiguous_width
end

# File lib/reline.rb, line 152
def auto_indent_proc=(p)
  raise ArgumentError unless p.respond_to?(:call) or p.nil?
  @auto_indent_proc = p
end

# File lib/reline.rb, line 109
def basic_quote_characters=(v)
  @basic_quote_characters = v.encode(Reline::IOGate.encoding)
end

# File lib/reline.rb, line 101
def basic_word_break_characters=(v)
  @basic_word_break_characters = v.encode(Reline::IOGate.encoding)
end

# File lib/reline.rb, line 113
def completer_quote_characters=(v)
  @completer_quote_characters = v.encode(Reline::IOGate.encoding)
end

# File lib/reline.rb, line 105
def completer_word_break_characters=(v)
  @completer_word_break_characters = v.encode(Reline::IOGate.encoding)
end

# File lib/reline.rb, line 89
def completion_append_character=(val)
  if val.nil?
    @completion_append_character = nil
  elsif val.size == 1
    @completion_append_character = val.encode(Reline::IOGate.encoding)
  elsif val.size > 1
    @completion_append_character = val[0].encode(Reline::IOGate.encoding)
  else
    @completion_append_character = nil
  end
end

# File lib/reline.rb, line 129
def completion_case_fold
  @config.completion_ignore_case
end

# File lib/reline.rb, line 125
def completion_case_fold=(v)
  @config.completion_ignore_case = v
end

# File lib/reline.rb, line 137
def completion_proc=(p)
  raise ArgumentError unless p.respond_to?(:call) or p.nil?
  @completion_proc = p
end

# File lib/reline.rb, line 133
def completion_quote_character
  @completion_quote_character
end

# File lib/reline.rb, line 173
def dialog_proc(name_sym)
  @dialog_proc_list[name_sym]
end

# File lib/reline.rb, line 161
def dig_perfect_match_proc=(p)
  raise ArgumentError unless p.respond_to?(:call) or p.nil?
  @dig_perfect_match_proc = p
end

# File lib/reline.rb, line 201
def emacs_editing_mode
  config.editing_mode = :emacs
  nil
end

# File lib/reline.rb, line 210
def emacs_editing_mode?
  config.editing_mode_is?(:emacs)
end

# File lib/reline.rb, line 85
def encoding
  Reline::IOGate.encoding
end

# File lib/reline.rb, line 117
def filename_quote_characters=(v)
  @filename_quote_characters = v.encode(Reline::IOGate.encoding)
end

# File lib/reline.rb, line 214
def get_screen_size
  Reline::IOGate.get_screen_size
end

# File lib/reline.rb, line 177
def input=(val)
  raise TypeError unless val.respond_to?(:getc) or val.nil?
  if val.respond_to?(:getc)
    if defined?(Reline::ANSI) and Reline::IOGate == Reline::ANSI
      Reline::ANSI.input = val
    elsif Reline::IOGate == Reline::GeneralIO
      Reline::GeneralIO.input = val
    end
  end
end

# File lib/reline.rb, line 188
def output=(val)
  raise TypeError unless val.respond_to?(:write) or val.nil?
  @output = val
  if defined?(Reline::ANSI) and Reline::IOGate == Reline::ANSI
    Reline::ANSI.output = val
  end
end

# File lib/reline.rb, line 142
def output_modifier_proc=(p)
  raise ArgumentError unless p.respond_to?(:call) or p.nil?
  @output_modifier_proc = p
end

# File lib/reline.rb, line 157
def pre_input_hook=(p)
  @pre_input_hook = p
end

# File lib/reline.rb, line 147
def prompt_proc=(p)
  raise ArgumentError unless p.respond_to?(:call) or p.nil?
  @prompt_proc = p
end

# File lib/reline.rb, line 283
def readline(prompt = '', add_hist = false)
  inner_readline(prompt, add_hist, false)

  line = line_editor.line.dup
  line.taint if RUBY_VERSION < '2.7'
  if add_hist and line and line.chomp("\n").size > 0
    Reline::HISTORY << line.chomp("\n")
  end

  line_editor.reset_line if line_editor.line.nil?
  line
end

# File lib/reline.rb, line 267
def readmultiline(prompt = '', add_hist = false, &confirm_multiline_termination)
  unless confirm_multiline_termination
    raise ArgumentError.new('#readmultiline needs block to confirm multiline termination')
  end
  inner_readline(prompt, add_hist, true, &confirm_multiline_termination)

  whole_buffer = line_editor.whole_buffer.dup
  whole_buffer.taint if RUBY_VERSION < '2.7'
  if add_hist and whole_buffer and whole_buffer.chomp("\n").size > 0
    Reline::HISTORY << whole_buffer
  end

  line_editor.reset_line if line_editor.whole_buffer.nil?
  whole_buffer
end

# File lib/reline.rb, line 121
def special_prefixes=(v)
  @special_prefixes = v.encode(Reline::IOGate.encoding)
end

# File lib/reline.rb, line 196
def vi_editing_mode
  config.editing_mode = :vi_insert
  nil
end

# File lib/reline.rb, line 206
def vi_editing_mode?
  config.editing_mode_is?(:vi_insert, :vi_command)
end

# File lib/reline.rb, line 296
        def inner_readline(prompt, add_hist, multiline, &confirm_multiline_termination)
  if ENV['RELINE_STDERR_TTY']
    if Reline::IOGate.win?
      $stderr = File.open(ENV['RELINE_STDERR_TTY'], 'a')
    else
      $stderr.reopen(ENV['RELINE_STDERR_TTY'], 'w')
    end
    $stderr.sync = true
    $stderr.puts "Reline is used by #{Process.pid}"
  end
  otio = Reline::IOGate.prep

  may_req_ambiguous_char_width
  line_editor.reset(prompt, encoding: Reline::IOGate.encoding)
  if multiline
    line_editor.multiline_on
    if block_given?
      line_editor.confirm_multiline_termination_proc = confirm_multiline_termination
    end
  else
    line_editor.multiline_off
  end
  line_editor.output = output
  line_editor.completion_proc = completion_proc
  line_editor.completion_append_character = completion_append_character
  line_editor.output_modifier_proc = output_modifier_proc
  line_editor.prompt_proc = prompt_proc
  line_editor.auto_indent_proc = auto_indent_proc
  line_editor.dig_perfect_match_proc = dig_perfect_match_proc
  line_editor.pre_input_hook = pre_input_hook
  @dialog_proc_list.each_pair do |name_sym, d|
    line_editor.add_dialog_proc(name_sym, d.dialog_proc, d.context)
  end

  unless config.test_mode
    config.read
    config.reset_default_key_bindings
    Reline::IOGate.set_default_key_bindings(config)
  end

  line_editor.rerender

  begin
    line_editor.set_signal_handlers
    prev_pasting_state = false
    loop do
      prev_pasting_state = Reline::IOGate.in_pasting?
      read_io(config.keyseq_timeout) { |inputs|
        line_editor.set_pasting_state(Reline::IOGate.in_pasting?)
        inputs.each { |c|
          line_editor.input_key(c)
          line_editor.rerender
        }
        if @bracketed_paste_finished
          line_editor.rerender_all
          @bracketed_paste_finished = false
        end
      }
      if prev_pasting_state == true and not Reline::IOGate.in_pasting? and not line_editor.finished?
        line_editor.set_pasting_state(false)
        prev_pasting_state = false
        line_editor.rerender_all
      end
      break if line_editor.finished?
    end
    Reline::IOGate.move_cursor_column(0)
  rescue Errno::EIO
    # Maybe the I/O has been closed.
  rescue StandardError => e
    line_editor.finalize
    Reline::IOGate.deprep(otio)
    raise e
  rescue Exception
    # Including Interrupt
    line_editor.finalize
    Reline::IOGate.deprep(otio)
    raise
  end

  line_editor.finalize
  Reline::IOGate.deprep(otio)
end

# File lib/reline.rb, line 485
        def may_req_ambiguous_char_width
  @ambiguous_width = 2 if Reline::IOGate == Reline::GeneralIO or !STDOUT.tty?
  return if defined? @ambiguous_width
  Reline::IOGate.move_cursor_column(0)
  begin
    output.write "\u{25bd}"
  rescue Encoding::UndefinedConversionError
    # LANG=C
    @ambiguous_width = 1
  else
    @ambiguous_width = Reline::IOGate.cursor_pos.x
  end
  Reline::IOGate.move_cursor_column(0)
  Reline::IOGate.erase_after_cursor
end

# File lib/reline.rb, line 427
        def read_2nd_character_of_key_sequence(keyseq_timeout, buffer, c, block)
  begin
    succ_c = nil
    Timeout.timeout(keyseq_timeout / 1000.0) {
      succ_c = Reline::IOGate.getc
    }
  rescue Timeout::Error # cancel matching only when first byte
    block.([Reline::Key.new(c, c, false)])
    return :break
  else
    case key_stroke.match_status(buffer.dup.push(succ_c))
    when :unmatched
      if c == "\e".ord
        block.([Reline::Key.new(succ_c, succ_c | 0b10000000, true)])
      else
        block.([Reline::Key.new(c, c, false), Reline::Key.new(succ_c, succ_c, false)])
      end
      return :break
    when :matching
      Reline::IOGate.ungetc(succ_c)
      return :next
    when :matched
      buffer << succ_c
      expanded = key_stroke.expand(buffer).map{ |expanded_c|
        Reline::Key.new(expanded_c, expanded_c, false)
      }
      block.(expanded)
      return :break
    end
  end
end

# File lib/reline.rb, line 459
        def read_escaped_key(keyseq_timeout, c, block)
  begin
    escaped_c = nil
    Timeout.timeout(keyseq_timeout / 1000.0) {
      escaped_c = Reline::IOGate.getc
    }
  rescue Timeout::Error # independent ESC
    block.([Reline::Key.new(c, c, false)])
  else
    if escaped_c.nil?
      block.([Reline::Key.new(c, c, false)])
    elsif escaped_c >= 128 # maybe, first byte of multi byte
      block.([Reline::Key.new(c, c, false), Reline::Key.new(escaped_c, escaped_c, false)])
    elsif escaped_c == "\e".ord # escape twice
      block.([Reline::Key.new(c, c, false), Reline::Key.new(c, c, false)])
    else
      block.([Reline::Key.new(escaped_c, escaped_c | 0b10000000, true)])
    end
  end
end

# File lib/reline.rb, line 388
        def read_io(keyseq_timeout, &block)
  buffer = []
  loop do
    c = Reline::IOGate.getc
    if c == -1
      result = :unmatched
      @bracketed_paste_finished = true
    else
      buffer << c
      result = key_stroke.match_status(buffer)
    end
    case result
    when :matched
      expanded = key_stroke.expand(buffer).map{ |expanded_c|
        Reline::Key.new(expanded_c, expanded_c, false)
      }
      block.(expanded)
      break
    when :matching
      if buffer.size == 1
        case read_2nd_character_of_key_sequence(keyseq_timeout, buffer, c, block)
        when :break then break
        when :next  then next
        end
      end
    when :unmatched
      if buffer.size == 1 and c == "\e".ord
        read_escaped_key(keyseq_timeout, c, block)
      else
        expanded = buffer.map{ |expanded_c|
          Reline::Key.new(expanded_c, expanded_c, false)
        }
        block.(expanded)
      end
      break
    end
  end
end