search for: socketslav

Displaying 1 result from an estimated 1 matches for "socketslav".

Did you mean: 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.le...