| 38 | | let hits = BLAST_DAD(fasta): @DDBJ |
| 39 | | if func_known(hits) then |
| 40 | | send_to_KEGG( hits ) ;; annotation obtained from KEGG |
| 41 | | else |
| 42 | | let new_hits = BLAST_PDBj(fasta): @DDBJ |
| 43 | | if exists(new_hits) then |
| 44 | | foreach hit in new_hits do |
| 45 | | let shits = struct_navi(hit) :@PDBj |
| 46 | | if exists(shits) then |
| 47 | | send_to_KEGG( shits );; annotation obtained from KEGG |
| 48 | | done |
| | 38 | let hits = BLAST_DAD(fasta) @DDBJ |
| | 39 | if func_known(hits) then |
| | 40 | send_to_KEGG( hits ) ;; annotation obtained from KEGG |
| | 41 | else |
| | 42 | let new_hits = BLAST_PDBj(fasta): @DDBJ |
| | 43 | if exists(new_hits) then |
| | 44 | foreach hit in new_hits do |
| | 45 | let shits = struct_navi(hit) :@PDBj |
| | 46 | if exists(shits) then |
| | 47 | send_to_KEGG( shits );; annotation obtained from KEGG |
| | 48 | |