diff options
author | Andreas Enge <andreas@enge.fr> | 2024-05-15 13:29:34 +0200 |
---|---|---|
committer | Andreas Enge <andreas@enge.fr> | 2024-05-15 14:35:07 +0200 |
commit | 12d23e3ac9d1ba410f4c60c78b393dc963b483ca (patch) | |
tree | d64ee1305ccfe270f00ba9a10a21523cfcdceb66 /gnu/packages | |
parent | 75f3cca50a4c53c65aa6b424276acdf023d51008 (diff) |
gnu: gecode: Use gexps.
* gnu/packages/maths.scm (gecode): Use gexps. Reindent package.
Change-Id: I5a644d25f2d62c3245b0770fe99c20c3ef380ffc
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/maths.scm | 106 |
1 files changed, 53 insertions, 53 deletions
diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index 67bed047ad..fac0c7693a 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -2710,68 +2710,68 @@ and quadratic objectives using the Simplex algorithm.") (package (name "gecode") (version (git-version "6.2.0" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/Gecode/gecode") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "16gzwa64w90vifaflmii515rsrqclf2y7nziq621m4ad9cjgcixj")) - (modules '((guix build utils))) - (snippet - '(begin - ;; delete generated sources - (for-each delete-file - '("gecode/kernel/var-imp.hpp" - "gecode/kernel/var-type.hpp")))))) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Gecode/gecode") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "16gzwa64w90vifaflmii515rsrqclf2y7nziq621m4ad9cjgcixj")) + (modules '((guix build utils))) + (snippet '(begin + ;; delete generated sources + (for-each delete-file + '("gecode/kernel/var-imp.hpp" + "gecode/kernel/var-type.hpp")))))) (outputs '("out" "examples")) (build-system gnu-build-system) (arguments - `(#:configure-flags - (list (string-append "GLDFLAGS=-Wl,-rpath=" - (assoc-ref %outputs "out") - "/lib") - "--enable-examples=no") - #:modules ((guix build gnu-build-system) + (list + #:configure-flags #~(list (string-append "GLDFLAGS=-Wl,-rpath=" + #$output "/lib") + "--enable-examples=no") + #:modules '((guix build gnu-build-system) (guix build utils) (ice-9 rdelim) (ice-9 popen)) - #:phases - (modify-phases %standard-phases - (add-after 'build 'build-examples - (lambda* (#:key outputs #:allow-other-keys) - (invoke "make" "compileexamples"))) - ;; The Makefile disrespects GLDFLAGS for some reason, so we have to - ;; patch it ourselves... *sigh* - (add-after 'install 'fix-rpath - (lambda* (#:key outputs #:allow-other-keys) - (let ((libdir (string-append (assoc-ref outputs "out") "/lib"))) - (for-each - (lambda (file) - (let* ((pipe (open-pipe* OPEN_READ "patchelf" + #:phases + #~(modify-phases %standard-phases + (add-after 'build 'build-examples + (lambda _ + (invoke "make" "compileexamples"))) + ;; The Makefile disrespects GLDFLAGS for some reason, + ;; so we have to patch it ourselves. + (add-after 'install 'fix-rpath + (lambda _ + (let ((libdir (string-append #$output "/lib"))) + (for-each (lambda (file) + (let* ((pipe (open-pipe* OPEN_READ + "patchelf" "--print-rpath" file)) - (line (read-line pipe))) - (and (zero? (close-pipe pipe)) - (invoke "patchelf" "--set-rpath" - (string-append libdir ":" line) - file)))) - (find-files libdir ".*\\.so$"))))) - (add-after 'install 'install-examples - (lambda* (#:key outputs #:allow-other-keys) - (invoke "make" "installexamples" - (string-append "bindir=" (assoc-ref outputs "examples") - "/bin")))) - ;; Tests depend on installed libraries. - (delete 'check) - (add-after 'fix-rpath 'check - (assoc-ref %standard-phases 'check))))) - (native-inputs - (list patchelf perl sed)) + (line (read-line pipe))) + (and (zero? (close-pipe pipe)) + (invoke "patchelf" "--set-rpath" + (string-append libdir + ":" line) + file)))) + (find-files libdir ".*\\.so$"))))) + (add-after 'install 'install-examples + (lambda _ + (invoke "make" "installexamples" + (string-append "bindir=" + #$output "/bin")))) + ;; Tests depend on installed libraries. + (delete 'check) + (add-after 'fix-rpath 'check + (assoc-ref %standard-phases + 'check))))) + (native-inputs (list patchelf perl sed)) (home-page "https://www.gecode.org") (synopsis "Toolkit for developing constraint-based systems") - (description "Gecode is a C++ toolkit for developing constraint-based + (description + "Gecode is a C++ toolkit for developing constraint-based systems and applications. It provides a modular and extensible solver.") (license license:expat)))) |