SICS-754 Use "clientput" instead of "puts stdout" in non-generated drivers

2014-06-26 14:08:20 +10:00
parent fe3489b61f
commit 8bf1764dd9
15 changed files with 21 additions and 21 deletions
--- a/site_ansto/instrument/config/environment/sct_keithley_2700.tcl
+++ b/site_ansto/instrument/config/environment/sct_keithley_2700.tcl
@@ -675,7 +675,7 @@ proc add_k2700 {name IP port terminator {_tol 1.0} {CID 1} {CTYPE V} } {
  close $fd
 }

-puts stdout "file evaluation of sct_keithley_2700.tcl"
+clientput "file evaluation of sct_keithley_2700.tcl"
 set fd [open "../log/k2700.log" w]
 puts $fd "file evaluation of sct_keithley_2700.tcl"
 close $fd
@@ -699,7 +699,7 @@ if {[ catch {
    }
  }
 } message ]} {
-  puts "ERROR: $message"
+  clientput "ERROR: $message"
 }

 namespace import ::scobj::k2700::*