From f15164e79127a7148fadc98adf6776d37f257044 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 21 Sep 2013 00:09:56 +0200
Subject: [PATCH] gnu: Add GNU dmd.
* gnu/packages/system.scm (dmd): New variable.
---
gnu/packages/system.scm | 34 +++++++++++++++++++++++++++++++++-
1 file changed, 33 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/system.scm b/gnu/packages/system.scm
index 7c733f9575f..9af03658126 100644
--- a/gnu/packages/system.scm
+++ b/gnu/packages/system.scm
@@ -25,7 +25,39 @@ (define-module (gnu packages system)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages ncurses)
- #:use-module (gnu packages linux))
+ #:use-module (gnu packages linux)
+ #:use-module (gnu packages guile)
+ #:use-module (gnu packages pkg-config))
+
+(define-public dmd
+ (package
+ (name "dmd")
+ (version "-0.4")
+ (source (origin
+ (method url-fetch)
+
+ ;; XXX: Temporary location until dmd gets back home.
+ (uri (string-append
+ "http://www.fdn.fr/~lcourtes/software/guix/dmd-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "094ja3xvk9ljghhxmy39if67cfjd1hy6m4svnp399n0wpxvaryvy"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:configure-flags '("--localstatedir=/var")))
+ (inputs `(("pkg-config" ,pkg-config)
+ ("guile" ,guile-2.0)))
+ (synopsis "Daemon managing daemons")
+ (description "'DMD' is a \"Daemon managing Daemons\" (or
+\"Daemons-managing Daemon\"?)---i.e. a service manager that provides a
+replacement for the service-managing capabilities of SysV-init (or any other
+init) with a both powerful and beautiful dependency-based system with a
+convenient interface. It is intended for use on GNU/Hurd, but it is supposed
+to work on every POSIX-like system where Guile is available. In particular,
+it has been tested on GNU/Linux.")
+ (license gpl3+)
+ (home-page "http://www.gnu.org/software/dmd/")))
(define-public dfc
(package
--
GitLab