Gecko [ www.corporacionhdm.com.pe ]

Name	Size	Permission	Date
key_actor	[ DIR ]	drwxr-xr-x	2024-03-03 22:47
unicode	[ DIR ]	drwxr-xr-x	2024-03-03 22:47
ansi.rb	4.73 KB	-rw-r--r--	2023-03-30 12:34
config.rb	8.6 KB	-rw-r--r--	2023-03-30 12:34
general_io.rb	1.01 KB	-rw-r--r--	2023-03-30 12:34
history.rb	1.87 KB	-rw-r--r--	2023-03-30 12:34
key_actor.rb	169 B	-rw-r--r--	2023-03-30 12:34
key_stroke.rb	1.22 KB	-rw-r--r--	2023-03-30 12:34
kill_ring.rb	2.2 KB	-rw-r--r--	2023-03-30 12:34
line_editor.rb	72.72 KB	-rw-r--r--	2023-03-30 12:34
unicode.rb	18.54 KB	-rw-r--r--	2023-03-30 12:34
version.rb	38 B	-rw-r--r--	2023-03-30 12:34
windows.rb	9.04 KB	-rw-r--r--	2023-03-30 12:34

Rename

class Reline::KillRing
  module State
    FRESH = :fresh
    CONTINUED = :continued
    PROCESSED = :processed
    YANK = :yank
  end

RingPoint = Struct.new(:backward, :forward, :str) do
    def initialize(str)
      super(nil, nil, str)
    end

def ==(other)
      object_id == other.object_id
    end
  end

class RingBuffer
    attr_reader :size
    attr_reader :head

def initialize(max = 1024)
      @max = max
      @size = 0
      @head = nil # reading head of ring-shaped tape
    end

def <<(point)
      if @size.zero?
        @head = point
        @head.backward = @head
        @head.forward = @head
        @size = 1
      elsif @size >= @max
        tail = @head.forward
        new_tail = tail.forward
        @head.forward = point
        point.backward = @head
        new_tail.backward = point
        point.forward = new_tail
        @head = point
      else
        tail = @head.forward
        @head.forward = point
        point.backward = @head
        tail.backward = point
        point.forward = tail
        @head = point
        @size += 1
      end
    end

def empty?
      @size.zero?
    end
  end

def initialize(max = 1024)
    @ring = RingBuffer.new(max)
    @ring_pointer = nil
    @buffer = nil
    @state = State::FRESH
  end

def append(string, before_p = false)
    case @state
    when State::FRESH, State::YANK
      @ring << RingPoint.new(string)
      @state = State::CONTINUED
    when State::CONTINUED, State::PROCESSED
      if before_p
        @ring.head.str.prepend(string)
      else
        @ring.head.str.concat(string)
      end
      @state = State::CONTINUED
    end
  end

def process
    case @state
    when State::FRESH
      # nothing to do
    when State::CONTINUED
      @state = State::PROCESSED
    when State::PROCESSED
      @state = State::FRESH
    when State::YANK
      # nothing to do
    end
  end

def yank
    unless @ring.empty?
      @state = State::YANK
      @ring_pointer = @ring.head
      @ring_pointer.str
    else
      nil
    end
  end

def yank_pop
    if @state == State::YANK
      prev_yank = @ring_pointer.str
      @ring_pointer = @ring_pointer.backward
      [@ring_pointer.str, prev_yank]
    else
      nil
    end
  end
end