nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

graph: 'export-graph' takes a #:reverse-edges? parameter. 

* guix/scripts/graph.scm (export-graph): Add #:reverse-edges? parameter
  and honor it.
This commit is contained in:
Ludovic Courtès 2015-10-14 15:11:04 +02:00
parent 00184239c3
commit a64cd7b65f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/scripts/graph.scm
View File

@ -322,10 +322,12 @@ substitutes."
(define* (export-graph sinks port (define* (export-graph sinks port
#:key #:key
reverse-edges?
(node-type %package-node-type) (node-type %package-node-type)
(backend %graphviz-backend)) (backend %graphviz-backend))
"Write to PORT the representation of the DAG with the given SINKS, using the "Write to PORT the representation of the DAG with the given SINKS, using the
given BACKEND. Use NODE-TYPE to traverse the DAG." given BACKEND. Use NODE-TYPE to traverse the DAG. When REVERSE-EDGES? is
true, draw reverse arrows."
(match backend (match backend
(($ <graph-backend> emit-prologue emit-epilogue emit-node emit-edge) (($ <graph-backend> emit-prologue emit-epilogue emit-node emit-edge)
(emit-prologue (node-type-name node-type) port) (emit-prologue (node-type-name node-type) port)
@ -349,7 +351,9 @@ given BACKEND. Use NODE-TYPE to traverse the DAG."
dependencies))) dependencies)))
(emit-node id (node-label head) port) (emit-node id (node-label head) port)
(for-each (lambda (dependency dependency-id) (for-each (lambda (dependency dependency-id)
(emit-edge id dependency-id port)) (if reverse-edges?
(emit-edge dependency-id id port)
(emit-edge id dependency-id port)))
dependencies ids) dependencies ids)
(loop (append dependencies tail) (loop (append dependencies tail)
(set-insert id visited))))))))))))) (set-insert id visited)))))))))))))