[Roxygen-commits] r61 - in pkg: R sandbox

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

Author: pcd
Date: 2008-07-20 07:08:11 +0200 (Sun, 20 Jul 2008)
New Revision: 61

Modified:
   pkg/R/namespace.R
   pkg/R/roclet.R
   pkg/sandbox/namespace.R
Log:
general roclet in closure style


Modified: pkg/R/namespace.R
===================================================================
--- pkg/R/namespace.R	2008-07-20 05:07:59 UTC (rev 60)
+++ pkg/R/namespace.R	2008-07-20 05:08:11 UTC (rev 61)
@@ -1,23 +1,25 @@
 #' @include roclet.R
 #' @include string.R
-parse.namespace.directive <- function(proc, parms)
-  cat(sprintf('%s(%s)\n', proc, strmap(Identity, ', ', parms)))
+make.namespace.roclet <- function() {
+  parse.directive <- function(proc, parms)
+    cat(sprintf('%s(%s)\n', proc, strmap(Identity, ', ', parms)))
   
-namespace.roclet <- roclet(parse.namespace.directive)
+  roclet <- roclet(parse.directive)
 
-namespace.roclet$register.parser('exportClass',
-                                 function(proc, parms)
-                                 default.parse('exportClasses', parms))
-namespace.roclet$register.parser('exportMethod',
-                                 function(proc, parms)
-                                 default.parse('exportMethods', parms))
+  roclet$register.parser('exportClass',
+                                   function(proc, parms)
+                                   default.parse('exportClasses', parms))
+  roclet$register.parser('exportMethod',
+                                   function(proc, parms)
+                                   default.parse('exportMethods', parms))
 
-namespace.roclet$register.default.parser('export')
-namespace.roclet$register.default.parser('exportPattern')
-namespace.roclet$register.default.parser('S3method')
-namespace.roclet$register.default.parser('import')
-namespace.roclet$register.default.parser('importFrom')
-namespace.roclet$register.default.parser('importClassesFrom')
-namespace.roclet$register.default.parser('importMethodsFrom')
+  roclet$register.default.parser('export')
+  roclet$register.default.parser('exportPattern')
+  roclet$register.default.parser('S3method')
+  roclet$register.default.parser('import')
+  roclet$register.default.parser('importFrom')
+  roclet$register.default.parser('importClassesFrom')
+  roclet$register.default.parser('importMethodsFrom')
 
-namespace.roclet <- namespace.roclet$parse
+  roclet
+}

Modified: pkg/R/roclet.R
===================================================================
--- pkg/R/roclet.R	2008-07-20 05:07:59 UTC (rev 60)
+++ pkg/R/roclet.R	2008-07-20 05:08:11 UTC (rev 61)
@@ -10,7 +10,7 @@
   roclet$register.default.parser <- function(key)
     roclet$parsers[[key]] <- parse.default
 
-  roclet$parse <- function(partita) {
+  roclet$parse <- function(...) {
     key.values <- function(partitum)
       zip.list(attributes(partitum)$names, partitum)
     
@@ -19,7 +19,7 @@
     parser <- function(key)
       if (is.null(f <- roclet$parsers[[key]])) parse.noop else f
 
-    for (partitum in partita)
+    for (partitum in parse.files(...))
       for (key.value in key.values(partitum)) {
         key <- car(key.value)
         do.call(parser(key), list(key, cdr(key.value)))

Modified: pkg/sandbox/namespace.R
===================================================================
--- pkg/sandbox/namespace.R	2008-07-20 05:07:59 UTC (rev 60)
+++ pkg/sandbox/namespace.R	2008-07-20 05:08:11 UTC (rev 61)
@@ -13,4 +13,5 @@
 argc <- length(argv)
 files <- if (argc > 0) as.list(argv) else FILES
 
-namespace.roclet(do.call(parse.files, files))
+roclet <- make.namespace.roclet()
+do.call(roclet$parse, files)