[Roxygen-commits] r64 - pkg/R

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

Author: pcd
Date: 2008-07-20 07:14:24 +0200 (Sun, 20 Jul 2008)
New Revision: 64

Modified:
   pkg/R/collate.R
Log:
TODO: actual adjacency list


Modified: pkg/R/collate.R
===================================================================
--- pkg/R/collate.R	2008-07-20 05:08:38 UTC (rev 63)
+++ pkg/R/collate.R	2008-07-20 05:14:24 UTC (rev 64)
@@ -46,7 +46,7 @@
         }
       predecessor$finished <- time
       assign.parent('sorted',
-                    append(predecessor$file, sorted),
+                    append(predecessor, sorted),
                     environment())
     }
     for (vertex in vertices)
@@ -54,7 +54,11 @@
         visit(vertex)
   }
 
-  post.files <- function() print(topological.sort(vertices))
+  post.files <-
+    function() cat(Reduce.paste(function(vertex) vertex$file,
+                                topological.sort(vertices),
+                                ' '),
+                   '\n')
 
   roclet <- make.roclet(parse.include,
                         pre.parse=pre.parse,