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

#! perl

print <<EOF;
//
// AUTOGENERATED: this is a generated file
// edit pod/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.3
Committed:	Sun Nov 26 02:37:46 2006 UTC (17 years, 6 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_82, rel-2_81, rel-2_80, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_3, rel-2_0, rel-2_1, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, rel-2_52, rel-2_53, rel-2_32, rel-2_78, rel-2_61, rel-2_43, rel-2_42, rel-2_41
Changes since 1.2:	+1 -1 lines
Log Message:	show irc users, HACK
#	Content
1	#! perl
2
3	print <<EOF;
4	//
5	// AUTOGENERATED: this is a generated file
6	// edit pod/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	}