luke
/
magic
mirror of https://github.com/RTimothyEdwards/magic.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Corrected readspice.tcl script to ignore CDL parameters in the 

subcircuit I/O list, and to not fail with an error if something
in the PININFO line cannot be found in the layout (just prints
an error message instead).
This commit is contained in:
Tim Edwards 2020-06-30 18:05:12 -04:00
parent 52dadcff08
commit 14251b797f
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tcltk/readspice.tcl
View File

@ -106,6 +106,10 @@ proc readspice {netfile} {
set n 1
set changed false
foreach pin [lrange $ftokens 2 end] {
# If "=" is in the name, then we have finished the pins
# and are looking at parameters, and so parsing is done.
if {[string first = $pin] >= 0} {break}
# Tcl "split" will not group spaces and tabs but leaves
# empty strings.
if {$pin == {}} {continue}
@ -177,11 +181,14 @@ proc readspice {netfile} {
set infopair [split $pininfo :]
set pinname [lindex $infopair 0]
set pindir [lindex $infopair 1]
set pin [dict get $pindict $pinname]
case $pindir {
B {port $pin class inout}
I {port $pin class input}
O {port $pin class output}
if {![catch {set pin [dict get $pindict $pinname]}]} {
case $pindir {
B {port $pin class inout}
I {port $pin class input}
O {port $pin class output}
}
} elseif {$pinname != ""} {
puts stderr ".PININFO error: Pin $pinname not found."
}
}
}