… | |
… | |
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 | } |