/[closure]/closure/closure.asd
ViewVC logotype

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.16 - (show annotations)
Tue Jan 2 14:30:11 2007 UTC (7 years, 3 months ago) by dlichteblau
Branch: MAIN
Changes since 1.15: +3 -1 lines
Use the ZIP library instead of run-shell-command for the zip:// protocol.
1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; Encoding: utf-8; -*-
2
3 ;; commit test
4 (defpackage :closure-system (:use #:asdf #:cl))
5 (in-package :closure-system)
6
7 ;;; Random early Lisp Implementation-specific fix ups:
8
9 (eval-when (compile eval load)
10 (pushnew :DEBUG-CLOSURE *features*))
11
12 ;;;;
13 ;;;; Optimization levels:
14 ;;;;
15
16 ;; FIXME: This is not exactly the right place!
17
18 ;; We choose to make them constants for read-time evaluation, since we
19 ;; want the presence of the :DEBUG-CLOSURE feature to override any
20 ;; (saftey 0) declaration.
21
22 (defparameter +optimize-very-fast+
23 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
24
25 (defparameter +optimize-very-fast-trusted+
26 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
27
28 (defparameter +optimize-fast+
29 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 1)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
30
31 (defparameter +optimize-normal+
32 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 2)) (speed 1) #+:DEBUG-CLOSURE (debug 3)))
33
34 (export '+optimize-very-fast-trusted+)
35 (export '+optimize-very-fast+)
36 (export '+optimize-fast+)
37 (export '+optimize-normal+)
38
39 ;; Finally declaim normal optimization level
40 (declaim #.+optimize-normal+)
41
42 (defclass closure-source-file (cl-source-file) ())
43
44 #+sbcl
45 (defmethod perform :around ((o compile-op) (s closure-source-file))
46 ;; shut up already. Correctness first.
47 (handler-bind ((sb-ext:compiler-note #'muffle-warning))
48 (call-next-method)))
49
50 ;;; Convenience feature: will stop it from breaking into the debugger
51 ;;; under sbcl for full WARNINGs (better to fix the warnings :-).
52 #+sbcl
53 (defmethod perform :around ((o compile-op) s)
54 (setf (operation-on-failure o) :warn)
55 (call-next-method o s))
56
57 (defpackage :glisp (:use))
58 (asdf:defsystem glisp
59 :pathname (merge-pathnames "src/glisp/"
60 (make-pathname :name nil :type nil
61 :defaults *load-truename*))
62 :default-component-class closure-source-file
63 :depends-on (:cxml ;; uncomment this if we actually need gray streams:
64 ;; :trivial-gray-streams
65 #+sbcl :sb-bsd-sockets)
66 :components
67 ((:file dependent
68 :pathname
69 #+CLISP "dep-clisp"
70 #+(AND :CMU (NOT SCL)) "dep-cmucl"
71 #+sbcl "dep-sbcl"
72 #+SCL "dep-scl"
73 #+ALLEGRO "dep-acl"
74 #+GCL "dep-gcl"
75 #+OPENMCL "dep-openmcl"
76 #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
77 (:file "package"
78 :depends-on (dependent))
79 (:file "util"
80 :depends-on ("package" dependent))
81 (:file "match"
82 :depends-on ("package" dependent "util"))))
83
84
85 (asdf:defsystem closure
86 :depends-on (:mcclim
87 :clim-clx
88 :glisp
89 :bordeaux-threads
90 :trivial-sockets
91 :zip
92 :flexi-streams)
93 :default-component-class closure-source-file
94 :components
95 ((:module src
96 :serial t
97 :components
98 (;;; Patches
99 (:module patches
100 :components
101 ((:file "clx-patch")))
102
103 ;; Images
104
105 (:module imagelib
106 :serial t
107 :components
108 ((:file "package")
109 (:file "basic")
110 (:file "deflate")
111 (:file "png")))
112
113 ;; Early package definitions
114
115 (:file "defpack")
116
117 ;; Closure Protocol Declarations first
118
119 (:module protocols
120 :serial t
121 :components
122 ((:file "package")
123 (:file "element")
124 (:file "css-support")))
125
126 ;; Libraries
127
128 ;; CLEX and LALR
129
130 (:module clex
131 :pathname "util/"
132 :components
133 ((:file "clex") ))
134
135 (:module lalr
136 :pathname "util/"
137 :components
138 ((:file "lalr") ))
139
140 ;; Networking stuff
141
142 (:module net
143 :components
144 ((:file "package" :depends-on ("url"))
145 (:file "common-parse" :depends-on ("package"))
146 (:file "mime" :depends-on ("package"))
147 (:file "url" :depends-on ())
148 (:file "http" :depends-on ("package" "url"))
149 (:file "ftp" :depends-on ("package" "url")) ))
150
151 ;; The HTML parser
152
153 (:module parse
154 :depends-on (clex lalr)
155 :components
156 ((:file "package")
157 (:file "pt" :depends-on ("package"))
158 (:file "sgml-dtd" :depends-on ("package"))
159 (:file "sgml-parse" :depends-on ("package" "sgml-dtd")) ))
160
161 ;; More Random Utilities
162
163 (:module util
164 :components
165 ((:file "character-set")
166 (:file "xterm")))
167
168 ;; CSS
169
170 (:module css
171 :depends-on (net ;needs URL package
172 "defpack")
173 :serial t
174 :components
175 ((:file "package")
176 (:file "css-support")
177 (:file "css-parse")
178 (:file "css-selector")
179 (:file "css-setup")
180 (:file "css-properties")))
181
182 ;; Renderer
183
184 (:module renderer
185 :serial t
186 :components
187 (
188 (:file "package")
189
190 (:file "device") ;Declaration of the device abstraction
191 (:file "fonts") ;Font Databases
192
193 (:file "texpara")
194 (:file "images")
195 (:file "x11")
196 (:file "r-struct")
197 (:file "document")
198 (:file "raux")
199 (:file "renderer")
200 (:file "hyphenation") ;Hyphenation of words
201 (:file "clim-draw") ;some drawing "primitives" for the clim device
202 (:file "renderer2")
203 (:file "list-item")
204 ; "tables"
205 (:file "clim-device")))
206
207 ;; HTML
208
209 (:module html
210 :components
211 ((:file "html-style")))
212
213 ;; GUI
214
215 (:module gui
216 :serial t
217 :components
218 ((:file "gui") (:file "clue-gui")
219 (:file "dce-and-pce") (:file "clue-input")
220 (:file "clim-gui")) )
221
222 ;; Patches
223
224 (:file "patch")
225 ))
226
227 ;; Some resources
228
229 (:module resources
230 :components
231 ((:file "resources")) )))
232
233 (in-package :cl-user)
234
235 (import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
236 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
237 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
238 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
239 (export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
240 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
241 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
242 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))

  ViewVC Help
Powered by ViewVC 1.1.5