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 generated drivers

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-26 13:48:44 +10:00
parent e2ab77fca7
commit fe3489b61f
18 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/bilby/config/chopper/sct_astrium_chopper.tcl
View File

@ -561,7 +561,7 @@ proc add_astrium_chopper {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_astrium_chopper.tcl"
clientput "file evaluation of sct_astrium_chopper.tcl"
::scobj::astrium_chopper::sics_log 9 "file evaluation of sct_astrium_chopper.tcl"
proc ::scobj::astrium_chopper::read_config {} {

2
site_ansto/instrument/bilby/config/motors/sct_shutters.tcl
View File

@ -299,7 +299,7 @@ proc add_shutters {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_shutters.tcl"
clientput "file evaluation of sct_shutters.tcl"
::scobj::shutters::sics_log 9 "file evaluation of sct_shutters.tcl"
proc ::scobj::shutters::read_config {} {

2
site_ansto/instrument/bilby/config/motors/sct_tank.tcl
View File

@ -334,7 +334,7 @@ proc add_tank {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_tank.tcl"
clientput "file evaluation of sct_tank.tcl"
::scobj::tank::sics_log 9 "file evaluation of sct_tank.tcl"
proc ::scobj::tank::read_config {} {

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

@ -1148,7 +1148,7 @@ proc add_hiden_xcs {name IP port id} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_hiden_xcs.tcl"
clientput "file evaluation of sct_hiden_xcs.tcl"
::scobj::hiden_xcs::sics_log 9 "file evaluation of sct_hiden_xcs.tcl"
proc ::scobj::hiden_xcs::read_config {} {

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

@ -452,7 +452,7 @@ proc add_huber_pilot {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_huber_pilot.tcl"
clientput "file evaluation of sct_huber_pilot.tcl"
::scobj::huber_pilot::sics_log 9 "file evaluation of sct_huber_pilot.tcl"
proc ::scobj::huber_pilot::read_config {} {

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

@ -339,7 +339,7 @@ proc add_isotech_ps {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_isotech_ps.tcl"
clientput "file evaluation of sct_isotech_ps.tcl"
::scobj::isotech_ps::sics_log 9 "file evaluation of sct_isotech_ps.tcl"
proc ::scobj::isotech_ps::read_config {} {

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

@ -699,7 +699,7 @@ proc add_nhq_200 {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_nhq_200.tcl"
clientput "file evaluation of sct_nhq_200.tcl"
::scobj::nhq_200::sics_log 9 "file evaluation of sct_nhq_200.tcl"
proc ::scobj::nhq_200::read_config {} {

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

@ -266,7 +266,7 @@ proc add_omron_hldc {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_omron_hldc.tcl"
clientput "file evaluation of sct_omron_hldc.tcl"
::scobj::omron_hldc::sics_log 9 "file evaluation of sct_omron_hldc.tcl"
proc ::scobj::omron_hldc::read_config {} {

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

@ -332,7 +332,7 @@ proc add_lakeshore_218 {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_lakeshore_218.tcl"
clientput "file evaluation of sct_lakeshore_218.tcl"
::scobj::lakeshore_218::sics_log 9 "file evaluation of sct_lakeshore_218.tcl"
proc ::scobj::lakeshore_218::read_config {} {

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

@ -542,7 +542,7 @@ proc add_mercury_base {name IP port {id 99} {tol 1}} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_mercury_base.tcl"
clientput "file evaluation of sct_mercury_base.tcl"
::scobj::mercury_base::sics_log 9 "file evaluation of sct_mercury_base.tcl"
proc ::scobj::mercury_base::read_config {} {

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

@ -219,7 +219,7 @@ proc add_mercury_level {name IP port {id 99}} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_mercury_level.tcl"
clientput "file evaluation of sct_mercury_level.tcl"
::scobj::mercury_level::sics_log 9 "file evaluation of sct_mercury_level.tcl"
proc ::scobj::mercury_level::read_config {} {

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

@ -383,7 +383,7 @@ proc add_mercury_pres {name IP port {id 99} {tol 1}} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_mercury_pres.tcl"
clientput "file evaluation of sct_mercury_pres.tcl"
::scobj::mercury_pres::sics_log 9 "file evaluation of sct_mercury_pres.tcl"
proc ::scobj::mercury_pres::read_config {} {

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

@ -738,7 +738,7 @@ proc add_mercury_scpi {name IP port {id 99} {permlink LT} {tol 1} {valve_tol 2}}
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_mercury_scpi.tcl"
clientput "file evaluation of sct_mercury_scpi.tcl"
::scobj::mercury_scpi::sics_log 9 "file evaluation of sct_mercury_scpi.tcl"
proc ::scobj::mercury_scpi::read_config {} {

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

@ -388,7 +388,7 @@ proc add_mercury_temp {name IP port {id 99} {tol 1}} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_mercury_temp.tcl"
clientput "file evaluation of sct_mercury_temp.tcl"
::scobj::mercury_temp::sics_log 9 "file evaluation of sct_mercury_temp.tcl"
proc ::scobj::mercury_temp::read_config {} {

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

@ -337,7 +337,7 @@ proc add_mercury_valve {name IP port {id 99} {valve_tol 2}} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_mercury_valve.tcl"
clientput "file evaluation of sct_mercury_valve.tcl"
::scobj::mercury_valve::sics_log 9 "file evaluation of sct_mercury_valve.tcl"
proc ::scobj::mercury_valve::read_config {} {

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

@ -487,7 +487,7 @@ proc add_pfeiffer_hg {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_pfeiffer_hg.tcl"
clientput "file evaluation of sct_pfeiffer_hg.tcl"
::scobj::pfeiffer_hg::sics_log 9 "file evaluation of sct_pfeiffer_hg.tcl"
proc ::scobj::pfeiffer_hg::read_config {} {

2
site_ansto/instrument/config/source/sct_reactor_status.tcl
View File

@ -338,7 +338,7 @@ proc add_reactor_status {name IP port} {
handle_exception ${catch_status} ${catch_message}
}
puts stdout "file evaluation of sct_reactor_status.tcl"
clientput "file evaluation of sct_reactor_status.tcl"
::scobj::reactor_status::sics_log 9 "file evaluation of sct_reactor_status.tcl"
proc ::scobj::reactor_status::read_config {} {

2
site_ansto/instrument/util/gen_sct.py
View File

@ -1389,7 +1389,7 @@ def put_postamble(MyDriver):
txt += [' handle_exception ${catch_status} ${catch_message}']
txt += ['}']
txt += ['']
txt += ['puts stdout "file evaluation of sct_%s.tcl"' % MyDriver['name']]
txt += ['clientput "file evaluation of sct_%s.tcl"' % MyDriver['name']]
txt += ['%s::sics_log 9 "file evaluation of sct_%s.tcl"' % (MyDriver['namespace'], MyDriver['name'])]
emit(txt)