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

View of /FigKernelScripts/peg_to_subsystems.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Mon Mar 28 11:18:34 2005 UTC (15 years, 3 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
Changes since 1.1: +3 -1 lines
minor updates to peg_to_subsystems

#
use FIG;
$fig = new FIG;

# usage: peg_to_subsystems.pl < PEG > PEG-FUNC-SUBSYSTEM-ROLE

while (defined($_ = <STDIN>))
{
    if ($_ =~ /(fig\|\d+\.\d+\.peg\.\d+)$/)
    {
        $peg = $1;
        $func = $fig->function_of($peg);
        foreach $x ($fig->subsystems_for_peg($peg))
        {
            ($subsystem,$role) = @$x;
	    $curator = $fig->subsystem_curator($subsystem);
            $curator =~ s/^master://;
            print "$peg\t$func\t$subsystem\t$role\t$curator\n";
        }
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3