added symbol hints

[vrDialog] / db3-dump.pl

diff --git a/db3-dump.pl b/db3-dump.pl
index ec8843e..c6ec14e 100755 (executable)
--- a/db3-dump.pl
+++ b/db3-dump.pl
@@ -24,11 +24,15 @@ sub lookup {
        return $data;
 }
 
-my $text = lookup( qq{
+my $names = lookup( qq{
 select Id, texteEN from "SymbolNames"
 });
 
-#warn "# text = ",dump( $text );
+#warn "# names = ",dump( $names );
+
+my $hints = lookup( qq{
+select Id, texteEN from "SymbolHints"
+});
 
 my $types = lookup( qq{
 select TypeId, TypeName from "DataTyps"
@@ -45,11 +49,15 @@ order by adresse
 $sth->execute;
 
 while( my $row = $sth->fetchrow_hashref ) {
-       printf "%-3d %02x %-27s %-15s %s %s\n",
+       my $hint = $hints->{ $row->{texteid} };
+       $hint =~ s/[\r\n]+/ | /gs;
+       printf "%-3d %02x %-27s %-15s %s %s [ %s ]\n",
                $row->{adresse},
                $row->{adresse},
                $types->{ $row->{typid} },
                $units->{ $row->{id} },
                $row->{symbolname},
-               $text->{ $row->{texteid} } || $row->{symbolname};
+               $names->{ $row->{texteid} } || $row->{symbolname},
+               $hint,
+       ;
 }