STC interface cleanup: do not initialize stc settings in startup scripts
...instead, let the class (ParserFlags) initialize itself. This way, the default
values are computed on only one place.
"*
* Encoding: iso8859-1
*
* $Header$
*
* ST/X startup configuration file:
*
* DON'T 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 system specific h_sysType.rc init file and loads it.
* looks for a host specific h_hostName.rc init file and loads it.
*"
!
|sysType host domain s conf includes incDir|
sysType := OperatingSystem getSystemType.
"------------------------------------------------------------------------"
"/ printer setup
"/ Notice that this setup may be changed by an OS-specific h_xxx file
"/
"/ only reset the printer setting, if restarted
"/ on another host.
host := OperatingSystem getHostName.
(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
sysType = 'win32' ifTrue:[
Printer := Smalltalk at:#WinPrinterStream.
] ifFalse:[
Printer := Smalltalk at:#PostscriptPrinterStream.
].
].
"/
"/ try systemType-specific setup
"/ h_<osType>.rc
"/
(Smalltalk at:#'_ImageOSTypeName') ~= sysType ifTrue:[
('host.rc [info]: ') infoPrint.
"/ ('trying host setup h_' , sysType , '.rc...') infoPrintCR.
s := Smalltalk systemFileStreamFor:('h_' , sysType , '.rc').
s notNil ifTrue:[
('reading host setup h_' , sysType , '.rc...') infoPrintCR.
s fileIn.
s close.
].
Smalltalk at:#'_ImageOSTypeName' put:sysType.
].
"/
"/ try host-specific setup
"/ h_<hostname>.rc
"/
host isNil ifTrue:[
'host.rc [warning]: cannot determine host I am running on' errorPrintCR.
] ifFalse:[
"if there is a corresponding file ..."
(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
"/ ('host.rc [info]: trying host setup h_' , host , '.rc...') infoPrintCR.
s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
s notNil ifTrue:[
('host.rc [info]: reading host setup h_' , host , '.rc...') infoPrintCR.
s fileIn.
s close.
].
Smalltalk at:#'_ImageHostName' put:host.
]
].
!