/[closure]/closure/closure.system
ViewVC logotype

Contents of /closure/closure.system

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (show annotations)
Fri Dec 29 22:06:44 2006 UTC (7 years, 3 months ago) by dlichteblau
Branch: MAIN
CVS Tags: HEAD
Changes since 1.6: +0 -0 lines
FILE REMOVED
Remove outdated system file and BUILD-script.  Update INSTALL accordingly.
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")) ))

  ViewVC Help
Powered by ViewVC 1.1.5