| Revision: | 1.2 |
| Committed: | Tue Aug 29 13:11:58 2006 UTC (20 years 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 | } |