# $Id$
def main
if ARGV[0] == '-a'
with_arity = true
ARGV.delete_at 0
else
with_arity = false
end
extract_ids(ARGF).each do |id, arity|
if with_arity
puts "#{id} #{arity}"
puts id
def extract_ids(f)
results = []
f.each do |line|
next if /\A\#\s*define\s+s?dispatch/ === line
next if /ripper_dispatch/ === line
if a = line.scan(/dispatch(\d)\((\w+)/)
a.each do |arity, event|
results.push [event, arity.to_i]
results.uniq.sort
main