3 (defpackage "CLG-SYSTEM"
4 (:use "COMMON-LISP" "EXTENSIONS" "ALIEN")
5 (:export "*GTK-LIBRARY-PATH*"))
7 (in-package "CLG-SYSTEM")
9 ;; We used to do this, but I think it's better if everybody puts such
10 ;; definitions in his/her own Lisp startup files so that clg.system
11 ;; can be used without local modifications.
13 ; (logical-pathname-translations "clg")
14 ; '(("**;*.*.*" "/home/espen/src/clg/**/*.*.*")))
16 ;; Uncomment and edit the next line if pkg-config needs to search for
17 ;; .pc files in directories other than the default (/usr/lib/pkgconfig)
18 ;(push '(:PKG_CONFIG_PATH . "/opt/gnome/lib/pkgconfig") ext:*environment-list*)
20 (load "clg:tools;config")
21 (load "clg:tools;sharedlib")
23 (defvar *gtk-library-path* (pkg-variable "gtk+-2.0" "libdir"))
24 (defvar *cmucl-include-path* (ext:unix-namestring "target:lisp"))
26 ;; Without this, MAKE uses "CLG:glib;.err" as a namestring, which fails.
27 ;; TODO: Find and fix the bug, then remove this.
28 (setq mk::*cmu-errors-to-file* nil)
34 (pkg-exists-p "glib-2.0" :atleast-version "2.0.0")
35 (pkg-exists-p "pango" :atleast-version "1.0.0")
36 (pkg-exists-p "atk" :atleast-version "1.0.0")
37 (pkg-exists-p "gtk+-2.0" :atleast-version "2.0.0"))
38 :source-pathname "clg:"
39 :binary-pathname "clg:"
42 :components ("autoexport"))
43 (:file "pcl" :source-pathname "glib;" :binary-pathname "glib;")
47 (load-shared-library "libglib-2.0.so")
48 (load-shared-library "libgobject-2.0.so" :init "g_type_init"))
55 (:cflags ,(pkg-cflags "glib-2.0")
57 :definitions (#+cmu CMUCL)
58 :include-paths (,*cmucl-include-path*)))
59 (:file "glib-package")
60 (:file "gutils" :depends-on ("glib-package"))
61 (:file "gforeign" :depends-on ("gutils"))
62 (:file "glib" :depends-on ("gforeign"))
63 (:file "proxy" :depends-on ("glib"))
64 (:file "gtype" :depends-on ("proxy"))
65 (:file "gboxed" :depends-on ("gtype"))
66 (:file "genums" :depends-on ("gtype"))
67 (:file "gparam" :depends-on ("genums"))
68 (:file "ginterface" :depends-on ("gtype"))
69 (:file "gobject" :depends-on ("gparam"))
70 (:file "gcallback" :depends-on ("gtype" "gparam" "gobject" "callback"))
73 ("gutils" "glib" "proxy" "gboxed" "gtype" "gparam" "gcallback"
75 :depends-on (tools "pcl"))
77 :source-pathname "gdk;"
78 :binary-pathname "gdk;"
81 (load-shared-library "libgdk_pixbuf-2.0.so")
82 (load-shared-library "libgdk-x11-2.0.so"
88 :initargs (list (system:int-sap 0) (system:int-sap 0))))
92 :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
96 ((:file "gdk-package")
97 (:file "gdk-export" :depends-on ("gdkevents" "gdktypes" "gdk"))
98 (:file "gdktypes" :depends-on ("gdk-package"))
99 (:file "gdkevents" :depends-on ("gdktypes"))
100 (:file "gdk" :depends-on ("gdkevents")))
101 :depends-on (glib "gdkglue"))
103 :initially-do (load-shared-library "libpango-1.0.so")
105 ((:file "pango-package")
106 (:file "pango" :depends-on ("pango-package"))
107 (:file "pango-export" :depends-on ("pango")))
110 :initially-do (load-shared-library "libatk-1.0.so")
112 ((:file "atk-package")
113 (:file "atk" :depends-on ("atk-package"))
114 (:file "atk-export" :depends-on ("atk")))
117 :source-pathname "gtk;"
118 :binary-pathname "gtk;"
124 :prototype '(function
128 :initargs (list (system:int-sap 0) (system:int-sap 0))))
130 :source-extension "c"
131 :binary-extension "o"
132 :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
134 :definitions (#+cmu CMUCL)
135 :include-paths (,*cmucl-include-path*)))
138 ((:file "gtk-package")
139 (:file "gtk-export" :depends-on ("gtktypes" "gtk"))
140 (:file "gtkobject" :depends-on ("gtk-package"))
141 (:file "gtktypes" :depends-on ("gtkobject"))
142 (:file "gtkwidget" :depends-on ("gtktypes"))
143 (:file "gtkcontainer" :depends-on ("gtktypes"))
144 (:file "gtk" :depends-on ("gtktypes"))
145 (:file "gtkutils" :depends-on ("gtk")))
146 :depends-on (glib gdk pango atk "gtkglue")))))