ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gauche: Fix build, enable TLS, and use gexps.

Browse source 
Fixes <https://issues.guix.gnu.org/73113>.

There is a known test issue that will be fixed next release:
https://github.com/shirok/Gauche/issues/1044

* gnu/packages/scheme.scm (gauche): Fix build failure and enable TLS.
[arguments]: Set #:tests? to #f until next release, and add --with-tls
configure flag.
[inputs]: Add mbedtls.

Change-Id: Iceacb882e74f5a8e3e11d663cca51baafbcbeb69
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Antero Mejr 2024-09-13 20:13:18 +00:00 committed by Ludovic Courtès
parent f92151133d
commit 191b85e8fb
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 30 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/scheme.scm
View file

@ -1098,38 +1098,40 @@ (define-public gauche
(base32 "10zpbbikkcpdzk6c52wkckiyhn7nhnqjv2djdzyjr0n8qxxy4hrn"))))
(build-system gnu-build-system)
(inputs
(list libatomic-ops slib zlib))
(list libatomic-ops mbedtls slib zlib))
(native-inputs
(list texinfo openssl ; needed for tests
pkg-config)) ; needed to find external libatomic-ops
(arguments
`(#:configure-flags
(list (string-append "--with-slib="
(assoc-ref %build-inputs "slib")
"/lib/slib"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/sh
;; Needed only for tests.
(lambda _
(substitute* '("test/www.scm"
"ext/tls/test.scm"
"lib/gauche/package/util.scm"
"libsrc/gauche/process.scm")
(("/bin/sh") (which "sh")))))
(add-after 'build 'build-doc
(lambda _
(with-directory-excursion "doc"
(invoke "make" "info"))))
(add-before 'check 'patch-network-tests
;; Remove net checks.
(lambda _
(delete-file "test/net.scm")
(invoke "touch" "test/net.scm")))
(add-after 'install 'install-docs
(lambda _
(with-directory-excursion "doc"
(invoke "make" "install")))))))
(list #:tests? #f ; 9 ffitest failures, known issue (fixed in 0.9.16):
;; https://github.com/shirok/Gauche/issues/1044
#:configure-flags
#~(list (string-append "--with-slib=" #$(this-package-input "slib")
"/lib/slib")
"--with-tls=mbedtls")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/sh
;; Needed only for tests.
(lambda _
(substitute* '("test/www.scm"
"ext/tls/test.scm"
"lib/gauche/package/util.scm"
"libsrc/gauche/process.scm")
(("/bin/sh") (which "sh")))))
(add-after 'build 'build-doc
(lambda _
(with-directory-excursion "doc"
(invoke "make" "info"))))
(add-before 'check 'patch-network-tests
;; Remove net checks.
(lambda _
(delete-file "test/net.scm")
(invoke "touch" "test/net.scm")))
(add-after 'install 'install-docs
(lambda _
(with-directory-excursion "doc"
(invoke "make" "install")))))))
(synopsis "Scheme scripting engine")
(description "Gauche is a R7RS Scheme scripting engine aiming at being a
handy tool that helps programmers and system administrators to write small to