fOOrth/sire.rb

# coding: utf-8
# A Simple Interactive Ruby Environment

$no_alias_read_line_module = true
require 'mini_readline'
require 'pp'

if ARGV[0] == 'local'
  require_relative 'lib/fOOrth'
  puts "\nOption(local) Loaded fOOrth from the local code folder."
elsif defined?(XfOOrth)
  puts "The fOOrth system is already loaded."
else
  begin
    require 'fOOrth'
    puts "\nLoaded fOOrth from the system gem."
  rescue LoadError
    require_relative 'lib/fOOrth'
    puts "\nLoaded fOOrth from the local code folder."
  end
end

puts "fOOrth version = #{XfOOrth::VERSION}"
puts

class Object
  #Generate the class lineage of the object.
  def classes
    begin
      result = ""
      klass  = self.instance_of?(Class) ? self : self.class

      begin
        result << klass.to_s
        klass = klass.superclass
        result << " < " if klass
      end while klass

      result
    end
  end
end

class SIRE
  #Set up the interactive session.
  def initialize
    @_done = false
    @_edit = MiniReadline::Readline.new(history: true,
                                        auto_complete: true,
                                        auto_source: MiniReadline::QuotedFileFolderSource,
                                        eoi_detect: true)

    puts "Welcome to a Simple Interactive Ruby Environment\n"
    puts
    puts "Local commands:"
    puts "    q       - quit SIRE."
    puts "    r       - run fOOrth."
    puts "    v       - version manifest"
    puts "obj classes - show the obj's class heritage."
    puts
  end

  #Quit the interactive session.
  def q
    @_done = true
    puts
    "Bye bye for now!"
  end

  def r
    ARGV.clear
    XfOOrth::main.data_stack
  end

  def v
    puts "Version Manifest"
    mods = ObjectSpace.each_object(Module).select{|c| c.const_defined?("VERSION")}
    width = (mods.max_by{|m| m.to_s.length}).to_s.length
    list = mods.map {|m| "#{m.to_s.ljust(width)} #{m.const_get(:VERSION)}" }
    list.sort
  end

  #Load and run a file
  def l(file_name)
    @_break = false
    lines = IO.readlines(file_name)

    lines.each do |line|
      exec_line(line)
      return if @_break
    end

    "End of file '#{file_name}'."
  end

  #Execute a single line.
  def exec_line(line)
    result = eval line
    pp result unless line.length == 0

  rescue Interrupt => e
    @_break = true
    puts "\nExecution Interrupted!"
    puts "\n#{e.class} detected: #{e}\n"
    puts e.backtrace
    puts "\n"

  rescue Exception => e
    @_break = true
    puts "\n#{e.class} detected: #{e}\n"
    puts e.backtrace
    puts
  end

  #Run the interactive session.
  def run_sire
    until @_done
      @_break = false
      exec_line(@_edit.readline(prompt: 'SIRE>'))
    end

    puts "\n\n"

  rescue MiniReadlineEOI, Interrupt => e
    puts "\nInterrupted! Program Terminating."
  end

end

if __FILE__ == $0
  SIRE.new.run_sire
end