| | 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")))) |
~mdw / clg / blame_incremental