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"
$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,
+ ;
}