new upstream release.

(Portage version: 2.1.2.7)

4 files changed, 94 insertions, 1 deletions

diff --git a/dev-scheme/gauche/ChangeLog b/dev-scheme/gauche/ChangeLog
index 8f961048bb06..b801a290bb8d 100644
--- a/dev-scheme/gauche/ChangeLog
+++ b/dev-scheme/gauche/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for dev-scheme/gauche
 # Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/ChangeLog,v 1.6 2007/04/21 15:50:50 armin76 Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/ChangeLog,v 1.7 2007/06/04 09:55:57 hattya Exp $
+
+*gauche-0.8.10 (04 Jun 2007)
+
+  04 Jun 2007; Akinori Hattori <hattya@gentoo.org>
+  +files/gauche-0.8.10-stack-trace.diff, +gauche-0.8.10.ebuild:
+  new upstream release.
 
   21 Apr 2007; Raúl Porcel <armin76@gentoo.org> gauche-0.8.9.ebuild:
   ia64 stable
diff --git a/dev-scheme/gauche/files/digest-gauche-0.8.10 b/dev-scheme/gauche/files/digest-gauche-0.8.10
new file mode 100644
index 000000000000..c7c8346e11bb
--- /dev/null
+++ b/dev-scheme/gauche/files/digest-gauche-0.8.10
@@ -0,0 +1,3 @@
+MD5 8ff2506962808c9e06e5049d2c5c1a0b Gauche-0.8.10.tgz 3184850
+RMD160 95630b50b8269803ea73a3f0c30c2f4a3473f551 Gauche-0.8.10.tgz 3184850
+SHA256 616fa2c337db5de57c95fa1dc5664b2d358fd4695ea9da12f008d014ed5ae9bd Gauche-0.8.10.tgz 3184850
diff --git a/dev-scheme/gauche/files/gauche-0.8.10-stack-trace.diff b/dev-scheme/gauche/files/gauche-0.8.10-stack-trace.diff
new file mode 100644
index 000000000000..ad89b8a87b43
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.8.10-stack-trace.diff
@@ -0,0 +1,24 @@
+=====================
+--- src/main.c.orig	2007-04-11 17:26:55.000000000 -1000
++++ src/main.c	2007-05-03 13:16:21.000000000 -1000
+@@ -473,6 +473,7 @@
+         mainproc = Scm_SymbolValue(Scm_UserModule(),
+                                    SCM_SYMBOL(SCM_INTERN("main")));
+         if (SCM_PROCEDUREP(mainproc)) {
++#if 0
+             int r = Scm_Apply(mainproc, SCM_LIST1(av), &epak);
+             if (r > 0) {
+                 ScmObj res = epak.results[0];
+@@ -482,6 +483,11 @@
+                 Scm_ReportError(epak.exception);
+                 exit_code = 70;  /* EX_SOFTWARE, see SRFI-22. */
+             }
++#else
++            ScmObj r = Scm_ApplyRec(mainproc, SCM_LIST1(av));
++            if (SCM_INTP(r)) exit_code = SCM_INT_VALUE(r);
++            else exit_code = 70;
++#endif
+         }
+     } else {
+         /* We're in interactive mode. (use gauche.interactive) */
+=====================
diff --git a/dev-scheme/gauche/gauche-0.8.10.ebuild b/dev-scheme/gauche/gauche-0.8.10.ebuild
new file mode 100644
index 000000000000..4a924a59ff7d
--- /dev/null
+++ b/dev-scheme/gauche/gauche-0.8.10.ebuild
@@ -0,0 +1,60 @@
+# Copyright 1999-2007 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/gauche-0.8.10.ebuild,v 1.1 2007/06/04 09:55:57 hattya Exp $
+
+inherit autotools eutils flag-o-matic
+
+IUSE="ipv6"
+
+MY_P="${P/g/G}"
+
+DESCRIPTION="A Unix system friendly Scheme Interpreter"
+HOMEPAGE="http://gauche.sf.net/"
+SRC_URI="mirror://sourceforge/gauche/${MY_P}.tgz"
+
+LICENSE="BSD"
+KEYWORDS="~amd64 ~ia64 ~ppc ~sparc ~x86"
+SLOT="0"
+S="${WORKDIR}/${MY_P}"
+
+DEPEND=">=sys-libs/gdbm-1.8.0"
+
+src_unpack() {
+
+	unpack ${A}
+	cd "${S}"
+
+	epatch "${FILESDIR}"/${PN}-gauche.m4.diff
+	epatch "${FILESDIR}"/${PN}-runpath.diff
+	epatch "${FILESDIR}"/${P}-stack-trace.diff
+	eautoconf
+
+}
+
+src_compile() {
+
+	strip-flags
+
+	econf \
+		`use_enable ipv6` \
+		--enable-threads=pthreads \
+		--enable-multibyte=utf8 \
+		--with-slib=/usr/share/slib \
+		|| die
+	emake || die
+
+}
+
+src_test() {
+
+	emake -j1 -s check || die
+
+}
+
+src_install() {
+
+	emake DESTDIR="${D}" install || die
+
+	dodoc AUTHORS ChangeLog HACKING README
+
+}