From f547e4ac3d8530dc0f2183aafa7bcbffea906922 Mon Sep 17 00:00:00 2001
From: hadaq <M.Traxler@gsi.de>
Date: Thu, 7 May 2015 12:36:37 +0200
Subject: [PATCH] changed to use options, mt

---
 users/gsi_dirc/prepare_padiwas_invert_leds.pl | 139 ++++++++++++++----
 1 file changed, 110 insertions(+), 29 deletions(-)

diff --git a/users/gsi_dirc/prepare_padiwas_invert_leds.pl b/users/gsi_dirc/prepare_padiwas_invert_leds.pl
index e36853f..309c50f 100755
--- a/users/gsi_dirc/prepare_padiwas_invert_leds.pl
+++ b/users/gsi_dirc/prepare_padiwas_invert_leds.pl
@@ -4,58 +4,92 @@ use strict;
 use warnings;
 
 use Parallel::ForkManager;
+use Getopt::Long;
+
+my $help;
+my $opt_invert;
+my @opt_endpoints;
+my @opt_chains;
+
+my $result = GetOptions (
+    "h|help" => \$help,
+    "i|invert=s" => \$opt_invert,
+    "e|endpoints=s" => \@opt_endpoints,
+    "c|chains=s" => \@opt_chains,
+    );
+
+if($help) {
+    usage();
+    exit;
+}
 
-my $arg=$ARGV[0];
+usage() unless ($opt_invert && @opt_endpoints && @opt_chains);
 
-unless ($arg) {
-    print "usage:
-./prepare_padiwas_invert_leds.pl <\"list of hex TRBNet addresses, space separated\">
-";
-exit;
-}
+#my $arg=$ARGV[0];
+#my @padiwas = split /\s+/, $arg;
+
+my $endpoints = get_ranges(\@opt_endpoints);
+my $chains    = get_ranges(\@opt_chains);
 
-my @padiwas = split /\s+/, $arg;
 
 my $MAX_PROCESSES = 100;
 my $pm = Parallel::ForkManager->new($MAX_PROCESSES);
 
-print "padiwas: inverting padiwa outputs: ";
+#my $padiwa_invert_setting = "0xffff";
 
-foreach (@padiwas) { 
-    my $pid = $pm->start and next;
-    print "$_ ";
-	 #y $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $_ 0 invert 0xffff >/dev/null";
-    my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $_ 0 invert 0xffff 1>/dev/null";
-	 #my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $_ 0 temp";
-    my $r = qx($c);
-    die "could not execute command $c" if $?;
-    print $r;
+print "padiwas: setting padiwa invert-setting to $opt_invert: ";
 
-    $pm->finish; # Terminates the child process 
+foreach my $cur_endpoint (@$endpoints) {
+  my $pid = $pm->start and next;
+  $cur_endpoint = sprintf "0x%4x", $cur_endpoint;
+  print "$cur_endpoint ";
+
+  for my $chain (@$chains) {
+      my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $cur_endpoint $chain invert $opt_invert 1>/dev/null";
+      #print $c . "\n";
+      my $r = qx($c);
+      die "could not execute command $c" if $?;
+      print $r;
+    }
+
+    $pm->finish; # Terminates the child process
 };
+
 $pm->wait_all_children;
 print "\n";
 
 print "padiwas: turn off all leds: ";
 
-foreach (@padiwas) { 
+foreach my $cur_endpoint (@$endpoints) {
     my $pid = $pm->start and next;
-    print "$_ ";
-    my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $_ 0 led 0x10 >/dev/null";
-    qx($c); die "could not execute command $c" if $?;
-    $pm->finish; # Terminates the child process 
+    $cur_endpoint = sprintf "0x%4x", $cur_endpoint;
+    print "$cur_endpoint ";
+
+    for my $chain (0..2) {
+      my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $cur_endpoint $chain led 0x10 >/dev/null";
+      #print $c . "\n";
+      qx($c); die "could not execute command $c" if $?;
+    }
+
+    $pm->finish; # Terminates the child process
 };
 
 $pm->wait_all_children;
 print "\n";
 
-print "padiwas: set temp compensation to 0x02c0: ";
+print "DOBpadiwas: set temp compensation to 0x02c0: ";
 
-foreach (@padiwas) { 
+foreach my $cur_endpoint (@$endpoints) {
     my $pid = $pm->start and next;
-    print "$_ ";
-    my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $_ 0 comp 0x02c0 >/dev/null";
-    qx($c); die "could not execute command $c" if $?;
+    $cur_endpoint = sprintf "0x%4x", $cur_endpoint;
+    print "$cur_endpoint ";
+
+    for my $chain (0..2) {
+      my $c="/home/hadaq/trbsoft/daqtools/padiwa.pl $cur_endpoint $chain comp 0x02c0 >/dev/null";
+      #print $c . "\n";
+      qx($c); die "could not execute command $c" if $?;
+    }
+
     $pm->finish; # Terminates the child process 
 };
 
@@ -63,4 +97,51 @@ $pm->wait_all_children;
 
 print "\n";
 
+exit;
+
+sub get_ranges {
+    (my $ra_data) = @_;
+
+    my @array;
+    foreach my $str (@$ra_data) {
+        $str=~s/-/\.\./g;
+        $str=~s/\.\.\./\.\./g;
+        my @val = split(/\,/, $str);
+        #print Dumper \@val;
+        foreach my $c_val (@val) {
+            if($c_val =~ /\.\./) {
+                #print "range: $c_val\n";
+                (my $start, my $stop) = $c_val =~ /(\w+)\.\.(\w+)/;
+                $start = hex($start) if($start=~/0x/);
+                $stop = hex($stop) if($stop=~/0x/);
+                #print "start $start, stop $stop\n";
+                foreach ($start .. $stop) {
+                    push @array, $_;
+                }
+                #print Dumper \@array;
+            }
+            else {
+                $c_val = hex($c_val) if($c_val=~/0x/);
+                push @array, int($c_val);
+            }
+
+        }
+
+    }
+
+    return \@array;
+
+}
+
+
+sub usage {
 
+
+	print "usage:
+./prepare_padiwas_invert_leds.pl <--invert \"0xffff\" of --invert \"0x0000\"> <--endpoints=<list of enpoints>> <--chains=<list of chains>> [--help]
+";
+
+     exit;
+
+
+}
-- 
2.43.0