7 files changed, 172 insertions, 0 deletions
diff --git a/dev-lisp/cl-lambda-gtk/ChangeLog b/dev-lisp/cl-lambda-gtk/ChangeLog
new file mode 100644
index 000000000000..6a8e768cf918
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/ChangeLog
@@ -0,0 +1,10 @@
+# ChangeLog for dev-lisp/cl-lambda-gtk
+# Copyright 1999-2005 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-lambda-gtk/ChangeLog,v 1.1 2005/03/07 11:05:24 mkennedy Exp $
+
+*cl-lambda-gtk-0.1 (07 Mar 2005)
+
+  07 Mar 2005; Matthew Kennedy <mkennedy@gentoo.org>
+  +files/0.1-gentoo.patch, +files/README.Gentoo, +cl-lambda-gtk-0.1.ebuild:
+  Initial port. Ebuild contributed by Matthew Kennedy <mkennedy@gentoo.org>
+
diff --git a/dev-lisp/cl-lambda-gtk/Manifest b/dev-lisp/cl-lambda-gtk/Manifest
new file mode 100644
index 000000000000..89e2f1cb91c6
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/Manifest
@@ -0,0 +1,6 @@
+MD5 82c4fe2dd3f34d27e97269a364d39610 cl-lambda-gtk-0.1.ebuild 986
+MD5 94b5940cc7433ce25b2d741d6d33a6ed metadata.xml 906
+MD5 5faf043679048cc3426d2131eef327ff ChangeLog 459
+MD5 283146548f901ac7bda49bf6c496cd0f files/0.1-gentoo.patch 2634
+MD5 e6107896e8fe6ac2e94cb60d8dd33948 files/digest-cl-lambda-gtk-0.1 66
+MD5 87f7490d96a1c2ac73a66a19b9ff9594 files/README.Gentoo 879
diff --git a/dev-lisp/cl-lambda-gtk/cl-lambda-gtk-0.1.ebuild b/dev-lisp/cl-lambda-gtk/cl-lambda-gtk-0.1.ebuild
new file mode 100644
index 000000000000..ad9d780c53e3
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/cl-lambda-gtk-0.1.ebuild
@@ -0,0 +1,34 @@
+# Copyright 1999-2005 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-lisp/cl-lambda-gtk/cl-lambda-gtk-0.1.ebuild,v 1.1 2005/03/07 11:05:24 mkennedy Exp $
+
+inherit common-lisp eutils
+
+DESCRIPTION="Lambda-GTK is a cross-platform Common Lisp interface to GTK+2."
+HOMEPAGE="http://common-lisp.net/project/lambda-gtk/"
+SRC_URI="ftp://common-lisp.net/pub/project/lambda-gtk/lambda-gtk-${PV}.tar.gz"
+LICENSE="LLGPL-2.1"
+SLOT="0"
+KEYWORDS="~x86"
+IUSE=""
+
+DEPEND="dev-lisp/common-lisp-controller
+	virtual/commonlisp"
+
+CLPACKAGE=lambda-gtk
+
+S=${WORKDIR}/lambda-gtk-${PV}
+
+src_unpack() {
+	unpack ${A}
+	epatch ${FILESDIR}/${PV}-gentoo.patch || die
+}
+
+src_install() {
+	common-lisp-install *.asd *.lisp
+	common-lisp-system-symlink
+	dosym /usr/share/common-lisp/source/lambda-gtk/lambda-gtk.asd \
+		/usr/share/common-lisp/systems/lambda-gtk-examples.asd
+	dohtml lambda-gtk.html
+	dodoc llgpl.text ${FILESDIR}/README.Gentoo
+}
diff --git a/dev-lisp/cl-lambda-gtk/files/0.1-gentoo.patch b/dev-lisp/cl-lambda-gtk/files/0.1-gentoo.patch
new file mode 100644
index 000000000000..b1cb4f2a7c24
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/files/0.1-gentoo.patch
@@ -0,0 +1,70 @@
+diff -urN lambda-gtk-0.1.orig/examples.lisp lambda-gtk-0.1/examples.lisp
+--- lambda-gtk-0.1.orig/examples.lisp	2004-11-30 07:30:55.000000000 -0600
++++ lambda-gtk-0.1/examples.lisp	2005-03-05 15:18:20.000000000 -0600
+@@ -6,6 +6,8 @@
+ ;;;
+ ;;; Example 1, Hello World
+ 
++(in-package gtk-user)
++
+ (gtk:define-signal-handler bye1 :void (widget data)
+   widget data  ; stop unused var compiler nagging
+   (format t "bye!~%")
+diff -urN lambda-gtk-0.1.orig/gtkffi-cmusbcl.lisp lambda-gtk-0.1/gtkffi-cmusbcl.lisp
+--- lambda-gtk-0.1.orig/gtkffi-cmusbcl.lisp	2004-11-30 07:25:43.000000000 -0600
++++ lambda-gtk-0.1/gtkffi-cmusbcl.lisp	2005-03-05 15:19:40.000000000 -0600
+@@ -8,9 +8,10 @@
+ ;;; located and *gtk-libfiles* better agree with whatever the unix
+ ;;; command 'pkg-config gtk+-2.0 --libs' returns on your system.
+ 
+-(in-package :cl-user)
++(in-package :gtk-user)
++
+ (eval-when (:compile-toplevel :load-toplevel :execute)
+-  (export '(*gtk-libdir* *gtk-libfiles*) :cl-user)
++  (export '(*gtk-libdir* *gtk-libfiles*) :gtk-user)
+   (defvar *gtk-libdir* #+:darwin "/sw/lib/" #-:darwin "/usr/lib/")
+   (defvar *gtk-libfiles* 
+     '("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0"
+@@ -34,7 +35,7 @@
+              p
+              (error "Library ~S not found. Either GTK is not installed or else cl-user:*gtk-libdir* needs to be set to the directory containing GTK on your machine." p))))
+   #+:sbcl
+-  (dolist (l *gtk-libfiles*) (load-shared-object (libpath l)))
++  (dolist (l *gtk-libfiles*) (sb-alien:load-shared-object (libpath l)))
+   #+:cmu
+   (dolist (l *gtk-libfiles*) (ext:load-foreign (libpath l)))))
+ 
+diff -urN lambda-gtk-0.1.orig/lambda-gtk.asd lambda-gtk-0.1/lambda-gtk.asd
+--- lambda-gtk-0.1.orig/lambda-gtk.asd	1969-12-31 18:00:00.000000000 -0600
++++ lambda-gtk-0.1/lambda-gtk.asd	2005-03-06 14:53:05.000000000 -0600
+@@ -0,0 +1,17 @@
++;;;; -*- mode: lisp; package: common-lisp -*-
++
++(defpackage lambda-gtk-system
++  (:use #:common-lisp
++        #:asdf))
++
++(in-package lambda-gtk-system)
++
++(defsystem lambda-gtk
++  :components ((:file "packages")
++	       (:file "gtkffi-cmusbcl" :depends-on ("packages"))))
++
++(defsystem lambda-gtk-examples
++  :components ((:file "examples"))
++  :depends-on (lambda-gtk))
++
++;;;; lambda-gtk.asd ends here
+diff -urN lambda-gtk-0.1.orig/packages.lisp lambda-gtk-0.1/packages.lisp
+--- lambda-gtk-0.1.orig/packages.lisp	1969-12-31 18:00:00.000000000 -0600
++++ lambda-gtk-0.1/packages.lisp	2005-03-05 15:12:36.000000000 -0600
+@@ -0,0 +1,8 @@
++;;;; -*- mode: lisp; package: common-lisp -*-
++
++(in-package common-lisp)
++
++(defpackage gtk-user
++  (:use :common-lisp))
++
++;;;; packages.lisp ends here
diff --git a/dev-lisp/cl-lambda-gtk/files/README.Gentoo b/dev-lisp/cl-lambda-gtk/files/README.Gentoo
new file mode 100644
index 000000000000..71921f97ca46
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/files/README.Gentoo
@@ -0,0 +1,27 @@
+                                                            -*- outline -*-
+* Gentoo Specific Notes
+
+** "The SBCL patch"
+
+For Lambda-GTK to work on SBCL, a 3rd party patch is required for SBCL.  You can
+enable this patch in SBCL via the "callbacks" USE flag.
+
+** Generation of the FFI interface
+
+The Gentoo port uses the default API target distributed with Lambda-GTK.
+
+** Avoiding the CL-USER namespace
+
+The Gentoo port includes an ASDF system which includes code to create a new
+package "GTK-USER".  Symbols originally exported to the CL-USER package
+namespace are instead exported to the GTK-USER package namespace.  The idea here
+is to preserve CL-USER for the end user.
+
+** Examples
+
+Examples included with Lambda-GTK are available via the LAMBDA-GTK-EXAMPLES
+definition system. ie.
+
+    (asdf:oos 'asdf:load-op :lambda-gtk-examples)
+    (gtk-user::scribble-simple)
+    ...
diff --git a/dev-lisp/cl-lambda-gtk/files/digest-cl-lambda-gtk-0.1 b/dev-lisp/cl-lambda-gtk/files/digest-cl-lambda-gtk-0.1
new file mode 100644
index 000000000000..04f03a2b9948
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/files/digest-cl-lambda-gtk-0.1
@@ -0,0 +1 @@
+MD5 4893f3947438136ba6860d7b546b4ffb lambda-gtk-0.1.tar.gz 387668
diff --git a/dev-lisp/cl-lambda-gtk/metadata.xml b/dev-lisp/cl-lambda-gtk/metadata.xml
new file mode 100644
index 000000000000..22f4345a5d0e
--- /dev/null
+++ b/dev-lisp/cl-lambda-gtk/metadata.xml
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+<herd>common-lisp</herd>
+<longdescription>
+λgtk is a cross-platform Lisp interface to the complete GTK+2 family of shared
+libraries.  λgtk provides Lisp programmers with the following set of features:
+
+    * Portable GUI programming across the supported Lisp environments.
+
+    * Automatic conversion between Lisp data (booleans, numbers, strings) and
+      their equivalent GTK types.
+
+    * Lisp names for GTK's enums, structs and functions. 
+
+    * Lisp accessor functions to read/write slot values in GTK structs.
+
+    * Lisp symbol package(s) that export the GTK API and a read time conditional
+      #+:gtk in *features*.
+
+    * A small set of utilities for working with GTK pointers, callbacks and
+      foreign storage in a portable way.
+</longdescription>
+</pkgmetadata>