Initial revision

modules/Bio/EnsEMBL/Hive/AnalysisJob.pm

+#
+# You may distribute this module under the same terms as perl itself
+#
+# POD documentation - main docs before the code
+
+=pod 
+
+=head1 NAME
+
+Bio::EnsEMBL::Hive::AnalysisJob
+
+=cut
+
+=head1 SYNOPSIS
+
+Object which encapsulates the details of how to find jobs, how to run those
+jobs, and then checked the rules to create the next jobs in the chain.
+Essentially knows where to find data, how to process data, and where to
+put it when it's done (put in next person's INBOX) so the next Worker
+in the chain can find data to work on.
+
+Hive based processing is a concept based on a more controlled version
+of an autonomous agent type system.  Each worker is not told what to do
+(like a centralized control system - like the current pipeline system)
+but rather queries a central database for jobs (give me jobs).
+
+Each worker is linked to an analysis_id, registers its self on creation
+into the Hive, creates a RunnableDB instance of the Analysis->module,
+gets $runnable->batch_size() jobs from the analysis_job table, does its
+work, creates the next layer of analysis_job entries by querying simple_rule
+table where condition_analysis_id = $self->analysis_id.  It repeats
+this cycle until it's lived it's lifetime or until there are no more jobs left.
+The lifetime limit is just a safety limit to prevent these from 'infecting'
+a system.
+
+The Queens job is to simply birth Workers of the correct analysis_id to get the
+work down.  The only other thing the Queen does is free up jobs that were
+claimed by Workers that died unexpectantly so that other workers can take
+over the work.
+
+=cut
+
+=head1 DESCRIPTION
+
+=cut
+
+=head1 CONTACT
+
+Jessica Severin, jessica@ebi.ac.uk
+
+=cut
+
+=head1 APPENDIX
+
+The rest of the documentation details each of the object methods. 
+Internal methods are usually preceded with a _
+
+=cut
+
+package Bio::EnsEMBL::Hive::AnalysisJob;
+
+use strict;
+
+use Bio::EnsEMBL::Root;
+use Bio::EnsEMBL::Analysis;
+use Bio::EnsEMBL::DBSQL::DBAdaptor;
+use Bio::EnsEMBL::Hive::Worker;
+
+use vars qw(@ISA);
+
+@ISA = qw(Bio::EnsEMBL::Root);
+
+
+sub adaptor {
+  my $self = shift;
+  $self->{'_adaptor'} = shift if(@_);
+  return $self->{'_adaptor'};
+}
+
+sub dbID {
+  my $self = shift;
+  $self->{'_dbID'} = shift if(@_);
+  return $self->{'_dbID'};
+}
+
+sub input_id {
+  my( $self, $value ) = @_;
+  $self->{'_input_id'} = $value if($value);
+  return $self->{'_input_id'};
+}
+
+sub hive_id {
+  my $self = shift;
+  $self->{'_hive_id'} = shift if(@_);
+  return $self->{'_hive_id'};
+}
+
+sub analysis_id {
+  my( $self, $value ) = @_;
+  $self->{'_analysis_id'} = $value if($value);
+  return $self->{'_analysis_id'};
+}
+
+sub job_claim {
+  my( $self, $value ) = @_;
+  $self->{'_job_claim'} = $value if($value);
+  return $self->{'_job_claim'};
+}
+
+sub status {
+  my( $self, $value ) = @_;
+
+  if($value) {
+    $self->{'_status'} = $value;
+    $self->adaptor->update_status($self) if($self->adaptor);
+  }
+  return $self->{'_status'};
+}
+
+sub retry_count {
+  my( $self, $value ) = @_;
+  $self->{'_retry_count'} = $value if($value);
+  return $self->{'_retry_count'};
+}
+
+sub completed {
+  my( $self, $value ) = @_;
+  $self->{'_completed'} = $value if($value);
+  return $self->{'_completed'};
+}
+
+sub branch_code {
+  my( $self, $value ) = @_;
+  $self->{'_branch_code'} = $value if(defined($value));
+  $self->{'_branch_code'} = 1 unless(defined($self->{'_branch_code'}));
+  return $self->{'_branch_code'};
+}
+
+sub stdout_file {
+  my( $self, $value ) = @_;
+  $self->{'_stdout_file'} = $value if(defined($value));
+  return $self->{'_stdout_file'};
+}
+
+sub stderr_file {
+  my( $self, $value ) = @_;
+  $self->{'_stderr_file'} = $value if(defined($value));
+  return $self->{'_stderr_file'};
+}
+
+sub print_job {
+  my $self = shift;
+  print("WORKER: hive_id=",$self->hive_id,
+     " host=",$self->host,
+     " ppid=",$self->process_id,
+     "\n");  
+}
+
+1;

modules/Bio/EnsEMBL/Hive/DBSQL/AnalysisJobAdaptor.pm

+package Bio::EnsEMBL::Hive::AnalysisJobAdaptor;
+
+use strict;
+use Bio::EnsEMBL::Hive::Worker;
+use Bio::EnsEMBL::Hive::AnalysisJob;
+use Bio::EnsEMBL::DBSQL::BaseAdaptor;
+use Sys::Hostname;
+use Data::UUID;
+
+our @ISA = qw(Bio::EnsEMBL::DBSQL::BaseAdaptor);
+
+
+=head2 fetch_by_dbID
+
+  Arg [1]    : int $id
+               the unique database identifier for the feature to be obtained
+  Example    : $feat = $adaptor->fetch_by_dbID(1234);
+  Description: Returns the feature created from the database defined by the
+               the id $id.
+  Returntype : Bio::EnsEMBL::Hive::AnalysisJob
+  Exceptions : thrown if $id is not defined
+  Caller     : general
+
+=cut
+
+sub fetch_by_dbID {
+  my ($self,$id) = @_;
+
+  unless(defined $id) {
+    $self->throw("fetch_by_dbID must have an id");
+  }
+
+  my @tabs = $self->_tables;
+
+  my ($name, $syn) = @{$tabs[0]};
+
+  #construct a constraint like 't1.table1_id = 1'
+  my $constraint = "${syn}.${name}_id = $id";
+
+  #return first element of _generic_fetch list
+  my ($obj) = @{$self->_generic_fetch($constraint)};
+  return $obj;
+}
+
+=head2 fetch_by_claim_analysis
+  Arg [1]    : string job_claim (the UUID used to claim jobs)
+  Arg [2]    : int analysis_id  
+  Example    : $jobs = $adaptor->fetch_by_claim_analysis('c6658fde-64ab-4088-8526-2e960bd5dd60',208);
+  Description: Returns a list of jobs for a claim id
+  Returntype : Bio::EnsEMBL::Hive::AnalysisJob
+  Exceptions : thrown if claim_id or analysis_id is not defined
+  Caller     : general
+=cut
+
+sub fetch_by_claim_analysis {
+  my ($self,$claim,$analysis_id) = @_;
+
+  $self->throw("fetch_by_claim_analysis must have claim ID") unless($claim);
+  $self->throw("fetch_by_claim_analysis must have analysis_id") unless($analysis_id);
+  my $constraint = "a.job_claim='$claim' AND a.analysis_id='$analysis_id'";
+  return $self->_generic_fetch($constraint);
+}
+
+
+=head2 fetch_all
+
+  Arg        : None
+  Example    : 
+  Description: 
+  Returntype : 
+  Exceptions : 
+  Caller     : 
+
+=cut
+
+sub fetch_all {
+  my $self = shift;
+
+  return $self->_generic_fetch();
+}
+
+
+
+#
+# INTERNAL METHODS
+#
+###################
+
+=head2 _generic_fetch
+
+  Arg [1]    : (optional) string $constraint
+               An SQL query constraint (i.e. part of the WHERE clause)
+  Arg [2]    : (optional) string $logic_name
+               the logic_name of the analysis of the features to obtain
+  Example    : $fts = $a->_generic_fetch('contig_id in (1234, 1235)', 'Swall');
+  Description: Performs a database fetch and returns feature objects in
+               contig coordinates.
+  Returntype : listref of Bio::EnsEMBL::SeqFeature in contig coordinates
+  Exceptions : none
+  Caller     : BaseFeatureAdaptor, ProxyDnaAlignFeatureAdaptor::_generic_fetch
+
+=cut
+  
+sub _generic_fetch {
+  my ($self, $constraint, $join) = @_;
+  
+  my @tables = $self->_tables;
+  my $columns = join(', ', $self->_columns());
+  
+  if ($join) {
+    foreach my $single_join (@{$join}) {
+      my ($tablename, $condition, $extra_columns) = @{$single_join};
+      if ($tablename && $condition) {
+        push @tables, $tablename;
+        
+        if($constraint) {
+          $constraint .= " AND $condition";
+        } else {
+          $constraint = " $condition";
+        }
+      } 
+      if ($extra_columns) {
+        $columns .= ", " . join(', ', @{$extra_columns});
+      }
+    }
+  }
+      
+  #construct a nice table string like 'table1 t1, table2 t2'
+  my $tablenames = join(', ', map({ join(' ', @$_) } @tables));
+
+  my $sql = "SELECT $columns FROM $tablenames";
+
+  my $default_where = $self->_default_where_clause;
+  my $final_clause = $self->_final_clause;
+
+  #append a where clause if it was defined
+  if($constraint) { 
+    $sql .= " WHERE $constraint ";
+    if($default_where) {
+      $sql .= " AND $default_where ";
+    }
+  } elsif($default_where) {
+    $sql .= " WHERE $default_where ";
+  }
+
+  #append additional clauses which may have been defined
+  $sql .= " $final_clause";
+
+  my $sth = $self->prepare($sql);
+  $sth->execute;  
+
+  print STDOUT $sql,"\n";
+
+  return $self->_objs_from_sth($sth);
+}
+
+sub _tables {
+  my $self = shift;
+
+  return (['analysis_job', 'a']);
+}
+
+sub _columns {
+  my $self = shift;
+
+  return qw (a.analysis_job_id  
+             a.input_analysis_job_id
+             a.analysis_id	      
+             a.input_id 
+             a.job_claim  
+             a.hive_id	      
+             a.status 
+             a.retry_count          
+             a.completed
+             a.branch_code
+            );
+}
+
+sub _objs_from_sth {
+  my ($self, $sth) = @_;
+  
+  my %column;
+  $sth->bind_columns( \( @column{ @{$sth->{NAME_lc} } } ));
+
+  my @jobs = ();
+
+  while ($sth->fetch()) {
+    my $job = new Bio::EnsEMBL::Hive::AnalysisJob;
+
+    $job->dbID($column{'analysis_job_id'});
+    $job->analysis_id($column{'analysis_id'});
+    $job->input_id($column{'input_id'});
+    $job->job_claim($column{'job_claim'});
+    $job->hive_id($column{'hive_id'});
+    $job->status($column{'status'});
+    $job->retry_count($column{'retry_count'});
+    $job->completed($column{'completed'});
+    $job->branch_code($column{'branch_code'});
+    $job->adaptor($self);
+
+    push @jobs, $job;    
+  }
+  $sth->finish;
+  
+  return \@jobs
+}
+
+sub _default_where_clause {
+  my $self = shift;
+  return '';
+}
+
+sub _final_clause {
+  my $self = shift;
+  return '';
+}
+
+
+#
+# STORE / UPDATE METHODS
+#
+################
+
+=head2 update_status
+
+  Arg [1]    : $analysis_id
+  Example    :
+  Description:
+  Returntype : Bio::EnsEMBL::Hive::Worker
+  Exceptions :
+  Caller     :
+
+=cut
+
+sub update_status {
+  my ($self,$job) = @_;
+
+  my $sql = "UPDATE analysis_job ".
+            " SET status='".$job->status."' ";
+  $sql .= " ,completed=now(),branch_code=".$job->branch_code if($job->status eq 'DONE');
+  $sql .= " WHERE analysis_job_id='".$job->dbID."' ";
+  
+  my $sth = $self->prepare($sql);
+  $sth->execute();
+  $sth->finish;
+}
+
+=head2 store_out_files
+  Arg [1]    : Bio::EnsEMBL::Compar::Hive::AnalysisJob $job
+  Example    :
+  Description: if files are non-zero size, will update DB
+  Returntype : 
+  Exceptions :
+  Caller     :
+=cut
+
+sub store_out_files {
+  my ($self,$job) = @_;
+
+  return unless($job and ($job->stdout_file or $job->stderr_file));
+
+  my $sql = "INSERT ignore INTO analysis_job_file (analysis_job_id, type, path) VALUES ";
+  $sql .= " (" . $job->dbID. ", STDOUT, ". $job->stdout_file.")"  if($job->stdout_file);
+  $sql .= "," if($job->stdout_file and $job->stderr_file);
+  $sql .= " (" . $job->dbID. ", STDERR, ". $job->stderr_file.")"  if($job->stderr_file);
+
+  my $sth = $self->prepare($sql);
+  $sth->execute();
+  $sth->finish;
+}
+
+
+sub create_new_job {
+  my ($self, @args) = @_;
+
+  return undef unless(scalar @args);
+  
+  my ($input_id, $analysis_id, $input_analysis_job_id, $blocked) =
+     $self->_rearrange([qw(INPUT_ID ANALYSIS_ID input_job_id BLOCK )], @args);
+ 
+  $input_analysis_job_id=0 unless($input_analysis_job_id);
+  throw("must define input_id") unless($input_id);
+  throw("must define analysis_id") unless($analysis_id);
+  
+  my $sql = "INSERT ignore into analysis_job ".
+            " SET input_id=\"$input_id\" ".
+            " ,input_analysis_job_id='$input_analysis_job_id' ".
+            " ,analysis_id='$analysis_id' ";
+  $sql .= " ,status='BLOCKED', job_claim='BLOCKED'" if($blocked);
+
+  my $sth = $self->prepare($sql);
+  $sth->execute();
+  my $dbID = $sth->{'mysql_insertid'};
+  $sth->finish;
+
+  return $dbID;
+}
+
+
+sub claim_jobs_for_worker {
+  my $self     = shift;
+  my $worker   = shift;
+
+  throw("must define worker") unless($worker);
+
+  my $ug    = new Data::UUID;
+  my $uuid  = $ug->create();
+  my $claim = $ug->to_string( $uuid );
+  print("claiming jobs with uuid $claim\n");
+
+  my $sql = "UPDATE analysis_job SET job_claim='$claim'".
+            " , hive_id='". $worker->hive_id ."'".
+            " , status='CLAIMED'".
+            " WHERE job_claim='' ".
+            " AND analysis_id='" .$worker->analysis->dbID. "'".
+            " LIMIT " . $worker->batch_size;
+
+  print("$sql\n");            
+  my $sth = $self->prepare($sql);
+  $sth->execute();
+  $sth->finish;
+
+  return $claim;
+}
+
+1;
+
+

modules/Bio/EnsEMBL/Hive/DBSQL/SimpleRuleAdaptor.pm

+# Perl module for Bio::EnsEMBL::Hive::DBSQL::SimpleRuleAdaptor
+#
+# Date of creation: 22.03.2004
+# Original Creator : Jessica Severin <jessica@ebi.ac.uk>
+#
+# Copyright EMBL-EBI 2004
+#
+# You may distribute this module under the same terms as perl itself
+
+# POD documentation - main docs before the code
+
+=head1 NAME
+
+Bio::EnsEMBL::Hive::DBSQL::SimpleRuleAdaptor 
+
+=head1 SYNOPSIS
+
+  $simpleRuleAdaptor = $db_adaptor->get_SimpleRuleAdaptor;
+  $simpleRuleAdaptor = $simpleRuleObj->adaptor;
+
+=head1 DESCRIPTION
+  
+  Module to encapsulate all db access for persistent class SimpleRule.
+  There should be just one per application and database connection.
+
+=head1 CONTACT
+
+    Contact Jessica Severin on implemetation/design detail: jessica@ebi.ac.uk
+    Contact Ewan Birney on EnsEMBL in general: birney@sanger.ac.uk
+
+=head1 APPENDIX
+
+The rest of the documentation details each of the object methods. Internal methods are usually preceded with a _
+
+=cut
+
+
+# Let the code begin...
+
+
+package Bio::EnsEMBL::Hive::DBSQL::SimpleRuleAdaptor;
+
+use strict;
+use Carp;
+use Bio::EnsEMBL::DBSQL::BaseAdaptor;
+use Bio::EnsEMBL::Hive::SimpleRule;
+
+our @ISA = qw(Bio::EnsEMBL::DBSQL::BaseAdaptor);
+
+
+=head2 fetch_by_condition_analysis
+
+  Args       : Bio::EnsEMBL::Analysis
+  Example    : my @rules = @{$ruleAdaptor->fetch_by_goal($goalAnalysis)};
+  Description: searches database for rules with given goal analysis
+               returns all such rules in a list (by reference)
+  Returntype : reference to list of Bio::EnsEMBL::Pipeline::SimpleRule objects
+  Exceptions : none
+  Caller     : ?
+
+=cut
+sub fetch_by_condition_analysis
+{
+  my $self = shift;
+  my $conditionAnalysis = shift;
+  my $rule;
+  my @rules;
+  
+  $self->throw("arg is required\n")
+    unless($conditionAnalysis);
+  $self->throw("arg must be a [Bio::EnsEMBL::Analysis] not a $conditionAnalysis")
+    unless ($conditionAnalysis->isa('Bio::EnsEMBL::Analysis'));
+  $self->throw("analysis arg must be presistent\n")
+    unless($conditionAnalysis->dbID);
+
+  my $constraint = "r.condition_analysis_id = '".$conditionAnalysis->dbID."'";
+
+  return $self->_generic_fetch($constraint);
+}
+
+
+=head2 fetch_by_goal_analysis
+
+  Args       : Bio::EnsEMBL::Analysis
+  Example    : my @rules = @{$ruleAdaptor->fetch_by_goal($goalAnalysis)};
+  Description: searches database for rules with given goal analysis
+               returns all such rules in a list (by reference)
+  Returntype : reference to list of Bio::EnsEMBL::Pipeline::SimpleRule objects
+  Exceptions : none
+  Caller     : ?
+
+=cut
+sub fetch_by_goal_analysis
+{
+  my $self = shift;
+  my $goalAnalysis = shift;
+  my $rule;
+  my @rules;
+  
+  $self->throw("arg is required\n")
+    unless($goalAnalysis);
+  $self->throw("arg must be a [Bio::EnsEMBL::Analysis] not a $goalAnalysis")
+    unless ($goalAnalysis->isa('Bio::EnsEMBL::Analysis'));
+  $self->throw("analysis arg must be presistent\n")
+    unless($goalAnalysis->dbID);
+
+  my $constraint = "r.goal_analysis_id = '".$goalAnalysis->dbID."'";
+
+  return $self->_generic_fetch($constraint);
+}
+
+
+=head2 fetch_by_condition_and_goal
+