Update CmdUtil.tcl

2026-09-07 11:51:47 +02:00 · 2024-07-24 03:18:36 -07:00
parent 6110a6b965
commit a93369a8e3
1 changed files with 11 additions and 0 deletions
@@ -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" \