# --------------------------------------------------------------------------
# Initialization script for a simulated TOPSI instrument
#
#
# Dr. Mark Koennecke February, 1996
#---------------------------------------------------------------------------
#                        O P T I O N S

# --------------- Initialize Tcl internals --------------------------------
set root /home/koenneck/psi/sics

# first all the server options are set

ServerOption ReadTimeOut  100 
# timeout when checking for commands. In the main loop SICS checks for
# pending commands on each connection with the above timeout, has 
# PERFORMANCE impact!

ServerOption AcceptTimeOut  100 
# timeout when checking for connection req.
# Similar to above, but for connections

ServerOption ReadUserPasswdTimeout  500000 
# time to wiat for a user/passwd to be sent from a client. Increase this
# if there is a problem connecting to a server due to network overload\

ServerOption ServerLogBaseName  $root/server
# the path and base name of the internal server logfile to which all
# activity will be logged.

ServerOption ServerPort 2910 
# the port number the server is going to listen at. The client MUST know
# this number in order to connect. It is in client.ini

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 DefaultTclDirectory $root/tcl
ServerOption DefaultCommandFile  topsicom.tcl

#---------------------------------------------------------------------------
#                        U S E R S

# than the SICS users are specified
# Syntax: SicsUser name password userRightsCode
SicsUser Mugger Diethelm  1
SicsUser User   Rosy      2
SicsUser Spy    007       3

#--------------------------------------------------------------------------
#               S I M P L E     V A R I A B L E S

# now a few general variables are created
# Syntax: VarMake name type access
# type can be one of: Text, Int, Float
#access can be one of: Internal, Mugger, user, Spy

VarMake Instrument Text Internal 
Instrument  "TOPSI" #initialisation

VarMake Title Text User
Title "TopsiTupsiTapsi"
VarMake User  Text User
User  "Daniel_the_Clementine"

#--------------------------------------------------------------------------
#                D E V I C E S :  M O T O R S

# Motor a4 EL734 LNSP22 4000 5 6
# EL734 motor with parameters: hostname PortNumber Channel MotorID
#Motor A2 EL734 lnsp22.psi.ch 4000 5 2   # Monochromator 2Theta
#Motor A3 EL734 lnsp22.psi.ch 4000 5 3   # Sample Omega

#                      C O U N T E R S
#MakeCounter counter EL737 lnsp22.psi.ch 4000 4


#MakeRS232Controller marcel psxtemp 3004

MakeRS232Controller pfiff  psts227 3009
pfiff sendterminator 0x0
pfiff replyterminator 0x72 0x77


Publish pfiffread Spy
source pfiff.tcl