Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
ensembl-gh-mirror
ensembl-hive
Commits
b962f38c
Commit
b962f38c
authored
Oct 30, 2013
by
Leo Gordon
Browse files
switch to calling dataflow_rules "local" to analyses instead of using the global collection
parent
b556650f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
15 deletions
+21
-15
modules/Bio/EnsEMBL/Hive/Utils/Graph.pm
modules/Bio/EnsEMBL/Hive/Utils/Graph.pm
+21
-15
No files found.
modules/Bio/EnsEMBL/Hive/Utils/Graph.pm
View file @
b962f38c
...
...
@@ -224,22 +224,28 @@ sub build {
}
if
(
$self
->
config_get
('
DisplaySemaphoreBoxes
')
)
{
my
%cluster_2_nodes
=
(
# initialize with top clusters
''
=>
[
map
{
_midpoint_name
(
$_
)
}
grep
{
$_
->
{'
_is_a_funnel
'}
and
!
$_
->
{'
_funnel_dfr
'}
}
$all_dataflow_rules_coll
->
list
]
);
foreach
(
$all_analyses_coll
->
list
)
{
if
(
my
$funnel
=
$_
->
{'
_funnel_dfr
'})
{
push
@
{
$cluster_2_nodes
{
_midpoint_name
(
$funnel
)
}
},
_analysis_node_name
(
$_
);
}
}
foreach
(
grep
{
UNIVERSAL::
isa
(
$_
->
to_analysis
,'
Bio::EnsEMBL::Hive::NakedTable
')
}
$all_dataflow_rules_coll
->
list
)
{
if
(
my
$funnel
=
$_
->
to_analysis
->
{'
_funnel_dfr
'})
{
push
@
{
$cluster_2_nodes
{
_midpoint_name
(
$funnel
)
}
},
$self
->
_table_node_name
(
$_
);
my
%cluster_2_nodes
=
();
foreach
my
$analysis
(
$all_analyses_coll
->
list
)
{
if
(
my
$funnel
=
$analysis
->
{'
_funnel_dfr
'})
{
push
@
{
$cluster_2_nodes
{
_midpoint_name
(
$funnel
)
}
},
_analysis_node_name
(
$analysis
);
}
}
foreach
(
$all_dataflow_rules_coll
->
list
)
{
if
(
my
$funnel
=
$_
->
{'
_funnel_dfr
'})
{
push
@
{
$cluster_2_nodes
{
_midpoint_name
(
$funnel
)
}
},
_midpoint_name
(
$_
);
foreach
my
$df_rule
(
@
{
$analysis
->
dataflow_rules_collection
}
)
{
if
(
$df_rule
->
{'
_is_a_funnel
'}
and
!
$df_rule
->
{'
_funnel_dfr
'}
)
{
push
@
{
$cluster_2_nodes
{
''
}},
_midpoint_name
(
$df_rule
);
# top-level funnels define clusters (top-level "boxes")
}
elsif
(
UNIVERSAL::
isa
(
$df_rule
->
to_analysis
,'
Bio::EnsEMBL::Hive::NakedTable
')
)
{
if
(
my
$funnel
=
$df_rule
->
to_analysis
->
{'
_funnel_dfr
'})
{
push
@
{
$cluster_2_nodes
{
_midpoint_name
(
$funnel
)
}
},
$self
->
_table_node_name
(
$df_rule
);
# table belongs to the same "box" as the dataflow source
}
}
if
(
my
$funnel
=
$df_rule
->
{'
_funnel_dfr
'})
{
push
@
{
$cluster_2_nodes
{
_midpoint_name
(
$funnel
)
}
},
_midpoint_name
(
$df_rule
);
# midpoints of rules that have a funnel live inside "boxes"
}
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment