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

Corrected the readspice.tcl routine to correctly handle input 

without filename extensions.
This commit is contained in:
Tim Edwards 2020-05-29 11:19:37 -04:00
parent 36f2d0cca9
commit 0eada90eab
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tcltk/readspice.tcl
View File

@ -16,33 +16,33 @@ global Opts
proc readspice {netfile} {
if [catch {open $netfile r} fnet] {
set netname [file rootname $netfile]
if [catch {open ${netfile} r} fnet] {
# Check for standard extensions (.spi, .spc, .spice, .sp, .ckt)
# Check for standard extensions (.spi, .spc, .spice, .sp, .ckt)
set testnetfile ${netfile}.spi
set testnetfile ${netname}.spi
if [catch {open ${testnetfile} r} fnet] {
set testnetfile ${netname}.spc
if [catch {open ${testnetfile} r} fnet] {
set testnetfile ${netfile}.spc
set testnetfile ${netname}.spice
if [catch {open ${testnetfile} r} fnet] {
set testnetfile ${netfile}.spice
set testnetfile ${netname}.sp
if [catch {open ${testnetfile} r} fnet] {
set testnetfile ${netfile}.sp
set testnetfile ${netname}.ckt
if [catch {open ${testnetfile} r} fnet] {
set testnetfile ${netfile}.ckt
if [catch {open ${testnetfile} r} fnet] {
puts stderr "Can't read netlist file $netfile"
return 1;
}
puts stderr "Error: Can't read netlist file $netfile"
return 1;
}
}
}
}
}
set netfile $testnetfile
}
# Read data from file. Remove comment lines and concatenate
# continuation lines.
puts stderr "Annotating port orders from $netfile"
set fdata {}
set lastline ""
while {[gets $fnet line] >= 0} {