hg/stx-projects-smalltalk: host.rc@a974136fe017 (annotated)

0 0cb137a77319 Initial revision claus parents: diff changeset	1	"*
0cb137a77319 Initial revision claus parents: diff changeset	2	* $Header$
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	3	*
420e4af41733 * empty log message * claus parents: 2 diff changeset	4	* DONT add site specific things here - use your own h_xxx.rc file instead
8 d82829c0d867 * empty log message * claus parents: 5 diff changeset	5	* where xxx stands for your hostname(s)
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	6	*
0 0cb137a77319 Initial revision claus parents: diff changeset	7	* startup configuration for host specific stuff -
0cb137a77319 Initial revision claus parents: diff changeset	8	* looks for a host specific init file and loads it.
0cb137a77319 Initial revision claus parents: diff changeset	9	*"
0cb137a77319 Initial revision claus parents: diff changeset	10
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	11	\|host domain s\|
0 0cb137a77319 Initial revision claus parents: diff changeset	12
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	13	(OperatingSystem getSystemType = 'hpux') ifTrue:[
420e4af41733 * empty log message * claus parents: 2 diff changeset	14	OperatingSystem disableSignal:(OperatingSystem sigALRM)
420e4af41733 * empty log message * claus parents: 2 diff changeset	15	].
420e4af41733 * empty log message * claus parents: 2 diff changeset	16
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	17	domain := OperatingSystem getDomainName.
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	18	(domain = 'axept.de'
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	19	or:[domain = 'exept.de']) ifTrue:[
119 1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	20	PostscriptPrinterStream defaultCommands:#(
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	21	'cat \| rsh ibm lpr -h'
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	22	'cat > preview.ps'
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	23	'cat > preview.ps; ghostview preview.ps'
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	24	).
119 1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	25	PostscriptPrinterStream printCommand:'cat \| rsh ibm lpr -h'.
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	26	Printer := PostscriptPrinterStream.
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	27
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	28	PrinterStream defaultCommands:#(
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	29	'cat \| rsh ibm lpr -h'
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	30	'a2ps \| rsh ibm lpr -h'
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	31	'a2ps > preview.ps; ghostview preview.ps'
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	32	).
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	33	PrinterStream printCommand:'cat \| rsh ibm lpr -h'.
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	34	].
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	35
0 0cb137a77319 Initial revision claus parents: diff changeset	36	host := OperatingSystem getHostName.
2 353a88ada7c6 * empty log message * claus parents: 0 diff changeset	37	host isNil ifTrue:[
123 a974136fe017 startup infoPrinting suppressable (-q flag) Claus Gittinger <cg@exept.de> parents: 119 diff changeset	38	'cannot determine host I am running on' errorPrintCR.
2 353a88ada7c6 * empty log message * claus parents: 0 diff changeset	39	] ifFalse:[
0 0cb137a77319 Initial revision claus parents: diff changeset	40	"if there is a corresponding file ..."
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	41
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	42	(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
123 a974136fe017 startup infoPrinting suppressable (-q flag) Claus Gittinger <cg@exept.de> parents: 119 diff changeset	43	('trying host setup h_' , host , '.rc ...') infoPrintCR.
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	44
8 d82829c0d867 * empty log message * claus parents: 5 diff changeset	45	s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
d82829c0d867 * empty log message * claus parents: 5 diff changeset	46	s notNil ifTrue:[
d82829c0d867 * empty log message * claus parents: 5 diff changeset	47	s fileIn.
d82829c0d867 * empty log message * claus parents: 5 diff changeset	48	s close.
d82829c0d867 * empty log message * claus parents: 5 diff changeset	49	].
d82829c0d867 * empty log message * claus parents: 5 diff changeset	50	Smalltalk at:#'_ImageHostName' put:host.
0 0cb137a77319 Initial revision claus parents: diff changeset	51	]
0cb137a77319 Initial revision claus parents: diff changeset	52	].
0cb137a77319 Initial revision claus parents: diff changeset	53	!

author	Claus Gittinger <cg@exept.de>
	Mon, 15 Jul 1996 17:07:08 +0200
changeset 123	a974136fe017
parent 119	1f4f557d14a4
child 165	bb77927038c7
permissions	-rw-r--r--