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

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide annotations)
Wed Jan 11 22:05:54 2006 UTC (8 years, 3 months ago) by tdalyjr
Branch: MAIN
Changes since 1.6: +1 -0 lines
Patch by Vincent Arkesteijn to indicate the glisp system's dependance
on the clim and, in sbcl, sb-bsd-sockets systems.
1 dan 1.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 gilbert 1.2 (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 dan 1.1 (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 gilbert 1.2 :default-component-class closure-source-file
63 tdalyjr 1.7 :depends-on (:clim #+sbcl :sb-bsd-sockets)
64 dan 1.1 :components
65     ((:file dependent
66     :pathname
67     #+CLISP "dep-clisp"
68     #+(AND :CMU (NOT :PTHREAD)) "dep-cmucl"
69     #+sbcl "dep-sbcl"
70     #+(AND :CMU :PTHREAD) "dep-cmucl-dtc"
71     #+(AND ALLEGRO ALLEGRO-V5.0) "dep-acl5"
72     #+(AND ALLEGRO (NOT ALLEGRO-V5.0)) "dep-acl"
73     #+GCL "dep-gcl"
74 crhodes 1.6 #+OPENMCL "dep-openmcl"
75     #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
76 dan 1.1 (:file "package"
77     :depends-on (dependent))
78     (:file "runes"
79     :depends-on ("package" dependent))
80     (:file "util"
81     :depends-on ("package" dependent "runes"))
82     (:file "match"
83     :depends-on ("package" dependent "runes" "util"))))
84    
85    
86     (asdf:defsystem closure
87 emarsden 1.4 :depends-on (:clim
88 dan 1.1 :clim-clx
89     :glisp)
90 gilbert 1.2 :default-component-class closure-source-file
91 dan 1.1 :components
92     ((:module src
93     :serial t
94     :components
95     (;;; Patches
96     (:module patches
97     :components
98     ((:file "clx-patch")))
99    
100     ;; Images
101    
102     (:module imagelib
103     :serial t
104     :components
105     ((:file "package")
106     (:file "basic")
107     (:file "deflate")
108     (:file "png")))
109    
110     ;; Early package definitions
111    
112     (:file "defpack")
113    
114     ;; Closure Protocol Declarations first
115    
116     (:module protocols
117     :serial t
118     :components
119     ((:file "package")
120     (:file "element")
121     (:file "css-support")))
122    
123     ;; Libraries
124    
125     (:module xml
126     :components
127     ((:file "package")
128     (:file "encodings" :depends-on ("package"))
129     (:file "encodings-data" :depends-on ("package" "encodings"))
130 hmot 1.3 (:file "sax-handler")
131 dan 1.1 (:file "dompack")
132     (:file "dom-impl" :depends-on ("dompack"))
133 hmot 1.3 (:file "dom-builder" :depends-on ("dom-impl" "sax-handler"))
134 dan 1.1 (:file "xml-stream" :depends-on ("package"))
135     (:file "xml-name-rune-p" :depends-on ("package"))
136 hmot 1.3 (:file "xml-parse" :depends-on ("package" "dompack" "sax-handler"))
137 dan 1.1 (:file "xml-canonic" :depends-on ("package" "dompack" "xml-parse")) ))
138    
139     ;; CLEX and LALR
140    
141     (:module clex
142     :pathname "util/"
143     :components
144     ((:file "clex") ))
145    
146     (:module lalr
147     :pathname "util/"
148     :components
149     ((:file "lalr") ))
150    
151     ;; Networking stuff
152    
153     (:module net
154     :components
155     ((:file "package" :depends-on ("url"))
156     (:file "common-parse" :depends-on ("package"))
157     (:file "mime" :depends-on ("package"))
158     (:file "url" :depends-on ())
159     (:file "http" :depends-on ("package" "url"))
160     (:file "ftp" :depends-on ("package" "url")) ))
161    
162     ;; The HTML parser
163    
164     (:module parse
165     :depends-on (clex lalr)
166     :components
167     ((:file "package")
168     (:file "pt" :depends-on ("package"))
169     (:file "sgml-dtd" :depends-on ("package"))
170     (:file "sgml-parse" :depends-on ("package" "sgml-dtd")) ))
171    
172     ;; More Random Utilities
173    
174     (:module util
175     :components
176     ((:file "character-set")
177     (:file "xterm")))
178    
179     ;; CSS
180    
181     (:module css
182     :depends-on (net ;needs URL package
183     "defpack")
184     :serial t
185     :components
186     ((:file "package")
187     (:file "css-support")
188     (:file "css-parse")
189     (:file "css-selector")
190     (:file "css-setup")
191     (:file "css-properties")))
192    
193     ;; Renderer
194    
195     (:module renderer
196     :serial t
197     :components
198     (
199     (:file "package")
200    
201     (:file "device") ;Declaration of the device abstraction
202     (:file "fonts") ;Font Databases
203    
204     (:file "texpara")
205     (:file "images")
206     (:file "x11")
207     (:file "r-struct")
208     (:file "document")
209     (:file "raux")
210     (:file "renderer")
211     (:file "hyphenation") ;Hyphenation of words
212     (:file "clim-draw") ;some drawing "primitives" for the clim device
213     (:file "renderer2")
214     (:file "list-item")
215     ; "tables"
216     (:file "clim-device")))
217    
218     ;; HTML
219    
220     (:module html
221     :components
222     ((:file "html-style")))
223    
224     ;; GUI
225    
226     (:module gui
227     :serial t
228     :components
229     ((:file "gui") (:file "clue-gui")
230     (:file "dce-and-pce") (:file "clue-input")
231     (:file "clim-gui")) )
232    
233     ;; Patches
234    
235     (:file "patch")
236     ))
237    
238     ;; Some resources
239    
240     (:module resources
241     :components
242     ((:file "resources")) )))
243    
244     (in-package :cl-user)
245    
246     (import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
247     CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
248     CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
249     CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
250     (export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
251     CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
252     CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
253     CLOSURE-SYSTEM:+OPTIMIZE-FAST+))

  ViewVC Help
Powered by ViewVC 1.1.5