]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
small changes, IF
authorHadaq <hadaq@jspc29>
Mon, 5 Feb 2018 15:39:35 +0000 (16:39 +0100)
committerHadaq <hadaq@jspc29>
Mon, 5 Feb 2018 15:39:35 +0000 (16:39 +0100)
tools/spi_flash16bit_slaves.pl

index 7a68c38cf290b8ee2217918a06e78d1fca877300..94553ebcc322f5dbfd82b0c933756fc76cafa295 100755 (executable)
@@ -38,6 +38,7 @@ my $rr;
 my $wr;
 my $range;
 my $memtoflash;
+my $pwm;
 
 my $time;
 my $uid;
@@ -56,6 +57,7 @@ my $result = GetOptions (
                          "r|register=s"     => \$register,
                          "v|ref_voltage=s"  => \$ref_voltage,
                          "d|data=s"         => \$data,
+                         "pwm:s"            => \$pwm,
                          "f|filename=s"     => \$filename,
                          "flashcmd=s"       => \$flashcmd,
                          "flashaddress=s"   => \$flashaddress,
@@ -266,19 +268,22 @@ if ($execute eq "dac" && defined $ARGV[4]) {
 # print "Wrote PWM settings.\n";
 }
 
-if ($execute eq "pwm") {
-  die "the command pwm needs an --channel option." if (!defined $channel);
-  if(!defined $data) {
-    my $b = sendcmd($channel<<$REGNR | $READ);
-    foreach my $e (sort keys %$b) {
-      printf("endpoint: 0x%04x  chain: %d  channel: %d  raw: 0x%04x  voltage: %4.2f mV\n",
-             $e, $chain, $channel, $b->{$e}&0xffff, ($b->{$e}&0xffff)*$ref_voltage/65536 );
+if ($execute eq "pwm" || defined($pwm)) {
+    if (!defined $channel && defined($pwm)) {
+       $channel = $pwm;
+    }
+    die "the command pwm needs an --channel option." if (!defined $channel);
+    if(!defined $data) {
+       my $b = sendcmd($channel<<$REGNR | $READ);
+       foreach my $e (sort keys %$b) {
+           printf("endpoint: 0x%04x  chain: %d  channel: %d  raw: 0x%04x  voltage: %4.2f mV\n",
+                  $e, $chain, $channel, $b->{$e}&0xffff, ($b->{$e}&0xffff)*$ref_voltage/65536 );
+       }
+       
+    }
+    else {
+       my $b = sendcmd($channel<<$REGNR | $WRITE | ($data&0xffff));
     }
-
-  }
-  else {
-    my $b = sendcmd($channel<<$REGNR | $WRITE | ($data&0xffff));
-  }
 }