partlib

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#! /usr/bin/perl
use strict;
my $line;
while( $line = <> ) {
  chomp $line;
  chomp $line;
  # via: no solderstop hole
  if( $line =~ /^([ \t]*)Via\[([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) [-0-9]+ (.*)$/ ) {
    print( "$1Via[$2 $3 $4 $5 0 $6\n" );
  # pin: solderstop hole diameter 6 mil more than copper diameter
  } elsif( $line =~ /^([ \t]*)Pin\[([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) [-0-9]+ (.*)$/ ) {
    my $solderstop = $4 + 600;
    print( "$1Pin[$2 $3 $4 $5 $solderstop $6\n" );
  # pad: solderstop width 6 mil more than copper width
  } elsif( $line =~ /^([ \t]*)Pad\[([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) ([-0-9]+) [-0-9]+ (.*)$/ ) {
    my $solderstop = $6 + 600;
    print( "$1Pad[$2 $3 $4 $5 $6 $7 $solderstop $8\n" );
  # keep unknown lines
  } else {
    print( "$line\n" );
  }
} # while( $line = <> )
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX