| … | |
… | |
| 28 | * The authors can be reached via e-mail to <support\@deliantra.net> |
28 | * The authors can be reached via e-mail to <support\@deliantra.net> |
| 29 | */ |
29 | */ |
| 30 | |
30 | |
| 31 | EOF |
31 | EOF |
| 32 | |
32 | |
|
|
33 | my $idx = 0; |
|
|
34 | |
| 33 | while (<>) { |
35 | while (<>) { |
| 34 | if (/^=head2 (\S+) EVENTS/) { |
36 | if (/^=head2 (\S+) EVENTS/) { |
| 35 | $klass = $1; |
37 | $klass = $1; |
| 36 | } elsif (/=head3 (\S+)\s*(.*)/) { |
38 | } elsif (/=head3 (\S+)\s*(.*)/) { |
| 37 | print "def ($klass, \U$1\E) // $2\n"; |
39 | print "def ($klass, \U$1\E) // ", $idx++, " $2\n"; |
| 38 | } |
40 | } |
| 39 | } |
41 | } |
