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
  49         if ( $#l >= 9 ) {
  50                 no warnings;
  51
  52                 $l[2] = sprintf "%-" . length($l[2]) . 's', ($bcm_desc->{ $1 }||$l[2]) if $l[1] =~ m/(\d+)/;
  53                 $l[8] = sprintf "%"  . length($l[8]) . 's', ($bcm_desc->{ $1 }||$l[8]) if $l[9] =~ m/(\d+)/;
  54
  55                 $mode->{ $l[1]  } = [ $l[4] + 0, $l[2], $l[3] ];
  56                 $mode->{ $l[9]  } = [ $l[6] + 0, $l[8], $l[7] ];
  57                 $mode->{ $l[11] } = [ $l[12], $l[13] ] if $l[13];
  58                 #warn "## l = ",dump(@l) if $i > 2 && $i < 5;
  59         }
  60
  61
  62         if ( $last[$i] && $line ne $last[$i] ) {
  63                 foreach my $i ( 0 .. $#l ) {
  64                         $l[$i] = "\e[33;7;1m$l[$i]\e[0m" if $l[$i] ne $o[$i];
  65                 }
  66         }
  67
  68         $last[$i] = $line;
  69         $i++;
  70
  71         # re-create from modified data
  72         $line = join('|', @l);
  73         $line .= "|" unless $line =~ m/\+$/;
  74         print "$line\n";
  75
  76 }
  77
  78 #warn "# mode = ", dump($mode);
  79
  80 } #/gpio
  81
  82 sub pin2dir {
  83         my $pin = shift;
  84         my ($p) = grep { /$pin/ } keys %$mode;
  85 warn dump($p);
  86         my $dir = $mode->{ $p }->[2];
  87         warn "# pin2dir $pin = $dir\n";
  88         return $dir;
  89 }
  90
  91 sub cmd {
  92         my $cmd = shift;
  93         chomp $cmd;
  94         if ( $cmd =~ m/^(\d+)$/ ) {
  95                 my $pin = $1;
  96                 system "gpio -g mode $pin out" unless pin2dir($pin) =~ m/OUT/i;
  97
  98                 my $v = `gpio -g read $pin`;
  99                 warn "# pin $pin ", $v;
 100                 $v ^= 1;
 101                 system "gpio -g write $pin $v";
 102         } elsif ( $cmd =~ m/^gpio\s+(.+)/ ) {
 103                 system "gpio -g $1";
 104         }
 105 }
 106
 107 package main;
 108
 109 return 1 if caller; # used as module
 110
 111 while(1) {
 112         gpio::pins();
 113         my $cmd = <STDIN>;
 114         gpio::cmd($cmd);
 115 }
 116