[PATCH 2/2] gnu: Add Mlucas.

[Alex Vong <alexvong1995@gmail.com>]

From 00c6dce0002c07a1fecbe5d53bbbb724d0e6379b Mon Sep 17 00:00:00 2001
From: Alex Vong <alexvong1995@gmail.com>
Date: Sat, 31 Oct 2015 19:50:50 +0800
Subject: [PATCH 2/2] gnu: Add Mlucas.

* gnu/packages/maths.scm (mlucas): New variable.
---
 gnu/packages/maths.scm | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)

diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index b4b930d..8076f51 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -32,10 +32,14 @@
   #:use-module (guix download)
   #:use-module (guix svn-download)
   #:use-module (guix utils)
+  #:use-module (guix build build-flags)
   #:use-module (guix build utils)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages algebra)
+  #:use-module (gnu packages autogen)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
@@ -1975,3 +1979,67 @@ algorithm and optimum parameters depending on the dataset.
 FLANN is written in C++ and contains bindings for C, Octave and Python.")
     (license (license:non-copyleft "file://COPYING"
                                 "See COPYING in the distribution."))))
+
+(define-public mlucas
+  (let ( ; some dpkg-buildflags and custom build flags presented as flag-list
+        (custom-flag-list
+         (flag-list-
+          (flag-list+ all-flag-list
+                      (flag-list
+                       #:CFLAGS '("-Ofast"
+                                  "-pipe"
+                                  "-flto"
+                                  "-fno-aggressive-loop-optimizations")
+                       #:LDFLAGS '("-Wl,--as-needed")))
+          default-flag-list)))
+    ;; start package definition
+    (package
+     (name "mlucas")
+     (version "14.1")
+     (source (origin
+              (method url-fetch)
+              (uri (string-append "http://hogranch.com/mayer/src/C/mlucas-"
+                                  version
+                                  ".tar.xz"))
+              (sha256
+               (base32
+                "1i6j1479icxfwp3ixs6dk65qilv9hn7213q3iibndlgwjfmh0gb4"))))
+     (build-system gnu-build-system)
+     (arguments
+      `(#:phases
+        (modify-phases %standard-phases
+                       (add-before 'configure
+                                   'bootstrap
+                                   (lambda _
+                                     (zero? (system "./bootstrap")))))
+        #:configure-flags
+        '("--disable-NORMAL-CFLAGS"
+          "--disable-TRICKY-CFLAGS"
+          "--enable-MLUCAS-DEFAULT-PATH"
+          "--enable-verbose-compiler"
+          ,@(flag-list->string-list custom-flag-list))))
+     ;; run-time dependencies
+     (propagated-inputs `(("coreutils" ,coreutils)
+                          ("sed" ,sed)))
+     ;; build-time dependencies
+     (native-inputs `(("autogen" ,autogen)
+                      ("autoconf" ,autoconf)
+                      ("automake" ,automake)
+                      ("perl" ,perl)))
+     ;; descriptions of the package
+     (synopsis "Program to perform Lucas-Lehmer test on a Mersenne number")
+     (description "mlucas performs Lucas-Lehmer test
+on prime-exponent Mersenne numbers,
+that is, integers of the form 2 ^ p - 1, with prime exponent p.
+In short, everything you need to search for world-record Mersenne primes!
+It has been used in the verification of various Mersenne primes,
+including the 45th, 46th and 48th found Mersenne prime.
+
+You may use it to test any suitable number as you wish,
+but it is preferable that you do so in a coordinated fashion,
+as part of the Great Internet Mersenne Prime Search (GIMPS).
+For more information on GIMPS,
+see <http://www.mersenne.org/prime.html> for details.
+")
+     (home-page "http://hogranch.com/mayer/README.html")
+     (license license:gpl2+))))
-- 
2.1.4