--- a/host.rc Fri Nov 15 14:16:33 1996 +0100
+++ b/host.rc Sun Nov 17 13:33:39 1996 +0100
@@ -8,7 +8,10 @@
* looks for a host specific init file and loads it.
*"
-|host domain s|
+|sysType host domain s rshCommand isStupidSYSV3|
+
+sysType := OperatingSystem getSystemType.
+isStupidSYSV3 := false.
"/ on some systems, paging in is so slow, that a SIGALRM
"/ arrives too early to be handled correctly
@@ -17,33 +20,63 @@
"/ This can be worded around by disabling the timer here.
"/ (The sceduler will reenable it later)
-(OperatingSystem getSystemType = 'hpux') ifTrue:[
+(sysType = 'hpux') ifTrue:[
OperatingSystem disableSignal:(OperatingSystem sigALRM)
].
+sysType = 'realIX' ifTrue:[
+ "/
+ "/ those people must have been brain-damaged;
+ "/ They made a whole lot of trouble by renaming
+ "/ 'rsh' to 'remsh' (those systems are broken in other places as well ...).
+ "/ (who needs a restricted shell named 'rsh' ?)
+ "/
+ isStupidSYSV3 := true.
+].
+
"/
"/ setup the printer stuff.
"/ the commands below will be offered in the printer-setting box
"/
PostscriptPrinterStream notNil ifTrue:[
- PostscriptPrinterStream
- defaultCommands:#(
- 'lpr -h'
- 'cat | rsh <hostname> lpr -h'
- 'cat > preview.ps'
- 'cat > preview.ps; ghostview preview.ps'
- ).
+ isStupidSYSV3 ifTrue:[
+ PostscriptPrinterStream
+ defaultCommands:#(
+ 'lpr'
+ 'cat | remsh <hostname> lpr -h'
+ 'cat > preview.ps'
+ 'cat > preview.ps; ghostview preview.ps'
+ ).
+ ] ifFalse:[
+ PostscriptPrinterStream
+ defaultCommands:#(
+ 'lpr -h'
+ 'cat | rsh <hostname> lpr -h'
+ 'cat > preview.ps'
+ 'cat > preview.ps; ghostview preview.ps'
+ ).
+ ].
PostscriptPrinterStream printCommand:'lpr'.
].
PrinterStream notNil ifTrue:[
- PrinterStream
- defaultCommands:#(
- 'lpr -h'
- 'cat | rsh <hostname> lpr -h'
- 'a2ps | rsh <hostname> lpr -h'
- 'a2ps > preview.ps; ghostview preview.ps'
- ).
+ isStupidSYSV3 ifTrue:[
+ PrinterStream
+ defaultCommands:#(
+ 'lpr -h'
+ 'cat | remsh <hostname> lpr -h'
+ 'a2ps | remsh <hostname> lpr -h'
+ 'a2ps > preview.ps; ghostview preview.ps'
+ ).
+ ] ifFalse:[
+ PrinterStream
+ defaultCommands:#(
+ 'lpr -h'
+ 'cat | rsh <hostname> lpr -h'
+ 'a2ps | rsh <hostname> lpr -h'
+ 'a2ps > preview.ps; ghostview preview.ps'
+ ).
+ ].
Printer := PrinterStream.
PrinterStream printCommand:'lpr'.
].
@@ -56,19 +89,34 @@
"/ unconditional.
domain := OperatingSystem getDomainName.
-(domain = 'xaxept.de' or:[domain = 'exept.de']) ifTrue:[
- PostscriptPrinterStream printCommand:'cat | rsh ibm lpr -h'.
- PrinterStream printCommand:'cat | rsh ibm lpr -h'.
- PostscriptPrinterStream defaultCommands:#(
- 'cat | rsh ibm lpr -h'
- 'cat > preview.ps'
- 'cat > preview.ps; ghostview preview.ps'
- ).
- PrinterStream defaultCommands:#(
- 'cat | rsh ibm lpr -h'
- 'a2ps | rsh ibm lpr -h'
- 'a2ps > preview.ps; ghostview preview.ps'
- ).
+(domain = 'axept.de' or:[domain = 'exept.de']) ifTrue:[
+ isStupidSYSV3 ifTrue:[
+ PostscriptPrinterStream printCommand:'cat | remsh ibm lpr -h'.
+ PrinterStream printCommand:'cat | remsh ibm lpr -h'.
+ PostscriptPrinterStream defaultCommands:#(
+ 'cat | remsh ibm lpr -h'
+ 'cat > preview.ps'
+ 'cat > preview.ps; ghostview preview.ps'
+ ).
+ PrinterStream defaultCommands:#(
+ 'cat | remsh ibm lpr -h'
+ 'a2ps | remsh ibm lpr -h'
+ 'a2ps > preview.ps; ghostview preview.ps'
+ ).
+ ] ifFalse:[
+ PostscriptPrinterStream printCommand:'cat | rsh ibm lpr -h'.
+ PrinterStream printCommand:'cat | rsh ibm lpr -h'.
+ PostscriptPrinterStream defaultCommands:#(
+ 'cat | rsh ibm lpr -h'
+ 'cat > preview.ps'
+ 'cat > preview.ps; ghostview preview.ps'
+ ).
+ PrinterStream defaultCommands:#(
+ 'cat | rsh ibm lpr -h'
+ 'a2ps | rsh ibm lpr -h'
+ 'a2ps > preview.ps; ghostview preview.ps'
+ ).
+ ].
].
"/