#! perl

print <<EOF;
//
// AUTOGENERATED: this is a generated file
// edit pod/events.pod instead
//

/*
 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
 *  
 * Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
 *  
 * Deliantra is free software: you can redistribute it and/or modify it under
 * the terms of the Affero GNU General Public License as published by the
 * Free Software Foundation, either version 3 of the License, or (at your
 * option) any later version.
 *  
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *  
 * You should have received a copy of the Affero GNU General Public License
 * and the GNU General Public License along with this program. If not, see
 * <http://www.gnu.org/licenses/>.
 *  
 * The authors can be reached via e-mail to <support\@deliantra.net>
 */ 

EOF

my $idx = 0;

while (<>) {
   if (/^=head2 (\S+) EVENTS/) {
      $klass = $1;
   } elsif (/=head3 (\S+)\s*(.*)/) {
      print "def ($klass, \U$1\E) // ", $idx++, " $2\n";
   }
}