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 --questitem to perl-doc-parser.pl - format and add usage doc to perl_questitem.cpp

Browse Source
This commit is contained in:
Akkadius
2018-07-01 20:52:56 -05:00
parent 9e03d76211
commit 595138679d
2 changed files with 101 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files
utils/scripts/perl-doc-parser.pl
+10 -1
View File
@@ -11,6 +11,7 @@ sub usage() {
print " --object - Prints methods for just object class methods\n";
print " --group - Prints methods for just group class methods\n";
print " --raid - Prints methods for just raid class methods\n";
print " --questitem - Prints methods for just questitem class methods\n";
print " --corpse - Prints methods for just corpse class methods\n";
print " --hateentry - Prints methods for just hateentry class methods\n";
print " --all - Prints methods for all classes\n";
@@ -45,6 +46,8 @@ for my $file (@files) {
}
@methods = ();
$split_key = "";
$object_prefix = "";
#::: Open File
print "\nOpening '" . $file . "'\n";
@@ -53,7 +56,7 @@ for my $file (@files) {
chomp;
$line = $_;
if ($line=~/Client::|Mob::|Corpse::|EntityList::|Doors::|Group::|HateEntry::|NPC::|Object::|Raid::/i && $line=~/_croak/i) {
if ($line=~/Perl_croak/i && $line=~/Usa/i && $line=~/::/i) {
#::: Client export
if ($export=~/all|client/i && $line=~/Client::/i) {
@@ -115,6 +118,12 @@ for my $file (@files) {
$object_prefix = "\$hate_entry->";
}
#::: Hateentry export
if ($export=~/all|questitem/i && $line=~/QuestItem::/i) {
$split_key = "QuestItem::";
$object_prefix = "\$quest_item->";
}
#::: Split on croak usage
@data = split($split_key, $line);
$usage = trim($data[1]);