;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages libdaemon)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public libdaemon
  (package
    (name "libdaemon")
    (version "0.14")
    (source (origin
             (method url-fetch)
             (uri (list
                   (string-append
                    "mirror://debian/pool/main/libd/libdaemon/libdaemon_"
                    version ".orig.tar.gz")
                   "http://pkgs.fedoraproject.org/repo/pkgs/libdaemon/libdaemon-0.14.tar.gz/509dc27107c21bcd9fbf2f95f5669563/libdaemon-0.14.tar.gz"

                   ;; This used to be the canonical URL but it vanished.
                   ;; See <http://bugs.gnu.org/18639>.
                   ;; (string-append
                   ;;  "http://0pointer.de/lennart/projects/libdaemon/libdaemon-"
                   ;;  version ".tar.gz")
                   ))
             (sha256
              (base32
               "0d5qlq5ab95wh1xc87rqrh1vx6i8lddka1w3f1zcqvcqdxgyn8zx"))
             (file-name (string-append name "-" version ".tar.gz"))))
    (build-system gnu-build-system)
    (arguments
     (if (%current-target-system)
         ;; The 'setpgrp' test cannot provide an answer when cross-compiling,
         ;; so provide the right one for glibc.
         `(#:configure-flags (list "ac_cv_func_setpgrp_void=yes"

                                   ;; TODO: Move this globally on the next
                                   ;; rebuild cycle.
                                   ;; Set a valid localstatedir for the
                                   ;; benefit of the default
                                   ;; 'daemon_pid_file_proc', used by the
                                   ;; Hurd's console client.
                                   "--localstatedir=/var"))
         '()))

    ;; XXX: Stale URL, missing replacement.  See <http://bugs.gnu.org/18639>.
    (home-page "http://0pointer.de/lennart/projects/libdaemon/")

    (synopsis "Lightweight C library that eases the writing of UNIX daemons")
    (description
     "Libdaemon is a lightweight C library that eases the writing of UNIX
daemons.  It consists of the following parts:

  • A wrapper around fork() which does the correct daemonization procedure of
    a process

  • A wrapper around syslog() for simpler and compatible log output to Syslog
    or STDERR

  • An API for writing PID files

  • An API for serializing UNIX signals into a pipe for usage with select() or
    poll()

  • An API for running subprocesses with STDOUT and STDERR redirected to
    syslog.

APIs like these are used in most daemon software available.  It is not that
simple to get it done right and code duplication is not a goal.")
    (license lgpl2.1+)))
e the new procedure to fetch the file if
all other methods fail.
* build-aux/build-self.scm (build-program)[select?]: Exclude '(guix
build download)'.
* guix/self.scm (compiled-guix)[*core-modules*]: Add 'guile-json' to
the list of extensions.
</span></span></td><td>Timothy Sample</td></tr>
<tr><td><span title='2021-04-01 14:58:55 +0200'>2021-04-01</span></td><td><a href='/guix/commit/build-aux/build-self.scm?id=a81a19930b2cbe1327e1e82d6210f80846ce2898'>build-self: Take care of the spinner in the parent process.</a><span class='msg-avail'>...<span class='msg-tooltip'>This simplifies code and mostly ensures we don't print a spinner while
there's build activity going on.

* build-aux/build-self.scm (build-program): Remove 'spin' and
'call-with-new-thread' call from "compute-guix-derivation" body.  Remove
"Computing Guix derivation" message.
(proxy): Pass extra argument to 'select'.  Display a spinner when
'select' returns empty lists.
(build): Print "Computing Guix derivation" message here.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-04-01 14:58:55 +0200'>2021-04-01</span></td><td><a href='/guix/commit/build-aux/build-self.scm?id=1c10c2751a9075db5ab70fd102f0cc5ef2375720'>build-self: Forward sub-process build output to (current-build-output-port).</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/41930&gt;.

* build-aux/build-self.scm (build-program): Add extra 'build-output'
parameter.  Interpret it as a socket name and connect to it; use it as
the CURRENT-BUILD-OUTPUT-PORT.
(proxy): New procedure.
(build): Open a named socket.  Accept connections and call 'proxy' on it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-03-19 21:44:36 +0100'>2021-03-19</span></td><td><a href='/guix/commit/build-aux/build-self.scm?id=ef2b9322fae1d03bf639924d12214b0f58c11054'>build-self: Silent Guile warnings while computing the derivation.</a><span class='msg-avail'>...<span class='msg-tooltip'>In particular, silence the Guile-Git autoload warnings introduced by
c1940fde43c7aca37d67589cc5cb248086d17d56.

* build-aux/build-self.scm (build-program): Wrap 'guix-derivation' call
in 'parameterize'.
</span></span></td><td>Ludovic Courtès</td></tr>