;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020 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/>.

(</td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>refs</a><a href='/guix/log/gnu/packages/golang-crypto.scm'>log</a><a href='/guix/tree/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>tree</a><a class='active' href='/guix/commit/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>commit</a><a href='/guix/diff/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/golang-crypto.scm'>
<input type='hidden' name='id' value='8bea1e05fac2e24ac926f155d76e42aa90690467'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/commit/?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>root</a>/<a href='/guix/commit/gnu?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>gnu</a>/<a href='/guix/commit/gnu/packages?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>packages</a>/<a href='/guix/commit/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>golang-crypto.scm</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='id' value='8bea1e05fac2e24ac926f155d76e42aa90690467'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Sharlatan Hellseher &lt;sharlatanus@gmail.com&gt;</td><td class='right'>2024-09-12 21:58:57 +0100</td></tr>
<tr><th>committer</th><td>Sharlatan Hellseher &lt;sharlatanus@gmail.com&gt;</td><td class='right'>2024-11-09 21:33:40 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='oid'><a href='/guix/commit/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>8bea1e05fac2e24ac926f155d76e42aa90690467</a> (<a href='/guix/patch/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='oid'><a href='/guix/tree/?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>0f9ad155931e331afed5d083d4bb19777a9aba16</a> /<a href='/guix/tree/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>gnu/packages/golang-crypto.scm</a></td></tr>
<tr><th>parent</th><td colspan='2' class='oid'><a href='/guix/commit/gnu/packages/golang-crypto.scm?id=a8d5d087086da0e47700781ff858d3d0d2090271'>a8d5d087086da0e47700781ff858d3d0d2090271</a> (<a href='/guix/diff/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467&amp;id2=a8d5d087086da0e47700781ff858d3d0d2090271'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='oid'><a href='/guix/snapshot/guix-8bea1e05fac2e24ac926f155d76e42aa90690467.tar.gz'>guix-8bea1e05fac2e24ac926f155d76e42aa90690467.tar.gz</a><br/><a href='/guix/snapshot/guix-8bea1e05fac2e24ac926f155d76e42aa90690467.zip'>guix-8bea1e05fac2e24ac926f155d76e42aa90690467.zip</a><br/></td></tr></table>
<div class='commit-subject'>gnu: packages/golang-crypto: Apply #:subdir parameter.</div><div class='commit-msg'>* gnu/packages/golang-crypto.scm (go-github-com-decred-dcrd-crypto-blake256,
go-github-com-decred-dcrd-dcrec-secp256k1-v4) [source]: Apply new
&lt;#:subdir&gt; parameter for monorepo projects.

Change-Id: I85004b257c767ce202129e621d78b285d4578f7a
</div><div class='diffstat-header'><a href='/guix/diff/?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>Diffstat</a> (limited to 'gnu/packages/golang-crypto.scm')</div><table summary='diffstat' class='diffstat'><tr><td class='mode'>-rw-r--r--</td><td class='upd'><a href='/guix/diff/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>gnu/packages/golang-crypto.scm</a></td><td class='right'>16</td><td class='graph'><table summary='file diffstat' width='16%'><tr><td class='add' style='width: 12.5%;'/><td class='rem' style='width: 87.5%;'/><td class='none' style='width: 0.0%;'/></tr></table></td></tr>
</table><div class='diffstat-summary'>1 files changed, 2 insertions, 14 deletions</div><table summary='diff' class='diff'><tr><td><div class='head'>diff --git a/gnu/packages/golang-crypto.scm b/gnu/packages/golang-crypto.scm<br/>index 2ba3a530ad..016592e776 100644<br/>--- a/<a href='/guix/tree/gnu/packages/golang-crypto.scm?id=a8d5d087086da0e47700781ff858d3d0d2090271'>gnu/packages/golang-crypto.scm</a><br/>+++ b/<a href='/guix/tree/gnu/packages/golang-crypto.scm?id=8bea1e05fac2e24ac926f155d76e42aa90690467'>gnu/packages/golang-crypto.scm</a></div><div class='hunk'>@@ -560,13 +560,7 @@ one-time authenticator as specified in</div><div class='ctx'>        (method git-fetch)</div><div class='ctx'>        (uri (git-reference</div><div class='ctx'>              (url "https://github.com/decred/dcrd")</div><div class='del'>-             (commit (go-version-&gt;git-ref</div><div class='del'>-                      ;; XXX: While waiting on consensus:</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/52362</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/63001</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/63647</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/69827</div><div class='del'>-                      (string-append "crypto/blake256/v" version)))))</div><div class='add'>+             (commit (go-version-&gt;git-ref version #:subdir "crypto/blake256"))))</div><div class='ctx'>        (file-name (git-file-name name version))</div><div class='ctx'>        (sha256</div><div class='ctx'>         (base32 "1mjzlyz2a3516g46kv421nacjd7p4g9l8ih4i7xijvsi480s5pja"))</div><div class='hunk'>@@ -604,13 +598,7 @@ and AVX acceleration and zero allocations.")</div><div class='ctx'>        (method git-fetch)</div><div class='ctx'>        (uri (git-reference</div><div class='ctx'>              (url "https://github.com/decred/dcrd")</div><div class='del'>-             (commit (go-version-&gt;git-ref</div><div class='del'>-                      ;; XXX: While waiting on consensus:</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/52362</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/63001</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/63647</div><div class='del'>-                      ;; - https://issues.guix.gnu.org/69827</div><div class='del'>-                      (string-append "dcrec/secp256k1/v" version)))))</div><div class='add'>+             (commit (go-version-&gt;git-ref version #:subdir "dcrec/secp256k1"))))</div><div class='ctx'>        (file-name (git-file-name name version))</div><div class='ctx'>        (sha256</div><div class='ctx'>         (base32 "19yqrrspm6n1x7wa1chqj0j95bc5w02ygddr06ajzf6x7i7q09q5"))</div></td></tr></table></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
)
     #~(begin
         (use-modules (gnu build linux-boot)
                      (gnu system file-systems)
                      ((guix build utils) #:hide (delete))
                      (guix build bournish)   ;add the 'bournish' meta-command
                      (srfi srfi-1)           ;for lvm-device-mapping
                      (srfi srfi-26)

                      ;; FIXME: The following modules are for
                      ;; LUKS-DEVICE-MAPPING.  We should instead propagate
                      ;; this info via gexps.
                      ((gnu build file-systems)
                       #:select (find-partition-by-luks-uuid))
                      (rnrs bytevectors))

         (with-output-to-port (%make-void-port "w")
           (lambda ()
             (set-path-environment-variable "PATH" '("bin" "sbin")
                                            '#$helper-packages)))

         (parameterize ((current-warning-port (%make-void-port "w")))
           (boot-system #:mounts
                        (map spec->file-system
                             '#$(map file-system->spec file-systems))
                        #:pre-mount (lambda ()
                                      (and #$@device-mapping-commands
                                           #$@file-system-scan-commands))
                        #:linux-modules '#$linux-modules
                        #:linux-module-directory '#$kodir
                        #:keymap-file #+(and=> keyboard-layout
                                               keyboard-layout->console-keymap)
                        #:qemu-guest-networking? #$qemu-networking?
                        #:volatile-root? '#$volatile-root?
                        #:on-error '#$on-error))))
   #:name "raw-initrd"))

(define* (file-system-packages file-systems #:key (volatile-root? #f))
  "Return the list of statically-linked, stripped packages to check
FILE-SYSTEMS."
  `(,@(if (find (lambda (fs)
                  (string-prefix? "ext" (file-system-type fs)))
                file-systems)
          (list e2fsck/static)
          '())
    ,@(if (find (lambda (fs)
                  (string-suffix? "fat" (file-system-type fs)))
                file-systems)
          (list fatfsck/static)
          '())
    ,@(if (find (file-system-type-predicate "bcachefs") file-systems)
          (list bcachefs/static)
          '())
    ,@(if (find (file-system-type-predicate "btrfs") file-systems)
          (list btrfs-progs/static)
          '())
    ,@(if (find (file-system-type-predicate "jfs") file-systems)
          (list jfs_fsck/static)
          '())
    ,@(if (find (file-system-type-predicate "ntfs") file-systems)
          (list ntfsfix/static)
          '())
    ,@(if (find (file-system-type-predicate "f2fs") file-systems)
          (list f2fs-fsck/static)
          '())
    ,@(if (find (file-system-type-predicate "xfs") file-systems)
          (list xfs_repair/static)
          '())))

(define-syntax vhash                              ;TODO: factorize
  (syntax-rules (=>)
    "Build a vhash with the given key/value mappings."
    ((_)
     vlist-null)
    ((_ (key others ... => value) rest ...)
     (vhash-cons key value
                 (vhash (others ... => value) rest ...)))
    ((_ (=> value) rest ...)
     (vhash rest ...))))

(define-syntax lookup-procedure
  (syntax-rules (else)
    "Return a procedure that lookups keys in the given dictionary."
    ((_ mapping ... (else default))
     (let ((table (vhash mapping ...)))
       (lambda (key)
         (match (vhash-assoc key table)
           (#f            default)
           ((key . value) value)))))))

(define file-system-type-modules
  ;; Given a file system type, return the list of modules it needs.
  (lookup-procedure ("cifs" => '("md4" "ecb" "cifs"))
                    ("9p" => '("9p" "9pnet_virtio"))
                    ("bcachefs" => '("bcachefs"))
                    ("btrfs" => '("btrfs"))
                    ("iso9660" => '("isofs"))
                    ("jfs" => '("jfs"))
                    ("f2fs" => '("f2fs" "crc32_generic"))
                    ("xfs" => '("xfs"))
                    (else '())))

(define (file-system-modules file-systems)
  "Return the list of Linux modules needed to mount FILE-SYSTEMS."
  (append-map (compose file-system-type-modules file-system-type)
              file-systems))

(define* (default-initrd-modules
           #:optional
           (system (or (%current-target-system)
                       (%current-system))))
  "Return the list of modules included in the initrd by default."
  (define virtio-modules
    ;; Modules for Linux para-virtualized devices, for use in QEMU guests.
    '("virtio_pci" "virtio_balloon" "virtio_blk" "virtio_net"
      "virtio_console" "virtio-rng"))

  `("ahci"                                  ;for SATA controllers
    "usb-storage" "uas"                     ;for the installation image etc.
    "usbhid" "hid-generic" "hid-apple"      ;keyboards during early boot
    "dm-crypt" "xts" "serpent_generic" "wp512" ;for encrypted root partitions
    "nls_iso8859-1"                            ;for `mkfs.fat`, et.al
    ,@(if (string-match "^(x86_64|i[3-6]86)-" system)
          '("pata_acpi" "pata_atiixp"    ;for ATA controllers
            "isci")                      ;for SAS controllers like Intel C602
          '())

    ,@virtio-modules))

(define-syntax %base-initrd-modules
  ;; This more closely matches our naming convention.
  (identifier-syntax (default-initrd-modules)))

(define* (base-initrd file-systems
                      #:key
                      (linux linux-libre)
                      (linux-modules '())
                      (mapped-devices '())
                      (keyboard-layout #f)
                      qemu-networking?
                      volatile-root?
                      (extra-modules '())         ;deprecated
                      (on-error 'debug))
  "Return as a file-like object a generic initrd, with kernel
modules taken from LINUX.  FILE-SYSTEMS is a list of file-systems to be
mounted by the initrd, possibly in addition to the root file system specified
on the kernel command line via 'root'.  MAPPED-DEVICES is a list of device
mappings to realize before FILE-SYSTEMS are mounted.

When true, KEYBOARD-LAYOUT is a <keyboard-layout> record denoting the desired
console keyboard layout.  This is done before MAPPED-DEVICES are set up and
before FILE-SYSTEMS are mounted such that, should the user need to enter a
passphrase or use the REPL, this happens using the intended keyboard layout.

QEMU-NETWORKING? and VOLATILE-ROOT? behaves as in raw-initrd.

The initrd is automatically populated with all the kernel modules necessary
for FILE-SYSTEMS and for the given options.  Additional kernel
modules can be listed in LINUX-MODULES.  They will be added to the initrd, and
loaded at boot time in the order in which they appear."
  (define linux-modules*
    ;; Modules added to the initrd and loaded from the initrd.
    `(,@linux-modules
      ,@(file-system-modules file-systems)
      ,@(if volatile-root?
            '("overlay")
            '())
      ,@extra-modules))

  (define helper-packages
    (append (file-system-packages file-systems
                                  #:volatile-root? volatile-root?)
            (if keyboard-layout
                (list loadkeys-static)
                '())))

  (raw-initrd file-systems
              #:linux linux
              #:linux-modules linux-modules*
              #:mapped-devices mapped-devices
              #:helper-packages helper-packages
              #:keyboard-layout keyboard-layout
              #:qemu-networking? qemu-networking?
              #:volatile-root? volatile-root?
              #:on-error on-error))

;;; linux-initrd.scm ends here