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

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (hide annotations)
Fri Dec 29 21:29:22 2006 UTC (7 years, 3 months ago) by dlichteblau
Branch: MAIN
Changes since 1.7: +3 -19 lines
Use CXML's rune implementation and XML parser.
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.8 :depends-on (:cxml :mcclim #+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 dlichteblau 1.8 (:file "util"
79 dan 1.1 :depends-on ("package" dependent))
80     (:file "match"
81 dlichteblau 1.8 :depends-on ("package" dependent "util"))))
82 dan 1.1
83    
84     (asdf:defsystem closure
85 emarsden 1.4 :depends-on (:clim
86 dan 1.1 :clim-clx
87     :glisp)
88 gilbert 1.2 :default-component-class closure-source-file
89 dan 1.1 :components
90     ((:module src
91     :serial t
92     :components
93     (;;; Patches
94     (:module patches
95     :components
96     ((:file "clx-patch")))
97    
98     ;; Images
99    
100     (:module imagelib
101     :serial t
102     :components
103     ((:file "package")
104     (:file "basic")
105     (:file "deflate")
106     (:file "png")))
107    
108     ;; Early package definitions
109    
110     (:file "defpack")
111    
112     ;; Closure Protocol Declarations first
113    
114     (:module protocols
115     :serial t
116     :components
117     ((:file "package")
118     (:file "element")
119     (:file "css-support")))
120    
121     ;; Libraries
122    
123     ;; CLEX and LALR
124    
125     (:module clex
126     :pathname "util/"
127     :components
128     ((:file "clex") ))
129    
130     (:module lalr
131     :pathname "util/"
132     :components
133     ((:file "lalr") ))
134    
135     ;; Networking stuff
136    
137     (:module net
138     :components
139     ((:file "package" :depends-on ("url"))
140     (:file "common-parse" :depends-on ("package"))
141     (:file "mime" :depends-on ("package"))
142     (:file "url" :depends-on ())
143     (:file "http" :depends-on ("package" "url"))
144     (:file "ftp" :depends-on ("package" "url")) ))
145    
146     ;; The HTML parser
147    
148     (:module parse
149     :depends-on (clex lalr)
150     :components
151     ((:file "package")
152     (:file "pt" :depends-on ("package"))
153     (:file "sgml-dtd" :depends-on ("package"))
154     (:file "sgml-parse" :depends-on ("package" "sgml-dtd")) ))
155    
156     ;; More Random Utilities
157    
158     (:module util
159     :components
160     ((:file "character-set")
161     (:file "xterm")))
162    
163     ;; CSS
164    
165     (:module css
166     :depends-on (net ;needs URL package
167     "defpack")
168     :serial t
169     :components
170     ((:file "package")
171     (:file "css-support")
172     (:file "css-parse")
173     (:file "css-selector")
174     (:file "css-setup")
175     (:file "css-properties")))
176    
177     ;; Renderer
178    
179     (:module renderer
180     :serial t
181     :components
182     (
183     (:file "package")
184    
185     (:file "device") ;Declaration of the device abstraction
186     (:file "fonts") ;Font Databases
187    
188     (:file "texpara")
189     (:file "images")
190     (:file "x11")
191     (:file "r-struct")
192     (:file "document")
193     (:file "raux")
194     (:file "renderer")
195     (:file "hyphenation") ;Hyphenation of words
196     (:file "clim-draw") ;some drawing "primitives" for the clim device
197     (:file "renderer2")
198     (:file "list-item")
199     ; "tables"
200     (:file "clim-device")))
201    
202     ;; HTML
203    
204     (:module html
205     :components
206     ((:file "html-style")))
207    
208     ;; GUI
209    
210     (:module gui
211     :serial t
212     :components
213     ((:file "gui") (:file "clue-gui")
214     (:file "dce-and-pce") (:file "clue-input")
215     (:file "clim-gui")) )
216    
217     ;; Patches
218    
219     (:file "patch")
220     ))
221    
222     ;; Some resources
223    
224     (:module resources
225     :components
226     ((:file "resources")) )))
227    
228     (in-package :cl-user)
229    
230     (import '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
231     CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
232     CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
233     CLOSURE-SYSTEM:+OPTIMIZE-FAST+))
234     (export '(CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST+
235     CLOSURE-SYSTEM:+OPTIMIZE-NORMAL+
236     CLOSURE-SYSTEM:+OPTIMIZE-VERY-FAST-TRUSTED+
237     CLOSURE-SYSTEM:+OPTIMIZE-FAST+))

  ViewVC Help
Powered by ViewVC 1.1.5