[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.2, Sun Aug 14 23:32:08 2005 UTC revision 1.3, Fri Sep 9 14:54:44 2005 UTC
# Line 2  Line 2 
2    
3  =head1 Load Sprout Tables  =head1 Load Sprout Tables
4    
5  Load a group of Sprout tables from the command line. The parameters are the names of  Create the load files for a group of Sprout tables. The parameters are the names of
6  the table groups to load. The legal table group names are given below.  the table groups whose data is to be created. The legal table group names are given below.
7    
8  =over 4  =over 4
9    
# Line 43  Line 43 
43    
44  Loads B<IsBidirectionalBestHitOf>.  Loads B<IsBidirectionalBestHitOf>.
45    
46    =item Group
47    
48    Loads B<GenomeGroups>.
49    
50    =item Source
51    
52    Loads B<Source>, B<ComesFrom>, B<SourceURL>.
53    
54    =item *
55    
56    Loads all of the above tables.
57    
58  =back  =back
59    
60  There are two command-line options, given below. Note that in the command line, spaces  There are two command-line options, given below. Note that in the command line, spaces
# Line 73  Line 85 
85  use strict;  use strict;
86  use Tracer;  use Tracer;
87  use DocUtils;  use DocUtils;
 use TestUtils;  
88  use Cwd;  use Cwd;
89  use FIG;  use FIG;
90  use SFXlate;  use SFXlate;
# Line 97  Line 108 
108  for my $group (@parameters) {  for my $group (@parameters) {
109      Trace("Processing load group $group.") if T(2);      Trace("Processing load group $group.") if T(2);
110      my $stats;      my $stats;
111      if ($group eq 'Genome') {      if ($group eq 'Genome' || $group eq '*') {
112          $spl->LoadGenomeData();          $spl->LoadGenomeData();
113      } elsif ($group eq 'Feature') {      }
114        if ($group eq 'Feature' || $group eq '*') {
115          $spl->LoadFeatureData();          $spl->LoadFeatureData();
116      } elsif ($group eq 'Coupling') {      }
117        if ($group eq 'Coupling' || $group eq '*') {
118          $spl->LoadCouplingData();          $spl->LoadCouplingData();
119      } elsif ($group eq 'Subsystem') {      }
120        if ($group eq 'Subsystem' || $group eq '*') {
121          $spl->LoadSubsystemData();          $spl->LoadSubsystemData();
122      } elsif ($group eq 'Property') {      }
123        if ($group eq 'Property' || $group eq '*') {
124          $spl->LoadPropertyData();          $spl->LoadPropertyData();
125      } elsif ($group eq 'Diagram') {      }
126        if ($group eq 'Diagram' || $group eq '*') {
127          $spl->LoadDiagramData();          $spl->LoadDiagramData();
128      } elsif ($group eq 'Annotation') {      }
129        if ($group eq 'Annotation' || $group eq '*') {
130          $spl->LoadAnnotationData();          $spl->LoadAnnotationData();
131      } elsif ($group eq 'BBH') {      }
132        if ($group eq 'BBH' || $group eq '*') {
133          $spl->LoadBBHData();          $spl->LoadBBHData();
     } else {  
         Confess("Invalid group name $group.");  
134      }      }
135        if ($group eq 'Groups' || $group eq '*') {
136            $spl->LoadGroupData();
137        }
138        if ($group eq 'Source' || $group eq '*') {
139            $spl->LoadSourceData();
140        }
141    
142  }  }
143  Trace("Load complete.") if T(2);  Trace("Load complete.") if T(2);
144    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3