38c604ec |
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")))) |