author | Claus Gittinger <cg@exept.de> |
Mon, 09 Aug 1999 16:51:41 +0200 | |
changeset 379 | b3a111bac465 |
parent 371 | ff10a765331c |
child 384 | e516fa60a3f9 |
permissions | -rw-r--r-- |
12 | 1 |
"/ |
2 |
"/ $Header$ |
|
3 |
"/ |
|
4 |
"/ This file is processed at initial startup |
|
5 |
"/ - not when resuming an image. |
|
6 |
"/ |
|
0 | 7 |
|
12 | 8 |
"/ |
9 |
"/ install uncompiled classes as autoload |
|
10 |
"/ classes ... (if not already present) |
|
11 |
"/ Autoloaded classes will be automatically filed-in |
|
12 |
"/ when first accessed. This allows a smaller executable, |
|
13 |
"/ but creates a short delay, when the class is loaded on |
|
14 |
"/ first access. |
|
15 |
"/ |
|
16 |
"/ You can add more classes to these lists - |
|
17 |
"/ i.e. all your classes you like to have around, |
|
18 |
"/ but which are not needed often enough to justify |
|
19 |
"/ machine code for them ... |
|
0 | 20 |
|
371
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
21 |
|system iSets requiredClasses enableJIT| |
24 | 22 |
|
196 | 23 |
'patches [info]: initial startup (snapshot image restart is faster) ...' infoPrintCR. |
225 | 24 |
|
371
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
25 |
"/ |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
26 |
"/ the JIT translator is known to work with the following |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
27 |
"/ architectures: |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
28 |
"/ ix86 (linux, win32, unixware) |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
29 |
"/ sgi-mips (irix) |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
30 |
"/ alpha (osf) |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
31 |
"/ sparc (solaris) [only tested with v7 & v8 cpus] |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
32 |
"/ aix (rs6k) |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
33 |
"/ |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
34 |
enableJIT := false. |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
35 |
|
263 | 36 |
system := OperatingSystem getSystemType. |
282 | 37 |
(#( |
38 |
'linux' |
|
39 |
'unixware' |
|
371
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
40 |
'solaris' |
282 | 41 |
'iris' |
42 |
'osf' |
|
300 | 43 |
'win32' |
282 | 44 |
) includes:system) ifTrue:[ |
371
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
45 |
system = 'solaris' ifTrue:[ |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
46 |
"/ for now, disable for sparcV9; |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
47 |
"/ because we have no way of checking it here. |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
48 |
"/ Please let us know if it runs. |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
49 |
iSets := OperatingSystem getSystemInfo at:#instructionSets. |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
50 |
(iSets includesString:'sparcv9') ifFalse:[ |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
51 |
enableJIT := true |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
52 |
] |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
53 |
] ifFalse:[ |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
54 |
enableJIT := true |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
55 |
] |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
56 |
]. |
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
57 |
|
ff10a765331c
for now: disable JIT for sparcV9 architectures
Claus Gittinger <cg@exept.de>
parents:
362
diff
changeset
|
58 |
enableJIT ifTrue:[ |
268 | 59 |
"/ 'patches [info]: turn on JIT ...' infoPrintCR. |
265 | 60 |
ObjectMemory justInTimeCompilation:true. |
61 |
]. |
|
175 | 62 |
|
81 | 63 |
"/ GLXWorkstation forceGL:true. |
79 | 64 |
"/ OperatingSystem disableSignal:14. |
81 | 65 |
|
26 | 66 |
ObjectMemory infoPrinting:false. |
174 | 67 |
"/ Smalltalk loadBinaries:true. |
160 | 68 |
Compiler allowUnderscoreInIdentifier:true. |
69 |
Compiler warnUnderscoreInIdentifier:false. |
|
70 |
Compiler warnSTXSpecials:false. |
|
26 | 71 |
|
24 | 72 |
Project notNil ifTrue:[ |
73 |
Project setDefaultProject. |
|
25 | 74 |
Project current packageName:#'autoloaded'. |
24 | 75 |
]. |
10 | 76 |
|
12 | 77 |
"/ |
77 | 78 |
"/ when filing in, keep source as reference to file |
79 |
"/ (instead of keeping a string locally in the image) |
|
80 |
"/ |
|
85 | 81 |
"/ I disable this - its dangerous if you fileIn |
82 |
"/ classes from other directories and fileOut later clobbers those files |
|
83 |
"/ |
|
84 |
"/ ClassCategoryReader sourceMode:#reference. |
|
77 | 85 |
|
86 |
"/ |
|
12 | 87 |
"/ the following are required (either compiled or interpreted) ... |
88 |
"/ |
|
10 | 89 |
requiredClasses := #( |
77 | 90 |
ObsoleteObject |
91 |
BinaryIOManager BinaryInputManager BinaryOutputManager BinaryObjectStorage |
|
92 |
StringCollection |
|
379 | 93 |
CachingRegistry Registry |
77 | 94 |
). |
10 | 95 |
|
96 |
requiredClasses do:[:s | |
|
97 |
(Smalltalk at:s) isNil ifTrue:[ |
|
196 | 98 |
('patches [info]: loading ' , s , ' ...') infoPrintCR. |
10 | 99 |
Smalltalk fileInClass:s initialize:true lazy:false silent:true |
100 |
] |
|
101 |
]. |
|
24 | 102 |
! |
103 |
||
169 | 104 |
|optionalViews| |
0 | 105 |
|
24 | 106 |
(Smalltalk at:#View) isNil ifTrue:[ |
196 | 107 |
'patches [info]: installing required autoloaded classes ...' infoPrintCR. |
169 | 108 |
|
24 | 109 |
optionalViews := #( |
26 | 110 |
DeviceWorkstation |
24 | 111 |
Workstation |
26 | 112 |
XWorkstation |
24 | 113 |
DisplayRootView |
114 |
SimpleView |
|
115 |
TopView |
|
116 |
StandardSystemView |
|
117 |
ModalBox |
|
118 |
View |
|
119 |
PseudoView |
|
120 |
DeviceDrawable |
|
121 |
DisplayMedium |
|
362 | 122 |
DisplaySurface |
123 |
GraphicsMedium |
|
124 |
DeviceGraphicsContext |
|
24 | 125 |
GraphicsContext |
126 |
Image |
|
127 |
ViewStyle |
|
128 |
KeyboardMap |
|
129 |
KeyboardForwarder |
|
130 |
TextCollector |
|
77 | 131 |
SynchronousWindowSensor |
24 | 132 |
WindowSensor |
133 |
WindowGroup |
|
134 |
WindowEvent |
|
135 |
WindowingTransformation |
|
136 |
FontDescription |
|
137 |
Font |
|
138 |
Form |
|
139 |
Cursor |
|
140 |
Color |
|
141 |
Depth1Image |
|
142 |
Depth8Image |
|
143 |
ResourcePack |
|
144 |
Model |
|
145 |
Controller |
|
146 |
ApplicationModel |
|
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
147 |
ApplicationWindow |
24 | 148 |
WindowBuilder |
149 |
PopUpView |
|
150 |
ShadowView |
|
151 |
Colormap |
|
25 | 152 |
DeviceHandle |
153 |
DisplayObject |
|
24 | 154 |
). |
155 |
optionalViews do:[:s | |
|
156 |
"install if not already compiled-in" |
|
157 |
(Smalltalk at:s) isNil ifTrue:[ |
|
158 |
Autoload subclass:s |
|
159 |
instanceVariableNames:'' |
|
160 |
classVariableNames:'' |
|
161 |
poolDictionaries:'' |
|
162 |
category:'autoloaded-Views' |
|
163 |
] |
|
164 |
]. |
|
179 | 165 |
(Smalltalk at:#DeviceWorkstation) autoload. |
166 |
(Smalltalk at:#XWorkstation) autoload. |
|
167 |
(Smalltalk at:#Workstation) autoload. |
|
168 |
(Smalltalk at:#DeviceHandle) autoload. |
|
24 | 169 |
]. |
131
20fc8bdf1de5
removed (old) builtIn class list; depend on abbrev.stc alone
Claus Gittinger <cg@exept.de>
parents:
125
diff
changeset
|
170 |
! |
24 | 171 |
|
172 |
Project notNil ifTrue:[ |
|
173 |
Project setDefaultProject. |
|
174 |
Project current packageName:#'patches'. |
|
175 |
]. |
|
176 |
||
196 | 177 |
'patches [info]: installing patches ...' infoPrintCR. |
174 | 178 |
! |
125 | 179 |
|
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
180 |
"/ future systems will read patches from a patch-directory, |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
181 |
"/ called stxPatches. (we will deliver patch-sets in the future) |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
182 |
"/ This is not yet implemented, but we are prepared here for |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
183 |
"/ this ... |
358
14a45495e3d8
autoloaded classes must be read after the host.rc file;
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
184 |
"/ patches from that directory are read in alphabetic order; |
14a45495e3d8
autoloaded classes must be read after the host.rc file;
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
185 |
"/ patches will be named them p_nnnn.st, where nnnn is a sequence-nr. |
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
186 |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
187 |
|patchDir| |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
188 |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
189 |
patchDir := 'stxPatches' asFilename. |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
190 |
(patchDir exists and:[patchDir isDirectory and:[patchDir isReadable]]) ifTrue:[ |
358
14a45495e3d8
autoloaded classes must be read after the host.rc file;
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
191 |
patchDir directoryContents sort do:[:f | |
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
192 |
|fn| |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
193 |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
194 |
fn := (patchDir construct:f) name. |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
195 |
('patches [info]: reading patchFile ''' , fn , ''' ...') infoPrintCR. |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
196 |
Smalltalk fileIn:fn. |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
197 |
] |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
198 |
]. |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
199 |
! |
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
200 |
|
16 | 201 |
"/ |
12 | 202 |
"/ the following patches where added by the changesBrowsers 'make change a patch' |
203 |
"/ function ... |
|
204 |
"/ |
|
210 | 205 |
! |