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

A few corrections to the JSON format output.

This commit is contained in:
Tim Edwards 2017-03-06 14:01:14 -05:00
parent 090e9e122a
commit 2b7d416a41
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tcltk/netgen.tcl.in
View File

@ -84,9 +84,9 @@ proc netgen::convert_to_json {filename lvs_final} {
nets {
puts $fjson " \"${key}\": \["
set cktval [lindex $value 0]
puts $fjson " \"$cktval\","
puts $fjson " $cktval,"
set cktval [lindex $value 1]
puts $fjson " \"$cktval\""
puts $fjson " $cktval"
if {$kidx == $nkeys} {
puts $fjson " \]"
} else {
@ -322,9 +322,9 @@ proc netgen::convert_to_json {filename lvs_final} {
puts $fjson " \[\"${propname}\", \"${propval}\"\],"
}
set property [lindex $instance end]
set prop0 [lindex $property 0]
set propname [lindex $prop0 0]
set propval [lindex $prop0 1]
set prop1 [lindex $property 1]
set propname [lindex $prop1 0]
set propval [lindex $prop1 1]
puts $fjson " \[\"${propname}\", \"${propval}\"\]"
puts $fjson " \]"
puts $fjson " \]"