chiark - git - mdw - clg/blob - 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        )
 111       :depends-on (glib gdk pango "gtkglue")))))
 112
 113
 114