summaryrefslogtreecommitdiff
path: root/gnu/packages/multiprecision.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2021-02-11 11:03:17 +0200
committerEfraim Flashner <efraim@flashner.co.il>2021-02-11 11:33:15 +0200
commit4b62be5ca4b7b406cc8d00c6624d4a64b7192d7a (patch)
tree5a73aacac281ab32509c45c3fcfdd03c6c3a38f9 /gnu/packages/multiprecision.scm
parent78bbf6c44394c1024e0a369d0d5947e669606248 (diff)
gnu: Add libtomcrypt.
* gnu/packages/multiprecision.scm (libtomcrypt): New variable.
Diffstat (limited to 'gnu/packages/multiprecision.scm')
-rw-r--r--gnu/packages/multiprecision.scm74
1 files changed, 73 insertions, 1 deletions
diff --git a/gnu/packages/multiprecision.scm b/gnu/packages/multiprecision.scm
index b3a5ec5894..21605c4003 100644
--- a/gnu/packages/multiprecision.scm
+++ b/gnu/packages/multiprecision.scm
@@ -6,7 +6,7 @@
;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
-;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2018, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -320,6 +320,78 @@ ISO C. It is a port of LibTomMath with optional support for inline assembler
multiplies.")
(license public-domain)))
+(define-public libtomcrypt
+ (package
+ (name "libtomcrypt")
+ (version "1.18.2")
+ (outputs '("out" "static"))
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://github.com/libtom/libtomcrypt"
+ "/releases/download/v" version
+ "/crypt-" version ".tar.xz"))
+ (sha256
+ (base32
+ "113vfrgapyv72lalhd3nkw7jnks8az0gcb5wqn9hj19nhcxlrbcn"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; Patch CVE-2019-17362
+ ;; https://github.com/libtom/libtomcrypt/commit/25c26a3b7a9ad8192ccc923e15cf62bf0108ef94
+ (substitute* "src/pk/asn1/der/utf8/der_decode_utf8_string.c"
+ (("z > 4") "z == 1 || z > 4"))
+ #t))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (delete 'configure) ; no configure
+ (add-after 'unpack 'prepare-build
+ (lambda _
+ ;; We want the shared library by default so force it to be the
+ ;; default makefile target.
+ (delete-file "makefile")
+ (symlink "makefile.shared" "makefile")
+ #t))
+ (add-after 'build 'build-static
+ (lambda* (#:key make-flags #:allow-other-keys)
+ (apply invoke "make" "-f" "makefile.unix" make-flags)))
+ (replace 'check
+ (lambda* (#:key test-target make-flags #:allow-other-keys)
+ (apply invoke "make" "-f" "makefile.unix" test-target make-flags)
+ (invoke "./test")))
+ (add-after 'install 'install-static-library
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (static (assoc-ref outputs "static")))
+ (mkdir-p (string-append static "/lib"))
+ (mkdir-p (string-append static "/include"))
+ (rename-file (string-append out "/lib/libtomcrypt.a")
+ (string-append static "/lib/libtomcrypt.a"))
+ (copy-recursively (string-append out "/include")
+ (string-append static "/include"))
+ #t))))
+ #:test-target "test"
+ #:make-flags
+ (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
+ "CFLAGS += -DLTM_DESC -DUSE_LTM"
+ (string-append "EXTRALIBS=" (assoc-ref %build-inputs "libtommath")
+ "/lib/libtommath.so")
+ (string-append "CC=" ,(cc-for-target)))))
+ (native-inputs
+ `(("libtool" ,libtool)))
+ (inputs
+ `(("libtommath" ,libtommath)))
+ (home-page "https://www.libtom.net/LibTomCrypt/")
+ (synopsis "Cryptographic toolkit")
+ (description "LibTomCrypt is a fairly comprehensive, modular and portable
+cryptographic toolkit that provides developers with a vast array of well known
+published block ciphers, one-way hash functions, chaining modes, pseudo-random
+number generators, public key cryptography and a plethora of other routines.")
+ (properties `((lint-hidden-cve . ("CVE-2019-17362"))))
+ (license unlicense)))
+
(define-public libtommath
(package
(name "libtommath")