author | Claus Gittinger <cg@exept.de> |
Thu, 09 Jan 1997 16:46:21 +0100 | |
changeset 193 | e38e9ee3b219 |
parent 177 | eec6bac738ba |
child 195 | 1cf850844da9 |
permissions | -rw-r--r-- |
0 | 1 |
"* |
2 |
* $Header$ |
|
5 | 3 |
* |
4 |
* DONT add site specific things here - use your own h_xxx.rc file instead |
|
8 | 5 |
* where xxx stands for your hostname(s) |
5 | 6 |
* |
0 | 7 |
* startup configuration for host specific stuff - |
8 |
* looks for a host specific init file and loads it. |
|
9 |
*" |
|
10 |
||
177
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
11 |
|sysType host domain s rshCommand isStupidSYSV3| |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
12 |
|
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
13 |
sysType := OperatingSystem getSystemType. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
14 |
isStupidSYSV3 := false. |
0 | 15 |
|
165 | 16 |
"/ on some systems, paging in is so slow, that a SIGALRM |
17 |
"/ arrives too early to be handled correctly |
|
18 |
"/ (I guess, this is my fault somewhere ... ;-) |
|
19 |
"/ |
|
20 |
"/ This can be worded around by disabling the timer here. |
|
21 |
"/ (The sceduler will reenable it later) |
|
22 |
||
177
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
23 |
(sysType = 'hpux') ifTrue:[ |
5 | 24 |
OperatingSystem disableSignal:(OperatingSystem sigALRM) |
25 |
]. |
|
26 |
||
177
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
27 |
sysType = 'realIX' ifTrue:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
28 |
"/ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
29 |
"/ those people must have been brain-damaged; |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
30 |
"/ They made a whole lot of trouble by renaming |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
31 |
"/ 'rsh' to 'remsh' (those systems are broken in other places as well ...). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
32 |
"/ (who needs a restricted shell named 'rsh' ?) |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
33 |
"/ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
34 |
isStupidSYSV3 := true. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
35 |
]. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
36 |
|
165 | 37 |
"/ |
38 |
"/ setup the printer stuff. |
|
39 |
"/ the commands below will be offered in the printer-setting box |
|
40 |
"/ |
|
169 | 41 |
PostscriptPrinterStream notNil ifTrue:[ |
177
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
42 |
isStupidSYSV3 ifTrue:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
43 |
PostscriptPrinterStream |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
44 |
defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
45 |
'lpr' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
46 |
'cat | remsh <hostname> lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
47 |
'cat > preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
48 |
'cat > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
49 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
50 |
] ifFalse:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
51 |
PostscriptPrinterStream |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
52 |
defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
53 |
'lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
54 |
'cat | rsh <hostname> lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
55 |
'cat > preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
56 |
'cat > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
57 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
58 |
]. |
169 | 59 |
PostscriptPrinterStream printCommand:'lpr'. |
60 |
]. |
|
165 | 61 |
|
169 | 62 |
PrinterStream notNil ifTrue:[ |
177
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
63 |
isStupidSYSV3 ifTrue:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
64 |
PrinterStream |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
65 |
defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
66 |
'lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
67 |
'cat | remsh <hostname> lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
68 |
'a2ps | remsh <hostname> lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
69 |
'a2ps > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
70 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
71 |
] ifFalse:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
72 |
PrinterStream |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
73 |
defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
74 |
'lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
75 |
'cat | rsh <hostname> lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
76 |
'a2ps | rsh <hostname> lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
77 |
'a2ps > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
78 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
79 |
]. |
169 | 80 |
Printer := PrinterStream. |
81 |
PrinterStream printCommand:'lpr'. |
|
82 |
]. |
|
165 | 83 |
|
84 |
"/ Printer := PostscriptPrinterStream. |
|
85 |
||
86 |
"/ in our home-domain, preset the print command for remote printing |
|
87 |
"/ on a host called 'ibm'. |
|
88 |
"/ You can change this for your environment and/or make it |
|
89 |
"/ unconditional. |
|
90 |
||
103
9f5c03497b38
example - checking for the domain
Claus Gittinger <cg@exept.de>
parents:
8
diff
changeset
|
91 |
domain := OperatingSystem getDomainName. |
177
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
92 |
(domain = 'axept.de' or:[domain = 'exept.de']) ifTrue:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
93 |
isStupidSYSV3 ifTrue:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
94 |
PostscriptPrinterStream printCommand:'cat | remsh ibm lpr -h'. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
95 |
PrinterStream printCommand:'cat | remsh ibm lpr -h'. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
96 |
PostscriptPrinterStream defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
97 |
'cat | remsh ibm lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
98 |
'cat > preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
99 |
'cat > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
100 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
101 |
PrinterStream defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
102 |
'cat | remsh ibm lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
103 |
'a2ps | remsh ibm lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
104 |
'a2ps > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
105 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
106 |
] ifFalse:[ |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
107 |
PostscriptPrinterStream printCommand:'cat | rsh ibm lpr -h'. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
108 |
PrinterStream printCommand:'cat | rsh ibm lpr -h'. |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
109 |
PostscriptPrinterStream defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
110 |
'cat | rsh ibm lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
111 |
'cat > preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
112 |
'cat > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
113 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
114 |
PrinterStream defaultCommands:#( |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
115 |
'cat | rsh ibm lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
116 |
'a2ps | rsh ibm lpr -h' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
117 |
'a2ps > preview.ps; ghostview preview.ps' |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
118 |
). |
eec6bac738ba
stupid SYSV3: renamed rsh to remsh
Claus Gittinger <cg@exept.de>
parents:
169
diff
changeset
|
119 |
]. |
103
9f5c03497b38
example - checking for the domain
Claus Gittinger <cg@exept.de>
parents:
8
diff
changeset
|
120 |
]. |
9f5c03497b38
example - checking for the domain
Claus Gittinger <cg@exept.de>
parents:
8
diff
changeset
|
121 |
|
165 | 122 |
"/ |
123 |
"/ try host-specific setup |
|
124 |
"/ (h_<hostname>.rc |
|
125 |
"/ |
|
0 | 126 |
host := OperatingSystem getHostName. |
2 | 127 |
host isNil ifTrue:[ |
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
119
diff
changeset
|
128 |
'cannot determine host I am running on' errorPrintCR. |
2 | 129 |
] ifFalse:[ |
0 | 130 |
"if there is a corresponding file ..." |
103
9f5c03497b38
example - checking for the domain
Claus Gittinger <cg@exept.de>
parents:
8
diff
changeset
|
131 |
|
5 | 132 |
(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[ |
123
a974136fe017
startup infoPrinting suppressable (-q flag)
Claus Gittinger <cg@exept.de>
parents:
119
diff
changeset
|
133 |
('trying host setup h_' , host , '.rc ...') infoPrintCR. |
5 | 134 |
|
8 | 135 |
s := Smalltalk systemFileStreamFor:('h_' , host , '.rc'). |
136 |
s notNil ifTrue:[ |
|
137 |
s fileIn. |
|
138 |
s close. |
|
139 |
]. |
|
140 |
Smalltalk at:#'_ImageHostName' put:host. |
|
0 | 141 |
] |
142 |
]. |
|
143 |
! |