Update CmdUtil.tcl
This commit is contained in:
parent
6110a6b965
commit
a93369a8e3
|
|
@ -118,6 +118,17 @@ proc report_units { args } {
|
|||
}
|
||||
}
|
||||
|
||||
proc write_units_json { jsonfile } {
|
||||
set f [open $jsonfile w]
|
||||
puts $f "{"
|
||||
foreach unit {"time" "capacitance" "resistance" "voltage" "current" "power"} {
|
||||
puts $f " \"$unit\": \"[unit_scaled_suffix $unit]\","
|
||||
}
|
||||
puts $f " \"distance\": \"[unit_scaled_suffix distance]\""
|
||||
puts $f "}"
|
||||
close $f
|
||||
}
|
||||
|
||||
################################################################
|
||||
|
||||
define_cmd_args "set_cmd_units" \
|
||||
|
|
|
|||
Loading…
Reference in New Issue