Revision: | 1.2 |
Committed: | Tue Aug 29 13:11:58 2006 UTC (17 years, 9 months ago) by root |
Branch: | MAIN |
Changes since 1.1: | +8 -0 lines |
Log Message: | *** empty log message *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.1 | #! perl |
2 | |||
3 | root | 1.2 | print <<EOF; |
4 | // | ||
5 | // AUTOGENERATED: this is a generated file | ||
6 | // edit doc/events.pod instead | ||
7 | // | ||
8 | |||
9 | EOF | ||
10 | |||
11 | root | 1.1 | while (<>) { |
12 | if (/^=head2 (\S+) EVENTS/) { | ||
13 | $klass = $1; | ||
14 | } elsif (/=head3 (\S+)\s*(.*)/) { | ||
15 | print "def ($klass, \U$1\E) // $2\n"; | ||
16 | } | ||
17 | } |