Lines Matching refs:line
52 while($line = <NETLIST>) {
56 if( $line =~ /^P/) {
60 elsif( $line =~ /^numslots=/) {
63 elsif( $line =~ /^device=/) {
66 elsif( $line =~ /^footprint=/) {
69 print OUTNET $line;
73 if( $line =~ /^{/) {
79 print OUTNET $line;
89 if( $line =~ /^pinnumber/) {
91 $pin_num = $line;
98 elsif( $line =~ /^pinseq/) {
107 elsif( $line =~ /^pintype/) {
112 elsif( $line =~ /^pinlabel/) {
117 elsif( $line =~ /^}/) {
143 print OUTNET $line;
145 $prev_line = $line; # Save line for next pass