[Bio] / FigKernelScripts / TransactFeatures.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/TransactFeatures.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7, Thu Aug 11 16:36:01 2005 UTC revision 1.8, Fri Aug 12 09:33:50 2005 UTC
# Line 46  Line 46 
46    
47  Fix the locations and translations of the new and changed features.  Fix the locations and translations of the new and changed features.
48    
49    =item aliasMove
50    
51    Move the aliases from the old features to the ones that replaced them.
52    
53  =back  =back
54    
55  =head2 The Transaction File  =head2 The Transaction File
# Line 159  Line 163 
163  Assume that the transaction files do not contain aliases. This means that in CHANGE  Assume that the transaction files do not contain aliases. This means that in CHANGE
164  records the translation will immediately follow the location.  records the translation will immediately follow the location.
165    
166    =item sql
167    
168    Trace SQL commands.
169    
170    =back
171    
172  =cut  =cut
173    
174  use strict;  use strict;
# Line 175  Line 185 
185  use CountTransactions;  use CountTransactions;
186  use AnnotateTransactions;  use AnnotateTransactions;
187  use FixTransactions;  use FixTransactions;
188    use MoveAliases;
189    
190  # Get the command-line options.  # Get the command-line options.
191  my ($options, @parameters) = Tracer::ParseCommand({ trace => 3, safe => 0, noAlias => 0 }, @ARGV);  my ($options, @parameters) = Tracer::ParseCommand({ trace => 3, sql => 0, safe => 0, noAlias => 0 },
192                                                      @ARGV);
193    # Get the command.
194    my $mainCommand = lc shift @parameters;
195  # Set up tracing.  # Set up tracing.
196  my $traceLevel = $options->{trace};  my $traceLevel = $options->{trace};
197  TSetup("$traceLevel Tracer DocUtils FIG", "TEXT");  my $tracing = "$traceLevel Tracer DocUtils FIG";
198    if ($options->{sql}) {
199        $tracing .= " SQL";
200    }
201    TSetup($tracing, "TEXT");
202  # Get the FIG object.  # Get the FIG object.
203  my $fig = FIG->new();  my $fig = FIG->new();
 # Get the command.  
 my $mainCommand = lc shift @parameters;  
204  # Create the transaction object.  # Create the transaction object.
205  my $controlBlock;  my $controlBlock;
206  if ($mainCommand eq 'count' || $mainCommand eq 'register') {  if ($mainCommand eq 'count' || $mainCommand eq 'register') {
# Line 195  Line 211 
211      $controlBlock = AnnotateTransactions->new($options, $mainCommand, @parameters);      $controlBlock = AnnotateTransactions->new($options, $mainCommand, @parameters);
212  } elsif ($mainCommand eq 'fix' || $mainCommand eq 'check') {  } elsif ($mainCommand eq 'fix' || $mainCommand eq 'check') {
213      $controlBlock = FixTransactions->new($options, $mainCommand, @parameters);      $controlBlock = FixTransactions->new($options, $mainCommand, @parameters);
214    } elsif ($mainCommand eq 'aliasmove') {
215        $controlBlock = MoveAliases->new($options, $mainCommand, @parameters);
216  } else {  } else {
217      Confess("Invalid command \"$mainCommand\" specified on command line.");      Confess("Invalid command \"$mainCommand\" specified on command line.");
218  }  }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3