[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.4, Sun Sep 11 17:06:21 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 External
55    
56    Loads B<ExternalAliasOrg>, B<ExternalAliasFunc>.
57    
58    =item *
59    
60    Loads all of the above tables.
61    
62  =back  =back
63    
64  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 89 
89  use strict;  use strict;
90  use Tracer;  use Tracer;
91  use DocUtils;  use DocUtils;
 use TestUtils;  
92  use Cwd;  use Cwd;
93  use FIG;  use FIG;
94  use SFXlate;  use SFXlate;
# Line 87  Line 102 
102                                                      trace => 3 },                                                      trace => 3 },
103                                                                 @ARGV);                                                                 @ARGV);
104  # Set up tracing.  # Set up tracing.
105  TSetup("$options->{trace} SproutLoad ERDBLoad ERDB Tracer Load", "+>$FIG_Config::temp/trace.log");  TSetup("$options->{trace} SproutLoad ERDBLoad ERDB Stats Tracer Load", "+>$FIG_Config::temp/trace.log");
106  # Create the sprout loader object.  # Create the sprout loader object.
107  my $fig = FIG->new();  my $fig = FIG->new();
108  my $sprout = SFXlate->new_sprout_only();  my $sprout = SFXlate->new_sprout_only();
# Line 97  Line 112 
112  for my $group (@parameters) {  for my $group (@parameters) {
113      Trace("Processing load group $group.") if T(2);      Trace("Processing load group $group.") if T(2);
114      my $stats;      my $stats;
115      if ($group eq 'Genome') {      if ($group eq 'Genome' || $group eq '*') {
116          $spl->LoadGenomeData();          $spl->LoadGenomeData();
117      } elsif ($group eq 'Feature') {      }
118        if ($group eq 'Feature' || $group eq '*') {
119          $spl->LoadFeatureData();          $spl->LoadFeatureData();
120      } elsif ($group eq 'Coupling') {      }
121        if ($group eq 'Coupling' || $group eq '*') {
122          $spl->LoadCouplingData();          $spl->LoadCouplingData();
123      } elsif ($group eq 'Subsystem') {      }
124        if ($group eq 'Subsystem' || $group eq '*') {
125          $spl->LoadSubsystemData();          $spl->LoadSubsystemData();
126      } elsif ($group eq 'Property') {      }
127        if ($group eq 'Property' || $group eq '*') {
128          $spl->LoadPropertyData();          $spl->LoadPropertyData();
129      } elsif ($group eq 'Diagram') {      }
130        if ($group eq 'Diagram' || $group eq '*') {
131          $spl->LoadDiagramData();          $spl->LoadDiagramData();
132      } elsif ($group eq 'Annotation') {      }
133        if ($group eq 'Annotation' || $group eq '*') {
134          $spl->LoadAnnotationData();          $spl->LoadAnnotationData();
135      } elsif ($group eq 'BBH') {      }
136        if ($group eq 'BBH' || $group eq '*') {
137          $spl->LoadBBHData();          $spl->LoadBBHData();
     } else {  
         Confess("Invalid group name $group.");  
138      }      }
139        if ($group eq 'Group' || $group eq '*') {
140            $spl->LoadGroupData();
141        }
142        if ($group eq 'Source' || $group eq '*') {
143            $spl->LoadSourceData();
144        }
145        if ($group eq 'External' || $group eq '*') {
146            $spl->LoadExternalData();
147        }
148    
149  }  }
150  Trace("Load complete.") if T(2);  Trace("Load complete.") if T(2);
151    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3