|
0
|
1 |
"*
|
|
|
2 |
* $Header$
|
|
5
|
3 |
*
|
|
|
4 |
* DONT add site specific things here - use your own h_xxx.rc file instead
|
|
8
|
5 |
* where xxx stands for your hostname(s)
|
|
5
|
6 |
*
|
|
0
|
7 |
* startup configuration for host specific stuff -
|
|
|
8 |
* looks for a host specific init file and loads it.
|
|
|
9 |
*"
|
|
|
10 |
|
|
|
11 |
|host s|
|
|
|
12 |
|
|
5
|
13 |
(OperatingSystem getSystemType = 'hpux') ifTrue:[
|
|
|
14 |
OperatingSystem disableSignal:(OperatingSystem sigALRM)
|
|
|
15 |
].
|
|
|
16 |
|
|
0
|
17 |
host := OperatingSystem getHostName.
|
|
2
|
18 |
host isNil ifTrue:[
|
|
5
|
19 |
'cannot determine host I am running on' errorPrintNewline.
|
|
2
|
20 |
] ifFalse:[
|
|
0
|
21 |
"if there is a corresponding file ..."
|
|
5
|
22 |
(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
|
|
8
|
23 |
('trying host setup h_' , host , '.rc ...') errorPrintNewline.
|
|
5
|
24 |
|
|
8
|
25 |
s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
|
|
|
26 |
s notNil ifTrue:[
|
|
|
27 |
s fileIn.
|
|
|
28 |
s close.
|
|
|
29 |
].
|
|
|
30 |
Smalltalk at:#'_ImageHostName' put:host.
|
|
0
|
31 |
]
|
|
|
32 |
].
|
|
|
33 |
!
|