+++ /dev/null
-#!/usr/bin/perl -w
-
-use strict;
-use warnings;
-#use Gtk2 -init; # please, who needs gtk for this?!?
-use Data::Dumper;
-use feature 'say';
-require POSIX;
-use Bit::Vector;
-use Getopt::Long;
-use threads;
-
-
-my $thr1;
-my $thr2;
-
-my $opt_help;
-my $opt_time;
-my $time;
-
-
-GetOptions ('h|help' => \$opt_help,
- 't|time=f' => \$opt_time
- );
-
-if($opt_help) {
- &help();
- exit(0);
-}
-
-
-sub help(){
- print "Usage: exec_evtbuild_t.pl -t <float>
-
-required:
- [-t|--time <seconds>] : The runtime of the daq_netmem (effective runtime).
- [-h|--help] : Show this help.
-
-"
-}
-
-
-if (defined($opt_time)){
- $time = $opt_time;
-}
-else{
- $time = 3;
-}
-
-
-
-$thr1 = threads->new(\&execute, "timeout -s SIGINT ".($time+1.5)." daq_evtbuild -m 1 -q 32 -d file -x te -Se -S boris");
-sleep 1;
-$thr2 = threads->new(\&execute, "timeout -s SIGINT ".$time." daq_netmem -m 1 -q 32 -i 50000 -S boris");
-
-$thr1->join();
-$thr2->join();
-
-
-
-
-
-sub execute {
- my $s = shift;
- system($s);
-}
+++ /dev/null
-#!/usr/bin/perl -w
-
-# TODO
-# this is veeeeryyyy ugly!!!
-
-
-use strict;
-use warnings;
-# use Gtk2 -init;
-use Data::Dumper;
-use Time::HiRes qw( gettimeofday usleep time );
-use FileHandle;
-use feature 'say';
-use Bit::Vector;
-use POSIX qw/floor ceil/;
-use Getopt::Long;
-use CGI ':standard';
-
-my $here = qx/pwd/;
-
-my $q = CGI->new;
-
-
-my $opt_help;
-my $opt_time;
-my $time;
-my $opt_id;
-
-GetOptions ('h|help' => \$opt_help,
- 't|time=f' => \$opt_time,
- 'id=s' => \$opt_id
- );
-
-if( $q->param('id') ) {
- $opt_id = $q->param('id');
-}
-
-if( $q->param('t') ) {
- $opt_time = $q->param('t');
-}
-
-if($opt_help) {
- &help();
- exit(0);
-}
-
-unless($opt_time && $opt_id){
- &help();
-# exit(0);
- $opt_time = 0.2;
- $opt_id = "ccc1ccc1";
-}
-
-
-sub help(){
- print "Usage: run.pl -t <float>
-
-required:
- [-t|--time <seconds>] : The runtime of the daq_netmem (effective runtime).
- [-id <id>] : The id of the sensor you want to test
-optional:
- [-h|--help] : Show this help.
-
-"
-}
-
-my $file;
-my @lines;
-my $pos;
-my $str;
-my $s;
-my $i;
-my $j;
-my $k;
-my $n;
-my $runtime;
-my $id;
-my $command;
-my @skiprun;
-
-my @data;
-my $run;
-my $mode;
-my $avg;
-my $counts;
-my $good_status;
-my $bad_status;
-my $broken;
-my @tokens;
-my $line;
-my $word;
-my @status_array;
-my @debug1_array;
-my @debug2_array;
-my @timestamp1_array;
-my @timestamp2_array;
-my @dlen_array;
-my @dcounter_array;
-my @framenum_array;
-my $dcount;
-my @pixels;
-
-my $avgA = 0;
-my $avgB = 0;
-my $avgC = 0;
-my $avgD = 0;
-my $undef_data;
-my @a;
-my $size;
-my $p1;
-my $p2;
-my $row;
-my $overflow;
-my $hits;
-my $col;
-
-
-
-
-
-
-
-
-
-sub run(){
-
-# execute("cd /daq/trb_maps_jtag3/ui/;./ui.pl;");
-# execute("trbcmd w 0xf013 0xc001 0x00FFFFFF");
-# execute("trbcmd w 0xf013 0xc006 0x00002eaa");
-# execute("cd /daq/trb_maps_jtag3/ui/;./start.pl");
-# sleep 1;
-# execute("trbcmd w 0xf013 0xc001 0x00000000");
-# execute("trbcmd w 0xf013 0xc002 0x00000010");
-# execute("trbcmd w 0xf013 0xc007 0x00000200");
-
- sleep 1;
-
- #execute("trbcmd w 0xf013 0xb120 0x0000000A");
-
-
- say "All tresholds set...";
-
- system("./exec_evtbuild_t.pl -t ".$runtime); #14
- system("mv te1* ./temp.hld");
-
-
- open(PIPE,"daq_anal ./temp.hld |");
-
-
-
- undef @data;
- $run = -1;
- $mode = 0;
- $i = 0;
- $avg = 0;
- $counts = 0;
- $good_status = 0;
- $bad_status = 0;
- $broken = 0;
- foreach $line (<PIPE>){
- @tokens = split(/ +/, $line);
- chomp(@tokens);
-
- foreach $word (@tokens){
-
- if ($word =~ "00000000:"){
- $mode = 1;
- $run++;
- # $done[$run] = 0;
- $status_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $debug1_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $debug2_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $timestamp1_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $timestamp2_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $dcounter_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $framenum_array[$run] = Bit::Vector->new_Hex(32, substr("0x00000000",2,8));
- $dcount = 0;
- }
-
- if ($mode == 1){
- if ($word =~ "ffffffff"){
- # $done[$run] = 1;
- $mode = 2;
- }
- }
- elsif ($mode == 2){
- if ($word =~ ":"){}
- else{
- #$id = "aaa".$opt_sensor."aaa".$opt_sensor;
- #$id = "c".$opt_chain."s".$opt_sensor."c".$opt_chain."s".$opt_sensor;
- if ($word =~ $id){
- # $done[$run] = 2;
- $mode = 3;
- }
- else{
- $mode = 1;
- }
- }
- }
- elsif ($mode == 3){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 3;
- # say $word;
- $status_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- # say $run;
- # say $status_array[$i]->to_Hex();
- $mode = 4;
- }
- }
- elsif ($mode == 4){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 4;
- $debug1_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- $mode = 5;
- }
- }
- elsif ($mode == 5){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 5;
- $debug2_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- $mode = 6;
- }
- }
- elsif ($mode == 6){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 6;
- $timestamp1_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- $mode = 7;
- }
- }
- elsif ($mode == 7){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 7;
- $timestamp2_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- $mode = 8;
- }
- }
- elsif ($mode == 8){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 8;
- if ($word =~ "55555555"){
- #$dcount++;
- $mode = 9;
- }
- else{
- $mode = 0;
- }
- }
- }
- elsif ($mode == 9){
- if ($word =~ ":"){}
- else{
- # $done[$run] = 9;
- #$dcount++;
- $framenum_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- $mode = 10;
- }
- }
- elsif ($mode == 10){
- if ($word =~ ":"){}
- else{
- $dlen_array[$run] = Bit::Vector->new_Hex(32, substr($word,2,8));
- $mode = 11;
- }
- }
- elsif ($mode == 11){
- if ($word =~ ":"){}
- else{
- if ($word =~ "80018001"){
- # $done[$run] = 11;
- $mode = 0;
- }
- elsif ($word =~ "ffffffff"){
- # $dcounter_array[$run] = $dcount;
- $mode = 0;
- $broken++;
- }
- else{
- # $done[$run] = 10;
- push(@{$data[$run]},$word);
- # $dcount++;
- }
- }
- }
- }
- $i++;
- }
-
-
- close(PIPE);
-
- say "Total frames: ".$run." broken: ".$broken;
-
- $i = 0;
- $j = 0;
- $k = 0;
-
-
- for ($i=0;$i<576;$i++){
- for ($j=0;$j<1152;$j++){
- $pixels[$i][$j]=0;
- }
- }
-
-
-
- $good_status = 0;
- $bad_status = 0;
- $avgA = 0;
- $avgB = 0;
- $avgC = 0;
- $avgD = 0;
- $counts = 0;
- $undef_data = 0;
- for ($i=0;$i<$run;$i++){
-
- if ($status_array[$i]->to_Hex() =~ /f000000f/i){
- $good_status++;
- $counts++;
-
- if (defined($data[$i])){
- @a = @{$data[$i]};
- $size = 0;
- foreach $word (@a){
- #print "\n<<< ".$word;
- #say $word;
- $p1 = Bit::Vector->new_Hex(16, substr($word,2,4));
- $p2 = Bit::Vector->new_Hex(16, substr($word,6,4));
- if ($size == 0){
- #print "\n >>> size 0";
- $size = int($p1->Chunk_Read(4,0));
- $row = int($p1->Chunk_Read(11,4));
- $overflow = int($p1->Chunk_Read(1,15));
- $hits = int($p2->Chunk_Read(2,0));
- $col = int($p2->Chunk_Read(11,2));
- #print "\n ".$p1->to_Bin();
- #print "\n size ".$size." row ".$row." ov ".$overflow;
- #print "\n ".$p2->to_Bin();
- #print "\n col ".$col." hits ".$hits;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- if ($hits > 0){
- for ($k=0;$k<$hits;$k++){
- $col++;
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- #print "\n +col ".$col;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- }
- }
- $size--;
- }
- elsif ($size == 1){
- #print "\n >>> size 1";
- #print "\n ".$p1->to_Bin();
- $hits = int($p1->Chunk_Read(2,0));
- $col = int($p1->Chunk_Read(11,2));
- #print "\n col ".$col." hits ".$hits;
- #print DATA $row." ".$col."\n";
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- $pixels[$row][$col]++;
- if ($hits > 0){
- for ($k=0;$k<$hits;$k++){
- $col++;
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- #print "\n +col ".$col;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- }
- }
- $size = int($p2->Chunk_Read(4,0));
- $row = int($p2->Chunk_Read(11,4));
- $overflow = int($p2->Chunk_Read(1,15));
- #print "\n ".$p2->to_Bin();
- #print "\n size ".$size." row ".$row." ov ".$overflow;
- }
- else{
- #print "\n >>> size ".$size;
- $hits = int($p1->Chunk_Read(2,0));
- $col = int($p1->Chunk_Read(11,2));
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- #print "\n ".$p1->to_Bin();
- #print "\n col ".$col." hits ".$hits;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- if ($hits > 0){
- for ($k=0;$k<$hits;$k++){
- $col++;
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- #print "\n +col ".$col;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- }
- }
- $size--;
- $hits = int($p2->Chunk_Read(2,0));
- $col = int($p2->Chunk_Read(11,2));
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- #print "\n ".$p1->to_Bin();
- #print "\n col ".$col." hits ".$hits;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- if ($hits > 0){
- for ($k=0;$k<$hits;$k++){
- $col++;
- if ($col < 288) {$avgA++;} elsif ($col < 576){$avgB++;} elsif ($col < 864){$avgC++;} elsif ($col < 1152){$avgD++;}
- #print "\n +col ".$col;
- #print DATA $row." ".$col."\n";
- $pixels[$row][$col]++;
- #print "debug: ".$pixels[$row][$col]." ".$row." ".$col."\n";
- }
- }
- $size--;
- }
- }
- }
- else{
- $undef_data++;
- }
- }
- else{
- $bad_status++;
- }
-
- }
-
- say "good: ".$good_status." bad: ".$bad_status;
- say "Total hits: ".$avgA." ".$avgB." ".$avgC." ".$avgD."\n";
-
- if ($counts > 0){
- $avgA = $avgA/$counts;
- $avgB = $avgB/$counts;
- $avgC = $avgC/$counts;
- $avgD = $avgD/$counts;
-
- say "Normalized: ".$avgA." ".$avgB." ".$avgC." ".$avgD."\n";
-
-# $avgal->set_text("ADC A - ".$avgA);
-# $avgbl->set_text("ADC B - ".$avgB);
-# $avgcl->set_text("ADC C - ".$avgC);
-# $avgdl->set_text("ADC D - ".$avgD);
- }
- else{
- say "Error: NO GOOD FRAMES!!!";
-# $avgal->set_text("ADC A - n/a");
-# $avgbl->set_text("ADC B - n/a");
-# $avgcl->set_text("ADC C - n/a");
-# $avgdl->set_text("ADC D - n/a");
- }
-
-# $stats->set_text("Statistics (total/broken/good/bad): $run / $broken / $good_status / $bad_status");
-
- open(DATA,"> ./bitmap_1.pix") || die("Cannot create data file!");
-
- for ($i=0;$i<576;$i++){
- for ($j=0;$j<1152;$j++){
- print DATA $pixels[$i][$j]." ";
- }
- print DATA "\n";
- }
- close(DATA);
-
-
- $command = "
- gnuplot -e \"
- set terminal pngcairo;
- set palette model RGB;
- set xrange [0:1152];
- set yrange [0:576];
- set cbrange [0:20000];
- set palette defined ( 0 'white', 1 'red', 5 'black', 10 'blue', 20000 'green');
- set output './image_recalibrated_1.png';
- plot './bitmap_1.pix' matrix with image;
- exit;
- \"
- ";
-
-
- system($command);
-
-}
-
-
-sub execute {
- my $s = shift;
- system($s);
-}
-
-
-
-
-
-system("rm image_recalibrated_1.png");
-
-$runtime = $opt_time;
-$id =$opt_id;
-
-$ENV{'JTAGPATH'}="/local.1/jtag_mvd/soft/toolbox/jtag_atomic/";
-$ENV{'DAQOPSERVER'}="localhost:7";
-chdir("../");
-system("./startup.pl ../setup/testsetup.xml");
-chdir("preview");
-
-run();
-
-
-1;
+++ /dev/null
-#!/usr/bin/perl -w
-
-use English;
-use strict;
-use Getopt::Long;
-use Data::Dumper;
-use FileHandle;
-use feature "switch";
-use POSIX qw/strftime/;
-my $SensorHeaderLength = 7;
-
-my $Statistics;
-my $PMap;
-
-
-###############################################################################
-## Configuration ##############################################################
-###############################################################################
-
-
-my $file;
-my $opt_help = 0;
-my $opt_verb = 0;
-my $opt_debug = 0;
-my $opt_frameinfo = 0;
-my $totalevents = 1E9;
-my $mode = "";
-
-GetOptions ('h|help' => \$opt_help,
- 'f|file=s' => \$file,
- 'v|verb' => \$opt_verb,
- 'i|info' => \$opt_frameinfo,
- 'd|debug' => \$opt_debug,
- 'e|events=i' => \$totalevents);
-
-
-
-
-if($opt_help) {
- printf("Usage: unpack_hld.pl \n");
- printf("[-h|--help] Show this help\n");
- printf("-f|--file <file> Path to hld file\n");
- printf("[-v|--verb] Dump hld file content\n");
- printf("[-i|--info] Show frame information\n");
- printf("[-d|--debug] More debugging output\n");
- printf("\n");
- exit;
- }
-
-
-
-###############################################################################
-## HLD Reader #################################################################
-###############################################################################
-
-
-if(&checkArgs()){
- exit(0);
-}
-
-my @evtHeader_list = ();
-my $evtHeader_aref = \@evtHeader_list;
-
-my @subEvtHeader_list = ();
-my $subEvtHeader_aref = \@subEvtHeader_list;
-
-my @data_list = ();
-my $data_aref = \@data_list;
-
-my $fh = new FileHandle("$file", "r");
-
-while(1){
- @evtHeader_list = ();
-
- &getEvtHeader($fh,$evtHeader_aref);
- &printEvtHeader($evtHeader_aref) if($opt_verb);
-
- my $evtSize = $evtHeader_aref->[0];
- if (!defined $evtSize || $evtSize < 0x10) {last;}
-
- #- If the size is only 32 Bytes -> goto to
- # the next Event Header since there are no subevents
- next unless defined $evtSize;
- next if($evtSize == 32);
-
- my $size_cntr = 32; # Bytes
-
- while($evtSize > $size_cntr){
-
- @subEvtHeader_list = ();
-
- my $endian = &getSubEvtHeader($fh,$subEvtHeader_aref);
- &printSubEvtHeader($subEvtHeader_aref) if($opt_verb);
-
- my $subEvtSize = $subEvtHeader_aref->[0];
-
- $size_cntr = $size_cntr + $subEvtSize;
-
- #- If the size is only 16 Bytes -> goto to
- # the next Sub Event Header since there are no subevents
- next if($subEvtSize == 16);
-
- @data_list = ();
- &getSubEvtData($fh, $data_aref, $subEvtSize, $endian);
- &printData($data_aref) if($opt_verb);
-
- my $paddedSize = &padding($fh, $subEvtSize);
-
- $size_cntr = $size_cntr + $paddedSize;
-
- #----------> User function <---------
- &analyzeData($evtHeader_aref, $subEvtHeader_aref, $data_aref);
- }
-}
-
-WriteResults();
-
-$fh->close();
-
-exit(0);
-
-####################### END OF MAIN ###################
-
-sub printEvtHeader()
-{
- my ($data_aref) = @_;
-
- print "\n";
-
- printf("size: %08x ", $data_aref->[0]);
- printf("decoding: %08x ", $data_aref->[1]);
- printf("id: %08x ", $data_aref->[2]);
- printf("seqNr: %08x\n", $data_aref->[3]);
-
- my $year = (($data_aref->[4] >> 16) & 0xff) + 1900;
- my $mon = (($data_aref->[4] >> 8) & 0xff) + 1;
- my $mday = ($data_aref->[4] >> 0) & 0xff;
-
- my $hour = ($data_aref->[5] >> 16) & 0xff;
- my $min = ($data_aref->[5] >> 8) & 0xff;
- my $sec = ($data_aref->[5] >> 0) & 0xff;
-
- printf("date: %04d-%02d-%02d ", $year, $mon, $mday);
- printf("time: %02d:%02d:%02d ", $hour, $min, $sec);
- printf("runNr: %08x ", $data_aref->[6]);
- printf("expId: %08x\n", $data_aref->[7]);
-}
-
-sub printSubEvtHeader()
-{
- my ($data_aref) = @_;
-
- print "\n";
-
- printf("size: %08x ", $data_aref->[0]);
- printf("decoding: %08x ", $data_aref->[1]);
- printf("id: %08x ", $data_aref->[2]);
- printf("trigNr: %08x\n", $data_aref->[3]);
-}
-
-sub printData()
-{
- my ($data_aref) = @_;
-
- my $cntr = 0;
-
- print "\n";
-
- foreach my $word (@$data_aref){
- printf("%08x ", $word);
-
- $cntr++;
-
- print "\n" if( ($cntr%4) == 0);
- }
-}
-
-sub getEvtHeader()
-{
- my ($fh, $data_aref) = @_;
-
- my @tmp_list;
-
- foreach my $i (1..8){
- my $header;
-
- read($fh, $header, 4);
-# &checkEndOfFile($fh, $header);
-
- push(@tmp_list, $header);
- }
-
- my $decoding = unpack("V*", $tmp_list[1]);
- my $endian = &getEndianess($decoding);
-
- unless(defined $decoding) {
- printf "This seems to be the end\n" if $opt_verb;
- return -1;
- }
-
- if($opt_debug){
- if($endian){
- printf("\n Event Decoding: %08x Byte Order: Little Endian\n", $decoding);
- }
- else{
- printf("\n Event Decoding: %08x Byte Order: Big Endian\n", $decoding);
- }
- }
-
- foreach my $tmp (@tmp_list){
- my $word;
-
- if($endian){
- $word = unpack("V*", $tmp); # Small Endian
- }
- else{
- $word = unpack("N*", $tmp); # Big Endian
- }
-
- push(@$data_aref, $word);
- }
-}
-
-sub getSubEvtHeader()
-{
- my ($fh, $data_aref) = @_;
-
- my @tmp_list;
-
- foreach my $i (1..4){
- my $header;
-
- read($fh, $header, 4);
-# &checkEndOfFile($fh, $header);
-
- push(@tmp_list, $header);
- }
-
- my $decoding = unpack("V*", $tmp_list[1]);
- my $endian = &getEndianess($decoding);
- if($opt_debug){
- if($endian){
- printf("\n SubEvent Decoding: %08x Byte Order: Little Endian\n", $decoding);
- }
- else{
- printf("\n SubEvent Decoding: %08x Byte Order: Big Endian\n", $decoding);
- }
- }
-
- foreach my $tmp (@tmp_list){
- my $word;
-
- if($endian){
- $word = unpack("V*", $tmp); # Small Endian
- }
- else{
- $word = unpack("N*", $tmp); # Big Endian
- }
-
- push(@$data_aref, $word);
- }
-
- return $endian;
-}
-
-sub getEndianess()
-{
- my ($decoding) = @_;
-
- # Return values:
- # 0 : Big Endian
- # 1 : Little Endian
- #
- # Usually (when sent by GbE-FPGAs) Event Headers are Little Endian
- # SubEvent Headers and data are Big Endian
-
- my $retVal = 0;
-
- if(defined($decoding) && ($decoding & 0x000000ff) > 0){
- $retVal = 1; # This is Little Endian
- }
-
- return $retVal;
-}
-
-sub getSubEvtData() {
- my ($fh, $data_aref, $size, $endian) = @_;
-
- #- Subtract subevent header size and devide by word size
- my $nrOfWords = ($size - 16)/4;
- my $tmp;
-
- my @tmps;
- read($fh, $tmp, 4*$nrOfWords);
- if($endian){
- @$data_aref = unpack("v*",$tmp);
- }
- else{
- @$data_aref = unpack("n*",$tmp);
- }
-
-# my $word;
-# foreach my $i (1..$nrOfWords){
-# read($fh, $tmp, 4);
-# if($endian){
-# $word = unpack("V*", $tmp); # Little Endian
-# }
-# else{
-# $word = unpack("N*", $tmp); # Big Endian
-# }
-# push(@$data_aref, $word);
-# }
- }
-
-sub padding()
-{
- my ($fh, $size) = @_;
-
- my $retVal = 0; # Size of the padded word
-
- #- Check 64-bit (8-Byte) alignment
- unless( ($size%8) == 0){
- my $tmp;
- read($fh, $tmp, 4);
- $retVal = 4; # Bytes
- }
-
- return $retVal;
-}
-
-sub checkEndOfFile()
-{
- my ($fh, $tmp) = @_;
-
- unless( defined $tmp){
- #- The end of the file
- print "\n End of file\n";
- $fh->close();
- exit(0);
- }
-}
-
-sub checkArgs()
-{
- my $retVal = 0;
-
- unless( defined $file){
- print "\n You must provide a path to the hld file!\n";
- print " Read help.\n";
- $retVal = 1;
- }
-
- return $retVal;
-}
-
-
-
-
-
-
-
-###############################################################################
-## MVD Unpacker ###############################################################
-###############################################################################
-
-
-
-sub analyzeData() {
- my ($evtHeader, $subEvtHeader, $data) = @_;
- my $EvtId = $evtHeader->[3];
- my $pos = 0;
- my $time = 0;
- my $SubEvtSize = $subEvtHeader->[1]/4-6;
-
- SSELoop: while(1) { #Loop over SubSubEvents
-
- #Read SubSubEvent Header
- my $RocLength = $data->[$pos++];
- my $RocId = $data->[$pos++];
- if($RocId == 0x5555) {last;}
- my $RocEnd = $pos + $RocLength*2 -1;
-
- SensLoop: while(1) { #Loop over Sensors
- #Read Sensor Header
- my $SensorHead = ($data->[$pos+0] << 16) + $data->[$pos+1];
- my $SensorId = $data->[$pos+3];
- my $SensorStatus = ($data->[$pos+4] << 16) + $data->[$pos+5];
- my $SensorError = ($data->[$pos+6] << 16) + $data->[$pos+7];
- my $SensorDebug = ($data->[$pos+8] << 16) + $data->[$pos+9];
- $pos+=10;
-
- if($opt_frameinfo) {
- my $SensorTime = sprintf("%04x%04x%04x%04x",$data->[$pos+2],$data->[$pos+3],$data->[$pos],$data->[$pos+1]) if $opt_frameinfo;
- printf("Head\t%8x\tID\t%8x\tStatus\t%08x\tError\t%08x\tDebug\t%08x\tTime\t%s\n",
- $SensorHead, $SensorId, $SensorStatus, $SensorError, $SensorDebug, $SensorTime);
- }
- $pos+= 4;
-
- $PMap->{$SensorId}->[575]->[1151] = 0 unless defined $PMap->{$SensorId}->[575]->[1151];
- my $matrix = $PMap->{$SensorId};
-
-
-
-
-
- #Could it be...?
- if($SensorHead != 0xffffffff) {
- #Something is really wrong with data. Skip SubEvent!
- printf("Broken Sensor Header\n") if $opt_frameinfo;
- $Statistics->{$SensorId}->{Broken}++;
- last SSELoop;
- }
-
- #Check Status Word
- my $SensorIsValid = 0;
- if($SensorStatus == 0xf000000f) {
- $SensorIsValid = 1;
- $Statistics->{$SensorId}->{Valid}++;
- }
- else {
- $SensorIsValid = 0;
- $Statistics->{$SensorId}->{Broken}++;
- }
-
- if($SensorIsValid){
- #Hey Sensor, tell me who you are!
- my $SensorDummy = ($data->[$pos+0] << 16) + $data->[$pos+1];
- my $SensorNumber = ($data->[$pos+2] << 16) + $data->[$pos+3];
- my $SensorLength = $data->[$pos+5];
- $pos+=6;
-
- printf("\t\t\tHeader\t%08x\tFrame\t%08x\tLength\t%i\n",
- $SensorDummy, $SensorNumber, $SensorLength) if $opt_frameinfo;
-
- my $FrameEndPos = $pos + $SensorLength*2;
- my ($d, $line, $column, $pixels, $statecnt, $ovf) = (0,0,0,0,0,0);
- while(1) {
- $d = $data->[$pos++];
-
- #Is new line?
- if($statecnt-- == 0) {
- $ovf += ($d >> 15) & 1;
- $line = ($d >> 4) & 0x7FF;
- $statecnt = $d & 0xF;
- }
- else {
- $pixels = ($d & 0x3);
- $column = ($d >> 2) & 0x7FF;
- printf("\t$line, $column x %d\n",$pixels+1) if $opt_frameinfo;
-
- $matrix->[$line]->[$column]++;
- if ($pixels > 0) {
- $matrix->[$line]->[$column+1]++;
- if ($pixels > 1) {
- $matrix->[$line]->[$column+2]++;
- if ($pixels > 2) {
- $matrix->[$line]->[$column+3]++;
- }
- }
- }
- }
-
- last if $pos >= $FrameEndPos;
- }
-
-
- #Read end of frame marker without check
- $pos+=2;
- }
- else {
- #TODO: handling for frames with invalid status, but data.
- }
- if($pos >= $RocEnd){
- last SensLoop;
- }
- }
- }
- }
-
-
-sub WriteResults {
-
-
- foreach my $id (keys $Statistics) {
- #No frames? No plot!
- if(!defined $Statistics->{$id}->{Valid}) {next;}
-
- my $fn = "gnuplot";
- $fh = new FileHandle ("|$fn") or die "error: no gnuplot";
- $fh->autoflush(1);
-
- print $fh "set terminal png size 800,400 font \",9\";\n";
- print $fh strftime("set label 100 \"%H:%M:%S\" at screen 0.98,0.02 right tc rgb \"#000044\" font \"monospace,8\"\n", localtime());
- print $fh "set palette model RGB;\n";
- print $fh "set xrange [0:1152];\n";
- print $fh "set yrange [0:576];\n";
- print $fh "set cbrange [0:5000];\n";
- print $fh "set palette defined ( 0 'white', 1 'red', 5 'black', 10 'blue', 5000 'green');\n";
- my $s = sprintf("%04x",$id);
- print $fh "set output './image_recalibrated_$s.png';\n";
- print $fh "plot '-' matrix with image\n";
-
- my @matrix;
-
- for(my $y = 0; $y < 576; $y++) {
- my $map = $PMap->{$id}->[$y];
- #Define lengths of all arrays
- $map->[1152] = 0;
- #Fill undef with 0
- @matrix = map {$_ || 0 } @{$map};
- #Join lines
- my $l = join(" ",@matrix);
- print $fh $l."\n";
- }
-
- print $fh "e\nexit\n";
- $fh->close();
- }
-
-
- }
-
+++ /dev/null
-
-// var sensorIdHash = new Object();
-
-
-
-
-function reloadQuickEditArea(configFile,destId) {
-
- var configFile_ = encodeURIComponent(configFile);
- var destId_ = encodeURIComponent(destId);
- getdata("testgui.pl?action=print_quickEditArea&configFile="+configFile_+"&destId="+destId_,destId,false);
-
-}
-
-
-
-function run(time) {
-// sensorIdHash["hugo"]="hugo";
-// sensorIdHash["hugo2"]="hugonaut";
-
-
- for( var sensorId in previewAreaIdHash){
-// alert(laufid+" => "+previewAreaIdHash[laufid]);
- var sensorId_ = encodeURIComponent(sensorId);
- getdata("testgui.pl?action=showPlot&sensorId=",previewAreaIdHash[sensorId],true);
- }
-
- getdata("run.pl","theConsole",false);
-
- for( var sensorId in previewAreaIdHash){
-// alert(laufid+" => "+previewAreaIdHash[laufid]);
- var sensorId_ = encodeURIComponent(sensorId);
- getdata("testgui.pl?action=showPlot&sensorId="+sensorId_,previewAreaIdHash[sensorId],true);
- }
-}
-
-
-
-function toggleVis(elementId) {
-if(document.getElementById(elementId)){
-if( document.getElementById(elementId).style.visibility == "visible") {
- document.getElementById(elementId).style.visibility = "collapse";
-} else {
- document.getElementById(elementId).style.visibility = "visible" ;
-}
-}
-}
\ No newline at end of file
+++ /dev/null
-#!/usr/bin/perl -w
-#print "Content-type: text/html\n\n";
-
-
-my $me = "testgui.pl";
-
-use strict;
-use warnings;
-use XML::LibXML;
-use POSIX;
-use CGI ':standard';
-use CGI::Carp qw(fatalsToBrowser);
-use HTML::Entities;
-require Common;
-require xmlOperations;
-
-
-##### preliminary hardcoded stuff:
-
-our $setupDir = '../setup';
-our $confDir = '../config';
-our $specDir = '../specs';
-
-my $setupFileName = "testsetup.xml";
-my $setupFile = $setupDir."/".$setupFileName;
-
-# the file that tells me what fields should be printed in the quick edit area
-# for each sensor
-my $quickEditMaskFileName = "quickEditMask.xml";
-my $quickEditMaskFile = $confDir."/".$quickEditMaskFileName;
-
-
-#### globals:
-
-my $quickEditMaskTree;
-my $setupTree;
-my $sensorAreaId;
-my $quickEditAreaId;
-
-my %previewAreaIdHash;
-
-
-#######################
-
-my $q = CGI->new;
-
-
-
-unless($q->param()) {
- #if called without arguments,
- init_html();
-} else {
-#####################################
-######## process CGI request ########
-#####################################
- print header;
- #process the arguments
-
- if ($q->param('action') eq "print_quickEditArea") {
- my $configFileName = $q->param('configFile');
- my $destId = $q->param('destId');
- $quickEditAreaId = $destId;
- print_quickEditArea($configFileName);
- } elsif ($q->param('action') eq "showPlot") {
-
- my $sensorId = $q->param('sensorId');
- my $imgSrc = './preview/image_recalibrated_'.$sensorId.'.png';
- if (-e $imgSrc) {
- print img{src=>$imgSrc."?".rand(),title=>$sensorId};
- } else {
- print img{src=>"./preview/error.jpg",title=>$sensorId};
- }
- } else {
-
- print start_html(
- -title=>'testgui_debug',
- -style=>{'src'=>'../layout/styles.css'}
- );
- report_param();
-
- }
-
-}
-
-
-
-
-
-
-
-
-
-##################################
-#### Subs
-##################################
-
-sub parse_setupFile {
- my $parser = XML::LibXML->new();
- unless( -e $setupFile) {
- die "setup file $setupFile does not exist!\n";
- }
- $setupTree = $parser->parse_file($setupFile);
-}
-
-
-sub parse_quickEditMaskFile {
- my $parser = XML::LibXML->new();
- unless( -e $quickEditMaskFile) {
- die "quickEditMaskFile $quickEditMaskFile does not exist!\n";
- }
- $quickEditMaskTree = $parser->parse_file($quickEditMaskFile);
-}
-
-
-
-sub init_html{
-
-print header;
-print start_html(
--title=>'testgui',
--style=>[{'src'=>'../layout/styles.css'},
-{'src'=>'../layout/testgui.css'}
-],
--script=>[
-{ -type => 'text/javascript', -src => './testgui.js'},
-{ -type => 'text/javascript', -src => './getdata.js'},
-{ -type => 'text/javascript', -src => './xmlOperations.js'}
-]
-);
-
-# print h2("testgui");
-
-
-# print "<div>";
-#
-# print "<table>";
-# print "<tr><td>IVDREF1A</td><td>IVDREF1B</td></tr>";
-# print "<tr><td><input type='text' id='IVDREF1A'></td></tr>";
-# print "</table>";
-#
-#
-# print "</div>";
-
-
-
-
-# print "<div id='quickEditArea'>";
-# print_quickEditArea("0.xml");
-# print "</div>";
-print_setupStructure();
-print q%<input type='button' onClick='run(0.2)' value='run'>%;
-
-
-
-
-# pass a list of sensor Ids to the javascript side
-# more precisely: a hash consisting of $sensorId=>$previewAreaId
-# so the javascript knows which placeholders to fill with actual plots
-print "<script language='javascript'>\n";
-print "var previewAreaIdHash = new Object();\n";
-for my $sensorId (keys %previewAreaIdHash){
- print "previewAreaIdHash[\"$sensorId\"]=\"".$previewAreaIdHash{$sensorId}."\";\n";
-}
-print "</script>";
-# end of that story
-
-print "<input type='button' value='show/hide debug output' onclick='toggleVis(\"theConsole\")'>";
-print "<div id='theConsole'>[the \"console\"]</div>";
-
-print end_html;
-
-
-
-}
-
-
-
-
-sub print_setupStructure {
-
- unless(defined($setupTree)) {
- parse_setupFile();
- }
- my $setup = $setupTree->findnodes("/DetectorSetup")->shift();
- unless(defined($setup)) { die "did not find DetectorSetup node in setup file!\n";}
- my $setupDesc = $setup->findvalue("./description");
- my $setupName = $setup->findvalue("./\@name");
- print h2("Setup: $setupName");
- print "<p>description: $setupDesc</p>";
-
- my @controllers = $setup->findnodes("./controller");
- unless(scalar(@controllers) > 0) { die "no controllers in setup file!\n";}
- for my $controller (@controllers) {
- my $controllerName = $controller->findvalue("./\@name");
- my $controllerAddress = $controller->findvalue("./\@address");
- my $controllerId = $controller->findvalue("./\@id");
- print h3("Controller name:$controllerName id:$controllerId address:$controllerAddress");
-
- my @chains = $controller->findnodes("./chain");
- unless(scalar(@chains)>0) {die "no chains attached to controller $controllerName\n";}
-
- for my $chain (@chains) {
- my $chainName = $chain->findvalue("./\@name");
- my $chainId = $chain->findvalue("./\@id");
- print h4("Chain name:$chainName id:$chainId");
-
- my @sensors = $chain->findnodes("./sensor");
- unless(scalar(@sensors)>0) { die "no sensors attached to chain $chainName\n";}
- for my $sensor (@sensors) {
-
- my $sensorId = $sensor->findvalue("./\@id");
- my $sensorName = $sensor->findvalue("./\@name");
- my $sensorConfig = $sensor->findvalue("./\@config");
- my $sensorEnabled = $sensor->findvalue("./\@enabled");
- my $sensorSerial = $sensor->findvalue("./\@serial");
- my $sensorPosition = $sensor->findnodes("./position")->shift();
- my $sensorDescription = $sensor->findvalue("./description");
-
-# print h5("Sensor name:$sensorName id:$sensorId");
-# print "<p>description: $sensorDescription</p>";
- print_sensorArea($sensor);
- }
-
- }
-
- }
-
-}
-
-
-sub report_param {
- print br,br;
- print "action ".$q->param('action')." executed with following parameters:",br;
- my @params = $q->param();
- print "<table>";
- for (@params) {
- print "<tr><td>";
- print escapeHTML($_);
- print "</td><td>=</td><td>";
- print escapeHTML($q->param($_));
- print "</td>";
-
- }
- print "</table>";
-
-}
-
-
-#### html output subs ###########
-
-sub print_sensorArea {
-
- my $sensor = $_[0];
- # this is an xml object that contains the sensor node
- # from the setup file
- my $sensorId = $sensor->findvalue("./\@id");
- my $sensorName = $sensor->findvalue("./\@name");
- my $sensorConfig = $sensor->findvalue("./\@config");
- my $sensorEnabled = $sensor->findvalue("./\@enabled");
- my $sensorSerial = $sensor->findvalue("./\@serial");
- my $sensorPosition = $sensor->findnodes("./position")->shift();
- my $sensorDescription = $sensor->findvalue("./description");
-
-
- $sensorAreaId = $sensorId;
- print "<div class='sensorAreaDiv' id='".$sensorAreaId."'>";
- print "<table class='sensorAreaTable'>";
- print "<tr>";
- print "<td colspan=2 align='center' class='td_solid'>";
- print "<table><tr><td>$sensorName (id=$sensorId)</td></tr>";
- print "<tr><td>description: $sensorDescription</td></tr></table>";
- print "</td>";
- print "</tr>";
- print "<tr>";
- my $previewAreaId = "preview_".$sensorId;
- print "<td id='".$previewAreaId."' class='previewArea'> [not run yet!] </td>";
- $quickEditAreaId = "quickEdit_".$sensorId;
- print "<td id='".$quickEditAreaId."' class='quickEditArea td_solid'>";
- print_quickEditArea($sensorConfig);
- print "</td>";
- print "</tr>";
-# print "<tr>";
-# print "<td colspan=2 align='right'>";
-# my $command = "./prevImg.pl";
-# print q%<input type='button' onClick='getdata("%.$command.q%","%.$previewAreaId.q%","true")' value='run'>%;
-# print "</td>";
-# print "</tr>";
- print "</table>";
- print "</div>";
-
- $previewAreaIdHash{$sensorId}=$previewAreaId;
-}
-# description the block that is printed for each sensor,
-# containing the preview plot and the quick edit area
-
-
-sub print_quickEditArea {
-
- my $argumentConfigFile = $_[0];
-
- unless(defined($quickEditMaskTree)) {
- parse_quickEditMaskFile();
- }
-
-# print "<table>";
-# my @fields = $quickEditMaskTree->findnodes("/MAPS/register/field");
-# for my $field (@fields) {
-# print "<tr><td>";
-# print $field->findvalue("./\@name");
-# print "</td></tr>";
-#
-#
-# }
-# print "</table>";
-# print "print_registers();",br;
- parseConfigAndSpec($argumentConfigFile);
- integrateAncestry();
- print "<div align=center>".getConfigFileName()."</div>";
- print_registers(getConfigFile());
-
-
-}
-
-
-
-
-sub print_registers {
-
- my $configFile = getConfigFile();
- my $specFile = getSpecFile();
- my $configFileName = getConfigFileName();
- my $specFileName = getSpecFileName();
- my $configTree = getConfigTree();
- my $specTree = getSpecTree();
-
- my $xmlfile = $_[0];
- my $xmltree;
-# if ( $xmlfile eq $configFile ) {
-# $xmltree = $configTree;
-# }
-# elsif ( $xmlfile eq $specFile ) {
-# $xmltree = $specTree;
-# }
-# else {
-# die "xmlfile given to sub print_registers is unknown";
-# }
- my @registers = sort by_name $quickEditMaskTree->findnodes("/MAPS/register");
- print "<table class=\"registers\"";
- if ( $xmlfile eq $configFile ) {
- print "id='configFileRegisters'";
- }
- print ">";
- for my $register (@registers) {
-
- my $registerName = $register->findvalue("./\@name");
-
-# # if register not in the mask file, don't print!
-# unless( $quickEditMaskTree->findnodes("/MAPS/register[\@name='".
-# $registerName."']")) {
-# next;
-# }
-
- my $registerId = $register->findvalue("./\@id");
- my $registerSize = $register->findvalue("./\@size");
- my $registerDescr = prepare_text(
- $specTree->findvalue(
- "/MAPS/register[\@name='" . $registerName . "']/description"
- )
- || "n/a"
- );
-
- my $flistid = $configFile . "//" . $registerName;
-
- print "<tr>";
-
- print <<EOF;
-<td onClick='toggleVis("$flistid",this)' class='regheader'> + </td>
-EOF
- print "<td title=\"$registerDescr\">$registerName</td>";
-
- #print "<td>$registerId</td>";
-
-# if ( $xmlfile eq $configFile ) { # we are printing the Specifications Tree
-# print <<EOF;
-# <td class='button_move' onclick='deleteSettings("$configFileName","$registerName","");reloadQuickEditArea("$configFileName","$quickEditAreaId")'> X </td>
-# EOF
-# }
-
-
- print "</tr>";
-
- #print "<tr>";
-
- print '<tr id="' . $flistid . '" class="bitfield">';
- print '<td></td>';
- print '<td class="fieldcontainer">';
- print_fields( $configFile, $register );
- print "<td>";
- print "</tr>";
- }
- print "</table>";
-}
-
-sub print_fields {
-
- my $configFile = getConfigFile();
- my $specFile = getSpecFile();
- my $configFileName = getConfigFileName();
- my $specFileName = getSpecFileName();
- my $configTree = getConfigTree();
- my $specTree = getSpecTree();
-
- my $register = $_[1];
- my $xmlfile = $_[0];
- my $registerName = $register->findvalue("./\@name");
- my @maskFields = sort by_name $register->findnodes("./field");
- print "<table class=\"fields\">";
- for my $maskField (@maskFields) {
-
- my $fieldName = $maskField->findvalue("./\@name");
-
- my $field = $configTree->findnodes("/MAPS/register[\@name='".
- $registerName."']/field[\@name='".$fieldName."']")->shift();
-
-
- unless(defined($field)){
-
- my $specField = $specTree->findnodes("/MAPS/register[\@name='".
- $registerName."']/field[\@name='".$fieldName."']")->shift();
- $field=$register->addNewChild("","field");
- $field->setAttribute("name",$fieldName);
- $field->setAttribute("value",$specField->findvalue("./\@defaultValue"));
- $field->setAttribute( "isHeritageFrom", $specFileName );
- }
-
-
-
-
-# # if field not in the mask file, don't print!
-# unless( $quickEditMaskTree->findnodes("/MAPS/register[\@name='".
-# $registerName."']/field[\@name='".$fieldName."']")) {
-# next;
-# }
-
- my $isHeritageFrom = $field->findvalue("./\@isHeritageFrom") || "";
-# my $isHeritageFrom = "";
- my $readOnlyFlag = 0;
- my $fieldValue = $field->findvalue("./\@value");
- my $fieldSize =
- $specTree->findvalue( "/MAPS/register[\@name='"
- . $registerName
- . "']/field[\@name='"
- . $fieldName
- . "']/\@size" )
- || "n/a";
- my $fieldDescr = prepare_text(
- $specTree->findvalue(
- "/MAPS/register[\@name='"
- . $registerName
- . "']/field[\@name='"
- . $fieldName
- . "']/description"
- )
- || "n/a"
- );
-
- my $maxFieldVal = 2**$fieldSize;
- my $sizeInfo =
- sprintf(
- "Field contains %d bits, possible values: 0-%d (0x0-0x%x)\n\n",
- $fieldSize, $maxFieldVal, $maxFieldVal );
-
- $fieldDescr = $sizeInfo . $fieldDescr;
-
- unless ( $isHeritageFrom eq "" ) {
- $fieldDescr =
- "Field was inherited from $isHeritageFrom\n\n" . $fieldDescr;
- }
-
- my $fieldId = $xmlfile . "//" . $registerName . "/" . $fieldName;
- if ( $fieldValue eq "" ) {
- $fieldValue = $field->findvalue("./\@defaultValue");
- $readOnlyFlag = 1;
- }
-
- print "<tr class='fileLevel" . getFileLevel($isHeritageFrom) . "'>";
- print "<td width=120 title=\"$fieldDescr\"";
- print ">$fieldName</td>";
- print "<td> = </td>";
- if ($readOnlyFlag) {
- print <<EOF;
- <td width=120 align='right'>$fieldValue</td>
-EOF
- }
- else {
- print <<EOF;
-<td align='right'>
-<input type='text' align='right' value='$fieldValue' onchange='saveSettings("$configFileName","$registerName","$fieldName",this.value);reloadQuickEditArea("$configFileName","$quickEditAreaId")' >
-</td>
-EOF
-
- }
-
- print '</td>';
-# if ( $xmlfile eq $specFile ) { # we are printing the Specifications tree
-# print <<EOF;
-# <td class='button_move' onclick='saveSettings("$configFileName","$registerName","$fieldName","$fieldValue");'> → </td>
-# EOF
-# }
- if ( $xmlfile eq $configFile ) { # we are printing the Settings Tree
-
- if ( $isHeritageFrom eq "" )
- { # these are actual settings, not inherited!
- print <<EOF;
-<td class='button_move' onclick='deleteSettings("$configFileName","$registerName","$fieldName");reloadQuickEditArea("$configFileName","$quickEditAreaId")'> X </td>
-EOF
- }
- else {
- print "<td class='button_move_deac'> X </td>";
- }
- }
- print "</tr>";
- if ( ( any2dec($fieldValue) < 0 )
- or ( any2dec($fieldValue) > $maxFieldVal ) )
- {
- print
-"<tr class='fieldError'><td colspan = 4 align='center'>!!!Above value not in allowed range!!!</td></tr>"
- ; # just debug
- }
- }
- print "</table>";
-
-}
jspc29 / mvdsensorcontrol.git / commitdiff
