From 947c3951d9a88d9af71274a25b7192129682c715 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 8 Nov 2017 23:20:35 +0100 Subject: [PATCH] generate svg output with 2.54 mm spacing of pins --- gpio.pl | 144 +++++++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 137 insertions(+), 7 deletions(-) diff --git a/gpio.pl b/gpio.pl index 97ba551..b9e731d 100755 --- a/gpio.pl +++ b/gpio.pl @@ -3,6 +3,17 @@ use warnings; use strict; use autodie; use Data::Dump qw(dump); +use Getopt::Long; + +my $opt_svg = $ENV{SVG} || 0; +my $opt_alt = $ENV{ALT} || 1; +GetOptions( + 'svg!' => \$opt_svg, + 'alt!' => \$opt_alt, +); + +# svg font hints +my $font_w = 1.80; # < 2.54, font is not perfect square sub slurp { open(my $fh, '<', shift); @@ -27,8 +38,10 @@ while() { } elsif ( m/^#\s+/ ) { $include = 0; } elsif ( $include ) { - push @lines, $_; push @{ $pins->{$1} }, $line_i while ( m/\t(P\w\d+)/g ); + + push @lines, $_; + $line_i++; } else { warn "IGNORE: [$_]\n"; @@ -62,13 +75,15 @@ my @max_len = ( 0,0,0,0 ); my @line_parts; foreach my $line (@lines) { if ( $line =~ m/^#/ ) { - push @line_parts, [ $line ]; + push @line_parts, [ $line ] unless $opt_svg; next; } + $line =~ s/\([^\)]+\)//g && warn "NUKED ALT"; my @v = split(/\s*\t+\s*/,$line,4); push @line_parts, [ @v ]; foreach my $i ( 0 .. 3 ) { next unless exists $v[$i]; + next if $v[$i] =~ m/^#/; # don't calculate comments into max length my $l = length($v[$i]); $max_len[$i] = $l if $l > $max_len[$i]; } @@ -81,15 +96,130 @@ warn "# line_parts = ",dump( \@line_parts ); my $fmt = "%$max_len[0]s %-$max_len[1]s %$max_len[2]s %-$max_len[3]s\n"; +my $x = 30.00; # mm +my $y = 30.00; # mm + +if ( $opt_svg ) { + print qq{ + + + + + + + + + + + + }; # svg, insert rest of rect + +} + +my @later; + +my @pin_cols = ( '#ffffff', '#000000' ); + +sub svg_style { + my ($name,$x,$y,$col) = @_; + $y -= 2.30; # shift box overlay to right vertical position based on font baseline + + sub rect { + my ($x,$y,$col,$fill) = @_; + print qq{}; + + } + + if ( $col == 0 || $col == 2 ) { # pins + my ( $c1, $c2 ) = @pin_cols; + rect $x,$y,$col,$c1; + return qq{ style="fill:$c2"}; + } + + if ( $name =~ m/(VCC|3V3)/i ) { + rect $x,$y,$col,'#000000'; + return qq{ style="fill:#ffcc88"}; + } elsif ( $name =~ m/(G(ND|Round)|VSS)/i ) { + rect $x,$y,$col,'#000000'; + return qq{ style="fill:#ff8800"}; + } else { + return ''; + } +} + +my $alt_col = 0; + foreach my $line ( @line_parts ) { - if ( $#$line == 0 ) { - print $line->[0], "\n"; + + my $pin_color = $alt_col ? '#cccccc' : '#444444'; + $alt_col = ! $alt_col; + + if ( $opt_svg ) { + + my $tspan = qq{}; + + my $x_pos = $x; + foreach my $i ( 0 .. $#$line ) { + $tspan .= qq{[$i],$x_pos,$y,$i).sprintf(qq{>%-$max_len[$i]s}, $line->[$i]); + $x_pos += $max_len[$i] * $font_w; + } + + $tspan .= qq{}; + push @later,sprintf $tspan, @$line; + $y += 2.54; + + # swap pin colors + my ( $c1, $c2 ) = @pin_cols; + @pin_cols = ( $c2, $c1 ); + } else { - push @$line, '' while ($#$line < 3); # fill-in single row header - printf $fmt, @$line; + + if ( $#$line == 0 ) { + print $line->[0], "\n"; + } else { + push @$line, '' while ($#$line < 3); # fill-in single row header + printf $fmt, @$line; + } + } } +if ( $opt_svg ) { + print qq{ + + + }; #svg + + print @later, qq{ + + + + }; #svg + +} + __DATA__ # Cubietech Cubieboard2 ## U14 (Next to SATA connector) @@ -129,7 +259,7 @@ __DATA__ 7 PB19 (TWI1-SDA) 8 PG3 (CSI1-VSYNC/SDC1-D1) 9 PG2 (CSI1-HSYNC/SDC1-D0) 10 PG1 (CSI1-MCLK/SDC1-CLK) 11 PG4 (CSI1-D0/SDC1-D2) 12 PG5 (CSI1-D1/SDC1-D3) -13 PG6 (CSI1-D2/UART3-TX) 14 PG7 (CSI1-D3/UART3-RX +13 PG6 (CSI1-D2/UART3-TX) 14 PG7 (CSI1-D3/UART3-RX) 15 PG8 (CSI1-D4/UART3-RTS) 16 PG9 (CSI1-D5/UART3-CTS) 17 PG10 (CSI1-D6/UART4-TX) 18 PG11 (CSI1-D7/UART4-RX) 19 Ground 20 Ground -- 2.20.1