nes-proj/tools/test-grid/open-terms.pl
2010-09-08 17:01:04 -04:00

50 lines
924 B
Perl
Executable File

#!/usr/bin/perl
use strict;
use integer;
my $start = shift;
my $end = shift;
if (! $end) {
print "Usage: $0 first-term-num last-term-num\n";
die;
}
my $COLS = 4;
my $index = 0;
for (my $n=$start; $n <= $end; $n += 2) {
#print "$n\n";
open(OUT, ">/tmp/USB$n.ini");
my $dev = "/dev/ttyUSB$n";
print OUT <<end
set line $dev
if failure { exit 1 "Unable top open $dev" }
set carrier-watch off
set flow-control none
set speed 115200
set serial 8n1
set key \\127 \\8
connect
quit
end
;
close(OUT);
my ($row, $col);
$row = $index / $COLS;
$col = $index % $COLS;
my ($offx, $offy);
$offx = $col * 300;
$offy = $row * 300;
my $cmd = "xterm -e 'kermit /tmp/USB$n.ini'&";
#my $cmd = "xterm -geometry 40x20+$offx+$offy -e 'stty -F /dev/ttyUSB$n 115200 && cat /dev/ttyUSB$n'&";
# my $cmd = "xterm -e 'stty -F /dev/ttyUSB$n 115200 && cat /dev/ttyUSB$n'&";
print "$cmd\n";
system($cmd);
$index++;
}