;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Jean-Baptiste Volatier <jbv@pm.me>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@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 packages pcre)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages readline)
  #:use-module (gnu packages)
  #:use-module (guix utils)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu))

(define-public pcre
  (package
   (name "pcre")
   (version "8.45")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://sourceforge/pcre/pcre/"
                                version "/pcre-" version ".tar.bz2"))
            (sha256
            ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Danny Milosavljevic &lt;dannym@scratchpost.org&gt;
;;; Copyright © 2021 Vincent Legoll &lt;vincent.legoll@gmail.com&gt;
;;; Copyright © 2021 Tobias Geerinckx-Rice &lt;me@tobias.gr&gt;
;;;
;;; 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 &lt;http://www.gnu.org/licenses/&gt;.

(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 &quot;ec44ae086c705e6f0439e742c5a2e9b8f3d6ca82&quot;)
        (revision &quot;1&quot;))
    (package
      (name &quot;genimage&quot;)
      (version (git-version &quot;15&quot; revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url &quot;https://github.com/pengutronix/genimage&quot;)
                      (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  &quot;0amj2vjff58yna6kq959i2gqmbjywqr8j5kr5pjqsvbqam3vgg0r&quot;))
                (patches
                 (search-patches &quot;genimage-mke2fs-test.patch&quot;))))
      (build-system gnu-build-system)
      (arguments
       `(#:modules
         ((ice-9 match)
          ,@%default-gnu-modules)
         #:phases
         (modify-phases %standard-phases
           (add-after &apos;unpack &apos;guixify
             (lambda* (#:key inputs #:allow-other-keys)
               (map (match-lambda
                      ((input directory regexp)
                       (substitute* &quot;config.c&quot;
                         (((format #f &quot;\\.def = \&quot;(~a)\&quot;&quot; regexp) _ command)
                          (format #f &quot;.def = \&quot;~a/~a/~a\&quot;&quot;
                                  (assoc-ref inputs input) directory command)))))
                    &apos;((&quot;cpio&quot;           &quot;bin&quot;  &quot;cpio&quot;)
                      (&quot;coreutils&quot;      &quot;bin&quot;  &quot;dd&quot;)
                      (&quot;e2fsprogs&quot;      &quot;sbin&quot; &quot;debugfs|e2fsck|mke2fs|tune2fs&quot;)
                      (&quot;genext2fs&quot;      &quot;bin&quot;  &quot;genext2fs&quot;)
                      (&quot;cdrkit-libre&quot;   &quot;bin&quot;  &quot;genisoimage&quot;)
                      (&quot;mtools&quot;         &quot;bin&quot;  &quot;mcopy|mmd&quot;)
                      ;; mkcramfs is obsolete.
                      (&quot;dosfstools&quot;     &quot;sbin&quot; &quot;mkdosfs&quot;)
                      (&quot;mtd-utils&quot;      &quot;sbin&quot; &quot;mkfs.(jffs2|ubifs)|ub