tools/buildQuestCrcStringTables.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my $branch;
   6 my $all = "";
   7 my $only = "";
   8
   9
  10 # =====================================================================
  11
  12 sub perforceWhere
  13 {
  14         # find out where a perforce file resides on the local machine
  15         my $result;
  16         {
  17                 open(P4, "p4 where $_[0] |");
  18                         while ( <P4> )
  19                         {
  20                                 next if ( /^-/ );
  21                                 chomp;
  22                                 my @where = split;
  23                                 $result = $where[2];
  24                         }
  25                 close(P4);
  26         }
  27
  28         return $result;
  29 }
  30
  31 sub usage
  32 {
  33         die "usage: buildQuestCrcStringTables [--local|--all|--only <changelist#>] <current|stage|test|live|x1|x2|ep3|demo|s#>\n" .
  34                 "\t--local : include pending files only from the local client\n" .
  35                 "\t--all : include pending files from all clients\n" .
  36                 "\t--only <changelist#> : include pending files only from <changelist#>\n" .
  37                 "\tif no option is provided, --local is assumed.\n";
  38 }
  39
  40 # =====================================================================
  41
  42 sub perforceGatherAndPrune
  43 {
  44         local $_;
  45         my %files;
  46
  47         foreach my $spec (@_)
  48         {
  49                 open(P4, "p4 files $spec/... |");
  50                 while (<P4>)
  51                 {
  52                         chomp;
  53                         next if (/ delete /)/
  54                         s%//depot/swg/$branch/data/sku\.0/sys\.(shared|server)/compiled/game/datatables/questlist/%%;
  55                         s/\.iff//;
  56                         s/#.*//;
  57                         $files{$_} = 1;
  58                 }
  59                 close(P4);
  60
  61                 open(P4, "p4 opened " . $all . " " . $only . " $spec/... |");
  62                 while (<P4>)
  63                 {
  64                         chomp;
  65                         s%//depot/swg/$branch/data/sku\.0/sys\.(shared|server)/compiled/game/datatables/questlist/%%;
  66                         s/\.iff//;
  67                         s/#.*//;
  68                         $files{$_} = 1;
  69                 }
  70                 close(P4);
  71         }
  72
  73         return sort keys %files;
  74 }
  75
  76 # =====================================================================
  77
  78 if ($#ARGV == 1 || $#ARGV == 2)
  79 {
  80         if ($ARGV[0] eq "--local")
  81         {
  82                 $all = "";
  83         }
  84         elsif ($ARGV[0] eq "--all")
  85         {
  86                 $all = "-a";
  87         }
  88         elsif ($ARGV[0] eq "--only" && $#ARGV == 2)
  89         {
  90                 $all = "";
  91                 $only = "-c " . $ARGV[1];
  92                 shift;
  93         }
  94         else
  95         {
  96                 usage();
  97         }
  98
  99         shift;
 100 }
 101
 102 usage() unless (defined($ARGV[0]) && $ARGV[0] =~ m%^(current|stage|test|live|x1|x2|ep3|demo|s\d+)$%);
 103
 104 $branch = $ARGV[0];
 105
 106 {
 107         my $tab    = perforceWhere("//depot/swg/$branch/dsrc/sku.0/sys.shared/built/game/misc/quest_crc_string_table.tab");
 108         my $output = perforceWhere("//depot/swg/$branch/data/sku.0/sys.shared/built/game/misc/quest_crc_string_table.iff");
 109         print "building quest template strings:\n\t$tab\n\t$output\n";
 110         system("p4 edit $tab $output");
 111
 112         my @files = perforceGatherAndPrune("//depot/swg/$branch/data/sku.0/sys.shared/compiled/game/datatables/questlist");
 113
 114         open(B, "| perl buildCrcStringTable.pl -t $tab $output");
 115                 foreach (@files)
 116                 {
 117                         print B $_, "\n";
 118                 }
 119         close(B);
 120 }