Revision: 1044
http://svn.sourceforge.net/r-gregmisc/?rev=1044&view=rev
Author: warnes
Date: 2007-02-05 15:17:07 -0800 (Mon, 05 Feb 2007)
Log Message:
-----------
Handle arguments better
Modified Paths:
--------------
trunk/fork/R/signal.R
Modified: trunk/fork/R/signal.R
===================================================================
--- trunk/fork/R/signal.R 2007-02-05 23:08:43 UTC (rev 1043)
+++ trunk/fork/R/signal.R 2007-02-05 23:17:07 UTC (rev 1044)
@@ -1,27 +1,24 @@
# $Id: kill.R 340 2004-05-25 19:12:32Z warnes $
-signal <- function(signal, action=c("ignore","restore") )
+signal <- function(signal, action=c("ignore","default") )
{
- action=match.args(action)
+ action=match.arg(action)
if(is.character(signal))
- sig=sigval(signal)$val
- else (is.numeric(signal) && !is.na(signal))
- sig=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,
- "restore"=1
+ "default"=1
)
-
- msg1 =
-
.C(
"Rfork_signal",
- as.integer(signal),
+ as.integer(sig),
as.integer(act),
PACKAGE="fork"
)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
