* gnu/packages/arduino.scm (arduino-installer): New procedure.
(arduino-hardware): New variable.
---
gnu/packages/arduino.scm | 106 +++++++++++++++++++++++++++++++++++++++
1 file changed, 106 insertions(+)
create mode 100644 gnu/packages/arduino.scm
Toggle diff (112 lines)
diff --git a/gnu/packages/arduino.scm b/gnu/packages/arduino.scm
new file mode 100644
index 000000000..24f109ecd
--- /dev/null
+++ b/gnu/packages/arduino.scm
@@ -0,0 +1,106 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
+;;;
+;;; 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 arduino)
+ #: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 python)
+ #:use-module (guix build-system ant)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages avr)
+ #:use-module (gnu packages flashing-tools)
+ #:use-module (gnu packages java)
+ #:use-module (gnu packages python))
+
+(define (arduino-installer filename)
+ `(lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (out-share (string-append out "/share/arduino"))
+ (out-share-part (string-append out-share "/" ,filename)))
+ (mkdir-p out-share)
+ (copy-recursively ,filename out-share-part))))
+
+(define-public arduino-hardware
+ (package
+ (name "arduino-hardware")
+ (version "1.8.7")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/arduino/Arduino.git")
+ (commit version)))
+ (sha256
+ (base32
+ "0cp502jf3xsrisadkrmxzylds48x60vparxm5lfcrzw27hw0qxgq"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; Delete bundled jar archives.
+ (for-each delete-file (find-files "." "\\.jar$"))
+ #t))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; No tests exist
+ #:modules ((guix build utils) (ice-9 match)
+ (guix build gnu-build-system))
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (delete 'build)
+ (add-after 'unpack 'prepare-dependencies
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ ;; This is intended to just prepare arduino inputs where its
+ ;; build system expects them.
+ (for-each (match-lambda
+ ((key . value)
+ (let* ((out-dir (assoc-ref outputs "out"))
+ (destination-dir
+ (string-append out-dir "/share/arduino")))
+ (if (string-prefix? "arduino-" key)
+ (let* ((basename
+ (string-drop key
+ (string-length "arduino-")))
+ (target-outdir (assoc-ref inputs key))
+ (target-dir
+ (string-append target-outdir
+ "/share/arduino"))
+ (target (string-append target-dir
+ "/" basename))
+ (destination
+ (string-append destination-dir "/"
+ basename)))
+ (mkdir-p destination-dir)
+ (symlink target destination)
+ #t)))))
+ inputs)
+ #t))
+ (add-before 'build 'chdir
+ (lambda _
+ (chdir "hardware")
+ #t))
+ (replace 'install ,(arduino-installer "hardware")))))
+ (home-page "https://www.arduino.cc/")
+ (synopsis "Arduino Hardware Spec Files")
+ (description "@code{arduino-hardware} contains Arduino Hardware Spec Files
+(boards.txt etc).")
+ ;; GPL covers the main body ("app", "core"). LGPL covers the remainder.
+ (license (list license:lgpl2.1+ license:gpl3+))))
