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

331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	1	"*
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	2	* $Header$
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	3	*
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	4	* 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	5	*
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	6	* 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	7	* where xxx stands for your hostname(s)
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	8	*"
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	9
357 dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	10	"/ look in registry for LibDir ...
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	11	\|k rel curr\|
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	12
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	13	rel := Smalltalk versionString.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	14	k := Win32OperatingSystem::RegistryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	15	k isNil ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	16	k := Win32OperatingSystem::RegistryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	17	k notNil ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	18	curr := k valueNamed:'CurrentVersion'.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	19	curr isString ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	20	k close.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	21	k := Win32OperatingSystem::RegistryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	22	]
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	23	]
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	24	].
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	25	k notNil ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	26	libDir := k valueNamed:'LibDir'.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	27	libDir notNil ifTrue:[
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	28	Smalltalk systemPath addFirst:libDir.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	29	Smalltalk flushPathCaches
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	30	].
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	31	k close.
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	32	].
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	33	!
dc01b7bc319e add LibDir setting from registry to systemPath Claus Gittinger <cg@exept.de> parents: 331 diff changeset	34
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	35	"/
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	36	"/ right now, stx can only be used with a
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	37	"/ borland C-compiler.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	38	"/
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	39
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	40	"/ msc
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	41	"/ Compiler ccPath:'cl'.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	42	"/ Compiler ccCompilationOptions:'/O1'.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	43
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	44	"/ borland
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	45	Compiler ccPath:'bcc32'.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	46	Compiler ccCompilationOptions:''.
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	47
366 397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	48	Compiler stcCompilationIncludes: '-I../../include -I..\..\libopengl -ID:\STX\PROJECTS\smalltalk\include -IC:\Programme\borland\cbuilder3\include'.
397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	49	Compiler stcCompilationDefines: ''.
397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	50	Compiler stcCompilationOptions: '+optinline +inlineNew'.
397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	51	Compiler ccCompilationOptions: ''.
397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	52	ObjectFileLoader linkArgs: '-L..\..\libbc -LC:\Programme\Borland\CBuilder3\lib -r -c -ap -Tpd -Gi -w-dup'.
397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	53	ObjectFileLoader linkCommand: 'ilink32'.
397c5e4955e6 * empty log message * Claus Gittinger <cg@exept.de> parents: 357 diff changeset	54
331 a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	55	!
a0be330a1f43 moved compiler setup into host-specific file. Claus Gittinger <cg@exept.de> parents: diff changeset	56

author	Claus Gittinger <cg@exept.de>
	Sun, 04 Jul 1999 18:22:18 +0200
changeset 366	397c5e4955e6
parent 357	dc01b7bc319e
child 399	5a842f5d7196
permissions	-rw-r--r--