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
   8 (load "clg:tools;config")
   9 (load "clg:tools;sharedlib")
  10
  11 (import 'alien:load-shared-library)
  12
  13 (eval
  14  `(mk:defsystem clg
  15     :source-pathname "clg:"
  16     :binary-pathname "clg:"
  17     :components
  18     ((:module tools
  19       :components ("autoexport"))
  20      (:module glib
  21       :initially-do
  22       (progn
  23         (load-shared-library "libglib-1.3.so.1")
  24         (load-shared-library "libgobject-1.3.so.1" :init "g_type_init"))
  25       :components
  26       ((:file "callback"
  27         :language :c
  28         :compiler-options
  29         (:cflags ,(configure-cflags "glib-config-2.0")
  30                  :optimize 2
  31                  :definitions (#+cmu CMUCL)
  32                  :include-paths ("/usr/src/cmucl-2.4.20/src/lisp")))
  33        (:file "glib-package")
  34        (:file "gutils" :depends-on ("glib-package"))
  35        (:file "gforeign" :depends-on ("gutils"))
  36        (:file "glib" :depends-on ("gforeign"))
  37        (:file "gtype" :depends-on ("glib"))
  38        (:file "gparam" :depends-on ("glib"))
  39        (:file "gcallback" :depends-on ("gtype" "gparam" "callback"))
  40        (:file "gobject" :depends-on ("gtype"))
  41        (:file "glib-export"
  42         :depends-on ("gutils" "glib" "gtype" "gparam" "gcallback" "gobject")))
  43       :depends-on (tools))
  44      (:file "gdkglue"
  45       :source-pathname "gdk;"
  46       :binary-pathname "gdk;"
  47       :initially-do
  48       (progn
  49         (load-shared-library "libgdk_pixbuf-1.3.so.1")
  50         (load-shared-library "libgdk-x11-1.3.so.1")
  51         ;; Initializing of gdk types is done by gtk, so we
  52         ;; have to load an initialize it at this point
  53         (load-shared-library
  54          "libgtk-x11-1.3.so.1"
  55          :init "gtk_init"
  56          :prototype '(function
  57                       c-call:void
  58                       alien:system-area-pointer
  59                       alien:system-area-pointer)
  60          :initargs (list (system:int-sap 0) (system:int-sap 0))))
  61       :language :c
  62       :compiler-options (:cflags ,(configure-cflags "gtk-config-2.0")
  63                                  :optimize 2))
  64      (:module gdk
  65       :components
  66       ((:file "gdk-package")
  67        (:file "gdk-export" :depends-on ("gdkenums" "gdktypes" "gdk"))
  68        (:file "gdkenums" :depends-on ("gdk-package"))
  69        (:file "gdktypes" :depends-on ("gdkenums"))
  70        (:file "gdk" :depends-on ("gdktypes")))
  71       :depends-on (glib "gdkglue"))
  72      (:file "gtkglue"
  73       :source-pathname "gtk;"
  74       :binary-pathname "gtk;"
  75       :language :c
  76       :compiler-options (:cflags ,(configure-cflags "gtk-config-2.0")
  77                          :optimize 2
  78                          :definitions (#+cmu CMUCL)
  79                          :include-paths ("/usr/lib/cmucl")))
  80      (:module gtk
  81       :components
  82       ((:file "gtk-package")
  83        (:file "gtk-export" :depends-on ("gtkenums" "gtktypes" "gtk"))
  84        (:file "gtkobject" :depends-on ("gtk-package"))
  85        (:file "gtkenums" :depends-on ("gtk-package"))
  86        (:file "gtktypes" :depends-on ("gtkenums" "gtkobject"))
  87        (:file "gtkwidget" :depends-on ("gtktypes"))
  88        (:file "gtkcontainer" :depends-on ("gtktypes"))
  89        (:file "gtk" :depends-on ("gtktypes"))
  90        (:file "gtkutils" :depends-on ("gtk")))
  91       :depends-on (glib gdk "gtkglue")))))
  92
  93
  94