[Roxygen-commits] r22 - pkg/R

[noreply at r-forge.r-project.org]

Author: pcd
Date: 2008-06-03 06:36:56 +0200 (Tue, 03 Jun 2008)
New Revision: 22

Modified:
   pkg/R/parse.R
Log:
parse setGeneric and setMethod


Modified: pkg/R/parse.R
===================================================================
--- pkg/R/parse.R	2008-06-03 00:45:24 UTC (rev 21)
+++ pkg/R/parse.R	2008-06-03 04:36:56 UTC (rev 22)
@@ -68,6 +68,13 @@
 parse.setClass <- function(expression)
   list(class=cadr(car(expression)))
 
+parse.setGeneric <- function(expression)
+  list(generic=cadr(car(expression)))
+
+parse.setMethod <- function(expression)
+  list(method=cadr(car(expression)),
+       class=caddr(car(expression)))
+
 parser.default <- function(key, default) {
   f <- sprintf('parse.%s', key)
   if (length(ls(1, pattern=f)) > 0) f else default