tools/moveUpOrAddAttribute.pl

   1 # ======================================================================
   2 #
   3 # moveUpOrAddAttribute.pl
   4 #
   5 # Copyright 2001 Sony Online Entertainment Inc.
   6 # All Rights Reserved.
   7 #
   8 # PURPOSE (object template .tpf file utility):
   9 #
  10 #   If a given attribute exists for a specified class, move the attribute
  11 #   from the old class into the new class.  The new class must be higher
  12 #   up (more general) in the class hierarchy.  If the given attribute
  13 #   doesn't exist, add (or replace) it with the given default value in the
  14 #   new class section.  If the new class section doesn't exist, create
  15 #   the new class section.
  16 #
  17 # SYNTAX:
  18 #
  19 #   perl moveUpOrAddAttribute.pl <tpf filename> <old class name> <new class name> <attribute name> <default value>
  20 #
  21 # ======================================================================
  22
  23 # check for proper argument count
  24 if (scalar(@ARGV) != 5)
  25 {
  26         die "syntax: perl moveUpOrAddAttribute.pl <tpf filename> <old class name> <new class name> <attribute name> <default value>\n";
  27 }
  28
  29 # states
  30 $SCAN_OUTSIDE   = 1;
  31 $SCAN_OLD_CLASS = 2;
  32 $SCAN_NEW_CLASS = 3;
  33 $COPY_REMAINDER = 4;
  34
  35 # open source tpf file
  36 $sourcePathname = $ARGV[0];
  37 open (SOURCE, $sourcePathname) or die "failed to open source filename for reading [$sourcePathname]\n";
  38
  39 # open temp work filename
  40 $destPathname = $sourcePathname . '.tmp';
  41 open (DEST, '>' . $destPathname) or die "failed to open dest filename for writing [$destPathname]\n";
  42
  43 # initialize state
  44 $oldClassName   = $ARGV[1];
  45 $newClassName   = $ARGV[2];
  46 $attributeName  = $ARGV[3];
  47
  48 $currentState   = $SCAN_OUTSIDE;
  49 $writeValue     = $ARGV[4];
  50
  51 # process each line from source file
  52 while (<SOURCE>)
  53 {
  54         SWITCH:
  55         {
  56                 if ($currentState == $SCAN_OUTSIDE)
  57                         {
  58                                 # check for new states
  59                                 if (/^\@class $oldClassName/)
  60                                 {
  61                                         $currentState = $SCAN_OLD_CLASS;
  62                                 }
  63                                 elsif (/^\@class $newClassName/)
  64                                 {
  65                                         $currentState = $SCAN_NEW_CLASS;
  66                                 }
  67
  68                                 # always copy input
  69                                 print DEST;
  70
  71                                 last SWITCH;
  72                         }
  73
  74                 if ($currentState == $SCAN_OLD_CLASS)
  75                         {
  76                                 # check for new states
  77                                 if (/^$attributeName\s=\s(.*)$/)
  78                                 {
  79                                         # found the old attribute, save its setting.
  80                                         # do not emit the attribute in the new file (we're moving it)
  81                                         $writeValue = $1;
  82                                 }
  83                                 else
  84                                 {
  85                                         # for all other input, we do copy the input
  86                                         if (/^\@class\s(.*)\s$/)
  87                                         {
  88                                                 # we're in the old class, moving to a new class
  89                                                 if ($1 eq $newClassName)
  90                                                 {
  91                                                         $currentState = $SCAN_NEW_CLASS;
  92                                                 }
  93                                                 else
  94                                                 {
  95                                                         $currentState = $SCAN_OUTSIDE;
  96                                                 }
  97                                         }
  98
  99                                         # copy the input
 100                                         print DEST;
 101                                 }
 102                                 last SWITCH;
 103                         }
 104
 105                 if ($currentState == $SCAN_NEW_CLASS)
 106                         {
 107                                 if (/^$attributeName\s=/)
 108                                 {
 109                                         # found the attribute in the new class, replace it.
 110                                         # do not emit the attribute in the new file (we're moving it)
 111
 112                                         print DEST "$attributeName = $writeValue\n";
 113
 114                                         # we're done, copy the rest
 115                                         $currentState = $COPY_REMAINDER;
 116                                 }
 117                                 else
 118                                 {
 119                                         # for all other input, we do copy the input
 120
 121                                         if (/^\@class\s/)
 122                                         {
 123                                                 # we're moving to a new class, need to inject the attribute since it hasn't appeared yet.
 124                                                 print DEST "$attributeName = $writeValue\n\n";
 125
 126                                                 # we're done, copy the rest
 127                                                 $currentState = $COPY_REMAINDER;
 128                                         }
 129
 130                                         # copy the input
 131                                         print DEST;
 132                                 }
 133
 134                                 last SWITCH;
 135                         }
 136
 137                 if ($currentState == $COPY_REMAINDER)
 138                         {
 139                                 # always copy input
 140                                 print DEST;
 141
 142                                 last SWITCH;
 143                         }
 144
 145                 die "unknown state $currentState\n";
 146         }
 147 }
 148
 149 # let all states deal with the end-of-source-file event
 150 {
 151         SWITCH:
 152         {
 153                 if ($currentState == $SCAN_OUTSIDE)
 154                         {
 155                                 # print missing class and attribute
 156                                 print DEST "\n\@class $newClassName\n$attributeName = $writeValue\n";
 157
 158                                 last SWITCH;
 159                         }
 160                 if ($currentState == $SCAN_OLD_CLASS)
 161                         {
 162                                 # print missing class and attribute
 163                                 print DEST "\n\@class $newClassName\n$attributeName = $writeValue\n";
 164
 165                                 last SWITCH;
 166                         }
 167                 if ($currentState == $SCAN_NEW_CLASS)
 168                         {
 169                                 # print missing attribute
 170                                 print DEST "$attributeName = $writeValue\n";
 171
 172                                 last SWITCH;
 173                         }
 174                 if ($currentState == $COPY_REMAINDER)
 175                         {
 176                                 # nothing to do
 177                                 last SWITCH;
 178                         }
 179
 180                 die "unknown state $currentState\n";
 181         }
 182 }
 183
 184 # close the source and dest file
 185 close SOURCE;
 186 close DEST;
 187
 188 # rename dest filename to source filename, clobbering the original source
 189 rename $destPathname, $sourcePathname