R/signal.R

In warnes/fork: R Functions for Handling Multiple Processes

# $Id: kill.R 340 2004-05-25 19:12:32Z warnes $

signal <- function(signal, action=c("ignore","default") )
  {
    action=match.arg(action)
    
    if(is.character(signal))
      sig <- sigval(signal)$val
    else if(is.numeric(signal) && !is.na(signal))
      sig <- signal
    else
      stop("Illegal value for signal")
    
    act <- switch(
                  action,
                  "ignore"=0,
                  "default"=1
                  )
    .C(
       "Rfork_signal",
       as.integer(sig),
       as.integer(act),
       PACKAGE="fork"
       )
    invisible()
  }