me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* 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
#:key
reverse-edges?
(node-type %package-node-type)
(backend %graphviz-backend))
"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
(($ <graph-backend> emit-prologue emit-epilogue emit-node emit-edge)
(emit-prologue (node-type-name node-type) port)
@ -349,7 +351,9 @@ given BACKEND. Use NODE-TYPE to traverse the DAG."
dependencies)))
(emit-node id (node-label head) port)
(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)
(loop (append dependencies tail)
(set-insert id visited)))))))))))))