Genus level wais index to USDA list of flowering plant genera

[Jim Croft]

Following the previous posting on this subject, the raw delimited
datafiles of genera and synonyms have been combined and formatted with a
perl script by Greg Whitbread (ghw at anbg.gov.au).

The resulting file, genus-synonyms.txt is available from the same
directories on the ANBG gopher (155.187.10.12 port 70) with the other
USDA genera files.  It is c. 2 mbyte in size.

Each record consists of an accepted genus name with family and authorship
information, followed by indented generic synonyms.

Each word in the generic entry is indexed and searchable.  Searching for
a generic synonym will return the genus to which it belongs.

The following is a sample record:

-------------------------
  MIMUSOPS                                              Sapotaceae
     Linnaeus

          ABEBAIA
             Baehni
             Gen Sapot

          IMBRICARIA
             A.L. Jussieu
             Gen Sapot

The following is the perl script that generated the genus-synonyms.txt
file from the raw genus.dat and synonyms.dat files:

#!/usr/local/bin/perl
# perl script by Greg Whitbread (ghw at anbg.gov.au)

open(SYN,"../synonyms.dat");
open(GEN,"../genus.dat");

while(<SYN>){
        s/^"//;
        s/"$//;
        ($genus,$author,$ref,$acgen,$family,$altfam,$proto) = split(/","/);
        $acgen =~ s/\?$//;
        $synonym{$acgen} .= join("|",$genus,$author,$ref,$proto);
        $synonym{$acgen} .= "+" if $synonym{$acgen};
}

while(<GEN>){
        s/^"//;
        s/"$//;
        ($genus,$author,$ref,$family,$altfam,$proto) = split(/","/);
        $family .= " (alt. $altfam)" if $altfam;
        print "-" x 25;
        $Ugenus = $genus;
        $Ugenus =~ tr/a-z/A-Z/;
        write;
        if($synonym{$genus}){
                (@syns) = split(/\+/,$synonym{$genus});
                foreach ( @syns ) {
                        ($Ugenus,$author,$ref,$proto) = split(/\|/);
                        $Ugenus =~ tr/a-z/A-Z/;
                        $Ugenus =~ s/^/        /;
                        $author =~ s/^/        /;
                        $ref =~ s/^/        /;
                        $proto =~ s/^/        /;
                        $family = "";
                        write;
                }
        }
}
format STDOUT =

  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<    @>>>>>>>>>>>>>>>>>>>>>>
$Ugenus,$family
~~   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
         $author
~~   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
         $ref
~~   ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
         $proto
.


cheers
jim
______________________________________________________________________________
Jim Croft                  [Herbarium CBG]           internet: jrc at anbg.gov.au
Australian National Botanic Gardens                     voice:  +61-6-2509 490
GPO Box 1777, Canberra, ACT 2601, AUSTRALIA               fax:  +61-6-2509 599
____Biodiversity Directorate, Australian National Parks & Wildlife Service____