X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=gpio.pl;fp=gpio.pl;h=078e63f4aeaa7d82dae8a105eab3fdf8b6919499;hb=38332a91fcdb3dd0a23d61e57419f77f4796a530;hp=6c653d0a9bea98df1d012798b432a87a06f9aa0c;hpb=588309c4bf7bef8915054be9d52126b704d9ac3b;p=x300-pci

diff --git a/gpio.pl b/gpio.pl
index 6c653d0..078e63f 100755
--- a/gpio.pl
+++ b/gpio.pl
@@ -22,6 +22,11 @@ foreach my $pin_file ( glob 'pins/bcm-*.tsv' ) {
 	warn "# $pin_file ",dump($bcm_desc);
 }
 
+sub add_bcm_desc {
+	my ( $pin, $desc ) = @_;
+	$bcm_desc->{$pin} = $desc;
+}
+
 sub pins {
 
 my @pcf = `gpio -x pcf8591:120:0x48 readall`;