driver.rb

require 'compiler'

  dump = ARGV.include?("--parsetree")
  norequire = ARGV.include?("--norequire") # Don't process require's statically - compile them instead
  trace = ARGV.include?("--trace")
  stackfence = ARGV.include?("--stackfence")
  transform = !ARGV.include?("--notransform")
  nostabs = ARGV.include?("--nostabs")
  dumpsymtabs = ARGV.include?("--dumpsymtabs")

  # Option to not rewrite the parse tree (breaks compilation, but useful for debugging of the parser)
  OpPrec::TreeOutput.dont_rewrite if ARGV.include?("--dont-rewrite")


  # Process remaining arguments
  #
  # If a filename is not given, read from STDIN.
  input_source = STDIN
  include_paths = []

  while arg = ARGV.shift
     if arg[0..1] == "-I"
       if arg == "-I"
        path = ARGV.shift
      else
        path = arg[2..-1]
      end

       include_paths << path
     elsif arg == "-g" # Implemented in ./compile
     elsif arg[0..1] == "--"

     elsif File.exists?(arg)
       input_source = File.open(arg, "r")
     else
       STDERR.puts "No such file or argument: #{arg}"
       exit(1)
     end
  end

  s = Scanner.new(input_source)
  prog = nil

### FIXME: Fails here due to lack of exceptions support.
#  begin
    parser = Parser.new(s, {:norequire => norequire, :include_paths => include_paths})
    prog = parser.parse
#  rescue Exception => e
#    STDERR.puts "#{e.message}"
    # FIXME: The position ought to come from the parser, as should the rest, since it could come
    # from a 'require'd file, in which case the fragment below means nothing.
#    STDERR.puts "Failed at line #{s.lineno} / col #{s.col} / #{s.filename}  before:\n"
#    buf = ""
#    while s.peek && buf.size < 100
#      buf += s.get
#    end
#    STDERR.puts buf
#  end
  
  if prog
    e = Emitter.new
    e.debug == nil if nostabs

    c = Compiler.new(e)
    c.trace = true if trace
    c.stackfence = true if stackfence

    c.preprocess(prog) if transform

    if dump || dumpsymtabs
      print_sexp prog if dump
      c.global_scope.dump if dumpsymtabs
      exit(0)
    end
    
    c.compile(prog)
  end


exit(0)