/[cmucl]/src/tools/hemcom.lisp
ViewVC logotype

Contents of /src/tools/hemcom.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.20 - (hide annotations) (vendor branch)
Fri May 22 19:11:24 1992 UTC (21 years, 11 months ago) by ram
Changes since 1.1.1.19: +100 -5 lines
Removed compilation of key-event stuff, as that is now part of CLX (there is
probably a problem loading w/o CLX now...)
Load clx from the clx-library file.
Changed to produce the hemlock-library fasl file holding all of hemlock.
1 ram 1.1.1.9 ;;;
2 ram 1.1 ;;; This file compiles all of Hemlock.
3     ;;;
4    
5 ram 1.1.1.12 #+bootstrap
6     (progn
7     (when (ext:get-command-line-switch "slave")
8     (error "Cannot compile Hemlock in a slave due to its clobbering needed
9     typescript routines by renaming the package."))
10    
11     ;;; Blast the old packages in case they are around. We do this solely to
12     ;;; prove Hemlock can compile cleanly without its having to exist already.
13     ;;;
14     (copy-packages '("ED" "HI")))
15 ram 1.1
16    
17     ;;; Stuff to set up the packages Hemlock uses.
18     ;;;
19     (in-package "HEMLOCK-INTERNALS"
20     :nicknames '("HI")
21     :use '("LISP" "EXTENSIONS" "SYSTEM"))
22 ram 1.1.1.4
23 ram 1.1 ;;;
24     (in-package "HEMLOCK"
25     :nicknames '("ED")
26     :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
27     ;;;
28 wlott 1.1.1.7 (export 'c::compile-from-stream (find-package "C"))
29 ram 1.1.1.2
30 ram 1.1.1.4
31 ram 1.1.1.1 (in-package "USER")
32    
33 ram 1.1 (pushnew :command-bits *features*)
34     (pushnew :buffered-lines *features*)
35    
36 ram 1.1.1.18 #-clx
37     ;;; If CLX has not been loaded, but has been compiled, then load it.
38     ;;;
39 ram 1.1.1.20 (when (probe-file (make-pathname :defaults "target:clx/clx-library"
40 ram 1.1.1.18 :type (c:backend-fasl-file-type c:*backend*)))
41 ram 1.1.1.20 (load "target:clx/clx-library"))
42 ram 1.1.1.18
43 ram 1.1.1.12 (with-compiler-log-file
44     ("target:compile-hemlock.log"
45     :optimize
46 ram 1.1.1.14 '(optimize (debug-info #-small 2 #+small .5)
47 ram 1.1.1.12 (speed 2) (inhibit-warnings 2)
48     (safety #-small 1 #+small 0))
49     :optimize-interface
50 ram 1.1.1.14 '(optimize-interface (debug-info .5))
51 ram 1.1.1.12 :context-declarations
52 ram 1.1.1.13 '(((:or :external (:match "$%SET-"))
53 ram 1.1.1.14 (declare (optimize (safety 2))
54     (optimize-interface (debug-info 1))))))
55 ram 1.1
56 ram 1.1.1.10 (comf "target:code/globals")
57     (comf "target:code/struct")
58     (comf "target:hemlock/charmacs")
59 wlott 1.1.1.17 (comf "target:hemlock/key-event" :load t)
60 ram 1.1.1.10 (comf "target:hemlock/struct")
61     ;(comf "target:hemlock/struct-ed")
62     (comf "target:hemlock/rompsite")
63 ram 1.1.1.3 ;;;
64     ;;; This is necessary since all the #k uses in Hemlock will expand into
65     ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
66     ;;; for the Lisp new code will run in. This destroys the compiling Lisp with
67     ;;; respect to running code with #k's compiled for it, but it causes the
68     ;;; compilation to see new keysyms, modifiers, and CLX modifier maps correctly
69     ;;; for the new system.
70     ;;;
71     (ext::re-initialize-key-events)
72 ram 1.1.1.10 (comf "target:hemlock/keysym-defs")
73 wlott 1.1.1.6 (comf "target:hemlock/input")
74 ram 1.1.1.10 (comf "target:hemlock/macros")
75     (comf "target:hemlock/line")
76 wlott 1.1.1.6 (comf "target:hemlock/ring")
77     (comf "target:hemlock/table")
78     (comf "target:hemlock/htext1")
79     (comf "target:hemlock/htext2")
80     (comf "target:hemlock/htext3")
81     (comf "target:hemlock/htext4")
82     (comf "target:hemlock/search1")
83     (comf "target:hemlock/search2")
84     (comf "target:hemlock/linimage")
85     (comf "target:hemlock/cursor")
86     (comf "target:hemlock/syntax")
87     (comf "target:hemlock/winimage")
88     #+clx (comf "target:hemlock/hunk-draw")
89     ;(comf "target:hemlock/bit-stream")
90     (comf "target:hemlock/termcap")
91     (comf "target:hemlock/display")
92     #+clx (comf "target:hemlock/bit-display")
93     (comf "target:hemlock/tty-disp-rt")
94 ram 1.1.1.13 (with-compilation-unit (:optimize '(optimize (safety 2) (debug-info 3)))
95     (comf "target:hemlock/tty-display")) ; Buggy...
96 wlott 1.1.1.6 ;(comf "target:hemlock/tty-stream")
97     (comf "target:hemlock/pop-up-stream")
98     (comf "target:hemlock/screen")
99     #+clx (comf "target:hemlock/bit-screen")
100     (comf "target:hemlock/tty-screen")
101     (comf "target:hemlock/window")
102     (comf "target:hemlock/font")
103     (comf "target:hemlock/interp")
104     (comf "target:hemlock/vars")
105     (comf "target:hemlock/buffer")
106     (comf "target:hemlock/files")
107     (comf "target:hemlock/streams")
108     (comf "target:hemlock/echo")
109     (comf "target:hemlock/main")
110     (comf "target:hemlock/echocoms")
111     (comf "target:hemlock/defsyn")
112 ram 1.1.1.12
113 chiles 1.1.1.16
114 ram 1.1.1.12 (with-compilation-unit
115     (:optimize
116     '(optimize (safety 2))
117     :context-declarations
118     '(((:match "-COMMAND$")
119     (declare (optimize (safety #+small 0 #-small 1))
120     (optimize-interface (safety 2))))))
121    
122 wlott 1.1.1.6 (comf "target:hemlock/command")
123     (comf "target:hemlock/morecoms")
124     (comf "target:hemlock/undo")
125     (comf "target:hemlock/killcoms")
126     (comf "target:hemlock/searchcoms")
127     (comf "target:hemlock/filecoms")
128     (comf "target:hemlock/indent")
129     (comf "target:hemlock/lispmode")
130     (comf "target:hemlock/comments")
131     (comf "target:hemlock/fill")
132     (comf "target:hemlock/text")
133     (comf "target:hemlock/doccoms")
134     (comf "target:hemlock/srccom")
135     (comf "target:hemlock/group")
136     (comf "target:hemlock/spell-rt")
137     (comf "target:hemlock/spell-corr")
138     (comf "target:hemlock/spell-aug")
139     (comf "target:hemlock/spell-build")
140     (comf "target:hemlock/spellcoms")
141     (comf "target:hemlock/abbrev")
142     (comf "target:hemlock/overwrite")
143     (comf "target:hemlock/gosmacs")
144     (comf "target:hemlock/ts-buf")
145     (comf "target:hemlock/ts-stream")
146     (comf "target:hemlock/eval-server")
147     (comf "target:hemlock/lispbuf")
148     (comf "target:hemlock/lispeval")
149     (comf "target:hemlock/kbdmac")
150     (comf "target:hemlock/icom")
151     (comf "target:hemlock/hi-integrity")
152     (comf "target:hemlock/ed-integrity")
153     (comf "target:hemlock/scribe")
154     (comf "target:hemlock/pascal")
155     (comf "target:hemlock/edit-defs")
156     (comf "target:hemlock/auto-save")
157     (comf "target:hemlock/register")
158     (comf "target:hemlock/xcoms")
159     (comf "target:hemlock/unixcoms")
160     (comf "target:hemlock/mh")
161     (comf "target:hemlock/highlight")
162     (comf "target:hemlock/dired")
163     (comf "target:hemlock/diredcoms")
164     (comf "target:hemlock/bufed")
165     (comf "target:hemlock/lisp-lib")
166     (comf "target:hemlock/completion")
167     (comf "target:hemlock/shell")
168 chiles 1.1.1.15 (comf "target:hemlock/debug")
169 chiles 1.1.1.16 (comf "target:hemlock/netnews")
170 ram 1.1.1.19 (comf "target:tools/rcs")
171 ram 1.1.1.12
172 chiles 1.1.1.16 ) ;WITH-COMPILATION-UNIT for commands
173    
174    
175 wlott 1.1.1.6 (comf "target:hemlock/bindings")
176     (comf "target:hemlock/hacks")
177 ram 1.1.1.1
178 chiles 1.1.1.16 ) ;WITH-COMPILER-LOG-FILE
179 ram 1.1.1.20
180    
181     (ext:run-program
182     "cat"
183     (mapcar #'(lambda (x)
184     (namestring
185     (truename
186     (make-pathname
187     :name x
188     :type (c:backend-fasl-file-type c:*target-backend*)))))
189     '("target:hemlock/rompsite"
190     "target:hemlock/struct"
191     ; "target:hemlock/struct-ed"
192     "target:hemlock/charmacs"
193     "target:hemlock/input"
194     "target:hemlock/line"
195     "target:hemlock/ring"
196     "target:hemlock/vars"
197     "target:hemlock/buffer"
198     "target:hemlock/macros"
199     "target:hemlock/interp"
200     "target:hemlock/syntax"
201     "target:hemlock/htext1"
202     "target:hemlock/htext2"
203     "target:hemlock/htext3"
204     "target:hemlock/htext4"
205     "target:hemlock/files"
206     "target:hemlock/search1"
207     "target:hemlock/search2"
208     "target:hemlock/table"
209     #+clx "target:hemlock/hunk-draw"
210     "target:hemlock/window"
211     "target:hemlock/screen"
212     "target:hemlock/winimage"
213     "target:hemlock/linimage"
214     "target:hemlock/display"
215     "target:hemlock/termcap"
216     #+clx "target:hemlock/bit-display"
217     "target:hemlock/tty-disp-rt"
218     "target:hemlock/tty-display"
219     "target:hemlock/pop-up-stream"
220     #+clx "target:hemlock/bit-screen"
221     "target:hemlock/tty-screen"
222     "target:hemlock/cursor"
223     "target:hemlock/font"
224     "target:hemlock/streams"
225     "target:hemlock/hacks"
226     "target:hemlock/main"
227     "target:hemlock/echo"
228     "target:hemlock/echocoms"
229     "target:hemlock/command"
230     "target:hemlock/indent"
231     "target:hemlock/comments"
232     "target:hemlock/morecoms"
233     "target:hemlock/undo"
234     "target:hemlock/killcoms"
235     "target:hemlock/searchcoms"
236     "target:hemlock/filecoms"
237     "target:hemlock/doccoms"
238     "target:hemlock/srccom"
239     "target:hemlock/group"
240     "target:hemlock/fill"
241     "target:hemlock/text"
242     "target:hemlock/lispmode"
243     "target:hemlock/ts-buf"
244     "target:hemlock/ts-stream"
245     "target:hemlock/eval-server"
246     "target:hemlock/lispbuf"
247     "target:hemlock/lispeval"
248     "target:hemlock/spell-rt"
249     "target:hemlock/spell-corr"
250     "target:hemlock/spell-aug"
251     "target:hemlock/spellcoms"
252     "target:hemlock/overwrite"
253     "target:hemlock/abbrev"
254     "target:hemlock/icom"
255     "target:hemlock/kbdmac"
256     "target:hemlock/defsyn"
257     "target:hemlock/scribe"
258     "target:hemlock/pascal"
259     "target:hemlock/edit-defs"
260     "target:hemlock/auto-save"
261     "target:hemlock/register"
262     "target:hemlock/xcoms"
263     "target:hemlock/unixcoms"
264     "target:hemlock/mh"
265     "target:hemlock/highlight"
266     "target:hemlock/dired"
267     "target:hemlock/diredcoms"
268     "target:hemlock/bufed"
269     "target:hemlock/lisp-lib"
270     "target:hemlock/completion"
271     "target:hemlock/shell"
272     "target:hemlock/debug"
273     "target:hemlock/netnews"
274     "target:hemlock/bindings"))
275     :output (make-pathname :defaults "target:hemlock/hemlock-library
276     :type (c:backend-fasl-file-type c:*target-backend*)))

  ViewVC Help
Powered by ViewVC 1.1.5