"*
 * Encoding: iso8859-1
 *
 * $Header$
 *
 * MIMEType: application/x-smalltalk-source
 *
 * ST/X startup configuration file - for win95, win98 and winNT OS.
 *
 * DONT add site specific things here - use your own h_xxx.rc file instead
 * where xxx stands for your hostname(s)
 *"

"/ look in registry for LibDir ...
|k rel curr|

rel := Smalltalk versionString.
k := Win32OperatingSystem::RegistryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',rel).
k isNil ifTrue:[
    k := Win32OperatingSystem::RegistryEntry key:'HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X'.
    k notNil ifTrue:[
	curr := k valueNamed:'CurrentVersion'.
	curr isString ifTrue:[
	    k close.
	    k := Win32OperatingSystem::RegistryEntry key:('HKEY_LOCAL_MACHINE\Software\eXept\Smalltalk/X\',curr).
	]
    ]
].
k notNil ifTrue:[
    libDir := k valueNamed:'LibDir'.
    (libDir notNil and:[libDir asFilename exists]) ifTrue:[
	Smalltalk systemPath addFirst:libDir.
	Smalltalk flushPathCaches
    ].
    k close.
].
!

|incl libs|

false "Smalltalk wasStartedFromImage" ifFalse:[
    "/
    "/ right now, stx can only be used with a
    "/ borland C-compiler.
    "/

    "/ msc
    "/ Compiler ccPath:'cl'.
    "/ Compiler ccCompilationOptions:'/O1'.

    "/ borland
    Compiler ccPath:'bcc32'.
    Compiler ccCompilationOptions:''.

    incl := #(
	    '-I..\..\include'
	    '-I..\..\libopengl'
	    ).

    libs := #(
	    '-L..\..\libbc'
	    ).

    #(
	'C:\Programme\exept\SmalltalkX'
	"/ 'D:\STX\PROJECTS\smalltalk'
	'C:\Programme\borland\bcc55'
	'C:\Programme\borland\cbuilder4'
	'C:\Programme\borland\cbuilder3'
	'C:\borland\bcc55'
	'C:\borland\cbuilder4'
	'C:\borland\cbuilder3'
    ) do:[:eachPath | |pI pL|
	pI := eachPath asFilename construct:'include'.
	pI exists ifTrue:[
	    incl := incl copyWith: ( '-I',pI pathName ).
	].
	pL := eachPath asFilename construct:'lib'.
	pL exists ifTrue:[
	    libs := libs copyWith: ( '-L',pL pathName ).
	].
    ].

    incl := incl asStringWith:Character space.
    libs := libs asStringWith:Character space.

    Compiler stcCompilationIncludes: incl.
    Compiler stcCompilationDefines: ''.
    Compiler stcCompilationOptions: '+optinline +inlineNew'.
    Compiler ccCompilationOptions: ''.

    ObjectFileLoader linkArgs: (libs , ' -r -c -ap -Tpd -Gi -w-dup').
    ObjectFileLoader linkCommand: 'ilink32'.
].

!