luke/netgen
1
0
Fork 0
mirror of https://github.com/RTimothyEdwards/netgen.git synced 2026-08-22 14:07:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Re-applied the modifications of revisions 231 and 232, and updated

Browse Source 
the version to revision 234.
This commit is contained in:
Tim Edwards
2022-09-30 11:47:36 -04:00
parent 12e1ff295f
commit 3aeea9d164
3 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tcltk/netgen.tcl.in
+6 -4
View File
@@ -62,16 +62,18 @@ proc netgen::convert_to_json {filename lvs_final} {
puts $fjson " \["
set cktval [lindex $value 0]
foreach pin [lrange $cktval 0 end-1] {
puts $fjson " \"$pin\","
set pinstr [string map {"\\" "\\\\"} $pin]
puts $fjson " \"$pinstr\","
}
set pin [lindex $cktval end]
set pin [string map {"\\" "\\\\"} [lindex $cktval end]]
puts $fjson " \"$pin\""
puts $fjson " \], \["
set cktval [lindex $value 1]
foreach pin [lrange $cktval 0 end-1] {
puts $fjson " \"$pin\","
set pinstr [string map {"\\" "\\\\"} $pin]
puts $fjson " \"$pinstr\","
}
set pin [lindex $cktval end]
set pin [string map {"\\" "\\\\"} [lindex $cktval end]]
puts $fjson " \"$pin\""
puts $fjson " \]"
if {$kidx == $nkeys} {