pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-12 17:51:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

perl-doc-parser.pl fix --all option

Browse Source
This commit is contained in:
Akkadius 2018-07-01 20:45:24 -05:00
parent 94aa271a84
commit 9e03d76211
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
utils/scripts/perl-doc-parser.pl
View File

@ -10,7 +10,7 @@ sub usage() {
print " --door - Prints methods for just door class methods\n"; print " --door - Prints methods for just door class methods\n";
print " --object - Prints methods for just object class methods\n"; print " --object - Prints methods for just object class methods\n";
print " --group - Prints methods for just group class methods\n"; print " --group - Prints methods for just group class methods\n";
print " --raid - Prints methods for just raid class methods\n"; print " --raid - Prints methods for just raid class methods\n";
print " --corpse - Prints methods for just corpse class methods\n"; print " --corpse - Prints methods for just corpse class methods\n";
print " --hateentry - Prints methods for just hateentry class methods\n"; print " --hateentry - Prints methods for just hateentry class methods\n";
print " --all - Prints methods for all classes\n"; print " --all - Prints methods for all classes\n";
@ -47,7 +47,7 @@ for my $file (@files) {
@methods = (); @methods = ();
#::: Open File #::: Open File
print "Opening '" . $file . "'\n"; print "\nOpening '" . $file . "'\n";
open (FILE, $file); open (FILE, $file);
while (<FILE>) { while (<FILE>) {
chomp; chomp;
@ -56,61 +56,61 @@ for my $file (@files) {
if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::|Object::|Raid::/i && $line=~/_croak/i) { if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::|Object::|Raid::/i && $line=~/_croak/i) {
#::: Client export #::: Client export
if ($export=~/all|client/i) { if ($export=~/all|client/i && $line=~/Client::/i) {
$split_key = "Client::"; $split_key = "Client::";
$object_prefix = "\$client->"; $object_prefix = "\$client->";
} }
#::: Mob export #::: Mob export
if ($export=~/all|mob/i) { if ($export=~/all|mob/i && $line=~/Mob::/i) {
$split_key = "Mob::"; $split_key = "Mob::";
$object_prefix = "\$mob->"; $object_prefix = "\$mob->";
} }
#::: NPC export #::: NPC export
if ($export=~/all|npc/i) { if ($export=~/all|npc/i && $line=~/NPC::/i) {
$split_key = "NPC::"; $split_key = "NPC::";
$object_prefix = "\$npc->"; $object_prefix = "\$npc->";
} }
#::: Corpse export #::: Corpse export
if ($export=~/all|corpse/i) { if ($export=~/all|corpse/i && $line=~/Corpse::/i) {
$split_key = "Corpse::"; $split_key = "Corpse::";
$object_prefix = "\$corpse->"; $object_prefix = "\$corpse->";
} }
#::: Entity export #::: Entity export
if ($export=~/all|entity/i) { if ($export=~/all|entity/i && $line=~/EntityList::/i) {
$split_key = "EntityList::"; $split_key = "EntityList::";
$object_prefix = "\$entity_list->"; $object_prefix = "\$entity_list->";
} }
#::: Doors export #::: Doors export
if ($export=~/all|door/i) { if ($export=~/all|door/i && $line=~/Doors::/i) {
$split_key = "Doors::"; $split_key = "Doors::";
$object_prefix = "\$door->"; $object_prefix = "\$door->";
} }
#::: Object export #::: Object export
if ($export=~/all|object/i) { if ($export=~/all|object/i && $line=~/Object::/i) {
$split_key = "Object::"; $split_key = "Object::";
$object_prefix = "\$object->"; $object_prefix = "\$object->";
} }
#::: Group export #::: Group export
if ($export=~/all|group/i) { if ($export=~/all|group/i && $line=~/Group::/i) {
$split_key = "Group::"; $split_key = "Group::";
$object_prefix = "\$group->"; $object_prefix = "\$group->";
} }
#::: Raid export #::: Raid export
if ($export=~/all|raid/i) { if ($export=~/all|raid/i && $line=~/Raid::/i) {
$split_key = "Raid::"; $split_key = "Raid::";
$object_prefix = "\$raid->"; $object_prefix = "\$raid->";
} }
#::: Hateentry export #::: Hateentry export
if ($export=~/all|hateentry/i) { if ($export=~/all|hateentry/i && $line=~/HateEntry::/i) {
$split_key = "HateEntry::"; $split_key = "HateEntry::";
$object_prefix = "\$hate_entry->"; $object_prefix = "\$hate_entry->";
} }