pnt cpu: pointing prog, pntTcl for operators
pntp1 cpu:vertex control.
pntp2 cpu:rotary floor (turret)  control.
pntp3 cpu:tiedowns, sband pc communications, laser ranging.

da cpu: mcpProg,  ri, sps, rtg, iflo.
dap1 cpu: dds,pncode generators,sband doppler.
dap2 cpu: write gio data across link to pc

cor cpu: control the 4 interrim correlator cpu/boards.
corp1 cpu: control cor cal pulses, cor blanking.
corp6-9: the 4 cpu interrim correlator cpu boards.

rfi  cpu: hilltop monitoring cpu.
rfip1 cpu: dewar monitoring cpu.

• aosock  socket communications from vxWorks tcl interpreter.
  

SrcLocations:
        The source locations quoted are relative to /home/phil/

---

PNT crate:

Da crate:

---

cor crate:

rfi crate:

common routines:

mcpProg: tcl interpreter.

aosock: socket communications from Tcl in vxWorks.  (top)

• aosockProg: tcl interpreter to test aosock
• mcpProg: tcl interpreter to control datataking.

    Notes:

• If TCL_ERROR is returned then then command will be aborted (or any function it is called from). If you don't want this , then use catch
• You need to call aosock socket to get the file descriptor before make any of the other calls (except aosock {list,?}).
• Errors will usually return with an error message included in the return value.
  

    Usage:

• aosock (cl)ose $sockFd
• Close socket, free up resources. sockFd no longer availabel to use.
  
• aosock (co)nnect $sockFd $ipAdr $portNum {$tmOutTicks}
• Connect to socket at $ipAdr $portNum.
  
• Returns:
• TCL_OK if connect
• TCL_ERROR if:
• wrong number of args
• port number is not an integer. If tmOutTick supplied then it must also be an integer.
• If not connection is made within tmOutTicks. default is 60 = 1 second.
  
• Example:
• aosock connect $sockFd "192.65.176.2" 7
  

• aosock (g)ets $sockFd inpLine {$tmOutTicks}
• get a line of text.
• The termination character in newline.
• Returns:
• TCL_OK with n telling of the bytes returned:
• n >0 bytes return. A line with just a newline will return 0 bytes.
• n=0 timeout.. so hard to distinguish between newline only line..
  
• n = -1 : EOF. socket will automatically be close on return. You can no longer use $sockFd.
• TCL_ERROR:
• Wrong number of args
• bad $sockFd
• tmOutTicks not an integer
• select error (not including timeout)
• read error (not including eof).
• Example:
• set n [aosock gets $sockFd inpLine 120]
• inpLine will hold the data
• aosock (l)ist
• list all of the sockets currently open
• returns each on a separate line
  
• N    .. number of sockets currently open
• sockFd sockState bufLen
• sockFd is socket number
• sockState: 0 not initialized, 1 sock socket completed, 2 connect completed.
• bufLen - length of buffer to use for input.
  
• aosock (p)uts $sockFd $outBuf
  
• output a line sockFd. Output stops at the end of string or the first newline found.
• One newline will be output at the end.
  
• Returns:
• TCL_OK
  
• Output went ok
• TCL_ERROR
• wrong number of args
• Length of variable longer than bufLen for socket.
• error on write including:eof, byteswritten != bytes requested.
• the socket will be closed automatically.
  
• Example:
• aosock puts $sockFd "this is a test"
  
• aosock (r)ead $sockFd inpBuf {$tmOutTicks}
• Read all available bytes from socket.
  
• If bytes are already available in the input buffer then don't bother to issue a read.
  
• Data will be stored in inpBuf. No newline will be appended.
• Returns:
• TCL_OK
• n>0 is the number of bytes
• n=0 timeout waiting for data
• n=-1 eof.. socket will be automatically closed
  
• inpBuf will have n bytes of data.
• TCL_ERROR
• Incorrect number of args,
• tmOutTicks not an integer.
• bad socket.
• select error (excluding timeout). read error (excluding eof).
• ctrl-c from the terminal.
• Example:
• set n [aosock read $sockFd inpBuf 120]
  
• aosock (s)ocket
• open a socket
• After open tcpNodelay is enabled.
  
• Returns:
• TCL_OK
• sockFd set to socket. Format is sockNN where NN is the file descriptor from the open.
• TCL_ERROR
• too many sockets currently open (current max is 10).
• error on socket call.
• 
  
• Example:
• set sockFd [aosock socket]
• aosock (w)rite $sockFd $outBuf
• write outBuf to socket.
• Returns:
• TCL_OK
• Write completes ok.
  
• TCL_ERROR
• Wrong number of args
• length of outBuf larger then socket buffer.
• eof or error on write
• in both cases the socket will be closed automatically.

• aosock ?
  
• Print list of aosock commands

home_~phil