Extract date of last update from ChangeLog, fixes bug 233270.

(Portage version: 2.2_rc3/cvs/Linux 2.6.25-gentoo-r6 i686)

3 files changed, 38 insertions, 4 deletions

diff --git a/app-emacs/slime/ChangeLog b/app-emacs/slime/ChangeLog
index 2d8f5e190047..9c5acd727a03 100644
--- a/app-emacs/slime/ChangeLog
+++ b/app-emacs/slime/ChangeLog
@@ -1,6 +1,13 @@
 # ChangeLog for app-emacs/slime
 # Copyright 2000-2008 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/ChangeLog,v 1.54 2008/07/07 17:09:44 ulm Exp $
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/ChangeLog,v 1.55 2008/07/30 09:12:29 ulm Exp $
+
+*slime-2.0_p20070816-r2 (30 Jul 2008)
+
+  30 Jul 2008; Ulrich Mueller <ulm@gentoo.org>
+  +files/slime-changelog-date.patch, -slime-2.0_p20070816-r1.ebuild,
+  +slime-2.0_p20070816-r2.ebuild:
+  Extract date of last update from ChangeLog, fixes bug 233270.
 
   07 Jul 2008; Ulrich Mueller <ulm@gentoo.org> slime-2.0_p20061118.ebuild,
   slime-2.0_p20070816-r1.ebuild:
diff --git a/app-emacs/slime/files/slime-changelog-date.patch b/app-emacs/slime/files/slime-changelog-date.patch
new file mode 100644
index 000000000000..bf816bc771e2
--- /dev/null
+++ b/app-emacs/slime/files/slime-changelog-date.patch
@@ -0,0 +1,17 @@
+--- slime-2.0_p20070816-old/slime.el	2008-07-30 10:37:28.000000000 +0200
++++ slime-2.0_p20070816/slime.el	2008-07-30 10:39:53.000000000 +0200
+@@ -113,13 +113,7 @@
+   (defun slime-changelog-date ()
+     "Return the datestring of the latest entry in the ChangeLog file.
+ Return nil if the ChangeLog file cannot be found."
+-    (let ((changelog (concat slime-path "ChangeLog")))
+-      (if (file-exists-p changelog)
+-          (with-temp-buffer 
+-            (insert-file-contents changelog nil 0 100)
+-            (goto-char (point-min))
+-            (symbol-name (read (current-buffer))))
+-        nil))))
++    "@SLIME-CHANGELOG-DATE@"))
+ 
+ (defvar slime-protocol-version nil)
+ (setq slime-protocol-version
diff --git a/app-emacs/slime/slime-2.0_p20070816-r1.ebuild b/app-emacs/slime/slime-2.0_p20070816-r2.ebuild
index d3475432f287..41bb3815f064 100644
--- a/app-emacs/slime/slime-2.0_p20070816-r1.ebuild
+++ b/app-emacs/slime/slime-2.0_p20070816-r2.ebuild
@@ -1,6 +1,6 @@
 # Copyright 1999-2008 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/slime-2.0_p20070816-r1.ebuild,v 1.5 2008/07/07 17:09:44 ulm Exp $
+# $Header: /var/cvsroot/gentoo-x86/app-emacs/slime/slime-2.0_p20070816-r2.ebuild,v 1.1 2008/07/30 09:12:29 ulm Exp $
 
 inherit common-lisp elisp eutils
 
@@ -24,9 +24,19 @@ SITEFILE=71${PN}-gentoo.el
 src_unpack() {
 	unpack ${A}
 	cd "${S}"
-	epatch "${FILESDIR}"/slime-set-swank-wire-protocol-version.patch
+	epatch "${FILESDIR}"/${PN}-set-swank-wire-protocol-version.patch
+	epatch "${FILESDIR}"/${PN}-changelog-date.patch
 	epatch "${FILESDIR}"/${P}-save-restriction-if-possible.patch
-	sed -i "s:@SWANK-WIRE-PROTOCOL-VERSION@:${SWANK_VERSION}:" swank.lisp
+
+	# extract date of last update from ChangeLog, bug 233270
+	SLIME_CHANGELOG_DATE=$(sed -n \
+		's/^\([0-9]\{4\}-[0-9]\{2\}-[0-9]\{2\}\)[ \t].*/\1/;T;p;q' ChangeLog)
+	[ -n "${SLIME_CHANGELOG_DATE}" ] || die "cannot determine ChangeLog date"
+
+	sed -i "s:@SWANK-WIRE-PROTOCOL-VERSION@:${SWANK_VERSION}:" swank.lisp \
+		|| die "sed swank.lisp failed"
+	sed -i "s:@SLIME-CHANGELOG-DATE@:${SLIME_CHANGELOG_DATE}:" slime.el \
+		|| die "sed slime.el failed"
 }
 
 src_compile() {