The R Project SVN R

Rev

Rev 57296 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

library(parallel)

p <- parallel:::mcfork()
if (inherits(p, "masterProcess")) {
    cat("I'm a child! ", Sys.getpid(), "\n")
    parallel:::mcexit(,"I was a child")
}
cat("I'm the master\n")
unserialize(parallel:::readChildren(1.5))
## don't do anything here as stdin is eaten.