/[cmucl]/src/clx/excldefsys.lisp
ViewVC logotype

Contents of /src/clx/excldefsys.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Tue Aug 21 15:49:28 2007 UTC (6 years, 7 months ago) by fgilham
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, merged-unicode-utf16-extfmt-2009-06-11, unicode-utf16-extfmt-2009-03-27, snapshot-2007-09, snapshot-2008-08, snapshot-2008-09, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, release-19e, release-19d, GIT-CONVERSION, unicode-utf16-sync-2008-12, cross-sol-x86-merged, label-2009-03-16, release-19f-base, merge-sse2-packed, merge-with-19f, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, RELEASE_20b, snapshot-2008-04, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, release-19e-pre1, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, label-2009-03-25, cross-sol-x86-2010-12-20, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, sse2-merge-with-2008-11, sse2-merge-with-2008-10, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, unicode-utf16-string-support, cross-sparc-branch-base, release-19e-base, intl-branch-base, unicode-utf16-base, portable-clx-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, HEAD
Branch point for: RELEASE-19F-BRANCH, portable-clx-branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, sse2-packed-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.2: +3 -0 lines
Telent CLX import
1 ;;; -*- Mode: common-lisp; Package: xlib; Base: 10; Lowercase: Yes -*-
2 ;;;
3 ;;; Copyright (c) 1988, 1989 Franz Inc, Berkeley, Ca.
4 ;;;
5 ;;; Permission is granted to any individual or institution to use, copy,
6 ;;; modify, and distribute this software, provided that this complete
7 ;;; copyright and permission notice is maintained, intact, in all copies and
8 ;;; supporting documentation.
9 ;;;
10 ;;; Franz Incorporated provides this software "as is" without express or
11 ;;; implied warranty.
12 ;;;
13
14 #+cmu
15 (ext:file-comment "$Id")
16
17 (in-package :xlib :use '(:foreign-functions :lisp :excl))
18
19 #+allegro
20 (require :defsystem "defsys")
21
22 (eval-when (load)
23 (require :clxexcldep "excldep"))
24
25 ;;
26 ;; The following is a suggestion. If you comment out this form be
27 ;; prepared for possible deadlock, since no interrupts will be recognized
28 ;; while reading from the X socket if the scheduler is not running.
29 ;;
30 (setq compiler::generate-interrupt-checks-switch
31 (compile nil '(lambda (safety size speed)
32 (declare (ignore size))
33 (or (< speed 3) (> safety 0)))))
34
35
36 #+allegro
37 (excl:defsystem :clx
38 ()
39 |depdefs|
40 (|clx| :load-before-compile (|depdefs|)
41 :recompile-on (|depdefs|))
42 (|dependent| :load-before-compile (|depdefs| |clx|)
43 :recompile-on (|clx|))
44 (|exclcmac| :load-before-compile (|depdefs| |clx| |dependent|)
45 :recompile-on (|dependent|))
46 (|macros| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|)
47 :recompile-on (|exclcmac|))
48 (|bufmac| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
49 |macros|)
50 :recompile-on (|macros|))
51 (|buffer| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
52 |macros| |bufmac|)
53 :recompile-on (|bufmac|))
54 (|display| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
55 |macros| |bufmac| |buffer|)
56 :recompile-on (|buffer|))
57 (|gcontext| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
58 |macros| |bufmac| |buffer|
59 |display|)
60 :recompile-on (|display|))
61 (|input| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
62 |macros| |bufmac| |buffer| |display|
63 )
64 :recompile-on (|display|))
65 (|requests| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
66 |macros| |bufmac| |buffer|
67 |display| |input|)
68 :recompile-on (|display|))
69 (|fonts| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
70 |macros| |bufmac| |buffer| |display|
71 )
72 :recompile-on (|display|))
73 (|graphics| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
74 |macros| |bufmac| |buffer|
75 |display| |fonts|)
76 :recompile-on (|fonts|))
77 (|text| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac| |macros|
78 |bufmac| |buffer| |display|
79 |gcontext| |fonts|)
80 :recompile-on (|gcontext| |fonts|)
81 :load-after (|translate|))
82 ;; The above line gets around a compiler macro expansion bug.
83
84 (|attributes| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
85 |macros| |bufmac| |buffer|
86 |display|)
87 :recompile-on (|display|))
88 (|translate| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
89 |macros| |bufmac| |buffer|
90 |display| |text|)
91 :recompile-on (|display|))
92 (|keysyms| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
93 |macros| |bufmac| |buffer|
94 |display| |translate|)
95 :recompile-on (|translate|))
96 (|manager| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
97 |macros| |bufmac| |buffer|
98 |display|)
99 :recompile-on (|display|))
100 (|image| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
101 |macros| |bufmac| |buffer| |display|
102 )
103 :recompile-on (|display|))
104
105 ;; Don't know if l-b-c list is correct. XX
106 (|resource| :load-before-compile (|depdefs| |clx| |dependent| |exclcmac|
107 |macros| |bufmac| |buffer|
108 |display|)
109 :recompile-on (|display|))
110 )
111
112 #+allegro
113 (excl:defsystem :clx-debug
114 (:default-pathname "debug/"
115 :needed-systems (:clx)
116 :load-before-compile (:clx))
117 |describe| |keytrans| |trace| |util|)
118
119
120 (defun compile-clx (&optional pathname-defaults)
121 (let ((*default-pathname-defaults*
122 (or pathname-defaults *default-pathname-defaults*)))
123 (declare (special *default-pathname-defaults*))
124 (compile-file "depdefs")
125 (load "depdefs")
126 (compile-file "clx")
127 (load "clx")
128 (compile-file "dependent")
129 (load "dependent")
130 (compile-file "macros")
131 (load "macros")
132 (compile-file "bufmac")
133 (load "bufmac")
134 (compile-file "buffer")
135 (load "buffer")
136 (compile-file "display")
137 (load "display")
138 (compile-file "gcontext")
139 (load "gcontext")
140 (compile-file "input")
141 (load "input")
142 (compile-file "requests")
143 (load "requests")
144 (compile-file "fonts")
145 (load "fonts")
146 (compile-file "graphics")
147 (load "graphics")
148 (compile-file "text")
149 (load "text")
150 (compile-file "attributes")
151 (load "attributes")
152 (load "translate")
153 (compile-file "translate") ; work-around bug in 2.0 and 2.2
154 (load "translate")
155 (compile-file "keysyms")
156 (load "keysyms")
157 (compile-file "manager")
158 (load "manager")
159 (compile-file "image")
160 (load "image")
161 (compile-file "resource")
162 (load "resource")
163 ))
164
165
166 (defun load-clx (&optional pathname-defaults)
167 (let ((*default-pathname-defaults*
168 (or pathname-defaults *default-pathname-defaults*)))
169 (declare (special *default-pathname-defaults*))
170 (load "depdefs")
171 (load "clx")
172 (load "dependent")
173 (load "macros")
174 (load "bufmac")
175 (load "buffer")
176 (load "display")
177 (load "gcontext")
178 (load "input")
179 (load "requests")
180 (load "fonts")
181 (load "graphics")
182 (load "text")
183 (load "attributes")
184 (load "translate")
185 (load "keysyms")
186 (load "manager")
187 (load "image")
188 (load "resource")
189 ))

  ViewVC Help
Powered by ViewVC 1.1.5