amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: reducelcs: Fix build with gcc-14.

Browse source 
* 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 <andreas@enge.fr>
This commit is contained in:
Hugo Buddelmeijer 2025-09-26 11:04:23 +02:00 • committed by Andreas Enge
parent 9a59e74bee
commit 3c96d9fb1e
No known key found for this signature in database
GPG key ID: F7D5C9BF765C61E3
1 changed files with 27 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

43
gnu/packages/maths.scm
View file

@ -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