new upstream release.

Package-Manager: portage-2.1.9.42/cvs/Linux i686

10 files changed, 283 insertions, 2 deletions

diff --git a/dev-scheme/gauche/ChangeLog b/dev-scheme/gauche/ChangeLog
index 68467267b717..4f52c0e15052 100644
--- a/dev-scheme/gauche/ChangeLog
+++ b/dev-scheme/gauche/ChangeLog
@@ -1,6 +1,15 @@
 # ChangeLog for dev-scheme/gauche
 # Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/ChangeLog,v 1.26 2011/05/18 13:45:30 hattya Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/ChangeLog,v 1.27 2011/05/18 14:11:11 hattya Exp $
+
+*gauche-0.9.1 (18 May 2011)
+
+  18 May 2011; Akinori Hattori <hattya@gentoo.org> +gauche-0.9.1.ebuild,
+  +files/gauche-0.9.1-bzip2-info.diff, +files/gauche-0.9.1-list-queue.diff,
+  +files/gauche-0.9.1-number.diff, +files/gauche-0.9.1-vminexact.diff,
+  +files/gauche-ext-ldflags.diff, +files/gauche-rpath.diff,
+  +files/gauche-xz-info.diff:
+  new upstream release.
 
   18 May 2011; Akinori Hattori <hattya@gentoo.org> -gauche-0.8.13.ebuild,
   -gauche-0.9-r1.ebuild, files/gauche-gauche.m4.diff,
diff --git a/dev-scheme/gauche/Manifest b/dev-scheme/gauche/Manifest
index de75db48e163..f22b0c29840a 100644
--- a/dev-scheme/gauche/Manifest
+++ b/dev-scheme/gauche/Manifest
@@ -1,11 +1,20 @@
 AUX gauche-0.8.10-stack-trace.diff 895 RMD160 e325dca0b7169124d2b5c36d47e9fa9e108622ce SHA1 56a686d5188a23e0f626457eca36e695da955f27 SHA256 6073e675be421d895529bd92f7e2d8244e018c9e4cc8b4fe8c9383f815192437
+AUX gauche-0.9.1-bzip2-info.diff 2648 RMD160 37c1f8c6ed537a4bfb79f749e7dcce00b92d04d0 SHA1 2d6f16d67735e60dac843f508c8c40bbc55be7ef SHA256 50a658441fe6c250c6ab02c5d477b2c55967fbec89ee923a71b363d71ec47167
+AUX gauche-0.9.1-list-queue.diff 609 RMD160 2f7ef98fae69a030362975aac193d8e82105fe89 SHA1 ae13d426dbfe23f804d0a2a5caf897a8971ddef6 SHA256 d2c10dc79fda0b61d8c99aee2a7df6e603cdf994b36cd5ddfaaeb9eef418ba37
+AUX gauche-0.9.1-number.diff 1249 RMD160 13967e6ce5ac3c004f76c04b3f0018cd2f8cd59b SHA1 278b6cb4b0237dc40d4969d36635dc652ac62441 SHA256 926e3d7d6f4b2925b78ad62488e57319bd37498707081382024c95c956586dab
+AUX gauche-0.9.1-vminexact.diff 977 RMD160 fb3b61d5bc959440e4bbbdc9501e65a1a048b99b SHA1 4eaf85e7e34282974929ed26c2e4eca0b296a424 SHA256 6ab180510bb0719d549d76ecec2c20c4dc01ccc0625f752b3dc48f09c84cf467
+AUX gauche-ext-ldflags.diff 411 RMD160 bffb7d974ac6038bbc3a38f32e89f773b323cd53 SHA1 bfe75f9c4bc0aed231cda3b2d434edeff26b39de SHA256 5bdf2f32f12a6f06580a7d476121f7cbafcf87f162f8304db93b981278833255
 AUX gauche-gauche.m4.diff 350 RMD160 0b7b91eaa756517de7e015a586b7a0c7660fb54d SHA1 10211696c0cd0d0898776d4c964a835f081f079f SHA256 6280aa560e226aa2439de87466f02922afd8ba8cd2e3a4381cc648aca31d017f
+AUX gauche-rpath.diff 242 RMD160 58312b2276bc5e110e38279dda257ece86d91953 SHA1 ec0801efb46f2d28fdeb136f4ddcaa3e76907b43 SHA256 ee0e3d895322c90fff79a2d0016163c3db35e8912ad177daa5191762bbf6b5bd
 AUX gauche-runpath.diff 364 RMD160 a28bac2e437129753486ac090b21aff54a2b57db SHA1 74c77ae1ba2f2e19274e86194d6f665abaeb5518 SHA256 8a1902312987470529e2d546fb9553f865888a61daafbb6494b65b60f9f5a6db
+AUX gauche-xz-info.diff 1438 RMD160 b90fd60b0bfac470749eab5ab59cf667919adbb1 SHA1 d4d55fe41f3ea3711822f5320c6033854b55cf95 SHA256 88c5cdd2428aed394702bf7a18543a8e4b63df33ffa305216870ff8fc6fca536
 DIST Gauche-0.8.10.tgz 3184850 RMD160 95630b50b8269803ea73a3f0c30c2f4a3473f551 SHA1 576110b73136d1b7a1b5bda1e01d7efbcadff5fb SHA256 616fa2c337db5de57c95fa1dc5664b2d358fd4695ea9da12f008d014ed5ae9bd
 DIST Gauche-0.8.14.tgz 3718343 RMD160 55964a874faa23fd8a483f0c0960a31317610403 SHA1 44732f513b0a1a6bfdf9b76aa7d76fd3c0b44518 SHA256 8d847d23f12233ccc95c5f3a38e51f07b50c33c520116765a43eef9128342bee
+DIST Gauche-0.9.1.tgz 4239842 RMD160 a51fbd1751c5925aff8f1f0644ab4247c28bd9a5 SHA1 0581b16ffe77fc836c8b56faae0c9820490b17c8 SHA256 9faab73211962dc8d5800aad432542212f73e1dff53ee937359c02c989ede7b5
 DIST Gauche-0.9.tgz 3938498 RMD160 3e0dfc1d498849b0d647e13f49addd0a56cc56fe SHA1 ebc18917c36201d6c3fda29dfdc52fce2d856a5f SHA256 9faa8e79d83152599e945380e874718642d25657803432b5c826a7d3711c9250
 EBUILD gauche-0.8.10.ebuild 1079 RMD160 86e4e3a7e9b1ab63e17842763a68f85e986a61e9 SHA1 6622d2b37ac999d77874257cb212e07f04ddcd63 SHA256 38d132e0c2a03c38b8ca35e6ed5f2424101acb0c3f9977e7d51d2e37bc77e05d
 EBUILD gauche-0.8.14.ebuild 1006 RMD160 ba4fa75f8c00bfe8be1a1e2884bfd153f609b4eb SHA1 0d4901683d05a5fe3141569f47849c3285d87744 SHA256 0f841c32d4274e38cdeac05aa1263517101952e781cec209b4e10636a68a1e30
 EBUILD gauche-0.9-r2.ebuild 1166 RMD160 710315b1ee97f604a60e1c370f573a30b2726a48 SHA1 2d425b460abea234173ceed40fbef13c5993a48c SHA256 18c891e6f0b79657dcadf66f7e3a42438689cb20b55ffe81cd09f52961065e3b
-MISC ChangeLog 11015 RMD160 57b9ea4b6c2b27d8071b64bcf447012ecf1528c3 SHA1 f803b5894597fac27613ce2262e161815ad68c5d SHA256 404407f3a28044add4039703bc3a6d0979d61ec5256f06dea723accf3b6f5cca
+EBUILD gauche-0.9.1.ebuild 1170 RMD160 fdca99f1de6dda0dd09844b19197ff542f67260b SHA1 32a993ec38c1c4f40f42ce76356c89180d7296f7 SHA256 41e1baec4a4459c562d2f29a478e88cf1d84eef9e27508501ece2a8b3aa1dc32
+MISC ChangeLog 11379 RMD160 313a7c9651aec07097a4086d950204d477531d14 SHA1 244cde563006982400431b4b6eec1d2c2dbd9101 SHA256 f5673a9017619d142eed45a494f1dedd3319d54be6f429166788020d17691afb
 MISC metadata.xml 618 RMD160 f3b6bbdae7bcc31493dc39db9f591f13507d3a5e SHA1 fdbb980eb4099af0ad0ce190d9da3a4ea2e41697 SHA256 6d0e517f7647823b2c87f3d25174a04713e5422a6ecf383abfb8ffae7493f70a
diff --git a/dev-scheme/gauche/files/gauche-0.9.1-bzip2-info.diff b/dev-scheme/gauche/files/gauche-0.9.1-bzip2-info.diff
new file mode 100644
index 000000000000..5cfe8d8264d0
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.1-bzip2-info.diff
@@ -0,0 +1,66 @@
+From 49401e54747a1eb3e6d0ad684b01fb289f4fcce0 Mon Sep 17 00:00:00 2001
+From: Shiro Kawai <shiro@acm.org>
+Date: Fri, 18 Feb 2011 23:28:47 +0000
+Subject: support bzip2-ed info
+
+
+diff --git a/lib/gauche/interactive/info.scm b/lib/gauche/interactive/info.scm
+index fa27a5a..926473c 100644
+--- a/lib/gauche/interactive/info.scm
++++ b/lib/gauche/interactive/info.scm
+@@ -83,7 +83,8 @@
+                             :paths paths
+                             :pred (lambda (p)
+                                     (or (file-is-readable? p)
+-                                        (file-is-readable? #`",|p|.gz"))))
++                                        (file-is-readable? #`",|p|.gz")
++                                        (file-is-readable? #`",|p|.bz2"))))
+         (errorf "couldn't find info file ~s in paths: ~s" *info-file* paths))
+     ))
+ 
+diff --git a/lib/text/info.scm b/lib/text/info.scm
+index 4fdc8f5..b433d66 100644
+--- a/lib/text/info.scm
++++ b/lib/text/info.scm
+@@ -62,25 +62,27 @@
+ 
+ ;; Find gunzip location
+ (define gunzip (find-file-in-paths "gunzip"))
++(define bzip2  (find-file-in-paths "bzip2"))
+ 
+ ;; Read an info file FILE, and returns a list of strings splitted by ^_ (#\x1f)
+-;; If FILE is not found, look for gzipped one (FILE.gz) and decompress it.
++;; If FILE is not found, look for compressed one.
+ (define (read-info-file-split file opts)
+   (define (with-input-from-info thunk)
+-    (cond ((file-exists? file)
+-           (with-input-from-file file thunk))
+-          ((file-exists? #`",|file|.gz")
+-           (with-input-from-process #`",gunzip -c ,file" thunk))
+-          (else
+-           (error "can't find info file" file))))
++    (cond [(file-exists? file)
++           (with-input-from-file file thunk)]
++          [(and gunzip (file-exists? #`",|file|.gz"))
++           (with-input-from-process #`",gunzip -c ,file" thunk)]
++          [(and bzip2 (file-exists? #`",|file|.bz2"))
++           (with-input-from-process #`",bzip2 -c -d ,|file|.bz2" thunk)]
++          [else (error "can't find info file" file)]))
+   (with-input-from-info
+    (lambda ()
+-     (let loop ((c (skip-while (char-set-complement #[\x1f])))
+-                (r '()))
++     (let loop ([c (skip-while (char-set-complement #[\x1f]))]
++                [r '()])
+        (if (eof-object? c)
+          (reverse! r)
+-         (let* ((head (next-token #[\x1f\n] '(#[\x1f\n] *eof*)))
+-                (body (next-token #[\n] '(#[\x1f] *eof*))))
++         (let* ([head (next-token #[\x1f\n] '(#[\x1f\n] *eof*))]
++                [body (next-token #[\n] '(#[\x1f] *eof*))])
+            (loop (read-char) (acons head body r)))))))
+   )
+ 
+-- 
+1.7.3.4
+
diff --git a/dev-scheme/gauche/files/gauche-0.9.1-list-queue.diff b/dev-scheme/gauche/files/gauche-0.9.1-list-queue.diff
new file mode 100644
index 000000000000..80fe6bf2f99d
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.1-list-queue.diff
@@ -0,0 +1,22 @@
+From 9dd79566fbff234f43cbc7b01078fd942f9fb31a Mon Sep 17 00:00:00 2001
+From: Shiro Kawai <shiro@acm.org>
+Date: Wed, 22 Dec 2010 08:55:00 +0000
+Subject: fix list->queue bug
+
+
+diff --git a/ext/util/queue.scm b/ext/util/queue.scm
+index 0f35361..12eb88d 100644
+--- a/ext/util/queue.scm
++++ b/ext/util/queue.scm
+@@ -257,7 +257,7 @@
+            (Q_LENGTH q) len)))
+  )
+ 
+-(define (list->queue lis :optional (class <queue>) :rest (initargs '()))
++(define (list->queue lis :optional (class <queue>) :rest initargs)
+   (rlet1 q (apply make class initargs)
+     (%queue-set-content! q (list-copy lis))))
+ 
+-- 
+1.7.3.4
+
diff --git a/dev-scheme/gauche/files/gauche-0.9.1-number.diff b/dev-scheme/gauche/files/gauche-0.9.1-number.diff
new file mode 100644
index 000000000000..53f71172b2ff
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.1-number.diff
@@ -0,0 +1,38 @@
+From da6fc0f158fa9c76e5df675f57b57aa8c7a4b1b7 Mon Sep 17 00:00:00 2001
+From: Shiro Kawai <shiro@acm.org>
+Date: Wed, 2 Feb 2011 14:35:21 +0000
+Subject: correct error estimation of floating point number reader
+
+
+diff --git a/src/number.c b/src/number.c
+index 9a7d8f8..d121edd 100644
+--- a/src/number.c
++++ b/src/number.c
+@@ -3543,6 +3543,7 @@ static double algorithmR(ScmObj f, int e, double z)
+         case -1: /* d2 < y */
+             if (Scm_NumCmp(m, SCM_2_52) == 0
+                 && sign_d < 0
++                && k > -1074
+                 && Scm_NumCmp(Scm_Ash(d2, 1), y) > 0) {
+                 goto prevfloat;
+             } else {
+diff --git a/test/number.scm b/test/number.scm
+index d397630..eb6d7eb 100644
+--- a/test/number.scm
++++ b/test/number.scm
+@@ -270,6 +270,12 @@
+ (test* "flonum reader (minimum denormalized number -5.0e-324)" #t
+        (let1 x (- (expt 2.0 -1074))
+          (= x (string->number (number->string x)))))
++
++;; This hanged in 0.9.1.  See Jens Thiele's message in gauche-devel
++;; in Feb. 2011.
++(test* "flonum reader (minimum normalized number)" #t
++       (= (expt 2.0 (- 52 1074))
++          (string->number "2.2250738585072012e-308")))
+        
+ 
+ (test* "padding" '(10.0 #t) (flonum-test '1#))
+-- 
+1.7.3.4
+
diff --git a/dev-scheme/gauche/files/gauche-0.9.1-vminexact.diff b/dev-scheme/gauche/files/gauche-0.9.1-vminexact.diff
new file mode 100644
index 000000000000..afdfd0a3043b
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.9.1-vminexact.diff
@@ -0,0 +1,23 @@
+From e1139a7ea5fea68520f3b41904bf60093cd6ba1a Mon Sep 17 00:00:00 2001
+From: Shiro Kawai <shiro@acm.org>
+Date: Sun, 27 Feb 2011 11:33:42 +0000
+Subject: fixed binary compatibility of Scm_VMExactToInexact
+
+
+diff --git a/src/gauche/number.h b/src/gauche/number.h
+index b85b72d..f08e631 100644
+--- a/src/gauche/number.h
++++ b/src/gauche/number.h
+@@ -319,7 +319,8 @@ SCM_EXTERN void   Scm_SetDefaultEndian(ScmObj endian);
+ SCM_EXTERN ScmObj Scm_VMNegate(ScmObj obj);
+ SCM_EXTERN ScmObj Scm_VMReciprocal(ScmObj obj);
+ SCM_EXTERN ScmObj Scm_VMReciprocalInexact(ScmObj obj);
+-SCM_EXTERN ScmObj Scm_VMInexact(ScmObj obj);
++SCM_EXTERN ScmObj Scm_VMExactToInexact(ScmObj obj); /* during 0.9 for backward compatibility */
++#define Scm_VMInexact Scm_VMExactToInexact          /* on 1.0, shorter name will be a real name */
+ SCM_EXTERN ScmObj Scm_VMAbs(ScmObj obj);
+ SCM_EXTERN ScmObj Scm_VMAdd(ScmObj arg1, ScmObj arg2);
+ SCM_EXTERN ScmObj Scm_VMSub(ScmObj arg1, ScmObj arg2);
+-- 
+1.7.3.4
+
diff --git a/dev-scheme/gauche/files/gauche-ext-ldflags.diff b/dev-scheme/gauche/files/gauche-ext-ldflags.diff
new file mode 100644
index 000000000000..a9de4114d2bf
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-ext-ldflags.diff
@@ -0,0 +1,11 @@
+--- Gauche-0.9.1.orig/ext/Makefile.ext.in
++++ Gauche-0.9.1/ext/Makefile.ext.in
+@@ -22,7 +22,7 @@
+ LIBS         = $(XLIBS) @LIBS@ 
+ CFLAGS       = @CFLAGS@ @SHLIB_SO_CFLAGS@ $(XCFLAGS)
+ CPPFLAGS     = @CPPFLAGS@ $(XCPPFLAGS)
+-LDFLAGS      = $(LOCAL_LFLAGS) $(XLDFLAGS) @SHLIB_SO_LDFLAGS@
++LDFLAGS      = $(LOCAL_LFLAGS) $(XLDFLAGS) @LDFLAGS@ @SHLIB_SO_LDFLAGS@
+ 
+ # These are set by configure
+ DEFS     = @DEFS@
diff --git a/dev-scheme/gauche/files/gauche-rpath.diff b/dev-scheme/gauche/files/gauche-rpath.diff
new file mode 100644
index 000000000000..ca76cb831234
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-rpath.diff
@@ -0,0 +1,10 @@
+--- Gauche-0.9.1.orig/configure.ac
++++ Gauche-0.9.1/configure.ac
+@@ -709,7 +709,6 @@
+   fi
+   if test "$RPATH_FLAG" != ""; then
+     RPATH_TMP=$RPATH_FLAG'`pwd`'
+-    RPATH_REAL=$RPATH_FLAG'$(LIB_INSTALL_DIR)'
+   fi
+ fi
+ AC_SUBST(RPATH_FLAG)
diff --git a/dev-scheme/gauche/files/gauche-xz-info.diff b/dev-scheme/gauche/files/gauche-xz-info.diff
new file mode 100644
index 000000000000..809879c4cbd8
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-xz-info.diff
@@ -0,0 +1,31 @@
+--- Gauche-0.9.1.orig/lib/gauche/interactive/info.scm
++++ Gauche-0.9.1/lib/gauche/interactive/info.scm
+@@ -84,7 +84,8 @@
+                             :pred (lambda (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))
+     ))
+ 
+--- Gauche-0.9.1.orig/lib/text/info.scm
++++ Gauche-0.9.1/lib/text/info.scm
+@@ -63,6 +63,7 @@
+ ;; Find gunzip location
+ (define gunzip (find-file-in-paths "gunzip"))
+ (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 ^_ (#\x1f)
+ ;; If FILE is not found, look for compressed one.
+@@ -74,6 +75,8 @@
+            (with-input-from-process #`",gunzip -c ,file" 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.1.ebuild b/dev-scheme/gauche/gauche-0.9.1.ebuild
new file mode 100644
index 000000000000..768c8067c982
--- /dev/null
+++ b/dev-scheme/gauche/gauche-0.9.1.ebuild
@@ -0,0 +1,62 @@
+# Copyright 1999-2011 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/gauche-0.9.1.ebuild,v 1.1 2011/05/18 14:11:11 hattya Exp $
+
+EAPI="3"
+
+inherit autotools eutils
+
+IUSE="ipv6"
+
+MY_P="${P/g/G}"
+
+DESCRIPTION="A Unix system friendly Scheme Interpreter"
+HOMEPAGE="http://practical-scheme.net/gauche/"
+SRC_URI="mirror://sourceforge/gauche/${MY_P}.tgz"
+
+LICENSE="BSD"
+KEYWORDS="~amd64 ~ia64 ~ppc ~sparc ~x86 ~amd64-linux ~x86-linux ~x86-macos"
+SLOT="0"
+S="${WORKDIR}/${MY_P}"
+
+DEPEND="sys-libs/gdbm"
+RDEPEND="${DEPEND}"
+
+src_prepare() {
+
+	epatch "${FILESDIR}"/${PN}-rpath.diff
+	epatch "${FILESDIR}"/${PN}-gauche.m4.diff
+	epatch "${FILESDIR}"/${PN}-ext-ldflags.diff
+	epatch "${FILESDIR}"/${P}-*.diff
+	epatch "${FILESDIR}"/${PN}-xz-info.diff
+	eautoconf
+
+}
+
+src_configure() {
+
+	econf \
+		$(use_enable ipv6) \
+		--enable-multibyte=utf8 \
+		--with-slib="${EPREFIX}"/usr/share/slib
+
+}
+
+src_compile() {
+
+	emake -j1 || die
+
+}
+
+src_test() {
+
+	emake -j1 -s check || die
+
+}
+
+src_install() {
+
+	emake DESTDIR="${D}" install-pkg install-doc || die
+	dodoc AUTHORS ChangeLog HACKING README || die
+
+}