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

Contents of /closure/closure.asd

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.20 - (hide 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 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.19 :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 dan 1.1 :components
69     ((:file dependent
70     :pathname
71     #+CLISP "dep-clisp"
72 dlichteblau 1.11 #+(AND :CMU (NOT SCL)) "dep-cmucl"
73 dan 1.1 #+sbcl "dep-sbcl"
74 dlichteblau 1.11 #+SCL "dep-scl"
75 dlichteblau 1.10 #+ALLEGRO "dep-acl"
76 dan 1.1 #+GCL "dep-gcl"
77 crhodes 1.6 #+OPENMCL "dep-openmcl"
78     #-(OR sbcl CLISP CMU ALLEGRO GCL OPENMCL) #.(error "Configure!"))
79 dan 1.1 (:file "package"
80     :depends-on (dependent))
81 dlichteblau 1.8 (:file "util"
82 dan 1.1 :depends-on ("package" dependent))
83     (:file "match"
84 dlichteblau 1.8 :depends-on ("package" dependent "util"))))
85 dan 1.1
86    
87     (asdf:defsystem closure
88 dlichteblau 1.14 :depends-on (:mcclim
89 dlichteblau 1.12 :glisp
90 dlichteblau 1.15 :bordeaux-threads
91 dlichteblau 1.16 :trivial-sockets
92     :zip
93 emarsden 1.17 :flexi-streams
94     :skippy)
95 gilbert 1.2 :default-component-class closure-source-file
96 dan 1.1 :components
97     ((:module src
98     :serial t
99     :components
100     (;;; Patches
101     (:module patches
102     :components
103     ((:file "clx-patch")))
104 emarsden 1.17
105 dan 1.1 ;; Images
106    
107     (:module imagelib
108     :serial t
109     :components
110     ((:file "package")
111     (:file "basic")
112     (:file "deflate")
113 emarsden 1.17 (:file "png")
114     (:file "gif")
115     (:file "jpeg")))
116 dan 1.1
117     ;; Early package definitions
118    
119     (:file "defpack")
120 emarsden 1.17
121 dan 1.1 ;; 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 dlichteblau 1.19 (:file "pt")
172    
173 dan 1.1 (: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