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

View of /FigKernelScripts/make_calls.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (download) (as text) (annotate)
Fri May 27 14:42:19 2005 UTC (14 years, 7 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, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
Changes since 1.2: +5 -24 lines
cleaned up auto_assign

# -*- perl -*-

use FIG;
my($id,$func);

# usage:  make_calls < auto_assign.out > assignments

if (@ARGV && ($ARGV[0] =~ m/^-no_hypos/)) { $no_hypos = 1; }

while (defined($_ = <STDIN>))
{
    if ($_ =~ /^(\S+)\t(\S[^\t]*\S)/)
    {
	$id = $1;
	$func = $2;
	if ((! $no_hypos) || (! &FIG::hypo($func)))
	{
	    print $_;
	}
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3