- Introduced a command history log for statistical and
syntax checking input purposes - Rectified an error message in fourmess.c - HMcontrol did not check for the HM to stop before returning. This caused weird data files at AMOR as the data had not yet been downloaded from the HM. - Fixed an issue about parameters in multicounter - Temporary fix in nxscript.c to always read the Hm from the HM and not a buffer. This is prior to rethinking caching strategies for old style HM's. - Synchronize now copies fixed motors correctly. This used to cause irritation with users. This now requires a script syncdrive to exist in the sync server which takes care of handling the fixed flag when this is desired. - Added initify to sicsdata in order to copy large value timebins over properly at AMOR SKIPPED: psi/amorstat.c psi/make_gen psi/makefile_linux psi/polterwrite.c psi/sinq.c psi/sinqhttp.c psi/sinqhttpprot.c psi/sps.c psi/tdchm.c
This commit is contained in:
@ -33,6 +33,7 @@ ServerOption InterruptPort 2913
|
||||
# The UDP port where the server will wait for Interrupts from clients.
|
||||
# Obviously, clients wishing to interrupt need to know this number.
|
||||
|
||||
ServerOption historylog $env(HOME)/src/workspace/sics/sim/tmp/comhistorytst.txt
|
||||
|
||||
#---------------------------------------------------------------------------
|
||||
# U S E R S
|
||||
@ -527,6 +528,7 @@ amorhmsct poll /sics/amorhm/collapse 20
|
||||
|
||||
#source ../sim/mars/julcho.tcl
|
||||
|
||||
MakeSinq
|
||||
|
||||
MakeSingleX
|
||||
singlex configure stt a4
|
||||
@ -648,9 +650,11 @@ if {$hmhttp == 1} {
|
||||
set simhm 1
|
||||
#if {$simhm == 1} {
|
||||
source ../tcl/simhm.tcl
|
||||
simhm::MakeSimHM simi 2
|
||||
simhm::MakeSimHM simi 3 tof
|
||||
# simhm::makeSecond simi singledet 30
|
||||
simi dim 64 64
|
||||
simi dim 64 64 5
|
||||
lappend tlist 10 20 30 40 50
|
||||
simi time_binning $tlist
|
||||
simi init
|
||||
#}
|
||||
|
||||
@ -711,16 +715,16 @@ proc testerr {input} {
|
||||
}
|
||||
|
||||
|
||||
set slsecho 1
|
||||
set slsecho 0
|
||||
|
||||
if {$slsecho == 1} {
|
||||
makesctcontroller echo testprot testprot.dat
|
||||
|
||||
source ../tcl/stddrive.tcl
|
||||
source ../tcl/slsecho.tcl
|
||||
#makesctcontroller slssct slsecho taspmagnet:5001
|
||||
makesctcontroller slssct slsecho localhost:8080
|
||||
slsecho::makeslsecho ma1 0 slssct
|
||||
makesctcontroller slssct slsecho taspmagnet:5001
|
||||
#makesctcontroller slssct slsecho localhost:8080
|
||||
slsecho::makeslsecho ma1 5 slssct
|
||||
#slsecho::makeslsecho ma3 2 slssct
|
||||
}
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user