projects
/
linux-gpio-pinout
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't flip 1-pin horizontally
[linux-gpio-pinout]
/
gpio.pl
diff --git
a/gpio.pl
b/gpio.pl
index
6df9d1f
..
9c59299
100755
(executable)
--- a/
gpio.pl
+++ b/
gpio.pl
@@
-138,7
+138,7
@@
foreach my $line (@lines) {
$line =~ s/\[(\w+) (\w+) \1(\d+)\]/[$1$3 $2]/g;
my @v = split(/\s*\t+\s*/,$line,4);
$line =~ s/\[(\w+) (\w+) \1(\d+)\]/[$1$3 $2]/g;
my @v = split(/\s*\t+\s*/,$line,4);
- @v = ( $v[2], $v[3], $v[0], $v[1] ) if $opt_horizontal;
+ @v = ( $v[2], $v[3], $v[0], $v[1] ) if $opt_horizontal
&& $v[2]
;
push @line_parts, [ @v ];
foreach my $i ( 0 .. 3 ) {
push @line_parts, [ @v ];
foreach my $i ( 0 .. 3 ) {
@@
-241,6
+241,7
@@
sub svg_style {
} elsif ( $name =~ m/\[(\w+)/ ) { # kernel
my $dev = $1;
my ($fg,$bg) = @{ $cols->{txt} };
} elsif ( $name =~ m/\[(\w+)/ ) { # kernel
my $dev = $1;
my ($fg,$bg) = @{ $cols->{txt} };
+ $dev = 'serial' if $dev =~ m/^tty/;
($fg,$bg) = @{ $cols->{$dev} } if exists $cols->{$dev};
rect $x,$y,$col,$bg;
return qq{ style="fill:$fg"};
($fg,$bg) = @{ $cols->{$dev} } if exists $cols->{$dev};
rect $x,$y,$col,$bg;
return qq{ style="fill:$fg"};