gentoo resync : 29.01.2021

8 files changed, 148 insertions, 41 deletions

diff --git a/dev-scheme/gauche/Manifest b/dev-scheme/gauche/Manifest
index c8a30d3af843..651c5e98fce0 100644
--- a/dev-scheme/gauche/Manifest
+++ b/dev-scheme/gauche/Manifest
@@ -1,11 +1,13 @@
-AUX gauche-0.9.6-rfc.tls.patch 408 BLAKE2B e4e41272e7b3a1393fc2e07ba90b9c883220447f0c4730e5bc1d268e1198b17a10374451323e181f5eae1e3d2793c8c708d0cc0365ebc2d8e82648804b0bc349 SHA512 457aebafad6fa5f3ad494bfb545e217d043b19c20929be2e067601ffb4b015bcf4654af9295758792c20ebb27dee9315f232a96d1154a56dd88d1baad015046f
+AUX gauche-0.9.10-srfi-134.patch 2281 BLAKE2B 5854b345162f319092090578afa8899d129e865ed75e5902d3518cd736e7268453dc4f4043fbdac5d90073026e8fcd28e2a42b911021da0dc44047dfd7cd9e18 SHA512 797267d2276b90736c0824566b1c9218399d0e68e972fa53830dfb85ad6946b2a6ad2a19aaabbba9aa63c1c36b5628856318a4d3b328b1cbed0ca3ac5f73c8b5
+AUX gauche-0.9.10-sys-ctermid.patch 844 BLAKE2B bea4f9efe2a6456a7f61c7f37ba7aac295998c55e634dc9b9d0d97bd29a007b7820b28d40bc4e63aa06414d4773a7ffeb0c22404f01c511193756d55d101eaba SHA512 ea0336b4b2cee9096da1c58e6e760ec1c98d69a0149efd21e18aab8db0c8b3033d3fd85500f0774bcb44717c564c67f0048a89cc8543e19c8a31b6686186483f
+AUX gauche-0.9.9-xz-info.patch 1322 BLAKE2B f73447a306ec54ff372520c603adf2da46e1b71225a27d09af5c3ae8770431c5fef4d974cbf6e08fa1159807719c798680b18c7f624ec83b33d5ddf8688946f0 SHA512 22b6a37ea23bcba7e4ea4d09f26b069225cc36ef32dc0fbc865cfa4052765d0363811f693d6cc5cc8f3fdf355b93eec7c58934d18b2cb8079cadfd3b0cd4ffa4
 AUX gauche-ext-ldflags.patch 384 BLAKE2B 57b7463086c0763413b8fda3d7688c6a61bd4456b3209a80b6eabed088e0c71eb5ae4c53b18fb0e6b7468ac03fe33f7884f265ab1ea998e8457b0ef126e6e841 SHA512 df42c5f25adc5a67ad049ab78aeaa4f565d18818dd6dfff5a64a78e9e3101595a4279d72e8f946e4f7da7be30f9f11c089c7f4a65d2eb2135980414c3d6e9cbb
 AUX gauche-gauche.m4.patch 964 BLAKE2B f02f2a1fad5d2ce923d1f9a8af4506908afea5b24c65d30ac2dbc6402c826f1ee374bfbb0ac7e9896a980fa352620f7ef8d2d79fe1b0ccb4915e3ceb86dfd90d SHA512 81bd71285f9f7f7f6b310347905fa2b0c7b708a0bb8bfa33414b14591d5849f0b42d9a6f01f22abb307417778181c292d8ff7e42be259b7d4de09356ea1692ab
 AUX gauche-info.patch 3580 BLAKE2B e2563129f965c14c051f08ec5a2556b925cb0611f53a05b86a255f394be296db242ea77e7928947d5ecc56e34e22eebf45175f3bae51303d0dd8d341504cabef SHA512 393505178660b046971ba7090a57cce879561e2bd8d2005c771173e65d522bc8b9c7677a19cb49b3b5b94ba265dc0da6137d5999d743d6ae781eaa185ea86e89
 AUX gauche-rfc.tls.patch 277 BLAKE2B 91e745207e64ba3c83a1252be6fa63c486a3ebf148149b5772720a862299fa9bbf122a75ed8a537a29b78d75cf785ccc72de3194969931c62b52a7c1b7007208 SHA512 6aceaf321a1593765c91a83b14e057b2ee514e768299fa43c71bbe5f04b8b60a0537fd68cb8b4b5a61b091d5c4f50dc227bde2637d6be33956089dc0e40ab968
-AUX gauche-xz-info.patch 1322 BLAKE2B f73447a306ec54ff372520c603adf2da46e1b71225a27d09af5c3ae8770431c5fef4d974cbf6e08fa1159807719c798680b18c7f624ec83b33d5ddf8688946f0 SHA512 22b6a37ea23bcba7e4ea4d09f26b069225cc36ef32dc0fbc865cfa4052765d0363811f693d6cc5cc8f3fdf355b93eec7c58934d18b2cb8079cadfd3b0cd4ffa4
-DIST Gauche-0.9.6.tgz 6927530 BLAKE2B 9b32a0db4fc41e2b35331818850e7aa3c1ac5b1294c76caa053abe1ae2da20a0ac4424470ca94626108f996700d1b7e52f6f9e5c6f0a2326f7e6862880f48aa1 SHA512 1d8a7f56fd9ca183d6dce1dedadfaec7c7150c29540e5158f2a61977f7406d7d7a8ab753ef1912865a7d7e9a9e2fa845d86b2eb4c5e07a176f1c60276bc1908f
+AUX gauche-xz-info.patch 1248 BLAKE2B 8c87339d3739da774da858f43345bb6063fe2fafdfda3e791a67aee7773be4c1312c11aa37f1532203a7e1d4805cf3fa0ec80ce28f52d05c43df8536efa199a2 SHA512 7cbbfc17ef28aaa29dffe03d2d8afa01cc92897f5c08c9ba1ddd7926d45207100a44ccb8efd745f2f98c8d9a83ca0ca20a6c611329c3a80dea5692002467c52b
+DIST Gauche-0.9.10.tgz 7701616 BLAKE2B ecffc8cbffdbbea53a52468bcc190c57eede51ade78ccafd323299458f333794cc613bbfa11090d261993908020ccf8d42c2142da5996e1e55188f28e03cc28b SHA512 f014ec00903fc91b90da8dbdaace04a64d12695c631e923d5cdca3574aaf6701374f5adbed20c395881b047bb5a448352614d4ce7f16b6e38f69382bf8e66ed0
 DIST Gauche-0.9.9.tgz 7244347 BLAKE2B 843fe0c7341c7020ad9130edfc41f02eeda0bc2e1f8983f83faf443f69073e132a9a2f37e6a6260334ab9aacc3e976a2df68d4c43f17f6ea07531c14e783efec SHA512 ff6fdc80bd14c4a5dc57b5a6ac9558078a557cd30c2efe98146c3817a7830ef2b3f5bb6184ce6b8ac9b1b9cb636f041643fa761b2f99e6dd0602e13e7928e210
-EBUILD gauche-0.9.6-r1.ebuild 1323 BLAKE2B 748beb632b5680e289111ace44a682a5211231929787c5fcb8aeb13f63d35a5697b292baaad0f9e8615e867ec6789d2066ea2334c966d98d5c0312519a6bd313 SHA512 d95a284b5787599d1c36e2c11d4c8a2f08f06b8b38143d9478ca8f682045378d6981b10f3fc85eb7ee804067ff4ad1d0e8aa9e28451d82f4e7bde9fe30eaa1ab
-EBUILD gauche-0.9.9.ebuild 1359 BLAKE2B 5df94e0d78e146da16509604da482f28e3d9374fd4a83f8c72e69d720a476d74a671e9f1ba6912c17cedcf5cf48d662d572109bd3e4d8497c24704168d6efe02 SHA512 0bf6a2fb956d16912b3242dcc27695176010bbf57b1fa4183243e148766839be8e98f6cce5dc13540235205294acc3a2897f7d25ecda25e983a274184a3642a1
+EBUILD gauche-0.9.10.ebuild 1432 BLAKE2B b7cd8853f346b242f1686f8edb6036dcd6d4b4d728eac902af8dae209abb7958b6955ea029e74f019581fc8e14ecfc3a48fbed05b544d92851781431499e6420 SHA512 38ec8a5b18260b0763c68109e27cacf74a2eb2bddb20556ae61ea8ca71c9d50b456e0b07fce302462fdff6d996158a660064d10d09d5bc3f3251932ca12d1d95
+EBUILD gauche-0.9.9.ebuild 1356 BLAKE2B ddd61309863001a8099c64fb3ec624fd08caa25028da9c186b7061d2fae038b9219f0bc614818480ee948d8b336d5a3aba12ec79804e9832d136ac0268f1a301 SHA512 fb638076f31024e06a81ceb9abc245d997661b542804a9b13567a42cdf159237285fd598083bba2704ebf31f08771fb42f05879df92d2f5fe2c7984dd37ef970
 MISC metadata.xml 909 BLAKE2B faaf122e0b844cf34bb8b4417cc5e5728e37bcd14a4717d23e42770d6ce2c732724f46f48e01e32684f2f229ea560e2968c11e86473eba50c93dd1184d110cd5 SHA512 031f92387b4dec50e4b534d70c15e70b2a0f7e4ffa9e8a70a47ed9467bcbc4bc57b2210ff50b0e49c1ed73028d6eee4dfd28994cd8e23bdf041364f052e985de
diff --git a/dev-scheme/gauche/files/gauche-0.9.10-srfi-134.patch b/dev-scheme/gauche/files/gauche-0.9.10-srfi-134.patch
new file mode 100644
index 000000000000..1e9da832083e
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.10-srfi-134.patch
@@ -0,0 +1,56 @@
+commit 8582c68d127b0127f15e1a7f74265e3c0e9f3d87
+Author: Shiro Kawai <shiro@acm.org>
+Date:   Tue Dec 22 10:34:09 2020 -1000
+
+    Incorporate upstream fixes
+
+    https://github.com/scheme-requests-for-implementation/srfi-134/commit/2bfd4b585c8140c25f4fdd9adef84ab3ceca67b3
+
+diff --git a/lib/data/ideque.scm b/lib/data/ideque.scm
+index 484ca52b4..e4894e2d0 100644
+--- a/lib/data/ideque.scm
++++ b/lib/data/ideque.scm
+@@ -231,12 +231,12 @@
+ (define (%ideque-drop dq n)             ; n is within the range
+   (match-let1 ($ <ideque> lenf f lenr r) dq
+     (if (<= n lenf)
+-      (check n (drop f n) lenr r)
++      (check (- lenf n) (drop f n) lenr r)
+       (let1 lenr. (- lenr (- n lenf))
+         (check 0 '() lenr. (take r lenr.))))))
+ 
+ (define (%check-length dq n)
+-  (unless (<= 0 n (- (ideque-length dq) 1))
++  (unless (<= 0 n (ideque-length dq))
+     (error "argument is out of range:" n)))
+ 
+ ;; API [srfi-134]
+diff --git a/test/include/ideque-tests.scm b/test/include/ideque-tests.scm
+index 63f3f73a0..5e4c9e023 100644
+--- a/test/include/ideque-tests.scm
++++ b/test/include/ideque-tests.scm
+@@ -50,6 +50,12 @@
+  (test-assert (ideque-empty? (ideque-remove-back (ideque 1))))
+  (test 0 (ideque-front (ideque-add-front (ideque 1 2 3) 0)))
+  (test 0 (ideque-back (ideque-add-back (ideque 1 2 3) 0)))
++ ;; loss of front ideque
++ (let ((id (ideque #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f #f)))
++   (set! id (ideque-remove-front (ideque-add-back id 1)))
++   (set! id (ideque-remove-front (ideque-add-back id 1)))
++   (set! id (ideque-remove-front (ideque-add-back id 1)))
++   (test #f (ideque-front (ideque-take-right id 12)))) 
+  )
+ 
+ (test-group "ideque/other-accessors"
+@@ -63,7 +69,11 @@
+                          (map ideque->list xs))))
+                lis)))
+  (check 'ideque-take ideque-take take 7)
++ (test '(1 2 3 4) (ideque->list (ideque-take (ideque 1 2 3 4) 4)))
++ (test '(1 2 3 4) (ideque->list (ideque-take-right (ideque 1 2 3 4) 4)))
+  (check 'ideque-drop ideque-drop drop 6)
++ (test '() (ideque->list (ideque-drop (ideque 1 2 3 4) 4)))
++ (test '() (ideque->list (ideque-drop-right (ideque 1 2 3 4) 4)))
+  (check 'ideque-split-at ideque-split-at split-at 8)
+  ;; out-of-range conditions
+  (test-error (ideque->list (ideque-take (ideque 1 2 3 4 5 6 7) 10)))
diff --git a/dev-scheme/gauche/files/gauche-0.9.10-sys-ctermid.patch b/dev-scheme/gauche/files/gauche-0.9.10-sys-ctermid.patch
new file mode 100644
index 000000000000..18e4d5d2295d
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.10-sys-ctermid.patch
@@ -0,0 +1,27 @@
+commit f3b4beb18f256e733a4c699e96118d47a2191b74
+Author: Shiro Kawai <shiro@acm.org>
+Date:   Wed Dec 23 16:22:10 2020 -1000
+
+    Fix sys-ctermid out-of-extent memory access bug
+
+    https://github.com/shirok/Gauche/issues/740
+
+diff --git a/src/libsys.scm b/src/libsys.scm
+index f253c08a4..7f433c184 100644
+--- a/src/libsys.scm
++++ b/src/libsys.scm
+@@ -460,11 +460,11 @@
+ (define-cproc sys-mkdtemp (template::<string>) Scm_SysMkdtemp)
+ 
+ ;; ctermid
+-(define-cproc sys-ctermid () ::<const-cstring>
++(define-cproc sys-ctermid ()
+   (.if "defined(GAUCHE_WINDOWS)"
+-       (return "CON")
++       (return '"CON")
+        (let* ([buf::(.array char [(+ L_ctermid 1)])])
+-         (return (ctermid buf)))))
++         (return (SCM_MAKE_STR_COPYING (ctermid buf))))))
+ 
+ ;;---------------------------------------------------------------------
+ ;; stdlib.h
diff --git a/dev-scheme/gauche/files/gauche-0.9.6-rfc.tls.patch b/dev-scheme/gauche/files/gauche-0.9.6-rfc.tls.patch
deleted file mode 100644
index cf570df0ed38..000000000000
--- a/dev-scheme/gauche/files/gauche-0.9.6-rfc.tls.patch
+++ /dev/null
@@ -1,12 +0,0 @@
---- a/ext/tls/ssltest-mod.scm
-+++ b/ext/tls/ssltest-mod.scm
-@@ -53,7 +53,8 @@
-      ($ format #t "~a\n" $ regexp-replace-all* line
-         #/\.\.\/ssl\// srcpath-replace
-         #/openssl /    kicker-replace
--        #/system\s*\(/      "safe_system(")))
-+        #/system\s*\(/ "safe_system("
-+        #/(s_server) / "\\1 -4 ")))
- 
-   (p "#include <errno.h>"
-      "int safe_system(const char *commands)"
diff --git a/dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch b/dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch
new file mode 100644
index 000000000000..e55f53606005
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.9-xz-info.patch
@@ -0,0 +1,31 @@
+--- a/lib/gauche/interactive/info.scm
++++ b/lib/gauche/interactive/info.scm
+@@ -137,7 +137,8 @@
+                             :paths paths
+                             :pred (^p (or (file-is-readable? p)
+                                           (file-is-readable? #"~|p|.gz")
+-                                          (file-is-readable? #"~|p|.bz2"))))
++                                          (file-is-readable? #"~|p|.bz2")
++                                          (file-is-readable? #"~|p|.xz"))))
+         (errorf "couldn't find info file ~s in paths: ~s" *info-file* paths))
+     ))
+ 
+--- a/lib/text/info.scm
++++ b/lib/text/info.scm
+@@ -64,6 +64,7 @@
+ 
+ ;; Find bzip2 location
+ (define bzip2  (find-file-in-paths "bzip2"))
++(define xz     (find-file-in-paths "xz"))
+ 
+ ;; Read an info file FILE, and returns a list of strings splitted by ^_ (#\u001f)
+ ;; If FILE is not found, look for compressed one.
+@@ -78,6 +79,8 @@
+                      (close-input-port zp)))))]
+           [(and bzip2 (file-exists? #"~|file|.bz2"))
+            (with-input-from-process #"~bzip2 -c -d ~|file|.bz2" thunk)]
++          [(and xz (file-exists? #"~|file|.xz"))
++           (with-input-from-process #"~xz -c -d ~|file|.xz" thunk)]
+           [else (error "can't find info file" file)]))
+   (with-input-from-info
+    (lambda ()
diff --git a/dev-scheme/gauche/files/gauche-xz-info.patch b/dev-scheme/gauche/files/gauche-xz-info.patch
index e55f53606005..5ca77a8d583d 100644
--- a/dev-scheme/gauche/files/gauche-xz-info.patch
+++ b/dev-scheme/gauche/files/gauche-xz-info.patch
@@ -1,31 +1,31 @@
 --- a/lib/gauche/interactive/info.scm
 +++ b/lib/gauche/interactive/info.scm
-@@ -137,7 +137,8 @@
-                             :paths paths
-                             :pred (^p (or (file-is-readable? p)
-                                           (file-is-readable? #"~|p|.gz")
--                                          (file-is-readable? #"~|p|.bz2"))))
-+                                          (file-is-readable? #"~|p|.bz2")
-+                                          (file-is-readable? #"~|p|.xz"))))
-         (errorf "couldn't find info file ~s in paths: ~s" *info-file* paths))
-     ))
+@@ -113,7 +113,8 @@
+                       :paths (get-info-paths)
+                       :pred (^p (or (file-is-readable? p)
+                                     (file-is-readable? #"~|p|.gz")
+-                                    (file-is-readable? #"~|p|.bz2")))))
++                                    (file-is-readable? #"~|p|.bz2")
++                                    (file-is-readable? #"~|p|.xz")))))
  
+ (define (handle-ambiguous-name entry-name)
+   (let* ([keys (map x->string (hash-table-keys (~ (get-info)'index)))]
 --- a/lib/text/info.scm
 +++ b/lib/text/info.scm
-@@ -64,6 +64,7 @@
+@@ -67,6 +67,7 @@
  
  ;; Find bzip2 location
  (define bzip2  (find-file-in-paths "bzip2"))
 +(define xz     (find-file-in-paths "xz"))
  
- ;; Read an info file FILE, and returns a list of strings splitted by ^_ (#\u001f)
- ;; If FILE is not found, look for compressed one.
-@@ -78,6 +79,8 @@
-                      (close-input-port zp)))))]
+ (cond-expand
+  [gauche.sys.zlib]
+@@ -90,6 +91,8 @@
+              (with-input-from-process #"~gzip -c -d ~|file|.gz" thunk)])]
            [(and bzip2 (file-exists? #"~|file|.bz2"))
             (with-input-from-process #"~bzip2 -c -d ~|file|.bz2" thunk)]
 +          [(and xz (file-exists? #"~|file|.xz"))
 +           (with-input-from-process #"~xz -c -d ~|file|.xz" thunk)]
            [else (error "can't find info file" file)]))
    (with-input-from-info
-    (lambda ()
+    (^[]
diff --git a/dev-scheme/gauche/gauche-0.9.6-r1.ebuild b/dev-scheme/gauche/gauche-0.9.10.ebuild
index 072a1b05fc6e..a5c71f6e454e 100644
--- a/dev-scheme/gauche/gauche-0.9.6-r1.ebuild
+++ b/dev-scheme/gauche/gauche-0.9.10.ebuild
@@ -1,9 +1,9 @@
 # Copyright 1999-2021 Gentoo Authors
 # Distributed under the terms of the GNU General Public License v2
 
-EAPI="6"
+EAPI="7"
 
-inherit autotools eapi7-ver
+inherit autotools
 
 MY_P="${P^g}"
 
@@ -12,8 +12,8 @@ HOMEPAGE="http://practical-scheme.net/gauche/"
 SRC_URI="mirror://sourceforge/${PN}/${MY_P}.tgz"
 
 LICENSE="BSD"
-SLOT="0/$(ver_cut 1-2)"
-KEYWORDS="~alpha amd64 ~ia64 ~ppc ~ppc64 ~sparc x86 ~amd64-linux ~x86-linux"
+SLOT="0/$(ver_cut 1-2)7"
+KEYWORDS="~alpha ~amd64 ~ia64 ~ppc ~ppc64 ~sparc ~x86 ~amd64-linux ~x86-linux"
 IUSE="ipv6 libressl mbedtls test"
 RESTRICT="!test? ( test )"
 
@@ -27,12 +27,15 @@ DEPEND="${RDEPEND}
 S="${WORKDIR}/${MY_P}"
 
 PATCHES=(
-	"${FILESDIR}"/${PN}-gauche.m4.patch
 	"${FILESDIR}"/${PN}-ext-ldflags.patch
+	"${FILESDIR}"/${PN}-gauche.m4.patch
+	"${FILESDIR}"/${PN}-info.patch
+	"${FILESDIR}"/${PN}-rfc.tls.patch
 	"${FILESDIR}"/${PN}-xz-info.patch
-	"${FILESDIR}"/${P}-rfc.tls.patch
+	"${FILESDIR}"/${P}-srfi-134.patch
+	"${FILESDIR}"/${P}-sys-ctermid.patch
 )
-DOCS=( AUTHORS ChangeLog HACKING README )
+DOCS=( AUTHORS ChangeLog HACKING.adoc README.adoc )
 
 src_prepare() {
 	default
diff --git a/dev-scheme/gauche/gauche-0.9.9.ebuild b/dev-scheme/gauche/gauche-0.9.9.ebuild
index cd437d6add57..89d9c6e2571c 100644
--- a/dev-scheme/gauche/gauche-0.9.9.ebuild
+++ b/dev-scheme/gauche/gauche-0.9.9.ebuild
@@ -13,7 +13,7 @@ SRC_URI="mirror://sourceforge/${PN}/${MY_P}.tgz"
 
 LICENSE="BSD"
 SLOT="0/$(ver_cut 1-2)7"
-KEYWORDS="~alpha ~amd64 ~ia64 ~ppc ~ppc64 ~sparc ~x86 ~amd64-linux ~x86-linux"
+KEYWORDS="~alpha amd64 ~ia64 ~ppc ~ppc64 ~sparc x86 ~amd64-linux ~x86-linux"
 IUSE="ipv6 libressl mbedtls test"
 RESTRICT="!test? ( test )"
 
@@ -31,7 +31,7 @@ PATCHES=(
 	"${FILESDIR}"/${PN}-gauche.m4.patch
 	"${FILESDIR}"/${PN}-info.patch
 	"${FILESDIR}"/${PN}-rfc.tls.patch
-	"${FILESDIR}"/${PN}-xz-info.patch
+	"${FILESDIR}"/${P}-xz-info.patch
 )
 DOCS=( AUTHORS ChangeLog HACKING.adoc README.adoc )