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

  ViewVC Help
Powered by ViewVC 1.1.5