me/guix
Archived
1
0
Fork 0
Code Activity

linux-initrd: Add support for JFS.

Browse source 
* gnu/system/linux-initrd.scm (file-system-packages): Add jfs_fsck/static.
(file-system-type-modules): Add ‘jfs’ module.
This commit is contained in:
Tobias Geerinckx-Rice 2019-12-31 01:37:23 +01:00
parent 378994459a
commit c7b5cfb014
No known key found for this signature in database
GPG key ID: D889B0F018C5493C
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/system/linux-initrd.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -30,6 +31,7 @@
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages disk) #:use-module (gnu packages disk)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages file-systems)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module ((gnu packages xorg) #:use-module ((gnu packages xorg)
#:select (console-setup xkeyboard-config)) #:select (console-setup xkeyboard-config))
@ -240,6 +242,9 @@ FILE-SYSTEMS."
'()) '())
,@(if (find (file-system-type-predicate "btrfs") file-systems) ,@(if (find (file-system-type-predicate "btrfs") file-systems)
(list btrfs-progs/static) (list btrfs-progs/static)
'())
,@(if (find (file-system-type-predicate "jfs") file-systems)
(list jfs_fsck/static)
'()))) '())))
(define-syntax vhash ;TODO: factorize (define-syntax vhash ;TODO: factorize
@ -269,6 +274,7 @@ FILE-SYSTEMS."
("9p" => '("9p" "9pnet_virtio")) ("9p" => '("9p" "9pnet_virtio"))
("btrfs" => '("btrfs")) ("btrfs" => '("btrfs"))
("iso9660" => '("isofs")) ("iso9660" => '("isofs"))
("jfs" => '("jfs"))
(else '()))) (else '())))
(define (file-system-modules file-systems) (define (file-system-modules file-systems)