*** empty log message ***

6 files changed, 149 insertions, 0 deletions

diff --git a/dev-lisp/cl-clx/ChangeLog b/dev-lisp/cl-clx/ChangeLog
new file mode 100644
index 000000000000..76af413ea637
--- /dev/null
+++ b/dev-lisp/cl-clx/ChangeLog
@@ -0,0 +1,10 @@
+# ChangeLog for dev-lisp/cl-clx
+# Copyright 1999-2004 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-clx/ChangeLog,v 1.1 2004/12/14 21:46:53 mkennedy Exp $
+
+*cl-clx-0.6 (14 Dec 2004)
+
+  14 Dec 2004; Matthew Kennedy <mkennedy@gentoo.org> +metadata.xml,
+  +files/0.6-gentoo.patch, +cl-clx-0.6.ebuild:
+  Initial port.  Ebuild contributed by Matthew Kennedy <mkennedy@gentoo.org>
+
diff --git a/dev-lisp/cl-clx/Manifest b/dev-lisp/cl-clx/Manifest
new file mode 100644
index 000000000000..5566120164d3
--- /dev/null
+++ b/dev-lisp/cl-clx/Manifest
@@ -0,0 +1,5 @@
+MD5 259f05398bfa0dec1093b1c9041a508c cl-clx-0.6.ebuild 883
+MD5 f42d8de2ab5a92fed410b31df24a9cae ChangeLog 336
+MD5 288135e37690bedcc1d596787cf11501 metadata.xml 666
+MD5 57d788a467c69678d85c9e20a042985c files/digest-cl-clx-0.6 59
+MD5 f77cffb371a0b135063057e9221be612 files/0.6-gentoo.patch 3047
diff --git a/dev-lisp/cl-clx/cl-clx-0.6.ebuild b/dev-lisp/cl-clx/cl-clx-0.6.ebuild
new file mode 100644
index 000000000000..cb387ee47b8f
--- /dev/null
+++ b/dev-lisp/cl-clx/cl-clx-0.6.ebuild
@@ -0,0 +1,36 @@
+# Copyright 1999-2004 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-clx/cl-clx-0.6.ebuild,v 1.1 2004/12/14 21:46:53 mkennedy Exp $
+
+inherit common-lisp eutils
+
+DESCRIPTION="Portable CLX"
+HOMEPAGE="http://ftp.linux.org.uk/pub/lisp/sbcl/ http://www.cliki.net/CLX"
+SRC_URI="http://ftp.linux.org.uk/pub/lisp/sbcl/clx_${PV}.tar.gz"
+
+LICENSE="as-is"
+SLOT="0"
+KEYWORDS="~x86 ~ppc"
+IUSE=""
+
+DEPEND="dev-lisp/common-lisp-controller"
+
+CLPACKAGE=clx
+
+S=${WORKDIR}/clx_${PV}
+
+src_unpack() {
+	unpack ${A}
+	epatch ${FILESDIR}/${PV}-gentoo.patch || die
+}
+
+src_install() {
+	for i in . demo test debug; do
+		insinto /usr/share/common-lisp/source/clx/${i}
+		doins ${S}/${i}/*.lisp
+	done
+	insinto /usr/share/common-lisp/source/clx
+	doins clx.asd
+	common-lisp-system-symlink
+	dodoc CHANGES NEWS README*
+}
diff --git a/dev-lisp/cl-clx/files/0.6-gentoo.patch b/dev-lisp/cl-clx/files/0.6-gentoo.patch
new file mode 100644
index 000000000000..942be12babd1
--- /dev/null
+++ b/dev-lisp/cl-clx/files/0.6-gentoo.patch
@@ -0,0 +1,78 @@
+diff -ur clx_0.6.orig/clx.asd clx_0.6/clx.asd
+--- clx_0.6.orig/clx.asd	2004-11-16 07:08:26.000000000 -0600
++++ clx_0.6/clx.asd	2004-12-14 14:28:38.710914897 -0600
+@@ -35,7 +35,7 @@
+ (defclass legacy-file (static-file) ())
+ 
+ (defsystem CLX
+-    :depends-on (sb-bsd-sockets)
++    :depends-on (#+sbcl sb-bsd-sockets)
+     :version "0.6"
+     :serial t
+     :default-component-class clx-source-file
+@@ -89,23 +89,6 @@
+ 	      ((:file "image")
+ 	       ;; KLUDGE: again, this depends on "zoid"
+ 	       (:file "trapezoid")))
+-     (:static-file "NEWS")
+-     (:static-file "CHANGES")
+-     (:static-file "README")
+-     (:static-file "README-R5")
+-     (:legacy-file "exclMakefile")
+-     (:legacy-file "exclREADME")
+-     (:legacy-file "exclcmac" :pathname "exclcmac.lisp")
+-     (:legacy-file "excldepc" :pathname "excldep.c")
+-     (:legacy-file "excldep" :pathname "excldep.lisp")
+-     (:legacy-file "sockcl" :pathname "sockcl.lisp")
+-     (:legacy-file "socket" :pathname "socket.c")
+-     (:legacy-file "defsystem" :pathname "defsystem.lisp")
+-     (:legacy-file "provide" :pathname "provide.lisp")
+-     (:legacy-file "cmudep" :pathname "cmudep.lisp")
+-     (:module manual
+-	      ;; TODO: teach asdf how to process texinfo files
+-	      :components ((:static-file "clx.texinfo")))
+      (:module debug
+ 	      :default-component-class legacy-file
+ 	      :components
+diff -ur clx_0.6.orig/depdefs.lisp clx_0.6/depdefs.lisp
+--- clx_0.6.orig/depdefs.lisp	2003-06-05 15:18:22.000000000 -0500
++++ clx_0.6/depdefs.lisp	2004-12-14 14:28:38.712914713 -0600
+@@ -400,10 +400,10 @@
+ (eval-when (:compile-toplevel :load-toplevel :execute)
+   ;; FIXME: maybe we should reevaluate this?
+   (defvar *def-clx-class-use-defclass*
+-    #+Genera t
++    #+(or Genera sbcl) t
+     #+(and cmu pcl) '(XLIB:DRAWABLE XLIB:WINDOW XLIB:PIXMAP)
+     #+(and cmu (not pcl)) nil
+-    #-(or Genera cmu) nil
++    #-(or Genera cmu sbcl) nil
+     "Controls whether DEF-CLX-CLASS uses DEFCLASS.
+ 
+ If it is a list, it is interpreted by DEF-CLX-CLASS to be a list of
+diff -ur clx_0.6.orig/dependent.lisp clx_0.6/dependent.lisp
+--- clx_0.6.orig/dependent.lisp	2004-06-11 07:18:17.000000000 -0500
++++ clx_0.6/dependent.lisp	2004-12-14 14:51:54.396309754 -0600
+@@ -3092,7 +3092,7 @@
+ (defmacro with-underlying-simple-vector 
+     ((variable element-type pixarray) &body body)
+   (declare (ignore element-type))
+-  `(#+cmu kernel::with-array-data #+sbcl sb-kernel:with-array-data
++  `(#+cmu lisp::with-array-data #+sbcl sb-kernel:with-array-data
+     ((,variable ,pixarray) (start) (end))
+     (declare (ignore start end))
+     ,@body))
+@@ -3505,11 +3505,11 @@
+ 			     height width)
+   (declare (type array-index source-width sx sy dest-width dx dy height width))
+   #.(declare-buffun)
+-  (kernel::with-array-data ((sdata source)
++  (lisp::with-array-data ((sdata source)
+ 				 (sstart)
+ 				 (send))
+     (declare (ignore send))
+-    (kernel::with-array-data ((ddata dest)
++    (lisp::with-array-data ((ddata dest)
+ 				   (dstart)
+ 				   (dend))
+       (declare (ignore dend))
diff --git a/dev-lisp/cl-clx/files/digest-cl-clx-0.6 b/dev-lisp/cl-clx/files/digest-cl-clx-0.6
new file mode 100644
index 000000000000..8bc824de0d3c
--- /dev/null
+++ b/dev-lisp/cl-clx/files/digest-cl-clx-0.6
@@ -0,0 +1 @@
+MD5 5aeceafdbf727ba99c5b02cb3156021b clx_0.6.tar.gz 378268
diff --git a/dev-lisp/cl-clx/metadata.xml b/dev-lisp/cl-clx/metadata.xml
new file mode 100644
index 000000000000..60e063702b53
--- /dev/null
+++ b/dev-lisp/cl-clx/metadata.xml
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+<herd>common-lisp</herd>
+<longdescription>
+CLX is an X11 client library for Common Lisp. The code was originally
+taken from a CMUCL distribution, was modified somewhat in order to
+make it compile and run under SBCL and other implementation, then a
+selection of patches were added from other CLXes around the net.  Main
+features:
+
+ - SHAPE extension
+ - XFREE86-VIDMODE extension
+ - experimental RENDER extension
+ - X Authority support that works with SSH forwarding
+
+CLX is to Common Lisp, what xlib is to C.
+</longdescription>
+</pkgmetadata>