Gecko [ www.jdcpatala.org ]

Name	Size	Permission
key_actor	[ DIR ]	drwxr-xr-x
unicode	[ DIR ]	drwxr-xr-x
ansi.rb	3.14 KB	-rw-r--r--
config.rb	6.96 KB	-rw-r--r--
general_io.rb	897 B	-rw-r--r--
history.rb	1.16 KB	-rw-r--r--
key_actor.rb	169 B	-rw-r--r--
key_stroke.rb	1.2 KB	-rw-r--r--
kill_ring.rb	2.2 KB	-rw-r--r--
line_editor.rb	66.93 KB	-rw-r--r--
unicode.rb	16.73 KB	-rw-r--r--
version.rb	38 B	-rw-r--r--
windows.rb	7.31 KB	-rw-r--r--

Code Editor : kill_ring.rb

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

${this.title}

Code Editor : kill_ring.rb