File: toggle_color.amc

package info (click to toggle)
arb 6.0.6-1
  • links: PTS, VCS
  • area: non-free
  • in suites: stretch
  • size: 66,012 kB
  • ctags: 53,492
  • sloc: ansic: 394,907; cpp: 250,290; makefile: 19,637; sh: 15,879; perl: 10,473; fortran: 6,019; ruby: 683; xml: 503; python: 53; awk: 32
file content (15 lines) | stat: -rwxr-xr-x 353 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl -w
use lib "$ENV{'ARBHOME'}/lib/";
use ARB;

$gb_main = ARB::open(":","r");
if (! $gb_main ) {
    $error = ARB::await_error();
    print ("Error: $error\n");
    exit 0;
}

$new_val = 1-BIO::remote_read_awar($gb_main,"ARB_NT","color_groups/use");
BIO::remote_awar($gb_main,"ARB_NT","color_groups/use", $new_val);

ARB::close($gb_main);