"*
* $Header$
*
* DONT add site specific things here - use your own h_xxx.rc file instead
* where xxx stands for your hostname(s)
*
* startup configuration for host specific stuff -
* looks for a host specific init file and loads it.
*"
|host s|
(OperatingSystem getSystemType = 'hpux') ifTrue:[
OperatingSystem disableSignal:(OperatingSystem sigALRM)
].
host := OperatingSystem getHostName.
host isNil ifTrue:[
'cannot determine host I am running on' errorPrintNewline.
] ifFalse:[
"if there is a corresponding file ..."
(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
('trying host setup h_' , host , '.rc ...') errorPrintNewline.
s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
s notNil ifTrue:[
s fileIn.
s close.
].
Smalltalk at:#'_ImageHostName' put:host.
]
].
!