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 pins {
  26
  27 my @pcf = `gpio -x pcf8591:120:0x48 readall`;
  28 my @gpio = `gpio -g readall`;
  29 my $i = 0;
  30
  31 foreach (@gpio) {
  32         chomp;
  33 #       next unless /\d\s/;
  34
  35         # kill wiringpi mapping columns
  36         s/^(.{8}).{6}/$1/;
  37         s/.{6}(.{8})$/$1/;
  38
  39         s/([ \d]{2})(...GPIO.)../$1$2$1/;
  40         s/(GPIO.)..(...)(\s*\d+)/$1$3$2$3/;
  41
  42         my $line = substr($_,0,29) . substr($_,39);
  43         $line .= shift @pcf || '';
  44
  45         chomp $line;
  46         my @l = split(/\|/, $line);
  47         my @o = split(/\|/, $last[$i] || '');
  48         $last[$i] = $line;
  49
  50         if ( $#l >= 9 ) {
  51                 no warnings;
  52
  53                 $l[2] = sprintf "%-" . length($l[2]) . 's', ($bcm_desc->{ $1 }||$l[2]) if $l[1] =~ m/(\d+)/;
  54                 $l[8] = sprintf "%"  . length($l[8]) . 's', ($bcm_desc->{ $1 }||$l[8]) if $l[9] =~ m/(\d+)/;
  55
  56                 $mode->{ $l[1]  } = [ $l[4] + 0, $l[2], $l[3] ];
  57                 $mode->{ $l[9]  } = [ $l[6] + 0, $l[8], $l[7] ];
  58                 $mode->{ $l[11] } = [ $l[12], $l[13] ] if $l[13];
  59                 #warn "## l = ",dump(@l) if $i > 2 && $i < 5;
  60         }
  61
  62
  63         if ( $last[$i] && $line ne $last[$i] ) {
  64                 foreach my $i ( 0 .. $#l ) {
  65                         $l[$i] = "\e[33;7;1m$l[$i]\e[0m" if $l[$i] ne $o[$i];
  66                 }
  67         }
  68
  69         $line = join('|', @l) . "|";
  70         print "$line\n";
  71
  72         $i++;
  73 }
  74
  75 #warn "# mode = ", dump($mode);
  76
  77 } #/gpio
  78
  79 sub pin2dir {
  80         my $pin = shift;
  81         my ($p) = grep { /$pin/ } keys %$mode;
  82 warn dump($p);
  83         my $dir = $mode->{ $p }->[2];
  84         warn "# pin2dir $pin = $dir\n";
  85         return $dir;
  86 }
  87
  88 sub cmd {
  89         my $cmd = shift;
  90         chomp $cmd;
  91         if ( $cmd =~ m/^(\d+)$/ ) {
  92                 my $pin = $1;
  93                 system "gpio -g mode $pin out" unless pin2dir($pin) =~ m/OUT/i;
  94
  95                 my $v = `gpio -g read $pin`;
  96                 warn "# pin $pin ", $v;
  97                 $v ^= 1;
  98                 system "gpio -g write $pin $v";
  99         } elsif ( $cmd =~ m/^gpio\s+(.+)/ ) {
 100                 system "gpio -g $1";
 101         }
 102 }
 103
 104 package main;
 105
 106 return 1 if caller; # used as module
 107
 108 while(1) {
 109         gpio::pins();
 110         my $cmd = <STDIN>;
 111         gpio::cmd($cmd);
 112 }
 113