fir-repl 0.1.0

data/lib/fir/key.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+class Fir
+  class Key
+    attr_reader :input
+
+    def initialize(input)
+      @input = input
+    end
+
+    def get
+      input.raw do |raw_input|
+        key = raw_input.sysread(1).chr
+        if key == "\e"
+          skt = Thread.new { 2.times { key += raw_input.sysread(1).chr } }
+          skt.join(0.0001)
+          skt.kill
+        end
+        key
+      end
+    end
+  end
+end

data/lib/fir/key_command/backspace_command.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class BackspaceCommand < KeyCommand
+    def self.character_regex
+      /^\177$/
+    end
+
+    def execute_hook(new_state)
+      unless state.blank?
+        if state.cursor.x.positive?
+          new_state.cursor = state.cursor.left(1)
+          new_line = state.current_line.clone
+          new_line.delete_at(state.cursor.x - 1)
+          new_state.current_line = new_line
+        elsif state.cursor.x.zero? && state.cursor.y.positive?
+          new_state.cursor =
+            state.cursor.up.right(state.lines[state.cursor.y - 1].length)
+          new_state.lines = state.lines.remove
+        end
+      end
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/ctrl_a_command.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class CtrlACommand < KeyCommand
+    def self.character_regex
+      /^\x01$/
+    end
+
+    def execute_hook(new_state)
+      unless state.blank?
+        if state.cursor.x.positive?
+          new_state.cursor = state.cursor.left(state.cursor.x)
+        end
+      end
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/ctrl_c_command.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class CtrlCCommand < KeyCommand
+    def self.character_regex
+      /^\u0003$/
+    end
+
+    def execute_hook(new_state)
+      new_state.history.reset
+      new_state.blank
+    end
+  end
+end

data/lib/fir/key_command/ctrl_d_command.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class CtrlDCommand < KeyCommand
+    def self.character_regex
+      /^\u0004$/
+    end
+
+    def execute_hook(_)
+      exit(0)
+    end
+  end
+end

data/lib/fir/key_command/ctrl_e_command.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class CtrlECommand < KeyCommand
+    def self.character_regex
+      /^\x05$/
+    end
+
+    def execute_hook(new_state)
+      unless state.blank?
+        new_state.cursor = state.cursor.right(state.current_line.length - state.cursor.x)
+      end
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/ctrl_v_command.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class CtrlVCommand < KeyCommand
+    def self.character_regex
+      /^\u0016$/
+    end
+
+    def execute_hook(new_state)
+      paste_buffer = `pbpaste`
+      new_state.current_line = state.current_line.clone.insert(
+        state.cursor.x,
+        *paste_buffer.split('')
+      ).flatten
+      new_state.cursor = state.cursor.right(paste_buffer.length)
+      new_state.history.reset
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/ctrl_z_command.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class CtrlZCommand < KeyCommand
+    def self.character_regex
+      /^\u001A$/
+    end
+
+    def execute_hook(new_state)
+      `kill -TSTP #{Process.pid}`
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/down_arrow_command.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class DownArrowCommand < KeyCommand
+    def self.character_regex
+      [/^\e\[B$/, /\x0E/]
+    end
+
+    def execute_hook(new_state)
+      new_state.history.down
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/enter_command.rb

@@ -0,0 +1,20 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class EnterCommand < KeyCommand
+    def self.character_regex
+      /^\r$/
+    end
+
+    def execute_hook(new_state)
+      new_state.commit_current_line_to_history
+      new_state.lines = state.lines.add([])
+      new_state.cursor = state.cursor.down.left(state.cursor.x)
+      new_state.history.reset
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/key_command.rb

@@ -0,0 +1,67 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+class Fir
+  class KeyCommand
+    attr_reader :character
+    attr_reader :state
+
+    def self.build(character, state)
+      find(character).new(character, state)
+    end
+
+    def self.for(character, state)
+      registry.find do |candidate|
+        candidate.handles?(character)
+      end.new(character, state)
+    end
+
+    def self.registry
+      @registry ||= [KeyCommand]
+    end
+
+    def self.register(candidate)
+      registry.unshift(candidate)
+    end
+
+    def self.inherited(candidate)
+      register(candidate)
+    end
+
+    def self.handles?(character)
+      Array(character_regex).any? { |re| re.match(character) }
+    end
+
+    def self.character_regex
+      /.*/
+    end
+
+    def initialize(character, state)
+      @character = character
+      @state = state
+    end
+
+    def execute
+      execute_hook(state.clone)
+    end
+
+    def execute_hook(new_state)
+      new_state
+    end
+  end
+end
+
+require_relative './single_key_command'
+require_relative './enter_command'
+require_relative './tab_command'
+require_relative './backspace_command'
+require_relative './ctrl_c_command'
+require_relative './ctrl_d_command'
+require_relative './ctrl_z_command'
+require_relative './ctrl_v_command'
+require_relative './ctrl_a_command'
+require_relative './ctrl_e_command'
+require_relative './left_arrow_command'
+require_relative './right_arrow_command'
+require_relative './up_arrow_command'
+require_relative './down_arrow_command'

data/lib/fir/key_command/left_arrow_command.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class LeftArrowCommand < KeyCommand
+    def self.character_regex
+      [/^\e\[D$/, /^\x02$/]
+    end
+
+    def execute_hook(new_state)
+      unless state.blank?
+        new_state.cursor = state.cursor.left(1) if state.cursor.x.positive?
+      end
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/right_arrow_command.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class RightArrowCommand < KeyCommand
+    def self.character_regex
+      [/^\e\[C$/, /^\x06$/]
+    end
+
+    def execute_hook(new_state)
+      unless state.blank?
+        if state.cursor.x < state.current_line.length
+          new_state.cursor = state.cursor.right(1)
+        end
+      end
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/single_key_command.rb

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class SingleKeyCommand < KeyCommand
+    def self.character_regex
+      # Matches all printable ASCII characters
+      /[ -~]/
+    end
+
+    def execute_hook(new_state)
+      new_state.current_line = state.lines[-1].clone.insert(
+        state.cursor.x,
+        character
+      )
+      new_state.cursor = state.cursor.right(1)
+      new_state.history.reset
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/tab_command.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class TabCommand < KeyCommand
+    def self.character_regex
+      /^\t$/
+    end
+
+    def execute_hook(new_state)
+      new_state.current_line = state.current_line.clone.insert(
+        state.cursor.x,
+        *state.suggestion.split('')
+      ).flatten
+      new_state.cursor = state.cursor.right(state.suggestion.length)
+      new_state.history.reset
+      new_state
+    end
+  end
+end

data/lib/fir/key_command/up_arrow_command.rb

@@ -0,0 +1,17 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+require_relative './key_command'
+
+class Fir
+  class UpArrowCommand < KeyCommand
+    def self.character_regex
+      [/^\e\[A$/, /\x10/]
+    end
+
+    def execute_hook(new_state)
+      new_state.history.up
+      new_state
+    end
+  end
+end

data/lib/fir/lines.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+# encoding: UTF-8
+
+class Fir
+  class Lines
+    include Enumerable
+    attr_reader :members
+
+    def initialize(*members)
+      @members = members
+    end
+
+    def self.blank
+      new([])
+    end
+
+    def blank?
+      @members == [[]]
+    end
+
+    def clone
+      self.class.new(*@members.clone.map(&:clone))
+    end
+
+    def each(&block)
+      @members.each(&block)
+    end
+
+    def [](key)
+      @members[key].clone
+    end
+
+    def []=(key, value)
+      @members[key] = value
+    end
+
+    def length
+      @members.length
+    end
+
+    def join(chr = nil)
+      map(&:join).join(chr)
+    end
+
+    def ==(other)
+      other.members == members
+    end
+
+    def add(n)
+      self.class.new(*(@members + [n]))
+    end
+
+    def remove
+      self.class.new(*(@members[0...-1]))
+    end
+  end
+end