bb/wikify_pads.pl

   1 #!/usr/bin/perl
   2 # Created:20080708
   3 # By Jeff Connelly
   4 #
   5 # Parse a .pads file and make a wiki table of the pins
   6 while(<>)
   7 {
   8     chomp;
   9     last if $_ eq "*NET*";
  10 }
  11 while(<>)
  12 {
  13     if (m/^[*]SIGNAL[*] (.*)/)
  14     {
  15         $signals{$signal} = [ @pins ];
  16         $signal = $1;
  17         @pins = ();
  18     } else {
  19         push @pins, split /\s+/;
  20     }
  21 }
  22
  23 print <<EOF;
  24 {| class="wikitable"
  25 ! Net !! Connections
  26 |-|
  27 EOF
  28 for my $signal (sort keys %signals)
  29 {
  30     #print "$signal: @{$signals{$signal}}\n";
  31     print "| $signal || @{$signals{$signal}}\n";
  32     print "|-|\n";
  33 }
  34
  35 print "|}\n";