blob: 2936f9b092205bc5ce7c44091e43dac69c59e4b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#
# list-parse-event-ids.rb
#
require 'getopts'
def usage( status )
(status == 0 ? $stdout : $stderr).print(<<EOS)
Usage: #{File.basename($0)} [-a] filename
EOS
exit status
end
def main
getopts('a') or usage(1)
extract_ids(ARGF).each do |id, arity|
if $OPT_a
then puts "#{id} #{arity}"
else puts id
end
end
end
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]
end
end
end
results.uniq.sort
end
main
|