Contents

# encoding: utf-8
require 'readline'

module Rouge::REPL; end

class << Rouge::REPL
  def repl_error(e)
    STDOUT.puts "!! #{e.class}: #{e.message}"
    STDOUT.puts "#{e.backtrace.join "\n"}"
  end
  
  def repl(argv)
    context = Rouge::Context.new Rouge[:user]

    if ARGV == ["--time-startup"]
      STDOUT.puts Time.now - Rouge.start
      exit(0)
    elsif argv.length == 1
      f = File.read(argv[0])
      if f[0] == ?#
        f = f[f.index("\n") + 1..-1]
      end

      context.readeval(f)
      exit(0)
    elsif argv.length > 1
      STDERR.puts "!! usage: #$0 [FILE]"
      exit(1)
    end

    count = 0
    chaining = false
    while true
      if not chaining
        prompt = "#{context.ns.name}=> "
        input = Readline.readline(prompt, true)
      else
        prompt = "#{" " * [0, context.ns.name.length - 2].max}#_=> "
        input += "\n" + Readline.readline(prompt, true)
      end

      if input.nil?
        STDOUT.print "\n"
        break
      end

      begin
        form = context.ns.read(input)
      rescue Rouge::Reader::EndOfDataError
        chaining = true
        next
      rescue Rouge::Reader::UnexpectedCharacterError => reader_err
        repl_error reader_err
      end

      chaining = false
      begin
        form = Rouge::Compiler.compile(
          context.ns,
          Set[*context.lexical_keys],
          form)
        result = context.eval(form)

        Rouge.print(result, STDOUT)
        STDOUT.puts

        count += 1 if count < 10
        count.downto(2) do |i|
          context.set_here :"*#{i}", context[:"*#{i - 1}"]
        end
        context.set_here :"*1", result
      rescue Rouge::Context::ChangeContextException => cce
        context = cce.context
        count = 0
      rescue => e
        repl_error e
      end
    end
  end
end

# vim: set sw=2 et cc=80:

Version data entries

5 entries across 5 versions & 1 rubygems

Version	Path
rouge-lang-0.0.5	lib/rouge/repl.rb
rouge-lang-0.0.4	lib/rouge/repl.rb
rouge-lang-0.0.3	lib/rouge/repl.rb
rouge-lang-0.0.2	lib/rouge/repl.rb
rouge-lang-0.0.1	lib/rouge/repl.rb