From 04a6e518ecd94e9acf3ba2322207ce243cdd0a4e Mon Sep 17 00:00:00 2001
From: Mike Molinari <mike@smbisoft.com>
Date: Sat, 4 Feb 2023 07:02:26 +0000
Subject: [PATCH] re adding tcl to js converter utility.

---
 web/tcl.html | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 web/tcl.html

diff --git a/web/tcl.html b/web/tcl.html
new file mode 100644
index 00000000..fdedba5a
--- /dev/null
+++ b/web/tcl.html
@@ -0,0 +1,50 @@
+<style>
+    textarea {
+      width: calc(50% - 10px);
+      height: calc(100% - 50px);
+    }
+  
+  </style>
+  <h3>TCL to JSketcher OCC API converter</h3>
+  <textarea id="tclIn" oninput="convertIt();"></textarea>
+  <textarea id="jsOut"></textarea>
+  
+  
+  
+  
+  <script>
+    async function convertIt() {
+      var lines = document.getElementById("tclIn").value.split('\n');
+      const out = document.getElementById("jsOut");
+      out.value = "";
+  
+      for (var i = 0; i < lines.length; i++) {
+        out.value += await words(lines[i]) + '\n';
+      }
+      //alert("done");
+    }
+  
+    async function words(inputLine) {
+      inputLine = inputLine.trim();
+      if (inputLine == "") return "";
+      var words = inputLine.trim().split(" ")
+  
+      if (words[0].startsWith("#")) return "//" + inputLine;
+      var returnLine = "oci." + words[0];
+      returnLine += "(";
+      for (var i = 1; i < words.length; i++) {
+        //eliminate trailing commas. 
+        if (words[i].trim() !== "") {
+          if (i == words.length - 1) {
+            returnLine += `"` + words[i] + `"`;
+          } else {
+            returnLine += `"` + words[i] + `",`;
+          }
+        }
+      }
+      returnLine += ");";
+      //console.log(returnLine);
+      return returnLine
+    }
+  
+  </script>
\ No newline at end of file