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

#! perl

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

EOF

while (<>) {
   if (/^=head2 (\S+) EVENTS/) {
      $klass = $1;
   } elsif (/=head3 (\S+)\s*(.*)/) {
      print "def ($klass, \U$1\E) // $2\n";
   }
}
Revision:	1.2
Committed:	Tue Aug 29 13:11:58 2006 UTC (17 years, 9 months ago) by root
Branch:	MAIN
Changes since 1.1:	+8 -0 lines
Log Message:	* empty log message *
#	Content
1	#! perl
2
3	print <<EOF;
4	//
5	// AUTOGENERATED: this is a generated file
6	// edit doc/events.pod instead
7	//
8
9	EOF
10
11	while (<>) {
12	if (/^=head2 (\S+) EVENTS/) {
13	$klass = $1;
14	} elsif (/=head3 (\S+)\s(.)/) {
15	print "def ($klass, \U$1\E) // $2\n";
16	}
17	}