ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
deliantra
/
server
/
include
/
event2inc
Revision:
1.2
Committed:
Tue Aug 29 13:11:58 2006 UTC
(17 years, 10 months ago) by
root
Branch:
MAIN
Changes since
1.1
:
+8 -0 lines
Log Message:
*** empty log message ***
File Contents
#
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
}