0
|
1 |
"*
|
|
2 |
* $Header$
|
|
3 |
* startup configuration for host specific stuff -
|
|
4 |
* looks for a host specific init file and loads it.
|
|
5 |
*"
|
|
6 |
|
|
7 |
|host s|
|
|
8 |
|
|
9 |
host := OperatingSystem getHostName.
|
2
|
10 |
host isNil ifTrue:[
|
|
11 |
'cannot determine host I am running on' printNewline.
|
|
12 |
] ifFalse:[
|
0
|
13 |
"if there is a corresponding file ..."
|
|
14 |
('reading host setup h_' , host , '.rc ...') printNewline.
|
|
15 |
s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
|
|
16 |
s notNil ifTrue:[
|
|
17 |
s fileIn.
|
|
18 |
s close.
|
|
19 |
]
|
|
20 |
].
|
|
21 |
!
|