From: Hadaq Hades <hadaq@lxhadesdaq>
Date: Fri, 15 Nov 2019 16:22:38 +0000 (+0100)
Subject: fix multi-digit command for MUX chips
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=bff30350659c02ca9fff5b43683b85cbaa0846a2;p=daqtools.git

fix multi-digit command for MUX chips
---

diff --git a/tools/dac_program.pl b/tools/dac_program.pl
index b35319d..12dfa76 100755
--- a/tools/dac_program.pl
+++ b/tools/dac_program.pl
@@ -43,7 +43,7 @@ while (my $a = <$fh>) {
 #     print $reference."\n";
     }
  
-  if(my ($board,$chain,$chainlen,$dac,$chan,$cmd,$val) = $a =~ /^\s*(\w\w\w\w)\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\w)\s+(\w+)/) {
+  if(my ($board,$chain,$chainlen,$dac,$chan,$cmd,$val) = $a =~ /^\s*(\w\w\w\w)\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\w+)\s+(\w+)/) {
     $val   = hex(substr($val,2)) if (substr($val,0,2) eq "0x");
     $chain = hex(substr($chain,2)) if (substr($chain,0,2) eq "0x");
     $cmd   = hex($cmd);