From 4bd758bee7005d00b2f92df87191d9f328f94cc4 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 10 Sep 2023 08:00:26 +0200
Subject: [PATCH] xschem tcp connections: print in/out data on console only if
 in tcl debug mode

---
 src/xschem.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 552001ef..4c92c016 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1272,13 +1272,13 @@ proc xschem_getdata {sock} {
       append xschem_server_getdata(line,$sock) $line \n
     }
   }
-  puts "tcp<-- $xschem_server_getdata(line,$sock)"
+  if {$debug_var<=-1} {puts "tcp<-- $xschem_server_getdata(line,$sock)"}
   # xschem command must be executed at global scope...
   redef_puts
   uplevel #0 [list catch $xschem_server_getdata(line,$sock) tclcmd_puts]
   rename puts {}
   rename ::tcl::puts puts
-  puts "tcp--> $tclcmd_puts"
+  if {$debug_var<=-1} {puts "tcp--> $tclcmd_puts"}
   set xschem_server_getdata(res,$sock) "$tclcmd_puts"
   puts -nonewline $sock "$xschem_server_getdata(res,$sock)"
   flush $sock