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

Annotation of /FigKernelScripts/make_calls.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download) (as text)

1 : overbeek 1.2 # -*- perl -*-
2 :    
3 : efrank 1.1 use FIG;
4 : overbeek 1.3 my($id,$func);
5 : efrank 1.1
6 : overbeek 1.2 # usage: make_calls < auto_assign.out > assignments
7 :    
8 :     if (@ARGV && ($ARGV[0] =~ m/^-no_hypos/)) { $no_hypos = 1; }
9 :    
10 : efrank 1.1 while (defined($_ = <STDIN>))
11 :     {
12 : overbeek 1.3 if ($_ =~ /^(\S+)\t(\S[^\t]*\S)/)
13 : efrank 1.1 {
14 :     $id = $1;
15 : overbeek 1.3 $func = $2;
16 :     if ((! $no_hypos) || (! &FIG::hypo($func)))
17 : efrank 1.1 {
18 : overbeek 1.3 print $_;
19 : efrank 1.1 }
20 :     }
21 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3