From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:33066) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1g7n50-00067W-4Z for guix-patches@gnu.org; Wed, 03 Oct 2018 15:45:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1g7n4w-0004po-IC for guix-patches@gnu.org; Wed, 03 Oct 2018 15:45:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:60051) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1g7n4w-0004p7-4f for guix-patches@gnu.org; Wed, 03 Oct 2018 15:45:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1g7n4v-0002rh-WD for guix-patches@gnu.org; Wed, 03 Oct 2018 15:45:02 -0400 Subject: [bug#32923] [PATCH 1/3] gnu: Add arduino-hardware. Resent-Message-ID: From: Danny Milosavljevic Date: Wed, 3 Oct 2018 21:44:11 +0200 Message-Id: <20181003194413.3696-1-dannym@scratchpost.org> In-Reply-To: <20181003194205.3627-1-dannym@scratchpost.org> References: <20181003194205.3627-1-dannym@scratchpost.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 32923@debbugs.gnu.org * 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 +;;; +;;; 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 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+))))