[Bio] / FigKernelPackages / Assignments.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Assignments.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12, Wed May 3 15:55:21 2006 UTC revision 1.13, Mon May 7 14:22:20 2007 UTC
# Line 118  Line 118 
118          &load_peg_function($fig,$parms,$peg,$functions);          &load_peg_function($fig,$parms,$peg,$functions);
119      }      }
120      my @tmp = keys(%$functions);      my @tmp = keys(%$functions);
121  #   print &Dumper(['peg check',\@tmp,$functions]);      print STDERR &Dumper(['peg check',\@tmp,$functions]) if ($ENV{'DEBUG'} || $ENV{'VERBOSE'});
122    
123      if ((@tmp == 1) && (@$pegs >= 5)) { return $tmp[0] }      if ((@tmp == 1) && (@$pegs >= 5)) { return $tmp[0] }
124    
# Line 250  Line 250 
250              $value += $_;              $value += $_;
251          }          }
252          my $subv = 0;          my $subv = 0;
253          my @subs = $fig->peg_to_subsystems($peg);          my @subs = ();
254            foreach my $sub ($fig->peg_to_subsystems($peg))
255            {
256                if (&solid_sub_assign($fig,$sub,$peg,$func))
257                {
258                    push(@subs,$sub);
259                }
260            }
261          my $sub;          my $sub;
262          my $in_sub = 0;          my $in_sub = 0;
263          foreach $sub (@subs)          foreach $sub (@subs)
# Line 269  Line 276 
276      }      }
277  }  }
278    
279    sub solid_sub_assign {
280        my($fig,$sub,$peg,$func) = @_;
281    
282        my $curator = $fig->subsystem_curator($sub);
283        $curator =~ s/^master://;
284        return ($fig->usable_subsystem($sub) && &made_by_curator($fig,$peg,$func,$curator));
285    }
286    
287    sub made_by_curator {
288        my($fig,$peg,$func,$curator) = @_;
289    
290        my @ann = $fig->feature_annotations($peg,"rawtime");
291        my $i;
292        my $funcQ = quotemeta $func;
293        for ($i=$#ann;
294             ($i >= 0) && (($ann[$i]->[2] !~ /$curator/) || ($ann[$i]->[3] !~ /Set \S+ function to\n$funcQ/s));
295             $i--) {}
296        return ($i >= 0);
297    }
298    
299  sub equivalent_ids {  sub equivalent_ids {
300      my($fig,$parms,$pegs) = @_;      my($fig,$parms,$pegs) = @_;
301      my($peg,@aliases,$alias,%external_ids,%pegs,$tuple);      my($peg,@aliases,$alias,%external_ids,%pegs,$tuple);

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3