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

0 0cb137a77319 Initial revision claus parents: diff changeset	1	"*
609 f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 577 diff changeset	2	* Encoding: iso8859-1
f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 577 diff changeset	3	*
0 0cb137a77319 Initial revision claus parents: diff changeset	4	* $Header$
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	5	*
209 22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 195 diff changeset	6	* ST/X startup configuration file:
22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 195 diff changeset	7	*
1366 657c97513b23 * empty log message * Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	8	* DON'T add site specific things here - use your own h_xxx.rc file instead
8 d82829c0d867 * empty log message * claus parents: 5 diff changeset	9	* where xxx stands for your hostname(s)
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	10	*
0 0cb137a77319 Initial revision claus parents: diff changeset	11	* startup configuration for host specific stuff -
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	12	* looks for a system specific h_sysType.rc init file and loads it.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	13	* looks for a host specific h_hostName.rc init file and loads it.
0 0cb137a77319 Initial revision claus parents: diff changeset	14	*"
1243 1fc6b3f01e48 End chung after initial comment / encoding spec Stefan Vogel <sv@exept.de> parents: 1126 diff changeset	15	!
1308 d073f0290d60 Remove unused vars Stefan Vogel <sv@exept.de> parents: 1306 diff changeset	16	\|sysType host domain s conf includes incDir\|
177 eec6bac738ba stupid SYSV3: renamed rsh to remsh Claus Gittinger <cg@exept.de> parents: 169 diff changeset	17
eec6bac738ba stupid SYSV3: renamed rsh to remsh Claus Gittinger <cg@exept.de> parents: 169 diff changeset	18	sysType := OperatingSystem getSystemType.
eec6bac738ba stupid SYSV3: renamed rsh to remsh Claus Gittinger <cg@exept.de> parents: 169 diff changeset	19
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	20	"------------------------------------------------------------------------"
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	21	"/ printer setup
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	22	"/ Notice that this setup may be changed by an OS-specific h_xxx file
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	23	"/
239 610af02f6b7e only reset printer settings, if started on another host. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	24	"/ only reset the printer setting, if restarted
610af02f6b7e only reset printer settings, if started on another host. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	25	"/ on another host.
610af02f6b7e only reset printer settings, if started on another host. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	26
610af02f6b7e only reset printer settings, if started on another host. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	27	host := OperatingSystem getHostName.
610af02f6b7e only reset printer settings, if started on another host. Claus Gittinger <cg@exept.de> parents: 216 diff changeset	28	(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
952 435154ba084b default printer setup for win32 Claus Gittinger <cg@exept.de> parents: 932 diff changeset	29	sysType = 'win32' ifTrue:[
1306 2581c10f1fff removed via FileBrowser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	30	Printer := Smalltalk at:#WinPrinterStream.
952 435154ba084b default printer setup for win32 Claus Gittinger <cg@exept.de> parents: 932 diff changeset	31	] ifFalse:[
1306 2581c10f1fff removed via FileBrowser Claus Gittinger <cg@exept.de> parents: 1295 diff changeset	32	Printer := Smalltalk at:#PostscriptPrinterStream.
177 eec6bac738ba stupid SYSV3: renamed rsh to remsh Claus Gittinger <cg@exept.de> parents: 169 diff changeset	33	].
932 910313a689a6 printer setup: default for win32 Claus Gittinger <cg@exept.de> parents: 678 diff changeset	34	].
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	35
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	36
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	37	"/
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	38	"/ try systemType-specific setup
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	39	"/ h_<osType>.rc
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	40	"/
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	41	(Smalltalk at:#'_ImageOSTypeName') ~= sysType ifTrue:[
333 4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 331 diff changeset	42	('host.rc [info]: ') infoPrint.
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	43
1295 b7f03a0eba28 * empty log message * Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	44	"/ ('trying host setup h_' , sysType , '.rc...') infoPrintCR.
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	45	s := Smalltalk systemFileStreamFor:('h_' , sysType , '.rc').
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	46	s notNil ifTrue:[
1295 b7f03a0eba28 * empty log message * Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	47	('reading host setup h_' , sysType , '.rc...') infoPrintCR.
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	48	s fileIn.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	49	s close.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	50	].
1321 4bad4b38c8c3 Fix _ImageOSTypeName setting Stefan Vogel <sv@exept.de> parents: 1313 diff changeset	51	Smalltalk at:#'_ImageOSTypeName' put:sysType.
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	52	].
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	53
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	54	"/
bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	55	"/ try host-specific setup
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: 270 diff changeset	56	"/ h_<hostname>.rc
165 bb77927038c7 * empty log message * Claus Gittinger <cg@exept.de> parents: 123 diff changeset	57	"/
2 353a88ada7c6 * empty log message * claus parents: 0 diff changeset	58	host isNil ifTrue:[
195 1cf850844da9 new infoMessage scheme Claus Gittinger <cg@exept.de> parents: 177 diff changeset	59	'host.rc [warning]: cannot determine host I am running on' errorPrintCR.
2 353a88ada7c6 * empty log message * claus parents: 0 diff changeset	60	] ifFalse:[
0 0cb137a77319 Initial revision claus parents: diff changeset	61	"if there is a corresponding file ..."
103 9f5c03497b38 example - checking for the domain Claus Gittinger <cg@exept.de> parents: 8 diff changeset	62
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	63	(Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
1295 b7f03a0eba28 * empty log message * Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	64	"/ ('host.rc [info]: trying host setup h_' , host , '.rc...') infoPrintCR.
5 420e4af41733 * empty log message * claus parents: 2 diff changeset	65
8 d82829c0d867 * empty log message * claus parents: 5 diff changeset	66	s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
d82829c0d867 * empty log message * claus parents: 5 diff changeset	67	s notNil ifTrue:[
1295 b7f03a0eba28 * empty log message * Claus Gittinger <cg@exept.de> parents: 1287 diff changeset	68	('host.rc [info]: reading host setup h_' , host , '.rc...') infoPrintCR.
8 d82829c0d867 * empty log message * claus parents: 5 diff changeset	69	s fileIn.
d82829c0d867 * empty log message * claus parents: 5 diff changeset	70	s close.
d82829c0d867 * empty log message * claus parents: 5 diff changeset	71	].
d82829c0d867 * empty log message * claus parents: 5 diff changeset	72	Smalltalk at:#'_ImageHostName' put:host.
0 0cb137a77319 Initial revision claus parents: diff changeset	73	]
0cb137a77319 Initial revision claus parents: diff changeset	74	].
0cb137a77319 Initial revision claus parents: diff changeset	75	!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 11 Jun 2018 11:15:47 +0100
branch	jv
changeset 1558	36927a04ace3
parent 1403	4f390a9d33f9
permissions	-rw-r--r--