added flag for single-bit fields to get.pl

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 8d99242fc172b1e83ab0b4c8c97a459bde853f6f..d202a3250d401de72512cf649b2e89ad391ff733 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -161,12 +161,15 @@ sub FormatPretty {
   $cstr  = "" unless $cstr;
   my $ret, my $cl;
   if (defined $cont) {
-    my $isflag = 1; $isflag = 0 if $obj->{noflag};
+    my $isflag = 1; 
+       $isflag = 0 if $obj->{noflag};
+    my $single = ""; 
+       $single = " single=\"1\"" if (($obj->{format} eq 'bitmask' && $obj->{size} == 1) || $obj->{format} eq 'boolean');
     $cl = "class=\"".($value?"bad":"good")."\"" if     ( $obj->{errorflag} && !$obj->{invertflag} && $isflag);
     $cl = "class=\"".($value?"good":"bad")."\"" if     ( $obj->{errorflag} &&  $obj->{invertflag} && $isflag);
     $cl = "class=\"".($value?"high":"low")."\"" if     (!$obj->{errorflag} && !$obj->{invertflag} && $isflag);
     $cl = "class=\"".($value?"low":"high")."\"" if     (!$obj->{errorflag} &&  $obj->{invertflag} && $isflag);
-    $cl .= sprintf(" cstr=\"$cstr\" raw=\"0x%x\"><div class=\"$class\">",$rawvalue);
+    $cl .= sprintf(" cstr=\"$cstr\"%s raw=\"0x%x\"><div class=\"$class\">",$single,$rawvalue);
     
     my $t = "";
     $ret = "<$cont ";