;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 David Craven ;;; Copyright © 2017, 2019 Mathieu Othacehe ;;; Copyright © 2020 Julien Lepiller ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen ;;; Copyright © 2022 Maxim Cournoyer ;;; Copyright © 2023 Efraim Flashner ;;; ;;; 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 wi
aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAmirouche <amirouche+dev@hyper.dev>2019-05-06 14:40:42 +0200
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2021-07-13 22:41:04 -0400
commit51194ca1e845d5f3954cb9dd1fef79e930dc3777 (patch)
tree2e50b97fd61ef8f24400aac51b914379367fb8c1 /tests/bournish.scm
parent9e6fc36a28f033d19edd1b5467440be58e3fa97c (diff)
downloadguix-51194ca1e845d5f3954cb9dd1fef79e930dc3777.tar.gz
guix-51194ca1e845d5f3954cb9dd1fef79e930dc3777.zip
gnu: guile-pfds: Apply a bug fix to hamts.sls.
* gnu/packages/guile-xyz.scm (guile-pfds): Remove trailing #t. [phases]{patch-sources}: New phase. Co-authored-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'tests/bournish.scm')
0 files changed, 0 insertions, 0 deletions
tall-rockpro64-rk3399-u-boot) (define install-u-boot-ts7970-q-2g-1000mhz-c-u-boot #~(lambda (bootloader device mount-point) (let ((u-boot.imx (string-append bootloader "/libexec/u-boot.imx")) (install-dir (string-append mount-point "/boot"))) (install-file u-boot.imx install-dir)))) (define install-sifive-unmatched-u-boot #~(lambda (bootloader root-index image) (let ((spl (string-append bootloader "/libexec/spl/u-boot-spl.bin")) (u-boot (string-append bootloader "/libexec/u-boot.itb"))) (write-file-on-device spl (stat:size (stat spl)) image (* 34 512)) (write-file-on-device u-boot (stat:size (stat u-boot)) image (* 2082 512))))) ;;; ;;; Bootloader definitions. ;;; (define u-boot-bootloader (bootloader (inherit extlinux-bootloader) (name 'u-boot) (package #f) (installer #f) (disk-image-installer install-u-boot))) (define u-boot-beaglebone-black-bootloader (bootloader (inherit u-boot-bootloader) (package u-boot-am335x-boneblack) (disk-image-installer install-beaglebone-black-u-boot))) (define u-boot-allwinner-bootloader (bootloader (inherit u-boot-bootloader) (disk-image-installer install-allwinner-u-boot))) (define u-boot-allwinner64-bootloader (bootloader (inherit u-boot-bootloader) (disk-image-installer install-allwinner64-u-boot))) (define u-boot-imx-bootloader (bootloader (inherit u-boot-bootloader) (disk-image-installer install-imx-u-boot))) (define u-boot-nintendo-nes-classic-edition-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-nintendo-nes-classic-edition))) (define u-boot-a20-olinuxino-lime-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-a20-olinuxino-lime))) (define u-boot-a20-olinuxino-lime2-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-a20-olinuxino-lime2))) (define u-boot-a20-olinuxino-micro-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-a20-olinuxino-micro))) (define u-boot-bananapi-m2-ultra-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-bananapi-m2-ultra))) (define u-boot-cubietruck-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-cubietruck))) (define u-boot-firefly-rk3399-bootloader ;; SD and eMMC use the same format (bootloader (inherit u-boot-bootloader) (package u-boot-firefly-rk3399) (disk-image-installer install-firefly-rk3399-u-boot))) (define u-boot-mx6cuboxi-bootloader (bootloader (inherit u-boot-imx-bootloader) (package u-boot-mx6cuboxi))) (define u-boot-wandboard-bootloader (bootloader (inherit u-boot-imx-bootloader) (package u-boot-wandboard))) (define u-boot-novena-bootloader (bootloader (inherit u-boot-imx-bootloader) (package u-boot-novena))) (define u-boot-pine64-plus-bootloader (bootloader (inherit u-boot-allwinner64-bootloader) (package u-boot-pine64-plus))) (define u-boot-pine64-lts-bootloader (bootloader (inherit u-boot-allwinner-bootloader) (package u-boot-pine64-lts))) (define u-boot-pinebook-bootloader (bootloader (inherit u-boot-allwinner64-bootloader) (package u-boot-pinebook))) (define u-boot-puma-rk3399-bootloader (bootloader (inherit u-boot-bootloader) (package u-boot-puma-rk3399) (disk-image-installer install-puma-rk3399-u-boot))) (define u-boot-rock64-rk3328-bootloader ;; SD and eMMC use the same format (bootloader (inherit u-boot-bootloader) (package u-boot-rock64-rk3328) (disk-image-installer install-rock64-rk3328-u-boot))) (define u-boot-rockpro64-rk3399-bootloader ;; SD and eMMC use the same format (bootloader (inherit u-boot-bootloader) (package u-boot-rockpro64-rk3399) (disk-image-installer install-rockpro64-rk3399-u-boot))) (define u-boot-pinebook-pro-rk3399-bootloader ;; SD and eMMC use the same format (bootloader (inherit u-boot-bootloader) (package u-boot-pinebook-pro-rk3399) (disk-image-installer install-pinebook-pro-rk3399-u-boot))) (define u-boot-ts7970-q-2g-1000mhz-c-bootloader ;; This bootloader doesn't really need to be installed, as it is read from ;; an SPI memory chip, not the SD card. It is copied to /boot/u-boot.imx ;; for convenience and should be manually flashed at the U-Boot prompt. (bootloader (inherit u-boot-bootloader) (package u-boot-ts7970-q-2g-1000mhz-c) (installer install-u-boot-ts7970-q-2g-1000mhz-c-u-boot) (disk-image-installer #f))) (define u-boot-sifive-unmatched-bootloader (bootloader (inherit u-boot-bootloader) (package u-boot-sifive-unmatched) (disk-image-installer install-sifive-unmatched-u-boot)))