2006-12-31 15:02:22 +00:00
|
|
|
$file = ARGV[0]
|
|
|
|
$str = ARGF.read.sub(/^__END__.*\z/m, '')
|
|
|
|
puts '# ' + '-' * 70
|
|
|
|
puts "# target program: "
|
|
|
|
puts '# ' + '-' * 70
|
|
|
|
puts $str
|
|
|
|
puts '# ' + '-' * 70
|
|
|
|
|
2007-01-29 05:16:38 +00:00
|
|
|
$parsed = VM::InstructionSequence.compile_file($file)
|
2006-12-31 15:02:22 +00:00
|
|
|
puts "# disasm result: "
|
|
|
|
puts '# ' + '-' * 70
|
|
|
|
puts $parsed.disasm
|
|
|
|
puts '# ' + '-' * 70
|