#!/bin/rc
# writes out complete taxonomy of the taxon given as argument
# Usage: branch TAXON
# Mon Jan 27 10:25:44 EST 2003
# <pac7@post.cz>

# edit the next line to show the locate your dispatch file properly
DISPATCH='/usr/pac/++RESEARCH/pq-databases/polyc/dispatch'



{i=$1
pq -m 'join '^$DISPATCH^'' 	-o '%TAXNAME' 'TAXON='$i'' >[2=]
while(\
{i= `{pq -m 'join '^$DISPATCH^'' 	-o '%UP' 'TAXON='$i'' >[2=]}; \
pq -m 'join '^$DISPATCH^'' 	-o '%TAXNAME' 'TAXON='$i'' >[2=]})
{}
} | tr \x0a -
echo ''