140 lines
5.5 KiB
Scheme
140 lines
5.5 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
|
|
;;; Copyright © 2016 David Craven <david@craven.ch>
|
|
;;;
|
|
;;; 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 u-boot)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix download)
|
|
#:use-module (guix packages)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (gnu packages)
|
|
#:use-module ((gnu packages algebra) #:select (bc))
|
|
#:use-module (gnu packages bison)
|
|
#:use-module (gnu packages cross-base)
|
|
#:use-module (gnu packages flex)
|
|
#:use-module (gnu packages python))
|
|
|
|
(define-public dtc
|
|
(package
|
|
(name "dtc")
|
|
(version "1.4.1")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://www.kernel.org/pub/software/utils/dtc/"
|
|
"dtc-" version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"155v52palf5fwfcnq696s41whjk0a5dqx98b7maqzdn7xbc2m6bp"))
|
|
(patches
|
|
(search-patches "dtc-add-missing-symbols-to-lds.patch"))))
|
|
(build-system gnu-build-system)
|
|
(native-inputs
|
|
`(("bison" ,bison)
|
|
("flex" ,flex)))
|
|
(arguments
|
|
`(#:make-flags
|
|
(list "CC=gcc" (string-append "PREFIX=" (assoc-ref %outputs "out")))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-after 'unpack 'patch-paths
|
|
(lambda _
|
|
(substitute* "Makefile"
|
|
(("/usr/bin/install") "install"))
|
|
(substitute* "Makefile"
|
|
(("PREFIX = \\$\\(HOME\\)") ""))))
|
|
(delete 'configure))))
|
|
(home-page "https://www.devicetree.org")
|
|
(synopsis "Compiles device tree source files")
|
|
(description "@command{dtc} compiles device tree source files to device
|
|
tree binary files. These are board description files used by Linux and BSD.")
|
|
(license license:gpl2+)))
|
|
|
|
(define u-boot
|
|
(package
|
|
(name "u-boot")
|
|
(version "2016.07")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"ftp://ftp.denx.de/pub/u-boot/"
|
|
"u-boot-" version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"0lqj4ckmfqiap8mc6z2d5albs3g2h5mzccbn60hsgxhabhibfkwp"))))
|
|
(native-inputs
|
|
`(("bc" ,bc)
|
|
("dtc" ,dtc)
|
|
("python-2" ,python-2)))
|
|
(build-system gnu-build-system)
|
|
(home-page "http://www.denx.de/wiki/U-Boot/")
|
|
(synopsis "ARM bootloader")
|
|
(description "U-Boot is a bootloader used mostly for ARM boards. It
|
|
also initializes the boards (RAM etc).")
|
|
(license license:gpl2+)))
|
|
|
|
(define (make-u-boot-package board triplet)
|
|
"Returns a u-boot package for BOARD cross-compiled for TRIPLET."
|
|
(package
|
|
(inherit u-boot)
|
|
(name (string-append "u-boot-" (string-downcase board)))
|
|
(native-inputs
|
|
`(("cross-gcc" ,(cross-gcc triplet))
|
|
("cross-binutils" ,(cross-binutils triplet))
|
|
,@(package-native-inputs u-boot)))
|
|
(arguments
|
|
`(#:test-target "test"
|
|
#:make-flags
|
|
(list "HOSTCC=gcc" (string-append "CROSS_COMPILE=" ,triplet "-"))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(replace 'configure
|
|
(lambda* (#:key outputs make-flags #:allow-other-keys)
|
|
(let ((config-name (string-append ,board "_defconfig")))
|
|
(if (file-exists? (string-append "configs/" config-name))
|
|
(zero? (apply system* "make" `(,@make-flags ,config-name)))
|
|
(begin
|
|
(display "Invalid board name. Valid board names are:")
|
|
(let ((dir (opendir "configs"))
|
|
(suffix-length (string-length "_defconfig")))
|
|
(do ((file-name (readdir dir) (readdir dir)))
|
|
((eof-object? file-name))
|
|
(when (string-suffix? "_defconfig" file-name)
|
|
(format #t "- ~A\n"
|
|
(string-drop-right file-name suffix-length))))
|
|
(closedir dir))
|
|
#f)))))
|
|
(replace 'install
|
|
(lambda* (#:key outputs make-flags #:allow-other-keys)
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
(libexec (string-append out "/libexec"))
|
|
(uboot-files (find-files "." ".*\\.(bin|efi|spl)$")))
|
|
(mkdir-p libexec)
|
|
(for-each
|
|
(lambda (file)
|
|
(let ((target-file (string-append libexec "/" file)))
|
|
(mkdir-p (dirname target-file))
|
|
(copy-file file target-file)))
|
|
uboot-files)))))))))
|
|
|
|
(define-public u-boot-vexpress_ca9x4
|
|
(make-u-boot-package "vexpress_ca9x4" "arm-linux-gnueabihf"))
|
|
|
|
(define-public u-boot-malta
|
|
(make-u-boot-package "malta" "mips64el-linux-gnuabi64"))
|