system: Add mx6cuboxi installer.

* gnu/bootloader/u-boot.scm (u-boot-mx6cuboxi-bootloader):
  New exported variable.
* gnu/system/install.scm (mx6cuboxi-installation-os):
  New exported variable.
This commit is contained in:
Vagrant Cascadian 2018-05-07 14:32:02 +00:00 committed by Danny Milosavljevic
parent 907356115e
commit 07ca90458f
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
2 changed files with 26 additions and 0 deletions

View File

@ -33,6 +33,7 @@
u-boot-a20-olinuxino-micro-bootloader u-boot-a20-olinuxino-micro-bootloader
u-boot-banana-pi-m2-ultra-bootloader u-boot-banana-pi-m2-ultra-bootloader
u-boot-beaglebone-black-bootloader u-boot-beaglebone-black-bootloader
u-boot-mx6cuboxi-bootloader
u-boot-nintendo-nes-classic-edition-bootloader)) u-boot-nintendo-nes-classic-edition-bootloader))
(define install-u-boot (define install-u-boot
@ -62,6 +63,15 @@
(write-file-on-device u-boot (stat:size (stat u-boot)) (write-file-on-device u-boot (stat:size (stat u-boot))
device (* 8 1024))))) device (* 8 1024)))))
(define install-imx-u-boot
#~(lambda (bootloader device mount-point)
(let ((spl (string-append bootloader "/libexec/SPL"))
(u-boot (string-append bootloader "/libexec/u-boot.img")))
(write-file-on-device spl (stat:size (stat spl))
device (* 1 1024))
(write-file-on-device u-boot (stat:size (stat u-boot))
device (* 69 1024)))))
;;; ;;;
@ -86,6 +96,11 @@
(inherit u-boot-bootloader) (inherit u-boot-bootloader)
(installer install-allwinner-u-boot))) (installer install-allwinner-u-boot)))
(define u-boot-imx-bootloader
(bootloader
(inherit u-boot-bootloader)
(installer install-imx-u-boot)))
(define u-boot-nintendo-nes-classic-edition-bootloader (define u-boot-nintendo-nes-classic-edition-bootloader
(bootloader (bootloader
(inherit u-boot-allwinner-bootloader) (inherit u-boot-allwinner-bootloader)
@ -110,3 +125,8 @@
(bootloader (bootloader
(inherit u-boot-allwinner-bootloader) (inherit u-boot-allwinner-bootloader)
(package u-boot-banana-pi-m2-ultra))) (package u-boot-banana-pi-m2-ultra)))
(define u-boot-mx6cuboxi-bootloader
(bootloader
(inherit u-boot-imx-bootloader)
(package u-boot-mx6cuboxi)))

View File

@ -49,6 +49,7 @@
a20-olinuxino-micro-installation-os a20-olinuxino-micro-installation-os
banana-pi-m2-ultra-installation-os banana-pi-m2-ultra-installation-os
beaglebone-black-installation-os beaglebone-black-installation-os
mx6cuboxi-installation-os
nintendo-nes-classic-edition-installation-os)) nintendo-nes-classic-edition-installation-os))
;;; Commentary: ;;; Commentary:
@ -429,6 +430,11 @@ The bootloader BOOTLOADER is installed to BOOTLOADER-TARGET."
"/dev/mmcblk1" ; eMMC storage "/dev/mmcblk1" ; eMMC storage
"ttyS0")) "ttyS0"))
(define mx6cuboxi-installation-os
(embedded-installation-os u-boot-mx6cuboxi-bootloader
"/dev/mmcblk0" ; SD card storage
"ttymxc0"))
(define nintendo-nes-classic-edition-installation-os (define nintendo-nes-classic-edition-installation-os
(embedded-installation-os u-boot-nintendo-nes-classic-edition-bootloader (embedded-installation-os u-boot-nintendo-nes-classic-edition-bootloader
"/dev/mmcblk0" ; SD card (solder it yourself) "/dev/mmcblk0" ; SD card (solder it yourself)