controler refresh

(Portage version: 2.0.51-r15)

9 files changed, 148 insertions, 0 deletions

diff --git a/dev-lisp/cl-acclaim/ChangeLog b/dev-lisp/cl-acclaim/ChangeLog
new file mode 100644
index 000000000000..15318e4fb87f
--- /dev/null
+++ b/dev-lisp/cl-acclaim/ChangeLog
@@ -0,0 +1,14 @@
+# ChangeLog for dev-lisp/cl-acclaim
+# Copyright 1999-2005 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-acclaim/ChangeLog,v 1.1 2005/02/10 09:18:29 mkennedy Exp $
+
+*cl-acclaim-0.25 (10 Feb 2005)
+
+  10 Feb 2005; Matthew Kennedy <mkennedy@gentoo.org> +metadata.xml,
+  +files/0.25-cmucl-eval-when-gentoo.patch,
+  +files/0.25-load-slides-hint-gentoo.patch,
+  +files/0.25-slides-pathname-gentoo.patch, +files/example.slides,
+  +cl-acclaim-0.25.ebuild:
+  Initial port. Ebuild contributed by Matthew Kennedy <mkennedy@gentoo.org>
+  and ejohnson <human@csufresno.edu>; Resolves Bug #68784
+
diff --git a/dev-lisp/cl-acclaim/Manifest b/dev-lisp/cl-acclaim/Manifest
new file mode 100644
index 000000000000..81945d9ceab0
--- /dev/null
+++ b/dev-lisp/cl-acclaim/Manifest
@@ -0,0 +1,8 @@
+MD5 d9c65ef5f3d30fe1e08fc562f9bad064 ChangeLog 538
+MD5 9b65b0341efc8f4b29498aad23315229 metadata.xml 164
+MD5 68a0482fe6073f7bacb8a77b34b8d81f cl-acclaim-0.25.ebuild 1358
+MD5 3c685caf536806bd890fbe7c9d238155 files/0.25-load-slides-hint-gentoo.patch 721
+MD5 fc56f51b69c789c888afea2e7d85153d files/0.25-cmucl-eval-when-gentoo.patch 549
+MD5 e2cb940952797597f68edeb2b0bc229d files/example.slides 568
+MD5 2960bd7861bbc9b3cb43a14d44faac24 files/0.25-slides-pathname-gentoo.patch 817
+MD5 8f7929a867eb8cc33ccfcb5a2d81e744 files/digest-cl-acclaim-0.25 84
diff --git a/dev-lisp/cl-acclaim/cl-acclaim-0.25.ebuild b/dev-lisp/cl-acclaim/cl-acclaim-0.25.ebuild
new file mode 100644
index 000000000000..fc075fcf1b37
--- /dev/null
+++ b/dev-lisp/cl-acclaim/cl-acclaim-0.25.ebuild
@@ -0,0 +1,49 @@
+# Copyright 1999-2005 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-acclaim/cl-acclaim-0.25.ebuild,v 1.1 2005/02/10 09:18:29 mkennedy Exp $
+
+inherit common-lisp eutils
+
+MY_PV=20040619-01
+
+DESCRIPTION="Acclaim is a presentation program writen in Common Lisp"
+HOMEPAGE="http://androgyn.bl0rg.net/~mgr/acclaim.html"
+SRC_URI="http://androgyn.bl0rg.net/~mgr/resources/acclaim/acclaim-all-you-need_${MY_PV}.tar.bz2"
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~x86"
+IUSE=""
+DEPEND="dev-lisp/cl-clx"
+
+CLPACKAGE=acclaim
+
+S=${WORKDIR}/code
+
+src_unpack() {
+	unpack ${A}
+	epatch ${FILESDIR}/${PV}-slides-pathname-gentoo.patch || die
+	epatch ${FILESDIR}/${PV}-cmucl-eval-when-gentoo.patch || die
+	epatch ${FILESDIR}/${PV}-load-slides-hint-gentoo.patch || die
+	( cd ${S}; cat acclaim.asd ppm.asd >acclaim.asd.new && mv acclaim.asd.new acclaim.asd ) || die
+}
+
+src_install() {
+	common-lisp-install *.lisp *.asd
+	common-lisp-system-symlink
+	insinto /usr/share/doc/${PF}/
+	doins ${FILESDIR}/example.slides
+}
+
+pkg_postinst(){
+	common-lisp_pkg_postinst
+	while read line; do einfo "${line}"; done <<EOF
+
+The Acclaim software wants to initally load a slide definition and
+will tell you so.  There are several sample slides on Max-Gerd's site
+to get you started: http://androgyn.bl0rg.net/~mgr/acclaim.html
+
+Alternatively you can use the example slides installed as
+/usr/share/doc/${PF}/example.slides
+
+EOF
+}
diff --git a/dev-lisp/cl-acclaim/files/0.25-cmucl-eval-when-gentoo.patch b/dev-lisp/cl-acclaim/files/0.25-cmucl-eval-when-gentoo.patch
new file mode 100644
index 000000000000..b9664f26ed77
--- /dev/null
+++ b/dev-lisp/cl-acclaim/files/0.25-cmucl-eval-when-gentoo.patch
@@ -0,0 +1,15 @@
+--- code/image-reader.lisp~     2004-06-11 17:57:44.000000000 -0500
++++ code/image-reader.lisp      2004-12-21 23:08:14.000000000 -0600
+@@ -129,10 +129,10 @@
+
+ ;;;; Images
+ ;; Protocol class
+-
++(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defclass image ()
+   ((max-level :initarg :max-level :type card-8 :reader image-max-level)
+-   (pixels :initarg :pixels :type pixarray :reader image-pixels)))
++   (pixels :initarg :pixels :type pixarray :reader image-pixels))))
+
+ (defgeneric image-width (image))
+ (defgeneric image-height (image))
diff --git a/dev-lisp/cl-acclaim/files/0.25-load-slides-hint-gentoo.patch b/dev-lisp/cl-acclaim/files/0.25-load-slides-hint-gentoo.patch
new file mode 100644
index 000000000000..a5a297cd74e4
--- /dev/null
+++ b/dev-lisp/cl-acclaim/files/0.25-load-slides-hint-gentoo.patch
@@ -0,0 +1,11 @@
+--- code/acclaim.lisp~	2004-06-18 20:47:09.000000000 -0500
++++ code/acclaim.lisp	2004-12-22 01:50:22.123494427 -0600
+@@ -820,7 +820,7 @@
+ 			    collect (apply #'make-element nil nil form))))))
+ 	;; add page numbers to the slidesets
+ 	(mapcar #'add-page-numbers-to-slideset *slidesets*))
+-    (format *trace-output* "Could not load slides definition as the file ~a is not existing.~%Please load one using (load-slide pathname) before starting the slide show with (run)."
++    (format *trace-output* "Could not load slides definition as the file ~a is not existing.~%Please load one using (acclaim::load-slides pathname) before starting the slide show with (run)."
+ 	    *slides-pathname*)))
+ 
+ (load-slides) ;; <---- !!!
diff --git a/dev-lisp/cl-acclaim/files/0.25-slides-pathname-gentoo.patch b/dev-lisp/cl-acclaim/files/0.25-slides-pathname-gentoo.patch
new file mode 100644
index 000000000000..27063ed5b546
--- /dev/null
+++ b/dev-lisp/cl-acclaim/files/0.25-slides-pathname-gentoo.patch
@@ -0,0 +1,18 @@
+--- /var/tmp/portage/cl-acclaim-0.24/work/code/acclaim.lisp	2004-06-18 18:47:09.000000000 -0700
++++ /home/ejohnson/code/acclaim.lisp	2004-10-26 17:29:07.052686752 -0700
+@@ -188,8 +188,13 @@
+ ;;
+ 
+ ;; Set this variable to non-nil if the slides should be loaded directly at load-time:
+-(defvar *slides-pathname*
+-  #p"/home/mgr/daten/coding/lisp/acclaim/slides/lisp-ist-toll.slides")
++(defvar *slides-pathname* nil)
++
++;; Added to create a .acclaimrc file which can be used to (setf *slides-pathname* "/path/to/slides") 
++(load (merge-pathnames
++                   (user-homedir-pathname) ; in cmucl I could have put "home:.acclaim"
++                   ".acclaim")              ; but I'm not sure if this is implementation specific
++      :if-does-not-exist nil)
+ 
+ ;;;;;;;;;;;;;;;;;;;;;;;
+ ;; Far too many variables..
diff --git a/dev-lisp/cl-acclaim/files/digest-cl-acclaim-0.25 b/dev-lisp/cl-acclaim/files/digest-cl-acclaim-0.25
new file mode 100644
index 000000000000..6e6e2c98d813
--- /dev/null
+++ b/dev-lisp/cl-acclaim/files/digest-cl-acclaim-0.25
@@ -0,0 +1 @@
+MD5 fc51e4222cea5b18359da4ea8b59ab3d acclaim-all-you-need_20040619-01.tar.bz2 13557
diff --git a/dev-lisp/cl-acclaim/files/example.slides b/dev-lisp/cl-acclaim/files/example.slides
new file mode 100644
index 000000000000..926be258f24a
--- /dev/null
+++ b/dev-lisp/cl-acclaim/files/example.slides
@@ -0,0 +1,27 @@
+;; -*- Mode: Lisp; -*-
+
+((slideset
+  :configuration
+  ((title :fontname "-*-helvetica-medium-r-*-*-*-180-*-*-*-*-*-*")
+   (pre :fontname
+	"fixed"
+	:color "Beige")
+   (tt :fontname
+       "-*-helvetica-medium-r-*-*-*-180-*-*-*-*-*-*")
+   (slide :fontname
+	  "fixed"
+	  :bg-color "midnightblue")))
+ 
+ (slide
+  (p "")
+  (title (center "Simple Demonstation of Acclaim"))
+  (p "")
+  (p (center "Matthew Kennedy <mkennedy@gentoo.org>"))
+  (br))
+
+ (slide
+  (p "")
+  (title (center "This is the second slide."))
+  (p "")
+  (p (center "This is also the last slide."))
+  (br)))
diff --git a/dev-lisp/cl-acclaim/metadata.xml b/dev-lisp/cl-acclaim/metadata.xml
new file mode 100644
index 000000000000..f418045b09c8
--- /dev/null
+++ b/dev-lisp/cl-acclaim/metadata.xml
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+<herd>common-lisp</herd>
+</pkgmetadata>