[PATCH 2/6] gnu: Add crypto++.

[Marius Bakke]

* gnu/packages/crypto.scm (crypto++): New variable.
---
 gnu/packages/crypto.scm | 90 ++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 89 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index e4a8a4bd5..2bf64f1f6 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -6,6 +6,7 @@
 ;;; Copyright © 2016 Tobias Geerinckx-Rice <address@hidden>
 ;;; Copyright © 2016 ng0 <address@hidden>
 ;;; Copyright © 2016 Eric Bavier <address@hidden>
+;;; Copyright © 2017 Marius Bakke <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -46,12 +47,99 @@
   #:use-module (gnu packages tcl)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages xml)
+  #:use-module (gnu packages zip)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
-  #:use-module (guix build-system gnu))
+  #:use-module (guix build-system gnu)
+  #:use-module (guix utils)
+  #:use-module (srfi srfi-26)
+  #:use-module (ice-9 match))
+
+(define-public crypto++
+  (package
+    (name "crypto++")
+    (version "5.6.5")
+    (source (origin
+              (method url-fetch)
+              (uri (let ((numeric-version
+                          (match (string-split version #\.)
+                            ((first-digit other-digits ...)
+                             (string-append first-digit
+                                            (string-concatenate
+                                             other-digits))))))
+                     (string-append "https://cryptopp.com/cryptopp";
+                                    numeric-version ".zip")))
+              (sha256
+               (base32
+                "0d1cqdz369ivi082k59025wvxzywvkizw7i0pf5h0a1izs3g8pm7"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags
+       (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+             (string-append "BINDIR=" (assoc-ref %outputs "bin") "/bin")
+             (string-append "DATADIR=" (assoc-ref %outputs "doc") "/share")
+             "DISABLE_CXXFLAGS_OPTIMIZATIONS=1"
+             ;; Override "/sbin/ldconfig" with simply "echo" since
+             ;; we don't need ldconfig(8).
+             "LDCONF=echo")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'enter-source
+           ;; ??? Why are we in the TestData folder.
+           (lambda _ (chdir "..") #t))
+         (add-after 'enter-source 'disable-optimizations
+           (lambda _
+             ;; XXX: The disable optimizations flag above is not recognized in
+             ;; the current version. See 
https://github.com/weidai11/cryptopp/pull/354 .
+             ;; For now, just remove it the dirty way.
+             (substitute* "GNUmakefile"
+               (("-march=native") ""))
+             #t))
+         (delete 'configure)
+         (add-after 'build 'build-shared
+           (lambda _
+             ;; By default, only the static library is built.
+             (zero? (system* "make" "shared"))))
+         (add-after 'install 'move-static-library
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (lib (string-append out "/lib"))
+                    (static (assoc-ref outputs "static"))
+                    (slib (string-append static "/lib")))
+               (mkdir-p slib)
+               (for-each (lambda (file)
+                           (install-file file slib)
+                           (delete-file file))
+                         (find-files lib "\\.l?a$"))
+               #t)))
+         (add-after 'move-static-library 'add-so-version-symlink
+           ;; The library is named MAJOR.MINOR.PATCHLEVEL. Some programs
+           ;; expect a MAJOR.MINOR symlink.
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (major+minor ,(version-major+minor version)))
+               (with-directory-excursion (string-append out "/lib")
+                 (symlink (string-append "libcryptopp.so." ,version)
+                          (string-append "libcryptopp.so." major+minor))
+                 #t)))))))
+    (outputs '("out"              ; 6.4M shared library and headers
+               "bin"              ; 6.3M cryptest.exe
+               "doc"              ; 6.4M documentation and examples
+               "static"))         ; 15M static library
+    (native-inputs
+     `(("unzip" ,unzip)))
+    (synopsis "C++ class library of cryptographic schemes")
+    (description
+     "Crypto++ is a large collection of cryptograhic algorithms and related
+utilities for C++.")
+    (home-page "https://cryptopp.com";)
+    ;; The compilation is licensed under Boost 1.0, while most individual
+    ;; files are in the public domain.
+    (license (list license:boost1.0
+                   license:public-domain))))
 
 (define-public libsodium
   (package
-- 
2.11.0