;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.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 image)
  #:use-module (guix records)
  #:export (partition
            partition?
            partition-device
            partition-size
            partition-offset
            partition-file-system
            partition-file-system-options
            partition-label
            partition-uuid
            partition-flags
            partition-initializer

            image
            image-name
            image-format
            image-size
            image-operating-system
            image-partitions
            image-compression?
            image-volatile-root?
            image-substitutable?))


;;;
;;; Partition record.
;;;

(define-record-type* <partition> partition make-partition
  partition?
  (device               partition-device (default #f))
  (size                 partition-size)
  (offset               partition-offset (default 0))
  (file-system          partition-file-system (default "ext4"))
  (file-system-options  partition-file-system-options
                        (default '()))
  (label                partition-label (default #f))
  (uuid                 partition-uuid (default #f))
  (flags                partition-flags (default '()))
  (initializer          partition-initializer (default #f)))


;;;
;;; Image record.
;;;

(define-record-type* <image>
  image make-image
  image?
  (format             image-format) ;symbol
  (size               image-size  ;size in bytes as integer
                      (default 'guess))
  (operating-system   image-operating-system  ;<operating-system>
                      (default #f))
  (partitions         image-partitions ;list of <partition>
                      (default '()))
  (compression?       image-compression? ;boolean
                      (default #t))
  (volatile-root?     image-volatile-root? ;boolean
                      (default #t))
  (substitutable?     image-substitutable? ;boolean
                      (default #t)))
4-06-26 22:51:25 +0200'>2024-06-26</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=0a220c1599613b7bee38c0bf8bc1bb3e9cbcaeb8'>services: shepherd: Support “free-form” services.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/shepherd.scm (&lt;shepherd-service&gt;)[free-form]: New field.
[start]: Add default value.
(shepherd-service-file): Rename to…
(shepherd-service-file/regular): … this.
(shepherd-service-file/free-form): New procedure.
(shepherd-service-file): Dispatch to one of the two procedures above.
* doc/guix.texi (Shepherd Services): Document the ‘free-form’ field.

Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;

Change-Id: I206374e950ef6d1e4a996c0f507fb5fcd9cadde3
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-05-25 16:52:29 +0200'>2024-05-25</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=cca25a67693bb68a1884a081b415a43fad1e8641'>services: shepherd: Failure to load a service does not prevent booting.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/71144&gt;.

Fixes a bug whereby, when loading a service file would fail, for
instance due to an unbound variable, a REPL would be opened on the
console, preventing the system from booting.

This fixes that by isolating service load errors and making them
non-fatal.

* gnu/services/shepherd.scm (shepherd-configuration-file)[config]:
Remove call to ‘call-with-error-handling’.  Use ‘filter-map’ instead of
‘map’ to iterate over service files, and catch exceptions raised by
‘load-compiled’.

Change-Id: Ie6e76ea514837f85386232f797bc77b2882b5c22
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-03-21 17:43:15 +0100'>2024-03-21</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=6f9d844d2ece7b369d17bbe678978462425f869c'>services: shepherd: Load each service file in a fresh module.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/67649&gt;.

* gnu/home/services/shepherd.scm (home-shepherd-configuration-file)[config]:
Define ‘make-user-module’.  Call ‘load’ in ‘save-module-excursion’.
* gnu/services/shepherd.scm (shepherd-configuration-file): Likewise.

Reported-by: Attila Lendvai &lt;attila@lendvai.name&gt;
Change-Id: I7df11c81b5bbbf2b24a8daa02502a000e0826fe0
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-01-28 22:50:49 +0100'>2024-01-28</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=dde76db33fbdede6bf26821f8c21cca7df45e79e'>services: shepherd: Add respawn-limit and respawn-delay.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/shepherd.scm (&lt;shepherd-service&gt;): Add respawn-limit and
respawn-delay.
(shepherd-service-file): Emit the two values into the shepherd service
constructor form.

Change-Id: I54408e8fb4bcc0956d9610771bf5c566fdc2914c
Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Attila Lendvai</td></tr>
<tr><td><span title='2024-01-08 23:14:46 +0100'>2024-01-08</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=477d4f7d241165b5a5fd315c27efd7803fad4a04'>services: shepherd: Use the 0.10.x GOOPS-less interface.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services/shepherd.scm (%default-modules): Remove (oop goops).
(shepherd-service-file): Use (service …) instead of (make &lt;service&gt; …).
Use ‘actions’ instead of ‘make-actions’.
(scm-&gt;go): Remove use of (oop goops).
(shepherd-configuration-file): Pass ‘register-services’ a list.
Use ‘start-in-the-background’ unconditionally.

Change-Id: I0ad1ba32e339c56ee31e59f160b53d3581277d97
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-01-05 17:27:20 +0100'>2024-01-05</span></td><td><a href='/guix/commit/gnu/services/shepherd.scm?id=4e431fda5f2ec76b6d6a271be7c30b1324431329'>services: shepherd: Remove ‘dynamic-wind’ in ‘call-with-*-file’.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://issues.guix.gnu.org/64653&gt;.

The ‘dynamic-wind’ was causing files to be closed prematurely when
leaving the dynamic extent of PROC for instance via a delimited
continuation, using Fibers (that ‘dynamic-wind’ call was also
semantically incorrect in the first place).

* gnu/services/shepherd.scm (shepherd-configuration-file)
[config](call-with-file): Remove.
(call-with-input-file, call-with-output-file): Rewrite in terms of
‘call-with-port’.

Change-Id: Ica8af71a04f525a15be99985552063cb98cd6ee8
</span></span></td><td>Ludovic Courtès</td></tr>