--- a/host.rc Fri Apr 19 18:19:11 1996 +0200
+++ b/host.rc Tue Apr 23 20:45:42 1996 +0200
@@ -8,17 +8,29 @@
* looks for a host specific init file and loads it.
*"
-|host s|
+|host domain s|
(OperatingSystem getSystemType = 'hpux') ifTrue:[
OperatingSystem disableSignal:(OperatingSystem sigALRM)
].
+domain := OperatingSystem getDomainName.
+(domain = 'axept.de'
+ or:[domain = 'exept.de']) ifTrue:[
+ Printer := PostscriptPrinterStream.
+ Printer defaultCommands:#('cat | rsh ibm lpr -h'
+ 'cat > preview.ps'
+ 'cat > preview.ps; ghostview preview.ps'
+ ).
+ Printer printCommand:'cat | rsh ibm lpr -h'.
+].
+
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.