summaryrefslogtreecommitdiff
path: root/contrib/packages
diff options
context:
space:
mode:
authorng0 <ng0@infotropique.org>2017-08-19 10:24:53 +0000
committerng0 <ng0@infotropique.org>2017-08-19 10:24:53 +0000
commite7c76ae02bfd41fdd860a6db9270617855bfd89e (patch)
tree04b466925d6b5e4ef72a87f5761863c71c9c1b69 /contrib/packages
parent2468776e9cd952364903c88e4ceba055dd2aff02 (diff)
guix-env.scm: Move to contrib/packages/guix/.
Signed-off-by: ng0 <ng0@infotropique.org>
Diffstat (limited to 'contrib/packages')
-rw-r--r--contrib/packages/guix/guix-env.scm189
1 files changed, 189 insertions, 0 deletions
diff --git a/contrib/packages/guix/guix-env.scm b/contrib/packages/guix/guix-env.scm
new file mode 100644
index 000000000..54731858e
--- /dev/null
+++ b/contrib/packages/guix/guix-env.scm
@@ -0,0 +1,189 @@
+;;; This file is part of GNUnet.
+;;; Copyright (C) 2016, 2017 GNUnet e.V.
+;;;
+;;; GNUnet 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, or (at your
+;;; option) any later version.
+;;;
+;;; GNUnet 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 GNUnet; see the file COPYING. If not, write to the
+;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;;; Boston, MA 02110-1301, USA.
+;;;
+;; Guix package for GNUnet development
+;;
+;; INSTALL
+;; -------
+;;
+;; To build and install the package in the user environment, use:
+;;
+;; guix package --install-from-file=guix-env.scm
+;;
+;; BUILD ONLY
+;; ----------
+;;
+;; Precondition for using this file is that you run Guix and have a
+;; development setup for this setup, which involves a version of Guile in
+;; your PATH.
+;;
+;; guix build -f guix-env.scm
+;;
+;; We'd like to provide advanced functions such as guix environment specific
+;; gnunet-git package and usage of gnunet-gtk-git, but this is subject
+;; to tests right now.
+;;
+;; Further versions of GNUnet for Guix can currently be found in
+;; https://gitweb.krosos.org/ng0_guix/packages.git/
+
+(use-modules
+ (ice-9 popen)
+ (ice-9 match)
+ (ice-9 rdelim)
+ (guix packages)
+ (guix build-system gnu)
+ (guix gexp)
+ ((guix build utils) #:select (with-directory-excursion))
+ (guix git-download)
+ (gnu packages)
+ (gnu packages aidc)
+ (gnu packages autotools)
+ (gnu packages backup)
+ (gnu packages base)
+ (gnu packages compression)
+ (gnu packages curl)
+ (gnu packages databases)
+ (gnu packages file)
+ (gnu packages gettext)
+ (gnu packages glib)
+ (gnu packages gnome)
+ (gnu packages gnunet)
+ (gnu packages gnupg)
+ (gnu packages gnuzilla)
+ (gnu packages groff)
+ (gnu packages gstreamer)
+ (gnu packages gtk)
+ (gnu packages guile)
+ (gnu packages image)
+ (gnu packages image-viewers)
+ (gnu packages libidn)
+ (gnu packages libunistring)
+ (gnu packages linux)
+ (gnu packages maths)
+ (gnu packages multiprecision)
+ (gnu packages perl)
+ (gnu packages pkg-config)
+ (gnu packages pulseaudio)
+ (gnu packages python)
+ (gnu packages tex)
+ (gnu packages texinfo)
+ (gnu packages tls)
+ (gnu packages video)
+ (gnu packages web)
+ (gnu packages xiph)
+ ((guix licenses) #:prefix license:))
+
+(define %source-dir (dirname (current-filename)))
+
+(define gnunet-git
+ (let* ((revision "1"))
+ (package
+ (name "gnunet-git")
+ (version (string-append "0.10.1-" revision "." "dev"))
+ (source
+ (local-file %source-dir
+ #:recursive? #t))
+ (build-system gnu-build-system)
+ (inputs
+ `(("glpk" ,glpk)
+ ("gnurl" ,gnurl)
+ ("gstreamer" ,gstreamer)
+ ("gst-plugins-base" ,gst-plugins-base)
+ ("gnutls" ,gnutls)
+ ("libextractor" ,libextractor)
+ ("libgcrypt" ,libgcrypt)
+ ("libidn" ,libidn)
+ ("libmicrohttpd" ,libmicrohttpd)
+ ("libltdl" ,libltdl)
+ ("libunistring" ,libunistring)
+ ("openssl" ,openssl)
+ ("opus" ,opus)
+ ("pulseaudio" ,pulseaudio)
+ ("sqlite" ,sqlite)
+ ("postgresql" ,postgresql)
+ ("mysql" ,mysql)
+ ("zlib" ,zlib)
+ ("perl" ,perl)
+ ("python" ,python) ; tests and gnunet-qr
+ ("jansson" ,jansson)
+ ("nss" ,nss)
+ ("gmp" ,gmp)
+ ("bluez" ,bluez) ; for optional bluetooth feature
+ ("glib" ,glib)
+ ;; There are currently no binary substitutes for texlive on
+ ;; hydra.gnu.org or its mirrors due to its size. Uncomment if you need it.
+ ;;("texlive-minimal" ,texlive-minimal) ; optional.
+ ("libogg" ,libogg)))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("gnu-gettext" ,gnu-gettext)
+ ("texinfo" ,texinfo)
+ ("libtool" ,libtool)))
+ ;; TODO: To make use of out:debug, which carries the symbols,
+ ;; this file needs to fixed.
+ (outputs '("out" "debug"))
+ (arguments
+ `(#:configure-flags
+ (list (string-append "--with-nssdir=" %output "/lib")
+ "--enable-gcc-hardening"
+ "--enable-linker-hardening"
+
+ "--enable-poisoning"
+ "--enable-sanitizer"
+ "--enable-experimental"
+ "--enable-logging=verbose"
+ "CFLAGS=-ggdb -O0")
+ ;;#:parallel-tests? #f ; parallel building seems to fail
+ ;;#:tests? #f ; fail: test_gnunet_statistics.py
+ #:phases
+ ;; swap check and install phases and set paths to installed bin
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-bin-sh
+ (lambda _
+ (substitute* "bootstrap"
+ (("contrib/pogen.sh") "sh contrib/pogen.sh"))
+ (for-each (lambda (f) (chmod f #o755))
+ (find-files "po" ""))
+ #t))
+ (add-after 'patch-bin-sh 'bootstrap
+ (lambda _
+ (zero? (system* "sh" "bootstrap"))))
+ (delete 'check))))
+ ;; XXX: https://gnunet.org/bugs/view.php?id=4619
+ ;; (add-after 'install 'set-path-for-check
+ ;; (lambda* (#:key outputs #:allow-other-keys)
+ ;; (let* ((out (assoc-ref outputs "out"))
+ ;; (bin (string-append out "/bin"))
+ ;; (lib (string-append out "/lib")))
+ ;; (setenv "GNUNET_PREFIX" lib)
+ ;; (setenv "PATH" (string-append (getenv "PATH") ":" bin))
+ ;; (zero? (system* "make" "check"))))))))
+ (synopsis "Secure, decentralized, peer-to-peer networking framework")
+ (description
+ "GNUnet is a framework for secure peer-to-peer networking. The
+high-level goal is to provide a strong foundation of free software for a
+global, distributed network that provides security and privacy. GNUnet in
+that sense aims to replace the current internet protocol stack. Along with
+an application for secure publication of files, it has grown to include all
+kinds of basic applications for the foundation of a GNU internet.")
+ (license license:gpl3+)
+ (home-page "https://gnunet.org/"))))
+
+gnunet-git