mirror of
https://bitbucket.org/theswgsource/client-tools-1.2.git
synced 2026-01-16 23:04:40 -05:00
121 lines
2.5 KiB
Perl
121 lines
2.5 KiB
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $branch;
|
|
my $all = "";
|
|
my $only = "";
|
|
|
|
|
|
# =====================================================================
|
|
|
|
sub perforceWhere
|
|
{
|
|
# find out where a perforce file resides on the local machine
|
|
my $result;
|
|
{
|
|
open(P4, "p4 where $_[0] |");
|
|
while ( <P4> )
|
|
{
|
|
next if ( /^-/ );
|
|
chomp;
|
|
my @where = split;
|
|
$result = $where[2];
|
|
}
|
|
close(P4);
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
sub usage
|
|
{
|
|
die "usage: buildQuestCrcStringTables [--local|--all|--only <changelist#>] <current|stage|test|live|x1|x2|ep3|demo|s#>\n" .
|
|
"\t--local : include pending files only from the local client\n" .
|
|
"\t--all : include pending files from all clients\n" .
|
|
"\t--only <changelist#> : include pending files only from <changelist#>\n" .
|
|
"\tif no option is provided, --local is assumed.\n";
|
|
}
|
|
|
|
# =====================================================================
|
|
|
|
sub perforceGatherAndPrune
|
|
{
|
|
local $_;
|
|
my %files;
|
|
|
|
foreach my $spec (@_)
|
|
{
|
|
open(P4, "p4 files $spec/... |");
|
|
while (<P4>)
|
|
{
|
|
chomp;
|
|
next if (/ delete /)/
|
|
s%//depot/swg/$branch/data/sku\.0/sys\.(shared|server)/compiled/game/datatables/questlist/%%;
|
|
s/\.iff//;
|
|
s/#.*//;
|
|
$files{$_} = 1;
|
|
}
|
|
close(P4);
|
|
|
|
open(P4, "p4 opened " . $all . " " . $only . " $spec/... |");
|
|
while (<P4>)
|
|
{
|
|
chomp;
|
|
s%//depot/swg/$branch/data/sku\.0/sys\.(shared|server)/compiled/game/datatables/questlist/%%;
|
|
s/\.iff//;
|
|
s/#.*//;
|
|
$files{$_} = 1;
|
|
}
|
|
close(P4);
|
|
}
|
|
|
|
return sort keys %files;
|
|
}
|
|
|
|
# =====================================================================
|
|
|
|
if ($#ARGV == 1 || $#ARGV == 2)
|
|
{
|
|
if ($ARGV[0] eq "--local")
|
|
{
|
|
$all = "";
|
|
}
|
|
elsif ($ARGV[0] eq "--all")
|
|
{
|
|
$all = "-a";
|
|
}
|
|
elsif ($ARGV[0] eq "--only" && $#ARGV == 2)
|
|
{
|
|
$all = "";
|
|
$only = "-c " . $ARGV[1];
|
|
shift;
|
|
}
|
|
else
|
|
{
|
|
usage();
|
|
}
|
|
|
|
shift;
|
|
}
|
|
|
|
usage() unless (defined($ARGV[0]) && $ARGV[0] =~ m%^(current|stage|test|live|x1|x2|ep3|demo|s\d+)$%);
|
|
|
|
$branch = $ARGV[0];
|
|
|
|
{
|
|
my $tab = perforceWhere("//depot/swg/$branch/dsrc/sku.0/sys.shared/built/game/misc/quest_crc_string_table.tab");
|
|
my $output = perforceWhere("//depot/swg/$branch/data/sku.0/sys.shared/built/game/misc/quest_crc_string_table.iff");
|
|
print "building quest template strings:\n\t$tab\n\t$output\n";
|
|
system("p4 edit $tab $output");
|
|
|
|
my @files = perforceGatherAndPrune("//depot/swg/$branch/data/sku.0/sys.shared/compiled/game/datatables/questlist");
|
|
|
|
open(B, "| perl buildCrcStringTable.pl -t $tab $output");
|
|
foreach (@files)
|
|
{
|
|
print B $_, "\n";
|
|
}
|
|
close(B);
|
|
}
|