hg/stx-projects-smalltalk: host.rc@08055578224e (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
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	13	"/ on some systems, paging in is so slow, that a SIGALRM
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	14	"/ arrives too early to be handled correctly
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	15	"/ (I guess, this is my fault somewhere ... ;-)
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	16	"/
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	17	"/ This can be worded around by disabling the timer here.
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	18	"/ (The sceduler will reenable it later)
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	19
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	20	(OperatingSystem getSystemType = 'hpux') ifTrue:[
420e4af41733 * empty log message * claus parents: 2 diff changeset	21	OperatingSystem disableSignal:(OperatingSystem sigALRM)
420e4af41733 * empty log message * claus parents: 2 diff changeset	22	].
420e4af41733 * empty log message * claus parents: 2 diff changeset	23
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	24	"/
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	25	"/ setup the printer stuff.
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	26	"/ the commands below will be offered in the printer-setting box
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	27	"/
169 08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	28	PostscriptPrinterStream notNil ifTrue:[
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	29	PostscriptPrinterStream
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	30	defaultCommands:#(
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	31	'lpr -h'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	32	'cat \| rsh <hostname> lpr -h'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	33	'cat > preview.ps'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	34	'cat > preview.ps; ghostview preview.ps'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	35	).
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	36	PostscriptPrinterStream printCommand:'lpr'.
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	37	].
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	38
169 08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	39	PrinterStream notNil ifTrue:[
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	40	PrinterStream
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	41	defaultCommands:#(
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	42	'lpr -h'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	43	'cat \| rsh <hostname> lpr -h'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	44	'a2ps \| rsh <hostname> lpr -h'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	45	'a2ps > preview.ps; ghostview preview.ps'
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	46	).
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	47	Printer := PrinterStream.
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	48	PrinterStream printCommand:'lpr'.
08055578224e * empty log message * Claus Gittinger <cg@exept.de> parents: 165 diff changeset	49	].
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	50
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	51	"/ Printer := PostscriptPrinterStream.
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	52
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	53	"/ in our home-domain, preset the print command for remote printing
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	54	"/ on a host called 'ibm'.
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	55	"/ You can change this for your environment and/or make it
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	56	"/ unconditional.
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	57
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	58	domain := OperatingSystem getDomainName.
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	59	(domain = 'xaxept.de' or:[domain = 'exept.de']) ifTrue:[
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	60	PostscriptPrinterStream printCommand:'cat \| rsh ibm lpr -h'.
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	61	PrinterStream printCommand:'cat \| rsh ibm lpr -h'.
119 1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	62	PostscriptPrinterStream defaultCommands:#(
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	63	'cat \| rsh ibm lpr -h'
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	64	'cat > preview.ps'
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	65	'cat > preview.ps; ghostview preview.ps'
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	66	).
119 1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	67	PrinterStream defaultCommands:#(
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	68	'cat \| rsh ibm lpr -h'
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	69	'a2ps \| rsh ibm lpr -h'
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	70	'a2ps > preview.ps; ghostview preview.ps'
1f4f557d14a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 103 diff changeset	71	).
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	72	].
9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	73
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	74	"/
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	75	"/ try host-specific setup
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	76	"/ (h_<hostname>.rc
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	77	"/
0 0cb137a77319 Initial revision claus parents: diff changeset	78	host := OperatingSystem getHostName.
2 353a88ada7c6 * empty log message * claus parents: 0 diff changeset	79	host isNil ifTrue:[
123 a974136fe017 startup infoPrinting suppressable (-q flag) Claus Gittinger <cg@exept.de> parents: 119 diff changeset	80	'cannot determine host I am running on' errorPrintCR.
2 353a88ada7c6 * empty log message * claus parents: 0 diff changeset	81	] ifFalse:[
0 0cb137a77319 Initial revision claus parents: diff changeset	82	"if there is a corresponding file ..."
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	83
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	84	(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
123 a974136fe017 startup infoPrinting suppressable (-q flag) Claus Gittinger <cg@exept.de> parents: 119 diff changeset	85	('trying host setup h_' , host , '.rc ...') infoPrintCR.
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	86
8 d82829c0d867 * empty log message * claus parents: 5 diff changeset	87	s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
d82829c0d867 * empty log message * claus parents: 5 diff changeset	88	s notNil ifTrue:[
d82829c0d867 * empty log message * claus parents: 5 diff changeset	89	s fileIn.
d82829c0d867 * empty log message * claus parents: 5 diff changeset	90	s close.
d82829c0d867 * empty log message * claus parents: 5 diff changeset	91	].
d82829c0d867 * empty log message * claus parents: 5 diff changeset	92	Smalltalk at:#'_ImageHostName' put:host.
0 0cb137a77319 Initial revision claus parents: diff changeset	93	]
0cb137a77319 Initial revision claus parents: diff changeset	94	].
0cb137a77319 Initial revision claus parents: diff changeset	95	!

author	Claus Gittinger <cg@exept.de>
	Sat, 09 Nov 1996 02:03:57 +0100
changeset 169	08055578224e
parent 165	bb77927038c7
child 177	eec6bac738ba
permissions	-rw-r--r--