require 'pp'

def parse_class_info(instruction_sequence)
  classes = []

  find_classes = proc do |instructions, parent, index|
    next unless instructions.is_a? Array
    if instructions[0] == :defineclass
      _, class_name, class_info = instructions
      info = { type: class_info[5][/\<([^:]+)/, 1], name: class_name }
      class_body = class_info[13]
      instruction, argument = parent[index - 3]
      info[:super_class] = argument if instruction == :getconstant
      classes << info
      class_body.each {|instruction| find_classes.(instruction, class_body) }
    else
      instructions.each_with_index {|instruction, i| find_classes.(instruction, instructions, i) }
    end
  end

  find_classes.(instruction_sequence.to_a, nil)

  classes
end

file_contents = <<-RUBY
class TestModule < SuperClass
  foo
end

module TestMod
  bar
end

class TestClass2
  foo_bar
end
RUBY

pp parse_class_info RubyVM::InstructionSequence.compile(file_contents)