From de06eedd1d632efddb05fcb4a5188376bc11f3a2 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 9 Nov 2017 21:39:26 +0100
Subject: [PATCH] working on rpi 3, not really useful on old 4.9 kernel

---
 gpio.pl | 41 +++++++++++++++++++++++++++++++++++------
 1 file changed, 35 insertions(+), 6 deletions(-)

diff --git a/gpio.pl b/gpio.pl
index a2895c1..4491529 100755
--- a/gpio.pl
+++ b/gpio.pl
@@ -40,12 +40,17 @@ my $line_i = 0;
 my $include = 0;
 while(<DATA>) {
 	chomp;
-	if ( m/^#\s*$model/ ) {
-		$include = 1;
+	if ( m/^#\s(.+)/ ) {
+		warn "MODEL [$1] == [$model] ?\n";
+		if ( $model =~ m/$1/ ) {
+			$include = 1;
+		} else {
+			$include = 0;
+		}
 	} elsif ( m/^#\s+/ ) {
-		$include = 0;
+		$include = 1;
 	} elsif ( $include ) {
-		push @{ $pins->{$1} }, $line_i while ( m/\t(P\w\d+)/g );
+		push @{ $pins->{$1} }, $line_i while ( m/\t(\w+\d+)/g );
 
 		push @lines, $_;
 
@@ -64,7 +69,7 @@ my $pin_function;
 open(my $fh, '<', '/sys/kernel/debug/pinctrl/pinctrl-handles');
 while(<$fh>) {
 	chomp;
-	if ( m/group: (P\w\d+)\s.+function: (\S+)/ ) {
+	if ( m/group: (\w+\d+)\s.+function: (\S+)/ ) {
 		my ($pin, $function) = ($1,$2);
 		$pin_function->{$pin} = $function;
 
@@ -88,6 +93,8 @@ warn "XXX $pin $line";
 	}
 }
 
+warn "# pin_function = ",dump($pin_function);
+
 my @max_len = ( 0,0,0,0 );
 my @line_parts;
 foreach my $line (@lines) {
@@ -231,6 +238,7 @@ my $line_fmt = qq{<line x1="%s" y1="%s" x2="%s" y2="%s" style="stroke:$fg;stroke
 my @cut_marks;
 sub cut_mark {
 	my ($x,$y) = @_;
+	return unless $opt_svg;
 	push @cut_marks, printf($line_fmt, $x-5, $y-$font_b,   $x+5, $y-$font_b);
 	push @cut_marks, printf($line_fmt, $x,   $y-$font_b-5, $x,   $y-$font_b+5);
 }
@@ -244,7 +252,6 @@ my $last_cut_mark = 0;
 foreach my $i ( 0 .. $#line_parts ) {
 	$i = $#line_parts - $i if $opt_vertical;
 	my $line = $line_parts[$i];
-	warn "# LINE ",dump($line);
 
 	if ( $opt_svg ) {
 
@@ -407,3 +414,25 @@ __DATA__
 6	PI20 UART7_TX		5	PH3
 4	PI21 UART7_RX		3	PH5
 2	3V3			1	SATA-5V
+
+# Raspberry Pi 3 Model B Rev 1.2
+1	3.3v			2 	5v
+3	gpio2 (SDA.1)		4 	5v
+5	gpio3 (SCL.1)		6 	0v
+7	gpio4 (GPIO. 7)		8 	gpio14  (TxD)
+9	0v			10	gpio15  (RxD)
+11	gpio17 (GPIO. 0)	12	gpio18  (GPIO. 1)
+13	gpio27 (GPIO. 2)	14	0v
+15	gpio22 (GPIO. 3)	16	gpio23  (GPIO. 4)
+17	3.3v			18	gpio24  (GPIO. 5)
+19	gpio10 (MOSI)		20	0v
+21	gpio9 (MISO)		22	gpio25  (GPIO. 6) 
+23	gpio11 (SCLK)		24	gpio8   (CE0)
+25	0v			26	gpio7   (CE1)
+27	gpio0 (SDA.0)		28	gpio1   (SCL.0)
+29	gpio5 (GPIO.21)		30	0v
+31	gpio6 (GPIO.22)		32	gpio12  (GPIO.26)
+33	gpio13 (GPIO.23)	34	0v
+35	gpio19 (GPIO.24)	36	gpio16  (GPIO.27)
+37	gpio26 (GPIO.25)	38	gpio20  (GPIO.28)
+39	0v			40	gpio21  (GPIO.29)
-- 
2.20.1