Displaying 1 result from an estimated 1 matches for "socketslave".
2005 Apr 14
0
Finding an available port for server socket
I've written a Smalltalk application which starts R on another machine and
then communicates with it via sockets. The functions involved are:
slaveStart <- function(masterHost, masterPort){
inPort <- availablePort()
sendSocket(as.character(inPort), masterHost, masterPort)
socketSlave(inPort)
}
socketSlave <- function(inPort){
## listens on inPort.
on.exit(closeAllConnections(), add = T)
repeat {
inConn <- socketConnection(port = inPort, server = T, blocking = T)
try(source(inConn, echo = T, prompt.echo = "> ",
max.deparse.len...