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

Add --entity to perl-doc-parser.pl

Browse Source
This commit is contained in:
Akkadius 2018-07-01 19:49:52 -05:00
parent a6c1314e3e
commit 26ed80bdda
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,6 +5,7 @@ sub usage() {
print "Usage:\n"; print "Usage:\n";
print " --client - Prints methods for just client class methods\n"; print " --client - Prints methods for just client class methods\n";
print " --mob - Prints methods for just mob class methods\n"; print " --mob - Prints methods for just mob class methods\n";
print " --entity - Prints methods for just entity class methods\n";
print " --corpse - Prints methods for just corpse class methods\n"; print " --corpse - Prints methods for just corpse class methods\n";
print " --all - Prints methods for all classes\n"; print " --all - Prints methods for all classes\n";
exit(1); exit(1);
@ -46,7 +47,7 @@ for my $file (@files) {
chomp; chomp;
$line = $_; $line = $_;
if ($line=~/Client::|Mob::|Corpse::/i && $line=~/_croak/i) { if ($line=~/Client::|Mob::|Corpse::|EntityList::/i && $line=~/_croak/i) {
#::: Client export #::: Client export
if ($export=~/all|client/i) { if ($export=~/all|client/i) {
@ -66,6 +67,12 @@ for my $file (@files) {
$object_prefix = "\$corpse->"; $object_prefix = "\$corpse->";
} }
#::: Entity export
if ($export=~/all|entity/i) {
$split_key = "EntityList::";
$object_prefix = "\$entity_list->";
}
#::: Split on croak usage #::: Split on croak usage
@data = split($split_key, $line); @data = split($split_key, $line);
$usage = trim($data[1]); $usage = trim($data[1]);