[ViewVC] Annotation 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, 9 months ago) by root
Branch:	MAIN
Log Message:	make fixes
#	User	Rev	Content
1	root	1.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			}