|
@@ -0,0 +1,184 @@
|
|
|
+;;; 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.
|
|
|
+;;;
|
|
|
+
|
|
|
+(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)
|
|
|
+ (guix utils) ; current-source-directory
|
|
|
+ (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 graphviz)
|
|
|
+ (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 tex)
|
|
|
+ (gnu packages tls)
|
|
|
+ (gnu packages video)
|
|
|
+ (gnu packages web)
|
|
|
+ (gnu packages xiph)
|
|
|
+ ;;(gnunet packages texlive) ;GNUnet module including texlive-2012 WIP
|
|
|
+ ((guix licenses) #:prefix license:))
|
|
|
+
|
|
|
+;;(define %source-dir (string-append (current-source-directory)
|
|
|
+;; "/../../../"))
|
|
|
+(define %source-dir (dirname (current-filename)))
|
|
|
+
|
|
|
+(define gnunet-doc
|
|
|
+ (let* ((revision "2")
|
|
|
+ (select? (delay (or (git-predicate
|
|
|
+ (string-append (current-source-directory)
|
|
|
+ "/../../../"))
|
|
|
+ source-file?))))
|
|
|
+ (package
|
|
|
+ (name "gnunet-doc")
|
|
|
+ (version (string-append "0.10.1-" revision "." "dev"))
|
|
|
+ (source
|
|
|
+ (local-file ;;"../../.."
|
|
|
+ ;;%source-dir
|
|
|
+ ;;(string-append (getcwd) "/../../../")
|
|
|
+ (string-append (getcwd)) ;drrty hack and this assumes one static position FIXME!
|
|
|
+ #:recursive? #t))
|
|
|
+ ;;#:select? (git-predicate %source-dir)))
|
|
|
+ ;;#:select? (force select?)))
|
|
|
+ (build-system gnu-build-system)
|
|
|
+ (inputs
|
|
|
+ `(("glpk" ,glpk)
|
|
|
+ ("gnurl" ,gnurl)
|
|
|
+ ("gstreamer" ,gstreamer)
|
|
|
+ ("gst-plugins-base" ,gst-plugins-base)
|
|
|
+ ("gnutls/dane" ,gnutls/dane)
|
|
|
+ ("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-2" ,python-2) ; tests and gnunet-qr
|
|
|
+ ("jansson" ,jansson)
|
|
|
+ ("nss" ,nss)
|
|
|
+ ("glib" ,glib "bin")
|
|
|
+ ("gmp" ,gmp)
|
|
|
+ ("bluez" ,bluez) ; for optional bluetooth feature
|
|
|
+ ("glib" ,glib)
|
|
|
+ ;;("texlive-minimal" ,texlive-minimal) ; optional.
|
|
|
+ ("texlive" ,texlive) ;TODO: Stabilize Texlive-2012 package
|
|
|
+ ("libogg" ,libogg)))
|
|
|
+ (native-inputs
|
|
|
+ `(("pkg-config" ,pkg-config)
|
|
|
+ ("autoconf" ,autoconf)
|
|
|
+ ("automake" ,automake)
|
|
|
+ ("gnu-gettext" ,gnu-gettext)
|
|
|
+ ("graphviz" ,graphviz) ; dot
|
|
|
+ ("texinfo-5" ,texinfo-5) ; Debian stable
|
|
|
+ ("which" ,which)
|
|
|
+ ("libtool" ,libtool)))
|
|
|
+ (arguments
|
|
|
+ `(#:configure-flags
|
|
|
+ (list "--enable-documentation")
|
|
|
+ #:tests? #f ;Don't run tests
|
|
|
+ #:phases
|
|
|
+ (modify-phases %standard-phases
|
|
|
+ (add-after 'unpack 'autoconf
|
|
|
+ (lambda _
|
|
|
+ (substitute* "bootstrap"
|
|
|
+ (("contrib/pogen.sh") "sh contrib/pogen.sh"))
|
|
|
+ (for-each (lambda (f) (chmod f #o755))
|
|
|
+ (find-files "po" ""))
|
|
|
+ (zero? (system* "sh" "bootstrap"))))
|
|
|
+ (add-after 'build 'run-gendocs
|
|
|
+ (lambda _
|
|
|
+ (chdir "doc/documentation")
|
|
|
+ ;;(zero? (system* "make" "dev-build"))))
|
|
|
+ (zero? (system* "sh" "run-gendocs.sh"))))
|
|
|
+ ;; (zero? (system* "make" "pdf"))
|
|
|
+ ;; (zero? (system* "make" "html"))
|
|
|
+ ;; (zero? (system* "make" "info"))))
|
|
|
+ ;;(zero? (system* "make" "doc-all-give-me-the-noise"))))
|
|
|
+ (replace 'install
|
|
|
+ (lambda _
|
|
|
+ (zero? (system* "make" "doc-gendoc-install")))))))
|
|
|
+ ;;(lambda* (#:key outputs #:allow-other-keys)
|
|
|
+ ;; (let* ((out (assoc-ref outputs "out"))
|
|
|
+ ;; (doc (string-append out "/share/doc/gnunet")))
|
|
|
+ ;; (mkdir-p doc)
|
|
|
+ ;; (copy-recursively "images"
|
|
|
+ ;; (string-append doc
|
|
|
+ ;; "/images"))
|
|
|
+ ;; (mkdir-p (string-append doc "/gnunet"))
|
|
|
+ ;; (install-file "gnunet.pdf" doc)
|
|
|
+ ;; (install-file "gnunet.info" doc)
|
|
|
+ ;; (install-file "gnunet.log" doc) ;TODO: Move to 'dev' output?
|
|
|
+ ;; (copy-recursively "gnunet"
|
|
|
+ ;; (string-append doc
|
|
|
+ ;; "/gnunet"))
|
|
|
+ ;; (install-file "gnunet-c-tutorial.pdf" doc)
|
|
|
+ ;; (install-file "gnunet-c-tutorial.info" doc)
|
|
|
+ ;; (install-file "gnunet-c-tutorial.log" doc) ;TODO: Move to 'dev' output?
|
|
|
+ ;; (copy-recursively "gnunet-c-tutorial"
|
|
|
+ ;; (string-append doc
|
|
|
+ ;; "/gnunet-c-tutorial")))
|
|
|
+ ;; #t)))))
|
|
|
+ (synopsis "Documentation of GNUnet")
|
|
|
+ (description
|
|
|
+ "GNUnet documentation build")
|
|
|
+ (license (list license:fdl1.3+ license:gpl3+))
|
|
|
+ (home-page "https://gnunet.org/"))))
|
|
|
+
|
|
|
+gnunet-doc
|