| author | Claus Gittinger <cg@exept.de> |
| Mon, 31 May 1999 17:21:46 +0200 | |
| changeset 358 | 14a45495e3d8 |
| parent 323 | 42233c66f9a0 |
| child 362 | 87f7b4670ae8 |
| 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 |
|
| 263 | 21 |
|system requiredClasses| |
| 24 | 22 |
|
| 196 | 23 |
'patches [info]: initial startup (snapshot image restart is faster) ...' infoPrintCR. |
| 225 | 24 |
|
| 263 | 25 |
system := OperatingSystem getSystemType. |
| 282 | 26 |
(#( |
27 |
'linux' |
|
28 |
'unixware' |
|
|
323
42233c66f9a0
do not enable JIT by default on sparc.
Claus Gittinger <cg@exept.de>
parents:
300
diff
changeset
|
29 |
"/ 'solaris' |
| 282 | 30 |
'iris' |
31 |
'osf' |
|
| 300 | 32 |
'win32' |
| 282 | 33 |
) includes:system) ifTrue:[ |
| 268 | 34 |
"/ 'patches [info]: turn on JIT ...' infoPrintCR. |
| 265 | 35 |
ObjectMemory justInTimeCompilation:true. |
36 |
]. |
|
| 175 | 37 |
|
| 81 | 38 |
"/ GLXWorkstation forceGL:true. |
| 79 | 39 |
"/ OperatingSystem disableSignal:14. |
| 81 | 40 |
|
| 26 | 41 |
ObjectMemory infoPrinting:false. |
| 174 | 42 |
"/ Smalltalk loadBinaries:true. |
| 160 | 43 |
Compiler allowUnderscoreInIdentifier:true. |
44 |
Compiler warnUnderscoreInIdentifier:false. |
|
45 |
Compiler warnSTXSpecials:false. |
|
| 26 | 46 |
|
| 24 | 47 |
Project notNil ifTrue:[ |
48 |
Project setDefaultProject. |
|
| 25 | 49 |
Project current packageName:#'autoloaded'. |
| 24 | 50 |
]. |
| 10 | 51 |
|
| 12 | 52 |
"/ |
| 77 | 53 |
"/ when filing in, keep source as reference to file |
54 |
"/ (instead of keeping a string locally in the image) |
|
55 |
"/ |
|
| 85 | 56 |
"/ I disable this - its dangerous if you fileIn |
57 |
"/ classes from other directories and fileOut later clobbers those files |
|
58 |
"/ |
|
59 |
"/ ClassCategoryReader sourceMode:#reference. |
|
| 77 | 60 |
|
61 |
"/ |
|
| 12 | 62 |
"/ the following are required (either compiled or interpreted) ... |
63 |
"/ |
|
| 10 | 64 |
requiredClasses := #( |
| 77 | 65 |
ObsoleteObject |
66 |
BinaryIOManager BinaryInputManager BinaryOutputManager BinaryObjectStorage |
|
67 |
StringCollection |
|
68 |
). |
|
| 10 | 69 |
|
70 |
requiredClasses do:[:s | |
|
71 |
(Smalltalk at:s) isNil ifTrue:[ |
|
| 196 | 72 |
('patches [info]: loading ' , s , ' ...') infoPrintCR.
|
| 10 | 73 |
Smalltalk fileInClass:s initialize:true lazy:false silent:true |
74 |
] |
|
75 |
]. |
|
| 24 | 76 |
! |
77 |
||
| 169 | 78 |
|optionalViews| |
| 0 | 79 |
|
| 24 | 80 |
(Smalltalk at:#View) isNil ifTrue:[ |
| 196 | 81 |
'patches [info]: installing required autoloaded classes ...' infoPrintCR. |
| 169 | 82 |
|
| 24 | 83 |
optionalViews := #( |
| 26 | 84 |
DeviceWorkstation |
| 24 | 85 |
Workstation |
| 26 | 86 |
XWorkstation |
| 24 | 87 |
DisplayRootView |
88 |
SimpleView |
|
89 |
TopView |
|
90 |
StandardSystemView |
|
91 |
ModalBox |
|
92 |
View |
|
93 |
PseudoView |
|
94 |
DeviceDrawable |
|
95 |
DisplayMedium |
|
96 |
GraphicsContext |
|
97 |
Image |
|
98 |
ViewStyle |
|
99 |
KeyboardMap |
|
100 |
KeyboardForwarder |
|
101 |
TextCollector |
|
| 77 | 102 |
SynchronousWindowSensor |
| 24 | 103 |
WindowSensor |
104 |
WindowGroup |
|
105 |
WindowEvent |
|
106 |
WindowingTransformation |
|
107 |
FontDescription |
|
108 |
Font |
|
109 |
Form |
|
110 |
Cursor |
|
111 |
Color |
|
112 |
Depth1Image |
|
113 |
Depth8Image |
|
114 |
ResourcePack |
|
115 |
Model |
|
116 |
Controller |
|
117 |
ApplicationModel |
|
|
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
118 |
ApplicationWindow |
| 24 | 119 |
WindowBuilder |
120 |
PopUpView |
|
121 |
ShadowView |
|
122 |
Colormap |
|
| 25 | 123 |
DeviceHandle |
124 |
DisplayObject |
|
| 24 | 125 |
). |
126 |
optionalViews do:[:s | |
|
127 |
"install if not already compiled-in" |
|
128 |
(Smalltalk at:s) isNil ifTrue:[ |
|
129 |
Autoload subclass:s |
|
130 |
instanceVariableNames:'' |
|
131 |
classVariableNames:'' |
|
132 |
poolDictionaries:'' |
|
133 |
category:'autoloaded-Views' |
|
134 |
] |
|
135 |
]. |
|
| 179 | 136 |
(Smalltalk at:#DeviceWorkstation) autoload. |
137 |
(Smalltalk at:#XWorkstation) autoload. |
|
138 |
(Smalltalk at:#Workstation) autoload. |
|
139 |
(Smalltalk at:#DeviceHandle) autoload. |
|
| 24 | 140 |
]. |
|
131
20fc8bdf1de5
removed (old) builtIn class list; depend on abbrev.stc alone
Claus Gittinger <cg@exept.de>
parents:
125
diff
changeset
|
141 |
! |
| 24 | 142 |
|
143 |
Project notNil ifTrue:[ |
|
144 |
Project setDefaultProject. |
|
145 |
Project current packageName:#'patches'. |
|
146 |
]. |
|
147 |
||
| 196 | 148 |
'patches [info]: installing patches ...' infoPrintCR. |
| 174 | 149 |
! |
| 125 | 150 |
|
|
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
151 |
"/ 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
|
152 |
"/ 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
|
153 |
"/ 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
|
154 |
"/ this ... |
|
358
14a45495e3d8
autoloaded classes must be read after the host.rc file;
Claus Gittinger <cg@exept.de>
parents:
323
diff
changeset
|
155 |
"/ 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
|
156 |
"/ 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
|
157 |
|
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
158 |
|patchDir| |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
159 |
|
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
160 |
patchDir := 'stxPatches' asFilename. |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
161 |
(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
|
162 |
patchDir directoryContents sort do:[:f | |
|
291
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
163 |
|fn| |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
164 |
|
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
165 |
fn := (patchDir construct:f) name. |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
166 |
('patches [info]: reading patchFile ''' , fn , ''' ...') infoPrintCR.
|
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
167 |
Smalltalk fileIn:fn. |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
168 |
] |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
169 |
]. |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
170 |
! |
|
b6ece4a96c36
preps to read patchFiles from stxPatches directory
Claus Gittinger <cg@exept.de>
parents:
284
diff
changeset
|
171 |
|
| 16 | 172 |
"/ |
| 12 | 173 |
"/ the following patches where added by the changesBrowsers 'make change a patch' |
174 |
"/ function ... |
|
175 |
"/ |
|
| 210 | 176 |
! |