From mboxrd@z Thu Jan 1 00:00:00 1970 From: ericbavier@openmailbox.org Subject: [PATCH 05/14] gnu: scotch, pt-scotch: Use modify-phases. Date: Sat, 27 Jun 2015 22:45:42 -0500 Message-ID: <1435463151-32099-6-git-send-email-ericbavier@openmailbox.org> References: <1435463151-32099-1-git-send-email-ericbavier@openmailbox.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44917) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z93Wc-00014R-R9 for guix-devel@gnu.org; Sat, 27 Jun 2015 23:44:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z93WY-0003ex-HM for guix-devel@gnu.org; Sat, 27 Jun 2015 23:44:58 -0400 Received: from smtp17.openmailbox.org ([62.4.1.51]:39063) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z93WY-0003eT-CP for guix-devel@gnu.org; Sat, 27 Jun 2015 23:44:54 -0400 In-Reply-To: <1435463151-32099-1-git-send-email-ericbavier@openmailbox.org> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org Cc: Eric Bavier From: Eric Bavier * gnu/packages/maths.scm (scotch, pt-scotch)[arguments]: Use modify-phases. --- gnu/packages/maths.scm | 70 ++++++++++++++++++++++---------------------------- 1 file changed, 31 insertions(+), 39 deletions(-) diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index e4fe03b..a3611cf 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -802,15 +802,16 @@ implemented in ANSI C, and MPI for communications.") ("bison" ,bison))) (arguments `(#:phases - (alist-cons-after - 'unpack 'chdir-to-src - (lambda _ (chdir "src")) - (alist-replace - 'configure - (lambda _ - (call-with-output-file "Makefile.inc" - (lambda (port) - (format port " + (modify-phases %standard-phases + (add-after + 'unpack 'chdir-to-src + (lambda _ (chdir "src"))) + (replace + 'configure + (lambda _ + (call-with-output-file "Makefile.inc" + (lambda (port) + (format port " EXE = LIB = .a OBJ = .o @@ -831,22 +832,21 @@ MV = mv RANLIB = ranlib YACC = bison -pscotchyy -y -b y " - '("COMMON_FILE_COMPRESS_GZ" - "COMMON_PTHREAD" - "COMMON_RANDOM_FIXED_SEED" - ;; XXX: Causes invalid frees in superlu-dist tests - ;; "SCOTCH_PTHREAD" - ;; "SCOTCH_PTHREAD_NUMBER=2" - "restrict=__restrict"))))) - (alist-replace + '("COMMON_FILE_COMPRESS_GZ" + "COMMON_PTHREAD" + "COMMON_RANDOM_FIXED_SEED" + ;; XXX: Causes invalid frees in superlu-dist tests + ;; "SCOTCH_PTHREAD" + ;; "SCOTCH_PTHREAD_NUMBER=2" + "restrict=__restrict")))))) + (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (mkdir out) (zero? (system* "make" (string-append "prefix=" out) - "install")))) - %standard-phases))))) + "install")))))))) (home-page "http://www.labri.fr/perso/pelegrin/scotch/") (synopsis "Programs and libraries for graph algorithms") (description "SCOTCH is a set of programs and libraries which implement @@ -867,26 +867,18 @@ bio-chemistry.") (arguments (substitute-keyword-arguments (package-arguments scotch) ((#:phases scotch-phases) - `(alist-replace - 'build - ;; TODO: Would like to add parallelism here - (lambda _ - (and - (zero? (system* "make" "ptscotch")) - ;; Install the serial metis compatibility library - (zero? (system* "make" "-C" "libscotchmetis" "install")))) - (alist-replace - 'check - (lambda _ (zero? (system* "make" "ptcheck"))) - (alist-replace - 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (mkdir out) - (zero? (system* "make" - (string-append "prefix=" out) - "install")))) - ,scotch-phases)))))) + `(modify-phases ,scotch-phases + (replace + 'build + ;; TODO: Would like to add parallelism here + (lambda _ + (and + (zero? (system* "make" "ptscotch")) + ;; Install the serial metis compatibility library + (zero? (system* "make" "-C" "libscotchmetis" "install"))))) + (replace + 'check + (lambda _ (zero? (system* "make" "ptcheck")))))))) (synopsis "Programs and libraries for graph algorithms (with MPI)"))) (define-public gsegrafix -- 2.2.1