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

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Fri Mar 14 17:09:05 2003 UTC (11 years, 1 month ago) by dan
Branch: MAIN
SBCl dependencies and defsystem
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 (defpackage :glisp (:use))
43 (asdf:defsystem glisp
44 :pathname (merge-pathnames "src/glisp/"
45 (make-pathname :name nil :type nil
46 :defaults *load-truename*))
47 :components
48 ((:file dependent
49 :pathname
50 #+CLISP "dep-clisp"
51 #+(AND :CMU (NOT :PTHREAD)) "dep-cmucl"
52 #+sbcl "dep-sbcl"
53 #+(AND :CMU :PTHREAD) "dep-cmucl-dtc"
54 #+(AND ALLEGRO ALLEGRO-V5.0) "dep-acl5"
55 #+(AND ALLEGRO (NOT ALLEGRO-V5.0)) "dep-acl"
56 #+GCL "dep-gcl"
57 #-(OR sbcl CLISP CMU ALLEGRO GCL) #.(error "Configure!"))
58 (:file "package"
59 :depends-on (dependent))
60 (:file "runes"
61 :depends-on ("package" dependent))
62 (:file "util"
63 :depends-on ("package" dependent "runes"))
64 (:file "match"
65 :depends-on ("package" dependent "runes" "util"))))
66
67
68 (asdf:defsystem closure
69 :depends-on (:clx
70 :clim
71 :clim-clx
72 :glisp)
73 :components
74 ((:module src
75 :serial t
76 :components
77 (;;; Patches
78 (:module patches
79 :components
80 ((:file "clx-patch")))
81
82 ;; Images
83
84 (:module imagelib
85 :serial t
86 :components
87 ((:file "package")
88 (:file "basic")
89 (:file "deflate")
90 (:file "png")))
91
92 ;; Early package definitions
93
94 (:file "defpack")
95
96 ;; Closure Protocol Declarations first
97
98 (:module protocols
99 :serial t
100 :components
101 ((:file "package")
102 (:file "element")
103 (:file "css-support")))
104
105 ;; Libraries
106
107 (:module xml
108 :components
109 ((:file "package")
110 (:file "encodings" :depends-on ("package"))
111 (:file "encodings-data" :depends-on ("package" "encodings"))
112 (:file "dompack")
113 (:file "dom-impl" :depends-on ("dompack"))
114 (:file "xml-stream" :depends-on ("package"))
115 (:file "xml-name-rune-p" :depends-on ("package"))
116 (:file "xml-parse" :depends-on ("package" "dompack"))
117 (:file "xml-canonic" :depends-on ("package" "dompack" "xml-parse")) ))
118
119 ;; CLEX and LALR
120
121 (:module clex
122 :pathname "util/"
123 :components
124 ((:file "clex") ))
125
126 (:module lalr
127 :pathname "util/"
128 :components
129 ((:file "lalr") ))
130
131 ;; Networking stuff
132
133 (:module net
134 :components
135 ((:file "package" :depends-on ("url"))
136 (:file "common-parse" :depends-on ("package"))
137 (:file "mime" :depends-on ("package"))
138 (:file "url" :depends-on ())
139 (:file "http" :depends-on ("package" "url"))
140 (:file "ftp" :depends-on ("package" "url")) ))
141
142 ;; The HTML parser
143
144 (:module parse
145 :depends-on (clex lalr)
146 :components
147 ((:file "package")
148 (:file "pt" :depends-on ("package"))
149 (:file "sgml-dtd" :depends-on ("package"))
150 (:file "sgml-parse" :depends-on ("package" "sgml-dtd")) ))
151
152 ;; More Random Utilities
153
154 (:module util
155 :components
156 ((:file "character-set")
157 (:file "xterm")))
158
159 ;; CSS
160
161 (:module css
162 :depends-on (net ;needs URL package
163 "defpack")
164 :serial t
165 :components
166 ((:file "package")
167 (:file "css-support")
168 (:file "css-parse")
169 (:file "css-selector")
170 (:file "css-setup")
171 (:file "css-properties")))
172
173 ;; Renderer
174
175 (:module renderer
176 :serial t
177 :components
178 (
179 (:file "package")
180
181 (:file "device") ;Declaration of the device abstraction
182 (:file "fonts") ;Font Databases
183
184 (:file "texpara")
185 (:file "images")
186 (:file "x11")
187 (:file "r-struct")
188 (:file "document")
189 (:file "raux")
190 (:file "renderer")
191 (:file "hyphenation") ;Hyphenation of words
192 (:file "clim-draw") ;some drawing "primitives" for the clim device
193 (:file "renderer2")
194 (:file "list-item")
195 ; "tables"
196 (:file "clim-device")))
197
198 ;; HTML
199
200 (:module html
201 :components
202 ((:file "html-style")))
203
204 ;; GUI
205
206 (:module gui
207 :serial t
208 :components
209 ((:file "gui") (:file "clue-gui")
210 (:file "dce-and-pce") (:file "clue-input")
211 (:file "clim-gui")) )
212
213 ;; Patches
214
215 (:file "patch")
216 ))
217
218 ;; Some resources
219
220 (:module resources
221 :components
222 ((:file "resources")) )))
223
224 (in-package :cl-user)
225
226 (import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
227 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
228 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
229 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
230 (export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
231 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
232 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
233 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))

  ViewVC Help
Powered by ViewVC 1.1.5