reline 0.1.3

data/lib/reline/ansi.rb

@@ -0,0 +1,177 @@
+require 'io/console'
+
+class Reline::ANSI
+  def self.encoding
+    Encoding.default_external
+  end
+
+  def self.win?
+    false
+  end
+
+  RAW_KEYSTROKE_CONFIG = {
+    # Console (80x25)
+    [27, 91, 49, 126] => :ed_move_to_beg, # Home
+    [27, 91, 52, 126] => :ed_move_to_end, # End
+    [27, 91, 51, 126] => :key_delete,     # Del
+    [27, 91, 65] => :ed_prev_history,     # ↑
+    [27, 91, 66] => :ed_next_history,     # ↓
+    [27, 91, 67] => :ed_next_char,        # →
+    [27, 91, 68] => :ed_prev_char,        # ←
+
+    # KDE
+    [27, 91, 72] => :ed_move_to_beg,      # Home
+    [27, 91, 70] => :ed_move_to_end,      # End
+    # Del is 0x08
+    [27, 71, 65] => :ed_prev_history,     # ↑
+    [27, 71, 66] => :ed_next_history,     # ↓
+    [27, 71, 67] => :ed_next_char,        # →
+    [27, 71, 68] => :ed_prev_char,        # ←
+
+    # GNOME
+    [27, 79, 72] => :ed_move_to_beg,      # Home
+    [27, 79, 70] => :ed_move_to_end,      # End
+    # Del is 0x08
+    # Arrow keys are the same of KDE
+
+    # others
+    [27, 32] => :em_set_mark,             # M-<space>
+    [24, 24] => :em_exchange_mark,        # C-x C-x TODO also add Windows
+    [27, 91, 49, 59, 53, 67] => :em_next_word, # Ctrl+→
+    [27, 91, 49, 59, 53, 68] => :ed_prev_word, # Ctrl+←
+
+    [27, 79, 65] => :ed_prev_history,     # ↑
+    [27, 79, 66] => :ed_next_history,     # ↓
+    [27, 79, 67] => :ed_next_char,        # →
+    [27, 79, 68] => :ed_prev_char,        # ←
+  }
+
+  @@input = STDIN
+  def self.input=(val)
+    @@input = val
+  end
+
+  @@output = STDOUT
+  def self.output=(val)
+    @@output = val
+  end
+
+  @@buf = []
+  def self.getc
+    unless @@buf.empty?
+      return @@buf.shift
+    end
+    c = @@input.raw(intr: true, &:getbyte)
+    (c == 0x16 && @@input.raw(min: 0, tim: 0, &:getbyte)) || c
+  end
+
+  def self.ungetc(c)
+    @@buf.unshift(c)
+  end
+
+  def self.retrieve_keybuffer
+    begin
+      result = select([@@input], [], [], 0.001)
+      return if result.nil?
+      str = @@input.read_nonblock(1024)
+      str.bytes.each do |c|
+        @@buf.push(c)
+      end
+    rescue EOFError
+    end
+  end
+
+  def self.get_screen_size
+    s = @@input.winsize
+    return s if s[0] > 0 && s[1] > 0
+    s = [ENV["LINES"].to_i, ENV["COLUMNS"].to_i]
+    return s if s[0] > 0 && s[1] > 0
+    [24, 80]
+  rescue Errno::ENOTTY
+    [24, 80]
+  end
+
+  def self.set_screen_size(rows, columns)
+    @@input.winsize = [rows, columns]
+    self
+  rescue Errno::ENOTTY
+    self
+  end
+
+  def self.cursor_pos
+    begin
+      res = ''
+      m = nil
+      @@input.raw do |stdin|
+        @@output << "\e[6n"
+        @@output.flush
+        while (c = stdin.getc) != 'R'
+          res << c if c
+        end
+        m = res.match(/\e\[(?<row>\d+);(?<column>\d+)/)
+        (m.pre_match + m.post_match).chars.reverse_each do |ch|
+          stdin.ungetc ch
+        end
+      end
+      column = m[:column].to_i - 1
+      row = m[:row].to_i - 1
+    rescue Errno::ENOTTY
+      buf = @@output.pread(@@output.pos, 0)
+      row = buf.count("\n")
+      column = buf.rindex("\n") ? (buf.size - buf.rindex("\n")) - 1 : 0
+    end
+    Reline::CursorPos.new(column, row)
+  end
+
+  def self.move_cursor_column(x)
+    @@output.write "\e[#{x + 1}G"
+  end
+
+  def self.move_cursor_up(x)
+    if x > 0
+      @@output.write "\e[#{x}A" if x > 0
+    elsif x < 0
+      move_cursor_down(-x)
+    end
+  end
+
+  def self.move_cursor_down(x)
+    if x > 0
+      @@output.write "\e[#{x}B" if x > 0
+    elsif x < 0
+      move_cursor_up(-x)
+    end
+  end
+
+  def self.erase_after_cursor
+    @@output.write "\e[K"
+  end
+
+  def self.scroll_down(x)
+    return if x.zero?
+    @@output.write "\e[#{x}S"
+  end
+
+  def self.clear_screen
+    @@output.write "\e[2J"
+    @@output.write "\e[1;1H"
+  end
+
+  @@old_winch_handler = nil
+  def self.set_winch_handler(&handler)
+    @@old_winch_handler = Signal.trap('WINCH', &handler)
+  end
+
+  def self.prep
+    retrieve_keybuffer
+    int_handle = Signal.trap('INT', 'IGNORE')
+    Signal.trap('INT', int_handle)
+    nil
+  end
+
+  def self.deprep(otio)
+    int_handle = Signal.trap('INT', 'IGNORE')
+    Signal.trap('INT', int_handle)
+    Signal.trap('WINCH', @@old_winch_handler) if @@old_winch_handler
+  end
+end

data/lib/reline/config.rb

@@ -0,0 +1,288 @@
+require 'pathname'
+
+class Reline::Config
+  attr_reader :test_mode
+
+  DEFAULT_PATH = '~/.inputrc'
+
+  KEYSEQ_PATTERN = /\\(?:C|Control)-[A-Za-z_]|\\(?:M|Meta)-[0-9A-Za-z_]|\\(?:C|Control)-(?:M|Meta)-[A-Za-z_]|\\(?:M|Meta)-(?:C|Control)-[A-Za-z_]|\\e|\\[\\\"\'abdfnrtv]|\\\d{1,3}|\\x\h{1,2}|./
+
+  class InvalidInputrc < RuntimeError
+    attr_accessor :file, :lineno
+  end
+
+  VARIABLE_NAMES = %w{
+    bind-tty-special-chars
+    blink-matching-paren
+    byte-oriented
+    completion-ignore-case
+    convert-meta
+    disable-completion
+    enable-keypad
+    expand-tilde
+    history-preserve-point
+    history-size
+    horizontal-scroll-mode
+    input-meta
+    keyseq-timeout
+    mark-directories
+    mark-modified-lines
+    mark-symlinked-directories
+    match-hidden-files
+    meta-flag
+    output-meta
+    page-completions
+    prefer-visible-bell
+    print-completions-horizontally
+    show-all-if-ambiguous
+    show-all-if-unmodified
+    visible-stats
+  }
+  VARIABLE_NAME_SYMBOLS = VARIABLE_NAMES.map { |v| :"#{v.tr(?-, ?_)}" }
+  VARIABLE_NAME_SYMBOLS.each do |v|
+    attr_accessor v
+  end
+
+  def initialize
+    @additional_key_bindings = {} # from inputrc
+    @default_key_bindings = {} # environment-dependent
+    @skip_section = nil
+    @if_stack = nil
+    @editing_mode_label = :emacs
+    @keymap_label = :emacs
+    @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
+    @history_size = 500
+    @keyseq_timeout = 500
+    @test_mode = false
+  end
+
+  def reset
+    if editing_mode_is?(:vi_command)
+      @editing_mode_label = :vi_insert
+    end
+    @additional_key_bindings = {}
+    @default_key_bindings = {}
+  end
+
+  def editing_mode
+    @key_actors[@editing_mode_label]
+  end
+
+  def editing_mode=(val)
+    @editing_mode_label = val
+  end
+
+  def editing_mode_is?(*val)
+    (val.respond_to?(:any?) ? val : [val]).any?(@editing_mode_label)
+  end
+
+  def keymap
+    @key_actors[@keymap_label]
+  end
+
+  def read(file = nil)
+    file ||= File.expand_path(ENV['INPUTRC'] || DEFAULT_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
+
+  def key_bindings
+    # override @default_key_bindings with @additional_key_bindings
+    @default_key_bindings.merge(@additional_key_bindings)
+  end
+
+  def add_default_key_binding(keystroke, target)
+    @default_key_bindings[keystroke] = target
+  end
+
+  def reset_default_key_bindings
+    @default_key_bindings = {}
+  end
+
+  def read_lines(lines, file = nil)
+    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.downcase
+        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[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
+
+  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
+
+  def bind_variable(name, value)
+    case name
+    when 'history-size'
+      @history_size = value.to_i
+    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 = instance_eval(value)
+    when 'editing-mode'
+      case value
+      when 'emacs'
+        @editing_mode_label = :emacs
+        @keymap_label = :emacs
+      when 'vi'
+        @editing_mode_label = :vi_insert
+        @keymap_label = :vi_insert
+      end
+    when 'keymap'
+      case value
+      when 'emacs', 'emacs-standard', 'emacs-meta', 'emacs-ctlx'
+        @keymap_label = :emacs
+      when 'vi', 'vi-move', 'vi-command'
+        @keymap_label = :vi_command
+      when 'vi-insert'
+        @keymap_label = :vi_insert
+      end
+    when 'keyseq-timeout'
+      @keyseq_timeout = value.to_i
+    when *VARIABLE_NAMES then
+      variable_name = :"@#{name.tr(?-, ?_)}"
+      instance_variable_set(variable_name, value.nil? || value == '1' || value == 'on')
+    end
+  end
+
+  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
+
+  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
+
+  def parse_keyseq(str)
+    ret = []
+    str.scan(KEYSEQ_PATTERN) do
+      ret << key_notation_to_code($&)
+    end
+    ret
+  end
+end