[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.6, Thu Aug 11 05:16:46 2005 UTC revision 1.8, Fri Aug 12 09:33:50 2005 UTC
# Line 37  Line 37 
37  Annotate the features created by the transactions so as to indicate how they were  Annotate the features created by the transactions so as to indicate how they were
38  derived.  derived.
39    
40    =item check
41    
42    Verify that the locations and translations of the new and changed features are
43    correct.
44    
45  =item fix  =item fix
46    
47  Fix the locations of new features and verify the translations of new and changed  Fix the locations and translations of the new and changed features.
48  features.  
49    =item aliasMove
50    
51    Move the aliases from the old features to the ones that replaced them.
52    
53  =back  =back
54    
# Line 155  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 171  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 189  Line 209 
209      $controlBlock = ApplyTransactions->new($options, $mainCommand, @parameters);      $controlBlock = ApplyTransactions->new($options, $mainCommand, @parameters);
210  } elsif ($mainCommand eq 'annotate') {  } elsif ($mainCommand eq 'annotate') {
211      $controlBlock = AnnotateTransactions->new($options, $mainCommand, @parameters);      $controlBlock = AnnotateTransactions->new($options, $mainCommand, @parameters);
212  } elsif ($mainCommand eq 'fix') {  } 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.6  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3