use gpio module to display raspberry pi pins

diff --git a/openocd-jtag-boundary-scan.pl b/openocd-jtag-boundary-scan.pl
index 1b58b0d..3ef10cb 100755 (executable)
--- a/openocd-jtag-boundary-scan.pl
+++ b/openocd-jtag-boundary-scan.pl
@@ -22,6 +22,8 @@ my $pin_map = '';
 
 $|=1; # flush stdout
 
+require 'gpio.pl';
+
 open(my $bsdl, '<', $bsdl_file);
 while(<$bsdl>) {
        if ( m/PIN_MAP_STRING/ ) {
@@ -153,6 +155,7 @@ while (<$sock>) {
                diff_bits($BSR, $bin);
                $BSR = $bin;
                print_io $bin if $bin ne $last_bits;
+               gpio::pins();
                last;
        } else {
                warn "# in ",dump($_);
@@ -226,6 +229,7 @@ warn "XXX",length($old_bsr), " == ",length($b);
        print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
        print $sock "drscan x300.tap $BOUNDARY_LENGTH 0\n";
 } else {
+       gpio::cmd( $cmd );
        print $sock "irscan x300.tap 0x55\n"; # SAMPLE/PRELOAD
        print $sock "drscan x300.tap $BOUNDARY_LENGTH 0\n";
 }