show-native-code.rb

#!/usr/bin/env ruby

require 'yaml'
require 'murmurhash3'
require 'bundler'
require 'set'

def node_for name
  "n#{MurmurHash3::V32.str_hash(name).to_s(16)}"
end

def gem_for_path path
  path.gsub(/-[0-9.]+/, '')
end

RED_GEMS = `find . -name '*.so'`.lines.collect {|l| l.scan /(?<=gems\/)[^\/]+/}.flatten.uniq.map {|p| gem_for_path p}
DESCRIBED = Set.new

def describe name
  unless DESCRIBED.include? name
    DESCRIBED << name
    if RED_GEMS.include? name
      puts "#{node_for name} [label=\"#{name}\",fontcolor=red]"
    else
      puts "#{node_for name} [label=\"#{name}\"]"
    end
  end
end

lockfile = IO::read 'Gemfile.lock'

deps = Hash.new { |h,k| h[k] = [] }
name = ''

lockfile.lines.each do |line|
  if line.start_with? '      '
    deps[name] <<= line.split(/ +/)[1]
  elsif line.start_with? '    '
    name = line.split(/ +/)[1].chomp
  end
end

puts 'digraph G {node [shape=plaintext]; splines="off"'
deps.sort_by{|k,vs|vs.length}.each do |k, vs|
  describe k
  vs.each do |v|
    describe v
    puts "#{node_for k} -> #{node_for v}"
  end
end
puts '}'