[Bio] / FigKernelScripts / questionable_calls.pl Repository:
ViewVC logotype

View of /FigKernelScripts/questionable_calls.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Aug 5 21:53:32 2004 UTC (15 years, 10 months ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, efrank-preMakefileToStandardMk, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
minor improvements to automated assignments

use FIG;
my $fig = new FIG;

my $usage = "usage: questionable_calls < PEGs > Func-ExtFunc-PEGs (with questionable calls)";

@pegs = map { chop; $_ =~ /(\S+)$/; 
	      $id = $1;  
	      if ($id =~ /^fig\|/)
	      {
		  $id;
	      }
	      else
	      {
		  if ($peg = $fig->by_alias($id))
		  {
		      $peg;
		  }
		  else
		  {
		      ();
		  }
	      }
            } <STDIN>;

%pegs = map { $_ => 1 } @pegs;
@pegs = sort { &FIG::by_fig_id($a,$b) } keys(%pegs);

foreach $pair ($fig->external_calls(\@pegs))
{
    ($peg,$ext_func) = @$pair;
    $ext_call{$peg} = $ext_func;
}

foreach $peg (@pegs)
{
    $func = $fig->function_of($peg);
    if (! &FIG::hypo($func))
    {
	if (($ext = $ext_call{$peg}) && (! &FIG::hypo($ext)) && (! $fig->same_func($func,$ext)))
	{
	    print "$func\t$ext\t$peg\n";
	}
    }
}


    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3