XPS-Q8
Tcl Manual
7.3
GPIO1 Test
7.3.1
Description
This example opens a TCP connection. It sets the value to 255 to the mask and the
output GPIO1.DO, then gets this output value and assigns it to the variable OA. The
program sets the value of 255 to the mask and the value of 0 to the output GPIO1.DO,
then gets this output value and assigns it to variable OB. It sets the value of 63 to the
mask and the value of 255 to the output GPIO1.DO, then gets this output value and
assigns it to the variable OC. After the settings, the program tests the value of the
variables OA, OB and OC. Finally, the program ends by closing the socket.
Please see the sections:
4 Principle of a Tcl script redirection to a telnet session.
6 Proposed function for error handling.
7.3.2
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
120
set
output "GPIO1.DO"
set
input "GPIO1.DI"
# Open TCP socket
set
code [
catch
"
OpenConnection
$TimeOut socketID"]
if
{$code !=
0
} {
puts
$telnetOut "OpenConnection failed => $code"
# Force transfer to channel’s output buffer
flush
$telnetOut
}
else
{
# Set output of GPIO1 to 255
set
code [
catch
"
GPIODigitalSet
$socketID $output
255
255
"]
if
{$code !=
0
} {
DisplayErrorAndClose
$socketID $code "GPIODigitalSet" $telnetOut
return
}
# Get value of output of GPIO1 and store it in OA
set
code [
catch
"
GPIODigitalGet
$socketID $output OA"]
if
{$code !=
0
} {
DisplayErrorAndClose
$socketID $code "GPIODigitalGet" $telnetOut
return
}
else
{
puts
$telnetOut "OA = $OA"
# Force transfer to channel’s output buffer
flush
$telnetOut
}
EDH0307En1041 — 10/17
29
