Made SIGNAL-CONNECT a generic function
[clg] / clg.system
1 ;;; -*- Mode: lisp -*-
2
3 (setf
4 (logical-pathname-translations "clg")
5 '(("**;*.*.*" "/home/espen/src/clg/**/*.*.*")))
6 (setq mk::*cmu-errors-to-file* nil)
7 (push '(:PKG_CONFIG_PATH . "/opt/gnome/lib/pkgconfig") ext:*environment-list*)
8
9 (load "clg:tools;config")
10 (load "clg:tools;sharedlib")
11
12 (import 'alien:load-shared-library)
13
14 (eval
15 `(mk:defsystem clg
16 :source-pathname "clg:"
17 :binary-pathname "clg:"
18 :components
19 ((:module tools
20 :components ("autoexport"))
21 (:file "pcl" :source-pathname "glib;" :binary-pathname "glib;")
22 (:module glib
23 :initially-do
24 (progn
25 (load-shared-library "libglib-1.3.so.5")
26 (load-shared-library "libgobject-1.3.so.5" :init "g_type_init"))
27 :components
28 ((:file "callback"
29 :language :c
30 :compiler-options
31 (:cflags ,(pkg-cflags "glib-2.0")
32 :optimize 2
33 :definitions (#+cmu CMUCL)
34 :include-paths ("/usr/src/cmucl-2.4.20/src/lisp")))
35 (:file "glib-package")
36 (:file "gutils" :depends-on ("glib-package"))
37 (:file "gforeign" :depends-on ("gutils"))
38 (:file "glib" :depends-on ("gforeign"))
39 (:file "proxy" :depends-on ("glib"))
40 (:file "gtype" :depends-on ("proxy"))
41 (:file "gboxed" :depends-on ("gtype"))
42 (:file "gcallback" :depends-on ("gtype" "gparam" "callback"))
43 (:file "genums" :depends-on ("gtype"))
44 (:file "gparam" :depends-on ("genums"))
45 (:file "gobject" :depends-on ("gparam"))
46 (:file "glib-export"
47 :depends-on
48 ("gutils" "glib" "proxy" "gboxed" "gtype" "gparam" "gcallback"
49 "genums" "gobject")))
50 :depends-on (tools "pcl"))
51 (:file "gdkglue"
52 :source-pathname "gdk;"
53 :binary-pathname "gdk;"
54 :initially-do
55 (progn
56 (load-shared-library "libgdk_pixbuf-1.3.so.5")
57 (load-shared-library "libgdk-x11-1.3.so.5"
58 :init "gdk_init"
59 :prototype '(function
60 c-call:void
61 alien:system-area-pointer
62 alien:system-area-pointer)
63 :initargs (list (system:int-sap 0) (system:int-sap 0))))
64 :language :c
65 :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
66 :optimize 2))
67 (:module gdk
68 :components
69 ((:file "gdk-package")
70 (:file "gdk-export" :depends-on ("gdkevents" "gdktypes" "gdk"))
71 (:file "gdktypes" :depends-on ("gdk-package"))
72 (:file "gdkevents" :depends-on ("gdktypes"))
73 (:file "gdk" :depends-on ("gdkevents")))
74 :depends-on (glib "gdkglue"))
75 (:module pango
76 :initially-do (load-shared-library "libpango-0.16.so")
77 :components
78 ((:file "pango-package")
79 (:file "pango" :depends-on ("pango-package"))
80 (:file "pango-export" :depends-on ("pango")))
81 :depends-on (glib))
82 (:file "gtkglue"
83 :source-pathname "gtk;"
84 :binary-pathname "gtk;"
85 :initially-do
86 (progn
87 (load-shared-library
88 "libgtk-x11-1.3.so.5"
89 :init "gtk_init"
90 :prototype '(function
91 c-call:void
92 alien:system-area-pointer
93 alien:system-area-pointer)
94 :initargs (list (system:int-sap 0) (system:int-sap 0))))
95 :language :c
96 :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
97 :optimize 2
98 :definitions (#+cmu CMUCL)
99 :include-paths ("/usr/lib/cmucl")))
100 (:module gtk
101 :components
102 ((:file "gtk-package")
103 (:file "gtk-export" :depends-on ("gtktypes" "gtk"))
104 (:file "gtkobject" :depends-on ("gtk-package"))
105 (:file "gtktypes" :depends-on ("gtkobject"))
106 (:file "gtkwidget" :depends-on ("gtktypes"))
107 (:file "gtkcontainer" :depends-on ("gtktypes"))
108 (:file "gtk" :depends-on ("gtktypes"))
109 (:file "gtkutils" :depends-on ("gtk")))
110 :depends-on (glib gdk pango "gtkglue")))))
111
112
113