use Time::HiRes;
use Getopt::Long;
use POSIX qw/strftime/;
+use POSIX;
# plot destination
# check for tools
# defaults
my $baudrate=115200;
my $port;
+my $opt_command;
+my $read;
+my $opt_help;
+my $write;
+my $clear;
+my $clkdiv;
+my $window;
my $ser_dev = "/dev/ttyUSB0";
+GetOptions ( 'h|help' => \$opt_help,
+ 'c|cmd=s' => \$opt_command,
+ 'tty=s' => \$ser_dev,
+ 'baud=s' => \$baudrate,
+ 'r|read=s' => \$read,
+ 'w|write=s' => \$write,
+ 'c|clear' => \$clear,
+ 'd|divider=s' => \$clkdiv,
+ 'window=s' => \$window
+ );
+
+
init_port();
-for (my $i=0;$i<128;$i++){
- my $rstring = communicate("R".chr($i));
-# printf ("length of response: %d \n",length($rstring));
+if (defined ($read)) {
+
+ my $val = communicate("R".chr($read));
+ printf("response: %d\n",$val);
- my $byte3 = ord(substr($rstring,0,1));
- my $byte2 = ord(substr($rstring,1,1));
- my $byte1 = ord(substr($rstring,2,1));
- my $byte0 = ord(substr($rstring,3,1));
- my $val = (($byte3<<24)|($byte2<<16)|($byte1<<8)|$byte0);
+ exit;
+}
+
+if (defined($clear)){
+ $write = '129_1';
+}
+
+
+if (defined($window)){
+ my $tunit=1e-3;
+ if($window =~ m/ms/){
+ $tunit=1e-3;
+ } elsif($window =~ m/us/){
+ $tunit=1e-6;
+ } elsif($window =~ m/ns/){
+ $tunit=1e-9;
+ } elsif($window =~ m/s/){
+ $tunit=1;
+ }
+
+ $window =~ m/([\d\.]+)/;
+ my $number = $1;
+ printf("requested window width: %e s\n",$number*$tunit);
+ my $FPGAclk=133000000;
+ my $analyzerBins=128;
+ $clkdiv = floor(($number*$tunit)/$analyzerBins/(1/$FPGAclk));
+
+}
+
+if (defined($clkdiv)){
+ $write = "128_$clkdiv";
+}
+
+if (defined ($write)) {
+
+ unless( $write =~ m/(\d+)_(\d+)/ ) {
+ die "input parameter: analyzer -w 127_1234\n";
+ }
+
+ my $addr = $1;
+ my $value = $2;
+ print "addr:$addr value:$value\n";
+
+ my $byte3 = chr(int($value)>>24);
+ my $byte2 = chr((int($value)>>16)&0xFF);
+ my $byte1 = chr((int($value)>>8)&0xFF);
+ my $byte0 = chr(int($value)&0xFF);
+
+ my $val = communicate("W".chr($addr).$byte3.$byte2.$byte1.$byte0);
+ printf("response: %d\n",$val);
+
+ exit;
+}
+
+
+for (my $i=0;$i<128;$i++){
+ my $val = communicate("R".chr($i));
+# printf ("length of response: %d \n",length($rstring));
printf("%d\t%d\n",$i,$val);
# printf("addr %d:\t%d.%d.%d.%d\n",$i,$byte3,$byte2,$byte1,$byte0);
# Time::HiRes::sleep(.01);
my $command = $_[0];
# print "sending command $command\n";
- my $cmd_echo;
+ my $rstring;
- $port->are_match(chr(10));
+ $port->are_match("");
+ $port->read_char_time(1);
+ $port->read_const_time(0);
$port->lookclear;
+ #Time::HiRes::sleep(.004);
$port->write("$command\n");
my $ack = 0;
+
+
+ #Time::HiRes::sleep(.004);
-
-
-ACK_POLLING: for (my $i = 0; ($i<$ack_timeout*100) ;$i++) {
-# print $i."\n";
- while(my $a = $port->lookfor) {
- if($a=~ m/R(....)/) {
- $cmd_echo = $1;
+ my ($count, $a) = $port->read(12);
+
+ if($a=~ m/R(.{4})/s) {
+ $rstring= $1;
# print "padiwa sent: $cmd_echo\n\n";
- $ack=1;
- last ACK_POLLING;
- }
-
- }
- Time::HiRes::sleep(.01);
-
+ $ack=1;
}
+
+
unless($ack) {
print "no answer\n";
- return "0";
+ return 0;
}
+ my $byte3 = ord(substr($rstring,0,1));
+ my $byte2 = ord(substr($rstring,1,1));
+ my $byte1 = ord(substr($rstring,2,1));
+ my $byte0 = ord(substr($rstring,3,1));
+ my $val = (($byte3<<24)|($byte2<<16)|($byte1<<8)|$byte0);
- return $cmd_echo;
+ return $val;
jspc29 / coral.git / commitdiff
