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 (setq ext:*environment-list* (cons '(: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      (:module glib
  22       :initially-do
  23       (progn
  24         (load-shared-library "libglib-1.3.so.4")
  25         (load-shared-library "libgobject-1.3.so.4" :init "g_type_init"))
  26       :components
  27       ((:file "callback"
  28         :language :c
  29         :compiler-options
  30         (:cflags ,(pkg-cflags "glib-2.0")
  31                  :optimize 2
  32                  :definitions (#+cmu CMUCL)
  33                  :include-paths ("/usr/src/cmucl-2.4.20/src/lisp")))
  34        (:file "glib-package")
  35        (:file "gutils" :depends-on ("glib-package"))
  36        (:file "gforeign" :depends-on ("gutils"))
  37        (:file "glib" :depends-on ("gforeign"))
  38        (:file "proxy" :depends-on ("glib"))
  39        (:file "gtype" :depends-on ("proxy"))
  40        (:file "gboxed" :depends-on ("gtype"))
  41        (:file "gcallback" :depends-on ("gtype" "gparam" "callback"))
  42        (:file "genums" :depends-on ("gtype"))
  43        (:file "gparam" :depends-on ("genums"))
  44        (:file "gobject" :depends-on ("gparam"))
  45        (:file "glib-export"
  46         :depends-on
  47         ("gutils" "glib" "proxy" "gboxed" "gtype" "gparam" "gcallback"
  48          "genums" "gobject")))
  49       :depends-on (tools))
  50      (:file "gdkglue"
  51       :source-pathname "gdk;"
  52       :binary-pathname "gdk;"
  53       :initially-do
  54       (progn
  55         (load-shared-library "libgdk_pixbuf-1.3.so.4")
  56         (load-shared-library "libgdk-x11-1.3.so.4"
  57          :init "gdk_init"
  58          :prototype '(function
  59                       c-call:void
  60                       alien:system-area-pointer
  61                       alien:system-area-pointer)
  62          :initargs (list (system:int-sap 0) (system:int-sap 0))))
  63       :language :c
  64       :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
  65                          :optimize 2))
  66      (:module gdk
  67        :components
  68        ((:file "gdk-package")
  69         (:file "gdk-export" :depends-on ("gdkevents" "gdktypes" "gdk"))
  70         (:file "gdktypes" :depends-on ("gdk-package"))
  71         (:file "gdkevents" :depends-on ("gdktypes"))
  72         (:file "gdk" :depends-on ("gdkevents")))
  73        :depends-on (glib "gdkglue"))
  74      (:file "gtkglue"
  75       :source-pathname "gtk;"
  76       :binary-pathname "gtk;"
  77       :initially-do
  78       (progn
  79         (load-shared-library
  80          "libgtk-x11-1.3.so.4"
  81          :init "gtk_init"
  82          :prototype '(function
  83                       c-call:void
  84                       alien:system-area-pointer
  85                       alien:system-area-pointer)
  86          :initargs (list (system:int-sap 0) (system:int-sap 0))))
  87       :language :c
  88       :compiler-options (:cflags ,(pkg-cflags "gtk+-2.0")
  89                          :optimize 2
  90                          :definitions (#+cmu CMUCL)
  91                          :include-paths ("/usr/lib/cmucl")))
  92      (:module gtk
  93       :components
  94       ((:file "gtk-package")
  95 ;       (:file "gtk-export" :depends-on ("gtkenums" "gtktypes" "gtk"))
  96 ;       (:file "gtkobject" :depends-on ("gtk-package"))
  97 ;        (:file "gtktypes" :depends-on ("gtkenums" "gtkobject"))
  98 ;        (:file "gtkwidget" :depends-on ("gtktypes"))
  99 ;        (:file "gtkcontainer" :depends-on ("gtktypes"))
 100 ;        (:file "gtk" :depends-on ("gtktypes"))
 101 ;        (:file "gtkutils" :depends-on ("gtk"))
 102        )
 103       :depends-on (glib gdk "gtkglue"))
 104 )))
 105
 106
 107