- Extended sicshdbadapter to attach a node to the target of any
drivable. Required a new event in devexec.c - Fixed the phytron driver to handle speed well - Added a protocol driver for the TCP/IP bridge to the SLS magnets SKIPPED: psi/make_gen psi/phytron.c psi/psi.c psi/slsecho.c psi/sps.c
This commit is contained in:
@ -3,9 +3,10 @@
|
||||
#
|
||||
# Started: Dr. Mark Koennecke, July 2006
|
||||
#---------------------------------------------------------------------------
|
||||
set home $env(HOME)/src/workspace/sics/test
|
||||
#----------------------------------------------------------------------------
|
||||
# O P T I O N S
|
||||
|
||||
# --------------- Initialize Tcl internals --------------------------------
|
||||
# --------------- ----------------------------------------------------------
|
||||
|
||||
# first all the server options are set
|
||||
|
||||
@ -190,7 +191,7 @@ sa endconfig
|
||||
#-----------------------------------------------------------------------
|
||||
# Hipadaba
|
||||
#----------------------------------------------------------------------
|
||||
InstallHdb
|
||||
source ../tcl/hdbutil.tcl
|
||||
hmake /instrument spy none
|
||||
hmake /instrument/sample spy none
|
||||
hattach /instrument/sample a3 omega
|
||||
@ -199,6 +200,10 @@ hmake /instrument/detector spy none
|
||||
hattach /instrument/detector hm data
|
||||
hattach /instrument lotte title
|
||||
|
||||
hfactory /target plain spy none
|
||||
hfactory /target/ta3 plain internal float
|
||||
hattach target a3 /target/ta3
|
||||
|
||||
restore
|
||||
|
||||
#-------------------------------------------------
|
||||
@ -641,10 +646,10 @@ set simhm 1
|
||||
simi init
|
||||
#}
|
||||
|
||||
set phytron 1
|
||||
set phytron 0
|
||||
if {$phytron == 1} {
|
||||
#makesctcontroller phyto phytron psts234:3002 5
|
||||
makesctcontroller phyto phytron morpheus-ts:3011 5
|
||||
makesctcontroller phyto phytron morpheus-ts:3013
|
||||
#makesctcontroller phyto phytron localhost:8080 5
|
||||
phyto debug 0
|
||||
|
||||
@ -700,3 +705,8 @@ proc testerr {input} {
|
||||
|
||||
makesctcontroller echo testprot testprot.dat
|
||||
|
||||
source ../tcl/stddrive.tcl
|
||||
source ../tcl/slsecho.tcl
|
||||
makesctcontroller slssct slsecho 129.129.195.50:5001
|
||||
slsecho::makeslsecho ma1 0 slssct
|
||||
|
||||
|
Reference in New Issue
Block a user