diff options
| -rw-r--r-- | gnu/packages/admin.scm | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 3d3c626192..7c7c457f50 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -187,6 +187,49 @@ interface and is based on GNU Guile.") (home-page "https://www.gnu.org/software/shepherd/") (properties '((ftp-server . "alpha.gnu.org"))))) +(define-public daemontools + (package + (name "daemontools") + (version "0.76") + (source (origin + (method url-fetch) + (uri (string-append + "https://cr.yp.to/" name "/" + name "-" version ".tar.gz")) + (sha256 + (base32 + "07scvw88faxkscxi91031pjkpccql6wspk4yrlnsbrrb5c0kamd5")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ;; No tests as far as I can tell. + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'chdir + (lambda _ + (chdir ,(string-append name "-" version)))) + (delete 'configure) + (add-before 'build 'patch + (lambda _ + (substitute* "src/error.h" + (("extern int errno;") + "#include <errno.h>")))) + (replace 'build + (lambda _ + (invoke "package/compile"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin"))) + (for-each (lambda (file) + (install-file file bin)) + (find-files "command")))))))) + (synopsis "Tools for managing UNIX style services") + (description + "@code{daemontools} is a collection of tools for managing UNIX +services.") + (license license:public-domain) + (home-page "https://cr.yp.to/daemontools.html"))) + (define-public dfc (package (name "dfc") |