;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 build linux-initrd)
  #:use-module ((guix cpio) #:prefix cpio:)
  #:use-module (guix build utils)
  #:use-module (guix build store-copy)
  #:use-module (system base compile)
  #:use-module (rnrs bytevectors)
  #:use-module ((system foreign) #:select (sizeof))
  #:use-module (ice-9 ftw)
  #:export (write-cpio-archive
            build-initrd))

;;; Commentary:
;;;
;;; Tools to create Linux initial RAM disks ("initrds").  Initrds are
;;; essentially gzipped cpio archives, with a '/init' executable that the
;;; kernel runs at boot time.
;;;
;;; Code:

(define* (write-cpio-archive output directory
                             #:key
                             (compress? #t)
                             (gzip "gzip"))
  "Write a cpio archive containing DIRECTORY to file OUTPUT.  When
COMPRESS? is true, compress it using GZIP.  On success, return OUTPUT."

  ;; Note: as per `ramfs-rootfs-initramfs.txt', always add directory entries
  ;; before the files that are inside of it: "The Linux kernel cpio
  ;; extractor won't create files in a directory that doesn't exist, so the
  ;; directory entries mu<pre>
# This list is used to avoid multiple name/email instances of the same
# contributors reported by &quot;git log&quot; and &quot;git shortlog&quot; commands.

Adriano Peluso &lt;catonano@gmail.com&gt;
Al McElrath &lt;hello@yrns.org&gt; &lt;hello@atonesir.com&gt;
Alex Sassmannshausen &lt;alex@pompo.co&gt; &lt;alex.sassmannshausen@gmail.com&gt;
Alexander I. Grafov &lt;grafov@gmail.com&gt;
Alírio Eyng &lt;alirioeyng@gmail.com&gt;
Amin Bandali &lt;bandali@gnu.org&gt; &lt;mab@gnu.org&gt;
Amirouche Boubekki &lt;amirouche@hypermove.net&gt;
Andreas Enge &lt;andreas@enge.fr&gt; &lt;andreas.enge@inria.fr&gt;
Andreas Enge &lt;andreas@enge.fr&gt; &lt;privat@xobs-novena&gt;
Andy Wingo &lt;wingo@igalia.com&gt; &lt;wingo@pobox.com&gt;
Ben Woodcroft &lt;donttrustben@gmail.com&gt;
Ben Woodcroft &lt;donttrustben@gmail.com&gt; &lt;b.woodcroft@uq.edu.au&gt;
Ben Woodcroft &lt;donttrustben@gmail.com&gt; &lt;donttrustben near gmail.com&gt;
Brett Gilio &lt;brettg@gnu.org&gt; &lt;brettg@posteo.net&gt;
Christine Lemmer-Webber &lt;cwebber@dustycloud.org&gt;
Claes Wallin (韋嘉誠) &lt;claes.wallin@greatsinodevelopment.com&gt;
Cyprien Nicolas &lt;cyprien@nicolas.tf&gt; &lt;c.nicolas+gitorious@gmail.com&gt;
Daniel Pimentel &lt;d4n1@d4n1.org&gt; &lt;d4n1@member.fsf.org&gt;
Danny Milosavljevic &lt;dannym@scratchpost.org&gt; &lt;dannym+a@scratchpost.org&gt;
David Hashe &lt;david.hashe@dhashe.com&gt; &lt;address@hidden&gt;
David Thompson &lt;davet@gnu.org&gt; &lt;dthompson2@worcester.edu&gt;
David Thompson &lt;davet@gnu.org&gt; &lt;dthompson@member.fsf.org&gt;
David Thompson &lt;davet@gnu.org&gt; &lt;dthompson@vistahigherlearning.com&gt;
Deck Pickard &lt;deck.r.pickard@gmail.com&gt; &lt;nebu@kipple&gt;
Eric Bavier &lt;bavier@posteo.net&gt; &lt;ericbavier@gmail.com&gt;
Eric Bavier &lt;bavier@posteo.net&gt; &lt;bavier@member.fsf.org&gt;
Eric Dvorsak &lt;eric@dvorsak.fr&gt; &lt;yenda1@gmail.com&gt;
Evgeny Pisemsky &lt;mail@pisemsky.site&gt; &lt;evgeny@pisemsky.com&gt;
George Clemmer &lt;myglc2@gmail.com&gt;
ison &lt;ison@airmail.cc&gt; &lt;ison111@protonmail.com&gt;
Ivan Vilata i Balaguer &lt;ivan@selidor.net&gt;
Jakob L. Kreuze &lt;zerodaysfordays@sdf.org&gt; &lt;zerodaysfordays@sdf.lonestar.org&gt;
Jeff Mickey &lt;j@codemac.net&gt; &lt;jm@igneous.io&gt;
John Darrington &lt;jmd@gnu.org&gt; &lt;john@darrington.wattle.id.au&gt;
John J. Foerch &lt;jjfoerch@earthlink.net&gt;
Joshua Grant &lt;tadni@riseup.net&gt; &lt;gzg@riseup.net&gt;
Joshua Grant &lt;tadni@riseup.net&gt; &lt;jgrant@parenthetical.io&gt;
Joshua Grant &lt;tadni@riseup.net&gt; &lt;tadnimi@gmail.com&gt;
Joshua Grant &lt;tadni@riseup.net&gt; &lt;youlysses@riseup.net&gt;
Juliana Sims &lt;juli@incana.org&gt; &lt;jtsims@protonmail.com&gt;
Kei Kebreau &lt;kkebreau@posteo.net&gt;
Leo Famulari &lt;leo@famulari.name&gt; &lt;lfamular@gmail.com&gt;
Liliana Marie Prikler &lt;liliana.prikler@gmail.com&gt;
Liliana Marie Prikler &lt;liliana.prikler@gmail.com&gt; Leo Prikler &lt;leo.prikler@student.tugraz.at&gt;
Ludovic Courtès &lt;ludo@gnu.org&gt; &lt;ludovic.courtes@inria.fr&gt;
Marek Benc &lt;dusxmt@gmx.com&gt; &lt;merkur32@gmail.com&gt;
Marius Bakke &lt;marius@gnu.org&gt; &lt;mbakke@fastmail.com&gt;
Marius Bakke &lt;marius@gnu.org&gt; &lt;m.bakke@warwick.ac.uk&gt;
Marius Bakke &lt;marius@gnu.org&gt; &lt;marius.bakke@usit.uio.no&gt;
Marius Bakke &lt;marius@gnu.org&gt; &lt;mbakke@berlin.guixsd.org&gt;
Mathieu Lirzin &lt;mthl@gnu.org&gt; &lt;mthl@openmailbox.org&gt;
Mathieu Lirzin &lt;mthl@gnu.org&gt; &lt;mathieu.li