equal
deleted
inserted
replaced
182 " |
182 " |
183 ! ! |
183 ! ! |
184 |
184 |
185 !AbstractOperatingSystem class methodsFor:'initialization'! |
185 !AbstractOperatingSystem class methodsFor:'initialization'! |
186 |
186 |
|
187 getConcreteClass |
|
188 |osType| |
|
189 |
|
190 osType := self getSystemType. |
|
191 osType = 'win32' ifTrue:[ |
|
192 ^ Win32OperatingSystem |
|
193 ]. |
|
194 osType = 'osx' ifTrue:[ |
|
195 ^ OSXOperatingSystem |
|
196 ]. |
|
197 osType = 'os2' ifTrue:[ |
|
198 ^ OS2OperatingSystem |
|
199 ]. |
|
200 osType = 'macos' ifTrue:[ |
|
201 ^ MacOperatingSystem |
|
202 ]. |
|
203 ((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[ |
|
204 ^ OpenVMSOperatingSystem |
|
205 ]. |
|
206 ^ UnixOperatingSystem |
|
207 ! |
|
208 |
187 initResources |
209 initResources |
188 "/ allow for ResourcePack class to be missing (non-GUI smalltalks) |
210 "/ allow for ResourcePack class to be missing (non-GUI smalltalks) |
189 |
211 |
190 ResourcePack notNil ifTrue:[ |
212 ResourcePack notNil ifTrue:[ |
191 Error handle:[:ex | |
213 Error handle:[:ex | |
218 ]. |
240 ]. |
219 Smalltalk addDependent:self. "/ to catch language changes |
241 Smalltalk addDependent:self. "/ to catch language changes |
220 ! |
242 ! |
221 |
243 |
222 initializeConcreteClass |
244 initializeConcreteClass |
223 |osType cls| |
245 OperatingSystem := ConcreteClass := self getConcreteClass. |
224 |
|
225 osType := self getSystemType. |
|
226 osType = 'win32' ifTrue:[ |
|
227 cls := Win32OperatingSystem |
|
228 ] ifFalse:[ |
|
229 osType = 'os2' ifTrue:[ |
|
230 cls := OS2OperatingSystem |
|
231 ] ifFalse:[ |
|
232 osType = 'macos' ifTrue:[ |
|
233 cls := MacOperatingSystem |
|
234 ] ifFalse:[ |
|
235 ((osType = 'VMS') or:[osType = 'openVMS']) ifTrue:[ |
|
236 cls := OpenVMSOperatingSystem |
|
237 ] ifFalse:[ |
|
238 cls := UnixOperatingSystem |
|
239 ] |
|
240 ] |
|
241 ] |
|
242 ]. |
|
243 OperatingSystem := ConcreteClass := cls. |
|
244 ! ! |
246 ! ! |
245 |
247 |
246 !AbstractOperatingSystem class methodsFor:'OS signal constants'! |
248 !AbstractOperatingSystem class methodsFor:'OS signal constants'! |
247 |
249 |
248 sigABRT |
250 sigABRT |
7178 ! ! |
7180 ! ! |
7179 |
7181 |
7180 !AbstractOperatingSystem class methodsFor:'documentation'! |
7182 !AbstractOperatingSystem class methodsFor:'documentation'! |
7181 |
7183 |
7182 version |
7184 version |
7183 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.228 2013-02-27 11:09:24 cg Exp $' |
7185 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.229 2013-03-04 12:34:31 cg Exp $' |
7184 ! |
7186 ! |
7185 |
7187 |
7186 version_CVS |
7188 version_CVS |
7187 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.228 2013-02-27 11:09:24 cg Exp $' |
7189 ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.229 2013-03-04 12:34:31 cg Exp $' |
7188 ! ! |
7190 ! ! |
7189 |
7191 |
7190 |
7192 |
7191 AbstractOperatingSystem initialize! |
7193 AbstractOperatingSystem initialize! |