| 1 | #! perl |
1 | #! perl |
|
|
2 | |
|
|
3 | print <<EOF; |
|
|
4 | // |
|
|
5 | // AUTOGENERATED: this is a generated file |
|
|
6 | // edit pod/events.pod instead |
|
|
7 | // |
|
|
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 | |
|
|
31 | EOF |
| 2 | |
32 | |
| 3 | while (<>) { |
33 | while (<>) { |
| 4 | if (/^=head2 (\S+) EVENTS/) { |
34 | if (/^=head2 (\S+) EVENTS/) { |
| 5 | $klass = $1; |
35 | $klass = $1; |
| 6 | } elsif (/=head3 (\S+)\s*(.*)/) { |
36 | } elsif (/=head3 (\S+)\s*(.*)/) { |
