From 4e0d70055a6a7f11a51aef65bfd41b09036a6cdb Mon Sep 17 00:00:00 2001 From: hades Date: Fri, 26 May 2000 08:25:13 +0000 Subject: [PATCH] Added Slow Control --- hadaq/atm.tcl | 2 +- hadaq/hadaq.tcl | 20 ++++++++++++++++++-- hadaq/hadaq_init.tcl | 4 ++++ hadaq/rich.tcl | 33 +++++++++++++++++++++++++++++++++ hadaq/shw.tcl | 33 +++++++++++++++++++++++++++++++++ hadaq/trig_rich.tcl | 42 ++++++++++++++++++++++++++++++++++++++++++ hadaq/trig_shw.tcl | 42 ++++++++++++++++++++++++++++++++++++++++++ 7 files changed, 173 insertions(+), 3 deletions(-) create mode 100644 hadaq/rich.tcl create mode 100644 hadaq/shw.tcl create mode 100644 hadaq/trig_rich.tcl create mode 100644 hadaq/trig_shw.tcl diff --git a/hadaq/atm.tcl b/hadaq/atm.tcl index e1eccd8..bf9b513 100644 --- a/hadaq/atm.tcl +++ b/hadaq/atm.tcl @@ -1,6 +1,6 @@ agent create hades05 hades /home/hades/tt00/eb/hadaq agent create r2-26 hades /hades/usr/hades/tt00/rich/hadaq -worker create hades05:evtbuild -a -p -2 -s 2 -m 1 +worker create hades05:evtbuild -a -p -2 -s 4 -m 1 worker create hades05:netmem -a -p -1 -m 1 -i ATM:0:50 worker create r2-26:memnet -a -p -1 -w 0 -o ATM:0:50 worker create r2-26:readout -a -p -2 diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl index 58b4df8..e3cbb17 100644 --- a/hadaq/hadaq.tcl +++ b/hadaq/hadaq.tcl @@ -337,14 +337,30 @@ proc updateAcquisitionButtons {} { } proc startAcquisitionCmd {} { - #exec rsh hades19 sh -c {'cd ht99/slow; PATH=$PATH:/usr/local/bin:$HOME/bin; ./tof init'} >&hadaq.log - #exec rsh hades21 sh -c {'cd ht99/slow; PATH=$PATH:/usr/local/bin:$HOME/bin; ./mdc init'} >&hadaq.log + global beforeStartAcq afterStartAcq + foreach cmd $beforeStartAcq { + puts $cmd + catch {eval exec $cmd} + } group start acquisition + foreach cmd $afterStartAcq { + puts $cmd + catch {eval exec $cmd} + } updateAcquisitionButtons } proc stopAcquisitionCmd {} { + global beforeStopAcq afterStopAcq + foreach cmd $beforeStopAcq { + puts $cmd + catch {eval exec $cmd} + } group stop acquisition + foreach cmd $afterStopAcq { + puts $cmd + catch {eval exec $cmd} + } updateAcquisitionButtons } diff --git a/hadaq/hadaq_init.tcl b/hadaq/hadaq_init.tcl index 13edd37..a6edc9e 100644 --- a/hadaq/hadaq_init.tcl +++ b/hadaq/hadaq_init.tcl @@ -34,3 +34,7 @@ foreach i [agent cat] { exec cat hadaq.log } } +foreach cmd $duringInit { + puts $cmd + catch {eval exec $cmd} +} diff --git a/hadaq/rich.tcl b/hadaq/rich.tcl new file mode 100644 index 0000000..e7b4599 --- /dev/null +++ b/hadaq/rich.tcl @@ -0,0 +1,33 @@ +agent create hades05 hades /home/hades/tt00/eb/hadaq +agent create r2-26 hades /hades/usr/hades/tt00/rich/hadaq +worker create hades05:evtbuild -a -p -2 -s 1 -m 1 +worker create hades05:netmem -a -p -1 -m 1 -i ATM:0:50 +worker create r2-26:memnet -a -p -1 -w 0 -o ATM:0:50 +worker create r2-26:readout -a -p -2 +group create acquisition +group create run +group add acquisition r2-26:memnet +group add acquisition r2-26:readout +group add run hades05:evtbuild +group add run hades05:netmem + +set duringInit { + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./rich init'} >&hadaq.log} + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./rich start'} >&hadaq.log} +} + +set afterStartAcq { + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu start'} >&hadaq.log} +} + +set beforeStopAcq { + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu stop'} >&hadaq.log} +} + +set afterStopAcq { + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./rich stop'} >&hadaq.log} +} diff --git a/hadaq/shw.tcl b/hadaq/shw.tcl new file mode 100644 index 0000000..a15f1a5 --- /dev/null +++ b/hadaq/shw.tcl @@ -0,0 +1,33 @@ +agent create hades05 hades /home/hades/tt00/eb/hadaq +agent create r2-14 hades /hades/usr/hades/tt00/shw/hadaq +worker create hades05:evtbuild -a -p -2 -s 1 -m 1 +worker create hades05:netmem -a -p -1 -m 1 -i ATM:0:50 +worker create r2-14:memnet -a -p -1 -w 0 -o ATM:0:50 +worker create r2-14:readout -a -p -2 +group create acquisition +group create run +group add acquisition r2-14:memnet +group add acquisition r2-14:readout +group add run hades05:evtbuild +group add run hades05:netmem + +set duringInit { + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./shw init'} >&hadaq.log} + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./shw start'} >&hadaq.log} +} + +set afterStartAcq { + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu start'} >&hadaq.log} +} + +set beforeStopAcq { + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu stop'} >&hadaq.log} +} + +set afterStopAcq { + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./shw stop'} >&hadaq.log} +} diff --git a/hadaq/trig_rich.tcl b/hadaq/trig_rich.tcl new file mode 100644 index 0000000..8680729 --- /dev/null +++ b/hadaq/trig_rich.tcl @@ -0,0 +1,42 @@ +agent create hades05 hades /home/hades/tt00/eb/hadaq +agent create r2-26 hades /hades/usr/hades/tt00/rich/hadaq +agent create r2-25 hades /hades/usr/hades/tt00/trig/hadaq +worker create hades05:evtbuild -a -p -2 -s 5 -m 2 +worker create hades05:netmem -a -p -1 -m 2 -i ATM:0:50 -i ATM:0:51 +worker create r2-26:memnet -a -p -1 -w 68000 -o ATM:0:50 +worker create r2-26:readout -a -p -2 +worker create r2-25:memnet -a -p -1 -w 68000 -o ATM:0:51 +worker create r2-25:readout -a -p -2 +group create acquisition +group create run +group add acquisition r2-26:memnet +group add acquisition r2-26:readout +group add acquisition r2-25:memnet +group add acquisition r2-25:readout +group add run hades05:evtbuild +group add run hades05:netmem + +set duringInit { + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./rich init'} >&hadaq.log} + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./trig reset'} >&hadaq.log} + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./rich start'} >&hadaq.log} + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./trig start'} >&hadaq.log} +} + +set afterStartAcq { + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu start'} >&hadaq.log} +} + +set beforeStopAcq { + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu stop'} >&hadaq.log} +} + +set afterStopAcq { + {rsh r2-26 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./rich stop'} >&hadaq.log} + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./trig stop'} >&hadaq.log} +} diff --git a/hadaq/trig_shw.tcl b/hadaq/trig_shw.tcl new file mode 100644 index 0000000..37fb1bb --- /dev/null +++ b/hadaq/trig_shw.tcl @@ -0,0 +1,42 @@ +agent create hades05 hades /home/hades/tt00/eb/hadaq +agent create r2-14 hades /hades/usr/hades/tt00/shw/hadaq +agent create r2-25 hades /hades/usr/hades/tt00/trig/hadaq +worker create hades05:evtbuild -a -p -2 -s 2 -m 2 +worker create hades05:netmem -a -p -1 -m 2 -i ATM:0:50 -i ATM:0:51 +worker create r2-14:memnet -a -p -1 -w 68000 -o ATM:0:50 +worker create r2-14:readout -a -p -2 +worker create r2-25:memnet -a -p -1 -w 68000 -o ATM:0:51 +worker create r2-25:readout -a -p -2 +group create acquisition +group create run +group add acquisition r2-14:memnet +group add acquisition r2-14:readout +group add acquisition r2-25:memnet +group add acquisition r2-25:readout +group add run hades05:evtbuild +group add run hades05:netmem + +set duringInit { + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./shw init'} >&hadaq.log} + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./trig reset'} >&hadaq.log} + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./shw start'} >&hadaq.log} + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./trig start'} >&hadaq.log} +} + +set afterStartAcq { + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu start'} >&hadaq.log} +} + +set beforeStopAcq { + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; dtuctrl -t ctu stop'} >&hadaq.log} +} + +set afterStopAcq { + {rsh r2-14 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./shw stop'} >&hadaq.log} + {rsh r2-25 sh -c {'PATH=$PATH:$HOME/bin/POWERPC_LYNXOS_2_5_1; cd tt00/slow; ./trig stop'} >&hadaq.log} +} -- 2.43.0