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: guile-cv: Update to 0.4.0.

Browse source 
* gnu/packages/guile-xyz.scm (guile-cv): Update to 0.4.0.
[arguments]: Set GUILE_AUTO_COMPILE to prevent warnings, fix and
separate phase modifications into different tasks. Use G-expression.
Remove trailing #t.
[inputs]: Replace guile-2.0 with guile-3.0.
[native-inputs]: Update syntax. Add autoconf, automake, texinfo,
libtool and gettext-minimal.
[propagated-inputs]: Update syntax.

Change-Id: I0a4141740de7cdadbe103c62831f11474cb4ddb2
This commit is contained in:
Sébastien Lerique 2024-10-04 22:21:54 +02:00 • committed by Zheng Junjie
parent fb3a390bea
commit 9460c7ed8a
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 47 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

42
gnu/packages/guile-xyz.scm
View file

@ -4494,25 +4494,30 @@ feature-set, fully programmable in Guile Scheme.")
(define-public guile-cv (define-public guile-cv
(package (package
(name "guile-cv") (name "guile-cv")
(version "0.2.1") (version "0.4.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/guile-cv/guile-cv-" (uri (string-append "mirror://gnu/guile-cv/guile-cv-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0qdf0s2h1xj5lbhnc1pfw69i3zg08pqy2y6869b92ydfis8r82j9")))) "00620zxm1rxlws7vn1zp2zzcb6y6r3szzj6b4b9fyjb86k972izb"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:make-flags
(add-after 'unpack 'prepare-build #~(list "GUILE_AUTO_COMPILE=0") ; to prevent guild warnings
(lambda* (#:key inputs outputs #:allow-other-keys) #:phases
(substitute* "configure" #~(modify-phases %standard-phases
(add-after 'unpack 'fix-guile-site-directory
(lambda _
(substitute* "configure.ac"
(("SITEDIR=\"\\$datadir/guile-cv\"") (("SITEDIR=\"\\$datadir/guile-cv\"")
"SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"") "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"")
(("SITECCACHEDIR=\"\\$libdir/guile-cv/") (("SITECCACHEDIR=\"\\$libdir/guile-cv/")
"SITECCACHEDIR=\"$libdir/")) "SITECCACHEDIR=\"$libdir/"))))
(add-after 'unpack 'substitute-libs
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "cv/init.scm" (substitute* "cv/init.scm"
(("\\(dynamic-link \"libvigra_c\"\\)") (("\\(dynamic-link \"libvigra_c\"\\)")
(string-append "(dynamic-link \"" (string-append "(dynamic-link \""
@ -4524,26 +4529,29 @@ feature-set, fully programmable in Guile Scheme.")
(format #f "~alibguile-cv" (format #f "~alibguile-cv"
(if (getenv "GUILE_CV_UNINSTALLED") (if (getenv "GUILE_CV_UNINSTALLED")
"" ""
,(format #f "~a/lib/" ,(string-append #$output "/lib/")))))))
(assoc-ref outputs "out"))))))))
(setenv "GUILE_CV_UNINSTALLED" "1") (setenv "GUILE_CV_UNINSTALLED" "1")
;; Only needed to satisfy the configure script. ;; Only needed to satisfy the configure script.
(setenv "LD_LIBRARY_PATH" (setenv "LD_LIBRARY_PATH"
(string-append (assoc-ref inputs "vigra-c") "/lib")) (string-append (assoc-ref inputs "vigra-c") "/lib")))))))
#t)))))
(inputs (inputs
(list vigra vigra-c guile-2.2)) (list vigra vigra-c guile-3.0))
(native-inputs (native-inputs
`(("texlive" ,(texlive-updmap.cfg (list (texlive-updmap.cfg
(list texlive-booktabs (list texlive-booktabs
texlive-iwona texlive-iwona
texlive-lm texlive-lm
texlive-siunitx texlive-siunitx
texlive-standalone texlive-standalone
texlive-xcolor))) texlive-xcolor))
("pkg-config" ,pkg-config))) pkg-config
autoconf
automake
texinfo
libtool
gettext-minimal))
(propagated-inputs (propagated-inputs
`(("guile-lib" ,guile2.2-lib))) (list guile-lib))
(home-page "https://www.gnu.org/software/guile-cv/") (home-page "https://www.gnu.org/software/guile-cv/")
(synopsis "Computer vision library for Guile") (synopsis "Computer vision library for Guile")
(description "Guile-CV is a Computer Vision functional programming library (description "Guile-CV is a Computer Vision functional programming library