Change the names in all of the files
This commit is contained in:
Douglas Clowes
@@ -74,8 +74,8 @@ proc add_agilent_33220A {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_agilent_33220A.tcl"
|
||||
::scobj::agilent_33220A::sics_log 9 "file evaluation of sct_agilent_33220A.tcl"
|
||||
clientput "file evaluation of agilent_33220A_sct.tcl"
|
||||
::scobj::agilent_33220A::sics_log 9 "file evaluation of agilent_33220A_sct.tcl"
|
||||
|
||||
proc ::scobj::agilent_33220A::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -1150,8 +1150,8 @@ proc add_hiden_xcs {name IP port id} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_hiden_xcs.tcl"
|
||||
::scobj::hiden_xcs::sics_log 9 "file evaluation of sct_hiden_xcs.tcl"
|
||||
clientput "file evaluation of hiden_xcs_sct.tcl"
|
||||
::scobj::hiden_xcs::sics_log 9 "file evaluation of hiden_xcs_sct.tcl"
|
||||
|
||||
proc ::scobj::hiden_xcs::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -454,8 +454,8 @@ proc add_huber_pilot {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_huber_pilot.tcl"
|
||||
::scobj::huber_pilot::sics_log 9 "file evaluation of sct_huber_pilot.tcl"
|
||||
clientput "file evaluation of huber_pilot_sct.tcl"
|
||||
::scobj::huber_pilot::sics_log 9 "file evaluation of huber_pilot_sct.tcl"
|
||||
|
||||
proc ::scobj::huber_pilot::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -339,8 +339,8 @@ proc add_isotech_ps {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_isotech_ps.tcl"
|
||||
::scobj::isotech_ps::sics_log 9 "file evaluation of sct_isotech_ps.tcl"
|
||||
clientput "file evaluation of isotech_ps_sct.tcl"
|
||||
::scobj::isotech_ps::sics_log 9 "file evaluation of isotech_ps_sct.tcl"
|
||||
|
||||
proc ::scobj::isotech_ps::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_keithley_m2700 {name IP port id datype tol} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_keithley_m2700.tcl"
|
||||
::scobj::keithley_m2700::sics_log 9 "file evaluation of sct_keithley_m2700.tcl"
|
||||
clientput "file evaluation of keithley_m2700_sct.tcl"
|
||||
::scobj::keithley_m2700::sics_log 9 "file evaluation of keithley_m2700_sct.tcl"
|
||||
|
||||
proc ::scobj::keithley_m2700::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -518,8 +518,8 @@ proc add_tsi_smc {name IP port {id 1}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_tsi_smc.tcl"
|
||||
::scobj::tsi_smc::sics_log 9 "file evaluation of sct_tsi_smc.tcl"
|
||||
clientput "file evaluation of tsi_smc_sct.tcl"
|
||||
::scobj::tsi_smc::sics_log 9 "file evaluation of tsi_smc_sct.tcl"
|
||||
|
||||
proc ::scobj::tsi_smc::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -701,8 +701,8 @@ proc add_nhq_200 {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_nhq_200.tcl"
|
||||
::scobj::nhq_200::sics_log 9 "file evaluation of sct_nhq_200.tcl"
|
||||
clientput "file evaluation of nhq_200_sct.tcl"
|
||||
::scobj::nhq_200::sics_log 9 "file evaluation of nhq_200_sct.tcl"
|
||||
|
||||
proc ::scobj::nhq_200::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -266,8 +266,8 @@ proc add_omron_hldc {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_omron_hldc.tcl"
|
||||
::scobj::omron_hldc::sics_log 9 "file evaluation of sct_omron_hldc.tcl"
|
||||
clientput "file evaluation of omron_hldc_sct.tcl"
|
||||
::scobj::omron_hldc::sics_log 9 "file evaluation of omron_hldc_sct.tcl"
|
||||
|
||||
proc ::scobj::omron_hldc::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_protekmm {name IP port id datype} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_protekmm.tcl"
|
||||
::scobj::protekmm::sics_log 9 "file evaluation of sct_protekmm.tcl"
|
||||
clientput "file evaluation of protekmm_sct.tcl"
|
||||
::scobj::protekmm::sics_log 9 "file evaluation of protekmm_sct.tcl"
|
||||
|
||||
proc ::scobj::protekmm::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_eurotherm_m2000 {name IP port id datype dev_id tol} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_eurotherm_m2000.tcl"
|
||||
::scobj::eurotherm_m2000::sics_log 9 "file evaluation of sct_eurotherm_m2000.tcl"
|
||||
clientput "file evaluation of eurotherm_m2000_sct.tcl"
|
||||
::scobj::eurotherm_m2000::sics_log 9 "file evaluation of eurotherm_m2000_sct.tcl"
|
||||
|
||||
proc ::scobj::eurotherm_m2000::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -637,8 +637,8 @@ proc add_julabo_lh45_gen {name IP port {id 1} {ctrl_sensor "bath"} {tol 5.0}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_julabo_lh45_gen.tcl"
|
||||
::scobj::julabo_lh45_gen::sics_log 9 "file evaluation of sct_julabo_lh45_gen.tcl"
|
||||
clientput "file evaluation of julabo_lh45_gen_sct.tcl"
|
||||
::scobj::julabo_lh45_gen::sics_log 9 "file evaluation of julabo_lh45_gen_sct.tcl"
|
||||
|
||||
proc ::scobj::julabo_lh45_gen::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -332,8 +332,8 @@ proc add_lakeshore_218 {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_lakeshore_218.tcl"
|
||||
::scobj::lakeshore_218::sics_log 9 "file evaluation of sct_lakeshore_218.tcl"
|
||||
clientput "file evaluation of lakeshore_218_sct.tcl"
|
||||
::scobj::lakeshore_218::sics_log 9 "file evaluation of lakeshore_218_sct.tcl"
|
||||
|
||||
proc ::scobj::lakeshore_218::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_lakeshore_m370 {name IP port tol} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_lakeshore_m370.tcl"
|
||||
::scobj::lakeshore_m370::sics_log 9 "file evaluation of sct_lakeshore_m370.tcl"
|
||||
clientput "file evaluation of lakeshore_m370_sct.tcl"
|
||||
::scobj::lakeshore_m370::sics_log 9 "file evaluation of lakeshore_m370_sct.tcl"
|
||||
|
||||
proc ::scobj::lakeshore_m370::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_ls336 {name IP port id datype {tol1 1.0} {tol2 1.0}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_ls336.tcl"
|
||||
::scobj::ls336::sics_log 9 "file evaluation of sct_ls336.tcl"
|
||||
clientput "file evaluation of ls336_sct.tcl"
|
||||
::scobj::ls336::sics_log 9 "file evaluation of ls336_sct.tcl"
|
||||
|
||||
proc ::scobj::ls336::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_ls340 {name IP port id datype {tol1 1.0} {tol2 1.0}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_ls340.tcl"
|
||||
::scobj::ls340::sics_log 9 "file evaluation of sct_ls340.tcl"
|
||||
clientput "file evaluation of ls340_sct.tcl"
|
||||
::scobj::ls340::sics_log 9 "file evaluation of ls340_sct.tcl"
|
||||
|
||||
proc ::scobj::ls340::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -544,8 +544,8 @@ proc add_mercury_base {name IP port {id 99} {tol 1}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_mercury_base.tcl"
|
||||
::scobj::mercury_base::sics_log 9 "file evaluation of sct_mercury_base.tcl"
|
||||
clientput "file evaluation of mercury_base_sct.tcl"
|
||||
::scobj::mercury_base::sics_log 9 "file evaluation of mercury_base_sct.tcl"
|
||||
|
||||
proc ::scobj::mercury_base::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -219,8 +219,8 @@ proc add_mercury_level {name IP port {id 99}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_mercury_level.tcl"
|
||||
::scobj::mercury_level::sics_log 9 "file evaluation of sct_mercury_level.tcl"
|
||||
clientput "file evaluation of mercury_level_sct.tcl"
|
||||
::scobj::mercury_level::sics_log 9 "file evaluation of mercury_level_sct.tcl"
|
||||
|
||||
proc ::scobj::mercury_level::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -385,8 +385,8 @@ proc add_mercury_pres {name IP port {id 99} {tol 1}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_mercury_pres.tcl"
|
||||
::scobj::mercury_pres::sics_log 9 "file evaluation of sct_mercury_pres.tcl"
|
||||
clientput "file evaluation of mercury_pres_sct.tcl"
|
||||
::scobj::mercury_pres::sics_log 9 "file evaluation of mercury_pres_sct.tcl"
|
||||
|
||||
proc ::scobj::mercury_pres::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -740,8 +740,8 @@ proc add_mercury_scpi {name IP port {id 99} {permlink LT} {tol 1} {valve_tol 2}}
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_mercury_scpi.tcl"
|
||||
::scobj::mercury_scpi::sics_log 9 "file evaluation of sct_mercury_scpi.tcl"
|
||||
clientput "file evaluation of mercury_scpi_sct.tcl"
|
||||
::scobj::mercury_scpi::sics_log 9 "file evaluation of mercury_scpi_sct.tcl"
|
||||
|
||||
proc ::scobj::mercury_scpi::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -390,8 +390,8 @@ proc add_mercury_temp {name IP port {id 99} {tol 1}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_mercury_temp.tcl"
|
||||
::scobj::mercury_temp::sics_log 9 "file evaluation of sct_mercury_temp.tcl"
|
||||
clientput "file evaluation of mercury_temp_sct.tcl"
|
||||
::scobj::mercury_temp::sics_log 9 "file evaluation of mercury_temp_sct.tcl"
|
||||
|
||||
proc ::scobj::mercury_temp::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -339,8 +339,8 @@ proc add_mercury_valve {name IP port {id 99} {valve_tol 2}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_mercury_valve.tcl"
|
||||
::scobj::mercury_valve::sics_log 9 "file evaluation of sct_mercury_valve.tcl"
|
||||
clientput "file evaluation of mercury_valve_sct.tcl"
|
||||
::scobj::mercury_valve::sics_log 9 "file evaluation of mercury_valve_sct.tcl"
|
||||
|
||||
proc ::scobj::mercury_valve::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_nprvasm2 {name IP port {tol 1.0}} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_nprvasm2.tcl"
|
||||
::scobj::nprvasm2::sics_log 9 "file evaluation of sct_nprvasm2.tcl"
|
||||
clientput "file evaluation of nprvasm2_sct.tcl"
|
||||
::scobj::nprvasm2::sics_log 9 "file evaluation of nprvasm2_sct.tcl"
|
||||
|
||||
proc ::scobj::nprvasm2::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -489,8 +489,8 @@ proc add_pfeiffer_hg {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_pfeiffer_hg.tcl"
|
||||
::scobj::pfeiffer_hg::sics_log 9 "file evaluation of sct_pfeiffer_hg.tcl"
|
||||
clientput "file evaluation of pfeiffer_hg_sct.tcl"
|
||||
::scobj::pfeiffer_hg::sics_log 9 "file evaluation of pfeiffer_hg_sct.tcl"
|
||||
|
||||
proc ::scobj::pfeiffer_hg::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_watlow_mpm {name IP port id datype dev_id tol} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_watlow_mpm.tcl"
|
||||
::scobj::watlow_mpm::sics_log 9 "file evaluation of sct_watlow_mpm.tcl"
|
||||
clientput "file evaluation of watlow_mpm_sct.tcl"
|
||||
::scobj::watlow_mpm::sics_log 9 "file evaluation of watlow_mpm_sct.tcl"
|
||||
|
||||
proc ::scobj::watlow_mpm::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_watlow_mrm {name IP port id datype dev_id tol} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_watlow_mrm.tcl"
|
||||
::scobj::watlow_mrm::sics_log 9 "file evaluation of sct_watlow_mrm.tcl"
|
||||
clientput "file evaluation of watlow_mrm_sct.tcl"
|
||||
::scobj::watlow_mrm::sics_log 9 "file evaluation of watlow_mrm_sct.tcl"
|
||||
|
||||
proc ::scobj::watlow_mrm::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_watlow_mst4 {name IP port id datype dev_id tol} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_watlow_mst4.tcl"
|
||||
::scobj::watlow_mst4::sics_log 9 "file evaluation of sct_watlow_mst4.tcl"
|
||||
clientput "file evaluation of watlow_mst4_sct.tcl"
|
||||
::scobj::watlow_mst4::sics_log 9 "file evaluation of watlow_mst4_sct.tcl"
|
||||
|
||||
proc ::scobj::watlow_mst4::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -74,8 +74,8 @@ proc add_west4100 {name IP port dev_id} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_west4100.tcl"
|
||||
::scobj::west4100::sics_log 9 "file evaluation of sct_west4100.tcl"
|
||||
clientput "file evaluation of west4100_sct.tcl"
|
||||
::scobj::west4100::sics_log 9 "file evaluation of west4100_sct.tcl"
|
||||
|
||||
proc ::scobj::west4100::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -338,8 +338,8 @@ proc add_reactor_status {name IP port} {
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
}
|
||||
|
||||
clientput "file evaluation of sct_reactor_status.tcl"
|
||||
::scobj::reactor_status::sics_log 9 "file evaluation of sct_reactor_status.tcl"
|
||||
clientput "file evaluation of reactor_status_sct.tcl"
|
||||
::scobj::reactor_status::sics_log 9 "file evaluation of reactor_status_sct.tcl"
|
||||
|
||||
proc ::scobj::reactor_status::read_config {} {
|
||||
set catch_status [ catch {
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
fileeval $cfPath(source)/sct_reactor_status.tcl
|
||||
fileeval $cfPath(source)/reactor_status_sct.tcl
|
||||
|
||||
if {[SplitReply [opal_simulation]]=="false"} {
|
||||
MakeAsyncQueue aqreactor OPALSTAT neutron.ansto.gov.au 80
|
||||
|
||||
Reference in New Issue
Block a user