[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.9, Mon Aug 15 20:29:10 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    =item attribute
54    
55    Move the attributes from the old features to the ones that replaced them.
56    
57  =back  =back
58    
# Line 155  Line 167 
167  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
168  records the translation will immediately follow the location.  records the translation will immediately follow the location.
169    
170    =item sql
171    
172    Trace SQL commands.
173    
174    =back
175    
176  =cut  =cut
177    
178  use strict;  use strict;
# Line 170  Line 188 
188  use ApplyTransactions;  use ApplyTransactions;
189  use CountTransactions;  use CountTransactions;
190  use AnnotateTransactions;  use AnnotateTransactions;
191    use AttributeTransactions;
192  use FixTransactions;  use FixTransactions;
193    use MoveAliases;
194    
195  # Get the command-line options.  # Get the command-line options.
196  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 },
197                                                      @ARGV);
198    # Get the command.
199    my $mainCommand = lc shift @parameters;
200  # Set up tracing.  # Set up tracing.
201  my $traceLevel = $options->{trace};  my $traceLevel = $options->{trace};
202  TSetup("$traceLevel Tracer DocUtils FIG", "TEXT");  my $tracing = "$traceLevel Tracer DocUtils FIG";
203    if ($options->{sql}) {
204        $tracing .= " SQL";
205    }
206    TSetup($tracing, "TEXT");
207  # Get the FIG object.  # Get the FIG object.
208  my $fig = FIG->new();  my $fig = FIG->new();
 # Get the command.  
 my $mainCommand = lc shift @parameters;  
209  # Create the transaction object.  # Create the transaction object.
210  my $controlBlock;  my $controlBlock;
211  if ($mainCommand eq 'count' || $mainCommand eq 'register') {  if ($mainCommand eq 'count' || $mainCommand eq 'register') {
# Line 189  Line 214 
214      $controlBlock = ApplyTransactions->new($options, $mainCommand, @parameters);      $controlBlock = ApplyTransactions->new($options, $mainCommand, @parameters);
215  } elsif ($mainCommand eq 'annotate') {  } elsif ($mainCommand eq 'annotate') {
216      $controlBlock = AnnotateTransactions->new($options, $mainCommand, @parameters);      $controlBlock = AnnotateTransactions->new($options, $mainCommand, @parameters);
217  } elsif ($mainCommand eq 'fix') {  } elsif ($mainCommand eq 'fix' || $mainCommand eq 'check') {
218      $controlBlock = FixTransactions->new($options, $mainCommand, @parameters);      $controlBlock = FixTransactions->new($options, $mainCommand, @parameters);
219    } elsif ($mainCommand eq 'aliasmove') {
220        $controlBlock = MoveAliases->new($options, $mainCommand, @parameters);
221    } elsif ($mainCommand eq 'attribute') {
222        $controlBlock = AttributeTransactions->new($options, $mainCommand, @parameters);
223  } else {  } else {
224      Confess("Invalid command \"$mainCommand\" specified on command line.");      Confess("Invalid command \"$mainCommand\" specified on command line.");
225  }  }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3