source: tags/ms_r17q3/lib/macros/xopen.amc

Last change on this file was 6263, checked in by westram, 14 years ago
  • removed deprecated function GB_get_error() aka get_error() from perl interface
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1#!/usr/bin/perl -w
2use lib "$ENV{'ARBHOME'}/lib/";
3use ARB;
4
5$gb_main = ARB::open(":","r");
6if (! $gb_main ) {
7    $error = ARB::await_error();
8    print ("Error: $error\n");
9    exit 0;
10}
11
12BIO::remote_action($gb_main,"ARB_NT","save_all_as");
13BIO::remote_action($gb_main,"ARB_NT","optimize_db");
14BIO::remote_action($gb_main,"ARB_NT","import_seq");
15BIO::remote_action($gb_main,"ARB_NT","Import Sequences in Foreign Format (using readseq: slow !!) ...");
16BIO::remote_action($gb_main,"ARB_NT","export_to_ARB");
17BIO::remote_action($gb_main,"ARB_NT","export_seqs");
18BIO::remote_action($gb_main,"ARB_NT","export_nds");
19BIO::remote_action($gb_main,"ARB_NT","Export Sequences Only to Foreign Format (using readseq: slow) ...");
20BIO::remote_action($gb_main,"ARB_NT","print_tree");
21BIO::remote_action($gb_main,"ARB_NT","Pretty Print Sequences (slow) ...");
22BIO::remote_action($gb_main,"ARB_NT","registration");
23BIO::remote_action($gb_main,"ARB_NT","bug_report");
24BIO::remote_action($gb_main,"ARB_NT","version_info");
25BIO::remote_action($gb_main,"ARB_NT","HELP/CLOSE");
26ARB::close($gb_main);
Note: See TracBrowser for help on using the repository browser.