[Bio] / Sprout / LoadSproutTables.pl Repository:
ViewVC logotype

Diff of /Sprout/LoadSproutTables.pl

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

revision 1.22, Sun Mar 26 17:28:20 2006 UTC revision 1.23, Tue Mar 28 02:40:28 2006 UTC
# Line 229  Line 229 
229                                                dbLoad => [0, "load the database from generated files"],                                                dbLoad => [0, "load the database from generated files"],
230                                                dbCreate => [0, "drop and re-create the database"],                                                dbCreate => [0, "drop and re-create the database"],
231                                                loadOnly => [0, "load the database from previously generated files"],                                                loadOnly => [0, "load the database from previously generated files"],
232                                                primaryOnly => [0, "only process the group's main entity"]                                                primaryOnly => [0, "only process the group's main entity"],
233                                                  resume => [0, "resume a complete load starting with the first group specified in the parameter list"],
234                                              },                                              },
235                                              "<group1> <group2> ...",                                              "<group1> <group2> ...",
236                                              @ARGV);                                              @ARGV);
# Line 249  Line 250 
250  my $spl = SproutLoad->new($sprout, $fig, $options->{geneFile}, $options->{subsysFile}, $options);  my $spl = SproutLoad->new($sprout, $fig, $options->{geneFile}, $options->{subsysFile}, $options);
251  # Insure we have an output directory.  # Insure we have an output directory.
252  FIG::verify_dir($FIG_Config::sproutData);  FIG::verify_dir($FIG_Config::sproutData);
253    # If we're resuming, we only want to have 1 parameter.
254    my $resume = $options->{resume};
255    if ($resume && @parameters > 1) {
256        Confess("If resume=1, only one load group can be specified.");
257    } elsif (! @parameters) {
258        Confess("No load groups were specified.");
259    }
260  # Process the parameters.  # Process the parameters.
261  for my $group (@parameters) {  for my $group (@parameters) {
262      Trace("Processing load group $group.") if T(2);      Trace("Processing load group $group.") if T(2);
263      my $stats;      my $stats;
264      if ($group eq 'Genome' || $group eq '*') {      if ($group eq 'Genome' || $group eq '*') {
265          $spl->LoadGenomeData();          $spl->LoadGenomeData();
266            ResumeCheck($resume);
267      }      }
268      if ($group eq 'Feature' || $group eq '*') {      if ($group eq 'Feature' || $group eq '*') {
269          $spl->LoadFeatureData();          $spl->LoadFeatureData();
270            ResumeCheck($resume);
271      }      }
272      if ($group eq 'Coupling' || $group eq '*') {      if ($group eq 'Coupling' || $group eq '*') {
273          $spl->LoadCouplingData();          $spl->LoadCouplingData();
274            ResumeCheck($resume);
275      }      }
276      if ($group eq 'Subsystem' || $group eq '*') {      if ($group eq 'Subsystem' || $group eq '*') {
277          $spl->LoadSubsystemData();          $spl->LoadSubsystemData();
278            ResumeCheck($resume);
279      }      }
280      if ($group eq 'Property' || $group eq '*') {      if ($group eq 'Property' || $group eq '*') {
281          $spl->LoadPropertyData();          $spl->LoadPropertyData();
282            ResumeCheck($resume);
283      }      }
284      if ($group eq 'Annotation' || $group eq '*') {      if ($group eq 'Annotation' || $group eq '*') {
285          $spl->LoadAnnotationData();          $spl->LoadAnnotationData();
286            ResumeCheck($resume);
287      }      }
288      if ($group eq 'BBH' || $group eq '*') {      if ($group eq 'BBH' || $group eq '*') {
289          $spl->LoadBBHData();          $spl->LoadBBHData();
290            ResumeCheck($resume);
291      }      }
292      if ($group eq 'Group' || $group eq '*') {      if ($group eq 'Group' || $group eq '*') {
293          $spl->LoadGroupData();          $spl->LoadGroupData();
294            ResumeCheck($resume);
295      }      }
296      if ($group eq 'Source' || $group eq '*') {      if ($group eq 'Source' || $group eq '*') {
297          $spl->LoadSourceData();          $spl->LoadSourceData();
298            ResumeCheck($resume);
299      }      }
300      if ($group eq 'External' || $group eq '*') {      if ($group eq 'External' || $group eq '*') {
301          $spl->LoadExternalData();          $spl->LoadExternalData();
302            ResumeCheck($resume);
303      }      }
304      if ($group eq 'Reaction' || $group eq '*') {      if ($group eq 'Reaction' || $group eq '*') {
305          $spl->LoadReactionData();          $spl->LoadReactionData();
306            ResumeCheck($resume);
307      }      }
308    
309  }  }
310  Trace("Load complete.") if T(2);  Trace("Load complete.") if T(2);
311    
312    # If the resume flag is set, return "*", else return "".
313    sub ResumeCheck {
314        my ($resume) = @_;
315        return ($resume ? "*" : "");
316    }
317    
318  1;  1;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3