gentoo auto-resync : 30:12:2024 - 06:30:40

3 files changed, 104 insertions, 0 deletions

diff --git a/dev-scheme/guile-lib/Manifest b/dev-scheme/guile-lib/Manifest
index 80a52c12cb08..792c498df337 100644
--- a/dev-scheme/guile-lib/Manifest
+++ b/dev-scheme/guile-lib/Manifest
@@ -1,3 +1,6 @@
+AUX guile-lib-0.2.8.1-guile3-primes.patch 1088 BLAKE2B 9f3a85e15d3047fe370df8b0460c3bc3eff4cfdd08316e3d0fd334a13aff8881d04fb99399d06aff569d0ea7cf52da1505da7f7944454bab0d2bed374e5b151d SHA512 f258816a92b404900cb280e4cf0c0b81c40ed6357a0a8e267c4d65c5687bc9240203757c61ea444b3fde951fc35c157936db4b4bcd73365ff4a5fe65bd6745e0
 DIST guile-lib-0.2.7.tar.gz 451202 BLAKE2B d8420a718697611443a40af089aad6e1d48390e5bef764f84955beeec8d6346066547d73c30898b96e727d4f470df6a032438067240bba8b25058bc65b85d9fa SHA512 d27d1398f81172e4488c5ac5c2d076baeeeaa12fa19d83a87faf0767c255b79f8eb24438950da3865e797299be90f7dc1dcc964076d53df9cab5925a61ad0d1f
+DIST guile-lib-0.2.8.1.tar.gz 461345 BLAKE2B 10fe6a3c93ffd09fd92ad43b7cdd5cf949e3f9f11ce2aebd3c28b5227345041ee4a15c8bf1bb26c5a12423fbde65e950707bd0f43ee5787e4fe2853c6c56f4f9 SHA512 655c559c19beb008016fb3f313184c0da83f6dad53987045648cdb84bbca05f839b1a31c3cd12727510f51511c7d248d16438d87113cf8e99134925a2ad64312
 EBUILD guile-lib-0.2.7-r100.ebuild 621 BLAKE2B 144fb0cedd2c07fcf3895daa67fdc51ea7121fdf1936910f5a7e29b78f53f8cfb449b83b11341ed32a069278a71a4c9c7b779ea1c860aeedb34609b73ef41365 SHA512 b100b92decb9ec7ab6c4b27b50d7591cb4c3376f306a5e14bfedcea2c103cd88e1272bb6819d9c9e544e48fecdbd23881977cb580595b3c431d9268a84269669
+EBUILD guile-lib-0.2.8.1.ebuild 1661 BLAKE2B c4188aee457d7a2167f1774ac824055592461b64e2be3550c022cc99bcd48e4b5e3b64785fbbf1b262cb3a350544659a6eefa819cca0894f767f2c0cf7cffd21 SHA512 87c34f1120ef7f59f0641b4f74213a4b600619edfd2ec3db33e249dae7cd6f4f657160802da9b3e481d423b6fcf0b2f1a4b6157c6f02f74a5956cc770fb8898f
 MISC metadata.xml 635 BLAKE2B f0f88e15dc93a28612644bc4de79e5fd8e50493a8fe82103d945c336c2f3a78bfad3fc176b1929b868809e3b7c79161db3e909b2224f93d4459bf044091bd65e SHA512 e839b41b146fc0a2ecf03559e886c15daeca4518ff887175877690456d82b1971d30bbf6dcc1dc33df8e7393f9f79b4b58391764070d7ad50018fa26a6cdda3b
diff --git a/dev-scheme/guile-lib/files/guile-lib-0.2.8.1-guile3-primes.patch b/dev-scheme/guile-lib/files/guile-lib-0.2.8.1-guile3-primes.patch
new file mode 100644
index 000000000000..bca9dd1e80ca
--- /dev/null
+++ b/dev-scheme/guile-lib/files/guile-lib-0.2.8.1-guile3-primes.patch
@@ -0,0 +1,26 @@
+# Note that this patch requires >=guile-3, so we apply it conditionally.
+# https://lists.gnu.org/archive/html/guile-devel/2024-05/msg00012.html
+#
+# Fix compile and test failures due to bitvector API change.
+# https://bugs.gentoo.org/877785
+--- a/src/math/primes.scm	2024-05-23 19:26:16.757865343 -0400
++++ b/src/math/primes.scm	2024-05-23 19:28:20.797358650 -0400
+@@ -114,7 +114,7 @@
+ 		      (set! prime:prime-sqr (* nexp nexp))
+ 		      (set! prime:sieve (make-bitvector nexp #f))
+ 		      (for-each (lambda (prime)
+-				  (bitvector-set! prime:sieve prime #t))
++				  (bitvector-set-bit! prime:sieve prime))
+ 				primes)
+ 		      (set! prime:products (reverse (cons comp comps))))
+ 		     (else
+@@ -132,7 +132,7 @@
+ There is a slight chance, @code{(expt 2 (- prime:trials))}, that a 
+ composite will return @code{#t}."
+   (set! n (abs n))
+-  (cond ((< n (bitvector-length prime:sieve)) (bitvector-ref prime:sieve n))
++  (cond ((< n (bitvector-length prime:sieve)) (bitvector-bit-set? prime:sieve n))
+ 	((even? n) #f)
+ 	((primes-gcd? n prime:products) #f)
+ 	((< n prime:prime-sqr) #t)
+
diff --git a/dev-scheme/guile-lib/guile-lib-0.2.8.1.ebuild b/dev-scheme/guile-lib/guile-lib-0.2.8.1.ebuild
new file mode 100644
index 000000000000..faa78a97f1a3
--- /dev/null
+++ b/dev-scheme/guile-lib/guile-lib-0.2.8.1.ebuild
@@ -0,0 +1,75 @@
+# Copyright 2022-2024 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=8
+
+# 2-2 could be made to work but a few tests fail and nobody seems
+# to care about it (patches had no reply on ML).
+GUILE_COMPAT=( 3-0 )
+inherit guile
+
+DESCRIPTION="An accumulation place for pure-scheme Guile modules"
+HOMEPAGE="http://www.nongnu.org/guile-lib/"
+SRC_URI="mirror://nongnu/${PN}/${P}.tar.gz"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+
+REQUIRED_USE="${GUILE_REQUIRES_USE}"
+
+RDEPEND="${GUILE_DEPS}"
+DEPEND="${RDEPEND}"
+
+src_prepare() {
+	guile_src_prepare
+	sed -i -e 's/"guile"/(getenv "GUILE")/' unit-tests/os.process.scm || die
+	guile_copy_sources
+
+	# Only apply this patch for 3.0 (bug #877785)
+	if use guile_targets_3-0 ; then
+		cd "${WORKDIR}"/${P}-3.0 || die
+		eapply "${FILESDIR}"/${PN}-0.2.8.1-guile3-primes.patch
+	fi
+}
+
+src_configure() {
+	_guile_configure() {
+		cd "${WORKDIR}"/${P}-${GUILE_CURRENT_VERSION} || die
+		ECONF_SOURCE="${WORKDIR}"/${P}-${GUILE_CURRENT_VERSION}
+		econf --with-guile-site=yes
+	}
+
+	guile_foreach_impl _guile_configure
+}
+
+src_compile() {
+	_guile_compile() {
+		cd "${WORKDIR}"/${P}-${GUILE_CURRENT_VERSION} || die
+		sed -i -e "s:exec guile:exec ${GUILE}:" doc/make-texinfo.scm || die
+		emake
+	}
+
+	guile_foreach_impl _guile_compile
+}
+
+src_test() {
+	_guile_test() {
+		cd "${WORKDIR}"/${P}-${GUILE_CURRENT_VERSION} || die
+		emake check
+	}
+
+	guile_foreach_impl _guile_test
+}
+
+src_install() {
+	_guile_install() {
+		cd "${WORKDIR}"/${P}-${GUILE_CURRENT_VERSION} || die
+		emake DESTDIR="${SLOTTED_D}" install
+	}
+
+	einstalldocs
+	guile_foreach_impl _guile_install
+	guile_merge_roots
+	guile_unstrip_ccache
+}