amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

file-systems: Add helpers for parsing the options string into an alist.

Browse source 
* gnu/system/file-systems.scm (file-system-options->alist)
(alist->file-system-options): New procedures.
* tests/file-systems.scm: New tests.
* doc/guix.texi (File Systems): Add note about the newly added procedures.
This commit is contained in:
Maxim Cournoyer 2019-09-25 22:43:41 +09:00
parent 281d80d8e5
commit fa35fb58c8
No known key found for this signature in database
GPG key ID: 1260E46482E63562
3 changed files with 58 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

31
gnu/system/file-systems.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -38,6 +39,9 @@
file-system-needed-for-boot?
file-system-flags
file-system-options
file-system-options->alist
alist->file-system-options
file-system-mount?
file-system-check?
file-system-create-mount-point?
@ -251,6 +255,33 @@ UUID-TYPE, a symbol such as 'dce or 'iso9660."
((? string?)
device)))
(define (file-system-options->alist string)
"Translate the option string format of a <file-system> record into an
association list of options or option/value pairs."
(if string
(let ((options (string-split string #\,)))
(map (lambda (param)
(let ((=index (string-index param #\=)))
(if =index
(cons (string-take param =index)
(string-drop param (1+ =index)))
param)))
options))
'()))
(define (alist->file-system-options options)
"Return the string representation of OPTIONS, an association list. The
string obtained can be used as the option field of a <file-system> record."
(if (null? options)
#f
(string-join (map (match-lambda
((key . value)
(string-append key "=" value))
(key
key))
options)
",")))
(define (file-system-needed-for-boot? fs)
"Return true if FS has the 'needed-for-boot?' flag set, or if it holds the
store--e.g., if FS is the root file system."