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

add hostnam and portnum commands

Browse Source
This commit is contained in:
Douglas Clowes
2012-12-13 14:07:38 +11:00
parent dfb9db5e5c
commit 43346d6ea5
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/tas/config/counter/counter.tcl
View File

@ -17,7 +17,7 @@ proc ::counter::isc_initialize {} {
variable isc_portlist variable isc_portlist
variable isc_beam_monitor_list {MONITOR_1 MONITOR_2} variable isc_beam_monitor_list {MONITOR_1 MONITOR_2}
set isc_monitor_address "das2-[SplitReply [instrument]]" set isc_monitor_address [hostnam "das2-[SplitReply [instrument]]"]
set isc_portlist [list 33000 33001 33002 33003 33004 33005 33006 33007] set isc_portlist [list 33000 33001 33002 33003 33004 33005 33006 33007]
set isc_numchannels [llength $isc_beam_monitor_list] set isc_numchannels [llength $isc_beam_monitor_list]
::counter::ic_initialize ::counter::ic_initialize

20
site_ansto/instrument/tas/config/motors/motor_configuration.tcl
View File

@ -11,20 +11,20 @@ set animal taipan
set sim_mode [SplitReply [motor_simulation]] set sim_mode [SplitReply [motor_simulation]]
# Setup addresses of Galil DMC2280 controllers. # Setup addresses of Galil DMC2280 controllers.
set dmc2280_controller1(host) mc1-$animal set dmc2280_controller1(host) [hostnam mc1-$animal]
set dmc2280_controller1(port) pmc1-$animal set dmc2280_controller1(port) [portnum pmc1-$animal]
set dmc2280_controller2(host) mc2-$animal set dmc2280_controller2(host) [hostnam mc2-$animal]
set dmc2280_controller2(port) pmc2-$animal set dmc2280_controller2(port) [portnum pmc2-$animal]
set dmc2280_controller3(host) mc3-$animal set dmc2280_controller3(host) [hostnam mc3-$animal]
set dmc2280_controller3(port) pmc3-$animal set dmc2280_controller3(port) [portnum pmc3-$animal]
set dmc2280_controller4(host) mc4-$animal set dmc2280_controller4(host) [hostnam mc4-$animal]
set dmc2280_controller4(port) pmc4-$animal set dmc2280_controller4(port) [portnum pmc4-$animal]
set dmc2280_controller6(host) mc6-$animal set dmc2280_controller6(host) [hostnam mc6-$animal]
set dmc2280_controller6(port) pmc6-$animal set dmc2280_controller6(port) [portnum pmc6-$animal]
if {$sim_mode == "true"} { if {$sim_mode == "true"} {
set motor_driver_type asim set motor_driver_type asim