From 38c604ec4b161103576e1ecad95d67209da2967c Mon Sep 17 00:00:00 2001 Message-Id: <38c604ec4b161103576e1ecad95d67209da2967c.1713962511.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 27 Oct 2004 18:40:26 +0000 Subject: [PATCH] Initial checkin Organization: Straylight/Edgeware From: espen --- gdk/gdk.asd | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 gdk/gdk.asd diff --git a/gdk/gdk.asd b/gdk/gdk.asd new file mode 100644 index 0000000..2ff5130 --- /dev/null +++ b/gdk/gdk.asd @@ -0,0 +1,31 @@ +;;; -*- Mode: lisp -*- + +(defpackage "GDK-SYSTEM" + (:use "COMMON-LISP" "ASDF" "PKG-CONFIG" "SHAREDLIB")) + +(in-package "GDK-SYSTEM") + +(pkg-exists-p "gtk+-2.0" :atleast-version "2.4.0") + + +(load-shared-library "libgdk_pixbuf-2.0") +(load-shared-library "libgdk-x11-2.0" + :init "gdk_init" + :prototype '(alien:function + c-call:void + alien:system-area-pointer + alien:system-area-pointer) + :initargs (list (system:int-sap 0) (system:int-sap 0))) + + + +(defsystem gdk + :depends-on (glib) + :components ((:file "defpackage") + (:unix-dso "alien" + :components ((:c-source-file "glue" + :cflags #.(pkg-cflags "gtk+-2.0")))) + (:file "gdktypes" :depends-on ("defpackage" "alien")) + (:file "gdkevents" :depends-on ("gdktypes")) + (:file "gdk" :depends-on ("gdkevents")) + (:file "export" :depends-on ("gdkevents" "gdktypes" "gdk")))) -- [mdw]