summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-20 23:13:26 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-20 23:23:01 +0200
commit758ffc234d45eeebd4e98773a16b36ba2f31f124 (patch)
tree278396d273d3455693fa031bbf1441c26d57c9fa
parent43ec98ef3025f67ff4f66b7da0bcb79a6f088042 (diff)
gnu: Add OpenZWave.
* gnu/packages/zwave.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
-rw-r--r--gnu/local.mk1
-rw-r--r--gnu/packages/zwave.scm84
2 files changed, 85 insertions, 0 deletions
diff --git a/gnu/local.mk b/gnu/local.mk
index c2f2ce2d40..558e6812b9 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -494,6 +494,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/xorg.scm \
%D%/packages/xfce.scm \
%D%/packages/zile.scm \
+ %D%/packages/zwave.scm \
\
%D%/services.scm \
%D%/services/admin.scm \
diff --git a/gnu/packages/zwave.scm b/gnu/packages/zwave.scm
new file mode 100644
index 0000000000..43d1747332
--- /dev/null
+++ b/gnu/packages/zwave.scm
@@ -0,0 +1,84 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.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 zwave)
+ #:use-module (guix packages)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix git-download)
+ #:use-module (guix build-system gnu)
+ #:use-module (gnu packages base)
+ #:use-module (gnu packages linux)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages xml))
+
+(define-public open-zwave
+ (package
+ (name "open-zwave")
+ (version "1.6")
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/OpenZWave/open-zwave/")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0xgs4mmr0480c269wx9xkk67ikjzxkh8xcssrdx0f5xcl1lyd333"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; Set RUNPATH on the 'MinOZW' executable.
+ (substitute* "cpp/examples/MinOZW/Makefile"
+ (("\\$\\(LDFLAGS\\)")
+ "$(LDFLAGS) -Wl,-rpath=$(PREFIX)/lib"))
+
+ ;; Delete the bundled TinyXML.
+ (delete-file-recursively "cpp/tinyxml")
+ (substitute* "cpp/build/Makefile"
+ (("LIBS \\+= -ludev")
+ "LIBS += -ludev -ltinyxml "))
+ #t))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:phases (modify-phases %standard-phases
+ (delete 'configure)) ;no 'configure' script
+
+ #:make-flags (list "BUILD=debug"
+ (string-append "PREFIX="
+ (assoc-ref %outputs "out"))
+ (string-append "pkgconfigdir="
+ (assoc-ref %outputs "out")
+ "/lib/pkgconfig"))
+
+ ;; "make check" and "make fulltest" are only concerned with checking
+ ;; the device XML database and it's not entirely clear what to get from
+ ;; them.
+ #:tests? #f))
+ (native-inputs `(("which" ,which)
+ ("perl" ,perl) ;for tests
+ ("perl-xml-simple" ,perl-xml-simple)))
+ (inputs `(("tinyxml" ,tinyxml)
+ ("eudev" ,eudev)))
+ (home-page "http://www.openzwave.net/")
+ (synopsis "Access Z-Wave devices from C++ programs")
+ (description
+ "OpenZWave (or OZW) is a C++ library that interfaces with selected Z-Wave
+PC controllers. It allows developers to create applications that manipulate
+and respond to devices on a Z-Wave network, without requiring in-depth
+knowledge of the Z-Wave protocol.")
+ (license license:lgpl3+)))