annotate variant_effect_predictor/Bio/EnsEMBL/Utils/ConfigRegistry.pm @ 0:1f6dce3d34e0

Uploaded
author mahtabm
date Thu, 11 Apr 2013 02:01:53 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
1 =head1 LICENSE
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
2
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
3 Copyright (c) 1999-2012 The European Bioinformatics Institute and
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
4 Genome Research Limited. All rights reserved.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
5
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
6 This software is distributed under a modified Apache license.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
7 For license details, please see
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
8
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
9 http://www.ensembl.org/info/about/code_licence.html
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
10
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
11 =head1 CONTACT
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
12
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
13 Please email comments or questions to the public Ensembl
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
14 developers list at <dev@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
15
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
16 Questions may also be sent to the Ensembl help desk at
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
17 <helpdesk@ensembl.org>.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
18
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
19 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
20
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
21 =head1 NAME
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
22
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
23 Bio::EnsEMBL::Utils::ConfigRegistry;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
24
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
25 =head1 SYNOPSIS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
26
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
27
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
28 Bio::EnsEMBL::Utils::ConfigRegistry->load_core($dba);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
29
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
30
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
31 =head1 DESCRIPTION
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
32
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
33 The ConfigRegistry will "Register" a set of adaptors based on the type
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
34 of database that is being loaded.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
35
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
36 =head1 METHODS
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
37
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
38 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
39
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
40 package Bio::EnsEMBL::Utils::ConfigRegistry;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
41
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
42 use strict;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
43 use warnings;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
44
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
45 use Bio::EnsEMBL::Registry;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
46 my $reg = "Bio::EnsEMBL::Registry";
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
47 use Bio::EnsEMBL::Utils::Argument qw(rearrange);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
48 use Bio::EnsEMBL::DBSQL::DBConnection;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
49 use Bio::EnsEMBL::DBSQL::DBAdaptor;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
50
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
51 use Bio::EnsEMBL::Utils::Exception qw(warning throw deprecate stack_trace_dump);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
52
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
53
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
54
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
55 sub gen_load {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
56 my ($dba) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
57 my $config_sub;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
58
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
59 # At some point we hope to set the group in the DBadaptor, hence this
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
60 # long check etc. should be simpler.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
61
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
62 if ( $dba->isa('Bio::EnsEMBL::Compara::DBSQL::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
63 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
64 $dba->group('compara');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
65 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
66 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_compara;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
67 } elsif ( $dba->isa('Bio::EnsEMBL::Lite::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
68 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
69 $dba->group('lite');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
70 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
71 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_lite;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
72 } elsif ( $dba->isa('Bio::EnsEMBL::External::BlastAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
73 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
74 $dba->group('blast');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
75 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
76 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_blast;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
77 } elsif ( $dba->isa('Bio::EnsEMBL::ExternalData::SNPSQL::DBAdaptor') )
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
78 {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
79 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
80 $dba->group('SNP');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
81 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
82 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_SNP;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
83 } elsif ( $dba->isa('Bio::EnsEMBL::Pipeline::DBSQL::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
84 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
85 $dba->group('pipeline');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
86 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
87 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_pipeline;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
88 } elsif ( $dba->isa('Bio::EnsEMBL::Hive::DBSQL::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
89 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
90 $dba->group('hive');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
91 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
92 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_hive;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
93 } elsif (
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
94 $dba->isa('Bio::EnsEMBL::ExternalData::Haplotype::DBAdaptor') )
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
95 {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
96 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
97 $dba->group('haplotype');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
98 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
99 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_haplotype;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
100 } elsif ( $dba->isa('Bio::EnsEMBL::Variation::DBSQL::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
101 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
102 $dba->group('variation');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
103 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
104 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_variation;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
105 } elsif ( $dba->isa('Bio::EnsEMBL::Funcgen::DBSQL::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
106 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
107 $dba->group('funcgen');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
108 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
109 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_funcgen;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
110 } elsif ( $dba->isa('Bio::Ensembl::DBSQL::OntologyTermAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
111 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
112 $dba->group('ontology');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
113 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
114 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_ontology;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
115 } elsif ( $dba->isa('Bio::EnsEMBL::DBSQL::DBAdaptor') ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
116 #vega uses the core DBAdaptor so test if vega is in the dbname
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
117 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
118 $dba->group('core');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
119 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
120
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
121 if ( $dba->group eq "estgene" ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
122 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_estgene;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
123 } elsif ( $dba->group eq "otherfeatures" ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
124 $config_sub =
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
125 \&Bio::EnsEMBL::Utils::ConfigRegistry::load_otherfeatures;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
126 } elsif ( $dba->group eq 'vega' || $dba->group eq 'vega_update' ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
127 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_vega;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
128 } else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
129 $config_sub = \&Bio::EnsEMBL::Utils::ConfigRegistry::load_core;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
130 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
131
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
132 } else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
133 # none standard DBA adaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
134 if ( !defined( $dba->group() ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
135 $dba->group('none_standard');
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
136 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
137 $config_sub =
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
138 \&Bio::EnsEMBL::Utils::ConfigRegistry::load_and_attach_dnadb_to_core;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
139 # throw("Unknown DBAdaptor type $dba\n");
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
140 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
141
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
142 # return if the connection and species, group are the same
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
143
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
144 if ( defined( $dba->species ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
145 my $db_reg = $reg->get_DBAdaptor( $dba->species, $dba->group, 1 );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
146 if ( defined($db_reg) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
147 if ( $dba->dbc->equals( $db_reg->dbc ) ) { return $db_reg }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
148 else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
149 my $msg =
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
150 sprintf( 'WARN: Species (%s) and group (%s) '
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
151 . 'same for two seperate databases',
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
152 $dba->species(), $dba->group() );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
153
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
154 warn "${msg}\nModify species name for one of these\n";
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
155 $dba->species(
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
156 find_unique_species( $dba->species, $dba->group ) );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
157 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
158 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
159 } else { # no species
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
160
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
161 my @db_reg =
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
162 @{ $reg->get_all_DBAdaptors_by_connection( $dba->dbc ) };
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
163
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
164 foreach my $db_adaptor (@db_reg) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
165 if ( $db_adaptor->group eq $dba->group ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
166 # found same db connection and group
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
167 return $db_adaptor;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
168 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
169 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
170
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
171 $dba->species( find_unique_species( "DEFAULT", $dba->group ) );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
172 if ( $dba->species ne "DEFAULT" ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
173 warn "WARN: For multiple species "
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
174 . "use species attribute in DBAdaptor->new()\n";
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
175 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
176 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
177
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
178 Bio::EnsEMBL::Registry->add_DBAdaptor( $dba->species(), $dba->group(),
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
179 $dba );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
180
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
181 #call the loading subroutine. (add the adaptors to the DBAdaptor)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
182 &{$config_sub}($dba);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
183
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
184 return $dba;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
185 } ## end sub gen_load
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
186
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
187
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
188
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
189 sub find_unique_species {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
190 my ( $species, $group ) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
191
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
192 $reg->add_alias( $species, $species );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
193
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
194 my $i = 0;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
195 my $free = 0;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
196
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
197 while ( !$free ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
198 if ( $i == 0 ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
199 if ( !defined( $reg->get_DBAdaptor( $species, $group ) ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
200 $free = 1;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
201 $i = "";
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
202 } else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
203 $i = 1;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
204 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
205 } else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
206 # set needed self alias
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
207 $reg->add_alias( $species . $i, $species . $i );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
208
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
209 if ( !defined( $reg->get_DBAdaptor( $species . $i, $group ) ) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
210 $free = 1;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
211 } else {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
212 $i++;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
213 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
214 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
215 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
216
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
217 $species .= $i;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
218 return ($species);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
219 } ## end sub find_unique_species
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
220
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
221
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
222
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
223 sub load_adaptors {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
224 my ($dba) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
225
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
226 my %pairs = %{ $dba->get_available_adaptors() };
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
227
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
228 while ( my ( $key, $value ) = each(%pairs) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
229 Bio::EnsEMBL::Registry->add_adaptor( $dba->species(), $dba->group(),
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
230 $key, $value );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
231 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
232 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
233
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
234 sub load_and_attach_dnadb_to_core {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
235 my ($dba) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
236
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
237 load_adaptors($dba);
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
238 $reg->add_DNAAdaptor( $dba->species(), $dba->group(), $dba->species(),
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
239 'core' );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
240 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
241
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
242
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
243 =head2 load_core
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
244 Arg [1] : DBAdaptor with DBConnection already attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
245 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
246 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
247 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
248 sub load_core { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
249
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
250
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
251 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
252 # 1) core. no need to add dnadb
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
253 # 2) not core add dnadb
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
254 # 3)
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
255 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
256
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
257 =head2 load_compara
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
258 Arg [1] : DBAdaptor with DBConnection already attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
259 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
260 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
261 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
262 sub load_compara { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
263
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
264 =head2 load_hive
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
265 Arg [1] : DBAdaptor with DBConnection already attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
266 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
267 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
268 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
269 sub load_hive { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
270
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
271 =head2 load_pipeline
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
272 Arg [1] : DBAdaptor with DBConnection already attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
273 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
274 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
275 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
276 sub load_pipeline { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
277
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
278 =head2 load_SNP
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
279 Arg [1] : DBAdaptor with DBConnection already attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
280 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
281 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
282 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
283 sub load_SNP { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
284
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
285 sub load_haplotype { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
286
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
287 sub load_ontology { load_adaptors(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
288
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
289
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
290 # these that need to attach to the core to get the sequence data
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
291
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
292 sub load_estgene { load_and_attach_dnadb_to_core(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
293
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
294 sub load_variation { load_and_attach_dnadb_to_core(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
295
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
296 sub load_funcgen { load_and_attach_dnadb_to_core(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
297
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
298 =head2 load_otherfeatures
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
299 Arg [1] : DBAdaptor with DBConnection alredy attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
300 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
301 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
302
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
303 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
304 sub load_otherfeatures { load_and_attach_dnadb_to_core(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
305
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
306 =head2 load_vega
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
307 Arg [1] : DBAdaptor with DBConnection already attached
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
308 Returntype : DBAdaptor
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
309 Exceptions : none
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
310 =cut
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
311 sub load_vega { load_and_attach_dnadb_to_core(@_) }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
312
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
313
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
314 sub add_alias {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
315 my ( $class, @args ) = @_;
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
316
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
317 my ( $species, $aliases ) = rearrange( [qw(SPECIES ALIAS)], @args );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
318
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
319 # Make sure it exists itself
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
320 Bio::EnsEMBL::Registry->add_alias( $species, $species );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
321
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
322 if ( defined($aliases) ) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
323 foreach my $ali (@$aliases) {
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
324 Bio::EnsEMBL::Registry->add_alias( $species, $ali );
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
325 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
326 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
327 }
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
328
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
329 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
330 # overwrite/load new types. Done this way to enable no changes to CVS for
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
331 # external users. External users should add there own "GROUPS" in the file
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
332 # User_defined_load.
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
333 #
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
334
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
335 eval{ require Bio::EnsEMBL::Utils::User_defined_load };
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
336
1f6dce3d34e0 Uploaded
mahtabm
parents:
diff changeset
337 1;