;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2016 Manolis Fragkiskos Ragkousis ;;; Copyright © 2015, 2017 Ricardo Wurmus ;;; Copyright © 2016 David Thompson ;;; Copyright © 2016 Efraim Flashner ;;; Copyright © 2018 Tobias Geerinckx-Rice ;;; Copyright © 2020 Marius Bakke ;;; Copyright © 2020 Arun Isaac ;;; ;;; 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 . (define-module (gnu packages avr) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix utils) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix packages) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) #:use-module (gnu packages) #:use-module (gnu packages compression) #:use-module (gnu packages cross-base) #:use-module (gnu packages flashing-tools) #:use-module (gnu packages gcc) #:use-module (gnu packages vim)) (define-public avr-binutils (package (inherit (cross-binutils "avr")) (name "avr-binutils"))) (define avr-gcc (let ((xgcc (cross-gcc "avr" #:xgcc gcc #:xbinutils avr-binutils))) (package (inherit xgcc) (name "avr-gcc") (arguments (substitute-keyword-arguments (package-arguments xgcc) ((#:phases phases) `(modify-phases ,phases (add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH (lambda* (#:key inputs #:allow-other-keys) (let ((gcc (assoc-ref inputs "gcc"))) ;; Remove the default compiler from CPLUS_INCLUDE_PATH to ;; prevent header conflict with the GCC from native-inputs. (setenv "CPLUS_INCLUDE_PATH" (string-join (delete (string-append gcc "/include/c++") (string-split (getenv "CPLUS_INCLUDE_PATH") #\:)) ":")) (format #t "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%" (getenv "CPLUS_INCLUDE_PATH")) #t))) ;; Without a working multilib build, the resulting GCC lacks ;; support for nearly every AVR chip. (add-after 'unpack 'fix-genmultilib (lambda _ ;; patch-shebang doesn't work here because there are actually ;; several scripts inside this script, each with a #!/bin/sh ;; that needs patching. (substitute* "gcc/genmultilib" (("#!/bin/sh") (string-append "#!" (which "sh")))) #t)))) ((#:configure-flags flags) `(delete "--disable-multilib" ,flags)))) (native-search-paths (list (search-path-specification (variable "CROSS_C_INCLUDE_PATH") (files '("avr/include"))) (search-path-specification (variable "CROSS_CPLUS_INCLUDE_PATH") (files '("avr/include"))) (search-path-specification (variable "CROSS_OBJC_INCLUDE_PATH") (files '("avr/include"))) (search-path-specification (variable "CROSS_OBJCPLUS_INCLUDE_PATH") (files '("avr/include"))) (search-path-specification (variable "CROSS_LIBRARY_PATH") (files '("avr/lib"))))) (native-inputs `(("gcc" ,gcc) ,@(package-native-inputs xgcc)))))) (define avr-libc (package (name "avr-libc") (version "2.0.0") (source (origin (method url-fetch) (uri (string-append "mirror://savannah//avr-libc/avr-libc-" version ".tar.bz2")) (sha256 (base32 "15svr2fx8j6prql2il2fc0ppwlv50rpmyckaxx38d3gxxv97zpdj")))) (build-system gnu-build-system) (arguments '(#:out-of-source? #t #:configure-flags '("--host=avr"))) (native-inputs `(("avr-binutils" ,avr-binutils) ("avr-gcc" ,avr-gcc))) (home-page "https://www.nongnu.org/avr-libc/") (synopsis "The AVR C Library") (description "AVR Libc is a project whose goal is to provide a high quality C library for use with GCC on Atmel AVR microcontrollers.") (license (license:non-copyleft "http://www.nongnu.org/avr-libc/LICENSE.txt")))) (define-public avr-toolchain ;; avr-libc c2016-10-29gnu: kguiaddons: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (kguiaddons): Update to 5.27.0 and fix indentation. David Craven 2016-10-29gnu: kdnssd: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (kdnssd): Update to 5.27.0. David Craven 2016-10-29gnu: kdbusaddons: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (kdbusaddons): Update to 5.27.0 and fix indentation. David Craven 2016-10-29gnu: kcoreaddons: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (kcoreaddons): Update to 5.27.0 and fix indentation. David Craven 2016-10-29gnu: kconfig: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (kconfig): Update to 5.27.0 and fix indentation. David Craven 2016-10-29gnu: kcodecs: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (kcodecs): Update to 5.27.0. David Craven 2016-10-29gnu: karchive: Update to 5.27.0....* gnu/packages/kde-frameworks.scm (karchive): Update to 5.27.0.