#!/usr/bin/ruby

Header_RE = /^(\*+)\s+(.*)/

parents = ["#{ARGV[0]}"]

print "digraph \"#{parents[0]}\" {\n"

while gets

  if $_ =~ Header_RE

    title = $2

    level = $1.length()

    next if title =~ /^Emacs Variables/

    if level > parents.length()

      [level..parents.length()].each do |i| parents.push("") end

    end

    if level < parents.length()

      parents = parents[0..level-1]

    end

    parents.push(title)

    print "// #{parents.join(",")}\n"

    if parents.length() > 1

      print "\"#{parents[-2]}\" -> \"#{parents[-1]}\";\n"

    end

  end

end

print "}\n"