[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
21/43: services: hurd: Add dummy loopback.
From: |
guix-commits |
Subject: |
21/43: services: hurd: Add dummy loopback. |
Date: |
Mon, 20 Apr 2020 07:34:06 -0400 (EDT) |
janneke pushed a commit to branch wip-hurd-vm
in repository guix.
commit dea5d75c4384051c52e1730eff7984fec0100395
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Mon Apr 13 22:51:00 2020 +0200
services: hurd: Add dummy loopback.
* gnu/services/hurd.scm (hurd-loopback-shepherd-service,
hurd-loopback-service-type): New function.
(hurd-service->shepherd-service): Use them to support entry for dummy
loopback.
---
gnu/services/hurd.scm | 29 +++++++++++++++++++++++++++++
1 file changed, 29 insertions(+)
diff --git a/gnu/services/hurd.scm b/gnu/services/hurd.scm
index 53fd492..5b3fabd 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -29,6 +29,7 @@
#:use-module (ice-9 match)
#:export (hurd-console-configuration
hurd-console-service-type
+ hurd-loopback-service-type
hurd-service->shepherd-service
hurd-ttys-configuration
hurd-ttys-service-type
@@ -48,6 +49,7 @@
(($ <hurd-console-configuration>) (hurd-console-shepherd-service config))
(($ <hurd-ttys-configuration>) (hurd-ttys-shepherd-service config))
(($ <syslog-configuration>) (syslog-shepherd-service config))
+ (('loopback) (hurd-loopback-shepherd-service #f))
(('user-processes) (hurd-user-processes-shepherd-service #f))
(_ '()))))
@@ -145,6 +147,33 @@ Hurd.")))
;;;
+;;; Dummy hurd-loopback service, required for guix-daemon.
+;;;
+
+(define (hurd-loopback-shepherd-service _)
+ "Return the 'loopback' Shepherd service."
+
+ (list (shepherd-service
+ (documentation "Dummy for bootstrapping (gnu services) on the Hurd.")
+ (provision '(loopback))
+ (requirement '())
+ (start #~(const #t))
+ (stop #~(const #t))
+ (respawn? #f))))
+
+(define hurd-loopback-service-type
+ (service-type
+ (name 'loopback)
+ (extensions (list (service-extension shepherd-root-service-type
+ hurd-loopback-shepherd-service)))
+ (compose concatenate)
+ (extend append)
+ (default-value '(loopback)) ;canary for hurd-service->shepherd-service
+ (description "Dummy service to bootstrap (gnu services) on the
+Hurd.")))
+
+
+;;;
;;; Simple wrapper for <hurd>/libexec/runttys.
;;;
- 09/43: gnu: Add dde-sources., (continued)
- 09/43: gnu: Add dde-sources., guix-commits, 2020/04/20
- 16/43: services: Add hurd-console-service-type., guix-commits, 2020/04/20
- 04/43: gnu: texinfo: Cross-build fix: Use host perl in host scripts., guix-commits, 2020/04/20
- 11/43: gnu: hurd: Add NFS support., guix-commits, 2020/04/20
- 13/43: system: hurd: Add less, which to %base-packages/hurd., guix-commits, 2020/04/20
- 14/43: system: hurd: Add /etc/group., guix-commits, 2020/04/20
- 17/43: services: Add hurd-ttys-service-type., guix-commits, 2020/04/20
- 10/43: gnu: Add netdde., guix-commits, 2020/04/20
- 19/43: services: Add guix-daemon-service as a Hurd service., guix-commits, 2020/04/20
- 20/43: services: hurd: Add dummy syslog., guix-commits, 2020/04/20
- 21/43: services: hurd: Add dummy loopback.,
guix-commits <=
- 23/43: system: hurd: Add the Shepherd., guix-commits, 2020/04/20
- 22/43: services: Add openssh-service as a Hurd service., guix-commits, 2020/04/20
- 15/43: services: Add hurd., guix-commits, 2020/04/20
- 12/43: gnu: Add libtirpc/hurd., guix-commits, 2020/04/20
- 25/43: system: gnu: Populate "/etc" from "/boot/activation"., guix-commits, 2020/04/20
- 24/43: HACK use uncompiled .scm for shepherd, guix-commits, 2020/04/20
- 28/43: system: gnu: Add %bootstrap-{gcc, binutils, glibc} for devel profile., guix-commits, 2020/04/20
- 26/43: system: hurd: Add openssh service., guix-commits, 2020/04/20
- 32/43: system: hurd: Add guix., guix-commits, 2020/04/20
- 31/43: HACK gnu: python: Disable tests on the Hurd., guix-commits, 2020/04/20