reline 0.1.5 → 0.3.1

data/lib/reline/sibori.rb

@@ -0,0 +1,170 @@
+require 'reline/unicode'
+
+=begin
+
+  \       |
+   \      | <--- whipped cream
+    \     |
+     \    |
+      \-~~|
+       \  | <--- shibori kutigane (piping nozzle in Japanese)
+        \Ml
+         (\    __ __
+         ( \--(  )  )
+          (__(__)__)  <--- compressed whipped cream
+=end
+
+class Sibori
+  attr_writer :output
+
+  def initialize(width, height, cursor_pos)
+    @width = width
+    @height = height
+    @cursor_pos = cursor_pos
+    @screen = [String.new]
+    @line_index = 0
+    @byte_pointer_in_line = 0
+    @cleared = false
+    clone_screen
+  end
+
+  def clone_screen
+    @prev_screen = @screen.map { |line|
+      line.dup
+    }
+    @prev_cursor_pos = @cursor_pos.dup
+    @prev_line_index = @line_index
+  end
+
+  def print(str)
+    #$stderr.puts "print #{str.inspect}"
+    line = @screen[@line_index]
+    before = line.byteslice(0, @byte_pointer_in_line)
+    str_width = Reline::Unicode.calculate_width(str, true)
+    after_cursor = line.byteslice(@byte_pointer_in_line..-1)
+    after_cursor_width = Reline::Unicode.calculate_width(after_cursor, true)
+    rest = ''
+    if after_cursor_width > str_width
+      rest_byte_pointer = @byte_pointer_in_line + width_to_bytesize(after_cursor, str_width)
+      rest = line.byteslice(rest_byte_pointer..-1)
+    end
+    @screen[@line_index] = before + str + rest
+    @byte_pointer_in_line += str.bytesize
+    @cursor_pos.x += Reline::Unicode.calculate_width(str, true)
+  end
+
+  def move_cursor_column(col)
+    #$stderr.puts "move_cursor_column(#{col})"
+    @byte_pointer_in_line = width_to_bytesize(@screen[@line_index], col)
+    @cursor_pos.x = col
+  end
+
+  def move_cursor_up(val)
+    #$stderr.puts "move_cursor_up(#{val})"
+    if @line_index.positive?
+      @line_index -= val
+      @byte_pointer_in_line = width_to_bytesize(@screen[@line_index], @cursor_pos.x)
+      @cursor_pos.y -= val
+    end
+  end
+
+  def move_cursor_down(val)
+    #$stderr.puts "move_cursor_down(#{val})"
+    if @line_index < @height - 1
+      #$stderr.puts "@line_index #{@line_index}  @screen.size #{@screen.size}  @height #{@height}"
+      #$stderr.puts @screen.inspect
+      @line_index += val
+      @screen[@line_index] = String.new if @line_index == @screen.size
+      @byte_pointer_in_line = width_to_bytesize(@screen[@line_index], @cursor_pos.x)
+      @cursor_pos.y += val
+    end
+  end
+
+  def scroll_down(val)
+    #$stderr.puts "scroll_down(#{val})"
+    if val >= @height
+      clear_screen
+      @line_index = @screen.size - 1
+      return
+    end
+    @screen.size.times do |n|
+      if n < @screen.size - val
+        #$stderr.puts "A @screen[#{val} + #{n}] (#{@screen[val + n].inspect}) to @screen[#{n}]"
+        @screen[n] = @screen[val + n]
+      else
+        #$stderr.puts "B String.new to @screen[#{n}]"
+        @screen[n] = String.new
+      end
+    end
+    @line_index += val
+  end
+
+  def erase_after_cursor
+    #$stderr.puts "erase_after_cursor"
+    @screen[@line_index] = @screen[@line_index].byteslice(0, @byte_pointer_in_line)
+  end
+
+  def clear_screen
+    #$stderr.puts "clear_screen"
+    @screen = [String.new]
+    @line_index = 0
+    @byte_pointer_in_line = 0
+    @cursor_pos.x = @cursor_pos.y = 0
+    @cleared = true
+    Reline::IOGate.clear_screen
+  end
+
+  private def width_to_bytesize(str, width)
+    lines, _ = Reline::Unicode.split_by_width(str, width)
+    lines.first.bytesize
+  end
+
+  def render
+    #$stderr.puts ?* * 100
+    Reline::IOGate.move_cursor_up(@prev_line_index) if @prev_line_index.positive?
+    #$stderr.puts "! move_cursor_up(#{@prev_line_index})" if @prev_line_index.positive?
+    #$stderr.puts "@prev_line_index #{@prev_line_index}  @line_index #{@line_index}"
+    if @screen.size > @prev_screen.size
+    #$stderr.puts ?a * 100
+      down = @screen.size - @prev_screen.size
+      #$stderr.puts "#{@prev_cursor_pos.y} #{down} #{@height}"
+      if @prev_cursor_pos.y + down > (@height - 1)
+    #$stderr.puts ?b * 100
+        scroll = (@prev_cursor_pos.y + down) - (@height - 1)
+        Reline::IOGate.scroll_down(scroll)
+        #$stderr.puts "! scroll_down(#{scroll})"
+    #$stderr.puts "down #{down}"
+        Reline::IOGate.move_cursor_up(@screen.size - 1 - scroll)
+        #$stderr.puts "! move_cursor_up(#{@screen.size - 1})"
+      else
+    #$stderr.puts ?c * 100
+      end
+    end
+    @screen.size.times do |n|
+      Reline::IOGate.move_cursor_column(0)
+      #$stderr.puts "! move_cursor_column(0)"
+      @output.write @screen[n]
+      #$stderr.puts "! print #{@screen[n].inspect}"
+      Reline::IOGate.erase_after_cursor
+      #$stderr.puts "! erase_after_cursor"
+      Reline::IOGate.move_cursor_down(1) if n != (@screen.size - 1)
+      #$stderr.puts "! move_cursor_down(1)" if n != (@screen.size - 1)
+    end
+    up = @screen.size - 1 - @line_index
+    Reline::IOGate.move_cursor_up(up) if up.positive?
+    #$stderr.puts "! move_cursor_up(#{up})" if up.positive?
+    column = Reline::Unicode.calculate_width(@screen[@line_index].byteslice(0, @byte_pointer_in_line), true)
+    Reline::IOGate.move_cursor_column(column)
+    #$stderr.puts "! move_cursor_column(#{column}) #{@byte_pointer_in_line}"
+    clone_screen
+    #$stderr.puts ?- * 10
+  end
+
+  def prep
+    Reline::IOGate.prep
+  end
+
+  def deprep
+    Reline::IOGate.deprep
+  end
+end

data/lib/reline/terminfo.rb

@@ -0,0 +1,171 @@
+begin
+  require 'fiddle'
+  require 'fiddle/import'
+rescue LoadError
+  module Reline::Terminfo
+    def self.curses_dl
+      false
+    end
+  end
+end
+
+module Reline::Terminfo
+  extend Fiddle::Importer
+
+  class TerminfoError < StandardError; end
+
+  def self.curses_dl_files
+    case RUBY_PLATFORM
+    when /mingw/, /mswin/
+      # aren't supported
+      []
+    when /cygwin/
+      %w[cygncursesw-10.dll cygncurses-10.dll]
+    when /darwin/
+      %w[libncursesw.dylib libcursesw.dylib libncurses.dylib libcurses.dylib]
+    else
+      %w[libncursesw.so libcursesw.so libncurses.so libcurses.so]
+    end
+  end
+
+  @curses_dl = false
+  def self.curses_dl
+    return @curses_dl unless @curses_dl == false
+    if RUBY_VERSION >= '3.0.0'
+      # Gem module isn't defined in test-all of the Ruby repository, and
+      # Fiddle in Ruby 3.0.0 or later supports Fiddle::TYPE_VARIADIC.
+      fiddle_supports_variadic = true
+    elsif Fiddle.const_defined?(:VERSION) and Gem::Version.create(Fiddle::VERSION) >= Gem::Version.create('1.0.1')
+      # Fiddle::TYPE_VARIADIC is supported from Fiddle 1.0.1.
+      fiddle_supports_variadic = true
+    else
+      fiddle_supports_variadic = false
+    end
+    if fiddle_supports_variadic and not Fiddle.const_defined?(:TYPE_VARIADIC)
+      # If the libffi version is not 3.0.5 or higher, there isn't TYPE_VARIADIC.
+      fiddle_supports_variadic = false
+    end
+    if fiddle_supports_variadic
+      curses_dl_files.each do |curses_name|
+        result = Fiddle::Handle.new(curses_name)
+      rescue Fiddle::DLError
+        next
+      else
+        @curses_dl = result
+        break
+      end
+    end
+    @curses_dl = nil if @curses_dl == false
+    @curses_dl
+  end
+end if not Reline.const_defined?(:Terminfo) or not Reline::Terminfo.respond_to?(:curses_dl)
+
+module Reline::Terminfo
+  dlload curses_dl
+  #extern 'int setupterm(char *term, int fildes, int *errret)'
+  @setupterm = Fiddle::Function.new(curses_dl['setupterm'], [Fiddle::TYPE_VOIDP, Fiddle::TYPE_INT, Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+  #extern 'char *tigetstr(char *capname)'
+  @tigetstr = Fiddle::Function.new(curses_dl['tigetstr'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_VOIDP)
+  begin
+    #extern 'char *tiparm(const char *str, ...)'
+    @tiparm = Fiddle::Function.new(curses_dl['tiparm'], [Fiddle::TYPE_VOIDP, Fiddle::TYPE_VARIADIC], Fiddle::TYPE_VOIDP)
+  rescue Fiddle::DLError
+    # OpenBSD lacks tiparm
+    #extern 'char *tparm(const char *str, ...)'
+    @tiparm = Fiddle::Function.new(curses_dl['tparm'], [Fiddle::TYPE_VOIDP, Fiddle::TYPE_VARIADIC], Fiddle::TYPE_VOIDP)
+  end
+  begin
+    #extern 'int tigetflag(char *str)'
+    @tigetflag = Fiddle::Function.new(curses_dl['tigetflag'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+  rescue Fiddle::DLError
+    # OpenBSD lacks tigetflag
+    #extern 'int tgetflag(char *str)'
+    @tigetflag = Fiddle::Function.new(curses_dl['tgetflag'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+  end
+  begin
+    #extern 'int tigetnum(char *str)'
+    @tigetnum = Fiddle::Function.new(curses_dl['tigetnum'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+  rescue Fiddle::DLError
+    # OpenBSD lacks tigetnum
+    #extern 'int tgetnum(char *str)'
+    @tigetnum = Fiddle::Function.new(curses_dl['tgetnum'], [Fiddle::TYPE_VOIDP], Fiddle::TYPE_INT)
+  end
+
+  def self.setupterm(term, fildes)
+    errret_int = String.new("\x00" * 8, encoding: 'ASCII-8BIT')
+    ret = @setupterm.(term, fildes, errret_int)
+    errret = errret_int.unpack1('i')
+    case ret
+    when 0 # OK
+      0
+    when -1 # ERR
+      case errret
+      when 1
+        raise TerminfoError.new('The terminal is hardcopy, cannot be used for curses applications.')
+      when 0
+        raise TerminfoError.new('The terminal could not be found, or that it is a generic type, having too little information for curses applications to run.')
+      when -1
+        raise TerminfoError.new('The terminfo database could not be found.')
+      else # unknown
+        -1
+      end
+    else # unknown
+      -2
+    end
+  end
+
+  class StringWithTiparm < String
+    def tiparm(*args) # for method chain
+      Reline::Terminfo.tiparm(self, *args)
+    end
+  end
+
+  def self.tigetstr(capname)
+    capability = @tigetstr.(capname)
+    case capability.to_i
+    when 0, -1
+      raise TerminfoError, "can't find capability: #{capname}"
+    end
+    StringWithTiparm.new(capability.to_s)
+  end
+
+  def self.tiparm(str, *args)
+    new_args = []
+    args.each do |a|
+      new_args << Fiddle::TYPE_INT << a
+    end
+    @tiparm.(str, *new_args).to_s
+  end
+
+  def self.tigetflag(capname)
+    flag = @tigetflag.(capname).to_i
+    case flag
+    when -1
+      raise TerminfoError, "not boolean capability: #{capname}"
+    when 0
+      raise TerminfoError, "can't find capability: #{capname}"
+    end
+    flag
+  end
+
+  def self.tigetnum(capname)
+    num = @tigetnum.(capname).to_i
+    case num
+    when -2
+      raise TerminfoError, "not numeric capability: #{capname}"
+    when -1
+      raise TerminfoError, "can't find capability: #{capname}"
+    end
+    num
+  end
+
+  def self.enabled?
+    true
+  end
+end if Reline::Terminfo.curses_dl
+
+module Reline::Terminfo
+  def self.enabled?
+    false
+  end
+end unless Reline::Terminfo.curses_dl