Newport XPS-Q8 - TCL Code

XPS-Q8 Tcl Manual
Please see the sections:
4 Principle of a Tcl script redirection to a telnet session.
6 Proposed function for error handling.
7.13.3 TCL Code
# Set channel’s name to be used for telnet.
# In this example we assume it is passed to the script as the
# first argument, if not specified output to stdio.
# Open the channel for read mode and get its id,
# this is the id that will be passed to puts function.
if {$tcl_argv(0) != 0} {
set telnetOut [ open "/dev/$tcl_argv(0)" r+]
} else {
set telnetOut stdout
}
# Initialization
set TimeOut 20
set code 0
set group "SINGLE_AXIS"
# Open TCP socket
set code [catch "OpenConnection $TimeOut socketID"]
if {$code != 0} {
puts $telnetOut "OpenConnection failed => $code"
flush $telnetOut
} else {
# Recover the input arguments entered by the user
# In this case argument 0 is used for Telnet channel identifier
if {$tcl_argc == 4} {
set startpos $tcl_argv(1)
set endpos $tcl_argv(2)
set cycles $tcl_argv(3)
} else {
puts $telnetOut "Wrong number of parameters, argument
1, 2 and 3 are needed"
flush $telnetOut
set code [catch "TCP_CloseSocket $socketID"]
return
}
# Kill group
set code [catch "GroupKill $socketID $group"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GroupKill" $telnetOut
return
EDH0307En1041 — 10/17
57