example - checking for the domain
authorClaus Gittinger <cg@exept.de>
Tue, 23 Apr 1996 20:45:42 +0200
changeset 103 9f5c03497b38
parent 102 0cfd64a9b3d2
child 104 b9ab60d45f9b
example - checking for the domain
host.rc
--- 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.