[Roxygen-commits] r13 - in pkg: . R

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

Author: pcd
Date: 2008-06-02 15:28:31 +0200 (Mon, 02 Jun 2008)
New Revision: 13

Added:
   pkg/TODO
Modified:
   pkg/R/roxygen.R
Log:
parsed comments and associated srcref


Modified: pkg/R/roxygen.R
===================================================================
--- pkg/R/roxygen.R	2008-06-02 11:47:24 UTC (rev 12)
+++ pkg/R/roxygen.R	2008-06-02 13:28:31 UTC (rev 13)
@@ -90,7 +90,8 @@
 } 
 
 parse.ref.srcref <- function(srcref)
-  nil
+  list(srcref=list(filename=attributes(srcref)$srcfile$filename,
+         lloc=as.vector(srcref)))
 
 parse.refs <- function(prerefs.srcrefs)
   Map(parse.ref, prerefs.srcrefs)
@@ -98,5 +99,4 @@
 srcfile <- srcfile('example.R')
 srcrefs <- attributes(parse(srcfile$filename,
                             srcfile=srcfile))$srcref
-## parse.refs(zip.list(prerefs(srcfile), srcrefs))
-Map(unlist, Map(parse.ref, prerefs(srcfile)))
+parse.refs(zip.list(prerefs(srcfile), srcrefs))

Added: pkg/TODO
===================================================================
--- pkg/TODO	                        (rev 0)
+++ pkg/TODO	2008-06-02 13:28:31 UTC (rev 13)
@@ -0,0 +1,2 @@
+* Examine the actual srcref associated with the comment block to
+  extract names, S3/S4 class information.