[bug#32923] [PATCH 1/3] gnu: Add arduino-hardware.

[Danny Milosavljevic]

* 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

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 <address@hidden>
+;;;
+;;; 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+))))