From a93369a8e3bf3a492b1920f96677507e2184231e Mon Sep 17 00:00:00 2001
From: Akash Levy <akashlevy@gmail.com>
Date: Wed, 24 Jul 2024 03:18:36 -0700
Subject: [PATCH] Update CmdUtil.tcl

---
 tcl/CmdUtil.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tcl/CmdUtil.tcl b/tcl/CmdUtil.tcl
index 70ebff61..50e1b26e 100644
--- a/tcl/CmdUtil.tcl
+++ b/tcl/CmdUtil.tcl
@@ -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" \