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

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (hide annotations)
Sun Dec 31 13:00:03 2006 UTC (7 years, 3 months ago) by dlichteblau
Branch: MAIN
Changes since 1.9: +1 -2 lines
As part of the great glisp cleanup, remove dep-acl5.lisp.  Hopefully
this doesn't break anything, but according to both closure.asd and
closure.system, this file hasn't been in use ever since Allegro 6.0 came
out, and it's now at version 8.0.  Obviously, this file was -meant- for
ACL >= 5.0, not ACL == 5.0, but that's not what the reader conditionals
say.  The differences to dep-acl.lisp seem negligible anyway.  If this
breaks anything, please complain so that it can be fixed.
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 dlichteblau 1.9 :depends-on (:cxml :mcclim
64     ;; uncomment this if we actually need gray streams:
65     ;; :trivial-gray-streams
66     #+sbcl :sb-bsd-sockets)
67 dan 1.1 :components
68     ((:file dependent
69     :pathname
70     #+CLISP "dep-clisp"
71     #+(AND :CMU (NOT :PTHREAD)) "dep-cmucl"
72     #+sbcl "dep-sbcl"
73     #+(AND :CMU :PTHREAD) "dep-cmucl-dtc"
74 dlichteblau 1.10 #+ALLEGRO "dep-acl"
75 dan 1.1 #+GCL "dep-gcl"
76 crhodes 1.6 #+OPENMCL "dep-openmcl"
77     #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
78 dan 1.1 (:file "package"
79     :depends-on (dependent))
80 dlichteblau 1.8 (:file "util"
81 dan 1.1 :depends-on ("package" dependent))
82     (:file "match"
83 dlichteblau 1.8 :depends-on ("package" dependent "util"))))
84 dan 1.1
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     ;; CLEX and LALR
126    
127     (:module clex
128     :pathname "util/"
129     :components
130     ((:file "clex") ))
131    
132     (:module lalr
133     :pathname "util/"
134     :components
135     ((:file "lalr") ))
136    
137     ;; Networking stuff
138    
139     (:module net
140     :components
141     ((:file "package" :depends-on ("url"))
142     (:file "common-parse" :depends-on ("package"))
143     (:file "mime" :depends-on ("package"))
144     (:file "url" :depends-on ())
145     (:file "http" :depends-on ("package" "url"))
146     (:file "ftp" :depends-on ("package" "url")) ))
147    
148     ;; The HTML parser
149    
150     (:module parse
151     :depends-on (clex lalr)
152     :components
153     ((:file "package")
154     (:file "pt" :depends-on ("package"))
155     (:file "sgml-dtd" :depends-on ("package"))
156     (:file "sgml-parse" :depends-on ("package" "sgml-dtd")) ))
157    
158     ;; More Random Utilities
159    
160     (:module util
161     :components
162     ((:file "character-set")
163     (:file "xterm")))
164    
165     ;; CSS
166    
167     (:module css
168     :depends-on (net ;needs URL package
169     "defpack")
170     :serial t
171     :components
172     ((:file "package")
173     (:file "css-support")
174     (:file "css-parse")
175     (:file "css-selector")
176     (:file "css-setup")
177     (:file "css-properties")))
178    
179     ;; Renderer
180    
181     (:module renderer
182     :serial t
183     :components
184     (
185     (:file "package")
186    
187     (:file "device") ;Declaration of the device abstraction
188     (:file "fonts") ;Font Databases
189    
190     (:file "texpara")
191     (:file "images")
192     (:file "x11")
193     (:file "r-struct")
194     (:file "document")
195     (:file "raux")
196     (:file "renderer")
197     (:file "hyphenation") ;Hyphenation of words
198     (:file "clim-draw") ;some drawing "primitives" for the clim device
199     (:file "renderer2")
200     (:file "list-item")
201     ; "tables"
202     (:file "clim-device")))
203    
204     ;; HTML
205    
206     (:module html
207     :components
208     ((:file "html-style")))
209    
210     ;; GUI
211    
212     (:module gui
213     :serial t
214     :components
215     ((:file "gui") (:file "clue-gui")
216     (:file "dce-and-pce") (:file "clue-input")
217     (:file "clim-gui")) )
218    
219     ;; Patches
220    
221     (:file "patch")
222     ))
223    
224     ;; Some resources
225    
226     (:module resources
227     :components
228     ((:file "resources")) )))
229    
230     (in-package :cl-user)
231    
232     (import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
233     CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
234     CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
235     CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
236     (export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
237     CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
238     CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
239     CLOSURE-SYSTEM:+OPTIMIZE-FAST+))

  ViewVC Help
Powered by ViewVC 1.1.5