Displaying 1 result from an estimated 1 matches for "firstmachine".
2005 Apr 14
0
Finding an available port for server socket
...written script that massages output from netstat
portsInUse <- as.numeric(system("/mra/prod/scripts/portsInUse", intern = T))
}
port <- 40001
while(!is.na(match(port, portsInUse))) port <- port + 1
port
}
The way this works is that
(i) The Smalltalk app running on firstMachine finds an available port (say
12345) that it can listen on, start listening there, and writes
slaveStart("firstMachine", 12345)
to startUpFile.
(ii) The Smalltalk app does something like this to start R on secondMachine:
ssh secondMachine R < startUpFile > someLo...