tools/buildObjectTemplateCrcStringTables.pl

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