/[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.15 - (show annotations) (vendor branch)
Mon Jun 10 16:43:29 1991 UTC (22 years, 10 months ago) by chiles
Changes since 1.1.1.14: +1 -0 lines
Added debug.lisp.
1 ;;;
2 ;;; This file compiles all of Hemlock.
3 ;;;
4
5 #+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
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
23 ;;;
24 (in-package "HEMLOCK"
25 :nicknames '("ED")
26 :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
27 ;;;
28 (export 'c::compile-from-stream (find-package "C"))
29
30
31 (in-package "USER")
32
33 (pushnew :command-bits *features*)
34 (pushnew :buffered-lines *features*)
35
36 (with-compiler-log-file
37 ("target:compile-hemlock.log"
38 :optimize
39 '(optimize (debug-info #-small 2 #+small .5)
40 (speed 2) (inhibit-warnings 2)
41 (safety #-small 1 #+small 0))
42 :optimize-interface
43 '(optimize-interface (debug-info .5))
44 :context-declarations
45 '(((:or :external (:match "$%SET-"))
46 (declare (optimize (safety 2))
47 (optimize-interface (debug-info 1))))))
48
49 (comf "target:code/globals")
50 (comf "target:code/struct")
51 (comf "target:hemlock/charmacs")
52 (comf "target:hemlock/key-event")
53 (comf "target:hemlock/struct")
54 ;(comf "target:hemlock/struct-ed")
55 (comf "target:hemlock/rompsite")
56 ;;;
57 ;;; This is necessary since all the #k uses in Hemlock will expand into
58 ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
59 ;;; for the Lisp new code will run in. This destroys the compiling Lisp with
60 ;;; respect to running code with #k's compiled for it, but it causes the
61 ;;; compilation to see new keysyms, modifiers, and CLX modifier maps correctly
62 ;;; for the new system.
63 ;;;
64 (ext::re-initialize-key-events)
65 (comf "target:hemlock/keysym-defs")
66 (comf "target:hemlock/input")
67 (comf "target:hemlock/macros")
68 (comf "target:hemlock/line")
69 (comf "target:hemlock/ring")
70 (comf "target:hemlock/table")
71 (comf "target:hemlock/htext1")
72 (comf "target:hemlock/htext2")
73 (comf "target:hemlock/htext3")
74 (comf "target:hemlock/htext4")
75 (comf "target:hemlock/search1")
76 (comf "target:hemlock/search2")
77 (comf "target:hemlock/linimage")
78 (comf "target:hemlock/cursor")
79 (comf "target:hemlock/syntax")
80 (comf "target:hemlock/winimage")
81 #+clx (comf "target:hemlock/hunk-draw")
82 ;(comf "target:hemlock/bit-stream")
83 (comf "target:hemlock/termcap")
84 (comf "target:hemlock/display")
85 #+clx (comf "target:hemlock/bit-display")
86 (comf "target:hemlock/tty-disp-rt")
87 (with-compilation-unit (:optimize '(optimize (safety 2) (debug-info 3)))
88 (comf "target:hemlock/tty-display")) ; Buggy...
89 ;(comf "target:hemlock/tty-stream")
90 (comf "target:hemlock/pop-up-stream")
91 (comf "target:hemlock/screen")
92 #+clx (comf "target:hemlock/bit-screen")
93 (comf "target:hemlock/tty-screen")
94 (comf "target:hemlock/window")
95 (comf "target:hemlock/font")
96 (comf "target:hemlock/interp")
97 (comf "target:hemlock/vars")
98 (comf "target:hemlock/buffer")
99 (comf "target:hemlock/files")
100 (comf "target:hemlock/streams")
101 (comf "target:hemlock/echo")
102 (comf "target:hemlock/main")
103 (comf "target:hemlock/echocoms")
104 (comf "target:hemlock/defsyn")
105
106 (with-compilation-unit
107 (:optimize
108 '(optimize (safety 2))
109 :context-declarations
110 '(((:match "-COMMAND$")
111 (declare (optimize (safety #+small 0 #-small 1))
112 (optimize-interface (safety 2))))))
113
114 (comf "target:hemlock/command")
115 (comf "target:hemlock/morecoms")
116 (comf "target:hemlock/undo")
117 (comf "target:hemlock/killcoms")
118 (comf "target:hemlock/searchcoms")
119 (comf "target:hemlock/filecoms")
120 (comf "target:hemlock/indent")
121 (comf "target:hemlock/lispmode")
122 (comf "target:hemlock/comments")
123 (comf "target:hemlock/fill")
124 (comf "target:hemlock/text")
125 (comf "target:hemlock/doccoms")
126 (comf "target:hemlock/srccom")
127 (comf "target:hemlock/group")
128 (comf "target:hemlock/spell-rt")
129 (comf "target:hemlock/spell-corr")
130 (comf "target:hemlock/spell-aug")
131 (comf "target:hemlock/spell-build")
132 (comf "target:hemlock/spellcoms")
133 (comf "target:hemlock/abbrev")
134 (comf "target:hemlock/overwrite")
135 (comf "target:hemlock/gosmacs")
136 (comf "target:hemlock/ts-buf")
137 (comf "target:hemlock/ts-stream")
138 (comf "target:hemlock/eval-server")
139 (comf "target:hemlock/lispbuf")
140 (comf "target:hemlock/lispeval")
141 (comf "target:hemlock/kbdmac")
142 (comf "target:hemlock/icom")
143 (comf "target:hemlock/hi-integrity")
144 (comf "target:hemlock/ed-integrity")
145 (comf "target:hemlock/scribe")
146 (comf "target:hemlock/pascal")
147 (comf "target:hemlock/edit-defs")
148 (comf "target:hemlock/auto-save")
149 (comf "target:hemlock/register")
150 (comf "target:hemlock/xcoms")
151 (comf "target:hemlock/unixcoms")
152 (comf "target:hemlock/mh")
153 (comf "target:hemlock/highlight")
154 (comf "target:hemlock/dired")
155 (comf "target:hemlock/diredcoms")
156 (comf "target:hemlock/bufed")
157 (comf "target:hemlock/lisp-lib")
158 (comf "target:hemlock/completion")
159 (comf "target:hemlock/shell")
160 (comf "target:hemlock/debug")
161 ); WITH-COMPILATION-UNIT for commands
162
163 (comf "target:hemlock/bindings")
164 (comf "target:hemlock/hacks")
165
166 ); With-Compiler-Log-File

  ViewVC Help
Powered by ViewVC 1.1.5