X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/1cd312d19949caa45e6c5c52940c57548ac9302e..1ca79b50edaba68f81c3ee777646dae3b9aada0c:/clg.system

diff --git a/clg.system b/clg.system
index fa67af6..5b54302 100644
--- a/clg.system
+++ b/clg.system
@@ -1,18 +1,40 @@
 ;;; -*- Mode: lisp -*-
 
-(setf
- (logical-pathname-translations "clg")
- '(("**;*.*.*" "/home/espen/src/clg/**/*.*.*")))
-(setq mk::*cmu-errors-to-file* nil)
-(push '(:PKG_CONFIG_PATH . "/opt/gnome/lib/pkgconfig") ext:*environment-list*)
+(defpackage "CLG-SYSTEM"
+  (:use "COMMON-LISP" "EXTENSIONS" "ALIEN")
+  (:export "*GTK-LIBRARY-PATH*"))
+
+(in-package "CLG-SYSTEM")
+
+;; We used to do this, but I think it's better if everybody puts such
+;; definitions in his/her own Lisp startup files so that clg.system
+;; can be used without local modifications.
+;(setf
+; (logical-pathname-translations "clg")
+; '(("**;*.*.*" "/home/espen/src/clg/**/*.*.*")))
+
+;; Uncomment and edit the next line if pkg-config needs to search for
+;; .pc files in directories other than the default (/usr/lib/pkgconfig)
+;(push '(:PKG_CONFIG_PATH . "/opt/gnome/lib/pkgconfig") ext:*environment-list*)
 
 (load "clg:tools;config")
 (load "clg:tools;sharedlib")
 
-(import 'alien:load-shared-library)
+(defvar *gtk-library-path* (pkg-variable "gtk+-2.0" "libdir"))
+(defvar *cmucl-include-path* (ext:unix-namestring "target:lisp"))
+
+;; Without this, MAKE uses "CLG:glib;.err" as a namestring, which fails.
+;; TODO: Find and fix the bug, then remove this.
+(setq mk::*cmu-errors-to-file* nil)
 
 (eval
  `(mk:defsystem clg
+    :initially-do
+    (progn
+      (pkg-exists-p "glib-2.0" :atleast-version "2.0.0")
+      (pkg-exists-p "pango" :atleast-version "1.0.0")
+      (pkg-exists-p "atk" :atleast-version "1.0.0")
+      (pkg-exists-p "gtk+-2.0" :atleast-version "2.0.0"))
     :source-pathname "clg:"
     :binary-pathname "clg:"
     :components
@@ -22,16 +44,18 @@
      (:module glib
       :initially-do
       (progn
-	(load-shared-library "libglib-1.3.so.5")
-	(load-shared-library "libgobject-1.3.so.5" :init "g_type_init"))
+	(load-shared-library "libglib-2.0.so")
+	(load-shared-library "libgobject-2.0.so" :init "g_type_init"))
       :components
       ((:file "callback"
 	:language :c
+	:source-extension "c"
+	:binary-extension "o"
 	:compiler-options
 	(:cflags ,(pkg-cflags "glib-2.0")
 		 :optimize 2
 		 :definitions (#+cmu CMUCL)
-		 :include-paths ("/usr/src/cmucl-2.4.20/src/lisp")))
+		 :include-paths (,*cmucl-include-path*)))
        (:file "glib-package")
        (:file "gutils" :depends-on ("glib-package"))
        (:file "gforeign" :depends-on ("gutils"))
@@ -39,10 +63,11 @@
        (:file "proxy" :depends-on ("glib"))
        (:file "gtype" :depends-on ("proxy"))
        (:file "gboxed" :depends-on ("gtype"))
-       (:file "gcallback" :depends-on ("gtype" "gparam" "callback"))
        (:file "genums" :depends-on ("gtype"))
        (:file "gparam" :depends-on ("genums"))
+       (:file "ginterface" :depends-on ("gtype"))
        (:file "gobject" :depends-on ("gparam"))
+       (:file "gcallback" :depends-on ("gtype" "gparam" "gobject" "callback"))
        (:file "glib-export"
 	:depends-on
 	("gutils" "glib" "proxy" "gboxed" "gtype" "gparam" "gcallback"
@@ -53,15 +78,17 @@
       :binary-pathname "gdk;"
       :initially-do
       (progn
-	(load-shared-library "libgdk_pixbuf-1.3.so.5")
-	(load-shared-library "libgdk-x11-1.3.so.5"
+	(load-shared-library "libgdk_pixbuf-2.0.so")
+	(load-shared-library "libgdk-x11-2.0.so"
 	 :init "gdk_init"
 	 :prototype '(function
 		      c-call:void
-		      alien:system-area-pointer
-		      alien:system-area-pointer)
+		      system-area-pointer
+		      system-area-pointer)
 	 :initargs (list (system:int-sap 0) (system:int-sap 0))))
       :language :c
+      :source-extension "c"
+      :binary-extension "o"
       :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
 			 :optimize 2))
      (:module gdk
@@ -73,42 +100,47 @@
 	(:file "gdk" :depends-on ("gdkevents")))
        :depends-on (glib "gdkglue"))
      (:module pango
-      :initially-do (load-shared-library "libpango-0.16.so")
+      :initially-do (load-shared-library "libpango-1.0.so")
        :components
        ((:file "pango-package")
         (:file "pango" :depends-on ("pango-package"))
         (:file "pango-export" :depends-on ("pango")))
        :depends-on (glib))
+     (:module atk
+      :initially-do (load-shared-library "libatk-1.0.so")
+       :components
+       ((:file "atk-package")
+        (:file "atk" :depends-on ("atk-package"))
+        (:file "atk-export" :depends-on ("atk")))
+       :depends-on (glib))
      (:file "gtkglue"
       :source-pathname "gtk;"
       :binary-pathname "gtk;"
       :initially-do
       (progn
 	(load-shared-library
-	 "libgtk-x11-1.3.so.5"
+	 "libgtk-x11-2.0.so"
 	 :init "gtk_init"
 	 :prototype '(function
 		      c-call:void
-		      alien:system-area-pointer
-		      alien:system-area-pointer)
+		      system-area-pointer
+		      system-area-pointer)
 	 :initargs (list (system:int-sap 0) (system:int-sap 0))))
       :language :c
+      :source-extension "c"
+      :binary-extension "o"
       :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
 			 :optimize 2
 			 :definitions (#+cmu CMUCL)
-			 :include-paths ("/usr/lib/cmucl")))
+			 :include-paths (,*cmucl-include-path*)))
      (:module gtk
       :components
       ((:file "gtk-package")
-;       (:file "gtk-export" :depends-on ("gtktypes" "gtk"))
+       (:file "gtk-export" :depends-on ("gtktypes" "gtk"))
        (:file "gtkobject" :depends-on ("gtk-package"))
        (:file "gtktypes" :depends-on ("gtkobject"))
        (:file "gtkwidget" :depends-on ("gtktypes"))
        (:file "gtkcontainer" :depends-on ("gtktypes"))
-;       (:file "gtk" :depends-on ("gtktypes"))
-;       (:file "gtkutils" :depends-on ("gtk"))
-       )
-      :depends-on (glib gdk pango "gtkglue")))))
-
-
-
+       (:file "gtk" :depends-on ("gtktypes"))
+       (:file "gtkutils" :depends-on ("gtk")))
+      :depends-on (glib gdk pango atk "gtkglue")))))