From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 13 Dec 2014 15:51:26 +0000 (+0100)
Subject: added symbol hints
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=436d3178639871cdacfbf07af1155798200d738c;hp=7aaace97d931ab95737c6b87a608f7247317e46b;p=vrDialog

added symbol hints
---

diff --git a/db3-dump.pl b/db3-dump.pl
index ec8843e..c6ec14e 100755
--- 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,
+	;
 }