[ViewVC] Contents of: cvs/deliantra/server/include/event2inc

#! perl

while (<>) {
   if (/^=head2 (\S+) EVENTS/) {
      $klass = $1;
   } elsif (/=head3 (\S+)\s*(.*)/) {
      print "def ($klass, \U$1\E) // $2\n";
   }
}
Revision:	1.1
Committed:	Mon Aug 28 12:07:13 2006 UTC (17 years, 8 months ago) by root
Branch:	MAIN
Log Message:	make fixes
#	Content
1	#! perl
2
3	while (<>) {
4	if (/^=head2 (\S+) EVENTS/) {
5	$klass = $1;
6	} elsif (/=head3 (\S+)\s(.)/) {
7	print "def ($klass, \U$1\E) // $2\n";
8	}
9	}