closure.system

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; Encoding: utf-8; -*-
   2
   3 ;; commit test
   4
   5 (in-package :common-lisp-user)
   6
   7 ;;; Random early Lisp Implementation-specific fix ups:
   8
   9 #+EXCL
  10 (progn
  11   (require :clx)
  12   ;(load "~/../gilbert-neu/lisp/clx-acl/macros.cl")
  13   ;(load "~/../gilbert-neu/lisp/clx-acl/bufmac.cl")
  14   (unuse-package :excl)
  15   ;;(load "~/lisp/defsystem/defsystem.lisp")
  16   )
  17 #+EXCL
  18 (progn
  19   (setq mk::*bother-user-if-no-binary* nil)
  20   (setq mk::*compile-during-load* t) )
  21
  22 #+CMU
  23 (setq ext:*GC-VERBOSE* nil) ;das merk ich schon selbst.
  24
  25 ;;;; Try to find defsystem
  26 #-MK-DEFSYSTEM
  27 (or
  28  (ignore-errors (load "library:subsystems/defsystem"))
  29  (load (compile-file (merge-pathnames "other/defsystem/defsystem.lisp"))))
  30
  31 (eval-when (compile eval load)
  32   (pushnew :DEBUG-CLOSURE *features*))
  33
  34 ;;;;
  35 ;;;; Optimization levels:
  36 ;;;;
  37
  38 ;; FIXME: This is not exactly the right place!
  39
  40 ;; We choose to make them constants for read-time evaluation, since we
  41 ;; want the presence of the :DEBUG-CLOSURE feature to override any
  42 ;; (saftey 0) declaration.
  43
  44 (defparameter +optimize-very-fast+
  45   '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
  46
  47 (defparameter +optimize-very-fast-trusted+
  48   '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
  49
  50 (defparameter +optimize-fast+
  51   '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 1)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
  52
  53 (defparameter +optimize-normal+
  54   '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 2)) (speed 1) #+:DEBUG-CLOSURE (debug 3)))
  55
  56 (export '+optimize-very-fast-trusted+)
  57 (export '+optimize-very-fast+)
  58 (export '+optimize-fast+)
  59 (export '+optimize-normal+)
  60
  61 ;; Finally declaim normal optimization level
  62 (declaim #.+optimize-normal+)
  63
  64 ;;(load (merge-pathnames "glisp.system" *load-pathname*))
  65 ;;(load (merge-pathnames "graphics-utilities.system" *load-pathname*))
  66
  67 ;;;
  68
  69 (eval-when (compile eval load)
  70   (defun rel-path (&rest components)
  71     (print    (merge-pathnames (make-pathname :name nil :type nil
  72                                               :directory (cons :relative components))
  73                                (make-pathname :name nil :type nil
  74                                               :defaults
  75                                               (truename *load-pathname*))))))
  76
  77 ;; Make this build with the CVS tree also ...
  78 (ignore-errors
  79   (load (merge-pathnames "system.lisp" (rel-path "other" "mcclim"))))
  80
  81 (mk:defsystem glisp
  82     :source-pathname #.(rel-path "src" "glisp")
  83     :initially-do (progn
  84                     (defpackage :glisp (:use))
  85                     #+EXCL (setq comp:*cltl1-compile-file-toplevel-compatibility-p* t)
  86                     )
  87     :finally-do (progn
  88                   #+EXCL (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil))
  89
  90     :components
  91     ((:file dependent
  92       :source-pathname
  93       #+CLISP                             "dep-clisp"
  94       #+(AND :CMU (NOT :PTHREAD))         "dep-cmucl"
  95       #+(AND :CMU :PTHREAD)               "dep-cmucl-dtc"
  96       #+(AND ALLEGRO ALLEGRO-V5.0)        "dep-acl5"
  97       #+(AND ALLEGRO (NOT ALLEGRO-V5.0))  "dep-acl"
  98       #+GCL                               "dep-gcl"
  99       #+OPENMCL                           "dep-openmcl"
 100       #-(OR OPENMCL CLISP CMU ALLEGRO GCL) #.(error "Configure!"))
 101      (:file "package"
 102       :depends-on (dependent))
 103      (:file "runes"
 104       :depends-on ("package" dependent))
 105      (:file "util"
 106       :depends-on ("package" dependent "runes"))
 107      (:file "match"
 108       :depends-on ("package" dependent "runes" "util")) ))
 109
 110
 111 (mk:defsystem closure
 112     :source-pathname (make-pathname :name nil :type nil
 113                                     :defaults *load-truename*)
 114     :source-extension "lisp"
 115     :depends-on (:clx
 116                  :clim
 117                  :clim-clx
 118                  :glisp)
 119     :components
 120     (
 121      (:module src
 122       :source-pathname "src"
 123       :components
 124       (
 125      ;;; Patches
 126
 127        (:module patches
 128         :source-pathname "patches"
 129         :components
 130         (:serial "clx-patch"))
 131
 132      ;;; Images
 133
 134        (:module imagelib
 135         :source-pathname "imagelib"
 136         :components
 137         (:serial
 138          "package"
 139          "basic"
 140          "deflate"
 141          "png"))
 142
 143      ;;; Early package definitions
 144
 145        (:file "defpack")
 146
 147      ;;; Clousure Protocol Declarations first
 148
 149        (:module closure-protcols
 150         :source-pathname "protocols"
 151         :components
 152         ((:file "package")
 153          (:file "element")
 154          (:file "css-support")))
 155
 156      ;;; Libraries
 157
 158        (:module xml
 159         :source-pathname "xml"
 160         :components
 161         ((:file "package")
 162          (:file "encodings"       :depends-on ("package"))
 163          (:file "encodings-data"  :depends-on ("package" "encodings"))
 164          #+NIL(:file "dompack")
 165          #+NIL(:file "dom-impl"        :depends-on ("dompack"))
 166          (:file "xml-stream"      :depends-on ("package"))
 167          #+NIL (:file "xml-name-rune-p" :depends-on ("package"))
 168          #+NIL(:file "xml-parse"       :depends-on ("package" "dompack"))
 169          #+NIL(:file "xml-canonic"     :depends-on ("package" "dompack" "xml-parse"))  ))
 170
 171      ;;; CLEX and LALR
 172
 173        (:module clex
 174         :source-pathname "util"
 175         :components
 176         ((:file "clex") ))
 177
 178        (:module lalr
 179         :source-pathname "util"
 180         :components
 181         ((:file "lalr") ))
 182
 183      ;;; Networking stuff
 184
 185        (:module netlib
 186         :source-pathname "net"
 187         :components
 188         ((:file "package"       :depends-on ("url"))
 189          (:file "common-parse"  :depends-on ("package"))
 190          (:file "mime"          :depends-on ("package"))
 191          (:file "url"           :depends-on ())
 192          (:file "http"          :depends-on ("package" "url"))
 193          (:file "ftp"           :depends-on ("package" "url")) ))
 194
 195      ;;; The HTML parser
 196
 197        (:module sgml-parse
 198         :source-pathname "parse"
 199         :components
 200         ((:file "package")
 201          (:file "pt"              :depends-on ("package"))
 202          (:file "sgml-dtd"        :depends-on ("package"))
 203          (:file "sgml-parse"      :depends-on ("package" "sgml-dtd")) ))
 204
 205      ;;; More Random Utilities
 206
 207        (:module util
 208         :source-pathname "util"
 209         :components
 210         (:parallel "character-set"
 211          "xterm"))
 212
 213      ;;; CSS
 214
 215        (:module css
 216         :source-pathname "css"
 217         :components
 218         (:serial
 219          "package"
 220          "css-support"
 221          "css-parse"
 222          "css-selector"
 223          "css-setup"
 224          "css-properties"))
 225
 226      ;;; Renderer
 227
 228        (:module renderer
 229         :source-pathname "renderer"
 230         :components
 231         (:serial
 232          "package"
 233
 234          "device"                       ;Declaration of the device abstraction
 235          "fonts"                        ;Font Databases
 236
 237          "texpara"
 238          "images"
 239          "x11"
 240          "r-struct"
 241          "document"
 242          "raux"
 243          "renderer"
 244          "hyphenation"                  ;Hyphenation of words
 245          "clim-draw"                    ;some drawing "primitives" for the clim device
 246          "renderer2"
 247          "list-item"
 248          ; "tables"
 249          "clim-device"))
 250
 251      ;;; HTML
 252
 253        (:module html
 254         :source-pathname "html"
 255         :components
 256         (:serial
 257          "html-style"))
 258
 259      ;;; GUI
 260
 261        (:module gui
 262         :source-pathname "gui"
 263         :components
 264         (:serial
 265          "gui" "clue-gui" "dce-and-pce" "clue-input"
 266          ;;
 267          "clim-gui") )
 268
 269      ;;; Patches
 270
 271        (:file "patch")
 272        ))
 273
 274      ;;; Some resources
 275
 276      (:module resources
 277       :source-pathname "resources"
 278       :components
 279       (:serial
 280        "resources.lisp")) ))