Initial revision

servo.tcl

@@ -0,0 +1,77 @@
+# --------------------------------------------------------------------------
+# Initialization script for testing the SICS server. Also example for how
+# such an insane script might look like,
+#
+# Dr. Mark Koennecke November 1996
+#---------------------------------------------------------------------------
+#                        O P T I O N S
+
+# 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  /data/koenneck/src/sics/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.
+
+
+#---------------------------------------------------------------------------
+#                        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 set "Druechal" #initialisation
+
+VarMake Title Text User
+VarMake User  Text User
+User set "Albert von Villigen"
+
+#--------------------------------------------------------------------------
+#                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 s5 SIM -22.0 +22.0 90.
+#--------------------------------------------------------------------------
+#     C O N F I G U R E     D E V I C E S     T O    H A L T  I N
+#                        I N T E R R U P T 
+AddHalt a4 s5 s6
+
+#--------------------------------------------------------------------------
+#             P R O C E D U R E S
+
+MakeDrive
+
+MakeCounter simpel SIM