07/36: HACK services: hurd: Add dummy loopback.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit 2de534a5d52939e221a39e9f3d812f64064a1ca8
Author: Jan (janneke) Nieuwenhuizen <jann...@gnu.org>
AuthorDate: Mon Apr 13 22:51:00 2020 +0200

    HACK services: hurd: Add dummy loopback.
    
    TODO Tryout the real loopback "It should work".
    
    Remove/make it work with the Hurd.  This dummy is currently used to
    satisfy
    
        guix build: error: service 'XXX' requires 'loopback', which is not 
provided by any service
    
    and then filtered-out.
    
    * 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 fabf54a..3686987 100644
--- a/gnu/services/hurd.scm
+++ b/gnu/services/hurd.scm
@@ -30,6 +30,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) (user-processes-shepherd-service '()))
       (_ '()))))
 
@@ -126,6 +128,33 @@
 
 
 ;;;
+;;; 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 first-of-two)
+   (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.
 ;;;