… | |
… | |
4 | // |
4 | // |
5 | // AUTOGENERATED: this is a generated file |
5 | // AUTOGENERATED: this is a generated file |
6 | // edit pod/events.pod instead |
6 | // edit pod/events.pod instead |
7 | // |
7 | // |
8 | |
8 | |
|
|
9 | /* |
|
|
10 | * This file is part of Deliantra, the Roguelike Realtime MMORPG. |
|
|
11 | * |
|
|
12 | * Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team |
|
|
13 | * |
|
|
14 | * Deliantra is free software: you can redistribute it and/or modify it under |
|
|
15 | * the terms of the Affero GNU General Public License as published by the |
|
|
16 | * Free Software Foundation, either version 3 of the License, or (at your |
|
|
17 | * option) any later version. |
|
|
18 | * |
|
|
19 | * This program is distributed in the hope that it will be useful, |
|
|
20 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
21 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
22 | * GNU General Public License for more details. |
|
|
23 | * |
|
|
24 | * You should have received a copy of the Affero GNU General Public License |
|
|
25 | * and the GNU General Public License along with this program. If not, see |
|
|
26 | * <http://www.gnu.org/licenses/>. |
|
|
27 | * |
|
|
28 | * The authors can be reached via e-mail to <support\@deliantra.net> |
|
|
29 | */ |
|
|
30 | |
9 | EOF |
31 | EOF |
|
|
32 | |
|
|
33 | my $idx = 0; |
10 | |
34 | |
11 | while (<>) { |
35 | while (<>) { |
12 | if (/^=head2 (\S+) EVENTS/) { |
36 | if (/^=head2 (\S+) EVENTS/) { |
13 | $klass = $1; |
37 | $klass = $1; |
14 | } elsif (/=head3 (\S+)\s*(.*)/) { |
38 | } elsif (/=head3 (\S+)\s*(.*)/) { |
15 | print "def ($klass, \U$1\E) // $2\n"; |
39 | print "def ($klass, \U$1\E) // ", $idx++, " $2\n"; |
16 | } |
40 | } |
17 | } |
41 | } |