From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([209.51.188.92]:52086) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h7BE0-0005WZ-I4 for guix-patches@gnu.org; Thu, 21 Mar 2019 23:52:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h7BDy-00025g-LG for guix-patches@gnu.org; Thu, 21 Mar 2019 23:52:08 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:40359) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1h7BDu-00023p-8m for guix-patches@gnu.org; Thu, 21 Mar 2019 23:52:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1h7BDu-0000aR-3Q for guix-patches@gnu.org; Thu, 21 Mar 2019 23:52:02 -0400 Subject: [bug#34942] [PATCH] gnu: Add mlucas. Resent-Message-ID: Received: from eggs.gnu.org ([209.51.188.92]:51918) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h7BDX-0005Sn-MR for guix-patches@gnu.org; Thu, 21 Mar 2019 23:51:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h7B9q-0005Gx-RH for guix-patches@gnu.org; Thu, 21 Mar 2019 23:47:52 -0400 Received: from mugam.systemreboot.net ([139.59.75.54]:49752) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1h7B9p-0005Ei-HT for guix-patches@gnu.org; Thu, 21 Mar 2019 23:47:50 -0400 From: Arun Isaac Date: Fri, 22 Mar 2019 09:17:29 +0530 Message-Id: <20190322034729.17348-1-arunisaac@systemreboot.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 34942@debbugs.gnu.org * gnu/packages/maths.scm (mlucas): New variable. --- gnu/packages/maths.scm | 51 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index ddb4672ff9..c10267432a 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -4818,3 +4818,54 @@ implemented as callable objects, and bases of finite element spaces.") built on top of DUNE, the Distributed and Unified Numerics Environment.") ;; Either GPL version 2 with "runtime exception" or LGPLv3+. (license (list license:lgpl3+ license:gpl2)))) + +(define-public mlucas + (package + (name "mlucas") + (version "18") + (source + (origin + (method url-fetch) + (uri (string-append + "https://mersenneforum.org/mayer/src/C/mlucas_v" version ".txz")) + (sha256 + (base32 + "1ax12qj9lyvnx4vs3gx7l8r3wx5gjbsdswp5f00ik9z0wz7xf297")))) + (build-system gnu-build-system) + (inputs + `(("python2" ,python-2))) + (arguments + `(#:tests? #f ; no tests + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda _ + (chdir "src") + (call-with-output-file "Makefile" + (lambda (port) + (format port "CC = gcc +CFLAGS = -O3 ~a -DUSE_THREADS +LDLIBS = -lm -lpthread -lrt +Mlucas: $(addsuffix .o,$(basename $(wildcard *.c))) +" + ,(let ((system (or (%current-target-system) + (%current-system)))) + (cond + ((string-prefix? "x86_64" system) "-DUSE_SSE2") + (else "")))))) + #t)) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) + (install-file "Mlucas" bin) + (install-file "primenet.py" bin)) + #t))))) + (home-page "https://www.mersenne.org") + (synopsis "Great Internet Mersenne Prime Search (GIMPS) distributed computing client") + (description "Mlucas performs Lucas-Lehmer primality testing of Mersenne +numbers in search of a world-record 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). Mlucas also includes a simple Python script for assignment +management via the GIMPS project's Primenet server.") + (license license:gpl2+))) -- 2.21.0