hg/stx-projects-smalltalk: h_win32.rc@cb9bf1e76019 (annotated)

331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	1	"*
609 f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 578 diff changeset	2	* Encoding: iso8859-1
f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 578 diff changeset	3	*
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	4	* $Header$
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	5	*
399 5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 366 diff changeset	6	* MIMEType: application/x-smalltalk-source
5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 366 diff changeset	7	*
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	8	* ST/X startup configuration file - for win95, win98 and winNT OS.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	9	*
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	10	* DONT add site specific things here - use your own h_xxx.rc file instead
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	11	* where xxx stands for your hostname(s)
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	12	*"
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	13
357 dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	14	"/ look in registry for LibDir ...
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	15	\|k rel curr\|
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	16
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	17	rel := Smalltalk versionString.
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 670 diff changeset	18	k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).
357 dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	19	k isNil ifTrue:[
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 670 diff changeset	20	k := Win32OperatingSystem registryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
357 dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	21	k notNil ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	22	curr := k valueNamed:'CurrentVersion'.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	23	curr isString ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	24	k close.
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 670 diff changeset	25	k := Win32OperatingSystem registryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).
357 dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	26	]
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	27	]
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	28	].
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	29	k notNil ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	30	libDir := k valueNamed:'LibDir'.
410 abb01ec3a9b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 399 diff changeset	31	(libDir notNil and:[libDir asFilename exists]) ifTrue:[
670 7f89ef33a8cf * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	32	(Smalltalk systemPath includes:(libDir asFilename pathName)) ifFalse:[
7f89ef33a8cf * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	33	Smalltalk systemPath addFirst:(libDir asFilename pathName).
7f89ef33a8cf * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	34	Smalltalk flushPathCaches
7f89ef33a8cf * empty log message * Claus Gittinger <cg@exept.de> parents: 669 diff changeset	35	]
357 dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	36	].
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	37	k close.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	38	].
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	39	!
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	40
478 28165b2e5451 * empty log message * bg parents: 410 diff changeset	41	\|incl libs\|
28165b2e5451 * empty log message * bg parents: 410 diff changeset	42
669 95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	43	false "Smalltalk wasStartedFromImage" ifFalse:[
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	44	"/
609 f0f51d4a0066 * empty log message * Claus Gittinger <cg@exept.de> parents: 578 diff changeset	45	"/ right now, stx can only be used with a
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	46	"/ borland C-compiler.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	47	"/
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	48
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	49	"/ msc
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	50	"/ Compiler ccPath:'cl'.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	51	"/ Compiler ccCompilationOptions:'/O1'.
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	52
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	53	"/ borland
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	54	Compiler ccPath:'bcc32'.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	55	Compiler ccCompilationOptions:''.
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	56
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	57	incl := #(
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	58	'-I..\..\include'
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	59	'-I..\..\libopengl'
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	60	).
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	61
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	62	libs := #(
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	63	'-L..\..\libbc'
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	64	).
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	65
669 95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	66	#(
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	67	'C:\Programme\exept\SmalltalkX'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	68	"/ 'D:\STX\PROJECTS\smalltalk'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	69	'C:\Programme\borland\bcc55'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	70	'C:\Programme\borland\cbuilder4'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	71	'C:\Programme\borland\cbuilder3'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	72	'C:\borland\bcc55'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	73	'C:\borland\cbuilder4'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	74	'C:\borland\cbuilder3'
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	75	) do:[:eachPath \| \|pI pL\|
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	76	pI := eachPath asFilename construct:'include'.
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	77	pI exists ifTrue:[
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	78	incl := incl copyWith: ( '-I',pI pathName ).
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	79	].
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	80	pL := eachPath asFilename construct:'lib'.
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	81	pL exists ifTrue:[
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	82	libs := libs copyWith: ( '-L',pL pathName ).
95d1e3c57d95 * empty log message * Claus Gittinger <cg@exept.de> parents: 635 diff changeset	83	].
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	84	].
478 28165b2e5451 * empty log message * bg parents: 410 diff changeset	85
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	86	incl := incl asStringWith:Character space.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	87	libs := libs asStringWith:Character space.
478 28165b2e5451 * empty log message * bg parents: 410 diff changeset	88
577 d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	89	Compiler stcCompilationIncludes: incl.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	90	Compiler stcCompilationDefines: ''.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	91	Compiler stcCompilationOptions: '+optinline +inlineNew'.
d574370a1da5 only change compiler settings in host.rc, if not started from an image. Claus Gittinger <cg@exept.de> parents: 478 diff changeset	92	Compiler ccCompilationOptions: ''.
578 dfa929970bef bugfix: do not overwrite compiler settings after restart from image ca parents: 577 diff changeset	93
dfa929970bef bugfix: do not overwrite compiler settings after restart from image ca parents: 577 diff changeset	94	ObjectFileLoader linkArgs: (libs , ' -r -c -ap -Tpd -Gi -w-dup').
dfa929970bef bugfix: do not overwrite compiler settings after restart from image ca parents: 577 diff changeset	95	ObjectFileLoader linkCommand: 'ilink32'.
478 28165b2e5451 * empty log message * bg parents: 410 diff changeset	96	].
366 397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	97
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	98	!

author	Claus Gittinger <cg@exept.de>
	Fri, 14 Jul 2006 19:36:24 +0200
changeset 693	cb9bf1e76019
parent 672	43a67655f4f2
child 694	cabfa9d70688
permissions	-rw-r--r--