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

Add --quest to perl-doc-parser.pl and update usage doc in embparser_api.cpp for quest::

Browse Source
This commit is contained in:
Akkadius 2018-07-01 21:47:34 -05:00
parent 595138679d
commit 5b6f9d3bfb
2 changed files with 231 additions and 220 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,6 +14,7 @@ sub usage() {
print " --questitem - Prints methods for just questitem class methods\n"; print " --questitem - Prints methods for just questitem 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 " --quest - Prints methods for just quest class methods\n";
print " --all - Prints methods for all classes\n"; print " --all - Prints methods for all classes\n";
exit(1); exit(1);
} }
@ -25,6 +26,12 @@ if($#ARGV < 0) {
my $export = $ARGV[0]; my $export = $ARGV[0];
$export=~s/--//g; $export=~s/--//g;
my $export_file_search = $export;
if ($export eq "quest") {
$export_file_search = "embparser_api";
}
my @files; my @files;
my $start_dir = "zone/"; my $start_dir = "zone/";
find( find(
@ -34,13 +41,13 @@ find(
for my $file (@files) { for my $file (@files) {
#::: Skip non Perl files #::: Skip non Perl files
if($file!~/perl_/i){ if($file!~/perl_|embparser_api/i){
next; next;
} }
#::: If we are specifying a specific class type, skip everything else #::: If we are specifying a specific class type, skip everything else
if ($export ne "all" && $export ne "") { if ($export ne "all" && $export ne "") {
if ($file!~/$export/i) { if ($file!~/$export_file_search/i) {
next; next;
} }
} }
@ -56,7 +63,7 @@ for my $file (@files) {
chomp; chomp;
$line = $_; $line = $_;
if ($line=~/Perl_croak/i && $line=~/Usa/i && $line=~/::/i) { if ($line=~/Perl_croak/i && $line=~/Usa/i && $line=~/::/i && $line!~/::new/i) {
#::: Client export #::: Client export
if ($export=~/all|client/i && $line=~/Client::/i) { if ($export=~/all|client/i && $line=~/Client::/i) {
@ -118,12 +125,18 @@ for my $file (@files) {
$object_prefix = "\$hate_entry->"; $object_prefix = "\$hate_entry->";
} }
#::: Hateentry export #::: Questitem export
if ($export=~/all|questitem/i && $line=~/QuestItem::/i) { if ($export=~/all|questitem/i && $line=~/QuestItem::/i) {
$split_key = "QuestItem::"; $split_key = "QuestItem::";
$object_prefix = "\$quest_item->"; $object_prefix = "\$quest_item->";
} }
#::: Quest:: exports
if ($export=~/all|quest/i && $line=~/quest::/i) {
$split_key = "quest::";
$object_prefix = "\quest::";
}
#::: 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]);

430
zone/embparser_api.cpp
View File

File diff suppressed because it is too large Load Diff