linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-26 14:08:20 +10:00
parent fe3489b61f
commit 8bf1764dd9
15 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/config/environment/magneticField/sct_lakeshore_460.tcl
View File

@ -465,7 +465,7 @@ proc add_ls460 {name IP port terminator {_tol 5.0}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_lakeshore_ls460.tcl" clientput "file evaluation of sct_lakeshore_ls460.tcl"
set fd [open "../log/ls460.log" w] set fd [open "../log/ls460.log" w]
puts $fd "file evaluation of sct_lakeshore_ls460.tcl" puts $fd "file evaluation of sct_lakeshore_ls460.tcl"
close $fd close $fd

2
site_ansto/instrument/config/environment/magneticField/sct_oxford_ips.tcl
View File

@ -756,7 +756,7 @@ proc add_ips120 {name IP port {_tol 5.0}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_oxford_ips.tcl" clientput "file evaluation of sct_oxford_ips.tcl"
set fd [open "../log/ips120.log" w] set fd [open "../log/ips120.log" w]
puts $fd "file evaluation of sct_oxford_ips.tcl" puts $fd "file evaluation of sct_oxford_ips.tcl"
close $fd close $fd

2
site_ansto/instrument/config/environment/sct_autolab.tcl
View File

@ -413,7 +413,7 @@ proc add_autolab {name IP port } {
close $fd close $fd
} }
puts stdout "file evaluation of sct_autolab.tcl" clientput "file evaluation of sct_autolab.tcl"
set fd [open "../log/autolab.log" w] set fd [open "../log/autolab.log" w]
puts $fd "file evaluation of sct_autolab.tcl" puts $fd "file evaluation of sct_autolab.tcl"
close $fd close $fd

2
site_ansto/instrument/config/environment/sct_cybaman.tcl
View File

@ -1132,7 +1132,7 @@ proc add_cybaman {name IP port terminator {_tol 1.0}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_cybaman.tcl" clientput "file evaluation of sct_cybaman.tcl"
set fd [open "../log/cybaman.log" w] set fd [open "../log/cybaman.log" w]
puts $fd "file evaluation of sct_cybaman.tcl" puts $fd "file evaluation of sct_cybaman.tcl"
close $fd close $fd

4
site_ansto/instrument/config/environment/sct_keithley_2700.tcl
View File

@ -675,7 +675,7 @@ proc add_k2700 {name IP port terminator {_tol 1.0} {CID 1} {CTYPE V} } {
close $fd 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] set fd [open "../log/k2700.log" w]
puts $fd "file evaluation of sct_keithley_2700.tcl" puts $fd "file evaluation of sct_keithley_2700.tcl"
close $fd close $fd
@ -699,7 +699,7 @@ if {[ catch {
} }
} }
} message ]} { } message ]} {
puts "ERROR: $message" clientput "ERROR: $message"
} }
namespace import ::scobj::k2700::* namespace import ::scobj::k2700::*

2
site_ansto/instrument/config/environment/sct_mvp.tcl
View File

@ -518,7 +518,7 @@ proc add_mvp {name IP port dev} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_mvp.tcl" clientput "file evaluation of sct_mvp.tcl"
set fd [open "../log/mvp.log" w] set fd [open "../log/mvp.log" w]
puts $fd "file evaluation of sct_mvp.tcl" puts $fd "file evaluation of sct_mvp.tcl"
close $fd close $fd

2
site_ansto/instrument/config/environment/sct_syr.tcl
View File

@ -619,7 +619,7 @@ proc add_syr {name IP port} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_syr.tcl" clientput "file evaluation of sct_syr.tcl"
set fd [open "../log/syr.log" w] set fd [open "../log/syr.log" w]
puts $fd "file evaluation of sct_syr.tcl" puts $fd "file evaluation of sct_syr.tcl"
close $fd close $fd

4
site_ansto/instrument/config/environment/temperature/sct_eurotherm_2000.tcl
View File

@ -361,7 +361,7 @@ proc add_et2000 {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_eurotherm_2000.tcl" clientput "file evaluation of sct_eurotherm_2000.tcl"
set fd [open "../log/et2000.log" w] set fd [open "../log/et2000.log" w]
puts $fd "file evaluation of sct_eurotherm_2000.tcl" puts $fd "file evaluation of sct_eurotherm_2000.tcl"
close $fd close $fd
@ -384,7 +384,7 @@ if {[ catch {
} }
} }
} message ]} { } message ]} {
puts "ERROR: $message" clientput "ERROR: $message"
} }
namespace import ::scobj::et2000::* namespace import ::scobj::et2000::*

4
site_ansto/instrument/config/environment/temperature/sct_oxford_itc.tcl
View File

@ -537,7 +537,7 @@ proc add_itc500 {name IP port {_tol 5.0} {addr "@1"} } {
close $fd close $fd
} }
puts stdout "file evaluation of sct_oxford_500.tcl" clientput "file evaluation of sct_oxford_500.tcl"
set fd [open "../log/itc500.log" w] set fd [open "../log/itc500.log" w]
puts $fd "file evaluation of sct_oxford_500.tcl" puts $fd "file evaluation of sct_oxford_500.tcl"
close $fd close $fd
@ -547,7 +547,7 @@ namespace import ::scobj::itc500::*
#add_itc500 itc500 137.157.201.213 502 5 #add_itc500 itc500 137.157.201.213 502 5
#add_itc500 itc500 localhost 30509 5 #add_itc500 itc500 localhost 30509 5
if { [ info exists ::config_dict ] && [ dict get $::config_dict mercury_itc500 enabled ] } { if { [ info exists ::config_dict ] && [ dict get $::config_dict mercury_itc500 enabled ] } {
puts "ADD MERCURY ITC500 MODE" clientput "ADD MERCURY ITC500 MODE"
set IP [dict get $::config_dict mercury_itc500 ip] set IP [dict get $::config_dict mercury_itc500 ip]
set PORT [dict get $::config_dict mercury_itc500 port] set PORT [dict get $::config_dict mercury_itc500 port]
set NAME [dict get $::config_dict mercury_itc500 name] set NAME [dict get $::config_dict mercury_itc500 name]

2
site_ansto/instrument/config/environment/temperature/sct_qlink.tcl
View File

@ -125,7 +125,7 @@ proc add_qlink {name IP port {_tol 5.0}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_qlink.tcl" clientput "file evaluation of sct_qlink.tcl"
set fd [open "../log/qlink.log" w] set fd [open "../log/qlink.log" w]
puts $fd "file evaluation of sct_qlink.tcl" puts $fd "file evaluation of sct_qlink.tcl"
close $fd close $fd

2
site_ansto/instrument/config/environment/temperature/sct_rvasm2.tcl
View File

@ -1083,7 +1083,7 @@ mk_sct_newport_rva sct_${name} environment $name $_tol
close $fd close $fd
} }
puts stdout "file evaluation of sct_newport_rva.tcl" clientput "file evaluation of sct_newport_rva.tcl"
set fd [open "../log/newport_rva.log" w] set fd [open "../log/newport_rva.log" w]
puts $fd "file evaluation of sct_newport_rva.tcl" puts $fd "file evaluation of sct_newport_rva.tcl"
close $fd close $fd

4
site_ansto/instrument/config/environment/temperature/sct_watlow_pm.tcl
View File

@ -535,7 +535,7 @@ proc add_watlow_pm {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_watlow_pm.tcl" clientput "file evaluation of sct_watlow_pm.tcl"
set fd [open "../log/watlow_pm.log" w] set fd [open "../log/watlow_pm.log" w]
puts $fd "file evaluation of sct_watlow_pm.tcl" puts $fd "file evaluation of sct_watlow_pm.tcl"
close $fd close $fd
@ -558,7 +558,7 @@ if {[ catch {
} }
} }
} message ]} { } message ]} {
puts "ERROR: $message" clientput "ERROR: $message"
} }
namespace import ::scobj::watlow_pm::* namespace import ::scobj::watlow_pm::*

4
site_ansto/instrument/config/environment/temperature/sct_watlow_rm.tcl
View File

@ -565,7 +565,7 @@ proc add_watlow_rm {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_watlow_rm.tcl" clientput "file evaluation of sct_watlow_rm.tcl"
set fd [open "../log/watlow_rm.log" w] set fd [open "../log/watlow_rm.log" w]
puts $fd "file evaluation of sct_watlow_rm.tcl" puts $fd "file evaluation of sct_watlow_rm.tcl"
close $fd close $fd
@ -588,7 +588,7 @@ if {[ catch {
} }
} }
} message ]} { } message ]} {
puts "ERROR: $message" clientput "ERROR: $message"
} }
namespace import ::scobj::watlow_rm::* namespace import ::scobj::watlow_rm::*

4
site_ansto/instrument/config/environment/temperature/sct_watlow_st4.tcl
View File

@ -776,7 +776,7 @@ proc add_watlow_st {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} {
close $fd close $fd
} }
puts stdout "file evaluation of sct_watlow_st4.tcl" clientput "file evaluation of sct_watlow_st4.tcl"
set fd [open "../log/watlow_st.log" w] set fd [open "../log/watlow_st.log" w]
puts $fd "file evaluation of sct_watlow_st4.tcl" puts $fd "file evaluation of sct_watlow_st4.tcl"
close $fd close $fd
@ -799,7 +799,7 @@ if {[ catch {
} }
} }
} message ]} { } message ]} {
puts "ERROR: $message" clientput "ERROR: $message"
} }
namespace import ::scobj::watlow_st::* namespace import ::scobj::watlow_st::*

2
site_ansto/instrument/config/robots/sct_pickandplace.tcl
View File

@ -482,7 +482,7 @@ proc add_robot {name IP port } {
close $fd close $fd
} }
puts stdout "file evaluation of sct_pickandplace.tcl" clientput "file evaluation of sct_pickandplace.tcl"
set fd [open "../log/robot_pp.log" w] set fd [open "../log/robot_pp.log" w]
puts $fd "file evaluation of sct_pickandplace.tcl" puts $fd "file evaluation of sct_pickandplace.tcl"
close $fd close $fd