From 436d3178639871cdacfbf07af1155798200d738c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 13 Dec 2014 16:51:26 +0100 Subject: [PATCH 1/1] added symbol hints --- db3-dump.pl | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) 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, + ; } -- 2.20.1