This is an automated email from the git hooks/post-receive script.
guix_mirror_bot pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new 3c96d9fb1e gnu: reducelcs: Fix build with gcc-14.
3c96d9fb1e is described below
commit 3c96d9fb1e1ee8fe4efd44ba6e8f3886b43668be
Author: Hugo Buddelmeijer <[email protected]>
AuthorDate: Fri Sep 26 11:04:23 2025 +0200
gnu: reducelcs: Fix build with gcc-14.
* gnu/packages/maths.scm (reducelcs): Fix build with gcc14.
[origin]: Use git-version and git-file-name.
[arguments]<#:phases>: Add patch-source phase.
Change-Id: I906d899700ec9805c2c4a080cb303c6e9e90a271
Signed-off-by: Andreas Enge <[email protected]>
---
gnu/packages/maths.scm | 43 +++++++++++++++++++++++++++----------------
1 file changed, 27 insertions(+), 16 deletions(-)
diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm
index 2e46a6050d..234b092796 100644
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -8210,33 +8210,44 @@ instruction sets. Thus, an application written with Vc
can be compiled for:
(revision "1"))
(package
(name "reducelcs")
- (version (string-append "1.0-" revision "." (string-take commit 7)))
+ (version (git-version "1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/gdv/Reduce-Expand-for-LCS";)
(commit commit)))
- (file-name (string-append name "-" version "-checkout"))
+ (file-name (git-file-name name version))
(sha256
(base32
"1rllzcfwc042c336mhq262a8ha90x6afq30kvk60r7i4761j4yjm"))))
(build-system gnu-build-system)
- (inputs
- (list openlibm))
+ (inputs (list openlibm))
(arguments
- `(#:tests? #f ; no tests
- #:phases
- (modify-phases %standard-phases
- (delete 'configure) ; No configure script exists.
- (replace 'install ; No install phase exists.
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin")))
- (install-file "Approximation" bin)
- (install-file "CollectResults" bin)
- (install-file "GenerateInstances" bin)
- #t))))))
+ (list
+ #:tests? #f ; no tests
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure) ; No configure script exists.
+ (add-after 'unpack 'patch-source
+ ;; See: <https://github.com/gdv/Reduce-Expand-for-LCS/pull/1>
+ (lambda _
+ (substitute* "Approximation.c"
+ (("char min_alphabet,max_alphabet;\n$" all)
+ (string-append all "
+int ExactLcs2(char lcs[MAXLEN], char *seq1, char *seq2);")))
+ (substitute* "GenerateInstances.c"
+ (("#include <float.h>" all)
+ (string-append all "
+#include <time.h>
+#include <string.h>")))))
+ (replace 'install ; No install phase exists.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
+ (install-file "Approximation" bin)
+ (install-file "CollectResults" bin)
+ (install-file "GenerateInstances" bin)))))))
(synopsis "Approximate Longest Commons Subsequence computation tool")
(description
"@code{reduceLCS} is an implementation of the Reduce-Expand
