Newport XPS-Q8 - Page 61

XPS-Q8 Tcl Manual
MyScript.tcl
# 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 TCPTimeOut 60
set code 0
set GlobalVarNumber 1
set ReadValue 0
set NewValue 0
set END 10
set Positioner "SINGLE_AXIS.MY_STAGE"
set EventName "Timer1"
set EventPara 0
# Open TCP socket
set code [catch "OpenConnection $TCPTimeOut socketID"]
if {$code != 0} {
puts "OpenConnection failed => $code"
} else {
# Read global variable
set code [catch "GlobalArrayGet $socketID $GlobalVarNumber ReadValue”]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GlobalArrayGet" $telnetOut
return
} else {
puts $telnetOut "Read value: $ReadValue"
flush $telnetOut
}
if {$ReadValue < $END} {
# Increment global variable
set NewValue [expr {$ReadValue + 1}]
# Set global variable to a new value
set code [catch "GlobalArraySet $socketID $GlobalVarNumb $NewValue"]
if {$code != 0} {
DisplayErrorAndClose $socketID $code "GlobalArraySet" $telnetOut
return
} else {
puts $telnetOut "New value: $NewValue"
flush $telnetOut
}
} else {
# Delete timer event
set code [catch "EventRemove $socketID $Positioner $EventName
$EventPara"]
if {$code != 0} {
EDH0307En1041 — 10/17
55