From: "Thompson, David" <dthompson2@worcester.edu>
To: guix-devel <guix-devel@gnu.org>
Subject: Re: [PATCH] system: container: Update to new service API.
Date: Mon, 26 Oct 2015 20:21:24 -0400 [thread overview]
Message-ID: <CAJ=RwfYUjpkiYVT_Aou=c8scQCWBza_b+SwrY8w4ReZ7QYkxHw@mail.gmail.com> (raw)
In-Reply-To: <87611txiw7.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me>
[-- Attachment #1: Type: text/plain, Size: 221 bytes --]
On Mon, Oct 26, 2015 at 8:19 PM, David Thompson
<dthompson2@worcester.edu> wrote:
> Getting up to speed with the changes that were made during the service
> API rewrite.
Sorry, wrong patch file! Here's the correct one.
[-- Attachment #2: 0001-system-container-Update-to-new-service-API.patch --]
[-- Type: text/x-diff, Size: 4855 bytes --]
From 54f221aa3dda8596a4b3bc57a0e911b5c8ce37c9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 26 Oct 2015 20:12:55 -0400
Subject: [PATCH] system: container: Update to new service API.
* gnu/services.scm (activation-script->script): Add #:container?
argument.
(activation-script): Add #:container? argument. Omit kernel tweaks
when creating a script for a container.
* gnu/system.scm (operating-system-activation-script): Pass #:container?
argument to 'activation-service->script'.
* gnu/system/linux-container.scm (system-container): Fix breaking
changes introduced by new <computed-file> data type.
---
gnu/services.scm | 22 +++++++++++++---------
gnu/system.scm | 2 +-
gnu/system/linux-container.scm | 14 ++++++++------
3 files changed, 22 insertions(+), 16 deletions(-)
diff --git a/gnu/services.scm b/gnu/services.scm
index d0fe0ad..cb4987d 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -216,13 +216,15 @@ variable is not set---hence the need for this wrapper."
(apply execl #$modprobe
(cons #$modprobe (cdr (command-line))))))))
-(define* (activation-service->script service)
+(define* (activation-service->script service #:key container?)
"Return as a monadic value the activation script for SERVICE, a service of
-ACTIVATION-SCRIPT-TYPE."
- (activation-script (service-parameters service)))
+ACTIVATION-SCRIPT-TYPE. When CONTAINER? is true, build the container variant
+of the script."
+ (activation-script (service-parameters service) #:container? container?))
-(define (activation-script gexps)
- "Return the system's activation script, which evaluates GEXPS."
+(define* (activation-script gexps #:key container?)
+ "Return the system's activation script, which evaluates GEXPS. When
+CONTAINER? is true, return a script suitable for a Linux container."
(define %modules
'((gnu build activation)
(gnu build linux-boot)
@@ -256,11 +258,13 @@ ACTIVATION-SCRIPT-TYPE."
(activate-/bin/sh
(string-append #$(canonical-package bash) "/bin/sh"))
- ;; Tell the kernel to use our 'modprobe' command.
- (activate-modprobe #$modprobe)
+ #$@(if container?
+ ;; Tell the kernel to use our 'modprobe' command.
+ #~((activate-modprobe #$modprobe)
- ;; Let users debug their own processes!
- (activate-ptrace-attach)
+ ;; Let users debug their own processes!
+ (activate-ptrace-attach))
+ #~())
;; Run the services' activation snippets.
;; TODO: Use 'load-compiled'.
diff --git a/gnu/system.scm b/gnu/system.scm
index aa76882..0ab0094 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -599,7 +599,7 @@ etc."
(let* ((services (operating-system-services os #:container? container?))
(activation (fold-services services
#:target-type activation-service-type)))
- (activation-service->script activation)))
+ (activation-service->script activation #:container? container?)))
(define* (operating-system-boot-script os #:key container?)
"Return the boot script for OS---i.e., the code started by the initrd once
diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm
index fdf7460..abe816f 100644
--- a/gnu/system/linux-container.scm
+++ b/gnu/system/linux-container.scm
@@ -25,6 +25,7 @@
#:use-module (guix derivations)
#:use-module (guix monads)
#:use-module (gnu build linux-container)
+ #:use-module (gnu services)
#:use-module (gnu system)
#:use-module (gnu system file-systems)
#:export (mapping->file-system
@@ -50,14 +51,15 @@
"Return a derivation that builds OS as a Linux container."
(mlet* %store-monad
((profile (operating-system-profile os))
- (etc (operating-system-etc-directory os))
+ (etc -> (operating-system-etc-directory os))
(boot (operating-system-boot-script os #:container? #t))
(locale (operating-system-locale-directory os)))
- (file-union "system-container"
- `(("boot" ,#~#$boot)
- ("profile" ,#~#$profile)
- ("locale" ,#~#$locale)
- ("etc" ,#~#$etc)))))
+ (lower-object
+ (file-union "system-container"
+ `(("boot" ,#~#$boot)
+ ("profile" ,#~#$profile)
+ ("locale" ,#~#$locale)
+ ("etc" ,#~#$etc))))))
(define (containerized-operating-system os mappings)
"Return an operating system based on OS for use in a Linux container
--
2.5.0
next prev parent reply other threads:[~2015-10-27 0:21 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-10-27 0:19 [PATCH] system: container: Update to new service API David Thompson
2015-10-27 0:21 ` Thompson, David [this message]
2015-10-27 13:22 ` Ludovic Courtès
2015-10-29 4:19 ` Thompson, David
2015-10-29 22:00 ` Ludovic Courtès
2015-10-30 0:58 ` Thompson, David
2015-10-30 16:41 ` Ludovic Courtès
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='CAJ=RwfYUjpkiYVT_Aou=c8scQCWBza_b+SwrY8w4ReZ7QYkxHw@mail.gmail.com' \
--to=dthompson2@worcester.edu \
--cc=guix-devel@gnu.org \
/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.