From: Nils Gillmann <ng0@n0.is>
To: Marius Bakke <mbakke@fastmail.com>
Cc: guix-devel@gnu.org
Subject: Re: [PATCH] gnu: Add systemd.
Date: Sun, 1 Apr 2018 12:52:17 +0000 [thread overview]
Message-ID: <20180401125217.gpbaet3lcas5fnnf@abyayala> (raw)
In-Reply-To: <20180401122259.9688-1-mbakke@fastmail.com>
This is one hell of a write-up for an april-fools..
Does it build though?
Marius Bakke transcribed 14K bytes:
> Guix,
>
> As discussed at FOSDEM, it is clear that The Shepherd does not have what
> it takes to boot a modern Linux system. While it works today, adding
> bootloader, DNS server, NTP client, syslog, udev, seat management,
> dishwasher, hardware database, network management and other essential
> PID 1 features is going to take too much effort and duplicate work.
>
> Meanwhile, GuixSD keeps drifting away from other distributions. This
> patch is the first of many in order to gain feature parity with the
> modern GNU/Linux world. 2018 is surely the year of the GuixSD desktop!
>
> Note: It requires the patch from <https://bugs.gnu.org/31014>.
>
> * gnu/packages/systemd.scm: New file.
> * gnu/local.mk (GNU_SYSTEM_MODULES): Register it.
> ---
> gnu/local.mk | 1 +
> gnu/packages/systemd.scm | 251 +++++++++++++++++++++++++++++++++++++++++++++++
> 2 files changed, 252 insertions(+)
> create mode 100644 gnu/packages/systemd.scm
>
> diff --git a/gnu/local.mk b/gnu/local.mk
> index 2705fb37a..dbefd8cca 100644
> --- a/gnu/local.mk
> +++ b/gnu/local.mk
> @@ -402,6 +402,7 @@ GNU_SYSTEM_MODULES = \
> %D%/packages/statistics.scm \
> %D%/packages/storage.scm \
> %D%/packages/suckless.scm \
> + %D%/packages/systemd.scm \
> %D%/packages/swig.scm \
> %D%/packages/sync.scm \
> %D%/packages/syncthing.scm \
> diff --git a/gnu/packages/systemd.scm b/gnu/packages/systemd.scm
> new file mode 100644
> index 000000000..e90ed65cc
> --- /dev/null
> +++ b/gnu/packages/systemd.scm
> @@ -0,0 +1,251 @@
> +;;; GNU Guix --- Functional package management for GNU
> +;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
> +;;;
> +;;; 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 systemd)
> + #:use-module (guix packages)
> + #:use-module (guix download)
> + #:use-module (guix build-system meson)
> + #:use-module ((guix licenses) #:prefix license:)
> + #:use-module (gnu packages acl)
> + #:use-module (gnu packages admin)
> + #:use-module (gnu packages aidc)
> + #:use-module (gnu packages base)
> + #:use-module (gnu packages bash)
> + #:use-module (gnu packages compression)
> + #:use-module (gnu packages cryptsetup)
> + #:use-module (gnu packages curl)
> + #:use-module (gnu packages docbook)
> + #:use-module (gnu packages elf)
> + #:use-module (gnu packages gettext)
> + #:use-module (gnu packages glib)
> + #:use-module (gnu packages gnunet)
> + #:use-module (gnu packages gnupg)
> + #:use-module (gnu packages gperf)
> + #:use-module (gnu packages libidn)
> + #:use-module (gnu packages linux)
> + #:use-module (gnu packages m4)
> + #:use-module (gnu packages package-management)
> + #:use-module (gnu packages pcre)
> + #:use-module (gnu packages pkg-config)
> + #:use-module (gnu packages python)
> + #:use-module (gnu packages tls)
> + #:use-module (gnu packages xdisorg)
> + #:use-module (gnu packages xml))
> +
> +(define-public systemd
> + (package
> + (name "systemd")
> + (version "238")
> + (source (origin
> + (method url-fetch)
> + (uri (string-append "https://github.com/systemd/systemd/archive/v"
> + version ".tar.gz"))
> + (file-name (string-append name "-" version ".tar.gz"))
> + (sha256
> + (base32
> + "08p0wf6qby2hksa890hbybdfr274chjb3ykdi1rl4g1fmfdmkj5v"))))
> + (build-system meson-build-system)
> + (arguments
> + `(#:tests? #f ;FIXME: The disable-broken-tests phase is ineffective.
> + #:configure-flags
> + (let ((bash (assoc-ref %build-inputs "bash"))
> + (coreutils (assoc-ref %build-inputs "coreutils"))
> + (kbd (assoc-ref %build-inputs "kbd"))
> + (kmod (assoc-ref %build-inputs "kmod"))
> + (util-linux (assoc-ref %build-inputs "util-linux"))
> +
> + (out (assoc-ref %outputs "out")))
> + (list (string-append "-Dkill-path=" coreutils "/bin/kill")
> + (string-append "-Dkmod-path=" kmod "/bin/kmod")
> + (string-append "-Dsulogin-path=" util-linux "/bin/sulogin")
> + (string-append "-Dmount-path=" util-linux "/bin/mount")
> + (string-append "-Dumount-path=" util-linux "/bin/umount")
> + (string-append "-Dloadkeys-path=" kbd "/bin/loadkeys")
> + (string-append "-Dsetfont-path=" kbd "/bin/setfont")
> + (string-append "-Ddebug-shell=" bash "/bin/sh")
> +
> + ;; XXX: Can we reuse %ntp-servers here?
> + (string-append "-Dntp-servers="
> + (string-join (map (lambda (n)
> + (string-append (number->string n)
> + ".guix.pool.ntp.org"))
> + '(0 1 2 3))
> + ","))
> +
> + ;; Use localhost for DNS with fallback to Quad9 (instead of Google).
> + "-Ddns-servers=127.0.0.1,::1,9.9.9.10,2620:fe::10"
> +
> + ;; FIXME: "Attempt to load external entity http://docbook.sf.net".
> + "-Dman=false"
> +
> + ;; Don't install SysV compatibility scripts.
> + "-Dsysvinit-path="
> + "-Dsysvrcnd-path="
> +
> + (string-append "-Dbashcompletiondir=" out "/etc/bash_completion.d")
> + (string-append "-Dsysconfdir=" out "/etc")
> + (string-append "-Drootprefix=" out)
> + (string-append "-Drootlibdir=" out "/lib")
> + (string-append "-Ddbuspolicydir=" out "/etc/dbus-1/system.d")
> + (string-append "-Dpamconfdir=" out "/etc/pam.d")))
> + #:phases (modify-phases %standard-phases
> + (add-after 'unpack 'patch-paths
> + (lambda* (#:key inputs outputs #:allow-other-keys)
> + (let ((bash (assoc-ref inputs "bash"))
> + (coreutils (assoc-ref inputs "coreutils"))
> + (glibc (assoc-ref inputs "glibc"))
> + (util-linux (assoc-ref inputs "util-linux"))
> +
> + (out (assoc-ref outputs "out")))
> +
> + (substitute* '("src/core/swap.c"
> + "src/fsck/fsck.c"
> + "src/journal/cat.c"
> + "src/nspawn/nspawn.c"
> + "src/nspawn/nspawn-setuid.c")
> + (("/bin/sh") (string-append bash "/bin/sh"))
> + (("/bin/bash") (string-append bash "/bin/bash"))
> + (("/bin/cat") (string-append coreutils "/bin/cat"))
> + (("/bin/echo") (string-append coreutils "/bin/echo"))
> + (("/bin/getent") (string-append glibc "/bin/getent"))
> + (("/sbin/fsck") (string-append util-linux "/sbin/fsck"))
> + (("/sbin/swapon") (string-append util-linux "/sbin/swapon"))
> + (("/sbin/swapoff") (string-append util-linux "/sbin/swapoff")))
> + (substitute* "src/journal/catalog.c"
> + (("/usr/lib/systemd/catalog")
> + (string-append out "/lib/systemd/catalog")))
> + #t)))
> + (add-after 'patch-paths 'fix-install
> + (lambda* (#:key outputs #:allow-other-keys)
> + (let ((out (assoc-ref outputs "out")))
> + ;; Don't create /var/lib/systemd during install.
> + (substitute* "meson.build"
> + ((".*mkdir_p\\.format\\(systemdstatedir\\)\\)") ""))
> + ;; Nor /var/lib/systemd/catalog.
> + (substitute* "catalog/meson.build"
> + (("journalctl --update-catalog") "journalctl --version"))
> + ;; Likewise for /var/log/journal.
> + (substitute* '("src/journal/meson.build"
> + "src/journal-remote/meson.build")
> + (("/var/log/journal") "/tmp/journal"))
> + ;; Create the hwdb in out/etc/udev/hwdb.d, not /etc/udev.
> + (substitute* "hwdb/meson.build"
> + (("systemd-hwdb update")
> + (string-append "systemd-hwdb -r " out
> + "/etc/udev/hwdb.d update")))
> + #t)))
> + (add-before 'configure 'set-runpath
> + (lambda* (#:key outputs #:allow-other-keys)
> + (let ((out (assoc-ref outputs "out")))
> + ;; We need out/lib and out/lib/systemd in RUNPATH.
> + (setenv "LDFLAGS" (string-append "-Wl,-rpath=" out "/lib,"
> + "-rpath=" out "/lib/systemd"))
> + #t)))
> + (add-before 'check 'disable-broken-tests
> + (lambda _
> + (delete-file "test-network") ;requires loopback
> + (delete-file "test-engine") ;requires cgroups
> + (delete-file "test-unit-name") ;likewise
> + (delete-file "test-unit-file") ;likewise
> + (delete-file "test-copy") ;FIXME
> + (delete-file "test-condition") ;requires containers
> + (delete-file "test-mount-util") ;requires /sys
> + (delete-file "test-exec-util") ;FIXME
> + (delete-file "test-xattr-util") ;FIXME
> + (delete-file "test-fs-util") ;requires /var/tmp
> + (delete-file "test-stat-util") ;FIXME
> + (delete-file "test-user-util") ;needs "root" user
> + (delete-file "test-path-lookup") ;expects systemd paths
> + (delete-file "test-namespace") ;requires containers
> + (delete-file "test-bpf") ;requires cgroups
> + (delete-file "test-fileio") ;FIXME
> + (delete-file "test-time-util") ;FIXME tzdata
> + (delete-file "test-date") ;likewise
> + (delete-file "test-calendarspec") ;likewise
> + (delete-file "test-cgroup-util") ;requires cgroup (duh)
> + (delete-file "test-strv") ;FIXME
> + (delete-file "test-path-util") ;FIXME /bin/sh
> + (delete-file "test-path") ;requires cgroup
> + (delete-file "test-sched-prio") ;requires cgroup
> + (delete-file "test-id128") ;FIXME
> + (delete-file "test-journal-flush") ;FIXME
> + (delete-file "test-bus-creds") ;requires cgroup
> + (delete-file "test-login") ;FIXME
> + (delete-file "test-dhcp-client") ;requires network
> + (delete-file "test-dhcp6-client") ;likewise
> + #t))
> + (add-after 'install 'fix-environment-symlink
> + (lambda* (#:key outputs #:allow-other-keys)
> + ;; The install phase creates this dangling symlink:
> + ;; lib/environment.d/00-environment.conf -> ../../etc/environment
> + ;; ...which causes the 'fix-runpath' phase to error out.
> + ;; XXX: This should probably use /etc/environment instead.
> + (mkdir-p (string-append (assoc-ref outputs "out")
> + "/etc/environment"))
> + #t)))))
> + (native-inputs
> + `(("docbook-xml" ,docbook-xml)
> + ("docbook-xsl" ,docbook-xsl)
> + ("gettext" ,gettext-minimal)
> + ("gperf" ,gperf)
> + ("lxml" ,python-lxml)
> + ("m4" ,m4)
> + ("pkg-config" ,pkg-config)
> + ("xsltproc" ,libxslt)))
> + (inputs
> + `(("acl" ,acl)
> + ("audit" ,audit)
> + ("bash" ,bash)
> + ("bzip2" ,bzip2)
> + ("coreutils" ,coreutils)
> + ("cryptsetup" ,cryptsetup)
> + ("curl" ,curl)
> + ("dbus" ,dbus)
> + ;; TODO: Add gnu-efi for bootloader functionality.
> + ("elfutils" ,elfutils)
> + ("glib" ,glib)
> + ("glibc" ,glibc)
> + ("gnutls" ,gnutls)
> + ("kbd" ,kbd)
> + ("kmod" ,kmod)
> + ("libcap" ,libcap)
> + ("libgcrypt" ,libgcrypt)
> + ("libidn2" ,libidn2)
> + ("libmicrohttpd" ,libmicrohttpd)
> + ("libseccomp" ,libseccomp)
> + ("libxkbcommon" ,libxkbcommon)
> + ("linux-pam" ,linux-pam)
> + ("lz4" ,lz4)
> + ("pcre2" ,pcre2)
> + ("python" ,python)
> + ("qrencode" ,qrencode)
> + ("util-linux" ,util-linux)
> + ("xz" ,xz)
> + ("zlib" ,zlib)))
> + (home-page "https://www.freedesktop.org/wiki/Software/systemd/")
> + (synopsis "System and service manager")
> + (description
> + "@code{systemd} is a suite of basic building blocks for a Linux system.
> +It provides a system and service manager that runs as PID 1 and starts the
> +rest of the system. systemd provides aggressive parallelization capabilities,
> +uses socket and D-Bus activation for starting services, offers on-demand
> +starting of daemons, keeps track of processes using Linux control groups,
> +maintains mount and automount points, and implements an elaborate transactional
> +dependency-based service control logic.")
> + (license license:lgpl2.1+)))
> +
> --
> 2.16.3
>
>
next prev parent reply other threads:[~2018-04-01 12:52 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-01 12:22 [PATCH] gnu: Add systemd Marius Bakke
2018-04-01 12:49 ` Ludovic Courtès
2018-04-01 17:01 ` Mark H Weaver
2018-04-01 20:07 ` Chris Marusich
2018-04-01 20:18 ` Marius Bakke
2018-04-02 21:36 ` Ludovic Courtès
2018-04-03 22:33 ` Joshua Branson
2018-04-04 0:44 ` Leo Famulari
2018-04-04 8:41 ` Ludovic Courtès
2018-04-06 18:57 ` Marius Bakke
2018-04-01 12:52 ` Nils Gillmann [this message]
2018-04-01 13:03 ` Martin Castillo
2018-04-01 14:04 ` Efraim Flashner
2018-04-01 14:19 ` Nils Gillmann
2018-04-01 20:11 ` Marius Bakke
2018-04-01 20:30 ` Nils Gillmann
2018-04-01 14:23 ` Jan Nieuwenhuizen
2018-04-01 21:55 ` Björn Höfling
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20180401125217.gpbaet3lcas5fnnf@abyayala \
--to=ng0@n0.is \
--cc=guix-devel@gnu.org \
--cc=mbakke@fastmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.