git.rot13.org Git - x300-pci/blob - gpio.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use autodie;
   5
   6 package gpio;
   7
   8 use Data::Dump qw(dump);
   9
  10 my @last;
  11 my $mode;
  12
  13 my $bcm_desc;
  14 foreach my $pin_file ( glob 'pins/bcm-*.tsv' ) {
  15         open(my $fh, '<', $pin_file);
  16         while(<$fh>) {
  17                 chomp;
  18                 my ($pin,$desc) = split(/\t+/,$_,2);
  19                 $bcm_desc->{$pin} = $desc;
  20         }
  21         close($fh);
  22         warn "# $pin_file ",dump($bcm_desc);
  23 }
  24
  25 sub add_bcm_desc {
  26         my ( $pin, $desc ) = @_;
  27         $bcm_desc->{$pin} = $desc;
  28 }
  29
  30 sub pins {
  31
  32 my @pcf = `gpio -x pcf8591:120:0x48 readall`;
  33 my @gpio = `gpio -g readall`;
  34 my $i = 0;
  35
  36 foreach (@gpio) {
  37         chomp;
  38 #       next unless /\d\s/;
  39
  40         # kill wiringpi mapping columns
  41         s/^(.{8}).{6}/$1/;
  42         s/.{6}(.{8})$/$1/;
  43
  44         s/([ \d]{2})(...GPIO.)../$1$2$1/;
  45         s/(GPIO.)..(...)(\s*\d+)/$1$3$2$3/;
  46
  47         my $line = substr($_,0,29) . '  ' . substr($_,39);
  48         if ( my $add = shift @pcf ) {
  49                 $line .= '  ' . $add;
  50         }
  51
  52         chomp $line;
  53         my @l = split(/\|/, $line);
  54         my @o = split(/\|/, $last[$i] || '');
  55
  56         if ( $#l >= 9 ) {
  57                 no warnings;
  58
  59                 $l[2] = sprintf "%-" . length($l[2]) . 's', ($bcm_desc->{ $1 }||$l[2]) if $l[1] =~ m/(\d+)/;
  60                 $l[8] = sprintf "%"  . length($l[8]) . 's', ($bcm_desc->{ $1 }||$l[8]) if $l[9] =~ m/(\d+)/;
  61
  62                 $mode->{ $l[1]  } = [ $l[4] + 0, $l[2], $l[3] ];
  63                 $mode->{ $l[9]  } = [ $l[6] + 0, $l[8], $l[7] ];
  64                 $mode->{ $l[11] } = [ $l[12], $l[13] ] if $l[13];
  65                 #warn "## l = ",dump(@l) if $i > 2 && $i < 5;
  66         }
  67
  68
  69         if ( $last[$i] && $line ne $last[$i] ) {
  70                 foreach my $i ( 0 .. $#l ) {
  71                         $l[$i] = "\e[33;7;1m$l[$i]\e[0m" if $l[$i] ne $o[$i];
  72                 }
  73         }
  74
  75         $last[$i] = $line;
  76         $i++;
  77
  78         # re-create from modified data
  79         $line = join('|', @l);
  80         $line .= "|" unless $line =~ m/\+$/;
  81         print "$line\n";
  82
  83 }
  84
  85 #warn "# mode = ", dump($mode);
  86
  87 } #/gpio
  88
  89 sub pin2dir {
  90         my $pin = shift;
  91         my ($p) = grep { /$pin/ } keys %$mode;
  92 warn dump($p);
  93         my $dir = $mode->{ $p }->[2];
  94         warn "# pin2dir $pin = $dir\n";
  95         return $dir;
  96 }
  97
  98 sub cmd {
  99         my $cmd = shift;
 100         chomp $cmd;
 101         if ( $cmd =~ m/^(\d+)$/ ) {
 102                 my $pin = $1;
 103                 system "gpio -g mode $pin out" unless pin2dir($pin) =~ m/OUT/i;
 104
 105                 my $v = `gpio -g read $pin`;
 106                 warn "# pin $pin ", $v;
 107                 $v ^= 1;
 108                 system "gpio -g write $pin $v";
 109         } elsif ( $cmd =~ m/^gpio\s+(.+)/ ) {
 110                 system "gpio -g $1";
 111         }
 112 }
 113
 114 package main;
 115
 116 return 1 if caller; # used as module
 117
 118 while(1) {
 119         gpio::pins();
 120         my $cmd = <STDIN>;
 121         gpio::cmd($cmd);
 122 }
 123