f11b84f6 |
1 | ;;; -*- Mode: lisp -*- |
2 | |
3 | (asdf:oos 'asdf:load-op :clg-tools) |
4 | |
5 | (defpackage "GLIB-SYSTEM" |
9adccb27 |
6 | (:use "COMMON-LISP" "ASDF" "PKG-CONFIG")) |
f11b84f6 |
7 | |
73572c12 |
8 | #+cmu(ext:unlock-all-packages) |
9 | #+sbcl |
10 | (progn |
11 | (sb-ext:unlock-package "COMMON-LISP") |
12 | (sb-ext:unlock-package "SB-PCL")) |
f11b84f6 |
13 | |
14 | ;;; Better put this in ~/.cmucl-init.lisp or some other file read at startup |
15 | ;; (setf |
16 | ;; (logical-pathname-translations "clg") |
17 | ;; '(("**;*.*.*" "/home/espen/src/clg/**/"))) |
18 | |
f11b84f6 |
19 | (in-package "GLIB-SYSTEM") |
20 | |
21 | (pkg-exists-p "glib-2.0" :atleast-version "2.4.0") |
22 | |
56a1f31a |
23 | (when (string>= (pkg-version "glib-2.0") "2.6.0") |
24 | (push :glib2.6 *features*)) |
f11b84f6 |
25 | |
89b927ec |
26 | (when (string>= (pkg-version "glib-2.0") "2.8.0") |
27 | (push :glib2.8 *features*)) |
28 | |
65466e9c |
29 | #+sbcl |
30 | (when (string>= (lisp-implementation-version) "0.9.8") |
31 | (push :sbcl>=0.9.8 *features*)) |
32 | |
f204f1f5 |
33 | #+(and sbcl (not alien-callbacks)) |
34 | (eval-when (:compile-toplevel :load-toplevel :execute) |
35 | (unless (find-symbol "DEFINE-ALIEN-FUNCTION" "SB-ALIEN") |
36 | (error "You need to upgrade SBCL to a version with native C callback support or see the README file about how to add third party callbacks to your current SBCL version."))) |
37 | |
38 | #+(and sbcl alien-callbacks) |
39 | (eval-when (:compile-toplevel :load-toplevel :execute) |
40 | (when (find-symbol "DEFINE-ALIEN-FUNCTION" "SB-ALIEN") |
41 | (error "Third party C callback code detected in a SBCL image with native callback support. As clg now uses native callbacks when available, you need to use a \"clean\" core file."))) |
42 | |
43 | |
f11b84f6 |
44 | (defsystem glib |
45 | :depends-on (clg-tools) |
46 | :components ((:file "defpackage") |
2518e203 |
47 | #+(and cmu (not non-broken-pcl) (not cmu19b))(:file "pcl") |
56a1f31a |
48 | ;; For preloading to work in glib 2.6, the library needs to |
49 | ;; be configured and build with '--disable-visibility' |
50 | (:unix-dso "preload" |
51 | :components ((:c-source-file "logging" |
52 | :cflags #.(pkg-cflags "glib-2.0")))) |
a3259739 |
53 | (:library "libglib-2.0" |
56a1f31a |
54 | :libdir #.(pkg-variable "glib-2.0" "libdir") |
55 | :depends-on ("preload")) |
a3259739 |
56 | (:library "libgobject-2.0" |
57 | :libdir #.(pkg-variable "glib-2.0" "libdir") |
58 | :depends-on ("libglib-2.0")) |
73572c12 |
59 | (:unix-dso "alien" |
60 | :components ((:c-source-file "callback" |
61 | :cflags #.(pkg-cflags "glib-2.0")) |
62 | (:c-source-file "gobject" |
63 | :cflags #.(pkg-cflags "glib-2.0"))) |
64 | :depends-on ("libgobject-2.0")) |
f11b84f6 |
65 | (:file "utils" :depends-on ("defpackage")) |
a3259739 |
66 | (:file "ffi" :depends-on ("utils")) |
67 | (:file "glib" :depends-on ("ffi" "libglib-2.0")) |
2518e203 |
68 | (:file "proxy" :depends-on (#+(and cmu (not non-broken-pcl) (not cmu19b))"pcl" "glib")) |
73572c12 |
69 | (:file "gtype" :depends-on ("proxy" "alien" "libgobject-2.0")) |
f11b84f6 |
70 | (:file "gboxed" :depends-on ("gtype")) |
71 | (:file "genums" :depends-on ("gtype")) |
72 | (:file "gparam" :depends-on ("genums")) |
f11b84f6 |
73 | (:file "gobject" :depends-on ("gparam")) |
a3259739 |
74 | (:file "ginterface" :depends-on ("gobject")) |
f11b84f6 |
75 | (:file "gcallback" :depends-on ("gtype" "gparam" "gobject" "alien")) |
56a1f31a |
76 | (:file "gerror" :depends-on ("gcallback")) |
77 | (:file "export" :depends-on ("utils" "glib" "proxy" "gboxed" "gtype" "gparam" "gcallback" "genums" "gobject" "gerror")))) |