[R-gregmisc-users] SF.net SVN: r-gregmisc: [1044] trunk/fork/R/signal.R

[<wa...@us...>]

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.