/[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.4 - (show annotations) (vendor branch)
Fri Jul 20 16:04:51 1990 UTC (23 years, 9 months ago) by ram
Branch point for: mips
Changes since 1.1.1.3: +9 -2 lines
*** empty log message ***
1 ;;;
2 ;;; This file compiles all of Hemlock.
3 ;;;
4
5 (c::%proclaim '(optimize (debug-info 2)))
6 #|
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
12 ;;; Blast the old packages in case they are around. We do this solely to
13 ;;; prove Hemlock can compile cleanly without its having to exist already.
14 ;;;
15 (unless (find-package "OLD-ED")
16 (when (find-package "ED")
17 (rename-package (find-package "ED") "OLD-ED"))
18 (when (find-package "HI")
19 (rename-package (find-package "HI") "OLD-HI")))
20 |#
21
22 ;;; Stuff to set up the packages Hemlock uses.
23 ;;;
24 (in-package "HEMLOCK-INTERNALS"
25 :nicknames '("HI")
26 :use '("LISP" "EXTENSIONS" "SYSTEM"))
27
28 ;;;
29 (in-package "HEMLOCK"
30 :nicknames '("ED")
31 :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
32 ;;;
33 (in-package "SYSTEM")
34 (export '(%sp-byte-blt %sp-find-character %sp-find-character-with-attribute
35 %sp-reverse-find-character-with-attribute))
36
37
38 (in-package "C")
39 (export 'compile-from-stream)
40
41 ;;; Hack...
42
43 (dolist (x (apropos-list "key-event" "HI"))
44 (unintern x "HI"))
45
46 (in-package "USER")
47
48 (pushnew :command-bits *features*)
49 (pushnew :buffered-lines *features*)
50
51 (with-compiler-log-file ("hem:lossage.log")
52
53 (comf "code:globals" :always-once t)
54 (comf "code:struct" :always-once t)
55 (comf "hem:key-event" :load t)
56 (comf "hem:struct" :always-once t)
57 (comf "hem:struct-ed" :always-once t)
58 (comf "hem:rompsite" :always-once t)
59 (comf "hem:charmacs" :always-once t)
60 ;;;
61 ;;; This is necessary since all the #k uses in Hemlock will expand into
62 ;;; EXT:MAKE-KEY-EVENT calls with keysyms and bits from the compiling Lisp, not
63 ;;; for the Lisp new code will run in. This destroys the compiling Lisp with
64 ;;; respect to running code with #k's compiled for it, but it causes the
65 ;;; compilation to see new keysyms, modifiers, and CLX modifier maps correctly
66 ;;; for the new system.
67 ;;;
68 (ext::re-initialize-key-events)
69 (comf "hem:keysym-defs" :load t)
70 (comf "hem:input")
71 (comf "hem:macros" :always-once t)
72 (comf "hem:line" :always-once t)
73 (comf "hem:ring")
74 (comf "hem:table")
75 (comf "hem:htext1")
76 (comf "hem:htext2")
77 (comf "hem:htext3")
78 (comf "hem:htext4")
79 (comf "hem:search1")
80 (comf "hem:search2")
81 (comf "hem:linimage")
82 (comf "hem:cursor")
83 (comf "hem:syntax")
84 (comf "hem:winimage")
85 ;(comf "hem:hunk-draw")
86 ;(comf "hem:bit-stream")
87 (comf "hem:termcap")
88 (comf "hem:display")
89 ;(comf "hem:bit-display")
90 (comf "hem:tty-disp-rt")
91 (comf "hem:tty-display")
92 ;(comf "hem:tty-stream")
93 (comf "hem:pop-up-stream")
94 (comf "hem:screen")
95 ;(comf "hem:bit-screen")
96 (comf "hem:tty-screen")
97 (comf "hem:window")
98 (comf "hem:font")
99 (comf "hem:interp")
100 (comf "hem:vars")
101 (comf "hem:buffer")
102 (comf "hem:files")
103 (comf "hem:streams")
104 (comf "hem:echo")
105 (comf "hem:main")
106 (comf "hem:echocoms")
107 (comf "hem:defsyn")
108 (comf "hem:command")
109 (comf "hem:morecoms")
110 (comf "hem:undo")
111 (comf "hem:killcoms")
112 (comf "hem:searchcoms")
113 (comf "hem:filecoms")
114 (comf "hem:indent")
115 (comf "hem:lispmode")
116 (comf "hem:comments")
117 (comf "hem:fill")
118 (comf "hem:text")
119 (comf "hem:doccoms")
120 (comf "hem:srccom")
121 (comf "hem:group")
122 (comf "hem:spell-rt")
123 (comf "hem:spell-corr")
124 (comf "hem:spell-aug")
125 (comf "hem:spell-build")
126 (comf "hem:spellcoms")
127 (comf "hem:abbrev")
128 (comf "hem:overwrite")
129 (comf "hem:gosmacs")
130 (comf "hem:ts-buf")
131 (comf "hem:ts-stream")
132 (comf "hem:eval-server")
133 (comf "hem:lispbuf")
134 (comf "hem:lispeval")
135 (comf "hem:kbdmac")
136 (comf "hem:icom")
137 (comf "hem:hi-integrity")
138 (comf "hem:ed-integrity")
139 (comf "hem:scribe")
140 (comf "hem:pascal")
141 (comf "hem:edit-defs")
142 (comf "hem:auto-save")
143 (comf "hem:register")
144 (comf "hem:xcoms")
145 (comf "hem:unixcoms")
146 (comf "hem:mh")
147 (comf "hem:highlight")
148 (comf "hem:dired")
149 (comf "hem:diredcoms")
150 (comf "hem:bufed")
151 (comf "hem:lisp-lib")
152 (comf "hem:completion")
153 (comf "hem:shell")
154 (comf "hem:bindings")
155 (comf "hem:hacks")
156
157 ); With-Compiler-Log-File

  ViewVC Help
Powered by ViewVC 1.1.5