From 27eb23709f79a5383c66526e25f5cdf26b645793 Mon Sep 17 00:00:00 2001
From: Nils Gillmann <niasterisk@grrlz.net>
Date: Mon, 28 Mar 2016 18:00:27 +0200
Subject: [PATCH] gnu: gnunet: Add gnunet-svn.

* gnu/packages/gnunet.scm (gnunet-svn): New variable.
Coauthored by Jookia.
---
 gnu/packages/gnunet.scm | 88 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)

diff --git a/gnu/packages/gnunet.scm b/gnu/packages/gnunet.scm
index 9fa2773..fe6ca14 100644
--- a/gnu/packages/gnunet.scm
+++ b/gnu/packages/gnunet.scm
@@ -331,3 +331,91 @@ services.")
        ("libglade" ,libglade)))
     (synopsis "Graphical front-end tools for GNUnet")
     (home-page "https://gnunet.org")))
+
+;; We provide SVN in addition to the older 0.10.1 version,
+;; protocol and API compatibility will be broken when GNUnet bug #4165
+;; is fixed.
+(define-public gnunet-svn
+  (package
+    (name "gnunet-svn")
+    (version "0.10.1.svn36926")
+    (source
+     (origin
+       (method svn-fetch)
+       (uri (svn-reference
+             (url "https://gnunet.org/svn/gnunet/")
+             (revision 36926)))
+       (file-name (string-append name "-" version "-checkout"))
+       (sha256 (base32
+                "0wgmvxcazcws38zpky566rgssqbbmr72z96xdwia73vsy7ysy6h4"))))
+    (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)
+       ("zlib" ,zlib)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("gettext" ,gnu-gettext)
+       ("libtool" ,libtool)
+       ("python" ,python-2)))
+    (arguments
+     '(#:configure-flags
+       (list (string-append "--with-nssdir=" %output "/lib"))
+       #:parallel-tests? #f
+       ;; test_gnunet_service_arm fails; reported upstream
+       #:tests? #f
+       #:phases
+       ;; swap check and install phases and set paths to installed binaries
+       (alist-cons-after
+        'patch-bin-sh 'bootstrap
+        (lambda _ (zero? (system* (which "sh") "./bootstrap")))
+        (alist-cons-after
+         'unpack 'patch-bin-sh
+         (lambda _
+           (and
+            (substitute*
+                '("bootstrap")
+              (("contrib/pogen.sh") "sh contrib/pogen.sh"))
+            (for-each (lambda (f) (chmod f #o755))
+                      (find-files "po" ""))))
+         (alist-cons-before
+          'check 'set-path-for-check
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((out (assoc-ref outputs "out")))
+              (setenv "GNUNET_PREFIX" (string-append out "/lib"))
+              (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))))
+          (alist-cons-after
+           'install 'check
+           (assoc-ref %standard-phases 'check)
+           (alist-delete
+            'check
+            %standard-phases)))))))
+    (synopsis "Secure, decentralized, peer-to-peer networking framework")
+    (description "GNUnet is a framework for secure, distributed, peer-to-peer
+networking.  The high-level goal is to provide a strong foundation of free
+software for a global, distributed network which 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.
+
+gnunet-0.10.1 is the last stable release candidate, however for
+development purposes and keeping up with latest changes, the SVN version
+might be preferable until a new version is released.")
+    (license license:gpl3+)
+    (home-page "https://gnunet.org/")))
-- 
2.7.3