+my $bcm_desc;
+foreach my $pin_file ( glob 'pins/bcm-*.tsv' ) {
+ open(my $fh, '<', $pin_file);
+ while(<$fh>) {
+ chomp;
+ my ($pin,$desc) = split(/\t+/,$_,2);
+ $bcm_desc->{$pin} = $desc;
+ }
+ close($fh);
+ warn "# $pin_file ",dump($bcm_desc);
+}
+
+sub add_bcm_desc {
+ my ( $pin, $desc ) = @_;
+ $bcm_desc->{$pin} = $desc;
+}
+
+sub pins {