ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
deliantra
/
server
/
include
/
event2inc
Revision:
1.1
Committed:
Mon Aug 28 12:07:13 2006 UTC
(17 years, 10 months ago) by
root
Branch:
MAIN
Log Message:
make fixes
File Contents
#
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
}