diff options
author | Alex Kost <alezost@gmail.com> | 2016-01-27 23:06:07 +0300 |
---|---|---|
committer | Alex Kost <alezost@gmail.com> | 2016-01-29 20:21:54 +0300 |
commit | 710fa231f03633fe243b52635479d591946fec44 (patch) | |
tree | 9dd30cc4ad10084fb184bd65e10422074282931e /guix/scripts | |
parent | d4053c710bc2c7a4f624ba2d72438d8f289ad569 (diff) |
guix system: Rename 'dmd-graph' to 'shepherd-graph'.
* doc/images/dmd-graph.dot: Rename to...
* doc/images/shepherd-graph.dot: ... this.
* doc.am (DOT_FILES): Adjust accordingly.
* guix/scripts/system.scm (dmd-service-node-label)
(dmd-service-node-type, export-dmd-graph): Rename to...
(shepherd-service-node-label, shepherd-service-node-type)
(export-shepherd-graph): ... this.
(show-help, process-action, process-command): Rename 'dmd-graph' to
'shepherd-graph'.
* emacs/guix-command.el (guix-command-additional-execute-arguments)
(guix-command-special-executors): Likewise.
* doc/guix.texi: Likewise.
* doc/emacs.texi (Emacs Popup Interface): Likewise.
Diffstat (limited to 'guix/scripts')
-rw-r--r-- | guix/scripts/system.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index b0f8be74b0..e31eec6fda 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -312,17 +312,17 @@ list of services." (label service-node-label) (edges (lift1 (service-back-edges services) %store-monad)))) -(define (dmd-service-node-label service) +(define (shepherd-service-node-label service) "Return a label for a node representing a <shepherd-service>." (string-join (map symbol->string (shepherd-service-provision service)))) -(define (dmd-service-node-type services) +(define (shepherd-service-node-type services) "Return a node type for SERVICES, a list of <shepherd-service>." (node-type - (name "dmd-service") - (description "the dependency graph of dmd services") - (identifier (lift1 dmd-service-node-label %store-monad)) - (label dmd-service-node-label) + (name "shepherd-service") + (description "the dependency graph of shepherd services") + (identifier (lift1 shepherd-service-node-label %store-monad)) + (label shepherd-service-node-label) (edges (lift1 (shepherd-service-back-edges services) %store-monad)))) @@ -474,7 +474,7 @@ building anything." #:node-type (service-node-type services) #:reverse-edges? #t))) -(define (export-dmd-graph os port) +(define (export-shepherd-graph os port) "Export the graph of shepherd services of OS to PORT." (let* ((services (operating-system-services os)) (pid1 (fold-services services @@ -484,7 +484,7 @@ building anything." (null? (shepherd-service-requirement service))) shepherds))) (export-graph sinks (current-output-port) - #:node-type (dmd-service-node-type dmds) + #:node-type (shepherd-service-node-type shepherds) #:reverse-edges? #t))) @@ -517,7 +517,7 @@ Build the operating system declared in FILE according to ACTION.\n")) (display (_ "\ extension-graph emit the service extension graph in Dot format\n")) (display (_ "\ - dmd-graph emit the graph of dmd services in Dot format\n")) + shepherd-graph emit the graph of shepherd services in Dot format\n")) (show-build-options-help) (display (_ " @@ -637,8 +637,8 @@ resulting from command-line parsing." (case action ((extension-graph) (export-extension-graph os (current-output-port))) - ((dmd-graph) - (export-dmd-graph os (current-output-port))) + ((shepherd-graph) + (export-shepherd-graph os (current-output-port))) (else (perform-action action os #:dry-run? dry? @@ -678,7 +678,7 @@ argument list and OPTS is the option alist." (let ((action (string->symbol arg))) (case action ((build container vm vm-image disk-image reconfigure init - extension-graph dmd-graph list-generations) + extension-graph shepherd-graph list-generations) (alist-cons 'action action result)) (else (leave (_ "~a: unknown action~%") action)))))) |