pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-05-16 22:58:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add --objet to perl-doc-parser.pl and update usage doc for perl_object.cpp

Browse Source
This commit is contained in:
Akkadius
2018-07-01 20:29:00 -05:00
parent d079feeb66
commit ed37715993
2 changed files with 27 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
utils/scripts/perl-doc-parser.pl
+8 -1
View File
@@ -8,6 +8,7 @@ sub usage() {
print " --npc - Prints methods for just npc class methods\n";
print " --entity - Prints methods for just entity class methods\n";
print " --door - Prints methods for just door class methods\n";
print " --object - Prints methods for just object class methods\n";
print " --group - Prints methods for just group class methods\n";
print " --corpse - Prints methods for just corpse class methods\n";
print " --hateentry - Prints methods for just hateentry class methods\n";
@@ -51,7 +52,7 @@ for my $file (@files) {
chomp;
$line = $_;
if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::/i && $line=~/_croak/i) {
if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::|Object::/i && $line=~/_croak/i) {
#::: Client export
if ($export=~/all|client/i) {
@@ -89,6 +90,12 @@ for my $file (@files) {
$object_prefix = "\$door->";
}
#::: Object export
if ($export=~/all|object/i) {
$split_key = "Object::";
$object_prefix = "\$object->";
}
#::: Group export
if ($export=~/all|group/i) {
$split_key = "Group::";