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

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.20 - (show annotations)
Mon Jun 2 21:40:20 2008 UTC (5 years, 10 months ago) by dlichteblau
Branch: MAIN
CVS Tags: HEAD
Changes since 1.19: +0 -1 lines
removed dependency on clim-clx
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
64 :closure-html
65 ;; uncomment this if we actually need gray streams:
66 ;; :trivial-gray-streams
67 #+sbcl :sb-bsd-sockets)
68 :components
69 ((:file dependent
70 :pathname
71 #+CLISP "dep-clisp"
72 #+(AND :CMU (NOT SCL)) "dep-cmucl"
73 #+sbcl "dep-sbcl"
74 #+SCL "dep-scl"
75 #+ALLEGRO "dep-acl"
76 #+GCL "dep-gcl"
77 #+OPENMCL "dep-openmcl"
78 #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
79 (:file "package"
80 :depends-on (dependent))
81 (:file "util"
82 :depends-on ("package" dependent))
83 (:file "match"
84 :depends-on ("package" dependent "util"))))
85
86
87 (asdf:defsystem closure
88 :depends-on (:mcclim
89 :glisp
90 :bordeaux-threads
91 :trivial-sockets
92 :zip
93 :flexi-streams
94 :skippy)
95 :default-component-class closure-source-file
96 :components
97 ((:module src
98 :serial t
99 :components
100 (;;; Patches
101 (:module patches
102 :components
103 ((:file "clx-patch")))
104
105 ;; Images
106
107 (:module imagelib
108 :serial t
109 :components
110 ((:file "package")
111 (:file "basic")
112 (:file "deflate")
113 (:file "png")
114 (:file "gif")
115 (:file "jpeg")))
116
117 ;; Early package definitions
118
119 (:file "defpack")
120
121 ;; Closure Protocol Declarations first
122
123 (:module protocols
124 :serial t
125 :components
126 ((:file "package")
127 (:file "element")
128 (:file "css-support")))
129
130 ;; Libraries
131
132 ;; Networking stuff
133
134 (:module net
135 :components
136 ((:file "package" :depends-on ("url"))
137 (:file "common-parse" :depends-on ("package"))
138 (:file "url" :depends-on ())
139 (:file "http" :depends-on ("package" "url"))
140 (:file "ftp" :depends-on ("package" "url")) ))
141
142 ;; More Random Utilities
143
144 (:module util
145 :components
146 ((:file "character-set")
147 (:file "xterm")))
148
149 ;; CSS
150
151 (:module css
152 :depends-on (net ;needs URL package
153 "defpack")
154 :serial t
155 :components
156 ((:file "package")
157 (:file "css-support")
158 (:file "css-parse")
159 (:file "css-selector")
160 (:file "css-setup")
161 (:file "css-properties")))
162
163 ;; Renderer
164
165 (:module renderer
166 :serial t
167 :components
168 (
169 (:file "package")
170
171 (:file "pt")
172
173 (:file "device") ;Declaration of the device abstraction
174 (:file "fonts") ;Font Databases
175
176 (:file "texpara")
177 (:file "images")
178 (:file "x11")
179 (:file "r-struct")
180 (:file "document")
181 (:file "raux")
182 (:file "renderer")
183 (:file "hyphenation") ;Hyphenation of words
184 (:file "clim-draw") ;some drawing "primitives" for the clim device
185 (:file "renderer2")
186 (:file "list-item")
187 ; "tables"
188 (:file "clim-device")))
189
190 ;; HTML
191
192 (:module html
193 :components
194 ((:file "html-style")))
195
196 ;; GUI
197
198 (:module gui
199 :serial t
200 :components
201 ((:file "gui") (:file "clue-gui")
202 (:file "dce-and-pce") (:file "clue-input")
203 (:file "clim-gui")) )
204
205 ;; Patches
206
207 (:file "patch")
208 ))
209
210 ;; Some resources
211
212 (:module resources
213 :components
214 ((:file "resources")) )))
215
216 (in-package :cl-user)
217
218 (import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
219 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
220 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
221 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
222 (export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
223 CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
224 CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
225 CLOSURE-SYSTEM:+OPTIMIZE-FAST+))

  ViewVC Help
Powered by ViewVC 1.1.5