From 4d3ede661a3be0a0ac158804f89a1a637c5f9b54 Mon Sep 17 00:00:00 2001
From: Stefan Frederik <stefan.schippers@gmail.com>
Date: Tue, 15 Nov 2022 17:56:56 +0100
Subject: [PATCH] cleanup $XSCHEM_TMP_DIR/xschem_web cache on startup

---
 src/xschem.tcl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index a46976a9..d58b7c39 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -6194,7 +6194,6 @@ proc setup_tcp_bespice {} {
 ###
 set OS [lindex $tcl_platform(os) 0]
 set env(LC_ALL) C
-
 # tcl variable XSCHEM_LIBRARY_PATH  should already be set in xschemrc
 set_ne add_all_windows_drives 1
 set_paths
@@ -6209,6 +6208,16 @@ if {$OS == "Windows"} {
   set_ne XSCHEM_TMP_DIR {/tmp}
 }
 
+# Remove temporary location for web objects
+if {[file exists ${XSCHEM_TMP_DIR}/xschem_web] } {
+  foreach file [glob -nocomplain ${XSCHEM_TMP_DIR}/xschem_web/* ${XSCHEM_TMP_DIR}/xschem_web/.*] {
+    # skip /${XSCHEM_TMP_DIR}/xschem_web/.. and /${XSCHEM_TMP_DIR}/xschem_web/.
+    if {[regexp {/\.\.$} $file] || [regexp {/\.$} $file] } {continue}
+    file delete $file
+  } 
+  file delete ${XSCHEM_TMP_DIR}/xschem_web
+}
+
 # used in C code
 set_ne xschem_libs {}
 set_ne noprint_libs {}