Contents

# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <[e-mail]>
require 'rubygems'; require 'require_relative'
require 'pp'
require_relative '../command'
require_relative '../../app/cmd_parse'
class Trepan::Command::ParseTreeCommand < Trepan::Command
  
  unless defined?(HELP)
    NAME = File.basename(__FILE__, '.rb')
    HELP = <<-HELP
#{NAME} [FILE]
#{NAME} 

In the first form, print a ParseTree S-expression of the current file
or FILE.
HELP
      
    # ALIASES       = %w(p)
    MAX_ARGS      = 1
    CATEGORY      = 'data'
    SHORT_HELP    = 'PrettyPrint a ParseTree S-expression for a file'
  end
  
  def run(args)
    meth = nil
    case args.size
    when 1
      file = @proc.frame.file
    when 2
      file = args[1]
    else
      errmsg 'Expecting a file name'
    end
    expanded_file = @proc.canonic_file(file)
    if File.readable?(expanded_file)
      section "ParseTree for file: #{expanded_file}"
      msg File.to_sexp(expanded_file).pretty_inspect
    else
      errmsg "File #{expanded_file} is not readable."
    end
  end
  
  if __FILE__ == $0
    require 'pp'
    require_relative '../mock'
    dbgr, cmd = MockDebugger::setup
    cmd.run([cmd.name, __FILE__])
  end
  
end

Version data entries

4 entries across 4 versions & 1 rubygems

Version	Path
rbx-trepanning-0.2.1-universal-rubinius-2.0	processor/command/parsetree.rb
rbx-trepanning-0.2.1-universal-rubinius-1.2	processor/command/parsetree.rb
rbx-trepanning-0.2.0-universal-rubinius-2.0	processor/command/parsetree.rb
rbx-trepanning-0.1.0-universal-rubinius-1.2	processor/command/parsetree.rb