143 lines
6.0 KiB
Scheme
143 lines
6.0 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
|
|
;;; Copyright © 2021 Vincent Legoll <vincent.legoll@gmail.com>
|
|
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
|
;;;
|
|
;;; 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 packages genimage)
|
|
#:use-module (guix utils)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix git-download)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build utils)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages autotools)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages bash)
|
|
#:use-module (gnu packages bootloaders)
|
|
#:use-module (gnu packages cdrom)
|
|
#:use-module (gnu packages compression)
|
|
#:use-module (gnu packages cpio)
|
|
#:use-module (gnu packages disk)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu packages mtools)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages textutils)
|
|
#:use-module (gnu packages virtualization))
|
|
|
|
(define-public genimage
|
|
(let ((commit "ec44ae086c705e6f0439e742c5a2e9b8f3d6ca82")
|
|
(revision "1"))
|
|
(package
|
|
(name "genimage")
|
|
(version (git-version "15" revision commit))
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/pengutronix/genimage")
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"0amj2vjff58yna6kq959i2gqmbjywqr8j5kr5pjqsvbqam3vgg0r"))
|
|
(patches
|
|
(search-patches "genimage-mke2fs-test.patch"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:modules
|
|
((ice-9 match)
|
|
,@%gnu-build-system-modules)
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'guixify
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
(map (match-lambda
|
|
((input directory regexp)
|
|
(substitute* "config.c"
|
|
(((format #f "\\.def = \"(~a)\"" regexp) _ command)
|
|
(format #f ".def = \"~a/~a/~a\""
|
|
(assoc-ref inputs input) directory command)))))
|
|
'(("cpio" "bin" "cpio")
|
|
("coreutils" "bin" "dd")
|
|
("e2fsprogs" "sbin" "debugfs|e2fsck|mke2fs|tune2fs")
|
|
("genext2fs" "bin" "genext2fs")
|
|
("cdrkit-libre" "bin" "genisoimage")
|
|
("mtools" "bin" "mcopy|mmd")
|
|
;; mkcramfs is obsolete.
|
|
("dosfstools" "sbin" "mkdosfs")
|
|
("mtd-utils" "sbin" "mkfs.(jffs2|ubifs)|ubinize")
|
|
("squashfs-tools" "bin" "mksquashfs")
|
|
("qemu" "bin" "qemu-img")
|
|
("tar" "bin" "tar")
|
|
("u-boot-tools" "bin" "mkimage")))
|
|
(substitute* "util.c"
|
|
(("\"/bin/sh\"")
|
|
(string-append "\"" (assoc-ref inputs "bash") "/bin/sh\"")))))
|
|
(add-before 'check 'fix-failing-tests
|
|
(lambda _
|
|
;; We don't have /etc/passwd so uid 0 is not known as "root".
|
|
;; Thus patch it out.
|
|
(substitute* '("test/ext2test.0.dump"
|
|
"test/ext2test.1.dump"
|
|
"test/ext3test.0.dump"
|
|
"test/ext3test.1.dump"
|
|
"test/ext4test.0.dump"
|
|
"test/ext4test.1.dump"
|
|
"test/ext2test-percent.0.dump"
|
|
"test/ext2test-percent.1.dump"
|
|
"test/mke2fs.0.dump")
|
|
(("root") "unknown"))))
|
|
(add-before 'check 'setenv-check
|
|
(lambda _
|
|
;; Our container doesn't provide access to /etc/mtab
|
|
(setenv "EXT2FS_NO_MTAB_OK" "1")
|
|
;; Make test reproducible
|
|
(setenv "GENIMAGE_MKFJFFS2" "mkfs.jffs2 -U")
|
|
(setenv "GENIMAGE_MKE2FS" "mke2fs -E no_copy_xattrs")))
|
|
(replace 'check
|
|
(lambda _
|
|
(invoke "make" "TEST_LOG_COMPILER=" "check"))))))
|
|
(native-inputs
|
|
(list autoconf
|
|
automake
|
|
;;; Note: cramfs is obsolete.
|
|
dtc ; for the tests
|
|
pkg-config
|
|
util-linux)) ; for the tests
|
|
(inputs
|
|
`(("bash" ,bash)
|
|
("cdrkit-libre" ,cdrkit-libre)
|
|
("cpio" ,cpio)
|
|
;; Note: invoked by final executable.
|
|
("coreutils" ,coreutils) ; chmod, dd
|
|
("dosfstools" ,dosfstools)
|
|
("e2fsprogs" ,e2fsprogs)
|
|
("genext2fs" ,genext2fs)
|
|
("libconfuse" ,libconfuse)
|
|
("mtd-utils" ,mtd-utils)
|
|
("mtools" ,mtools)
|
|
("qemu" ,qemu-minimal)
|
|
("squashfs-tools" ,squashfs-tools)
|
|
("tar" ,tar)
|
|
("u-boot-tools" ,u-boot-tools)))
|
|
(synopsis "Create Flash images according to specification")
|
|
(description "@command{genimage} creates Flash images according to a
|
|
specification file.")
|
|
(home-page "https://github.com/pengutronix/genimage")
|
|
(license license:gpl2))))
|