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

View of /FigKernelScripts/make_match_table.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Jul 1 21:47:32 2004 UTC (15 years, 11 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
up max size of bbh extras

# usage: make_match_table < math.peg.synonyms > match.table

while (defined($_ = <STDIN>))
{
    if (($_ =~ /^([^,]+),(\d+)\t([^,]+),(\d+)/) && ($2 == $4))
    {
        $id1 = $1;
        $id2 = $3;
        if (($id1 =~/^OLD_(\S+)/) && ($old = $1) && ($id2 !~ /^OLD_/))
        {
            print "$old\t$id2\n";
        }
        elsif (($id2 =~/^OLD_(\S+)/) && ($old = $1) && ($id1 !~ /^OLD_/))
        {
            print "$old\t$id1\n";
        }
    }
}


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3