prevent top-level export

[cl-graph.git] / dev / examples / class-hierarchy-to-dot.lisp

diff --git a/dev/examples/class-hierarchy-to-dot.lisp b/dev/examples/class-hierarchy-to-dot.lisp
index 0cc5f32..0b586fa 100644 (file)
--- a/dev/examples/class-hierarchy-to-dot.lisp
+++ b/dev/examples/class-hierarchy-to-dot.lisp
@@ -49,4 +49,29 @@
                         containers::transforming-iterator-mixin
                         containers::basic-filtered-iterator-mixin
                         containers::circular-iterator-mixin)
-                      "thousand-parsers:iterators.dot")
\ No newline at end of file
+                      "thousand-parsers:iterators.dot")
+
+#+(or)
+;; very sucky
+(let ((op (make-instance 'asdf:load-op)))
+  (graph->dot
+   (roots-and-child-function->graph 
+    (list (asdf:find-system 'cl-graph))
+    (lambda (node)
+      (print node)
+      (typecase node
+       (asdf:component
+        (asdf:component-depends-on op node))
+       (cons
+        (let ((op (car node)))
+          (loop for name in (rest node) 
+             when (asdf:find-system name nil) append
+            (asdf:component-depends-on op (asdf:find-system name)))))))
+    4)
+   #p"/tmp/out.dot"
+   :vertex-labeler (lambda (v s)
+                    (princ (or (ignore-errors 
+                                 (asdf:component-name (element v)))
+                               (element v)) s))
+   :edge-labeler (lambda (e s)
+                  (declare (ignore e s)))))
\ No newline at end of file