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 "1.3.12")
35 (pkg-exists-p "pango" :atleast-version "0.23")
36 (pkg-exists-p "gtk+-2.0" :atleast-version "1.3.12"))
37 :source-pathname "clg:"
38 :binary-pathname "clg:"
41 :components ("autoexport"))
42 (:file "pcl" :source-pathname "glib;" :binary-pathname "glib;")
46 (load-shared-library "libglib-1.3.so")
47 (load-shared-library "libgobject-1.3.so" :init "g_type_init"))
54 (:cflags ,(pkg-cflags "glib-2.0")
56 :definitions (#+cmu CMUCL)
57 :include-paths (,*cmucl-include-path*)))
58 (:file "glib-package")
59 (:file "gutils" :depends-on ("glib-package"))
60 (:file "gforeign" :depends-on ("gutils"))
61 (:file "glib" :depends-on ("gforeign"))
62 (:file "proxy" :depends-on ("glib"))
63 (:file "gtype" :depends-on ("proxy"))
64 (:file "gboxed" :depends-on ("gtype"))
65 (:file "genums" :depends-on ("gtype"))
66 (:file "gparam" :depends-on ("genums"))
67 (:file "gobject" :depends-on ("gparam"))
68 (:file "gcallback" :depends-on ("gtype" "gparam" "gobject" "callback"))
71 ("gutils" "glib" "proxy" "gboxed" "gtype" "gparam" "gcallback"
73 :depends-on (tools "pcl"))
75 :source-pathname "gdk;"
76 :binary-pathname "gdk;"
79 (load-shared-library "libgdk_pixbuf-1.3.so")
80 (load-shared-library "libgdk-x11-1.3.so"
86 :initargs (list (system:int-sap 0) (system:int-sap 0))))
90 :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
94 ((:file "gdk-package")
95 (:file "gdk-export" :depends-on ("gdkevents" "gdktypes" "gdk"))
96 (:file "gdktypes" :depends-on ("gdk-package"))
97 (:file "gdkevents" :depends-on ("gdktypes"))
98 (:file "gdk" :depends-on ("gdkevents")))
99 :depends-on (glib "gdkglue"))
101 :initially-do (load-shared-library "libpango.so")
103 ((:file "pango-package")
104 (:file "pango" :depends-on ("pango-package"))
105 (:file "pango-export" :depends-on ("pango")))
108 :source-pathname "gtk;"
109 :binary-pathname "gtk;"
115 :prototype '(function
119 :initargs (list (system:int-sap 0) (system:int-sap 0))))
121 :source-extension "c"
122 :binary-extension "o"
123 :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
125 :definitions (#+cmu CMUCL)
126 :include-paths (,*cmucl-include-path*)))
129 ((:file "gtk-package")
130 (:file "gtk-export" :depends-on ("gtktypes" "gtk"))
131 (:file "gtkobject" :depends-on ("gtk-package"))
132 (:file "gtktypes" :depends-on ("gtkobject"))
133 (:file "gtkwidget" :depends-on ("gtktypes"))
134 (:file "gtkcontainer" :depends-on ("gtktypes"))
135 (:file "gtk" :depends-on ("gtktypes"))
136 (:file "gtkutils" :depends-on ("gtk")))
137 :depends-on (glib gdk pango "gtkglue")))))