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

View of /FigKernelScripts/possibly_truncated.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sat Apr 2 11:56:12 2005 UTC (14 years, 8 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
add update_subsys_conflicts to fig.pl

use FIG;
my $fig = new FIG;

# usage: possibly_truncated [-v] < PEG > PEG

$v = ((@ARGV > 0) && ($ARGV[0] =~ /^-v/i));

while ($_ = <STDIN>)
{
    if (($_ =~ /(fig\|\d+\.\d+\.peg\.\d+)$/) && 
	($id = $1) &&
	(($v && (! $fig->possibly_truncated($id))) ||
	 ((! $v) && $fig->possibly_truncated($id))))
    {
	print $_;
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3