| 1 | ;;; -*- Mode: lisp -*- |
| 2 | |
| 3 | (defpackage "GDK-SYSTEM" |
| 4 | (:use "COMMON-LISP" "ASDF" "PKG-CONFIG" "SHAREDLIB")) |
| 5 | |
| 6 | (in-package "GDK-SYSTEM") |
| 7 | |
| 8 | (pkg-exists-p "gtk+-2.0" :atleast-version "2.4.0") |
| 9 | |
| 10 | |
| 11 | (load-shared-library "libgdk_pixbuf-2.0") |
| 12 | (load-shared-library "libgdk-x11-2.0" |
| 13 | :init "gdk_init" |
| 14 | :prototype '(alien:function |
| 15 | c-call:void |
| 16 | alien:system-area-pointer |
| 17 | alien:system-area-pointer) |
| 18 | :initargs (list (system:int-sap 0) (system:int-sap 0))) |
| 19 | |
| 20 | |
| 21 | |
| 22 | (defsystem gdk |
| 23 | :depends-on (glib) |
| 24 | :components ((:file "defpackage") |
| 25 | (:unix-dso "alien" |
| 26 | :components ((:c-source-file "glue" |
| 27 | :cflags #.(pkg-cflags "gtk+-2.0")))) |
| 28 | (:file "gdktypes" :depends-on ("defpackage" "alien")) |
| 29 | (:file "gdkevents" :depends-on ("gdktypes")) |
| 30 | (:file "gdk" :depends-on ("gdkevents")) |
| 31 | (:file "export" :depends-on ("gdkevents" "gdktypes" "gdk")))) |