epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

re-organizing print out and diagnostics

Browse Source
This commit is contained in:
Ronaldo Mercado
2010-05-25 22:20:18 +01:00
parent 408721daec
commit 18a63f8754
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/cap5/capr.pl
View File

@@ -265,11 +265,10 @@ sub printField {
$outStr = sprintf("%-5s %x", $field, $fieldData);
} elsif ( $dataType eq "ezcaDouble" || $dataType eq "ezcaFloat" ) {
$outStr = sprintf("%-5s %.8f", $field, $fieldData);
} elsif ( $dataType eq "ezcaShort" ) {
$outStr = sprintf("%-5s %d", $field, $fieldData);
} elsif ( $dataType eq "ezcaChar" ) {
$outStr = sprintf("%-5s %d", $field, ord($fieldData));
}else {
# ezcaByte, ezcaShort, ezcaLong
$outStr = sprintf("%-5s %d", $field, $fieldData);
}
@@ -280,7 +279,6 @@ sub printField {
else { $wide = 80;}
$pad = $wide - $len;
#print "outStr=$outStr .. pad=$pad\n";
if( $col + $wide > $screenWidth ) {
print("\n");
@@ -373,6 +371,18 @@ sub printRecord {
my $read_pvs;
$read_pvs = parallel_caget( @list );
print "====-------------====";
for (my $i=0; $i < scalar @list; $i++) {
$field = $fields_pr[$i];
$fToGet = $list[$i];
$data = $callback_data{$fToGet};
$fType = $ftypes[$i];
$base = $bases[$i];
my $len = length $data;
chomp $data;
print "$field ($fType-$len): $data\n";
}
print "-------------====";
$col = 0;
for (my $i=0; $i < scalar @list; $i++) {
$field = $fields_pr[$i];